mirror of
https://github.com/KeymonSoft/Mariana-Reparto-V5.git
synced 2026-04-17 12:56:11 +00:00
Se agrega que borre tabla que no dejaba hacer el envio
This commit is contained in:
cvaldes1201
@@ -668,229 +668,357 @@ Sub trabajar_Click
|
||||
End Sub
|
||||
|
||||
Sub Subir_Click
|
||||
If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión")
|
||||
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
|
||||
c.Position = 0
|
||||
usuario = c.GetString("USUARIO")
|
||||
c.Close
|
||||
envioinfo
|
||||
If Not(IsConnectedToInternet) Then
|
||||
|
||||
MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión")
|
||||
Else
|
||||
|
||||
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.Name = "select_estatus_MAZAPA"
|
||||
' cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "estatus")
|
||||
End Sub
|
||||
|
||||
Sub envioinfo
|
||||
|
||||
|
||||
|
||||
' 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
|
||||
|
||||
|
||||
' 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
|
||||
'Sub envioinfo
|
||||
'
|
||||
'
|
||||
'
|
||||
' ' 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
|
||||
' Log(c.GetString("HVD_CLIENTE"))
|
||||
' 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
|
||||
' 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
|
||||
' 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 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 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")}"$)
|
||||
'
|
||||
' 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
|
||||
'
|
||||
' '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
|
||||
'' c.Position = i
|
||||
'' Log(c.GetString("HVD_CLIENTE"))
|
||||
'' 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
|
||||
'' 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
|
||||
Dim pedidodiaanterior As Boolean = False
|
||||
@@ -1451,7 +1579,7 @@ Sub JobDone(Job As HttpJob)
|
||||
' ToastMessageShow("rojo val ok 1 cuantosp." , True)
|
||||
MsgboxAsync("La venta ya fue liquidada","Atención")
|
||||
Else
|
||||
envioinfo
|
||||
' envioinfo
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
@@ -1807,6 +1935,7 @@ Sub e_ruta_EnterPressed
|
||||
If RES = DialogResponse.POSITIVE Then
|
||||
e_ruta.Text = ""
|
||||
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 CHECADO_CHECK")
|
||||
Starter.skmt.ExecNonQuery("delete from CHECKLIST2")
|
||||
|
||||
@@ -214,7 +214,7 @@ Version=12.8
|
||||
#Region Project Attributes
|
||||
#ApplicationLabel: MARIANA Reparto
|
||||
#VersionCode: 1
|
||||
#VersionName: 5.02.17
|
||||
#VersionName: 5.03.10
|
||||
'SupportedOrientations possible values: unspecified, landscape or portrait.
|
||||
#SupportedOrientations: portrait
|
||||
#CanInstallToExternalStorage: False
|
||||
|
||||
@@ -68,7 +68,7 @@ ModuleClosedNodes12=
|
||||
ModuleClosedNodes13=
|
||||
ModuleClosedNodes14=
|
||||
ModuleClosedNodes15=
|
||||
ModuleClosedNodes16=12
|
||||
ModuleClosedNodes16=11
|
||||
ModuleClosedNodes17=
|
||||
ModuleClosedNodes18=
|
||||
ModuleClosedNodes19=
|
||||
@@ -91,6 +91,6 @@ ModuleClosedNodes6=
|
||||
ModuleClosedNodes7=
|
||||
ModuleClosedNodes8=
|
||||
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
|
||||
VisibleModules=1,2,3,4,5,6,7,8,9,10
|
||||
|
||||
Reference in New Issue
Block a user