cheveguerra/DBCheck
1
0
Fork 0
mirror of https://github.com/KeymonSoft/DBCheck.git synced 2026-04-17 19:37:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

5/11/32 - Seleccionar empresa, validar pedido e icono.

Browse Source 
- Código para seleccionar de que empresa es la BD, o si la BD trae la info, seleccionarla automáticamente.
- Código para validar si cayo bien la venta en el servidor.
- Icono de keymon
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-05 01:42:22 -06:00
parent 2caf7dbc38
commit 5bcd9b45f4
6 changed files with 117 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files

176
B4A/B4XMainPage.bas
View File

@@ -30,6 +30,7 @@ Sub Class_Globals
Dim ime As IME Dim ime As IME
Dim skmt As SQL Dim skmt As SQL
Dim reqManager As DBRequestManager Dim reqManager As DBRequestManager
Dim cmd As DBCommand
Dim l_pedidos2 As Label Dim l_pedidos2 As Label
Dim l_diasVenta As Label Dim l_diasVenta As Label
Dim l_totalVenta As Label Dim l_totalVenta As Label
@@ -39,7 +40,6 @@ Sub Class_Globals
' Dim datos_iguales As String ' Dim datos_iguales As String
Dim cuantos_pedidosc As String Dim cuantos_pedidosc As String
Dim cuantos_noventa As String Dim cuantos_noventa As String
' Dim reqsPendientes As List
Dim l_ruta2 As Label Dim l_ruta2 As Label
Dim ruta As String = "" Dim ruta As String = ""
Dim l_usuario2 As Label Dim l_usuario2 As Label
@@ -74,6 +74,7 @@ Sub Class_Globals
Private b_guardaUsuario As Button Private b_guardaUsuario As Button
Dim c, d As Cursor Dim c, d As Cursor
Dim foto1() As Byte Dim foto1() As Byte
Private b_valida As Button
End Sub End Sub
Public Sub Initialize Public Sub Initialize
@@ -84,8 +85,7 @@ End Sub
Sub B4XPage_Created (Root1 As B4XView) Sub B4XPage_Created (Root1 As B4XView)
Root = Root1 Root = Root1
Root.LoadLayout("MainPage") Root.LoadLayout("MainPage")
p_principal.Width = Root.Width p_principal.Width = Root.Width : p_principal.Height = Root.Height
p_principal.Height = Root.Height
Subs.centraPanel(p_datos, Root.Width) Subs.centraPanel(p_datos, Root.Width)
reqManager.Initialize(Me, "http://keymon.lat:1782") reqManager.Initialize(Me, "http://keymon.lat:1782")
B4XPages.SetTitle(Me, "Revisión de BD") B4XPages.SetTitle(Me, "Revisión de BD")
@@ -98,13 +98,13 @@ Sub B4XPage_Created (Root1 As B4XView)
lv_DBRServer.AddSingleLine("http://keymon.lat:1782") lv_DBRServer.AddSingleLine("http://keymon.lat:1782")
lv_DBRServer.AddSingleLine("http://40.123.36.38:1782") lv_DBRServer.AddSingleLine("http://40.123.36.38:1782")
et_server.Text = "http://keymon.lat:1782" et_server.Text = "http://keymon.lat:1782"
B_SERVER.Left = (Root.Width / 2) - (B_SERVER.Width / 2) B_SERVER.Left = (Root.Width / 2) - (B_SERVER.Width / 2) 'Centramos B_SERVER
et_server.Left = (Root.Width / 2) - (et_server.Width / 2) et_server.Left = (Root.Width / 2) - (et_server.Width / 2) 'Centramos et_server
lv_DBRServer.Left = (Root.Width / 2) - (lv_DBRServer.Width / 2) lv_DBRServer.Left = (Root.Width / 2) - (lv_DBRServer.Width / 2) 'Centramos lv_DBRServer
sp_empresa.Add("------------") sp_empresa.Add("------------")
sp_empresa.Add("Mariana")
sp_empresa.Add("Guna") sp_empresa.Add("Guna")
' envios.Initialize sp_empresa.Add("Intmex")
sp_empresa.Add("Mariana")
End Sub End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
@@ -217,9 +217,15 @@ Sub B4XPage_Appear
' b_enviar.Enabled = False ' b_enviar.Enabled = False
If empresa.ToUpperCase = "MARIANA" Then If empresa.ToUpperCase = "MARIANA" Then
b_enviar.Text = "Enviar Mariana" b_enviar.Text = "Enviar Mariana"
b_valida.Text = "Validar Mariana"
b_enviar.Enabled = True b_enviar.Enabled = True
else if empresa.ToUpperCase = "GUNA" Then else if empresa.ToUpperCase = "GUNA" Then
b_enviar.Text = "Enviar Guna" b_enviar.Text = "Enviar Guna"
b_valida.Text = "Validar Guna"
b_enviar.Enabled = True
else if empresa.ToUpperCase = "INTMEX" Then
b_enviar.Text = "Enviar Intmex"
b_valida.Text = "Validar Intmex"
b_enviar.Enabled = True b_enviar.Enabled = True
Else Else
p_empresa.Visible = True p_empresa.Visible = True
@@ -234,17 +240,16 @@ Sub b_enviar_Click
B4XPages.MainPage.p_progressDialog.Top = l_pedidos2.Top B4XPages.MainPage.p_progressDialog.Top = l_pedidos2.Top
B4XPages.MainPage.p_progressDialog.Visible = True B4XPages.MainPage.p_progressDialog.Visible = True
B4XPages.MainPage.p_progressDialog.BringToFront B4XPages.MainPage.p_progressDialog.BringToFront
reqManager.reqsList.Initialize 'inicializamos lista de requests.
If empresa.ToUpperCase = "MARIANA" Then
envioMariana envioMariana
else if empresa.ToUpperCase = "GUNA" Then
envioGuna
else if empresa.ToUpperCase = "INTMEX" Then
envioIntmex
End If
End If End If
ToastMessageShow("Se enviaran los datos, este proceso podria tardar hasta un minuto, gracias "& ruta , True) ToastMessageShow("Se enviaran los datos, este proceso podria tardar hasta un minuto, gracias "& ruta , True)
' If empresa.ToUpperCase = "MARIANA" Then
' envios.envioMariana
' else if empresa.ToUpperCase = "GUNA" Then
' envios.envioGuna
' End If
End Sub End Sub
Sub JobDone(Job As HttpJob) Sub JobDone(Job As HttpJob)
@@ -287,12 +292,12 @@ Sub JobDone(Job As HttpJob)
If resultado.Tag = "valida_pedido" Then 'query tag If resultado.Tag = "valida_pedido" Then 'query tag
For Each records() As Object In resultado.Rows For Each records() As Object In resultado.Rows
Dim CUANTOSP As Int = records(resultado.Columns.Get("CUANTOSP")) Dim CUANTOSP As Int = records(resultado.Columns.Get("CUANTOSP"))
If cuantos_pedido < = CUANTOSP Then If cuantos_pedido <= CUANTOSP Then
ToastMessageShow("INFO OK", True) ToastMessageShow("INFO OK", True)
Else Else
ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True) ToastMessageShow($"No se cargo bien la info de pedido.${CRLF}Envíe nuevamente: "$ & CUANTOSP & "/" & cuantos_pedido, True)
ToastMessageShow("ENVIAR DATOS (K-2)", True) ToastMessageShow("ENVIAR DATOS (K-2)", True)
Log("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido) Log("No se cargo bien la info de pedido. Envíe nuevamente: " & CUANTOSP & "/" & cuantos_pedido)
End If End If
Next Next
End If End If
@@ -301,9 +306,10 @@ Sub JobDone(Job As HttpJob)
For Each records() As Object In resultado.Rows For Each records() As Object In resultado.Rows
Dim CUANTOSC As Int = records(resultado.Columns.Get("CUANTOSC")) Dim CUANTOSC As Int = records(resultado.Columns.Get("CUANTOSC"))
If cuantos_pedidosc = CUANTOSC Then If cuantos_pedidosc = CUANTOSC Then
Else Else
ToastMessageShow("No se cargo bien la info C. Sync Nuevamente" & CUANTOSC & " " & cuantos_pedidosc, True) ToastMessageShow($"No se cargo bien la info de pedido_cliente.${CRLF}Envíe nuevamente: "$ & CUANTOSC & "/" & cuantos_pedidosc, True)
Log("No se cargo bien la info C. Sync Nuevamente " & CUANTOSC & " " & cuantos_pedidosc) Log("No se cargo bien la info de pedido_cliente. Envíe nuevamente: " & CUANTOSC & "/" & cuantos_pedidosc)
End If End If
Next Next
End If End If
@@ -312,9 +318,10 @@ Sub JobDone(Job As HttpJob)
For Each records() As Object In resultado.Rows For Each records() As Object In resultado.Rows
Dim CUANTOSN As Int = records(resultado.Columns.Get("CUANTOSN")) Dim CUANTOSN As Int = records(resultado.Columns.Get("CUANTOSN"))
If cuantos_noventa = CUANTOSN Then If cuantos_noventa = CUANTOSN Then
Else Else
ToastMessageShow("No se cargo bien la info N. Sync Nuevamente" & CUANTOSN & " " & cuantos_noventa, True) ToastMessageShow($"No se cargo bien la info de NoVenta.${CRLF}Envíe nuevamente: "$ & CUANTOSN & "/" & cuantos_noventa, True)
Log("No se cargo bien la info N. Sync Nuevamente " & CUANTOSN & " " & cuantos_noventa) Log("No se cargo bien la info de NoVenta. Envíe nuevamente:" & CUANTOSN & "/" & cuantos_noventa)
End If End If
Next Next
End If End If
@@ -335,7 +342,6 @@ Sub JobDone(Job As HttpJob)
End If End If
Log(reqManager.reqsList) Log(reqManager.reqsList)
If reqManager.reqsList.size = 0 Then p_progressDialog.Visible = False If reqManager.reqsList.size = 0 Then p_progressDialog.Visible = False
' If reqsPendientes.Size = 0 Then p_progressDialog.Visible = False
Job.Release Job.Release
End Sub End Sub
@@ -445,7 +451,7 @@ End Sub
Sub i_engrane_Click Sub i_engrane_Click
Subs.panelVisible(p_engrane, 0, 0) Subs.panelVisible(p_engrane, 0, 0)
p_engrane.Width = Root.Width p_engrane.Width = Root.Width : p_engrane.Height = Root.Height
End Sub End Sub
Sub B_SERVER_Click Sub B_SERVER_Click
@@ -453,10 +459,6 @@ Sub B_SERVER_Click
reqManager.Initialize(Me, et_server.text) reqManager.Initialize(Me, et_server.text)
End Sub End Sub
Sub et_server_TextChanged (Old As String, New As String)
End Sub
Sub lv_DBRServer_ItemClick (Position As Int, Value As Object) Sub lv_DBRServer_ItemClick (Position As Int, Value As Object)
et_server.Text = Value et_server.Text = Value
reqManager.Initialize(Me, Value) reqManager.Initialize(Me, Value)
@@ -471,13 +473,17 @@ Private Sub sp_empresa_ItemClick (Position As Int, Value As Object)
empresa = Value empresa = Value
If empresa <> "------------" And empresa <> "" Then If empresa <> "------------" And empresa <> "" Then
b_enviar.Enabled = True b_enviar.Enabled = True
b_valida.Enabled = True
b_enviar.Text = $"Enviar ${empresa} "$ b_enviar.Text = $"Enviar ${empresa} "$
b_valida.Text = $"Validar ${empresa} "$
Else
b_enviar.Enabled = False
b_valida.Enabled = False
End If End If
Log(Value) Log(Value)
End Sub End Sub
Sub envioMariana 'ignore Sub envioMariana 'ignore
' B4XPages.MainPage.reqsPendientes.Initialize
reqManager.reqsList.Initialize 'inicializamos lista de requests. reqManager.reqsList.Initialize 'inicializamos lista de requests.
B4XPages.MainPage.skmt.ExecNonQuery2("delete from PEDIDO WHERE PE_PRONOMBRE = ? ", Array As Object("N/A") ) B4XPages.MainPage.skmt.ExecNonQuery2("delete from PEDIDO WHERE PE_PRONOMBRE = ? ", Array As Object("N/A") )
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)") B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)")
@@ -492,7 +498,6 @@ Sub envioMariana 'ignore
cmd.Name = "insert_pedidos_MARDS" cmd.Name = "insert_pedidos_MARDS"
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, ruta, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA")) 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, ruta, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , $"ins_pedidos_${i}"$) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , $"ins_pedidos_${i}"$)
' B4XPages.MainPage.reqsPendientes.Add("ins_pedidos_1")
Next Next
End If End If
c.Close c.Close
@@ -510,7 +515,6 @@ Sub envioMariana 'ignore
cmd.Name = "insert_QR_2_MARDS" cmd.Name = "insert_QR_2_MARDS"
cmd.Parameters = Array As Object(C.GetString("CODIGOKMTS"),C.GetString("CODIGOB"),C.GetString("LON"),C.GetString("LAT"),almacen, ruta) cmd.Parameters = Array As Object(C.GetString("CODIGOKMTS"),C.GetString("CODIGOB"),C.GetString("LON"),C.GetString("LAT"),almacen, ruta)
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , $"ins_QR_${i}"$) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , $"ins_QR_${i}"$)
' B4XPages.MainPage.reqsPendientes.Add("ins_QR")
Next Next
End If End If
c.Close c.Close
@@ -524,7 +528,6 @@ Sub envioMariana 'ignore
cmd.Name = "insert_encuesta_MARDS" cmd.Name = "insert_encuesta_MARDS"
cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO")) cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , $"ins_encuesta_${i}"$) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , $"ins_encuesta_${i}"$)
' B4XPages.MainPage.reqsPendientes.Add("hist_encuesta")
Next Next
End If End If
c.Close c.Close
@@ -539,7 +542,6 @@ Sub envioMariana 'ignore
cmd.Name = "insert_pedido_MARDS" cmd.Name = "insert_pedido_MARDS"
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")) 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"))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , $"ins_pedido_${i}"$) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , $"ins_pedido_${i}"$)
' B4XPages.MainPage.reqsPendientes.Add("ins_pedido_1")
Next Next
End If End If
c.Close c.Close
@@ -549,29 +551,28 @@ Sub envioMariana 'ignore
' NOVENTA ' NOVENTA
c = B4XPages.MainPage.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_NOMBRE, NV_DIRECCION FROM NOVENTA") c = B4XPages.MainPage.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON, NV_NOMBRE, NV_DIRECCION FROM NOVENTA")
If c.RowCount>0 Then If c.RowCount > 0 Then
For i=0 To c.RowCount - 1 For i = 0 To c.RowCount - 1
c.Position=i c.Position = i
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "insert_noventa_MARDS" cmd.Name = "insert_noventa_MARDS"
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, ruta,C.GetString("NV_NOMBRE"),C.GetString("NV_DIRECCION")) 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, ruta,C.GetString("NV_NOMBRE"),C.GetString("NV_DIRECCION"))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , $"ins_noventa_${i}"$) B4XPages.MainPage.reqManager.ExecuteCommand(cmd , $"ins_noventa_${i}"$)
' B4XPages.MainPage.reqsPendientes.Add("inst_noventa")
Next Next
End If End If
c.Close c.Close
' D = skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") d = skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
' d.Position=0 d.Position = 0
' Dim cuantos_noventa As String = D.GetString("CUANTOS_NOVENTA") Dim cuantos_noventa As String = d.GetString("CUANTOS_NOVENTA")
' d.Close d.Close
' GEO CERCA ' GEO CERCA
c=B4XPages.MainPage.skmt.ExecQuery("Select HGCLIENTE, HGDATE, HGLAT, HGLON from HIST_GEOCERCA") c = B4XPages.MainPage.skmt.ExecQuery("Select HGCLIENTE, HGDATE, HGLAT, HGLON from HIST_GEOCERCA")
If c.RowCount>0 Then If c.RowCount > 0 Then
For i=0 To c.RowCount - 1 For i = 0 To c.RowCount - 1
c.Position=i c.Position = i
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "insert_geocerca_MARDS" cmd.Name = "insert_geocerca_MARDS"
@@ -582,10 +583,10 @@ Sub envioMariana 'ignore
c.Close c.Close
' LO DEL LIKE ' LO DEL LIKE
c=B4XPages.MainPage.skmt.ExecQuery("Select HFCLIENTE, HFALIAS,HFRUTA,HFALMACEN from HIST_FACE") c = B4XPages.MainPage.skmt.ExecQuery("Select HFCLIENTE, HFALIAS,HFRUTA,HFALMACEN from HIST_FACE")
If c.RowCount>0 Then If c.RowCount > 0 Then
For i=0 To c.RowCount - 1 For i = 0 To c.RowCount - 1
c.Position=i c.Position = i
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "insert_face_like_MARDS" cmd.Name = "insert_face_like_MARDS"
@@ -634,7 +635,6 @@ Sub envioIntmex 'ignore
' ENVIO DE LOS CODIGOS QR ' ENVIO DE LOS CODIGOS QR
'c=skmt.ExecQuery2("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO = ?", Array As String("OK")) 'c=skmt.ExecQuery2("SELECT CAT_CL_NUM_SERIEFISICO,CAT_CL_CODIGO ,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_FOTO FROM kmt_info where CAT_CL_NUM_SERIEFISICO = ?", Array As String("OK"))
c=B4XPages.MainPage.skmt.ExecQuery("SELECT CODIGOKMTS, CODIGOB, LAT, LON FROM HIST_CODIGO_BARRAS" ) c=B4XPages.MainPage.skmt.ExecQuery("SELECT CODIGOKMTS, CODIGOB, LAT, LON FROM HIST_CODIGO_BARRAS" )
If c.RowCount>0 Then If c.RowCount>0 Then
For i=0 To c.RowCount -1 For i=0 To c.RowCount -1
@@ -677,7 +677,6 @@ Sub envioIntmex 'ignore
c.Close c.Close
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 FROM PEDIDO")
d=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
If c.RowCount>0 Then If c.RowCount>0 Then
For i=0 To c.RowCount -1 For i=0 To c.RowCount -1
c.Position=i c.Position=i
@@ -689,16 +688,17 @@ Sub envioIntmex 'ignore
Next Next
End If End If
c.Close c.Close
d=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
d.Position=0 d.Position=0
cuantos_pedido = D.GetString("CUANTOS_PEDIDO") cuantos_pedido = D.GetString("CUANTOS_PEDIDO")
d.Close d.Close
' NOVENTA ' NOVENTA
c=B4XPages.MainPage.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON FROM NOVENTA") c = B4XPages.MainPage.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON FROM NOVENTA")
D=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") If c.RowCount > 0 Then
If c.RowCount>0 Then For i = 0 To c.RowCount -1
For i=0 To c.RowCount -1 c.Position = i
c.Position=i
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "insert_noventa_INTMEX" cmd.Name = "insert_noventa_INTMEX"
@@ -707,8 +707,10 @@ Sub envioIntmex 'ignore
Next Next
End If End If
c.Close c.Close
d.Position=0
cuantos_noventa = D.GetString("CUANTOS_NOVENTA") d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
d.Position = 0
cuantos_noventa = d.GetString("CUANTOS_NOVENTA")
d.Close d.Close
' GEO CERCA ' GEO CERCA
@@ -765,7 +767,6 @@ Sub envioGuna 'ignore
B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)") B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)")
' PEDIO_CLIENTE ' PEDIO_CLIENTE
c = B4XPages.MainPage.skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN FROM PEDIDO_CLIENTE ") c = B4XPages.MainPage.skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN FROM PEDIDO_CLIENTE ")
d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ")
If c.RowCount > 0 Then If c.RowCount > 0 Then
For i = 0 To c.RowCount - 1 For i = 0 To c.RowCount - 1
c.Position=i c.Position=i
@@ -777,6 +778,8 @@ Sub envioGuna 'ignore
Next Next
End If End If
c.Close c.Close
d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ")
d.Position=0 d.Position=0
Private cuantos_pedidosc As String = D.GetString("CUANTOS_PEDIDOSC") Private cuantos_pedidosc As String = D.GetString("CUANTOS_PEDIDOSC")
d.Close d.Close
@@ -812,7 +815,7 @@ Sub envioGuna 'ignore
End If End If
c.Close c.Close
c = B4XPages.MainPage.skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA") c = B4XPages.MainPage.skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
If c.RowCount > 0 Then If c.RowCount > 0 Then
For i = 0 To c.RowCount - 1 For i = 0 To c.RowCount - 1
c.Position = i c.Position = i
@@ -842,8 +845,7 @@ Sub envioGuna 'ignore
d.Close d.Close
' NOVENTA ' NOVENTA
c = B4XPages.MainPage.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON FROM NOVENTA") c = B4XPages.MainPage.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON FROM NOVENTA")
D = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
If c.RowCount > 0 Then If c.RowCount > 0 Then
For i = 0 To c.RowCount - 1 For i = 0 To c.RowCount - 1
c.Position = i c.Position = i
@@ -855,8 +857,10 @@ Sub envioGuna 'ignore
Next Next
End If End If
c.Close c.Close
d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
d.Position = 0 d.Position = 0
Private cuantos_noventa As String = D.GetString("CUANTOS_NOVENTA") cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
d.Close d.Close
' DATOS DE KMTS PARA EL TIPO DE ABARROTE. ' DATOS DE KMTS PARA EL TIPO DE ABARROTE.
@@ -981,7 +985,49 @@ Sub envioGuna 'ignore
x.Close x.Close
End Sub End Sub
Sub valida(identificador As String)
Log("Validamos " & identificador)
d = skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
d.Position = 0
Dim cuantos_noventa As String = d.GetString("CUANTOS_NOVENTA")
d.Close
cmd.Initialize
cmd.Name = $"select_cuantos_noventa_${identificador}"$
cmd.Parameters = Array As Object(almacen, ruta)
reqManager.ExecuteQuery(cmd , 0, "valida_noventa")
d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
d.Position = 0
cuantos_pedido = D.GetString("CUANTOS_PEDIDO")
d.Close
cmd.Initialize
cmd.Name = $"select_cuantos_pedido_${identificador}"$
cmd.Parameters = Array As Object(almacen, ruta)
reqManager.ExecuteQuery(cmd , 0, "valida_pedido")
d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ")
d.Position = 0
Private cuantos_pedidosc As String = D.GetString("CUANTOS_PEDIDOSC")
d.Close
cmd.Initialize
cmd.Name = $"select_cuantos_pedidoc_${identificador}"$
cmd.Parameters = Array As Object(almacen, ruta)
reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc")
End Sub
Private Sub p_empresa_Click Private Sub p_empresa_Click
End Sub End Sub
Private Sub b_valida_Click
If empresa.ToUpperCase = "MARIANA" Then
valida("MARDS")
else if empresa.ToUpperCase = "GUNA" Then
valida("GV2")
else if empresa.ToUpperCase = "INTMEX" Then
valida("INTMEX")
End If
End Sub

