cheveguerra/Marquez_Reparto
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Marquez_Reparto.git synced 2026-04-19 21:59:22 +00:00
Code Issues Packages Projects Releases Wiki Activity

Correcciones y cambios en vistas version 4.08.17

Browse Source
This commit is contained in:
cvaldes1201
2024-08-17 16:19:32 -06:00
parent 5f6d16fba0
commit ea31fd4801
17 changed files with 47 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
B4A/C_Principal.bas
View File

@@ -464,7 +464,7 @@ Sub Subir_Click
cmd.Initialize
cmd.Name = "insert_reparto_noventa_MARQUEZ_REPG"
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)
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
reqManager.ExecuteCommand(cmd , "inst_noventa")
Next
c.Close
End If
@@ -480,7 +480,7 @@ Sub Subir_Click
cmd.Initialize
cmd.Name = "insert_rep_hist_ventas_marquez_REPG"
cmd.Parameters = Array As Object(C.GetString("HVD_CLIENTE"),C.GetString("HVD_PRONOMBRE"),C.GetString("HVD_CANT"),C.GetString("HVD_COSTO_TOT"),C.GetString("HVD_CODPROMO"),C.GetString("HVD_PROID"),C.GetString("HVD_NUM_TICKET"),C.GetString("HVD_NUM_REGISTRO"),C.GetString("HVD_RECHAZO"),C.GetString("HVD_PARCIAL"), ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
reqManager.ExecuteCommand(cmd , "inst_noventa")
Next
c.Close
End If
@@ -493,7 +493,7 @@ Sub Subir_Click
cmd.Initialize
cmd.Name = "insert_pedido_REPG"
cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),ALMACEN,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),"0","VENTA")
reqManager.ExecuteQuery(cmd , 0, "ins_pedido")
reqManager.ExecuteCommand(cmd , "ins_pedido")
Next
c.Close
End If
@@ -562,6 +562,31 @@ Sub Subir_Click
b.Close
f.Close
End If
c = Starter.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET FROM HIST_VENTAS")
If c.RowCount > 0 Then
For i=0 To c.RowCount -1
c.Position = i
Private d4 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("HVD_CLIENTE")}'"$)
d4.Position = 0
Dim fecha1() As String = Regex.Split(" ", c.GetString("HVD_FECHA"))
Dim fecha2() As String = Regex.Split("-", fecha1(0))
Dim fecha3 As String = fecha2(2)&"/"&fecha2(1)&"/"&fecha2(0)
Log(fecha3)
Dim hora() As String = Regex.Split("\.", fecha1(1))
Log(hora(0))
cmd.Initialize
cmd.Name = "update_HVD_MARQUEZrep"
cmd.Parameters = Array As Object(c.GetString("HVD_RECHAZOCANT"), c.GetString("HVD_CLIENTE"), c.GetString("HVD_PROID"),fecha3&" "&hora(0), d4.GetString("CAT_CL_RUTA"),ALMACEN,l_ruta.Text,c.GetString("HVD_CODPROMO"),c.GetString("HVD_NUM_TICKET"))
' HVD_CANT_RECHAZO_MOVIL = ? where HVD_CLIENTE = ? And HVD_PROID = ? And TRUNC(HVD_FECHA) = TRUNC(to_date((?),DD/MM/YYYY HH24:MI:ss)) AND HVD_RUTA = ? AND HVD_ALMACEN = ? AND HVD_COBA = ? AND HVD_CODPROMO = ? AND HVD_NUM_TICKET = ?
reqManager.ExecuteCommand(cmd, "update_hvd")
d4.Close
Next
End If
c.Close
c = Starter.skmt.ExecQuery("SELECT MIL, QUINIENTOS, DOCIENTOS, CIEN, CINCUENTA, VEINTE FROM TABULADOR_BILLETES")
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")