cheveguerra/Intmex_Multiventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Multiventa.git synced 2026-04-17 21:06:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.03.25

Browse Source 
- Se cambió que la validación de cantidades y montos (revisaCantsYMontosTotales) se realize SIEMPRE, y no solo cuando PC_ENVIO_OK = 2, esto es para que si se borra el pedido DESDE WEB, al realizar la validación de montos y cantidades siempre, entonces se vuelva a enviar!
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-03-27 20:03:34 -06:00
parent 783e4a8053
commit 87645b4c9f
3 changed files with 5 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/C_Validador.bas
View File

@@ -15,8 +15,6 @@ Sub Class_Globals
Dim sDate, sTime As String Dim sDate, sTime As String
End Sub End Sub
'You can add more parameters here. 'You can add more parameters here.
Public Sub Initialize As Object Public Sub Initialize As Object
reqManager.Initialize(Me, Starter.DBReqServer) reqManager.Initialize(Me, Starter.DBReqServer)
@@ -145,7 +143,7 @@ Sub revisaCantsYMontosTotales
Log(">>>>>>> VALIDA CANTIDADES Y MONTOS") Log(">>>>>>> VALIDA CANTIDADES Y MONTOS")
Private almacen As String = Subs.traeAlmacen Private almacen As String = Subs.traeAlmacen
Private laRuta As String = Subs.traeRuta Private laRuta As String = Subs.traeRuta
c = skmt.ExecQuery("SELECT * FROM PEDIDO_CLIENTE where PC_ENVIO_OK = 2") c = skmt.ExecQuery("SELECT * FROM PEDIDO_CLIENTE where PC_ENVIO_OK = 2 or 1") ' El uno del final es para que SIEMPRE revise las cantidades y montos, por si se borra la orden desde web, para que se envíe NUEVAMENTE.
Log($"Pedidos a VALIDAR (Cants y Montos): ${c.RowCount}"$) Log($"Pedidos a VALIDAR (Cants y Montos): ${c.RowCount}"$)
If c.RowCount>0 Then If c.RowCount>0 Then
For i=0 To c.RowCount -1 For i=0 To c.RowCount -1

4
B4A/INTMEX.b4a
View File

@@ -159,12 +159,12 @@ Module9=C_Nota
NumberOfFiles=46 NumberOfFiles=46
NumberOfLibraries=33 NumberOfLibraries=33
NumberOfModules=30 NumberOfModules=30
Version=13.1 Version=12.8
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Intmex #ApplicationLabel: Intmex
#VersionCode: 1 #VersionCode: 1
#VersionName: 5.03.20.MV #VersionName: 5.03.25
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

4
B4A/INTMEX.b4a.meta
View File

@@ -91,6 +91,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=C_Productos,lv_promos_ItemLongClick,817,0,C_Nota,ListView1_ItemLongClick,165,0,C_Nota,B4XPage_Appear,57,0,C_Nota,borra_Click,154,6,C_RespaldoDiario,Class_Globals,0,0,C_Promos,Class_Globals,18,0,Diseñador Visual,pedido.bal,-100,1,C_Productos,b_terminar1_Click,770,0,Diseñador Visual,productos.bal,-100,3,C_Productos,lv_prodsPedido_ItemLongClick,987,4 NavigationStack=C_Nota,ListView1_ItemLongClick,165,0,C_Nota,B4XPage_Appear,57,0,C_Nota,borra_Click,154,6,C_RespaldoDiario,Class_Globals,0,0,C_Promos,Class_Globals,18,0,Diseñador Visual,pedido.bal,-100,1,C_Productos,b_terminar1_Click,770,0,Diseñador Visual,productos.bal,-100,3,C_Productos,lv_prodsPedido_ItemLongClick,987,4,C_Validador,Class_Globals,10,0,C_Validador,revisaCantsYMontosTotales,153,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=2,28,14,9,4,20,29,15,16,18,13 VisibleModules=2,28,14,9,4,20,29,15,16,18