cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-20 06:09:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

..

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-11-04 13:20:47 -06:00
parent 7057c92bb6
commit 217b955083
17 changed files with 212 additions and 132 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
B4A/C_NoVenta.bas
View File

@@ -31,6 +31,7 @@ Sub Class_Globals
Private stay_mi As String
Private stay_ss As String
Private p_NoVenta As Panel
dim tipo_venta = Subs.traeTipoVentaDeBD
End Sub
'You can add more parameters here.
@@ -96,7 +97,7 @@ Sub GUARDA_Click
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
B4XPages.MainPage.skmt.ExecNonQuery2($"update ${Subs.traeTablaProds(tipo_venta)} set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?"$, Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
Next
End If