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

...

Browse Source
This commit is contained in:
cvaldes1201
2024-05-15 18:19:36 -06:00
parent d47c993975
commit 6679e33d4a
7 changed files with 169 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
B4A/C_Cliente.bas
View File

@@ -1293,12 +1293,11 @@ 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
@@ -1337,6 +1336,11 @@ 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