mirror of
https://github.com/KeymonSoft/Intmex_Preventa.git
synced 2026-04-17 21:06:12 +00:00
- Se agrego la columna PE_TICKET a la tabla de pedido.
This commit is contained in:
Jose Alberto Guerra Ugalde
@@ -530,7 +530,7 @@ Sub B4XPage_Appear
|
||||
|
||||
' If l_ruta.Text = "0" Then
|
||||
' b_abordo.Visible = False
|
||||
' Else
|
||||
' Else
|
||||
' b_abordo.Visible = True
|
||||
' End If
|
||||
|
||||
@@ -659,15 +659,15 @@ Sub Subir_Click
|
||||
d.Close
|
||||
|
||||
' PEDIDO
|
||||
c = B4XPages.MainPage.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, PE_DESC, PE_FOLIO FROM PEDIDO")
|
||||
c = B4XPages.MainPage.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, PE_DESC, PE_FOLIO, PE_TICKET FROM PEDIDO")
|
||||
d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO 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_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_pedido4_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, c.GetString("PE_TICKET"))
|
||||
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
|
||||
@@ -1076,25 +1076,50 @@ Sub JobDone(Job As HttpJob)
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
' If RESULT.Tag = "usuarioA" Then 'query tag
|
||||
' Private n As String = "Sin Usuario"
|
||||
' For Each records() As Object In RESULT.Rows
|
||||
' n = records(RESULT.Columns.Get("USUARIO"))
|
||||
' Next
|
||||
' LogColor("**************************"&n, Colors.Green)
|
||||
' If n = "OKActivo" Then
|
||||
' Log("Usuario guardado en BD es 'Valido'")
|
||||
' Else If n = "OKExpirado" Then
|
||||
' Msgbox("Usuario Expirado llamar al administrador","") 'ignore
|
||||
' B4XPages.ShowPage("B4XMainPage")
|
||||
' Else If n = "OKCancelado" Then
|
||||
' Msgbox("Usuario Cancelado llamar al administrador","") 'ignore
|
||||
' B4XPages.ShowPage("B4XMainPage")
|
||||
' Else
|
||||
' Msgbox("Usuario o password No validos","") 'ignore
|
||||
' B4XPages.ShowPage("B4XMainPage")
|
||||
' End If
|
||||
' Log("***************** "&n)
|
||||
' End If
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "usuarioA" Then 'query tag
|
||||
Private n As String = "Sin Usuario"
|
||||
For Each records() As Object In RESULT.Rows
|
||||
n = records(RESULT.Columns.Get("USUARIO"))
|
||||
Next
|
||||
LogColor("**************************"&n, Colors.Green)
|
||||
Log(n)
|
||||
'Logcolor("**************************"&n, Colors.Green)
|
||||
If n = "OKActivo" Then
|
||||
Log("Usuario guardado en BD es 'Valido'")
|
||||
Else If n = "OKExpirado" Then
|
||||
Msgbox("Usuario Expirado llamar al administrador","") 'ignore
|
||||
B4XPages.ShowPage("B4XMainPage")
|
||||
Else If n = "OKCancelado" Then
|
||||
Msgbox("Usuario Cancelado llamar al administrador","") 'ignore
|
||||
B4XPages.ShowPage("B4XMainPage")
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ruta_DUR3" 'Se cambio de "select_ruta_DUR2_2" el 28/5/2024 para poder deshabilitar el query de las versiones anteriores.
|
||||
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
|
||||
Log($"${ALMACEN},${e_ruta.text},${imei}"$)
|
||||
reqManager.ExecuteQuery(cmd , 0, "ruta")
|
||||
Else
|
||||
Msgbox("Usuario o password No validos","") 'ignore
|
||||
B4XPages.ShowPage("B4XMainPage")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from USUARIOA")
|
||||
ExitApplication
|
||||
End If
|
||||
Log("***************** "&n)
|
||||
'Log("***************** "&n)
|
||||
End If
|
||||
End If
|
||||
|
||||
@@ -1126,7 +1151,7 @@ Sub JobDone(Job As HttpJob)
|
||||
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))
|
||||
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"))
|
||||
' 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"))
|
||||
Listo1 = 1
|
||||
S_CC.Text = "LISTO"
|
||||
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True)
|
||||
@@ -1870,6 +1895,7 @@ Sub JobDone(Job As HttpJob)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
Job.Release
|
||||
End Sub
|
||||
|
||||
@@ -1915,12 +1941,26 @@ Sub connecta_Click
|
||||
' End If
|
||||
' c.Close
|
||||
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_ruta_INTMEX_7"
|
||||
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
|
||||
' Log($"${ALMACEN},${e_ruta.text},${imei}"$)
|
||||
reqManager.ExecuteQuery(cmd , 0, "ruta")
|
||||
c=Starter.skmt.ExecQuery("select USUARIO, PASS from usuarioa")
|
||||
c.Position=0
|
||||
If c.RowCount > 0 And c.GetString("USUARIO") <> "KMTS1" Then
|
||||
Private usrT As String = c.GetString("USUARIO")
|
||||
Private passT As String = c.GetString("PASS")
|
||||
Log(usrT)
|
||||
Log(passT)
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_usuario_INTMEX_10"
|
||||
cmd.Parameters = Array As Object(usrT, passT)
|
||||
reqManager.ExecuteQuery(cmd , 0, "usuarioA")
|
||||
End If
|
||||
c.Close
|
||||
|
||||
' Dim cmd As DBCommand
|
||||
' cmd.Initialize
|
||||
' cmd.Name = "select_ruta_INTMEX_7"
|
||||
' cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
|
||||
'' Log($"${ALMACEN},${e_ruta.text},${imei}"$)
|
||||
' reqManager.ExecuteQuery(cmd , 0, "ruta")
|
||||
|
||||
If e_ruta.Text = "KMTS1" Then
|
||||
cargar.Visible = True
|
||||
|
||||
Reference in New Issue
Block a user