6
B4A/C_Envios.bas
View File

@@ -33,7 +33,6 @@ End Sub
Sub envioMariana 'ignore Sub envioMariana 'ignore
Dim resultado = Msgbox2("Se va a enviar la venta de la BD", "AVISO", "Continuar", "Cancelar", "", Null) 'ignore Dim resultado = Msgbox2("Se va a enviar la venta de la BD", "AVISO", "Continuar", "Cancelar", "", Null) 'ignore
If resultado = DialogResponse.POSITIVE Then If resultado = DialogResponse.POSITIVE Then
' B4XPages.MainPage.reqsPendientes.Initialize
B4XPages.MainPage.l_progressDialog.Text = " Enviando información ..." B4XPages.MainPage.l_progressDialog.Text = " Enviando información ..."
B4XPages.MainPage.p_progressDialog.Visible = True B4XPages.MainPage.p_progressDialog.Visible = True
B4XPages.MainPage.p_progressDialog.BringToFront B4XPages.MainPage.p_progressDialog.BringToFront
@@ -50,7 +49,6 @@ Sub envioMariana 'ignore
cmd.Name = "insert_pedidos_MARDS" cmd.Name = "insert_pedidos_MARDS"
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, ruta, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA")) 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, ruta, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedidos_1") B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedidos_1")
' B4XPages.MainPage.reqsPendientes.Add("ins_pedidos_1")
Next Next
End If End If
c.Close c.Close
@@ -68,7 +66,6 @@ Sub envioMariana 'ignore
cmd.Name = "insert_QR_2_MARDS" cmd.Name = "insert_QR_2_MARDS"
cmd.Parameters = Array As Object(C.GetString("CODIGOKMTS"),C.GetString("CODIGOB"),C.GetString("LON"),C.GetString("LAT"),almacen, ruta) cmd.Parameters = Array As Object(C.GetString("CODIGOKMTS"),C.GetString("CODIGOB"),C.GetString("LON"),C.GetString("LAT"),almacen, ruta)
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_QR") B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_QR")
' B4XPages.MainPage.reqsPendientes.Add("ins_QR")
Next Next
End If End If
c.Close c.Close
@@ -82,7 +79,6 @@ Sub envioMariana 'ignore
cmd.Name = "insert_encuesta_MARDS" cmd.Name = "insert_encuesta_MARDS"
cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO")) cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "hist_encuesta") B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "hist_encuesta")
' B4XPages.MainPage.reqsPendientes.Add("hist_encuesta")
Next Next
End If End If
c.Close c.Close
@@ -97,7 +93,6 @@ Sub envioMariana 'ignore
cmd.Name = "insert_pedido_MARDS" cmd.Name = "insert_pedido_MARDS"
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")) 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"))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedido_1") B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedido_1")
' B4XPages.MainPage.reqsPendientes.Add("ins_pedido_1")
Next Next
End If End If
c.Close c.Close
@@ -115,7 +110,6 @@ Sub envioMariana 'ignore
cmd.Name = "insert_noventa_MARDS" cmd.Name = "insert_noventa_MARDS"
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, ruta,C.GetString("NV_NOMBRE"),C.GetString("NV_DIRECCION")) 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, ruta,C.GetString("NV_NOMBRE"),C.GetString("NV_DIRECCION"))
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa") B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa")
' B4XPages.MainPage.reqsPendientes.Add("inst_noventa")
Next Next
End If End If
c.Close c.Close

