cheveguerra/DBCheck
1
0
Fork 0
mirror of https://github.com/KeymonSoft/DBCheck.git synced 2026-04-20 12:49:35 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.07.05

Browse Source 
- Se agregó Mazapa ... hay que probar!!!
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-07-05 22:11:10 -06:00
parent d83f5038b8
commit 257ab5018a
7 changed files with 333 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
B4A/B4XMainPage.bas
View File

@@ -86,6 +86,7 @@ Sub Class_Globals
Dim Intmex As C_Intmex Dim Intmex As C_Intmex
Dim Durakelo As C_Durakelo Dim Durakelo As C_Durakelo
Dim Marquez As C_Marquez Dim Marquez As C_Marquez
Dim Mazapa As C_Mazapa
Private l_version0 As Label Private l_version0 As Label
Private b_guardaRutaTodos As Button Private b_guardaRutaTodos As Button
Private b_guardaRuta As Button Private b_guardaRuta As Button
@@ -117,7 +118,7 @@ Sub B4XPage_Created (Root1 As B4XView)
ime.Initialize("ime") ime.Initialize("ime")
lv_DBRServer.AddSingleLine("http://keymon.lat:1781") lv_DBRServer.AddSingleLine("http://keymon.lat:1781")
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://192.99.93.204:1782")
et_server.Text = "http://keymon.lat:1781" et_server.Text = "http://keymon.lat:1781"
B_SERVER.Left = (Root.Width / 2) - (B_SERVER.Width / 2) 'Centramos B_SERVER 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 et_server.Left = (Root.Width / 2) - (et_server.Width / 2) 'Centramos et_server
@@ -128,10 +129,12 @@ Sub B4XPage_Created (Root1 As B4XView)
sp_empresa.Add("Intmex") sp_empresa.Add("Intmex")
sp_empresa.Add("Mariana") sp_empresa.Add("Mariana")
sp_empresa.Add("Marquez") sp_empresa.Add("Marquez")
sp_empresa.Add("Mazapa")
i_engrane.Left = Root.Width - i_engrane.Width - 5dip i_engrane.Left = Root.Width - i_engrane.Width - 5dip
Intmex.Initialize Intmex.Initialize
Durakelo.Initialize Durakelo.Initialize
Marquez.Initialize Marquez.Initialize
Mazapa.Initialize
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.
@@ -297,6 +300,11 @@ Sub B4XPage_Appear
b_valida.Text = "Validar Marquez" b_valida.Text = "Validar Marquez"
b_enviar.Enabled = True b_enviar.Enabled = True
Log("Cargamos MARQUEZ") Log("Cargamos MARQUEZ")
else if empresa.ToUpperCase.Contains("MAZAPA") Then
b_enviar.Text = "Enviar Mazapa"
b_valida.Text = "Validar Mazapa"
b_enviar.Enabled = True
Log("Cargamos MAZAPA")
Else Else
p_empresa.Visible = True p_empresa.Visible = True
b_enviar.Enabled = False b_enviar.Enabled = False
@@ -321,6 +329,8 @@ Sub b_enviar_Click
envioDurakelo envioDurakelo
else if empresa.ToUpperCase.Contains("MARQUEZ") Then else if empresa.ToUpperCase.Contains("MARQUEZ") Then
envioMarquez envioMarquez
else if empresa.ToUpperCase.Contains("MAZAPA") Then
envioMazapa
End If End If
' Sleep(5000) ' Sleep(5000)
End If End If
@@ -733,6 +743,10 @@ Sub envioMarquez 'ignore
Marquez.envia Marquez.envia
End Sub End Sub
Sub envioMazapa 'ignore
Mazapa.envia
End Sub
Sub envioGuna 'ignore Sub envioGuna 'ignore
Private PASO As Int = 1 Private PASO As Int = 1
reqManager.reqsList.Initialize 'inicializamos lista de requests. reqManager.reqsList.Initialize 'inicializamos lista de requests.
@@ -963,9 +977,11 @@ End Sub
Sub valida(identificador As String) Sub valida(identificador As String)
Log("Validamos " & identificador) Log("Validamos " & identificador)
If empresa.ToUpperCase.Contains("GUNA") Then If empresa.ToUpperCase.Contains("GUNA") Then
reqManager.Initialize(Me, "http://keymon.lat:1782") ' reqManager.Initialize(Me, "http://keymon.lat:1782")
reqManager.Initialize(Me, "http://192.99.93.204:1782")
Else Else
reqManager.Initialize(Me, "http://keymon.lat:1781") ' reqManager.Initialize(Me, "http://keymon.lat:1781")
reqManager.Initialize(Me, "http://192.99.93.204:1781")
End If End If
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

