From d47c9939757a5f18ebc0875924b7ecce943f7aa9 Mon Sep 17 00:00:00 2001 From: IsR0d Date: Thu, 9 May 2024 10:12:02 -0600 Subject: [PATCH] Se agrego la validacion de la venta. --- B4A/C_Cliente.bas | 12 ++++-------- B4A/INTMEX.b4a.meta | 2 +- 2 files changed, 5 insertions(+), 9 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 2365613..b42bb01 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -1293,11 +1293,12 @@ End Sub Private Sub b_ventaabordo_Click - c=B4XPages.MainPage.skmt.ExecQuery("Select * From CAT_GUNAPROD2") + c=B4XPages.MainPage.skmt.ExecQuery2("Select * From CAT_GUNAPROD2 where cat_gp_tipo <> ? " , Array As String ("PROMOS")) - If c.RowCount > 0 Then - + If c.RowCount = 0 Then + MsgboxAsync("No puedes hacer venta porque no tienes inventario abordo","Atención") + Else If c.RowCount > 0 Then B4XPages.MainPage.tipo_venta = "VENTA" ' If B4XPages.MainPage.productos.clv_prods_ll.Size = 0 Then @@ -1336,11 +1337,6 @@ Private Sub b_ventaabordo_Click ' If B4XPages.MainPage.productos.prodsMap.IsInitialized And B4XPages.MainPage.productos.prodsMap.Size > 0 Then Subs.borraPedidoClienteActual B4XPages.ShowPage("productos") - - Else If c.RowCount = 0 Then - - MsgboxAsync("No puedes hacer venta porque no tienes inventario abordo","Atención") - End If End Sub \ No newline at end of file diff --git a/B4A/INTMEX.b4a.meta b/B4A/INTMEX.b4a.meta index fe9ac7b..1e4f99d 100644 --- a/B4A/INTMEX.b4a.meta +++ b/B4A/INTMEX.b4a.meta @@ -85,6 +85,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Productos,b_terminar1_Click,635,0,C_Nota,B4XPage_Appear,94,6,C_Principal,resdia_Click,2270,6,Diseñador Visual,resdia.bal,-100,6,Diseñador Visual,clientes.bal,-100,1,Diseñador Visual,cliente.bal,-100,1,C_Cliente,MODS,0,0,C_Cliente,B4XPage_Appear,382,6,C_Cliente,cuest_preguntaContestada,1278,0,C_Cliente,b_ventaabordo_Click,1336,6,C_Productos,LlenaProdsLL,976,0 +NavigationStack=C_Productos,b_terminar1_Click,635,0,C_Nota,B4XPage_Appear,94,6,C_Principal,resdia_Click,2270,6,Diseñador Visual,resdia.bal,-100,6,Diseñador Visual,clientes.bal,-100,1,C_Cliente,MODS,0,0,C_Cliente,B4XPage_Appear,382,6,Diseñador Visual,cliente.bal,-100,2,C_Cliente,cuest_preguntaContestada,1281,0,C_Cliente,b_ventaabordo_Click,1335,6 SelectedBuild=0 VisibleModules=2,26,13,16,14,4,27,15,9,6