From 87645b4c9f945b6368124a31e69232089a9086f6 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Thu, 27 Mar 2025 20:03:34 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=205.03.25=20-=20Se=20cambi=C3=B3=20?= =?UTF-8?q?que=20la=20validaci=C3=B3n=20de=20cantidades=20y=20montos=20(re?= =?UTF-8?q?visaCantsYMontosTotales)=20se=20realize=20SIEMPRE,=20y=20no=20s?= =?UTF-8?q?olo=20cuando=20PC=5FENVIO=5FOK=20=3D=202,=20esto=20es=20para=20?= =?UTF-8?q?que=20si=20se=20borra=20el=20pedido=20DESDE=20WEB,=20al=20reali?= =?UTF-8?q?zar=20la=20validaci=C3=B3n=20de=20montos=20y=20cantidades=20sie?= =?UTF-8?q?mpre,=20entonces=20se=20vuelva=20a=20enviar!?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/C_Validador.bas | 4 +--- B4A/INTMEX.b4a | 4 ++-- B4A/INTMEX.b4a.meta | 4 ++-- 3 files changed, 5 insertions(+), 7 deletions(-) diff --git a/B4A/C_Validador.bas b/B4A/C_Validador.bas index 75d9f7e..33f90ae 100644 --- a/B4A/C_Validador.bas +++ b/B4A/C_Validador.bas @@ -15,8 +15,6 @@ Sub Class_Globals Dim sDate, sTime As String End Sub - - 'You can add more parameters here. Public Sub Initialize As Object reqManager.Initialize(Me, Starter.DBReqServer) @@ -145,7 +143,7 @@ Sub revisaCantsYMontosTotales Log(">>>>>>> VALIDA CANTIDADES Y MONTOS") Private almacen As String = Subs.traeAlmacen 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}"$) If c.RowCount>0 Then For i=0 To c.RowCount -1 diff --git a/B4A/INTMEX.b4a b/B4A/INTMEX.b4a index 83a84ff..9c9e94e 100644 --- a/B4A/INTMEX.b4a +++ b/B4A/INTMEX.b4a @@ -159,12 +159,12 @@ Module9=C_Nota NumberOfFiles=46 NumberOfLibraries=33 NumberOfModules=30 -Version=13.1 +Version=12.8 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Intmex #VersionCode: 1 - #VersionName: 5.03.20.MV + #VersionName: 5.03.25 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/INTMEX.b4a.meta b/B4A/INTMEX.b4a.meta index 342c1ac..72879db 100644 --- a/B4A/INTMEX.b4a.meta +++ b/B4A/INTMEX.b4a.meta @@ -91,6 +91,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= 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 -VisibleModules=2,28,14,9,4,20,29,15,16,18,13 +VisibleModules=2,28,14,9,4,20,29,15,16,18