mirror of
https://github.com/KeymonSoft/DBCheck.git
synced 2026-04-17 19:37:09 +00:00
5/11/32 - Seleccionar empresa, validar pedido e icono.
- 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:
@@ -30,6 +30,7 @@ Sub Class_Globals
|
||||
Dim ime As IME
|
||||
Dim skmt As SQL
|
||||
Dim reqManager As DBRequestManager
|
||||
Dim cmd As DBCommand
|
||||
Dim l_pedidos2 As Label
|
||||
Dim l_diasVenta As Label
|
||||
Dim l_totalVenta As Label
|
||||
@@ -39,7 +40,6 @@ Sub Class_Globals
|
||||
' Dim datos_iguales As String
|
||||
Dim cuantos_pedidosc As String
|
||||
Dim cuantos_noventa As String
|
||||
' Dim reqsPendientes As List
|
||||
Dim l_ruta2 As Label
|
||||
Dim ruta As String = ""
|
||||
Dim l_usuario2 As Label
|
||||
@@ -74,6 +74,7 @@ Sub Class_Globals
|
||||
Private b_guardaUsuario As Button
|
||||
Dim c, d As Cursor
|
||||
Dim foto1() As Byte
|
||||
Private b_valida As Button
|
||||
End Sub
|
||||
|
||||
Public Sub Initialize
|
||||
@@ -84,8 +85,7 @@ End Sub
|
||||
Sub B4XPage_Created (Root1 As B4XView)
|
||||
Root = Root1
|
||||
Root.LoadLayout("MainPage")
|
||||
p_principal.Width = Root.Width
|
||||
p_principal.Height = Root.Height
|
||||
p_principal.Width = Root.Width : p_principal.Height = Root.Height
|
||||
Subs.centraPanel(p_datos, Root.Width)
|
||||
reqManager.Initialize(Me, "http://keymon.lat:1782")
|
||||
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://40.123.36.38:1782")
|
||||
et_server.Text = "http://keymon.lat:1782"
|
||||
B_SERVER.Left = (Root.Width / 2) - (B_SERVER.Width / 2)
|
||||
et_server.Left = (Root.Width / 2) - (et_server.Width / 2)
|
||||
lv_DBRServer.Left = (Root.Width / 2) - (lv_DBRServer.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) 'Centramos et_server
|
||||
lv_DBRServer.Left = (Root.Width / 2) - (lv_DBRServer.Width / 2) 'Centramos lv_DBRServer
|
||||
sp_empresa.Add("------------")
|
||||
sp_empresa.Add("Mariana")
|
||||
sp_empresa.Add("Guna")
|
||||
' envios.Initialize
|
||||
sp_empresa.Add("Intmex")
|
||||
sp_empresa.Add("Mariana")
|
||||
End Sub
|
||||
|
||||
'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
|
||||
If empresa.ToUpperCase = "MARIANA" Then
|
||||
b_enviar.Text = "Enviar Mariana"
|
||||
b_valida.Text = "Validar Mariana"
|
||||
b_enviar.Enabled = True
|
||||
else if empresa.ToUpperCase = "GUNA" Then
|
||||
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
|
||||
Else
|
||||
p_empresa.Visible = True
|
||||
@@ -234,17 +240,16 @@ Sub b_enviar_Click
|
||||
B4XPages.MainPage.p_progressDialog.Top = l_pedidos2.Top
|
||||
B4XPages.MainPage.p_progressDialog.Visible = True
|
||||
B4XPages.MainPage.p_progressDialog.BringToFront
|
||||
|
||||
|
||||
envioMariana
|
||||
reqManager.reqsList.Initialize 'inicializamos lista de requests.
|
||||
If empresa.ToUpperCase = "MARIANA" Then
|
||||
envioMariana
|
||||
else if empresa.ToUpperCase = "GUNA" Then
|
||||
envioGuna
|
||||
else if empresa.ToUpperCase = "INTMEX" Then
|
||||
envioIntmex
|
||||
End If
|
||||
End If
|
||||
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
|
||||
|
||||
Sub JobDone(Job As HttpJob)
|
||||
@@ -287,12 +292,12 @@ Sub JobDone(Job As HttpJob)
|
||||
If resultado.Tag = "valida_pedido" Then 'query tag
|
||||
For Each records() As Object In resultado.Rows
|
||||
Dim CUANTOSP As Int = records(resultado.Columns.Get("CUANTOSP"))
|
||||
If cuantos_pedido < = CUANTOSP Then
|
||||
If cuantos_pedido <= CUANTOSP Then
|
||||
ToastMessageShow("INFO OK", True)
|
||||
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)
|
||||
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
|
||||
Next
|
||||
End If
|
||||
@@ -301,9 +306,10 @@ Sub JobDone(Job As HttpJob)
|
||||
For Each records() As Object In resultado.Rows
|
||||
Dim CUANTOSC As Int = records(resultado.Columns.Get("CUANTOSC"))
|
||||
If cuantos_pedidosc = CUANTOSC Then
|
||||
|
||||
Else
|
||||
ToastMessageShow("No se cargo bien la info C. Sync Nuevamente" & CUANTOSC & " " & cuantos_pedidosc, True)
|
||||
Log("No se cargo bien la info C. Sync Nuevamente " & CUANTOSC & " " & cuantos_pedidosc)
|
||||
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 de pedido_cliente. Envíe nuevamente: " & CUANTOSC & "/" & cuantos_pedidosc)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
@@ -312,9 +318,10 @@ Sub JobDone(Job As HttpJob)
|
||||
For Each records() As Object In resultado.Rows
|
||||
Dim CUANTOSN As Int = records(resultado.Columns.Get("CUANTOSN"))
|
||||
If cuantos_noventa = CUANTOSN Then
|
||||
|
||||
Else
|
||||
ToastMessageShow("No se cargo bien la info N. Sync Nuevamente" & CUANTOSN & " " & cuantos_noventa, True)
|
||||
Log("No se cargo bien la info N. Sync Nuevamente " & CUANTOSN & " " & cuantos_noventa)
|
||||
ToastMessageShow($"No se cargo bien la info de NoVenta.${CRLF}Envíe nuevamente: "$ & CUANTOSN & "/" & cuantos_noventa, True)
|
||||
Log("No se cargo bien la info de NoVenta. Envíe nuevamente:" & CUANTOSN & "/" & cuantos_noventa)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
@@ -335,7 +342,6 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
Log(reqManager.reqsList)
|
||||
If reqManager.reqsList.size = 0 Then p_progressDialog.Visible = False
|
||||
' If reqsPendientes.Size = 0 Then p_progressDialog.Visible = False
|
||||
Job.Release
|
||||
End Sub
|
||||
|
||||
@@ -445,7 +451,7 @@ End Sub
|
||||
|
||||
Sub i_engrane_Click
|
||||
Subs.panelVisible(p_engrane, 0, 0)
|
||||
p_engrane.Width = Root.Width
|
||||
p_engrane.Width = Root.Width : p_engrane.Height = Root.Height
|
||||
End Sub
|
||||
|
||||
Sub B_SERVER_Click
|
||||
@@ -453,10 +459,6 @@ Sub B_SERVER_Click
|
||||
reqManager.Initialize(Me, et_server.text)
|
||||
End Sub
|
||||
|
||||
Sub et_server_TextChanged (Old As String, New As String)
|
||||
|
||||
End Sub
|
||||
|
||||
Sub lv_DBRServer_ItemClick (Position As Int, Value As Object)
|
||||
et_server.Text = Value
|
||||
reqManager.Initialize(Me, Value)
|
||||
@@ -471,13 +473,17 @@ Private Sub sp_empresa_ItemClick (Position As Int, Value As Object)
|
||||
empresa = Value
|
||||
If empresa <> "------------" And empresa <> "" Then
|
||||
b_enviar.Enabled = True
|
||||
b_valida.Enabled = True
|
||||
b_enviar.Text = $"Enviar ${empresa} "$
|
||||
b_valida.Text = $"Validar ${empresa} "$
|
||||
Else
|
||||
b_enviar.Enabled = False
|
||||
b_valida.Enabled = False
|
||||
End If
|
||||
Log(Value)
|
||||
End Sub
|
||||
|
||||
Sub envioMariana 'ignore
|
||||
' B4XPages.MainPage.reqsPendientes.Initialize
|
||||
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.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.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.reqsPendientes.Add("ins_pedidos_1")
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
@@ -510,7 +515,6 @@ Sub envioMariana 'ignore
|
||||
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)
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , $"ins_QR_${i}"$)
|
||||
' B4XPages.MainPage.reqsPendientes.Add("ins_QR")
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
@@ -524,7 +528,6 @@ Sub envioMariana 'ignore
|
||||
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"))
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , $"ins_encuesta_${i}"$)
|
||||
' B4XPages.MainPage.reqsPendientes.Add("hist_encuesta")
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
@@ -539,7 +542,6 @@ Sub envioMariana 'ignore
|
||||
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"))
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , $"ins_pedido_${i}"$)
|
||||
' B4XPages.MainPage.reqsPendientes.Add("ins_pedido_1")
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
@@ -549,29 +551,28 @@ Sub envioMariana 'ignore
|
||||
|
||||
' 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
|
||||
For i=0 To c.RowCount - 1
|
||||
c.Position=i
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
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"))
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , $"ins_noventa_${i}"$)
|
||||
' B4XPages.MainPage.reqsPendientes.Add("inst_noventa")
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
|
||||
' D = skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
|
||||
' d.Position=0
|
||||
' Dim cuantos_noventa As String = D.GetString("CUANTOS_NOVENTA")
|
||||
' d.Close
|
||||
d = skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
|
||||
d.Position = 0
|
||||
Dim cuantos_noventa As String = d.GetString("CUANTOS_NOVENTA")
|
||||
d.Close
|
||||
|
||||
' GEO CERCA
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("Select HGCLIENTE, HGDATE, HGLAT, HGLON from HIST_GEOCERCA")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount - 1
|
||||
c.Position=i
|
||||
c = B4XPages.MainPage.skmt.ExecQuery("Select HGCLIENTE, HGDATE, HGLAT, HGLON from HIST_GEOCERCA")
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_geocerca_MARDS"
|
||||
@@ -582,10 +583,10 @@ Sub envioMariana 'ignore
|
||||
c.Close
|
||||
|
||||
' LO DEL LIKE
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("Select HFCLIENTE, HFALIAS,HFRUTA,HFALMACEN from HIST_FACE")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount - 1
|
||||
c.Position=i
|
||||
c = B4XPages.MainPage.skmt.ExecQuery("Select HFCLIENTE, HFALIAS,HFRUTA,HFALMACEN from HIST_FACE")
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_face_like_MARDS"
|
||||
@@ -634,7 +635,6 @@ Sub envioIntmex 'ignore
|
||||
' 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=B4XPages.MainPage.skmt.ExecQuery("SELECT CODIGOKMTS, CODIGOB, LAT, LON FROM HIST_CODIGO_BARRAS" )
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
@@ -677,7 +677,6 @@ Sub envioIntmex 'ignore
|
||||
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")
|
||||
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
|
||||
@@ -689,16 +688,17 @@ Sub envioIntmex 'ignore
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
|
||||
d=B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDO FROM PEDIDO")
|
||||
d.Position=0
|
||||
cuantos_pedido = D.GetString("CUANTOS_PEDIDO")
|
||||
d.Close
|
||||
|
||||
' 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
|
||||
For i=0 To c.RowCount -1
|
||||
c.Position=i
|
||||
c = B4XPages.MainPage.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON FROM NOVENTA")
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount -1
|
||||
c.Position = i
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "insert_noventa_INTMEX"
|
||||
@@ -707,8 +707,10 @@ Sub envioIntmex 'ignore
|
||||
Next
|
||||
End If
|
||||
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
|
||||
|
||||
' 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)")
|
||||
' 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 ")
|
||||
d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE ")
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position=i
|
||||
@@ -777,6 +778,8 @@ Sub envioGuna 'ignore
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
|
||||
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
|
||||
@@ -812,7 +815,7 @@ Sub envioGuna 'ignore
|
||||
End If
|
||||
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
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
@@ -840,10 +843,9 @@ Sub envioGuna 'ignore
|
||||
d.Position=0
|
||||
Private cuantos_pedido As String = D.GetString("CUANTOS_PEDIDO")
|
||||
d.Close
|
||||
|
||||
|
||||
' 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")
|
||||
c = B4XPages.MainPage.skmt.ExecQuery("SELECT NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON FROM NOVENTA")
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
@@ -855,8 +857,10 @@ Sub envioGuna 'ignore
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
|
||||
d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA")
|
||||
d.Position = 0
|
||||
Private cuantos_noventa As String = D.GetString("CUANTOS_NOVENTA")
|
||||
cuantos_noventa = D.GetString("CUANTOS_NOVENTA")
|
||||
d.Close
|
||||
|
||||
' DATOS DE KMTS PARA EL TIPO DE ABARROTE.
|
||||
@@ -981,7 +985,49 @@ Sub envioGuna 'ignore
|
||||
x.Close
|
||||
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
|
||||
|
||||
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
|
||||
@@ -33,7 +33,6 @@ End Sub
|
||||
Sub envioMariana 'ignore
|
||||
Dim resultado = Msgbox2("Se va a enviar la venta de la BD", "AVISO", "Continuar", "Cancelar", "", Null) 'ignore
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
' B4XPages.MainPage.reqsPendientes.Initialize
|
||||
B4XPages.MainPage.l_progressDialog.Text = " Enviando información ..."
|
||||
B4XPages.MainPage.p_progressDialog.Visible = True
|
||||
B4XPages.MainPage.p_progressDialog.BringToFront
|
||||
@@ -50,7 +49,6 @@ Sub envioMariana 'ignore
|
||||
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"))
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedidos_1")
|
||||
' B4XPages.MainPage.reqsPendientes.Add("ins_pedidos_1")
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
@@ -68,7 +66,6 @@ Sub envioMariana 'ignore
|
||||
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)
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_QR")
|
||||
' B4XPages.MainPage.reqsPendientes.Add("ins_QR")
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
@@ -82,7 +79,6 @@ Sub envioMariana 'ignore
|
||||
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"))
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "hist_encuesta")
|
||||
' B4XPages.MainPage.reqsPendientes.Add("hist_encuesta")
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
@@ -97,7 +93,6 @@ Sub envioMariana 'ignore
|
||||
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"))
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedido_1")
|
||||
' B4XPages.MainPage.reqsPendientes.Add("ins_pedido_1")
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
@@ -115,7 +110,6 @@ Sub envioMariana 'ignore
|
||||
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"))
|
||||
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa")
|
||||
' B4XPages.MainPage.reqsPendientes.Add("inst_noventa")
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
|
||||
@@ -31,7 +31,7 @@ Version=12.5
|
||||
#Region Project Attributes
|
||||
#ApplicationLabel: DBCheck
|
||||
#VersionCode: 1
|
||||
#VersionName: 3.09.05
|
||||
#VersionName: 3.11.05
|
||||
'SupportedOrientations possible values: unspecified, landscape or portrait.
|
||||
#SupportedOrientations: portrait
|
||||
#CanInstallToExternalStorage: False
|
||||
|
||||
@@ -13,12 +13,12 @@ ModuleBreakpoints4=
|
||||
ModuleBreakpoints5=
|
||||
ModuleBreakpoints6=
|
||||
ModuleClosedNodes0=2,6
|
||||
ModuleClosedNodes1=5,26,27
|
||||
ModuleClosedNodes2=4,5
|
||||
ModuleClosedNodes1=8,9,10,11,12,13,14,15,16,17,18,20,21,22,24,25,26,27,28
|
||||
ModuleClosedNodes2=5
|
||||
ModuleClosedNodes3=
|
||||
ModuleClosedNodes4=
|
||||
ModuleClosedNodes5=1
|
||||
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
|
||||
VisibleModules=1,6,2,3
|
||||
VisibleModules=1,6,2
|
||||
|
||||
BIN
B4A/Files/logo_keymon.png
Normal file
BIN
B4A/Files/logo_keymon.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 13 KiB |
Binary file not shown.
Reference in New Issue
Block a user