From 257ab5018aa0b86c749504c72f6c1ff836fae89c Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Sat, 5 Jul 2025 22:11:10 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=205.07.05=20-=20Se=20agreg=C3=B3=20?= =?UTF-8?q?Mazapa=20...=20hay=20que=20probar!!!?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 22 +++- B4A/C_Durakelo.bas | 3 +- B4A/C_Intmex.bas | 3 +- B4A/C_Mazapa.bas | 293 +++++++++++++++++++++++++++++++++++++++++++ B4A/DBCheck.b4a | 13 +- B4A/DBCheck.b4a.meta | 13 +- C_Marquez.bas | 3 +- 7 files changed, 333 insertions(+), 17 deletions(-) create mode 100644 B4A/C_Mazapa.bas diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 93cd5f8..b2fb641 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -86,6 +86,7 @@ Sub Class_Globals Dim Intmex As C_Intmex Dim Durakelo As C_Durakelo Dim Marquez As C_Marquez + Dim Mazapa As C_Mazapa Private l_version0 As Label Private b_guardaRutaTodos As Button Private b_guardaRuta As Button @@ -117,7 +118,7 @@ Sub B4XPage_Created (Root1 As B4XView) ime.Initialize("ime") lv_DBRServer.AddSingleLine("http://keymon.lat:1781") 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" 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 @@ -128,10 +129,12 @@ Sub B4XPage_Created (Root1 As B4XView) sp_empresa.Add("Intmex") sp_empresa.Add("Mariana") sp_empresa.Add("Marquez") + sp_empresa.Add("Mazapa") i_engrane.Left = Root.Width - i_engrane.Width - 5dip Intmex.Initialize Durakelo.Initialize Marquez.Initialize + Mazapa.Initialize End Sub '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_enviar.Enabled = True 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 p_empresa.Visible = True b_enviar.Enabled = False @@ -321,6 +329,8 @@ Sub b_enviar_Click envioDurakelo else if empresa.ToUpperCase.Contains("MARQUEZ") Then envioMarquez + else if empresa.ToUpperCase.Contains("MAZAPA") Then + envioMazapa End If ' Sleep(5000) End If @@ -733,6 +743,10 @@ Sub envioMarquez 'ignore Marquez.envia End Sub +Sub envioMazapa 'ignore + Mazapa.envia +End Sub + Sub envioGuna 'ignore Private PASO As Int = 1 reqManager.reqsList.Initialize 'inicializamos lista de requests. @@ -963,9 +977,11 @@ End Sub Sub valida(identificador As String) Log("Validamos " & identificador) 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 - 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 d = skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS_NOVENTA FROM NOVENTA") d.Position = 0 diff --git a/B4A/C_Durakelo.bas b/B4A/C_Durakelo.bas index 9cb86f1..97a2221 100644 --- a/B4A/C_Durakelo.bas +++ b/B4A/C_Durakelo.bas @@ -20,7 +20,8 @@ End Sub 'You can add more parameters here. 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_ABORDO.Initialize("") l_porvisitar.Initialize("") diff --git a/B4A/C_Intmex.bas b/B4A/C_Intmex.bas index 3d96d6e..13df1f6 100644 --- a/B4A/C_Intmex.bas +++ b/B4A/C_Intmex.bas @@ -22,7 +22,8 @@ End Sub 'Initializes the object. You can add parameters to this method if needed. 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 Sub envia diff --git a/B4A/C_Mazapa.bas b/B4A/C_Mazapa.bas new file mode 100644 index 0000000..2c51c52 --- /dev/null +++ b/B4A/C_Mazapa.bas @@ -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 \ No newline at end of file diff --git a/B4A/DBCheck.b4a b/B4A/DBCheck.b4a index f1acb76..50ad0ee 100644 --- a/B4A/DBCheck.b4a +++ b/B4A/DBCheck.b4a @@ -25,23 +25,24 @@ Library8=randomaccessfile 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~~\n~)~\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~'~\n~'~\n~'~\n~'~\n~')~\n~~\n~AddActivityText(main,~\n~~\n~~\n~~\n~ ~\n~ ~\n~ ~\n~) Module1=B4XMainPage +Module10=Subs Module2=C_Durakelo Module3=C_Envios Module4=C_Intmex Module5=|relative|..\C_Marquez -Module6=DBRequestManager -Module7=FileHandler -Module8=Starter -Module9=Subs +Module6=C_Mazapa +Module7=DBRequestManager +Module8=FileHandler +Module9=Starter NumberOfFiles=6 NumberOfLibraries=11 -NumberOfModules=9 +NumberOfModules=10 Version=12.8 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: DBCheck #VersionCode: 1 - #VersionName: 5.04.12 + #VersionName: 5.07.05 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/DBCheck.b4a.meta b/B4A/DBCheck.b4a.meta index fc72da3..9b9ad1e 100644 --- a/B4A/DBCheck.b4a.meta +++ b/B4A/DBCheck.b4a.meta @@ -1,5 +1,6 @@ ModuleBookmarks0= ModuleBookmarks1= +ModuleBookmarks10= ModuleBookmarks2= ModuleBookmarks3= ModuleBookmarks4= @@ -10,6 +11,7 @@ ModuleBookmarks8= ModuleBookmarks9= ModuleBreakpoints0= ModuleBreakpoints1= +ModuleBreakpoints10= ModuleBreakpoints2= ModuleBreakpoints3= ModuleBreakpoints4= @@ -19,15 +21,16 @@ ModuleBreakpoints7= ModuleBreakpoints8= ModuleBreakpoints9= 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= ModuleClosedNodes3=4,5 ModuleClosedNodes4= ModuleClosedNodes5= ModuleClosedNodes6= ModuleClosedNodes7= -ModuleClosedNodes8=1 -ModuleClosedNodes9=12,13,14 -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 +ModuleClosedNodes8= +ModuleClosedNodes9=1 +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 -VisibleModules=1,9,4,2,5,6 +VisibleModules=1,10,3,4,2,5,6 diff --git a/C_Marquez.bas b/C_Marquez.bas index 91e605a..2b5692f 100644 --- a/C_Marquez.bas +++ b/C_Marquez.bas @@ -21,7 +21,8 @@ End Sub 'You can add more parameters here. 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_ABORDO.Initialize("") l_porvisitar.Initialize("")