3
B4A/C_Durakelo.bas
View File

@@ -20,7 +20,8 @@ End Sub
'You can add more parameters here. 'You can add more parameters here.
Public Sub Initialize As Object Public Sub Initialize As Object
reqManager.Initialize(Me, "http://keymon.lat:1781") ' reqManager.Initialize(Me, "http://keymon.lat:1781")
reqManager.Initialize(Me, "http://192.99.93.204:1781")
l_ruta.Initialize("") l_ruta.Initialize("")
L_ABORDO.Initialize("") L_ABORDO.Initialize("")
l_porvisitar.Initialize("") l_porvisitar.Initialize("")

3
B4A/C_Intmex.bas
View File

@@ -22,7 +22,8 @@ End Sub
'Initializes the object. You can add parameters to this method if needed. 'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize Public Sub Initialize
reqManager.Initialize(Me, "http://keymon.lat:1781") ' reqManager.Initialize(Me, "http://keymon.lat:1781")
reqManager.Initialize(Me, "http://192.99.93.204:1781")
End Sub End Sub
Sub envia Sub envia

293
B4A/C_Mazapa.bas Normal file
View File

@@ -0,0 +1,293 @@
B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Class
Version=12.8
@EndOfDesignText@
Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
Dim reqManager As DBRequestManager
Dim c, d As Cursor
Dim usuario, almacen As String
Dim datos_iguales, almacen, carga, paso, conteo, porcentaje, perfil, cuantos, NUMERO_PEDIDO, usuario, cuantos_exib, cuantos_pedidosc, cuantos_noventa, cuantos_ped, cuantos_pedido As String
End Sub
'You can add more parameters here.
Public Sub Initialize As Object
reqManager.Initialize(Me, "http://192.99.93.204:1781")
Return Me
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
'load the layout to Root
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Sub envia
checaPedido
almacen = Subs.traeAlmacen
' CARGA = "SUBIR"
' p_mandaInfo.Width = Root.Width
' p_mandaInfo.Height = Root.Height
' P1.Visible = True
' P1.Left = (p_mandaInfo.Width/2) - (P1.Width/2)
' P1.top = (p_mandaInfo.Height/2) - (P1.Height/2)
' p_mandaInfo.Visible = True
' P1.BringToFront
' p_mandaInfo.BringToFront
'trabajar.Visible = False
' NUEVO.Visible =False
' BUSCA.Visible=False
' connecta.Visible=False
' Subir.Visible=False
' cargar.Visible=False
' L_P_1.Visible = False
' S_CC.Visible = False
' L_P_3.Visible = False
' S_CH.Visible = False
' PB1.Visible = False
' Resumen.Visible= False
' L_P_2.Text = "Envio de Pedidos"
' L_P_3.Text = "Envio de Pedidos"
' S_CH.Text = "EN PROCESO"
' S_CP.Text = "EN PROCESO"
' PB1.Progress = 0
' PB2.Progress = 0
'c=skmt.ExecQuery("SELECT sum(IFNULL(PE_DESC,0)) as DESCUENTO FROM PEDIDO")
'c.Position =0
'If c.GetString("DESCUENTO") > 0 And PASO = 0 Then
'P1.Visible = True
'ELSE IF c.GetString("DESCUENTO") = 0 Then
' PASO = 1
'End If
' If PASO = 1 Then
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)")
c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
c.Position = 0
usuario = c.GetString("USUARIO")
c.Close
' c=B4XPages.MainPage.skmt.ExecQuery("select HGDATE, HGLAT, HGLON from HIST_GPS")
' If c.RowCount>0 Then
' For i=0 To c.RowCount -1
' c.Position=i
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name = "UPDATE_mazapa_ACTUAL2_GPS"
' cmd.Parameters = Array As String(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
' End If
' c.Close
'Envio de Pagares
c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM PAGARES")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_pagares_mazapa"
cmd.Parameters = Array As String(C.GetString("PA_ALMACEN"),Subs.traeRuta2(c.GetString("PA_CLIENTE")),C.GetString("PA_FECHA"),C.GetString("PA_CAPTURA"),C.GetString("PA_MONTO"),C.GetString("PA_USUARIO"),C.GetString("PA_CLIENTE") )
reqManager.ExecuteCommand(cmd , "ins_pagares")
Next
End If
c.Close
' CLIENTES NUEVOS
' Dim fotocn() As Byte
' Dim Dirp As String = File.DirInternal
' Dim Dir As String
' Dim Dir2 As String
' Dir = "/promotoriakmts"
c = B4XPages.MainPage.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO, CN_SOLICITA, CN_COLONIA, CN_TELEFONO, CN_REFERENCIA, CN_HR_INICIO, CN_HR_FIN FROM CLIENTES_NUEVOS")
If c.RowCount>0 Then
For i = 0 To c.RowCount - 1
c.Position = i
Dim dia As Int = DateTime.GetDayOfWeek(DateTime.Now)
If dia = 2 Then
Dim dialetra As String = "LUNES"
Else If dia = 3 Then
Dim dialetra As String = "MARTES"
Else If dia = 4 Then
Dim dialetra As String = "MIERCOLES"
Else If dia = 5 Then
Dim dialetra As String = "JUEVES"
Else If dia = 6 Then
Dim dialetra As String = "VIERNES"
Else If dia = 7 Then
Dim dialetra As String = "SABADO"
End If
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_clientesnuevos_mazapa3"
cmd.Parameters = Array As String(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),almacen, c.GetString("CN_RUTA"), "En espera",c.GetString("CN_GIRO"),dialetra, c.GetString("CN_SOLICITA"), c.GetString("CN_COLONIA"), c.GetString("CN_TELEFONO"), c.GetString("CN_REFERENCIA"), c.GetString("CN_HR_INICIO"), c.GetString("CN_HR_FIN"))
reqManager.ExecuteCommand(cmd , "inst_clientesn")
Next
End If
c.Close
c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM TICKET_TEL_CEDIS")
If c.RowCount > 0 Then
For i = 0 To c.RowCount - 1
c.Position = i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_TICKET_TEL_CEDIS_MAZAPA"
Log(c.GetString("TTC_FOLIO"))
cmd.Parameters = Array As String( _
c.GetString("TTC_TELEFONO"), _
c.GetString("TTC_ID_ALMACEN"), _
c.GetString("TTC_NUM_TICKET"), _
c.GetString("TTC_ID_CLIENTE"), _
c.GetString("TTC_RUTA"), _
c.GetString("TTC_FECHA"), _
c.GetString("TTC_MONTO"), _
c.GetString("TTC_FOLIO"), _
c.GetString("TTC_USUARIO"), _
c.GetString("TTC_FOLIO_UNICO") _
)
reqManager.ExecuteCommand(cmd , "insert_TICKET_TEL_CEDIS")
Next
End If
c.Close
' PEDIDO_CLIENTE
Dim PCNoArts As String
Dim PCMonto As String
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, PC_FACTURA,IFNULL(PC_IMPRESO,0) AS PC_IMPRESO FROM PEDIDO_CLIENTE WHERE PC_CLIENTE <> '1' ")
d = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) as CUANTOS_PEDIDOSC FROM PEDIDO_CLIENTE WHERE PC_CLIENTE <> 1 ")
If c.RowCount > 0 Then
For i = 0 To c.RowCount - 1
c.Position = i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_pedido_CLIENTE_mazapa"
PCNoArts = c.GetString("PC_NOART")
PCMonto = c.GetString("PC_MONTO")
cmd.Parameters = Array As String(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, Subs.traeRuta2(c.GetString("PC_CLIENTE")), c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"), c.GetString("PC_IMPRESO"))
reqManager.ExecuteCommand(cmd , "ins_pedidos")
Log(">>>>>> INSERT PEDIDO_CLIENTE")
Next
End If
c.Close
d.Position = 0
cuantos_pedidosc = d.GetString("CUANTOS_PEDIDOSC")
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, PE_CANTC, PE_BCAJAS,IFNULL(PE_IMPRESO,0) AS PE_IMPRESO FROM PEDIDO WHERE PE_FOLIO <> 'RECARGA'")
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_pedido_PE_mazapa" '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")&", "&Subs.traeRuta2(c.GetString("PE_CLIENTE"))&", "& c.GetString("PE_COSTO_SIN")&", "&c.GetString("PE_DESC")&", "&c.GetString("PE_FOLIO")&", "& almacen)
cmd.Parameters = Array As String(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"),Subs.traeRuta2(c.GetString("PE_CLIENTE")), c.GetString("PE_COSTO_SIN"),c.GetString("PE_DESC"),c.GetString("PE_FOLIO"),c.GetString("PE_CANTC"),c.GetString("PE_BCAJAS"), c.GetString("PE_IMPRESO"))
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
' 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_pedido")
Next
End If
c.Close
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
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_noventa_mazapa"
cmd.Parameters = Array As String(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, Subs.traeRuta2(c.GetString("NV_CLIENTE")))
reqManager.ExecuteCommand(cmd , "inst_noventa")
Next
End If
c.Close
d.Position=0
cuantos_noventa = 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
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_geocerca_mazapa"
cmd.Parameters = Array As String(C.GetString("HGCLIENTE"),C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON"))
reqManager.ExecuteCommand(cmd , "inst_noventa")
Next
End If
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
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_face_like_mazapa"
cmd.Parameters = Array As String(C.GetString("HFCLIENTE"),C.GetString("HFALIAS"),C.GetString("HFRUTA"),C.GetString("HFALMACEN"))
reqManager.ExecuteCommand(cmd , "inst_noventa")
Next
End If
c.Close
' DROP
' t1.Initialize("T1", 30000) ' 1000 = 1 second
' t1.Enabled = True
' Dim sDate,sTime As String
' DateTime.DateFormat = "MM/dd/yyyy"
' sDate=DateTime.Date(DateTime.Now)
' sTime=DateTime.Time(DateTime.Now)
' Dim cmd As DBCommand
' cmd.Initialize
' cmd.Name ="insert_drop_mazapa"
' cmd.Parameters = Array As String(usuario, Subs.traeRuta, sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",almacen,Application.VersionName)
' 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)
c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM PEDIDO_CLIENTE WHERE PC_CLIENTE <> 01")
If c.RowCount > 0 Then
For i = 0 To c.RowCount - 1
c.Position = i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_piezas_mazapa"
cmd.Parameters = Array As String(c.GetString("PC_CLIENTE"), almacen, Subs.traeRuta)
' userpiezas = c.GetString("PC_CLIENTE")
reqManager.ExecuteQuery(cmd , 0, "piezas")
Next
End If
' End If
End Sub
Sub checaPedido
Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT PC_CLIENTE FROM PEDIDO_CLIENTE")
If c.RowCount > 0 Then
B4XPages.MainPage.skmt.ExecNonQuery("Update kmt_info set gestion = 2 WHERE CAT_CL_CODIGO IN (SELECT PC_CLIENTE FROM PEDIDO_CLIENTE)")
End If
Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT NV_CLIENTE FROM NOVENTA")
If c.RowCount > 0 Then
B4XPages.MainPage.skmt.ExecNonQuery("Update kmt_info set gestion = 3 WHERE CAT_CL_CODIGO IN (SELECT NV_CLIENTE FROM NOVENTA)")
End If
End Sub

13
B4A/DBCheck.b4a
View File

@@ -25,23 +25,24 @@ Library8=randomaccessfile
Library9=sql Library9=sql
ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="31"/>~\n~<supports-screens android:largeScreens="true" ~\n~ android:normalScreens="true" ~\n~ android:smallScreens="true" ~\n~ android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~'End of default text.~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~AddPermission(android.permission.INTERNET)~\n~AddPermission(android.permission.READ_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~SetApplicationAttribute(android:allowBackup, "false")~\n~~\n~'AddActivityText(main,~\n~'<intent-filter>~\n~'<action android:name="android.intent.action.VIEW" />~\n~'<category android:name="android.intent.category.DEFAULT" />~\n~'<data android:mimeType="application/octet-stream" />~\n~'</intent-filter>)~\n~~\n~AddActivityText(main,~\n~<intent-filter>~\n~<action android:name="android.intent.action.VIEW" />~\n~<category android:name="android.intent.category.DEFAULT" />~\n~ <data android:mimeType="application/x-sqlite3" /> <!-- Para bases de datos -->~\n~ <data android:mimeType="application/octet-stream" /> <!-- Para otros archivos binarios -->~\n~ <data android:scheme="content" /> <!-- Filtra URIs tipo content:// -->~\n~</intent-filter>) ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="31"/>~\n~<supports-screens android:largeScreens="true" ~\n~ android:normalScreens="true" ~\n~ android:smallScreens="true" ~\n~ android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~'End of default text.~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~AddPermission(android.permission.INTERNET)~\n~AddPermission(android.permission.READ_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~SetApplicationAttribute(android:allowBackup, "false")~\n~~\n~'AddActivityText(main,~\n~'<intent-filter>~\n~'<action android:name="android.intent.action.VIEW" />~\n~'<category android:name="android.intent.category.DEFAULT" />~\n~'<data android:mimeType="application/octet-stream" />~\n~'</intent-filter>)~\n~~\n~AddActivityText(main,~\n~<intent-filter>~\n~<action android:name="android.intent.action.VIEW" />~\n~<category android:name="android.intent.category.DEFAULT" />~\n~ <data android:mimeType="application/x-sqlite3" /> <!-- Para bases de datos -->~\n~ <data android:mimeType="application/octet-stream" /> <!-- Para otros archivos binarios -->~\n~ <data android:scheme="content" /> <!-- Filtra URIs tipo content:// -->~\n~</intent-filter>)
Module1=B4XMainPage Module1=B4XMainPage
Module10=Subs
Module2=C_Durakelo Module2=C_Durakelo
Module3=C_Envios Module3=C_Envios
Module4=C_Intmex Module4=C_Intmex
Module5=|relative|..\C_Marquez Module5=|relative|..\C_Marquez
Module6=DBRequestManager Module6=C_Mazapa
Module7=FileHandler Module7=DBRequestManager
Module8=Starter Module8=FileHandler
Module9=Subs Module9=Starter
NumberOfFiles=6 NumberOfFiles=6
NumberOfLibraries=11 NumberOfLibraries=11
NumberOfModules=9 NumberOfModules=10
Version=12.8 Version=12.8
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: DBCheck #ApplicationLabel: DBCheck
#VersionCode: 1 #VersionCode: 1
#VersionName: 5.04.12 #VersionName: 5.07.05
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

13
B4A/DBCheck.b4a.meta
View File

@@ -1,5 +1,6 @@
ModuleBookmarks0= ModuleBookmarks0=
ModuleBookmarks1= ModuleBookmarks1=
ModuleBookmarks10=
ModuleBookmarks2= ModuleBookmarks2=
ModuleBookmarks3= ModuleBookmarks3=
ModuleBookmarks4= ModuleBookmarks4=
@@ -10,6 +11,7 @@ ModuleBookmarks8=
ModuleBookmarks9= ModuleBookmarks9=
ModuleBreakpoints0= ModuleBreakpoints0=
ModuleBreakpoints1= ModuleBreakpoints1=
ModuleBreakpoints10=
ModuleBreakpoints2= ModuleBreakpoints2=
ModuleBreakpoints3= ModuleBreakpoints3=
ModuleBreakpoints4= ModuleBreakpoints4=
@@ -19,15 +21,16 @@ ModuleBreakpoints7=
ModuleBreakpoints8= ModuleBreakpoints8=
ModuleBreakpoints9= ModuleBreakpoints9=
ModuleClosedNodes0=2,6 ModuleClosedNodes0=2,6
ModuleClosedNodes1=4,7,8,9,11,12,13,16,17,18,19,20,21,22 ModuleClosedNodes1=7,8,9,11,12,13,16,17,18,19,20,21,22
ModuleClosedNodes10=12,13,14
ModuleClosedNodes2= ModuleClosedNodes2=
ModuleClosedNodes3=4,5 ModuleClosedNodes3=4,5
ModuleClosedNodes4= ModuleClosedNodes4=
ModuleClosedNodes5= ModuleClosedNodes5=
ModuleClosedNodes6= ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8=1 ModuleClosedNodes8=
ModuleClosedNodes9=12,13,14 ModuleClosedNodes9=1
NavigationStack=C_Marquez,envia,254,0,C_Marquez,JobDone,473,1,B4XMainPage,b_guardaRuta_Click,458,1,B4XMainPage,b_guardaRutaTodos_Click,486,0,B4XMainPage,l_ruta2_LongClick,429,6,Main,Globals,23,0,Main,Process_Globals,19,0,Main,Activity_KeyPress,39,0,Main,Activity_Create,30,0,B4XMainPage,B4XPage_Appear,137,0 NavigationStack=C_Mazapa,envia,153,4,B4XMainPage,Class_Globals,81,1,B4XMainPage,B4XPage_Created,130,2,B4XMainPage,B4XPage_Appear,295,3,B4XMainPage,b_enviar_Click,326,1,B4XMainPage,envioDurakelo,734,0,B4XMainPage,envioMazapa,740,1,B4XMainPage,envioMarquez,738,0,C_Marquez,envia,104,0,B4XMainPage,b_valida_Click,1027,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,9,4,2,5,6 VisibleModules=1,10,3,4,2,5,6

3
C_Marquez.bas
View File

@@ -21,7 +21,8 @@ End Sub
'You can add more parameters here. 'You can add more parameters here.
Public Sub Initialize As Object Public Sub Initialize As Object
reqManager.Initialize(Me, "http://keymon.lat:1781") ' reqManager.Initialize(Me, "http://keymon.lat:1781")
reqManager.Initialize(Me, "http://192.99.93.204:1781")
l_ruta.Initialize("") l_ruta.Initialize("")
L_ABORDO.Initialize("") L_ABORDO.Initialize("")
l_porvisitar.Initialize("") l_porvisitar.Initialize("")