mirror of
https://github.com/KeymonSoft/Marquez.git
synced 2026-04-21 14:39:16 +00:00
aun no se termina estamos viendo abonos
This commit is contained in:
cvaldes1201
@@ -213,6 +213,7 @@ Sub Class_Globals
|
||||
Private L_ABORDO As Label
|
||||
Private L_VENTA As Label
|
||||
Private L_PREVENTA As Label
|
||||
Private p_abordo As Panel
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -529,9 +530,9 @@ Sub B4XPage_Appear
|
||||
End If
|
||||
|
||||
If l_ruta.Text = "0" Then
|
||||
b_abordo.Visible = False
|
||||
p_abordo.Visible = False
|
||||
Else
|
||||
b_abordo.Visible = True
|
||||
p_abordo.Visible = True
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@@ -584,7 +585,7 @@ Sub Subir_Click
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "UPDATE_INTMEX_ACTUAL2_GPS"
|
||||
cmd.Name = "UPDATE_MARQUEZ_ACTUAL2_GPS"
|
||||
cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,c.GetString("hglat"),c.GetString("hglon"),batterystatus(0),LPT, STEYIN, STEYOUT,ALMACEN,l_ruta.Text )
|
||||
reqManager.ExecuteCommand(cmd , "update_gps")
|
||||
Next
|
||||
@@ -599,7 +600,7 @@ Sub Subir_Click
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_QR_2_INTMEX"
|
||||
cmd.Name = "insert_QR_2_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(C.GetString("CODIGOKMTS"),C.GetString("CODIGOB"),C.GetString("LON"),C.GetString("LAT"),ALMACEN,l_ruta.text )
|
||||
reqManager.ExecuteCommand(cmd , "ins_QR")
|
||||
Next
|
||||
@@ -615,8 +616,8 @@ Sub Subir_Click
|
||||
foto1 = c.GetBlob("CAT_CL_FOTO")
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_QR_INTMEX"
|
||||
cmd.Parameters = Array As Object(C.GetString("CAT_CL_NUM_SERIEFISICO"),C.GetString("CAT_CL_CODIGO"),C.GetString("CAT_CL_LONG"),C.GetString("CAT_CL_LAT"),ALMACEN,l_ruta.text, foto1 )
|
||||
cmd.Name = "insert_QR_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(C.GetString("CAT_CL_NUM_SERIEFISICO"),C.GetString("CAT_CL_CODIGO"),C.GetString("CAT_CL_LONG"),C.GetString("CAT_CL_LAT"),ALMACEN,l_ruta.text )
|
||||
reqManager.ExecuteCommand(cmd , "ins_QR")
|
||||
Next
|
||||
End If
|
||||
@@ -645,7 +646,7 @@ Sub Subir_Click
|
||||
c.Position = i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_pedidos_INTMEX"
|
||||
cmd.Name = "insert_pedidos_MARQUEZ"
|
||||
PCNoArts = c.GetString("PC_NOART")
|
||||
PCMonto = c.GetString("PC_MONTO")
|
||||
cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), c.GetString("PC_FECHA"), c.GetString("PC_USER"), c.GetString("PC_NOART"), c.GetString("PC_MONTO"), c.GetString("PC_LON"), c.GetString("PC_LAT"), ALMACEN, l_ruta.text, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"))
|
||||
@@ -666,8 +667,9 @@ Sub Subir_Click
|
||||
c.Position = i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_pedido2_INTMEX" 'CON TOTALES INCLUIDOS
|
||||
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"),c.GetString("PE_FOLIO"), PCNoArts, PCMonto)
|
||||
cmd.Name = "insert_pedido2_MARQUEZ" 'CON TOTALES INCLUIDOS
|
||||
Log(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")&", "&c.GetString("PE_FOLIO")&", "& ALMACEN)
|
||||
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"),c.GetString("PE_FOLIO"))
|
||||
reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}"$)
|
||||
' Log($">>>> INS_PEDIDO= ${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")}, ${c.GetString("PE_FOLIO")}, ${PCNoArts}, ${PCMonto}"$)
|
||||
' cmd.Name = "insert_pedido_INTMEX" ' SIN TOTALES INCLUIDOS
|
||||
@@ -688,7 +690,7 @@ Sub Subir_Click
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_noventa_INTMEX"
|
||||
cmd.Name = "insert_noventa_MARQUEZ"
|
||||
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
|
||||
@@ -705,7 +707,7 @@ Sub Subir_Click
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_geocerca_INTMEX"
|
||||
cmd.Name = "insert_geocerca_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(C.GetString("HGCLIENTE"),C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON"))
|
||||
reqManager.ExecuteCommand(cmd , "inst_noventa")
|
||||
Next
|
||||
@@ -719,7 +721,7 @@ Sub Subir_Click
|
||||
c.Position=i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_face_like_INTMEX"
|
||||
cmd.Name = "insert_face_like_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(C.GetString("HFCLIENTE"),C.GetString("HFALIAS"),C.GetString("HFRUTA"),C.GetString("HFALMACEN"))
|
||||
reqManager.ExecuteCommand(cmd , "inst_noventa")
|
||||
Next
|
||||
@@ -735,27 +737,27 @@ Sub Subir_Click
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name ="insert_drop_INTMEX_2"
|
||||
cmd.Name ="insert_drop_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(usuario,l_ruta.Text,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",ALMACEN)
|
||||
reqManager.ExecuteCommand(cmd , "inst_noventa")
|
||||
img2.Visible =True
|
||||
PORCENTAJE = Round(100/ (cuantos_noventa + cuantos_pedido + cuantos_pedidosc + 1))
|
||||
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
|
||||
|
||||
'CUESTIONARIOS
|
||||
c = B4XPages.MainPage.skmt.ExecQuery($"select * from cuestionario"$)
|
||||
Private rutaActual As String = Subs.traeRuta
|
||||
If c.RowCount > 0 Then
|
||||
For x = 0 To c.RowCount - 1
|
||||
c.Position = x
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_CUESTIONARIO_INTMEX"
|
||||
cmd.Parameters = Array As Object(c.GetString("Q_IDCLIENTE"), rutaActual, ALMACEN, c.GetString("Q_FECHA"), c.GetString("Q_IDPREGUNTA"), c.GetString("Q_PREGUNTA"), c.GetString("Q_IDRESPUESTA"), C.GetString("Q_RESPUESTA"))
|
||||
reqManager.ExecuteCommand(cmd , "ins_cuestionario")
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
' 'CUESTIONARIOS
|
||||
' c = B4XPages.MainPage.skmt.ExecQuery($"select * from cuestionario"$)
|
||||
' Private rutaActual As String = Subs.traeRuta
|
||||
' If c.RowCount > 0 Then
|
||||
' For x = 0 To c.RowCount - 1
|
||||
' c.Position = x
|
||||
' Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "insert_CUESTIONARIO_INTMEX"
|
||||
' cmd.Parameters = Array As Object(c.GetString("Q_IDCLIENTE"), rutaActual, ALMACEN, c.GetString("Q_FECHA"), c.GetString("Q_IDPREGUNTA"), c.GetString("Q_PREGUNTA"), c.GetString("Q_IDRESPUESTA"), C.GetString("Q_RESPUESTA"))
|
||||
' reqManager.ExecuteCommand(cmd , "ins_cuestionario")
|
||||
' Next
|
||||
' End If
|
||||
' c.Close
|
||||
|
||||
|
||||
c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM PEDIDO_CLIENTE")
|
||||
@@ -764,7 +766,7 @@ Sub Subir_Click
|
||||
c.Position = i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_piezas_INTMEX"
|
||||
cmd.Name = "select_piezas_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), ALMACEN,l_ruta.Text)
|
||||
userpiezas = c.GetString("PC_CLIENTE")
|
||||
reqManager.ExecuteQuery(cmd , 0, "piezas")
|
||||
@@ -874,17 +876,17 @@ Sub cargar_Click
|
||||
' imei = P.GetDeviceId
|
||||
imei = "xxxx"
|
||||
cmd.Initialize
|
||||
cmd.Name ="insert_drop_INTMEX_2"
|
||||
cmd.Name ="insert_drop_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(usuario,e_ruta.text,sDate,imei,sTime,"","","","","CARGA",ALMACEN)
|
||||
reqManager.ExecuteCommand(cmd , "inst_noventa")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_gunaprod_INTMEX"
|
||||
cmd.Name = "select_cat_gunaprod_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_gunaprod2_INTMEX"
|
||||
cmd.Name = "select_cat_gunaprod2_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(ALMACEN,e_ruta.Text)
|
||||
reqManager.ExecuteQuery(cmd , 0, "gunaprod2")
|
||||
|
||||
@@ -894,48 +896,48 @@ Sub cargar_Click
|
||||
' reqManager.ExecuteQuery(cmd , 0, "resum_apk") ''' donde regresa la info ver job_done
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_paquetes_INTMEX3"
|
||||
cmd.Name = "select_cat_paquetes_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
|
||||
' Log("ALMACEN = " & ALMACEN)
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_paquetess_INTMEX"
|
||||
cmd.Name = "select_cat_paquetess_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_detallepa_INTMEX"
|
||||
cmd.Name = "select_cat_detallepa_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "detallepaq")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_clientes_INTMEX"
|
||||
cmd.Name = "select_cat_clientes_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_clientes_todos_INTMEX"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "kmt_datos_todos")
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_cat_clientes_todos_MARQUEZ"
|
||||
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "kmt_datos_todos")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_hist_datos_INTMEX_2"
|
||||
cmd.Name = "select_hist_datos_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,e_ruta.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_hist_promos_INTMEX"
|
||||
cmd.Name = "select_hist_promos_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "hist_promos")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_clientes_cuestionario_INTMEX"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "clientes_cuestionario")
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_clientes_cuestionario_MARQUEZ"
|
||||
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "clientes_cuestionario")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_hist_cliente_promos_INTMEX"
|
||||
cmd.Name = "select_hist_cliente_promos_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "hist_cliente_promos")
|
||||
|
||||
@@ -953,33 +955,33 @@ Sub cargar_Click
|
||||
ImageView9.Visible = False
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_clientes_INTMEX"
|
||||
cmd.Name = "select_cat_clientes_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_clientes_todos_INTMEX"
|
||||
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "kmt_datos_todos")
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_cat_clientes_todos_MARQUEZ"
|
||||
' cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "kmt_datos_todos")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_hist_datos_INTMEX"
|
||||
cmd.Name = "select_hist_datos_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_hist_promos_INTMEX"
|
||||
cmd.Name = "select_hist_promos_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "hist_promos")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_hist_cliente_promos_INTMEX"
|
||||
cmd.Name = "select_hist_cliente_promos_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "hist_cliente_promos")
|
||||
End If
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_promo_comp_INTMEX"
|
||||
cmd.Name = "select_promo_comp_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "hist_comp_promos")
|
||||
|
||||
@@ -994,17 +996,17 @@ Sub cargar_Click
|
||||
reqManager.ExecuteQuery(cmd , 0, "fecha")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_folio_INTMEX"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
cmd.Name = "select_folio_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
|
||||
reqManager.ExecuteQuery(cmd , 0, "folio")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_abonosp_INTMEX"
|
||||
cmd.Name = "select_abonosp_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "select_abonosp")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_marcas_rutas_INTMEX"
|
||||
cmd.Name = "select_marcas_rutas_MARQUEZ"
|
||||
cmd.Parameters = Array As Object( ALMACEN, e_ruta.text)
|
||||
reqManager.ExecuteQuery(cmd , 0, "marcas_rutas")
|
||||
|
||||
@@ -1019,12 +1021,12 @@ Sub cargar_Click
|
||||
' reqManager.ExecuteQuery(cmd , 0, "CUOTAS")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_comis_cedex_INTMEX"
|
||||
cmd.Name = "select_comis_cedex_MARQUEZ"
|
||||
cmd.Parameters = Array As Object( ALMACEN, e_ruta.text )
|
||||
reqManager.ExecuteQuery(cmd , 0, "COMISIONES")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_hist_avance_INTMEX" 'select * from HIST_AVANCE_MESACTUAL where HIST_AM_RUTA = ? and HIST_AM_IDALMACEN order by HIST_AM_MARCA
|
||||
cmd.Name = "select_hist_avance_MARQUEZ" 'select * from HIST_AVANCE_MESACTUAL where HIST_AM_RUTA = ? and HIST_AM_IDALMACEN order by HIST_AM_MARCA
|
||||
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
|
||||
LogColor($"HIST_AVANCE Ruta=|${e_ruta.text}|, almacen=|${ALMACEN}|"$, Colors.Red)
|
||||
reqManager.ExecuteQuery(cmd , 0, "hist_avance")
|
||||
@@ -1050,7 +1052,7 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
If Job.Success = False Then
|
||||
Log("ERROR")
|
||||
' LogColor("Error: " & reqManager.HandleJob(Job).tag & " : " & Job.ErrorMessage, Colors.red)
|
||||
LogColor("Error: " & reqManager.HandleJob(Job).tag & " : " & Job.ErrorMessage, Colors.red)
|
||||
Log("ex")
|
||||
Log(2)
|
||||
' Job.Release
|
||||
@@ -1123,7 +1125,9 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim CAT_CL_LAT As String = records(RESULT.Columns.Get("CAT_CL_LAT"))
|
||||
Dim CAT_CL_MTOCOMPRA As String = records(RESULT.Columns.Get("CAT_CL_MTOCOMPRA"))
|
||||
Dim CAT_CL_NUM_SERIEFISICO As String = records(RESULT.Columns.Get("CAT_CL_NUM_SERIEFISICO"))
|
||||
B4XPages.MainPage.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_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) 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_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO))
|
||||
Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
|
||||
Dim CAT_CL_LIMITECREDITO As String = records(RESULT.Columns.Get("CAT_CL_LIMITECREDITO"))
|
||||
B4XPages.MainPage.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_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO, gestion) 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_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
|
||||
Next
|
||||
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_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object ("0",e_ruta.TEXT, "VENTA ABORDO","null","null","null","null","null","null","null","null","null","null","null","null","NULL","null","NULL"))
|
||||
@@ -1167,7 +1171,7 @@ Sub JobDone(Job As HttpJob)
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_HVC_INTMEX"
|
||||
cmd.Name = "insert_HVC_MARQUEZ"
|
||||
cmd.Parameters = Array As Object((sDate & " " & sTime), userpiezas, PCNoArts, PCMonto, ALMACEN, l_ruta.Text)
|
||||
reqManager.ExecuteCommand(cmd , "insert_hvc")
|
||||
' reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
|
||||
@@ -1179,6 +1183,8 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "kmt_datos_todos" Then 'query tag
|
||||
@@ -1204,8 +1210,10 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim CAT_CL_LAT As String = records(RESULT.Columns.Get("CAT_CL_LAT"))
|
||||
Dim CAT_CL_MTOCOMPRA As String = records(RESULT.Columns.Get("CAT_CL_MTOCOMPRA"))
|
||||
Dim CAT_CL_NUM_SERIEFISICO As String = records(RESULT.Columns.Get("CAT_CL_NUM_SERIEFISICO"))
|
||||
Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
|
||||
Dim CAT_CL_LIMITECREDITO As String = records(RESULT.Columns.Get("CAT_CL_LIMITECREDITO"))
|
||||
Dim CAT_CL_DIAS_VISITA As String = records(RESULT.Columns.Get("CAT_CL_DIAS_VISITA"))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info2(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_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_DIAS_VISITA) 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_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_DIAS_VISITA))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info2(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_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_DIAS_VISITA, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO) 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_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_DIAS_VISITA, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
|
||||
Next
|
||||
Listo1 = 1
|
||||
@@ -1457,20 +1465,20 @@ Sub JobDone(Job As HttpJob)
|
||||
If RESULT.Tag = "gunaprod2" Then 'query tag
|
||||
If PB2.Progress < 30 Then S_CP.Text = "CARGANDO" 'Mod por CHV - 20211028 Agregue el "If PB2.Progress < 30 then"
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_DP_ID"))
|
||||
Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_DP_NOMBRE"))
|
||||
Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_DP_IMP1"))
|
||||
Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_DP_IMP2"))
|
||||
Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_DP_PRECIO"))
|
||||
Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_DP_CLASIF"))
|
||||
Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_DP_STS"))
|
||||
Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_DP_TIPO"))
|
||||
Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_DP_SUBTIPO"))
|
||||
Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_DP_IMG"))
|
||||
Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_DP_ALMACEN"))
|
||||
Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID"))
|
||||
Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE"))
|
||||
Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1"))
|
||||
Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2"))
|
||||
Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO"))
|
||||
Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF"))
|
||||
Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS"))
|
||||
Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO"))
|
||||
Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO"))
|
||||
Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG"))
|
||||
Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN"))
|
||||
' Dim CAT_GP_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV"))
|
||||
Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_DP_TIPOPROD"))
|
||||
Dim CAT_GP_INICIATIVA As Int = records(RESULT.Columns.Get("CAT_DP_INICIATIVA"))
|
||||
Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD"))
|
||||
Dim CAT_GP_INICIATIVA As Int = records(RESULT.Columns.Get("CAT_GP_INICIATIVA"))
|
||||
' CAT_GP_INICIATIVA = 5
|
||||
' skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_DEV))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA))
|
||||
@@ -1592,17 +1600,17 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim RESULT As DBResult = reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "detallepaq" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CAT_DP_ALMACEN As String = records(RESULT.Columns.Get("CAT_DP_ALMACEN"))
|
||||
Dim CAT_DP_ID As String = records(RESULT.Columns.Get("CAT_DP_ID"))
|
||||
Dim CAT_DP_IDPROD As String = records(RESULT.Columns.Get("CAT_DP_IDPROD"))
|
||||
Dim CAT_DP_TIPO As String = records(RESULT.Columns.Get("CAT_DP_TIPO"))
|
||||
Dim CAT_DP_PZAS As String = records(RESULT.Columns.Get("CAT_DP_PZAS"))
|
||||
Dim CAT_DP_USUARIO As String = records(RESULT.Columns.Get("CAT_DP_USUARIO"))
|
||||
Dim CAT_DP_FECHA As String = records(RESULT.Columns.Get("CAT_DP_FECHA"))
|
||||
Dim CAT_DP_REGALO As String = records(RESULT.Columns.Get("CAT_DP_REGALO"))
|
||||
Dim CAT_DP_CLASIF As String = records(RESULT.Columns.Get("CAT_DP_CLASIF"))
|
||||
Dim CAT_DP_PRECIO As String = records(RESULT.Columns.Get("CAT_DP_PRECIO"))
|
||||
Dim CAT_DP_PRECIO_SIMPTOS As String = records(RESULT.Columns.Get("CAT_DP_PRECIO_SIMPTOS"))
|
||||
Dim CAT_DP_ALMACEN As String = records(RESULT.Columns.Get("CAT_PDP_ALMACEN"))
|
||||
Dim CAT_DP_ID As String = records(RESULT.Columns.Get("CAT_PDP_ID"))
|
||||
Dim CAT_DP_IDPROD As String = records(RESULT.Columns.Get("CAT_PDP_IDPROD"))
|
||||
Dim CAT_DP_TIPO As String = records(RESULT.Columns.Get("CAT_PDP_TIPO"))
|
||||
Dim CAT_DP_PZAS As String = records(RESULT.Columns.Get("CAT_PDP_PZAS"))
|
||||
Dim CAT_DP_USUARIO As String = records(RESULT.Columns.Get("CAT_PDP_USUARIO"))
|
||||
Dim CAT_DP_FECHA As String = records(RESULT.Columns.Get("CAT_PDP_FECHA"))
|
||||
Dim CAT_DP_REGALO As String = records(RESULT.Columns.Get("CAT_PDP_REGALO"))
|
||||
Dim CAT_DP_CLASIF As String = records(RESULT.Columns.Get("CAT_PDP_CLASIF"))
|
||||
Dim CAT_DP_PRECIO As String = records(RESULT.Columns.Get("CAT_PDP_PRECIO"))
|
||||
Dim CAT_DP_PRECIO_SIMPTOS As String = records(RESULT.Columns.Get("CAT_PDP_PRECIO_SIMPTOS"))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_DETALLES_PAQ(CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS))
|
||||
Next
|
||||
If PB2.Progress = 0 Then
|
||||
@@ -1917,7 +1925,7 @@ Sub connecta_Click
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ruta_INTMEX_7"
|
||||
cmd.Name = "select_ruta_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
|
||||
' Log($"${ALMACEN},${e_ruta.text},${imei}"$)
|
||||
reqManager.ExecuteQuery(cmd , 0, "ruta")
|
||||
@@ -2020,16 +2028,16 @@ Sub inv_Click
|
||||
usuario = c.GetString("USUARIO")
|
||||
c.Close
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_gunaprod_INTMEX"
|
||||
cmd.Name = "select_cat_gunaprod_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_paquetes_INTMEX"
|
||||
cmd.Name = "select_cat_paquetes_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_detallepa_INTMEX"
|
||||
cmd.Name = "select_cat_detallepa_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
reqManager.ExecuteQuery(cmd , 0, "detallepaq")
|
||||
|
||||
@@ -2042,17 +2050,17 @@ End Sub
|
||||
|
||||
Sub t1_tick
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cuantos_pedido_INTMEX"
|
||||
cmd.Name = "select_cuantos_pedido_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
|
||||
reqManager.ExecuteQuery(cmd , 0, "valida_pedido")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cuantos_noventa_INTMEX"
|
||||
cmd.Name = "select_cuantos_noventa_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
|
||||
reqManager.ExecuteQuery(cmd , 0, "valida_noventa")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cuantos_pedidoc_INTMEX"
|
||||
cmd.Name = "select_cuantos_pedidoc_MARQUEZ"
|
||||
cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
|
||||
reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc")
|
||||
|
||||
@@ -2569,7 +2577,8 @@ Private Sub p_mandaInfo_Click
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub b_abordo_Click
|
||||
|
||||
Private Sub iv_abordo_Click
|
||||
Starter.skmt.ExecNonQuery("delete from CUENTAA")
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
|
||||
B4XPages.MainPage.tipo_venta = "ABORDO"
|
||||
|
||||
Reference in New Issue
Block a user