cheveguerra/Intmex_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Preventa.git synced 2026-04-19 13:49:25 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se agrego la validacion de la venta.

Browse Source
This commit is contained in:
IsR0d
2024-05-09 10:12:02 -06:00
parent ee539b0b92
commit d47c993975
2 changed files with 5 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
B4A/C_Cliente.bas
View File

@@ -1293,11 +1293,12 @@ End Sub
Private Sub b_ventaabordo_Click 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" B4XPages.MainPage.tipo_venta = "VENTA"
' If B4XPages.MainPage.productos.clv_prods_ll.Size = 0 Then ' 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 ' If B4XPages.MainPage.productos.prodsMap.IsInitialized And B4XPages.MainPage.productos.prodsMap.Size > 0 Then Subs.borraPedidoClienteActual
B4XPages.ShowPage("productos") B4XPages.ShowPage("productos")
Else If c.RowCount = 0 Then
MsgboxAsync("No puedes hacer venta porque no tienes inventario abordo","Atención")
End If End If
End Sub End Sub

2
B4A/INTMEX.b4a.meta
View File

@@ -85,6 +85,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 SelectedBuild=0
VisibleModules=2,26,13,16,14,4,27,15,9,6 VisibleModules=2,26,13,16,14,4,27,15,9,6