2
B4A/DBCheck.b4a
View File

@@ -31,7 +31,7 @@ Version=12.5
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: DBCheck #ApplicationLabel: DBCheck
#VersionCode: 1 #VersionCode: 1
#VersionName: 3.09.05 #VersionName: 3.11.05
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

8
B4A/DBCheck.b4a.meta
View File

@@ -13,12 +13,12 @@ ModuleBreakpoints4=
ModuleBreakpoints5= ModuleBreakpoints5=
ModuleBreakpoints6= ModuleBreakpoints6=
ModuleClosedNodes0=2,6 ModuleClosedNodes0=2,6
ModuleClosedNodes1=5,26,27 ModuleClosedNodes1=8,9,10,11,12,13,14,15,16,17,18,20,21,22,24,25,26,27,28
ModuleClosedNodes2=4,5 ModuleClosedNodes2=5
ModuleClosedNodes3= ModuleClosedNodes3=
ModuleClosedNodes4= ModuleClosedNodes4=
ModuleClosedNodes5=1 ModuleClosedNodes5=1
ModuleClosedNodes6=12,13,14,16,17,18 ModuleClosedNodes6=12,13,14,16,17,18
NavigationStack=Subs,Process_Globals,9,0,B4XMainPage,b_enviar_Click,226,4,B4XMainPage,Class_Globals,35,6,C_Envios,envioMariana,26,0,B4XMainPage,lv_DBRServer_ItemClick,493,0,B4XMainPage,envioMariana,621,6,B4XMainPage,B4XPage_Appear,105,0,DBRequestManager,Class_Globals,12,0,DBRequestManager,ExecuteQuery,37,0,B4XMainPage,JobDone,246,6 NavigationStack=B4XMainPage,Class_Globals,70,0,B4XMainPage,i_engrane_Click,441,3,B4XMainPage,envioGuna,969,0,B4XMainPage,b_enviar_Click,231,0,B4XMainPage,b_valida_Click,1012,6,B4XMainPage,p_empresa_Click,1005,0,B4XMainPage,valida,974,6,B4XMainPage,sp_empresa_ItemClick,464,6,B4XMainPage,B4XPage_Appear,217,4,B4XMainPage,JobDone,296,6
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,6,2,3 VisibleModules=1,6,2

BIN
B4A/Files/logo_keymon.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 13 KiB

BIN
B4A/Files/mainpage.bal
View File

Binary file not shown.