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

6.03.26

Browse Source
This commit is contained in:
cvaldes1201
2026-04-10 10:42:16 -06:00
parent e3a4a324fd
commit 890c135f48
10 changed files with 79 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Principal.bas
View File

@@ -869,7 +869,7 @@ Sub envioinfo
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_reparto_REPG_PROFINA_VN22"
cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text,C.GetString("NV_MONTO"),C.GetString("NV_NOART"), C.GetString("NV_REPROGRAMAR"),fotoenvio)
cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"),C.GetString("NV_FECHA"),C.GetString("NV_USER"),C.GetString("NV_MOTIVO"),C.GetString("NV_COMM"),C.GetString("NV_LAT"),C.GetString("NV_LON"), ALMACEN, l_ruta.Text,fotoenvio,C.GetString("NV_MONTO"),C.GetString("NV_NOART"))
reqManager.ExecuteCommand(cmd , "inst_noventa_")
Next
c.Close