cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-21 03:49:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

20/11/23 - Cambios en respaldo diario

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-20 09:14:57 -06:00
parent e4fa8439ec
commit 6a303eb0dc
10 changed files with 52 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
B4A/Subs.bas
View File

@@ -805,10 +805,10 @@ End Sub
Sub traeRMINombre(id As String) As String
Private h As Cursor
Private n As String
h=Starter.skmt.ExecQuery2("select CAT_GP_NOMBRE from CAT_RMI where CAT_GP_ID = ? ", Array As String(id.Trim))
h=Starter.skmt.ExecQuery2("select CAT_DESCRIPCION from CAT_RMI where CAT_ID = ? ", Array As String(id.Trim))
If h.RowCount > 0 Then
h.Position = 0
n = h.GetString("CAT_GP_NOMBRE")
n = h.GetString("CAT_DESCRIPCION")
' Log(h.RowCount&"|"&id&"|"&n&"|")
End If
h.Close
@@ -1408,7 +1408,9 @@ Sub borraPedidoClienteActual As String
If thisC.RowCount>0 Then
For i=0 To thisC.RowCount -1
thisC.Position=i
If thisC.GetString("PE_CEDIS") <> "DUR" Then Starter.skmt.ExecNonQuery2($"update ${traeTablaProds(Starter.tipov)} set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?"$, Array As Object(thisC.GetString("PE_CANT"), thisC.GetString("PE_PROID")))
If thisC.GetString("PE_CEDIS") <> "DUR" Then
Starter.skmt.ExecNonQuery2($"update ${traeTablaProds(Starter.tipov)} set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?"$, Array As Object(thisC.GetString("PE_CANT"), thisC.GetString("PE_PROID")))
End If
' Starter.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (traeAlmacen, thisC.GetString("PE_PROID"),thisC.GetString("PE_CANT")* -1))
Next
End If