mirror of
https://github.com/KeymonSoft/Guna_Reparto_Diseno_Viejo.git
synced 2026-04-22 07:00:09 +00:00
- VERSION 4.10.02
- Se agregó el almacen a todas las tablas necesarias y a los queries de envio de información.
This commit is contained in:
Jose Alberto Guerra Ugalde
@@ -91,6 +91,14 @@ Sub Class_Globals
|
||||
Dim cp As Cursor
|
||||
|
||||
Private b_picking As Button
|
||||
Private b_multiAlmacen As Button
|
||||
Private s_almacen2 As Spinner
|
||||
Private et_ruta2 As EditText
|
||||
Private p_multiAlmacen As Panel
|
||||
Private x2 As Int
|
||||
Private idAlmacenExtra As String = ""
|
||||
Private multiAlmacen As Boolean = False
|
||||
' Private m_cargaAlmacen As Map
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -160,6 +168,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
reqManager.ExecuteQuery(cmd , 0, "coords_almacen")
|
||||
End If
|
||||
B4XPages.MainPage.usuario=Subs.dameUsuarioDeDB
|
||||
' m_cargaAlmacen.Initialize
|
||||
End Sub
|
||||
|
||||
Sub B4XPage_Appear
|
||||
@@ -349,7 +358,7 @@ Sub B4XPage_Appear
|
||||
rc.Position = i3
|
||||
' Log($"delete from RECHAZOS where R_CLIENTE = '${rc.GetString("REP_CLIENTE")}' and R_CLI_ORIG = '${rc.GetString("REP_CLI_ORIG")}' and R_RECHAZO = '1' and R_PRODID = '${rc.GetString("REP_PRODID")}'"$)
|
||||
' Starter.skmt.ExecNonQuery($"delete from RECHAZOS where R_CLIENTE = '${rc.GetString("REP_CLIENTE")}' and R_CLI_ORIG = '${rc.GetString("REP_CLI_ORIG")}' and R_RECHAZO = '1' and R_PRODID = '${rc.GetString("REP_PRODID")}'"$)
|
||||
Starter.skmt.ExecNonQuery($"insert into RECHAZOS(R_FECHA, R_CLIENTE, R_CLI_ORIG, R_PRODID, R_CANT, R_RECHAZO, R_PRECIO) select REP_FECHA, REP_CLIENTE, REP_CLI_ORIG, REP_PRODID, REP_CANT, REP_RECHAZO, REP_PRECIO from REPARTO where REP_CLIENTE = '${rc.GetString("REP_CLIENTE")}' and REP_CLI_ORIG = '${rc.GetString("REP_CLI_ORIG")}' and REP_PRODID = '${rc.GetString("REP_PRODID")}' and REP_RECHAZO = '1' and REP_CANT > 0"$)
|
||||
Starter.skmt.ExecNonQuery($"insert into RECHAZOS(R_FECHA, R_CLIENTE, R_CLI_ORIG, R_PRODID, R_CANT, R_RECHAZO, R_PRECIO, R_IDALMACEN) select REP_FECHA, REP_CLIENTE, REP_CLI_ORIG, REP_PRODID, REP_CANT, REP_RECHAZO, REP_PRECIO, REP_IDALMACEN from REPARTO where REP_CLIENTE = '${rc.GetString("REP_CLIENTE")}' and REP_CLI_ORIG = '${rc.GetString("REP_CLI_ORIG")}' and REP_PRODID = '${rc.GetString("REP_PRODID")}' and REP_RECHAZO = '1' and REP_CANT > 0"$)
|
||||
Next
|
||||
End If
|
||||
Private vc As Cursor = Starter.skmt.ExecQuery($"select * from REPARTO where REP_RECHAZO = "0" and REP_CANT > 0"$)
|
||||
@@ -360,7 +369,7 @@ Sub B4XPage_Appear
|
||||
vc.Position = i4
|
||||
' Log($"delete from VENTAS where V_CLIENTE = '${vc.GetString("REP_CLIENTE")}' and V_CLI_ORIG = '${vc.GetString("REP_CLI_ORIG")}' and V_RECHAZO = '1' and V_PRODID = '${vc.GetString("REP_PRODID")}'"$)
|
||||
' Starter.skmt.ExecNonQuery($"delete from VENTAS where V_CLIENTE = '${vc.GetString("REP_CLIENTE")}' and V_CLI_ORIG = '${vc.GetString("REP_CLI_ORIG")}' and V_RECHAZO = '0' and V_PRODID = '${vc.GetString("REP_PRODID")}'"$)
|
||||
Starter.skmt.ExecNonQuery($"insert into VENTAS(V_FECHA, V_CLIENTE, V_CLI_ORIG, V_PRODID, V_CANT, V_RECHAZO, V_PRECIO) select REP_FECHA, REP_CLIENTE, REP_CLI_ORIG, REP_PRODID, REP_CANT, REP_RECHAZO, REP_PRECIO from REPARTO where REP_CLIENTE = '${vc.GetString("REP_CLIENTE")}' and REP_CLI_ORIG = '${vc.GetString("REP_CLI_ORIG")}' and REP_PRODID = '${vc.GetString("REP_PRODID")}' and REP_RECHAZO = '0' and REP_CANT > 0"$)
|
||||
Starter.skmt.ExecNonQuery($"insert into VENTAS(V_FECHA, V_CLIENTE, V_CLI_ORIG, V_PRODID, V_CANT, V_RECHAZO, V_PRECIO, V_IDALMACEN) select REP_FECHA, REP_CLIENTE, REP_CLI_ORIG, REP_PRODID, REP_CANT, REP_RECHAZO, REP_PRECIO, REP_IDALMACEN from REPARTO where REP_CLIENTE = '${vc.GetString("REP_CLIENTE")}' and REP_CLI_ORIG = '${vc.GetString("REP_CLI_ORIG")}' and REP_PRODID = '${vc.GetString("REP_PRODID")}' and REP_RECHAZO = '0' and REP_CANT > 0"$)
|
||||
Next
|
||||
End If
|
||||
Starter.ENVIA_ULTIMA_GPS
|
||||
@@ -451,68 +460,65 @@ 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
|
||||
' 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.ExecuteQuery(cmd , 0, "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")
|
||||
' 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"), C.GetString("NV_IDALMACEN"), l_ruta.Text)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
|
||||
' Next
|
||||
' c.Close
|
||||
' End If
|
||||
' d.Position=0
|
||||
' cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
|
||||
' d.Close
|
||||
c=Starter.skmt.ExecQuery("SELECT * 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
|
||||
c.Position = i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_rep_hist_ventas_GUNA_REPG2"
|
||||
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")
|
||||
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"), C.GetString("HVD_IDALMACEN"))
|
||||
reqManager.ExecuteCommand(cmd , "inst_noventa")
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
' pedido
|
||||
c=Starter.skmt.ExecQuery("SELECT PE_CEDIS, PE_COSTO_TOT, PE_COSTOU, PE_CANT, PE_PRONOMBRE, PE_PROID, PE_CLIENTE, PE_FECHA, PE_USUARIO, PE_COSTO_SIN, PE_RUTA, 1 as PE_DESC 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_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")
|
||||
Next
|
||||
c.Close
|
||||
End If
|
||||
' c=Starter.skmt.ExecQuery("SELECT *, 1 as PE_DESC 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_REPG"
|
||||
' cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),C.GetString("PE_IDALMACEN"),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")
|
||||
' 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
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insertGUNAReparto2"
|
||||
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"))
|
||||
cmd.Name = "insertGUNAReparto3"
|
||||
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"), C.GetString("REP_IDALMACEN"))
|
||||
reqManager.ExecuteCommand(cmd , "ins_reparto")
|
||||
Next
|
||||
c.Close
|
||||
@@ -525,7 +531,7 @@ Sub Subir_Click
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insertGUNARechazos2"
|
||||
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"))
|
||||
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"), C.GetString("R_IDALMACEN"))
|
||||
reqManager.ExecuteCommand(cmd , "ins_rechazos")
|
||||
Next
|
||||
c.Close
|
||||
@@ -538,7 +544,8 @@ Sub Subir_Click
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insertGUNAVentas2"
|
||||
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"))
|
||||
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"), C.GetString("V_IDALMACEN"))
|
||||
' Log($"${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")},${C.GetString("V_IDALMACEN")}"$)
|
||||
reqManager.ExecuteCommand(cmd , "ins_ventas")
|
||||
Next
|
||||
c.Close
|
||||
@@ -553,7 +560,7 @@ Sub Subir_Click
|
||||
f.Position = 0
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position=i
|
||||
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))
|
||||
@@ -598,8 +605,8 @@ Sub Subir_Click
|
||||
End Sub
|
||||
|
||||
Sub cargar_Click
|
||||
|
||||
|
||||
' m_cargaAlmacen.Initialize
|
||||
p_multiAlmacen.Visible = False
|
||||
Dim pedidodiaanterior As Boolean = False
|
||||
Dim cp As Cursor = Starter.skmt.ExecQuery("select * from NOVENTA")
|
||||
If cp.RowCount > 0 Then
|
||||
@@ -620,26 +627,26 @@ Sub cargar_Click
|
||||
End If
|
||||
End If
|
||||
If Not (pedidodiaanterior) Then
|
||||
Log("CUMPLE")
|
||||
Log("CUMPLE")
|
||||
EJECUTANDO = 1
|
||||
reqs.Initialize
|
||||
TOPE = 0
|
||||
LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red)
|
||||
reqManager.Initialize(Me, B4XPages.MainPage.server)
|
||||
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_drop_rep_GUNA2"
|
||||
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA")
|
||||
reqManager.ExecuteCommand(cmd , "inst_drop")
|
||||
' reqs.Add("inst_noventa")
|
||||
' reqs.Add("inst_noventa")
|
||||
|
||||
Starter.skmt.ExecNonQuery("delete from kmt_info")
|
||||
Starter.skmt.ExecNonQuery("delete from cod_result")
|
||||
Starter.skmt.ExecNonQuery("delete from hist_gest")
|
||||
Starter.skmt.ExecNonQuery("delete from CAT_DETALLES_PAQ")
|
||||
Starter.skmt.ExecNonQuery("delete from telefonos")
|
||||
' Starter.skmt.ExecNonQuery("delete from VENTAS")
|
||||
' Starter.skmt.ExecNonQuery("delete from VENTAS")
|
||||
Starter.skmt.ExecNonQuery("delete from PUNTEO_GPS")
|
||||
If l_ruta.Text = "0" Then '
|
||||
Log("********************* No hay ruta, BORRAMOS TODO")
|
||||
@@ -657,21 +664,13 @@ Sub cargar_Click
|
||||
c=Starter.skmt.ExecQuery("select usuario from usuarioa")
|
||||
c.Position = 0
|
||||
usuario = c.GetString("USUARIO")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_punteo_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN, ALMACEN,ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "punteo")
|
||||
Log($"Pedimos Punteo"$)
|
||||
reqs.Add("punteo")
|
||||
|
||||
If l_ruta.Text = "0" Then
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_almacen_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
|
||||
Log($"Pedimos gunaprod - ${ALMACEN}, ${e_ruta.text}"$)
|
||||
reqs.Add("gunaprod")
|
||||
Log("******************* CARGAMOS RUTA")
|
||||
cargaGeneral
|
||||
|
||||
If multiAlmacen Then
|
||||
Log(multiAlmacen)
|
||||
Log("==================== CARGAMOS SEGUNDO ALMACEN ======================")
|
||||
cargaAlmacen2
|
||||
End If
|
||||
|
||||
cmd.Initialize
|
||||
@@ -680,115 +679,102 @@ Sub cargar_Click
|
||||
reqManager.ExecuteQuery(cmd , 0, "conversion")
|
||||
reqs.Add("conversion")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cliente_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN,ALMACEN,e_ruta.text, ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
|
||||
Log($"Pedimos kmt_datos"$)
|
||||
reqs.Add("kmt_datos")
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_picking_reparto"
|
||||
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,ALMACEN)
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "p_reparto")
|
||||
Log($"Pedimos p_reparto"$)
|
||||
' reqs.Add("p_reparto")
|
||||
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ventad_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
|
||||
Log($"Pedimos hist_datos"$)
|
||||
reqs.Add("hist_datos")
|
||||
|
||||
If ALMACEN = "32" Then
|
||||
ALMACEN = "33"
|
||||
cargo = 2
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_punteo_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN, ALMACEN,ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "punteo")
|
||||
reqs.Add("punteo")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_almacen_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
|
||||
reqs.Add("gunaprod")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cliente_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN,ALMACEN,e_ruta.text, ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
|
||||
reqs.Add("kmt_datos")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ventad_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
|
||||
reqs.Add("hist_datos")
|
||||
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
|
||||
End If
|
||||
|
||||
If ALMACEN = "12" Then
|
||||
ALMACEN = "72"
|
||||
cargo = 2
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_punteo_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN, ALMACEN,ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "punteo")
|
||||
reqs.Add("punteo")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_almacen_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
|
||||
reqs.Add("gunaprod")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cliente_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN,ALMACEN,e_ruta.text, ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
|
||||
reqs.Add("kmt_datos")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ventad_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
|
||||
reqs.Add("hist_datos")
|
||||
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
|
||||
End If
|
||||
|
||||
If ALMACEN = "66" Then
|
||||
ALMACEN = "67"
|
||||
cargo = 2
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_punteo_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN, ALMACEN,ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "punteo")
|
||||
reqs.Add("punteo")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_almacen_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
|
||||
reqs.Add("gunaprod")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cliente_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN,ALMACEN,e_ruta.text, ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
|
||||
reqs.Add("kmt_datos")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ventad_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
|
||||
reqs.Add("hist_datos")
|
||||
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
|
||||
End If
|
||||
' If ALMACEN = "32" Then
|
||||
' ALMACEN = "33"
|
||||
' cargo = 2
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_punteo_guna_re_REPG2"
|
||||
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN, ALMACEN, ALMACEN)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "punteo")
|
||||
' reqs.Add("punteo")
|
||||
'
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_almacen_guna_re_REPG2"
|
||||
' cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN, ALMACEN)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "gunaprod")
|
||||
' reqs.Add("gunaprod")
|
||||
'
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_cliente_guna_re_REPG2"
|
||||
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN, ALMACEN, e_ruta.text, ALMACEN, ALMACEN)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
|
||||
' Log($"Pedimos kmt_datos"$)
|
||||
' reqs.Add("kmt_datos")
|
||||
'
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_ventad_guna_re_REPG2"
|
||||
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "hist_datos")
|
||||
' reqs.Add("hist_datos")
|
||||
' 'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
|
||||
' End If
|
||||
'
|
||||
' If ALMACEN = "12" Then
|
||||
' ALMACEN = "72"
|
||||
' cargo = 2
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_punteo_guna_re_REPG2"
|
||||
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN, ALMACEN, ALMACEN)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "punteo")
|
||||
' reqs.Add("punteo")
|
||||
'
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_almacen_guna_re_REPG2"
|
||||
' cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN, ALMACEN)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "gunaprod")
|
||||
' reqs.Add("gunaprod")
|
||||
'
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_cliente_guna_re_REPG2"
|
||||
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN, ALMACEN, e_ruta.text, ALMACEN, ALMACEN)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
|
||||
' Log($"Pedimos kmt_datos"$)
|
||||
' reqs.Add("kmt_datos")
|
||||
'
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_ventad_guna_re_REPG2"
|
||||
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "hist_datos")
|
||||
' reqs.Add("hist_datos")
|
||||
' 'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
|
||||
' End If
|
||||
'
|
||||
' If ALMACEN = "66" Then
|
||||
' ALMACEN = "67"
|
||||
' cargo = 2
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_punteo_guna_re_REPG2"
|
||||
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN, ALMACEN, ALMACEN)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "punteo")
|
||||
' reqs.Add("punteo")
|
||||
'
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_almacen_guna_re_REPG2"
|
||||
' cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN, ALMACEN)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "gunaprod")
|
||||
' reqs.Add("gunaprod")
|
||||
'
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_cliente_guna_re_REPG2"
|
||||
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN, ALMACEN, e_ruta.text, ALMACEN, ALMACEN)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
|
||||
' Log($"Pedimos kmt_datos"$)
|
||||
' reqs.Add("kmt_datos")
|
||||
'
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_ventad_guna_re_REPG2"
|
||||
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "hist_datos")
|
||||
' reqs.Add("hist_datos")
|
||||
' 'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
|
||||
' End If
|
||||
|
||||
' c=Starter.skmt.ExecQuery("SELECT REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA FROM REPARTO")
|
||||
' If c.RowCount > 0 Then
|
||||
@@ -831,16 +817,49 @@ Sub cargar_Click
|
||||
ToastMessageShow("Se actualizarán los datos, este proceso podria tardar hasta un minuto, gracias" , True)
|
||||
ProgressDialogShow2("Descargando rutas, espere un momento.", False)
|
||||
If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a Internet", "Revisa tu conexión")
|
||||
|
||||
|
||||
Else
|
||||
Log("XXXX")
|
||||
Log("HAY VENTA DEL DIA ANTERIOR.")
|
||||
MsgboxAsync("Para poder cargar día no puedes tener venta del día anterior. Por favor haz FIN DIA e intenta nuevamente.","Atención")
|
||||
End If
|
||||
|
||||
et_ruta2.Text = ""
|
||||
End Sub
|
||||
|
||||
'Carga los datos generales de la ruta.
|
||||
Sub cargaGeneral
|
||||
Log($"****** ALMACEN: ${ALMACEN}"$)
|
||||
If l_ruta.Text = "0" Then
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_almacen_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
|
||||
LogColor($"Pedimos gunaprod - ${ALMACEN}, ${e_ruta.text}"$, Colors.red)
|
||||
reqs.Add("gunaprod")
|
||||
End If
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_punteo_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN, ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "punteo")
|
||||
LogColor($"Pedimos punteo - ${ALMACEN}, ${e_ruta.text}"$, Colors.red)
|
||||
reqs.Add("punteo")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cliente_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN, ALMACEN, e_ruta.text, ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
|
||||
LogColor($"Pedimos kmt_datos - ${ALMACEN}, ${e_ruta.text}"$, Colors.red)
|
||||
reqs.Add("kmt_datos")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ventad_guna_re_REPG2"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, $"hist_datos_${ALMACEN}"$)
|
||||
LogColor($"Pedimos hist_datos - ${ALMACEN}, ${e_ruta.text}"$, Colors.red)
|
||||
reqs.Add("hist_datos")
|
||||
End Sub
|
||||
|
||||
Sub JobDone(Job As HttpJob)
|
||||
Log("JobDone Principal: " & Job.Success)
|
||||
' Private r As DBResult = reqManager.HandleJob(Job)
|
||||
If Job.Success = False Then
|
||||
LogColor("** " & Job.Tag & " Error: " & Job.ErrorMessage, Colors.Red) ' Mod by CHV - 211023
|
||||
@@ -850,6 +869,7 @@ Sub JobDone(Job As HttpJob)
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag = "kmt_datos" Then 'query tag
|
||||
' m_cargaAlmacen.Put(ALMACEN & "-Clientes", result.Rows.Size)
|
||||
If reqs.IndexOf("kmt_datos") > -1 Then
|
||||
reqs.RemoveAt(reqs.IndexOf("kmt_datos"))
|
||||
' Log(reqs.Size)
|
||||
@@ -875,8 +895,13 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim CAT_CL_LONG As String = records(result.Columns.Get("CAT_CL_LONG"))
|
||||
Dim CAT_CL_LAT As String = records(result.Columns.Get("CAT_CL_LAT"))
|
||||
Dim CAT_CL_BCREDITO As String = records(result.Columns.Get("CAT_CL_BCREDITO"))
|
||||
Dim CAT_CL_IDALMACEN As String = records(result.Columns.Get("CAT_CL_IDALMACEN"))
|
||||
' Log(" ++ insert into kmt_info: "&CAT_CL_RUTA&","&CAT_CL_CODIGO&","&CAT_CL_RUTA&","&CAT_CL_NOMBRE)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO, gestion,SECUENCIA) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO,"0"))
|
||||
' Log(records(result.Columns.Get("CAT_CL_IDALMACEN")))
|
||||
If Not(CAT_CL_CODIGO.StartsWith("N")) Then
|
||||
' Log($"INSERT ${CAT_CL_CODIGO}"$)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO, gestion, SECUENCIA, CAT_CL_IDALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?,?)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_BCREDITO,"0",CAT_CL_IDALMACEN))
|
||||
End If
|
||||
Next
|
||||
Starter.skmt.TransactionSuccessful
|
||||
Starter.skmt.EndTransaction
|
||||
@@ -893,6 +918,7 @@ Sub JobDone(Job As HttpJob)
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag = "gunaprod" Then 'query tag
|
||||
' m_cargaAlmacen.Put(ALMACEN & "-Prods", result.Rows.Size)
|
||||
If reqs.IndexOf("gunaprod") > -1 Then
|
||||
reqs.RemoveAt(reqs.IndexOf("gunaprod"))
|
||||
Log(reqs.Size)
|
||||
@@ -1024,8 +1050,6 @@ Sub JobDone(Job As HttpJob)
|
||||
Starter.skmt.EndTransaction
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
@@ -1055,14 +1079,15 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag = "hist_datos" Then 'query tag
|
||||
If result.Tag.As(String).StartsWith("hist_datos") Then 'query tag
|
||||
If reqs.IndexOf("hist_datos") > -1 Then
|
||||
reqs.RemoveAt(reqs.IndexOf("hist_datos"))
|
||||
' Log(reqs.Size)
|
||||
End If
|
||||
Private elAlmacen0() As String = Regex.Split("_", result.Tag)
|
||||
Private elAlmacen As String = elAlmacen0(2)
|
||||
Log(l_ruta.text)
|
||||
Log($"******** Insertamos HV - ${result.Rows.Size}"$)
|
||||
Starter.skmt.BeginTransaction
|
||||
@@ -1078,18 +1103,18 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim HVD_NUM_REGISTRO As String = records(result.Columns.Get("HVD_NUM_REGISTRO"))
|
||||
Dim HVD_RECHAZO As String = records(result.Columns.Get("HVD_RECHAZO"))
|
||||
' Log(" ++ insert into HIST_VENTAS: "&HVD_CLIENTE&","&HVD_PRONOMBRE&","&HVD_CANT)
|
||||
|
||||
' Log($"**** ALMACEN DE HIST_VENTAS: ${elAlmacen}"$)
|
||||
If l_ruta.Text = "0" Then 'Si no hay ruta cargada, guardamos todos los clientes
|
||||
Log("No hay ruta, guardamos todos")
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS2(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO))
|
||||
' Log("No hay ruta, guardamos todos")
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL,HVD_IDALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,0,0,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, elAlmacen))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS2(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL,HVD_IDALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,0,0,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, elAlmacen))
|
||||
Else 'Si ya hay ruta cargada, solo guardamos los clientes nuevos.
|
||||
' Log("Hay ruta, guardamos los nuevos")
|
||||
Private tc As Cursor = Starter.skmt.ExecQuery($"select HVD_CLIENTE from HIST_VENTAS where HVD_CLIENTE = '${HVD_CLIENTE}' and HVD_PROID = '${HVD_PROID}'"$)
|
||||
If tc.RowCount = 0 Then
|
||||
Log($"Guardamos ${HVD_CLIENTE}"$)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS2(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO))
|
||||
' Log($"Guardamos ${HVD_CLIENTE}"$)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL,HVD_IDALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,0,0,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, elAlmacen))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS2(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL,HVD_IDALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,0,0,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, elAlmacen))
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
@@ -1314,6 +1339,28 @@ Sub JobDone(Job As HttpJob)
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
|
||||
If result.Tag = "agrupaAlmacen" Then 'query tag
|
||||
If result.Rows.Size > 1 Then
|
||||
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ALMACEN_AGRUPADOR(ID TEXT, DESCRIPCION TEXT)")
|
||||
Starter.skmt.ExecNonQuery($"delete from CAT_ALMACEN_AGRUPADOR"$)
|
||||
b_multiAlmacen.Visible = True
|
||||
s_almacen2.Clear
|
||||
s_almacen2.Add("-= Seleccione =-")
|
||||
For Each records() As Object In result.Rows
|
||||
' For Each k As String In result.Columns.Keys
|
||||
' Log(k & ": " & records(result.Columns.Get(k)))
|
||||
' Next
|
||||
If ALMACEN <> records(result.Columns.Get("CAT_AL_ID")) Then
|
||||
s_almacen2.Add(records(result.Columns.Get("CAT_AL_DESC")))
|
||||
Starter.skmt.ExecNonQuery($"insert into CAT_ALMACEN_AGRUPADOR (ID, DESCRIPCION) values ('${records(result.Columns.Get("CAT_AL_ID"))}', '${records(result.Columns.Get("CAT_AL_DESC"))}')"$)
|
||||
End If
|
||||
s_almacen2.TextSize = 13
|
||||
s_almacen2.DropdownTextColor = Colors.RGB(6, 137, 0)
|
||||
' s_almacen2.TextColor = Colors.Green
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
@@ -1332,12 +1379,12 @@ Sub JobDone(Job As HttpJob)
|
||||
ProgressDialogHide
|
||||
' Log(reqs.size)
|
||||
' Log("Terminamos lo descarga de ruta!")
|
||||
|
||||
c = Starter.skmt.ExecQuery("SELECT * FROM CHECAR")
|
||||
If c.RowCount = 0 Then
|
||||
Starter.skmt.ExecNonQuery2("insert into CHECAR (MOSTRAR) VALUES(?)", Array As String("0"))
|
||||
End If
|
||||
End If
|
||||
' LogColor(m_cargaAlmacen, Colors.red)
|
||||
End Sub
|
||||
|
||||
Private Sub B4XPage_CloseRequest As ResumableSub
|
||||
@@ -1354,6 +1401,8 @@ End Sub
|
||||
|
||||
Sub connecta_Click
|
||||
LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red)
|
||||
cargar.Enabled = True
|
||||
multiAlmacen = False
|
||||
If Not(IsConnectedToInternet) Then MsgboxAsync("No hay conexión a conexión a Internet", "Revisa tu conexión")
|
||||
If e_ruta.Text <> "" Then
|
||||
imei = "" 'p.GetDeviceId
|
||||
@@ -1373,6 +1422,11 @@ Sub connecta_Click
|
||||
Starter.skmt.ExecNonQuery("DELETE FROM RUTAA")
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES (?)", Array As Object (e_ruta.TEXT))
|
||||
B4XPages.MainPage.rutaPreventa = e_ruta.TEXT
|
||||
|
||||
cmd.Name = "selectAgrupadorAlmacen"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
Log($"${ALMACEN}, ${e_ruta.text}, ${imei}"$)
|
||||
reqManager.ExecuteQuery(cmd , 0, "agrupaAlmacen")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -1537,8 +1591,65 @@ Private Sub b_tabulador_Click
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub b_picking_Click
|
||||
B4XPages.ShowPage("picking")
|
||||
End Sub
|
||||
|
||||
Private Sub b_multiAlmacen_Click
|
||||
s_almacen2.SelectedIndex = 0
|
||||
et_ruta2.Text = ""
|
||||
If p_multiAlmacen.Visible Then
|
||||
p_multiAlmacen.Visible = False
|
||||
cargar.Enabled = True
|
||||
multiAlmacen = False
|
||||
Else
|
||||
p_multiAlmacen.Visible = True
|
||||
cargar.Enabled = False
|
||||
multiAlmacen = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub s_almacen2_ItemClick (Position As Int, Value As Object)
|
||||
Private ga As ResultSet = Starter.skmt.ExecQuery($"select * from CAT_ALMACEN_AGRUPADOR where descripcion = '${Value}'"$)
|
||||
Do While ga.NextRow
|
||||
idAlmacenExtra = ga.GetString("ID")
|
||||
Loop
|
||||
Log($"${Value}, ${idAlmacenExtra}"$)
|
||||
If Value <> "-= Seleccione =-" And et_ruta2.Text <> "" Then
|
||||
cargar.Enabled = True
|
||||
Else
|
||||
cargar.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub et_ruta2_TextChanged (Old As String, New As String)
|
||||
If s_almacen2.SelectedItem <> "-= Seleccione =-" And New <> "" Then
|
||||
cargar.Enabled = True
|
||||
Else
|
||||
cargar.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub l_ruta2_click
|
||||
x2 = x2 + 1
|
||||
Log($"|${x2}|"$)
|
||||
If x2 > 2 Then
|
||||
x2 = 0
|
||||
cargaAlmacen2
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub cargaAlmacen2
|
||||
Log("=================================================")
|
||||
Log("============ CARGAMOS ALMACEN 2 ===============")
|
||||
Log("=================================================")
|
||||
Private almacenPrincipal = ALMACEN
|
||||
Private rutaPrincipal = e_ruta.text
|
||||
ALMACEN = idAlmacenExtra
|
||||
e_ruta.text = et_ruta2.text
|
||||
l_ruta.Text = "0"
|
||||
cargaGeneral
|
||||
Sleep(2000)
|
||||
ALMACEN = almacenPrincipal
|
||||
e_ruta.text = rutaPrincipal
|
||||
End Sub
|
||||
Reference in New Issue
Block a user