cheveguerra/Mariana-Reparto-V5
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana-Reparto-V5.git synced 2026-04-17 21:06:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se agrega que borre tabla que no dejaba hacer el envio

Browse Source
This commit is contained in:
cvaldes1201
2025-04-08 13:23:03 -06:00
parent 055cadd11b
commit 53a706a9d1
3 changed files with 344 additions and 215 deletions
Download Patch File Download Diff File Expand all files Collapse all files

553
B4A/C_Principal.bas
View File

@@ -668,229 +668,357 @@ Sub trabajar_Click
End Sub End Sub
Sub Subir_Click Sub Subir_Click
If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión") If Not(IsConnectedToInternet) Then
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0 MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión")
usuario = c.GetString("USUARIO") Else
c.Close
envioinfo c=Starter.skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0
usuario = c.GetString("USUARIO")
c.Close
' NOVENTA
c = Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA")
D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
foto1 = c.GetBlob("NV_FOTO")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_reparto_noventa_MARDS_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.ExecuteCommand(cmd , "inst_noventa")
Next
c.Close
End If
d.Position=0
cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
d.Close
c=Starter.skmt.ExecQuery("SELECT HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID, HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PARCIAL FROM hist_ventas WHERE HVD_RECHAZO = 1 OR HVD_PARCIAL = 1")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_rep_hist_ventas_mards_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.ExecuteCommand(cmd , "inst_noventa")
Next
c.Close
End If
' pedido
c=Starter.skmt.ExecQuery("SELECT PE_TIPO, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_CLIENTEOR, PE_CAJAS, PE_BCAJAS, CONSECUTIVO, FECHA_PREV, RUTA_REP, PE_REGALO FROM PEDIDO")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_pedido_REP_MARDS"
cmd.Parameters = Array As Object(c.GetString("PE_TIPO"), c.GetString("PE_RUTA"), c.GetString("PE_CEDIS"), 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_CLIENTEOR"), c.GetString("PE_CAJAS"), c.GetString("PE_BCAJAS"), c.GetString("CONSECUTIVO"), c.GetString("FECHA_PREV"), c.GetString("RUTA_REP"), c.GetString("PE_REGALO"))
reqManager.ExecuteCommand(cmd , "ins_pedido_MARIANA")
Next
c.Close
End If
'
c=Starter.skmt.ExecQuery("SELECT CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, MOTIVO, COMENTARIO,TIPO FROM REPARTO_GEO")
Log($"REPARTO_Cliente PENDIENTE: ${c.RowCount}"$)
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_REPARTO_MARDS"
cmd.Parameters = Array As Object(c.GetString("CLIENTE"), c.GetString("USUARIO"), c.GetString("FECHA_PUNTEO"), c.GetString("LATITUD"), c.GetString("LONGITUD"), c.GetString("ALMACEN"), c.GetString("RUTA_REPARTO"), c.GetString("RUTA_PREV"), c.GetString("FECHA_PREVENTA"), c.GetString("MOTIVO"), c.GetString("COMENTARIO"),c.GetString("TIPO"))
reqManager.ExecuteCommand(cmd , $"ins_REPARTOPendientes_head_${c.GetString("CLIENTE")}"$)
Next
End If
c.Close
'TABULADOR
c = Starter.skmt.ExecQuery("SELECT VEINTE, DIEZ, CINCO, DOS, PESO, CENTAVO, TOTAL FROM TABULADOR_MONEDAS")
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN")
f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
d.Position = 0
b.Position = 0
f.Position = 0
If c.RowCount > 0 Then
For i = 0 To c.RowCount - 1
c.Position=i
Dim cmd As DBCommand
Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA"))
Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0))
Dim fechatabulador3 As String = fechatabulador2(1)&"/"&fechatabulador2(2)&"/"&fechatabulador2(0)
cmd.Initialize
cmd.Name = "insert_tabulador_monedas_MARDS"
cmd.Parameters = Array As Object(d.GetString("RUTAA"), b.GetString("ID_ALMACEN"),c.GetString("VEINTE"),c.GetString("DIEZ"),c.GetString("CINCO"),c.GetString("DOS"),c.GetString("PESO"),c.GetString("CENTAVO"),fechatabulador3)
reqManager.ExecuteCommand(cmd , "ins_tabulador_mon")
Next
c.Close
d.Close
b.Close
f.Close
End If
c = Starter.skmt.ExecQuery("SELECT MIL, QUINIENTOS, DOCIENTOS, CIEN, CINCUENTA, VEINTE FROM TABULADOR_BILLETES")
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN")
f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
d.Position = 0
b.Position = 0
f.Position = 0
If c.RowCount > 0 Then
For i = 0 To c.RowCount - 1
c.Position=i
Dim cmd As DBCommand
Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA"))
Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0))
Dim fechatabulador3 As String = fechatabulador2(1)&"/"&fechatabulador2(2)&"/"&fechatabulador2(0)
cmd.Initialize
cmd.Name = "insert_tabulador_billetes_MARDS"
cmd.Parameters = Array As Object(b.GetString("ID_ALMACEN"), d.GetString("RUTAA"),c.GetString("MIL"),c.GetString("QUINIENTOS"),c.GetString("DOCIENTOS"),c.GetString("CIEN"),c.GetString("CINCUENTA"),c.GetString("VEINTE"),fechatabulador3)
reqManager.ExecuteCommand(cmd , "ins_tabulador_bill")
Next
c.Close
d.Close
b.Close
f.Close
End If
'FIN TABULADOR
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_drop_rep_mards"
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO")
reqManager.ExecuteCommand(cmd , "inst_drop")
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
End If
' cmd.Initialize ' cmd.Initialize
' cmd.Name = "select_estatus_MAZAPA" ' cmd.Name = "select_estatus_MAZAPA"
' cmd.Parameters = Array As Object(ALMACEN,e_ruta.text) ' cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
' reqManager.ExecuteQuery(cmd , 0, "estatus") ' reqManager.ExecuteQuery(cmd , 0, "estatus")
End Sub End Sub
Sub envioinfo 'Sub envioinfo
'
'
'
' NOVENTA ' ' NOVENTA
c = Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA") ' c = Starter.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_FOTO FROM NOVENTA")
D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") ' D=Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
If c.RowCount>0 Then ' If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
foto1 = c.GetBlob("NV_FOTO")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_reparto_noventa_MARDS_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.ExecuteCommand(cmd , "inst_noventa")
Next
c.Close
End If
d.Position=0
cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
d.Close
c=Starter.skmt.ExecQuery("SELECT HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID, HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PARCIAL FROM hist_ventas WHERE HVD_RECHAZO = 1 OR HVD_PARCIAL = 1")
'
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_rep_hist_ventas_mards_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.ExecuteCommand(cmd , "inst_noventa")
Next
c.Close
End If
' pedido
c=Starter.skmt.ExecQuery("SELECT PE_TIPO, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_CLIENTEOR, PE_CAJAS, PE_BCAJAS, CONSECUTIVO, FECHA_PREV, RUTA_REP, PE_REGALO FROM PEDIDO")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_pedido_REP_MARDS"
cmd.Parameters = Array As Object(c.GetString("PE_TIPO"), c.GetString("PE_RUTA"), c.GetString("PE_CEDIS"), 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_CLIENTEOR"), c.GetString("PE_CAJAS"), c.GetString("PE_BCAJAS"), c.GetString("CONSECUTIVO"), c.GetString("FECHA_PREV"), c.GetString("RUTA_REP"), c.GetString("PE_REGALO"))
reqManager.ExecuteCommand(cmd , "ins_pedido_MARIANA")
Next
c.Close
End If
' reqManager.Initialize(Me, "http://187.189.244.154:1787") 'Para el servidor de pruebas.
c = Starter.skmt.ExecQuery("SELECT * from reparto")
If c.RowCount > 0 Then
Private folio As String = Subs.hmsKMT
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insertMardsReparto"
cmd.Parameters = Array As Object(folio, C.GetString("REP_FECHA"), C.GetString("REP_CLIENTE"), C.GetString("REP_CLI_ORIG"), C.GetString("REP_PRODID"), C.GetString("REP_PRONOMBRE"), C.GetString("REP_PRODREGISTRO"), C.GetString("REP_CANT"), C.GetString("REP_PRECIO"), C.GetString("REP_COSTO_TOT"), C.GetString("REP_RECHAZO"),ALMACEN,l_ruta.Text)
reqManager.ExecuteCommand(cmd , "ins_reparto")
Next
c.Close
End If
c = Starter.skmt.ExecQuery("SELECT * from rechazos")
If c.RowCount > 0 Then
Private folio As String = Subs.hmsKMT
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insertMardsRechazos"
cmd.Parameters = Array As Object(folio, C.GetString("R_FECHA"), C.GetString("R_CLIENTE"), C.GetString("R_CLI_ORIG"), C.GetString("R_PRODID"), C.GetString("R_CANT"), C.GetString("R_RECHAZO"),ALMACEN,l_ruta.Text)
reqManager.ExecuteCommand(cmd , "ins_rechazos")
Next
c.Close
End If
c = Starter.skmt.ExecQuery("SELECT * from ventas")
If c.RowCount > 0 Then
Private folio As String = Subs.hmsKMT
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insertMardsVentas"
cmd.Parameters = Array As Object(folio, C.GetString("V_FECHA"), C.GetString("V_CLIENTE"), C.GetString("V_CLI_ORIG"), C.GetString("V_PRODID"), C.GetString("V_CANT"), C.GetString("V_RECHAZO"),ALMACEN,l_ruta.Text)
reqManager.ExecuteCommand(cmd , "ins_ventas")
Next
c.Close
End If
c=Starter.skmt.ExecQuery("SELECT CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, MOTIVO, COMENTARIO,TIPO FROM REPARTO_GEO")
Log($"REPARTO_Cliente PENDIENTE: ${c.RowCount}"$)
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_REPARTO_MARDS"
cmd.Parameters = Array As Object(c.GetString("CLIENTE"), c.GetString("USUARIO"), c.GetString("FECHA_PUNTEO"), c.GetString("LATITUD"), c.GetString("LONGITUD"), c.GetString("ALMACEN"), c.GetString("RUTA_REPARTO"), c.GetString("RUTA_PREV"), c.GetString("FECHA_PREVENTA"), c.GetString("MOTIVO"), c.GetString("COMENTARIO"),c.GetString("TIPO"))
reqManager.ExecuteCommand(cmd , $"ins_REPARTOPendientes_head_${c.GetString("CLIENTE")}"$)
Next
End If
c.Close
'TABULADOR
c = Starter.skmt.ExecQuery("SELECT VEINTE, DIEZ, CINCO, DOS, PESO, CENTAVO, TOTAL FROM TABULADOR_MONEDAS")
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN")
f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
d.Position = 0
b.Position = 0
f.Position = 0
If c.RowCount > 0 Then
For i = 0 To c.RowCount - 1
c.Position=i
Dim cmd As DBCommand
Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA"))
Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0))
Dim fechatabulador3 As String = fechatabulador2(1)&"/"&fechatabulador2(2)&"/"&fechatabulador2(0)
cmd.Initialize
cmd.Name = "insert_tabulador_monedas_MARDS"
cmd.Parameters = Array As Object(d.GetString("RUTAA"), b.GetString("ID_ALMACEN"),c.GetString("VEINTE"),c.GetString("DIEZ"),c.GetString("CINCO"),c.GetString("DOS"),c.GetString("PESO"),c.GetString("CENTAVO"),fechatabulador3)
reqManager.ExecuteCommand(cmd , "ins_tabulador_mon")
Next
c.Close
d.Close
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, HVD_CANT, CONSECUTIVO, BCAJAS, CANTC FROM HIST_VENTAS")
' If c.RowCount > 0 Then
' For i=0 To c.RowCount -1 ' For i=0 To c.RowCount -1
' c.Position = i ' c.Position=i
' Log(c.GetString("HVD_CLIENTE")) ' foto1 = c.GetBlob("NV_FOTO")
' Private d4 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("HVD_CLIENTE")}'"$) ' Dim cmd As DBCommand
' d4.Position = 0 ' cmd.Initialize
' Log(d4.GetString("CAT_CL_RUTA")) ' cmd.Name = "insert_reparto_noventa_MARDS_REPG"
' Private d5 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(Sum(PE_CANT),0) AS PE_CANT FROM PEDIDO WHERE PE_CLIENTEOR = '${c.GetString("HVD_CLIENTE")}' AND PE_PROID = '${c.GetString("HVD_PROID")}' AND CONSECUTIVO = '${c.GetString("CONSECUTIVO")}'"$) ' 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)
' d5.Position = 0 ' reqManager.ExecuteCommand(cmd , "inst_noventa")
' Private restacant As String = d5.GetString("PE_CANT") ' Next
' d5.Close ' c.Close
' End If
' d.Position=0
' cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
' d.Close
'
'
' c=Starter.skmt.ExecQuery("SELECT HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID, HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PARCIAL FROM hist_ventas WHERE HVD_RECHAZO = 1 OR HVD_PARCIAL = 1")
' If c.RowCount>0 Then
' For i=0 To c.RowCount -1
' c.Position=i
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "insert_rep_hist_ventas_mards_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.ExecuteCommand(cmd , "inst_noventa")
' Next
' c.Close
' End If
'' pedido
' c=Starter.skmt.ExecQuery("SELECT PE_TIPO, PE_RUTA, PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_CLIENTEOR, PE_CAJAS, PE_BCAJAS, CONSECUTIVO, FECHA_PREV, RUTA_REP, PE_REGALO FROM PEDIDO")
' If c.RowCount>0 Then
' For i=0 To c.RowCount -1
' c.Position=i
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "insert_pedido_REP_MARDS"
' cmd.Parameters = Array As Object(c.GetString("PE_TIPO"), c.GetString("PE_RUTA"), c.GetString("PE_CEDIS"), 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_CLIENTEOR"), c.GetString("PE_CAJAS"), c.GetString("PE_BCAJAS"), c.GetString("CONSECUTIVO"), c.GetString("FECHA_PREV"), c.GetString("RUTA_REP"), c.GetString("PE_REGALO"))
' reqManager.ExecuteCommand(cmd , "ins_pedido_MARIANA")
' Next
' c.Close
' End If
'
'
'' reqManager.Initialize(Me, "http://187.189.244.154:1787") 'Para el servidor de pruebas.
'' c = Starter.skmt.ExecQuery("SELECT * from reparto")
'' If c.RowCount > 0 Then
'' Private folio As String = Subs.hmsKMT
'' For i=0 To c.RowCount -1
'' c.Position=i
'' Dim cmd As DBCommand
'' cmd.Initialize
'' cmd.Name = "insertMardsReparto"
'' cmd.Parameters = Array As Object(folio, C.GetString("REP_FECHA"), C.GetString("REP_CLIENTE"), C.GetString("REP_CLI_ORIG"), C.GetString("REP_PRODID"), C.GetString("REP_PRONOMBRE"), C.GetString("REP_PRODREGISTRO"), C.GetString("REP_CANT"), C.GetString("REP_PRECIO"), C.GetString("REP_COSTO_TOT"), C.GetString("REP_RECHAZO"),ALMACEN,l_ruta.Text)
'' reqManager.ExecuteCommand(cmd , "ins_reparto")
'' Next
'' c.Close
'' End If
''' c = Starter.skmt.ExecQuery("SELECT * from rechazos")
''' If c.RowCount > 0 Then
''' Private folio As String = Subs.hmsKMT
''' For i=0 To c.RowCount -1
''' c.Position=i
''' Dim cmd As DBCommand
''' cmd.Initialize
''' cmd.Name = "insertMardsRechazos"
''' cmd.Parameters = Array As Object(folio, C.GetString("R_FECHA"), C.GetString("R_CLIENTE"), C.GetString("R_CLI_ORIG"), C.GetString("R_PRODID"), C.GetString("R_CANT"), C.GetString("R_RECHAZO"),ALMACEN,l_ruta.Text)
''' reqManager.ExecuteCommand(cmd , "ins_rechazos")
''' Next
''' c.Close
''' End If
''' c = Starter.skmt.ExecQuery("SELECT * from ventas")
''' If c.RowCount > 0 Then
''' Private folio As String = Subs.hmsKMT
''' For i=0 To c.RowCount -1
''' c.Position=i
''' Dim cmd As DBCommand
''' cmd.Initialize
''' cmd.Name = "insertMardsVentas"
''' cmd.Parameters = Array As Object(folio, C.GetString("V_FECHA"), C.GetString("V_CLIENTE"), C.GetString("V_CLI_ORIG"), C.GetString("V_PRODID"), C.GetString("V_CANT"), C.GetString("V_RECHAZO"),ALMACEN,l_ruta.Text)
''' reqManager.ExecuteCommand(cmd , "ins_ventas")
''' Next
''' c.Close
'' End If
'
'
' c=Starter.skmt.ExecQuery("SELECT CLIENTE, USUARIO, FECHA_PUNTEO, LATITUD, LONGITUD, ALMACEN, RUTA_REPARTO, RUTA_PREV, FECHA_PREVENTA, MOTIVO, COMENTARIO,TIPO FROM REPARTO_GEO")
'' Log($"REPARTO_Cliente PENDIENTE: ${c.RowCount}"$)
' If c.RowCount>0 Then
' For i=0 To c.RowCount -1
' c.Position=i
' '
' Dim fecha1() As String = Regex.Split(" ", c.GetString("HVD_FECHA")) ' Dim cmd As DBCommand
' Dim fecha2() As String = Regex.Split("-", fecha1(0)) ' cmd.Initialize
' Dim fecha3 As String = fecha2(2)&"/"&fecha2(1)&"/"&fecha2(0) ' cmd.Name = "insert_REPARTO_MARDS"
' Log(fecha3) ' cmd.Parameters = Array As Object(c.GetString("CLIENTE"), c.GetString("USUARIO"), c.GetString("FECHA_PUNTEO"), c.GetString("LATITUD"), c.GetString("LONGITUD"), c.GetString("ALMACEN"), c.GetString("RUTA_REPARTO"), c.GetString("RUTA_PREV"), c.GetString("FECHA_PREVENTA"), c.GetString("MOTIVO"), c.GetString("COMENTARIO"),c.GetString("TIPO"))
' Dim hora() As String = Regex.Split("\.", fecha1(1)) ' reqManager.ExecuteCommand(cmd , $"ins_REPARTOPendientes_head_${c.GetString("CLIENTE")}"$)
' Log(hora(0))
' '
' Dim sDate, sTime As String
' DateTime.DateFormat = "dd/MM/yyyy"
' DateTime.TimeFormat = "HH:mm:ss"
' sDate = DateTime.Date(DateTime.Now)
' sTime = DateTime.Time(DateTime.Now)
' If c.GetString("HVD_RECHAZOCANT") <> "0" Then
' Log((c.GetString("HVD_RECHAZOCANT")-restacant))
' cmd.Initialize
' cmd.Name = "update_HVD_MAZAPArep2"
' cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),c.GetString("BCAJAS"), c.GetString("CANTC"),sDate& " "& sTime,1, 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"), c.GetString("HVD_CANT"))
' reqManager.ExecuteCommand(cmd, "update_hvd")
' Else
' cmd.Initialize
' cmd.Name = "update_HVD_MAZAPArep2"
' Log( c.GetString("CANTC")& 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")& c.GetString("HVD_CANT"))
' cmd.Parameters = Array As String("",c.GetString("BCAJAS"), c.GetString("CANTC"),"","", 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"), c.GetString("HVD_CANT"))
' reqManager.ExecuteCommand(cmd, "update_hvd")
' End If
' d4.Close
' Next ' Next
' End If ' End If
' c.Close ' c.Close
'
' 'TABULADOR
c = Starter.skmt.ExecQuery("SELECT MIL, QUINIENTOS, DOCIENTOS, CIEN, CINCUENTA, VEINTE FROM TABULADOR_BILLETES") ' c = Starter.skmt.ExecQuery("SELECT VEINTE, DIEZ, CINCO, DOS, PESO, CENTAVO, TOTAL FROM TABULADOR_MONEDAS")
d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA") ' d = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN") ' b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN")
f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS") ' f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
d.Position = 0 ' d.Position = 0
b.Position = 0 ' b.Position = 0
f.Position = 0 ' f.Position = 0
If c.RowCount > 0 Then ' If c.RowCount > 0 Then
For i = 0 To c.RowCount - 1 ' For i = 0 To c.RowCount - 1
c.Position=i ' c.Position=i
Dim cmd As DBCommand ' Dim cmd As DBCommand
Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA")) ' Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA"))
Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0)) ' Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0))
Dim fechatabulador3 As String = fechatabulador2(1)&"/"&fechatabulador2(2)&"/"&fechatabulador2(0) ' Dim fechatabulador3 As String = fechatabulador2(1)&"/"&fechatabulador2(2)&"/"&fechatabulador2(0)
cmd.Initialize ' cmd.Initialize
cmd.Name = "insert_tabulador_billetes_MARDS" ' cmd.Name = "insert_tabulador_monedas_MARDS"
cmd.Parameters = Array As Object(b.GetString("ID_ALMACEN"), d.GetString("RUTAA"),c.GetString("MIL"),c.GetString("QUINIENTOS"),c.GetString("DOCIENTOS"),c.GetString("CIEN"),c.GetString("CINCUENTA"),c.GetString("VEINTE"),fechatabulador3) ' cmd.Parameters = Array As Object(d.GetString("RUTAA"), b.GetString("ID_ALMACEN"),c.GetString("VEINTE"),c.GetString("DIEZ"),c.GetString("CINCO"),c.GetString("DOS"),c.GetString("PESO"),c.GetString("CENTAVO"),fechatabulador3)
reqManager.ExecuteCommand(cmd , "ins_tabulador_bill") ' reqManager.ExecuteCommand(cmd , "ins_tabulador_mon")
Next ' Next
c.Close ' c.Close
d.Close ' d.Close
b.Close ' b.Close
f.Close ' f.Close
End If ' End If
'FIN TABULADOR '
'' c = Starter.skmt.ExecQuery("SELECT IFNULL(HVD_RECHAZOCANT,0) AS HVD_RECHAZOCANT, HVD_CLIENTE, HVD_PROID, HVD_FECHA, HVD_CODPROMO, HVD_NUM_TICKET, HVD_CANT, CONSECUTIVO, BCAJAS, CANTC FROM HIST_VENTAS")
Dim cmd As DBCommand '' If c.RowCount > 0 Then
cmd.Initialize '' For i=0 To c.RowCount -1
cmd.Name = "insert_drop_rep_mards" '' c.Position = i
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO") '' Log(c.GetString("HVD_CLIENTE"))
reqManager.ExecuteCommand(cmd , "inst_drop") '' Private d4 As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO = '${c.GetString("HVD_CLIENTE")}'"$)
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True) '' d4.Position = 0
End Sub '' Log(d4.GetString("CAT_CL_RUTA"))
'' Private d5 As Cursor = Starter.skmt.ExecQuery($"SELECT IFNULL(Sum(PE_CANT),0) AS PE_CANT FROM PEDIDO WHERE PE_CLIENTEOR = '${c.GetString("HVD_CLIENTE")}' AND PE_PROID = '${c.GetString("HVD_PROID")}' AND CONSECUTIVO = '${c.GetString("CONSECUTIVO")}'"$)
'' d5.Position = 0
'' Private restacant As String = d5.GetString("PE_CANT")
'' d5.Close
''
'' 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))
''
'' Dim sDate, sTime As String
'' DateTime.DateFormat = "dd/MM/yyyy"
'' DateTime.TimeFormat = "HH:mm:ss"
'' sDate = DateTime.Date(DateTime.Now)
'' sTime = DateTime.Time(DateTime.Now)
'' If c.GetString("HVD_RECHAZOCANT") <> "0" Then
'' Log((c.GetString("HVD_RECHAZOCANT")-restacant))
'' cmd.Initialize
'' cmd.Name = "update_HVD_MAZAPArep2"
'' cmd.Parameters = Array As String(c.GetString("HVD_RECHAZOCANT"),c.GetString("BCAJAS"), c.GetString("CANTC"),sDate& " "& sTime,1, 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"), c.GetString("HVD_CANT"))
'' reqManager.ExecuteCommand(cmd, "update_hvd")
'' Else
'' cmd.Initialize
'' cmd.Name = "update_HVD_MAZAPArep2"
'' Log( c.GetString("CANTC")& 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")& c.GetString("HVD_CANT"))
'' cmd.Parameters = Array As String("",c.GetString("BCAJAS"), c.GetString("CANTC"),"","", 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"), c.GetString("HVD_CANT"))
'' reqManager.ExecuteCommand(cmd, "update_hvd")
'' End If
'' 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")
' b = Starter.skmt.ExecQuery("SELECT ID_ALMACEN FROM CAT_ALMACEN")
' f = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS")
' d.Position = 0
' b.Position = 0
' f.Position = 0
' If c.RowCount > 0 Then
' For i = 0 To c.RowCount - 1
' c.Position=i
' Dim cmd As DBCommand
' Dim fechatabulador() As String = Regex.Split(" ", f.GetString("HVD_FECHA"))
' Dim fechatabulador2() As String = Regex.Split("-", fechatabulador(0))
' Dim fechatabulador3 As String = fechatabulador2(1)&"/"&fechatabulador2(2)&"/"&fechatabulador2(0)
' cmd.Initialize
' cmd.Name = "insert_tabulador_billetes_MARDS"
' cmd.Parameters = Array As Object(b.GetString("ID_ALMACEN"), d.GetString("RUTAA"),c.GetString("MIL"),c.GetString("QUINIENTOS"),c.GetString("DOCIENTOS"),c.GetString("CIEN"),c.GetString("CINCUENTA"),c.GetString("VEINTE"),fechatabulador3)
' reqManager.ExecuteCommand(cmd , "ins_tabulador_bill")
' Next
' c.Close
' d.Close
' b.Close
' f.Close
' End If
' 'FIN TABULADOR
'
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "insert_drop_rep_mards"
' cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO")
' reqManager.ExecuteCommand(cmd , "inst_drop")
' ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
'End Sub
Sub cargar_Click Sub cargar_Click
Dim pedidodiaanterior As Boolean = False Dim pedidodiaanterior As Boolean = False
@@ -1451,7 +1579,7 @@ Sub JobDone(Job As HttpJob)
' ToastMessageShow("rojo val ok 1 cuantosp." , True) ' ToastMessageShow("rojo val ok 1 cuantosp." , True)
MsgboxAsync("La venta ya fue liquidada","Atención") MsgboxAsync("La venta ya fue liquidada","Atención")
Else Else
envioinfo ' envioinfo
End If End If
Next Next
End If End If
@@ -1807,6 +1935,7 @@ Sub e_ruta_EnterPressed
If RES = DialogResponse.POSITIVE Then If RES = DialogResponse.POSITIVE Then
e_ruta.Text = "" e_ruta.Text = ""
Starter.skmt.ExecNonQuery("delete from PICK_CIEGO") Starter.skmt.ExecNonQuery("delete from PICK_CIEGO")
Starter.skmt.ExecNonQuery("delete from REPARTO_GEO")
Starter.skmt.ExecNonQuery("delete from pedido_cliente") Starter.skmt.ExecNonQuery("delete from pedido_cliente")
Starter.skmt.ExecNonQuery("delete from CHECADO_CHECK") Starter.skmt.ExecNonQuery("delete from CHECADO_CHECK")
Starter.skmt.ExecNonQuery("delete from CHECKLIST2") Starter.skmt.ExecNonQuery("delete from CHECKLIST2")

2
B4A/Mariana_Reparto.b4a
View File

@@ -214,7 +214,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: MARIANA Reparto #ApplicationLabel: MARIANA Reparto
#VersionCode: 1 #VersionCode: 1
#VersionName: 5.02.17 #VersionName: 5.03.10
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

4
B4A/Mariana_Reparto.b4a.meta
View File

@@ -68,7 +68,7 @@ ModuleClosedNodes12=
ModuleClosedNodes13= ModuleClosedNodes13=
ModuleClosedNodes14= ModuleClosedNodes14=
ModuleClosedNodes15= ModuleClosedNodes15=
ModuleClosedNodes16=12 ModuleClosedNodes16=11
ModuleClosedNodes17= ModuleClosedNodes17=
ModuleClosedNodes18= ModuleClosedNodes18=
ModuleClosedNodes19= ModuleClosedNodes19=
@@ -91,6 +91,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9=8,9 ModuleClosedNodes9=8,9
NavigationStack=C_Clientes,todosAVisitar,672,0,C_Clientes,caculaRutaGPS,638,0,MAPA_CLIENTE,MapFragment1_Ready,50,0,C_Cheklist,Class_Globals,0,0,C_Cheklist,b_guardar_Click,559,0,C_Cheklist,mandaPendientes,742,0,Subs,CreateBitmapWithNumber,1019,1,Subs,traerUTAPREV,1016,0,MAPA_RUTAS,MapFragment1_Ready,108,6,Main,Process_Globals,18,0 NavigationStack=C_Cheklist,Class_Globals,0,0,C_Cheklist,ImageView1_Click,360,0,C_Cheklist,StopCamera2,358,0,C_Cheklist,b_foto_Click,350,0,C_Cheklist,Camera1_PictureTaken,332,0,C_Cheklist,Camera1_Ready,233,0,C_Cheklist,B4XPage_CloseRequest,209,0,C_Cheklist,InitializeCamera2,211,0,C_Cheklist,ImageView4_Click,387,0,C_Cheklist,b_guardar_Click,541,0,C_Cheklist,cb_deratras_SelectedIndexChanged,536,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,2,3,4,5,6,7,8,9,10 VisibleModules=1,2,3,4,5,6,7,8,9,10