From 2caf7dbc384007d7f73a9fb211ce4339e9fd8848 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Sat, 4 Nov 2023 23:36:51 -0600 Subject: [PATCH] =?UTF-8?q?4/11/23=20-=20Cambios=20para=20que=20se=20pueda?= =?UTF-8?q?=20seleccionar=20de=20que=20empresa=20es=20la=20BD,=20o=20si=20?= =?UTF-8?q?la=20BD=20trae=20la=20info,=20que=20la=20detecte=20autom=C3=A1t?= =?UTF-8?q?icamente.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 948 +++++++++++++++++++++++++++---------- B4A/C_Envios.bas | 391 +++++++++++++++ B4A/DBCheck.b4a | 40 +- B4A/DBCheck.b4a.meta | 15 +- B4A/DBRequestManager.bas | 10 +- B4A/FileHandler.bas | 3 +- B4A/Files/engrane_gris.png | Bin 0 -> 12656 bytes B4A/Files/mainpage.bal | Bin 16507 -> 21639 bytes B4A/Subs.bas | 47 ++ 9 files changed, 1180 insertions(+), 274 deletions(-) create mode 100644 B4A/C_Envios.bas create mode 100644 B4A/Files/engrane_gris.png diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index c21b5ff..4eb2a58 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -23,46 +23,57 @@ Version=9.85 'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\ Sub Class_Globals - Private Root As B4XView - Private xui As XUI -' Private b_cargar As Button - Private b_enviar As Button + Dim Root As B4XView + Dim xui As XUI +' Dim b_cargar As Button + Dim b_enviar As Button Dim ime As IME Dim skmt As SQL Dim reqManager As DBRequestManager - Private l_pedidos2 As Label - Private l_diasVenta As Label - Private l_totalVenta As Label - Private l_cantsEnCero As Label - Private l_clienteNoNumerico As Label + Dim l_pedidos2 As Label + Dim l_diasVenta As Label + Dim l_totalVenta As Label + Dim l_cantsEnCero As Label + Dim l_clienteNoNumerico As Label Dim cuantos_pedido As String ' Dim datos_iguales As String Dim cuantos_pedidosc As String Dim cuantos_noventa As String - Dim reqsPendientes As List - Private l_ruta2 As Label +' Dim reqsPendientes As List + Dim l_ruta2 As Label Dim ruta As String = "" - Private l_usuario2 As Label + Dim l_usuario2 As Label Dim usuario As String = "" - Private l_almacen2 As Label + Dim l_almacen2 As Label Dim almacen As String = "" - Private p_progressDialog As Panel - Private l_progressDialog As Label - Private p_editaRuta As Panel - Private p_editaAlmacen As Panel - Private b_cargarBD As Button - Private p_datos As Panel - Private p_principal As Panel - Private l_appInfo As Label + Dim p_progressDialog As Panel + Dim l_progressDialog As Label + Dim p_editaRuta As Panel + Dim p_editaAlmacen As Panel + Dim b_cargarBD As Button + Dim p_datos As Panel + Dim p_principal As Panel + Dim l_appInfo As Label Dim empresa, appVersion As String - Private et_nuevaRuta As EditText - Private et_nuevoAlmacen As EditText - Private p_clientes As Panel -' Private lv_clientes As ListView - Private clv_clientes As CustomListView - Private p_item As Panel - Private l_item As Label - dim ph as Phone + Dim et_nuevaRuta As EditText + Dim et_nuevoAlmacen As EditText + Dim p_clientes As Panel +' Dim lv_clientes As ListView + Dim clv_clientes As CustomListView + Dim p_item As Panel + Dim l_item As Label + Dim i_engrane As ImageView + Dim lv_DBRServer As ListView + Dim et_server As EditText + Dim B_SERVER As Button + Dim p_engrane As Panel + Private sp_empresa As Spinner + Private p_empresa As Panel + Private p_editaUsuario As Panel + Private et_nuevoUsuario As EditText + Private b_guardaUsuario As Button + Dim c, d As Cursor + Dim foto1() As Byte End Sub Public Sub Initialize @@ -70,19 +81,30 @@ Public Sub Initialize End Sub 'This event will be called once, before the page becomes visible. -Private Sub B4XPage_Created (Root1 As B4XView) +Sub B4XPage_Created (Root1 As B4XView) Root = Root1 Root.LoadLayout("MainPage") p_principal.Width = Root.Width p_principal.Height = Root.Height Subs.centraPanel(p_datos, Root.Width) - reqManager.Initialize(Me, "http://187.189.244.154:1782") + reqManager.Initialize(Me, "http://keymon.lat:1782") B4XPages.SetTitle(Me, "Revisión de BD") Subs.centraPanel(p_progressDialog, Root.Width) Subs.centraPanel(p_editaRuta, Root.Width) Subs.centraPanel(p_editaAlmacen, Root.Width) + Subs.centraPanel(p_editaUsuario, Root.Width) Subs.centraPanel(p_clientes, Root.Width) ime.Initialize("ime") + 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) + sp_empresa.Add("------------") + sp_empresa.Add("Mariana") + sp_empresa.Add("Guna") +' envios.Initialize End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. @@ -114,12 +136,14 @@ Sub B4XPage_Appear If File.Exists(File.DirInternal, "kmt.db") Then If Not(skmt.IsInitialized) Then skmt.Initialize(File.DirInternal,"kmt.db", True) Try - Dim ai As Cursor = skmt.ExecQuery($"select CAT_VA_DESCRIPCION, CAT_VA_VALOR from cat_variables where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_VERSION'"$) + Dim ai As Cursor = skmt.ExecQuery($"select CAT_VA_DESCRIPCION, CAT_VA_VALOR from cat_variables where CAT_VA_DESCRIPCION = 'APP_NAME' or CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_VERSION'"$) If ai.RowCount > 1 Then For i = 0 To ai.RowCount -1 ai.Position = i If ai.GetString("CAT_VA_DESCRIPCION") = "EMPRESA" Then empresa = ai.GetString("CAT_VA_VALOR") + If ai.GetString("CAT_VA_DESCRIPCION") = "APP_NAME" Then empresa = ai.GetString("CAT_VA_VALOR") If ai.GetString("CAT_VA_DESCRIPCION") = "APP_VERSION" Then appVersion = ai.GetString("CAT_VA_VALOR") + Log(ai.GetString("CAT_VA_DESCRIPCION")) Next l_appInfo.Text = $"${empresa} ${appVersion}"$ End If @@ -130,7 +154,7 @@ Sub B4XPage_Appear End Try Try Dim c As Cursor = skmt.ExecQuery($"select count(distinct pe_cliente) as pedidos, group_concat(distinct substr(pe_fecha, 4,2)) as diasVenta, sum(pe_costo_tot) as total, (select PE_CANT from pedido where PE_CANT = 0) as cantsEnCero, (select count(distinct PE_CLIENTE) from pedido where printf("%d", PE_CLIENTE) <> PE_CLIENTE ) as clienteNoNumerico from pedido"$) - Log(c.RowCount) +' Log(c.RowCount) If c.RowCount > 0 Then c.Position = 0 l_pedidos2.Text = c.GetString("pedidos") @@ -183,159 +207,65 @@ Sub B4XPage_Appear LogColor("Error en CAT_ALMACEN", Colors.red) End Try End If -End Sub - -Private Sub b_enviar_Click - Dim resultado = Msgbox2("Se va a enviar la venta de la BD", "AVISO", "Continuar", "Cancelar", "", Null) 'ignore - If resultado = DialogResponse.POSITIVE Then - reqsPendientes.Initialize - l_progressDialog.Text = " Enviando información ..." - p_progressDialog.Visible = True - p_progressDialog.BringToFront - skmt.ExecNonQuery2("delete from PEDIDO WHERE PE_PRONOMBRE = ? ", Array As Object("N/A") ) - skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)") - ' PEDIO_CLIENTE - Dim c As Cursor = 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 FROM PEDIDO_CLIENTE ") - Dim d As Cursor = 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 - Dim cmd As DBCommand - cmd.Initialize - 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")) - reqManager.ExecuteCommand(cmd , "ins_pedidos_1") - reqsPendientes.Add("ins_pedidos_1") - Next - End If - c.Close - d.Position=0 -' Dim cuantos_pedidosc As String = D.GetString("CUANTOS_PEDIDOSC") - d.Close - - ' ENVIO DE LOS CODIGOS QR - c = skmt.ExecQuery("SELECT CODIGOKMTS, CODIGOB, LAT, LON FROM HIST_CODIGO_BARRAS" ) - If c.RowCount>0 Then - For i=0 To c.RowCount -1 - c.Position=i - Dim cmd As DBCommand - cmd.Initialize - 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) - reqManager.ExecuteCommand(cmd , "ins_QR") - reqsPendientes.Add("ins_QR") - Next - End If - c.Close - - c = 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 - Dim cmd As DBCommand - cmd.Initialize - 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")) - reqManager.ExecuteCommand(cmd , "hist_encuesta") - reqsPendientes.Add("hist_encuesta") - Next - End If - c.Close - - c = 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 = 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_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")) - reqManager.ExecuteCommand(cmd , "ins_pedido_1") - reqsPendientes.Add("ins_pedido_1") - Next - End If - c.Close - d.Position=0 - cuantos_pedido = D.GetString("CUANTOS_PEDIDO") - d.Close - - ' NOVENTA - c = 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 - 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")) - reqManager.ExecuteCommand(cmd , "inst_noventa") - 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 - - ' GEO CERCA - c=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" - cmd.Parameters = Array As Object(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=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" - cmd.Parameters = Array As Object(C.GetString("HFCLIENTE"),C.GetString("HFALIAS"),C.GetString("HFRUTA"),C.GetString("HFALMACEN")) - reqManager.ExecuteCommand(cmd , "inst_noventa") - Next - End If - c.Close - - ' DROP -' 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_MARDS_2" -' cmd.Parameters = Array As Object(usuario,ruta,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",almacen) -' reqManager.ExecuteCommand(cmd , "inst_noventa") - ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& ruta , True) + Try + usuario = Subs.traeUsuarioDeBD + almacen = Subs.traeAlmacen + ruta = Subs.traeRuta + Catch + Log(LastException) + End Try +' b_enviar.Enabled = False + If empresa.ToUpperCase = "MARIANA" Then + b_enviar.Text = "Enviar Mariana" + b_enviar.Enabled = True + else if empresa.ToUpperCase = "GUNA" Then + b_enviar.Text = "Enviar Guna" + b_enviar.Enabled = True + Else + p_empresa.Visible = True + b_enviar.Enabled = False End If End Sub +Sub b_enviar_Click + Dim resultado = Msgbox2("Se va a enviar la venta de la BD", "AVISO", "Continuar", "Cancelar", "", Null) 'ignore + If resultado = DialogResponse.POSITIVE Then + B4XPages.MainPage.l_progressDialog.Text = " Enviando información ..." + B4XPages.MainPage.p_progressDialog.Top = l_pedidos2.Top + B4XPages.MainPage.p_progressDialog.Visible = True + B4XPages.MainPage.p_progressDialog.BringToFront + + + envioMariana + 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) - If Job.Success = False Then - 'ToastMessageShow("Error: " & Job.ErrorMessage, True) + If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos. + If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then + reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(Job.tag)) + LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue) + End If + LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue) + End If + If Not(Job.Success) Then + LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red) Else 'If Job Success then ... LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) - If Job.JobName = "DBRequest" Then - Dim resultado As DBResult = reqManager.HandleJob(Job) - reqsPendientes.RemoveAt(reqsPendientes.IndexOf(resultado.Tag)) - End If + Dim resultado As DBResult = reqManager.HandleJob(Job) If Job.JobName = "DBRequest" Then Dim resultado As DBResult = reqManager.HandleJob(Job) + If resultado.Tag.As(String).IndexOf("ins_pedido_") > -1 Then - Private cliente As String= resultado.Tag + Dim cliente As String= resultado.Tag Log($"Cliente1:${cliente}"$) For Each records() As Object In resultado.Rows For Each k As String In resultado.Columns.Keys @@ -343,13 +273,9 @@ Sub JobDone(Job As HttpJob) Next Next End If - End If - If Job.JobName = "DBRequest" Then - Dim resultado As DBResult = reqManager.HandleJob(Job) If resultado.Tag.As(String).IndexOf("hist_encuesta") > -1 Then - Private cliente As String= resultado.Tag - reqsPendientes.RemoveAt(reqsPendientes.IndexOf(resultado.Tag)) + Dim cliente As String= resultado.Tag Log($"Cliente1:${cliente}"$) For Each records() As Object In resultado.Rows For Each k As String In resultado.Columns.Keys @@ -357,98 +283,73 @@ Sub JobDone(Job As HttpJob) Next Next End If - End If - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "valida_pedido" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim CUANTOSP As Int = records(RESULT.Columns.Get("CUANTOSP")) + 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 - ' ToastMessageShow("rojo val ok 1 cuantosp." , True) -' datos_iguales = "ok" -' S_CP.Text = "INFO OK" ToastMessageShow("INFO OK", True) Else ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True) -' S_CP.Text = "ENVIAR DATOS (K-2)" ToastMessageShow("ENVIAR DATOS (K-2)", True) Log("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido) End If Next End If - End If - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "valida_pedidoc" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim CUANTOSC As Int = records(RESULT.Columns.Get("CUANTOSC")) + If resultado.Tag = "valida_pedidoc" Then 'query tag + For Each records() As Object In resultado.Rows + Dim CUANTOSC As Int = records(resultado.Columns.Get("CUANTOSC")) If cuantos_pedidosc = CUANTOSC Then - ' ToastMessageShow("rojo val ok 1 cuantosp." , True) -' datos_iguales = "ok" 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) End If Next End If - End If - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "valida_noventa" Then 'query tag - For Each records() As Object In RESULT.Rows - Dim CUANTOSN As Int = records(RESULT.Columns.Get("CUANTOSN")) + If resultado.Tag = "valida_noventa" Then 'query tag + For Each records() As Object In resultado.Rows + Dim CUANTOSN As Int = records(resultado.Columns.Get("CUANTOSN")) If cuantos_noventa = CUANTOSN Then - ' ToastMessageShow("rojo val ok 1 cuantosp." , True) -' datos_iguales = "ok" 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) End If Next End If - End If - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = reqManager.HandleJob(Job) - If RESULT.Tag = "ins_pedido" Then 'query tag - For Each records() As Object In RESULT.Rows -' PB2.Progress = PB2.Progress + 5 -' S_CP.Text = "SUBIENDO" + If resultado.Tag = "ins_pedido" Then 'query tag + For Each records() As Object In resultado.Rows Next -' PB2.Progress = 100 -' S_CP.Text = "LISTO" Log("5") End If - End If - If Job.JobName = "DBRequest" Then - Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job) - If RESULT.Tag = "ins_pedido" Then 'query tag - For Each records() As Object In RESULT.Rows + If resultado.Tag = "ins_pedido" Then 'query tag + For Each records() As Object In resultado.Rows ' PB2.Progress = PB2.Progress + 5 ' S_CP.Text = "SUBIENDO" Next -' PB2.Progress = 100 -' S_CP.Text = "LISTO" -' ToastMessageShow("Listo", False) - Log("5") End If End If End If - If reqsPendientes.Size = 0 Then p_progressDialog.Visible = False + 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 -Private Sub B4XPage_CloseRequest As ResumableSub - ExitApplication +Sub B4XPage_CloseRequest As ResumableSub + If p_engrane.Visible = True Then + p_engrane.Visible = False + Else + ExitApplication + End If Return False End Sub -Private Sub b_cargarBD_Click - Private FH As FileHandler +Sub b_cargarBD_Click + Dim FH As FileHandler FH.Initialize l_appInfo.Text = "" Wait For (FH.Load) Complete (Result As LoadResult) 'Abre un fileManager para seleccionar la base de datos a importar. @@ -463,21 +364,24 @@ Private Sub b_cargarBD_Click End If End Sub -Private Sub l_ruta2_LongClick +Sub l_ruta2_LongClick p_editaRuta.Top = l_ruta2.top p_editaRuta.Visible = True End Sub -Private Sub l_almacen2_LongClick +Sub l_almacen2_LongClick p_editaAlmacen.Top = l_almacen2.top p_editaAlmacen.Visible = True End Sub -Private Sub l_usuario2_LongClick +Sub l_usuario2_LongClick + p_editaUsuario.Top = l_usuario2.top + p_editaUsuario.Visible = True + Log("xxx") End Sub -Private Sub l_clienteNoNumerico_LongClick - Private c As Cursor = skmt.ExecQuery($"select distinct pe_cliente as cliente from pedido"$) +Sub l_clienteNoNumerico_LongClick + Dim c As Cursor = skmt.ExecQuery($"select distinct pe_cliente as cliente from pedido"$) If c.RowCount > 0 Then clv_clientes.Clear For i = 0 To c.RowCount - 1 @@ -490,20 +394,33 @@ Private Sub l_clienteNoNumerico_LongClick p_clientes.Visible = True End Sub -Private Sub b_guardaRuta_Click +Sub b_guardaRuta_Click + If et_nuevaRuta.Text <> "" Then + skmt.ExecNonQuery($"update pedido set pe_ruta = '${et_nuevaRuta.Text}' where pe_ruta = '${ruta}'"$) + l_ruta2.Text = et_nuevaRuta.text + End If p_editaRuta.Visible = False - skmt.ExecNonQuery($"update pedido set pe_ruta = '${et_nuevaRuta.Text}' where pe_ruta = '${ruta}'"$) - l_ruta2.Text = et_nuevaRuta.text End Sub -Private Sub b_guardaAlmacen_Click - skmt.ExecNonQuery($"delete from cat_almacen"$) - skmt.ExecNonQuery($"insert into cat_almacen (id_almacen) values ('${et_nuevoAlmacen.Text}')"$) - l_almacen2.Text = et_nuevoAlmacen.text +Sub b_guardaAlmacen_Click + If et_nuevoAlmacen.Text <> "" Then + skmt.ExecNonQuery($"delete from cat_almacen"$) + skmt.ExecNonQuery($"insert into cat_almacen (id_almacen) values ('${et_nuevoAlmacen.Text}')"$) + l_almacen2.Text = et_nuevoAlmacen.text + End If p_editaAlmacen.Visible = False End Sub -Private Sub p_principal_Click +Private Sub b_guardaUsuario_Click +' skmt.ExecNonQuery($"delete from usuarioa"$) + If et_nuevoUsuario.Text <> "" Then + skmt.ExecNonQuery($"update usuarioa set usuario = '${et_nuevoUsuario.Text}'"$) + l_usuario2.Text = et_nuevoUsuario.text + End If + p_editaUsuario.Visible = False +End Sub + +Sub p_principal_Click p_editaAlmacen.Visible = False p_editaRuta.Visible = False p_clientes.Visible = False @@ -524,4 +441,547 @@ Sub CreateListItem(mostrar As String) As Panel ' cxc.Text = mostrar3 ' Log(p.Width) Return p -End Sub \ No newline at end of file +End Sub + +Sub i_engrane_Click + Subs.panelVisible(p_engrane, 0, 0) + p_engrane.Width = Root.Width +End Sub + +Sub B_SERVER_Click + p_engrane.Visible = False + 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) +End Sub + +Private Sub lv_empresa_ItemClick (Position As Int, Value As Object) + empresa = Value + l_appInfo.Text = $"${empresa}"$ +End Sub + +Private Sub sp_empresa_ItemClick (Position As Int, Value As Object) + empresa = Value + If empresa <> "------------" And empresa <> "" Then + b_enviar.Enabled = True + b_enviar.Text = $"Enviar ${empresa} "$ + 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)") + ' PEDIO_CLIENTE + Dim c As Cursor = 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 FROM PEDIDO_CLIENTE ") + Dim d As Cursor = 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 + Dim cmd As DBCommand + cmd.Initialize + 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 + d.Position=0 +' Dim cuantos_pedidosc As String = D.GetString("CUANTOS_PEDIDOSC") + d.Close + + ' ENVIO DE LOS CODIGOS QR + 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 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + 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 + + 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 + Dim cmd As DBCommand + cmd.Initialize + 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 + + 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 + Dim cmd As DBCommand + cmd.Initialize + 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 + d.Position=0 + B4XPages.MainPage.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, NV_NOMBRE, NV_DIRECCION 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_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 + + ' 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_MARDS" + cmd.Parameters = Array As Object(C.GetString("HGCLIENTE"),C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON")) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_geocerca") + 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_MARDS" + cmd.Parameters = Array As Object(C.GetString("HFCLIENTE"),C.GetString("HFALIAS"),C.GetString("HFRUTA"),C.GetString("HFALMACEN")) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_facelike") + Next + End If + c.Close + + ' DROP +' 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_MARDS_2" +' cmd.Parameters = Array As Object(usuario,ruta,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",almacen) +' reqManager.ExecuteCommand(cmd , "inst_noventa") +End Sub + +Sub envioIntmex 'ignore + Private PASO As Int = 1 + reqManager.reqsList.Initialize 'inicializamos lista de requests. + 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)") + ' 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, PC_FACTURA 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 + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_pedidos_INTMEX" + 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") + Next + End If + c.Close + d.Position=0 + cuantos_pedidosc = D.GetString("CUANTOS_PEDIDOSC") + d.Close + + ' 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 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_QR_2_INTMEX" + 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") + Next + End If + c.Close + + + c=B4XPages.MainPage.skmt.ExecQuery("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 IS NOT NULL") + If c.RowCount>0 Then + For i=0 To c.RowCount -1 + c.Position=i + foto1 = c.GetBlob("CAT_CL_FOTO") + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_QR_INTMEX" + cmd.Parameters = Array As Object(C.GetString("CAT_CL_NUM_SERIEFISICO"), C.GetString("CAT_CL_CODIGO"), C.GetString("CAT_CL_LONG"), C.GetString("CAT_CL_LAT"), almacen, ruta, foto1 ) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_QR") + Next + End If + c.Close + + 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 + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_encuesta_INTMEX" + 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 , "inst_noventa") + Next + End If + 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 + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_pedido_INTMEX" + 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") + 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_INTMEX" + 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) + B4XPages.MainPage.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_INTMEX" + cmd.Parameters = Array As Object(C.GetString("HGCLIENTE"),C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON")) + B4XPages.MainPage.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_INTMEX" + cmd.Parameters = Array As Object(C.GetString("HFCLIENTE"),C.GetString("HFALIAS"),C.GetString("HFRUTA"),C.GetString("HFALMACEN")) + B4XPages.MainPage.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_INTMEX_2" +' cmd.Parameters = Array As Object(usuario,l_ruta.Text,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",almacen) +' B4XPages.MainPage.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) + End If +End Sub + +Sub envioGuna 'ignore + Private PASO As Int = 1 + reqManager.reqsList.Initialize 'inicializamos lista de requests. + If PASO = 1 Then + 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 + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_pedidos_GV2" + 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") ) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedidos") + Next + End If + c.Close + d.Position=0 + Private cuantos_pedidosc As String = D.GetString("CUANTOS_PEDIDOSC") + d.Close + + ' 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 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_QR_2_GV2" + 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") + Next + End If + c.Close + + c = B4XPages.MainPage.skmt.ExecQuery("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 IS NOT NULL") + If c.RowCount > 0 Then + For i = 0 To c.RowCount - 1 + c.Position = i + 's=skmt.ExecQuery2("SELECT HIST_VI_IMAGEN FROM HIST_VISITAS WHERE HIST_VI_CREDITO =?", Array As String (c.GetString("HIST_VI_CREDITO"))) + 's.Position =0 + Private foto1() As Byte = c.GetBlob("CAT_CL_FOTO") + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_QR_GV2" + cmd.Parameters = Array As Object(C.GetString("CAT_CL_NUM_SERIEFISICO"), C.GetString("CAT_CL_CODIGO"), C.GetString("CAT_CL_LONG"), C.GetString("CAT_CL_LAT"), almacen, ruta, foto1) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_QR") + Next + End If + c.Close + + 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 + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_encuesta" + 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 , "inst_noventa") + Next + End If + 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 + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_pedido_GV2" + 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") + Next + End If + c.Close + 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") + 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_GV2" + 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) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa") + Next + End If + c.Close + d.Position = 0 + Private cuantos_noventa As String = D.GetString("CUANTOS_NOVENTA") + d.Close + + ' DATOS DE KMTS PARA EL TIPO DE ABARROTE. + '''CAT_CL_GIRO = ? WHERE CAT_CL_CODIGO = ? And CAT_CL_NOMBRE = ? kmt_info + c = B4XPages.MainPage.skmt.ExecQuery("Select CAT_CL_GIRO, CAT_CL_CODIGO from kmt_info") + If c.RowCount > 0 Then + For i = 0 To c.RowCount - 1 + c.Position = i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_GIROS_ENC" + cmd.Parameters = Array As Object(C.GetString("CAT_CL_CODIGO"),C.GetString("CAT_CL_GIRO")) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa") + Next + End If + c.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_GV2" + cmd.Parameters = Array As Object(C.GetString("HGCLIENTE"),C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON")) + B4XPages.MainPage.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_GV2" + cmd.Parameters = Array As Object(C.GetString("HFCLIENTE"),C.GetString("HFALIAS"),C.GetString("HFRUTA"),C.GetString("HFALMACEN")) + B4XPages.MainPage.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_GV2_2" +' cmd.Parameters = Array As Object(usuario,l_ruta.Text,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",almacen) +' B4XPages.MainPage.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) + End If + + Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8, P9 from ENCUESTA_MODULO1") + If x.RowCount>0 Then + For i=0 To x.RowCount -1 + x.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_ENCUESTA_MODULO1" + cmd.Parameters = Array As Object(x.GetString("CLIENTE"), x.GetString("ALMACEN"),x.GetString("P1"), x.GetString("P2"), x.GetString("P3"), x.GetString("P4"), x.GetString("P5"), x.GetString("P6"), x.GetString("P7"), x.GetString("P8"), x.GetString("P9")) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO1") + Next + End If + x.Close + Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6 from ENCUESTA_MODULO2") + If x.RowCount>0 Then + For i=0 To x.RowCount -1 + x.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_ENCUESTA_MODULO2" + cmd.Parameters = Array As Object(x.GetString("CLIENTE"), x.GetString("ALMACEN"),x.GetString("P1"), x.GetString("P2"), x.GetString("P3"), x.GetString("P4"), x.GetString("P5"), x.GetString("P6")) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO2") + Next + End If + x.Close + Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8, P9 from ENCUESTA_MODULO3") + If x.RowCount>0 Then + For i=0 To x.RowCount -1 + x.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_ENCUESTA_MODULO3" + cmd.Parameters = Array As Object(x.GetString("CLIENTE"), x.GetString("ALMACEN"),x.GetString("P1"), x.GetString("P2"), x.GetString("P3"), x.GetString("P4"), x.GetString("P5"), x.GetString("P6"), x.GetString("P7"), x.GetString("P8"), x.GetString("P9")) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO3") + Next + End If + x.Close + Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8 from ENCUESTA_MODULO4") + If x.RowCount>0 Then + For i=0 To x.RowCount -1 + x.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_ENCUESTA_MODULO4" + cmd.Parameters = Array As Object(x.GetString("CLIENTE"), x.GetString("ALMACEN"),x.GetString("P1"), x.GetString("P2"), x.GetString("P3"), x.GetString("P4"), x.GetString("P5"), x.GetString("P6"), x.GetString("P7"), x.GetString("P8")) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO4") + Next + End If + x.Close + Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8, P9 from ENCUESTA_MODULO5") + If x.RowCount>0 Then + For i=0 To x.RowCount -1 + x.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_ENCUESTA_MODULO5" + cmd.Parameters = Array As Object(x.GetString("CLIENTE"), x.GetString("ALMACEN"),x.GetString("P1"), x.GetString("P2"), x.GetString("P3"), x.GetString("P4"), x.GetString("P5"), x.GetString("P6"), x.GetString("P7"), x.GetString("P8"), x.GetString("P9")) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO5") + Next + End If + x.Close +End Sub + +Private Sub p_empresa_Click + +End Sub + diff --git a/B4A/C_Envios.bas b/B4A/C_Envios.bas new file mode 100644 index 0000000..e7525f5 --- /dev/null +++ b/B4A/C_Envios.bas @@ -0,0 +1,391 @@ +B4A=true +Group=Default Group +ModulesStructureVersion=1 +Type=Class +Version=12.5 +@EndOfDesignText@ +Sub Class_Globals + Private Root As B4XView 'ignore + Private xui As XUI 'ignore + Private c, d As Cursor + Private usuario As String 'ignore + Private almacen As String + Private ruta As String +End Sub + +'You can add more parameters here. +Public Sub Initialize As Object + usuario = Subs.traeUsuarioDeBD + almacen = Subs.traeAlmacen + ruta = Subs.traeRuta + 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 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 + 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)") + ' PEDIO_CLIENTE + Dim c As Cursor = 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 FROM PEDIDO_CLIENTE ") + Dim d As Cursor = 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 + Dim cmd As DBCommand + cmd.Initialize + 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 + d.Position=0 +' Dim cuantos_pedidosc As String = D.GetString("CUANTOS_PEDIDOSC") + d.Close + + ' ENVIO DE LOS CODIGOS QR + 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 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + 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 + + 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 + Dim cmd As DBCommand + cmd.Initialize + 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 + + 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 + Dim cmd As DBCommand + cmd.Initialize + 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 + d.Position=0 + B4XPages.MainPage.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, NV_NOMBRE, NV_DIRECCION 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_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 + +' 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 + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_geocerca_MARDS" + cmd.Parameters = Array As Object(C.GetString("HGCLIENTE"),C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON")) + B4XPages.MainPage.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_MARDS" + cmd.Parameters = Array As Object(C.GetString("HFCLIENTE"),C.GetString("HFALIAS"),C.GetString("HFRUTA"),C.GetString("HFALMACEN")) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa") + Next + End If + c.Close + + ' DROP +' 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_MARDS_2" +' cmd.Parameters = Array As Object(usuario,ruta,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",almacen) +' reqManager.ExecuteCommand(cmd , "inst_noventa") + ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& ruta , True) + End If +End Sub + +Sub envioGuna 'ignore + Private PASO As Int = 1 + 'End If + If PASO = 1 Then + 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 + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_pedidos_GV2" + 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") ) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_pedidos") + Next + End If + c.Close + d.Position=0 + Private cuantos_pedidosc As String = D.GetString("CUANTOS_PEDIDOSC") 'ignore + d.Close + + ' 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 + c.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_QR_2_GV2" + 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") + Next + End If + c.Close + + c = B4XPages.MainPage.skmt.ExecQuery("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 IS NOT NULL") + If c.RowCount > 0 Then + For i = 0 To c.RowCount - 1 + c.Position = i + 's=skmt.ExecQuery2("SELECT HIST_VI_IMAGEN FROM HIST_VISITAS WHERE HIST_VI_CREDITO =?", Array As String (c.GetString("HIST_VI_CREDITO"))) + 's.Position =0 + Private foto1() As Byte = c.GetBlob("CAT_CL_FOTO") + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_QR_GV2" + cmd.Parameters = Array As Object(C.GetString("CAT_CL_NUM_SERIEFISICO"), C.GetString("CAT_CL_CODIGO"), C.GetString("CAT_CL_LONG"), C.GetString("CAT_CL_LAT"), almacen, ruta, foto1) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_QR") + Next + End If + c.Close + + 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 + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_encuesta" + 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 , "inst_noventa") + Next + End If + 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 + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_pedido_GV2" + 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") + Next + End If + c.Close + d.Position=0 + Private cuantos_pedido As String = D.GetString("CUANTOS_PEDIDO") 'ignore + 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_GV2" + 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) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa") + Next + End If + c.Close + d.Position = 0 + Private cuantos_noventa As String = D.GetString("CUANTOS_NOVENTA") 'ignore + d.Close + + ' DATOS DE KMTS PARA EL TIPO DE ABARROTE. + '''CAT_CL_GIRO = ? WHERE CAT_CL_CODIGO = ? And CAT_CL_NOMBRE = ? kmt_info + c = B4XPages.MainPage.skmt.ExecQuery("Select CAT_CL_GIRO, CAT_CL_CODIGO from kmt_info") + If c.RowCount > 0 Then + For i = 0 To c.RowCount - 1 + c.Position = i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_GIROS_ENC" + cmd.Parameters = Array As Object(C.GetString("CAT_CL_CODIGO"),C.GetString("CAT_CL_GIRO")) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_noventa") + Next + End If + c.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_GV2" + cmd.Parameters = Array As Object(C.GetString("HGCLIENTE"),C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON")) + B4XPages.MainPage.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_GV2" + cmd.Parameters = Array As Object(C.GetString("HFCLIENTE"),C.GetString("HFALIAS"),C.GetString("HFRUTA"),C.GetString("HFALMACEN")) + B4XPages.MainPage.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_GV2_2" +' cmd.Parameters = Array As Object(usuario,l_ruta.Text,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",almacen) +' B4XPages.MainPage.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) + End If + + Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8, P9 from ENCUESTA_MODULO1") + If x.RowCount>0 Then + For i=0 To x.RowCount -1 + x.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_ENCUESTA_MODULO1" + cmd.Parameters = Array As Object(x.GetString("CLIENTE"), x.GetString("ALMACEN"),x.GetString("P1"), x.GetString("P2"), x.GetString("P3"), x.GetString("P4"), x.GetString("P5"), x.GetString("P6"), x.GetString("P7"), x.GetString("P8"), x.GetString("P9")) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO1") + Next + End If + x.Close + Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6 from ENCUESTA_MODULO2") + If x.RowCount>0 Then + For i=0 To x.RowCount -1 + x.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_ENCUESTA_MODULO2" + cmd.Parameters = Array As Object(x.GetString("CLIENTE"), x.GetString("ALMACEN"),x.GetString("P1"), x.GetString("P2"), x.GetString("P3"), x.GetString("P4"), x.GetString("P5"), x.GetString("P6")) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO2") + Next + End If + x.Close + Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8, P9 from ENCUESTA_MODULO3") + If x.RowCount>0 Then + For i=0 To x.RowCount -1 + x.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_ENCUESTA_MODULO3" + cmd.Parameters = Array As Object(x.GetString("CLIENTE"), x.GetString("ALMACEN"),x.GetString("P1"), x.GetString("P2"), x.GetString("P3"), x.GetString("P4"), x.GetString("P5"), x.GetString("P6"), x.GetString("P7"), x.GetString("P8"), x.GetString("P9")) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO3") + Next + End If + x.Close + Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8 from ENCUESTA_MODULO4") + If x.RowCount>0 Then + For i=0 To x.RowCount -1 + x.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_ENCUESTA_MODULO4" + cmd.Parameters = Array As Object(x.GetString("CLIENTE"), x.GetString("ALMACEN"),x.GetString("P1"), x.GetString("P2"), x.GetString("P3"), x.GetString("P4"), x.GetString("P5"), x.GetString("P6"), x.GetString("P7"), x.GetString("P8")) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO4") + Next + End If + x.Close + Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery("Select CLIENTE, ALMACEN, P1, P2, P3, P4, P5, P6, P7, P8, P9 from ENCUESTA_MODULO5") + If x.RowCount>0 Then + For i=0 To x.RowCount -1 + x.Position=i + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_ENCUESTA_MODULO5" + cmd.Parameters = Array As Object(x.GetString("CLIENTE"), x.GetString("ALMACEN"),x.GetString("P1"), x.GetString("P2"), x.GetString("P3"), x.GetString("P4"), x.GetString("P5"), x.GetString("P6"), x.GetString("P7"), x.GetString("P8"), x.GetString("P9")) + B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "insert_ENCUESTA_MODULO5") + Next + End If + x.Close +End Sub \ No newline at end of file diff --git a/B4A/DBCheck.b4a b/B4A/DBCheck.b4a index c6aef8d..6857893 100644 --- a/B4A/DBCheck.b4a +++ b/B4A/DBCheck.b4a @@ -1,28 +1,31 @@ Build1=Default,dbcheck.keymon.lat,HU2_PUBLIC -File1=listItem.bal -File2=MainPage.bal +File1=engrane_gris.png +File2=listItem.bal +File3=MainPage.bal FileGroup1=Default Group FileGroup2=Default Group +FileGroup3=Default Group Group=Default Group -Library1=appupdating -Library10=xcustomlistview -Library2=b4xpages -Library3=byteconverter -Library4=contentresolver -Library5=core -Library6=ime -Library7=okhttputils2 -Library8=randomaccessfile -Library9=sql +Library1=b4xpages +Library10=fileprovider +Library2=byteconverter +Library3=contentresolver +Library4=core +Library5=ime +Library6=okhttputils2 +Library7=randomaccessfile +Library8=sql +Library9=xcustomlistview 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~) Module1=B4XMainPage -Module2=DBRequestManager -Module3=FileHandler -Module4=Starter -Module5=Subs -NumberOfFiles=2 +Module2=C_Envios +Module3=DBRequestManager +Module4=FileHandler +Module5=Starter +Module6=Subs +NumberOfFiles=3 NumberOfLibraries=10 -NumberOfModules=5 +NumberOfModules=6 Version=12.5 @EndOfDesignText@ #Region Project Attributes @@ -96,3 +99,4 @@ public boolean _onCreateOptionsMenu(android.view.Menu menu) { #End Region 'Program code should go into B4XMainPage and other pages. + diff --git a/B4A/DBCheck.b4a.meta b/B4A/DBCheck.b4a.meta index 7ff4e4a..f5da3f2 100644 --- a/B4A/DBCheck.b4a.meta +++ b/B4A/DBCheck.b4a.meta @@ -4,18 +4,21 @@ ModuleBookmarks2= ModuleBookmarks3= ModuleBookmarks4= ModuleBookmarks5= +ModuleBookmarks6= ModuleBreakpoints0= ModuleBreakpoints1= ModuleBreakpoints2= ModuleBreakpoints3= ModuleBreakpoints4= ModuleBreakpoints5= +ModuleBreakpoints6= ModuleClosedNodes0=2,6 -ModuleClosedNodes1=5,6,7 -ModuleClosedNodes2= +ModuleClosedNodes1=5,26,27 +ModuleClosedNodes2=4,5 ModuleClosedNodes3= -ModuleClosedNodes4=1 -ModuleClosedNodes5= -NavigationStack=B4XMainPage,b_guardaRuta_Click,447,6,B4XMainPage,b_guardaAlmacen_Click,456,6,B4XMainPage,l_clienteNoNumerico_LongClick,439,5,B4XMainPage,CreateListItem,472,6,B4XMainPage,p_principal_Click,466,0,B4XMainPage,B4XPage_Created,69,6,B4XMainPage,B4XPage_Appear,82,6,B4XMainPage,Class_Globals,22,4,Visual Designer,MainPage.bal,-100,6,B4XMainPage,b_cargarBD_Click,446,6 +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 SelectedBuild=0 -VisibleModules=1,5,3 +VisibleModules=1,6,2,3 diff --git a/B4A/DBRequestManager.bas b/B4A/DBRequestManager.bas index 99c6874..e0e2b63 100644 --- a/B4A/DBRequestManager.bas +++ b/B4A/DBRequestManager.bas @@ -5,8 +5,6 @@ Type=Class Version=6.8 @EndOfDesignText@ ''Class module -'Necesita la libreria RandomAccessFile y ByteConverter. - Sub Class_Globals Private mTarget As Object Type DBResult (Tag As Object, Columns As Map, Rows As List) @@ -18,6 +16,7 @@ Sub Class_Globals Private VERSION As Float = 0.9 Private tempArray(1) As Object Dim jobTagAnterior As String = "" 'Mod por CHV - 211109 + Dim reqsList As List End Sub 'Target - The module that handles JobDone (usually Me). @@ -25,6 +24,7 @@ End Sub Public Sub Initialize (Target As Object, ConnectorLink As String) mTarget = Target link = ConnectorLink + reqsList.Initialize End Sub 'Sends a query request. @@ -35,7 +35,8 @@ Public Sub ExecuteQuery(Command As DBCommand, Limit As Int, Tag As Object) Dim j As HttpJob Dim ms As OutputStream Dim out2 As OutputStream = StartJob(j,ms, Tag) - + If reqsList.IsInitialized Then reqsList.Add(Tag) + WriteObject(Command.Name, out2) WriteInt(Limit, out2) WriteList(Command.Parameters, out2) @@ -61,6 +62,7 @@ End Sub 'Similar to ExecuteBatch. Sends a single command. Public Sub ExecuteCommand(Command As DBCommand, Tag As Object) + If reqsList.IsInitialized Then reqsList.Add(Tag) ExecuteBatch(Array As DBCommand(Command), Tag) End Sub @@ -115,7 +117,7 @@ Private Sub WriteObject(o As Object, out As OutputStream) Else If GetType(tempArray(0)) = "[B" Then data = o out.WriteBytes(Array As Byte(T_BLOB), 0, 1) - WriteInt(data.Length, out) + WriteInt(data.Length, out) Else 'If o Is String Then (treat all other values as string) out.WriteBytes(Array As Byte(T_STRING), 0, 1) data = bc.StringToBytes(o, "UTF8") diff --git a/B4A/FileHandler.bas b/B4A/FileHandler.bas index 4343a9c..a9529f8 100644 --- a/B4A/FileHandler.bas +++ b/B4A/FileHandler.bas @@ -4,7 +4,7 @@ ModulesStructureVersion=1 Type=Class Version=11 @EndOfDesignText@ -'Requiere la librería "ContentResolver" y "AppUpdating" +'Requiere la librería "ContentResolver" y "FileProvider" o "AppUpdating" ' 'Copiar este codigo al boton_Click que se quiere que importe la base de datos. ' @@ -23,7 +23,6 @@ Sub Class_Globals Private OldIntent As Intent #end if Type LoadResult (Success As Boolean, Dir As String, FileName As String, RealName As String, Size As Long, Modified As Long, MimeType As String) - End Sub Public Sub Initialize diff --git a/B4A/Files/engrane_gris.png b/B4A/Files/engrane_gris.png new file mode 100644 index 0000000000000000000000000000000000000000..93d32d4f2953a3871ed228b654338af8012dbbdd GIT binary patch literal 12656 zcma)jbyO5z+`dYKl)};tA}t^i0+I_zv+S}Uxh&l&tu&I--3?1EB`vX}fCwxp2$D;8 zs_%Y(zrWve-g9QooO|zlK6mCbH=pO3PdZvEq{Q^Z4<0-qRZ~^cd+^{P|9>YTJ~qcU zFy0G$dFY|1qVS-0f^ip{z_pRrlz;G`A%W!H0uP%ea#c0-c<_L%|G)F$kV^&p!2@AD zH6?j{AJc5p`xg2cx-{r*9RPr$D`JYI}{n@i1O_D3Mf;#E7m&YSUd!rkAAxQFztmst8)OT<$x~1)&p@htfQEDPen~ zTj*T|L8uIe#vj2HCO$sp3ZSo?cT!jkPw_N|alK#I0Oq;LtKlH8W95Z*UKQ2? zr|z*qxjQFh&#O)K(uKe*W%3mg%x6%0Po6FA^0#`6uiQHzY!-(TVzYBfWLOFMTKdI= zLjb*zGkQV^**up+{F)Q{;nxf_G9$gxD*a*()_^wNA`sRM_P*Ild#mbA&Lme_;nykk zdYlkGFScuB1m30Hyuoz;UB6Aah;coy5=>cchX#H`8!#ml#JZ$ebfG<71A6LXlymEo zk4S*w)g}8@D3)FmR*SrB_lpx;O*wdZU6fBzjG8&_-9lI5u~^I!6j#f}Q2&BURNm~& zgpoi3a{#r0+Y)iFEK5*s?CT+5NKl9Ao;KjbWvX_+-`xOEve?1l;b?tt8C|pBKgYY}9 zoLt|3Qmcjc#eB9uehuUJDWM+gcg!sZc3dNwifsV&dMrIXZK7-53!>vgS~u^J??(~n zRpyNB>?Q61Z{i`m>L=`k=qbPBkq1*ew?AEeYzk+Rq&0F1LM^|CDn$ccJvo!>N<0G2 z^ZV`opf_ejl>_NgPxdu;=qkxa|~8Fi1A^2 zo`y$StIyIG+K@fdJs#PQdp(ru@YIcuYP>UuDew^!c~tOU!-ynW=S#hL|9PtY45nK2w6T{t$e%) z_KuT9rciJ+lZys(Ux<_2JKrhS;W}JkW?j(X%~kU^6RU!jsy#LydoyxAMB^h`i~*G7 zVJBm^cje-(e+tDzN(X=1prWZiR3|t-(Rvtj_8#+|f9r=gvEo705V?zKRlh84*N3+~ z#RioH{%lZt{Z8-JQ9bRk>pL^IDc)>Wh*@GoZA#YUxmr^d4Zqm4yi~@4s_->wQ>BD% zL5gMuhk~{!>K8xSje4qS7Qod21S=#z(NL&Xn`Dh#gWRNvm_3S`EZca%K4bDqzNw0u zUu=b_ed9SqAPOyWo7+uc_COv{o4om724vRaC73vkK2EGCVa%Pn8W3?7+hp7%0zBw< ze+0Wg_tN+((rPvrfpg6(8#1haa*UZEjC^R9{WEy%)6opj5NI>25m<1*fD3A0V%!-# zy}r`_mw)?f>V*CbwY2X!hp1Sp=YoCTDWWIzDVk} zRa;pIG!^+(mUO$KGd+9~rPqYDZrJiDM?7n=zbTAOL@V-g7gwf=06~vWMlz|gjc^@k zPiI_o+A?lW-r+lZLM{$emHJHaLh5JQGRRUpt;L9<01U>4(pETL(UI+?z+QV_ePExA zUjK{;DdW(Hy$VvDN-Z(w5VKM0hf^MY8fXf{pGhJ2JYdx;iL5k16xbeFxP_FC3jSo+ zk>FWF86d9epZ5~Oz%kZ#dxD{@0TaqE}N05)jV4C5s}@9-G*wLCobM;4b@Zv(lLBd>T+(OO=&%gcsPOmpISq;p!jxqqSQ zG}#?1avyFpMuT!{CC|%aE^??7G0z=(^|+Ar@g!;IeU$|sCM6SMQB>$u!gIyGtH5A$ zb)W*|p4IqHjt|1JW?k{7lu7`w?lN@-{O*X}knJ-PQl}fZ`V$@=K8w+(3A=k(n0&yu z7h@|^DkAy>x!&tq!*n|qY1Cj(^yiaKZb}jAaoL$fN9_otzT}e8((|oHdf3sJR#txg zKRu5QE(}~69tB}BXUXF_TQd@kn!Uk@#{jeT?#BHj4+|6i%?BihnOrPWN@oj5Ce#b2 zltwq-7D`PLVU!TLaaO8L_RMx{%lWpliv@n19~N4(J9rB}P*_Z?by-f0oe-H2nriYG zZNF_A{+q~UNSwwS>r=hzcvut)?J~%X1Qn($<$hk1CMj=@24si*;|XZNjReMdsb&g- znUIBkYUls@8DeZtic}wh6w_cx&N)gzb^ypx*;g0l6+3|0a(zRoSOm_#I(~=bnr`q6 z#vBWp{6(}?;|~x=j{A-uz*&tjk>}+qSuRB$2z*jQ=E!_(?mv0LCdzSxC zJP=;OkS(^BMJ-7T*?-W2W{{X3wx{y?k<=AAgStU_HK6Qi|2U=LYNZ9b94i~LLM*$2 zr`@MD#bt!1q>NcC=TP#JS|p95k<`39cyut0yS zoW}MUY$+^Ba@{?i6knn$p1n2=zlTNX%kK9o(s+ z8i{&N{PHSk-5kN>q-=A_3G-*HiuGS7hO3h8exV7Alox+e*~LX#ymhOKZT%ODi4vxn zeywux7A~=_9G${+Eyxx%`;BCOy58>sBVGq>SQokw9!zx2hh%DzJQeIM@mcZ=b2TwD`#(|gn?Y3 z{`qmjx-+taz)Xu=EB4JyPqHI#SS-*4I#Q&8UL-QlA*vijC?9a zw%!kZ@h@<4e0{Y*qVPr(Mfu*p`di8y26rm{veykB7F;wnfYkgAyCw1WIQY6dJS=J5 z1?}7O_Xk-W20E*gn>t6gCj9lkf5!7bVz;jJZ!9+yvNIU*V#ZrPEH5i_RbG8}18_uv zWAQF^w=SgN=?!c{5{NhH0&}6SNYuI_<3*!yE%{x3!8p%Coa6R!)vL7Xi!TZZViK4A zcO(Qbk-}ZU#hF=1xu>38F-vJtRA;Pw)fF7EIB*t5Qt^WUB;$>Pqx>{V zd)8iA{Gx(VUQbQacu>TXwrSJy!(L%{ISFYnf$H$Yw3xJ~q+a5HdCN$_*gim=qoNIx znjcKRKrLi{m=tV#qtI!oMZpJ{2Srn7qZ$d1=v2HdNQ*1jh>X>Jjb)0ZMTGo@LoGvY zC067@LP7lXtrYK3y&Q%%`QxVb@se8^POS^p44qt^!Fs{Al*X95%a#yk=^wP@EXH4X zB$$uesr79tY374vl7=d3hS`(E7Dxc_Q+!ObE$OGJw+mV#?5Ayq&pGBK?vaiXZ~v7e zUvbm)p;lg^Rp#~YQey4?odr@i#|}gn?8c2dtx&N+3kEmk&HXZNkAodsPM}4%z|XX^ zN#vjUS1MEH5)zwydrB$}D1}mtq&EhK zsftQqR;VvbE^+*$mm*Nhgk(mqem4Wb)OpfVXg?8@B_dE|V~X2wg&!XRZFu!g|Bc|= zdbzmV{&R||d4F2dM`139gu>5fR5KmL2TlC_w(1T z-c4=mmcq1#HAc-C9g~Gb9lTjWz~fH<%IPiza=aK!%0C~&%9S3$UXt4|%;x!4i$VQY zS;po25B<$PRZsW{i<%(-hmuqg8-v$)oOl!4R)I|5xX|D0vZc3e-E9YWHRAR2-@|Kk zbIs)`1YoAHuivvZJEz!^!v&Rs8@X$=9l+D>2qlNc*guI=x*rDEM0X2o#x}kGbftF& zlaP?q&1`Ouo80L0Kp&C~#rFQjuug^2TpV{A*J}QmC{?q-)|{ReyBNJOWn{vs` zRvha|IDV@^civgu7Q!djFFD3_=i9fZO3JTe}0b!-1HO`q%-&vN$#-WA3WPL7z>&S;LoqZ zRnJYZaE-knT1kqnEpi;vZ99IDq*t01wW%T3bg291FT{fZ4`>KCY_^_@V-U})*n4eN zQc@eT2*mclj1|6y=%jo8DC&nFo1Kg&@RauIz>~V2kr;8G6id#a`_dt1|9!a0$cm9B z8f}luce)eZ<=1ds@~tbl<(JI;*!M`7YhLUFZBX}F?$Lgy_rapjf3tsnzX1v~O&Aks zc_+rA*{0~Ch6H966GSG<@o2YJ5m4D$5i|&RW!0>t%dq z>|5;BES$_yh7k7^XFxaS+!q==oqz09qoNqY_7cu6DJEOhXe zo^kJd#!+|A{^gJn?d#WzmWzi5Cd!(dmV!`w+5w^~;c2nulhO@xv)H>CImg;pT!j8) zDp>;f!~;p5!`)-+u4u3(;WQojnXV zXQJ^HS^g4yww`v8zN|u&Ecg5PQcOFnto=9XWLmay0VoMS>*H*s zK3=C)dfaGRo!~in4wuVDhlbq8f5oGA7(B?0ub}DY)EB2YxJ5U0x?P!)B~sYU>!V^E zn4GGIUZ_s9H186h0{7M$*O>xFD^_k*p!h7XkS~!wGJ5=Zj;vzD4C6H@HB(Fpr0?9~ z%`~?R#wlmWt-Ia3hqh?psi$gZJ&pLnXlBY_Q}wWxFke&W58H8NLa;)G56HCe6!^wi z(M!&!mjDh|*W_883B7s9!F#mUeh>CApq^RXtm?TKcM|txhgNw4AZqH_?a79{b_4zu zr<$#6*flA&B2!sN=kt)P;FbuV$;Fx4|iQKx?W{6uDub%mf>WHNi!pGFZz zBHc$8Hp)Fml5}gFjJ1>u3hEk-a}hMkyz=pQ7pm9&NazG%4612S1tRB~b1@uhdzmr4 z+Z$4`@0dD1b2rCzTa$Bqe%7at)s4pi{B7e%AYgg==ntz^b{{ zkkqn$L^8G(W~G9M8x8tMS-oHOQN3_AV6(5U&-s=XWUJEXWArs*C#yVMAhL3DGQfFb zCZzPupnkm&Oc|)Vx2yNfvny6Zg05``1mD`;cKdj5V5l+09#g*XoUc>bJ|EDMQ`(+m zC*zPt35e;>xj_>!H!y}*OwH##vFv}v3Q12Bgb45siF?^K+7EtoQbIFK6%TcBh4fBn z?1g}c(wOUCMRy5xdKxED3eVLJduINoJQU@af>B<5+Y%&3+u-S+h-6ZfMS#jH^1Q=P zEs0qzOOB-Ir{5xWEc_@Pq^>{izZ{!_@#;VGW?BBeoOuRpW~i*v)G<^&q}jXgW6Y2u z4ubXSDK>bcOzXPMbER;^17jWW4gjBE*ag1a;u^HK^j<*yRzx7|PhX5btc=d0VdY18 zaq0Y5yH7WRiw|H{^eSmtFGM7p+e9NPW35eI)BPitt>+7=WPS2 z=r$#^H!GZf+Vg!D-~{p~8-De)6&jsN*F{fEYmjh1LA=0?7iJ$0cCbRL-NIraJ*5*Y zoA7*NLh{!KHgUVJcvC}lAqXC4d)IZ%{oxGHFy+q%vHfZwMH@30NnWCLmq0j;%Qi_? zLRaWhJA{g1o$hPzq(E~lScO6gNR~InY4!vQTtykuVwNTPE#I zX%S+#O8W`rUj`A_xIMLCj?UA>F~XRLD64@zS5E3mFquK*yb8dhCK6=H-`l@1HU*AZ zOcrDP@yPJWI8o`TG+Tf6WxiGV=rKET(yQUGlU15VKoVMsCrQkV8+!P3JeTMLCr2yf z@gTDbHO?#-d9u~Sr6#Z0f#hhK(uD@q1qyqI^gvH=#>>_dUAh|3O4EJXH<6?JgQ}rV zjJj=vXvy2&GPNJ>te*AdR%v99%UZWo5;x;9^h1MlR%z2ms}QgOQwm9;;DVzwY9K^x zH|6^-{uU+;hI*H;sO6u){DABNz6e*-vf;UWM1%MOWhvE$-+7FysPOZ3Y~n)eRHQh* zn4?gOOZHhk)p8QDV@aQAVsf2bd!xq&4wvW}g5=curNA*>{{R0zDd~+7S1z`+(=GcN{+vyoX?cb(t5N0bXZQbbaNH)c;kr6kg5I*IpI22itxXP99=AN8|UKh-5%HIB)auR z$9NH}ieWRRi@)IBoaILS7al3=q5IBGJwlR0tkq+z6)Q9?G5~4XSavh-FEKlKd#|Fs z{WQ~_7f z3cNWEc?Y8g&hJ%HL%m-k+p3v8t=27%xtT0_P1Y6(v~9UvkEpA_7)1Z1s&P1LC*;e&;;l) zGJDyqzMbpdtzshFzn69~v-&IOPk8F&bk4K1piE;Z&5Ac9;FWQWq|RoA)U64Mqdt)$ zm3G-dl8Ndr(t(Bb+PjJd^OA%A3%l{%12-efmpt%ZxyPc+DoLj`8n5oy5XWmp<-if{l~ay#yHd08l@|<0WW_)GSoQQGxVDmHzaQ0x_4g4 zydCatr`>}Hlw6A4)^gSW{ax%r${J$ChcY;<^NBbiUoNN7b#HZz{W#!*J zW6lDaO?^k3YfvtDh$-t!VL;n9yJ;=FE&JzuX#42_UCGdCD#R9^9DEOtpve zR&Dhu16n;#e}N3U{R8$qO%Nz@TmBW}^Ws)U`_E62l!p|EMGI0_!wywz0KX0gGFciT zt;_40&9WHK#1@N`{kg0he(?H(fbg&%NkR~dWWllfppiLCL||xHaW(5;vo--`bz?f; z{n!)!@8kuI`5e`f#IisgcIG$9z_Dnz7)0zFmq`XO}Lq z)Rp-jNyxKiWt$u2;$U3uSD^Wg&TFk&y;gr#zfTE?38IoO?HGaWC&rMH zbZ!|+gCjK>K+YeEa<)fJzlS!-TX%W4;@$fDJRmYKkG@wk9F5Fy;_z{;@ohx_8`zJQ z3QeM^Jzw?F19Ri2&?qETzYpIr)j7+uV6hgr7?*&!9fMxrh&POQNKJHD5eF2N$;m5OhrXo-tn_S@cRWwSJtsFT? z>{~;t>7?J4$tC`h8te93cl$A*F!(qkWl?TQ>#c5XLoqAR`P9&SLpj1QXj#U(3Jmfl|!0d{dy|Fguavk55n$=lfM4fxQuzfYNF5$sp1Umi$Dy9;mB$ zP&me5T7E+8^9`_(f7Sul;D+C^kVvTYuzY9`Oe$W z;AT7XFi|i!Xk;O8Dj`Xo9SW$xc`@#T4fy35f}YszrHU2Isl1AGj4m|tT%*~kJZ9jx z&JuE>-%b;~UoDcEfBZCNqBE>gxA+BP^NJ?<>xxEYwWxBDH9NzlWy!&MXWO(rds;6R zYijOS@5?^BjGuev&+BtQgX7lhN#*l&Kidlbx%ctdrtNLwvEDaCHT4d+2acaMr~oBfdsH9mex{liI4SQu+JrZHgg z7;g_pH&W6Fz@bV-@TlWiRk2jB9szt}!g`GMzIG)`x3!KCaBtF-MsRrZya6I$;d$YY z9em&_abnX^Z{x7Tq0ZpDLHdZxt;C~#TzO#AU&rHcQ2|`ZLpl)RQEctXkARoui_)qNGgN*`hCUW!H*30^E6B1!`?L50B^L$P;7J8uIgOVj! z?Axt9knv%e-Mq4T!xXRT3&`J5GUt1aaTu^z$-*o;#BYDUR($9&7 z$xSbX8ObCSZzkucj#+2b%&uTT^}wmB|47XeWL)6=(__~X=zs~8OaUB&5IfuB{5A1L z?!xs`*+;Fv z`-9L8=^6*J>I{PKUYj)cYw{lTkadqgZhjaVYMIrsvtQNo4>YTJVrL!AY@vpw6V?~C zxgZ(@mR3<2bTY$?WyksOoIvQ8HgXNgooUREog{`PxJ-!1HIG$ux7EVBC%+AtnU zFySV}5d~l)uViBRQ1EwL@DpOhsD37+vw?2v1(#ZQ0)i1FLT4xZC@A~Z7ws?9NXkeW zH{9p&wgI+??1@RW{B%n*4MQU(E@h~FB3wu(OcmE0+#)kd*Er(dCp3wg}!l4!P z_!H!9Bw6r43C(0$4ql8#R^@td2EMzhd}<+yRvzwDAK%#d3+i&)lvK{pLrypkwCcsF z6zVO{>$e@&v)SMAxLHDMg*#NmWbUcy{IwhZ<3K6rcz^~q;@{^GIdI%5nBQ>a43C8H zoG!#Wq%^vyP|rtwF)=k#P-29r2<03~#UX%CawpDm#y&&|2%+}(++304ejNcc;!%pR z%G@6oBva?$Z?WB9SynE*z<*|9ZqVk&?IN_KHW>UwU}h+^@JtFntbKcf0};2#U3xMH zJ{sv7Si3^4_^TSD>niUhOEV|b>t|kk%g#@0IHtiV3s$?rj}SR~WqCLCMT5wbIcfH1 z!RqK=(Q+L9E4T%h5bZQe3%vm3>P=FjFf4F1QalQ>-xb-D`|iV-)7xR$rVLo>3`2$1 zFg+eeMZ&OmYFsw)nar+Pcga8N;@DW?iP(z2E$I#K56481)D$0H)*iMdGjZP${1G2X z606EDJ7(@?Gj3#Sr34hmW@DGEMlR+_c;2bWtz6{ac#v-7qiFL1R4_?;X~1531SWTv z8Osej`XpbzeDTAC2A5N+@MvJs|Jp7!nV)Cj^Acgq1%pG9A5P=|<`2?vfcW}oB1xv^ z!%@hwitJb$?jX^0|T;mLN89pomo;yEED{U!EDW@8!q>G^LM#Jol7w0(T6 zbMc)?!(u2IIBKimm7<2vls8wEffMeFSt&e#NT>a}oxRDA zE6Kj%B4lnkiOUVtrRFt!t`ad)CM2x;M?}izHI0LyW0p(*Q$*W4Fypj`xZI|U5e*rv zfqxr^m*Hjy$tK393J(*XFa7ydsIBU}%-L^XskQo*Fy-;n=>k z;&(+6wHm_QbaUMn={T%e@46IJ*(SPeY5#b7DrZ!*^J^YX6b(mh9It;`Iao-!0`$ls z;j?fOOh2{XXzTzfR%HM>TEom%YeO4gsG*A!uW|7*_%_!!Vb}8;EN*07lv)Ul3-Jk* zkHA@%omFhH`BN!Kr}o)3JY9$&k$%&AmZMnaDSHfc4&v1KsjQ7WBm@tW(^*)= zB+y)6e;j#scE-qr=HVrX3^L-cefmwysSBKj_`$#V9NN0;4)vgktW{RGG8c&dP>0(3sD!X)Im4 zIi5<@&nNGiLZByoFf*%N#xKTG3W#%&xHVG7@Llt?wHFJTMDnDX!}11Gzd(h%YeO$( za_remd&IBsE)6Xhrr*63d$C$ai}@VMiE)?1wLWEji&)`kXxC=}A%4nKuXf}ds9SH) z@8<1qka;EjE1YoG{bG_7jUtYsD0dY88fcmgeQ1?s-}GdFw@loX7HF`Lmy=v-uJ%)M z<=$i5Bp}2#_o;Jw2!Ygy?TaTvZ&OAXtRnsf_8GeB&x{WElg}P$LH>0Zvy4oph74IP z9L5j(3b831CvRB>`1A{K8DYX8{x}{XNVn%vT%6w<=a15#svpYC{Oi`HHAI;<+FN*f zT{cb6Wx)BMRWFw@j;*TrxhlCkGp-$Yx80sDzg|K~(hTdZtXYi)I=UVQPL2tOi@Ro! z`W+%y9wwdHdLoKf!&43h#_MgOicDqmG&F&t~aTc&>$ti>Pm>hu~N( z&vnNed)Y1ZG}AuanSz0^5{X-fj3pWX0Bt)1-g|VXci(Qx`fTa_OgF;NIz4_aW9@H> zpW#E77ryIBcqH0y(Hsc2d7^(^Tb3eZpzR|0yXTO4MQr05z-YFY7@2EfbvaH#l2NlK zTv60m7PU$P@K9|o%g+q73VhfP)iSshX=b)s=22_74tA``tAmNWPZ8-;XbP$r>lM+; zbYryfZGwUIn*Q2 z+Y=9l61FmQb~cU1vY;WhiQUDQiReJ&PxyvHQL*ID{+TElf0wktEFsUlNAJHa3k&;Cdy9j2LF_{2qplyW+1wijb8LE92NI$jZTA${tT2%JwUzQ~^U{m#Qi zwkMpK>YqO~0}=_t*r!?)`EdNH-N|%`vqe?S+x>b0CIo~GwQM1o^ z|9Q24E}f3n!;6uUQR)fAkapcV!3Cf{m#Nh{tik6mT{DWx!}=?9-(E4FnkVi!**6fw zJNjkC8l$LpdVXtk&-feKl-j!dlBlA@vXkJVtIv4e1NJdueB3hj$;F;L#WDtGW*Tei5_|#uA#xo2%827U!Omo$l)j79_ z_xa`K+`C?T-QQ+hOS&wQ!|swyaXb&#!ydFSjmZSdC_4S6rt52l0I&NIbe1gl&{+Af7@l)hGBeF?EO)DYKUyh>*`$P{ ztQ`m+B|T21Okf{6IpVY=7=#U-p1I$B+7F^*lX$=T-UU5N*N5lus83OB^bDi3@Oaz= zE7CQt2hvUF|26DMrYUHo#ww9}@f`RUh|)w~3qn&V8ss6X|wR-W8Bl@JRo2D;%0cRd4gkdB8nxBKm90}BRb#<;5gHnNdDVB|O zm)Mo%ZfQovb0%2qm(1h)c3VmK`^R3OhyjWFXPo_&;oV7{b7f~++xMx zbSxGZ4`jYE+Pg;WW7SF*a@T#8f{;IJscRVh3GANh-_>X;p9^}(EZNOneRrAdwK7Z@ zD^GhG@OEDDrLweIIv<=%i}D25l)FO-HcJy3^3=5#!}FxZ$xBkP#S{|a%BD4t=JZ*o zjk~`5i}^(ktFZ%o5AKp~$kZxEvT?os*{JgagGmJ=4gWS5r)iGgI1virW|53^ve*hs8c2ocW literal 0 HcmV?d00001 diff --git a/B4A/Files/mainpage.bal b/B4A/Files/mainpage.bal index ddd402916d60276644fc505b2f902d26b9e7c97b..5cf484d6e1b27719616b4a88e862cb54ab95e1ea 100644 GIT binary patch delta 3452 zcmb7G=~Giz6whTzn;?Wuia;d@xUjqsHX%q^1QkmaiObY>8XxkcX+si|0BRkvtre^b z;&H2@)h<@+hQ?a3>eTO@>9o_Cjvs2rKcG|l%`Rhl&V5;K7<5Kv&du+hd+)jD+;h(F z@$XJHbb%$tYc!e-T8&1Jzm21b+j9*Fx@qS&G+pMjfYg;=<_YAD0 zEsD?P>{I$(!7VyfpvoD}3s4>C$n8ky!sE9)$TOmwV5>UwJ zL=VQplheA&>^+l*< zu>1S%zOCe1m<;@X>hHx2246?*L8{;BoDDTKnV;J9Q;C7%*(7^?){P#Q!_n#_*SqN! zWGR)B$l2zV?Je}OgVv@MR-&`ECB%NR!~M2Qt?TmG6{k=3*9W-# z|55)&(@TV}sCU~iD#a@sIXN2pR01_pj>C*OOI4C?3eoz<6CcO02{>q203$WBzar(G zOs0qN;(GpP(GllH`3{B>I*jZy(GJtw2Y26kasQu#^y{m334%C#G=nYN8 zP1GE!Ph^f5kRPEZ!3Y{FGLrfcZX-QqGzIQeW#S)d^Rm z`S4$b9^9oedk_Aq$$}Lr)rfAENo+f8u5AO!oXXbYzH)Fk>fm=Nf%d}e$_$uHt%HM= zNl+%8gN`cw(j91)$3rAS*(d(i=yu}3)$b$tfHWWCunUFJ3(#Mj5dBBsYRJ-)iC}zZ zsxx3saw;4*rNRb-7L4YkLdq`>g|6VC(97_&5#W!;;CpE=+YLX}=Yz|nLu4}KqLm-m z5C+;|7{ZOjtux4&Za0{vBKWbg9PQs_!+5F$N0Y$}rdQJ8u1N>$%TKXA{N$dflf!t@ z$Uer$IxuT5uJBm*ArOMvkLPBx10Y$9c_VZk<>?@bHt^_iV3ah6aNw!k2QEui+J2ly zyc@g760{s~9`U12`GIDICB7Q0m`hV?2nlU=Xhlp2FSyg-;{+ z6h$qvGa)rS>{%4uXE=P0q7B^t^}!bi7#;hPKnXU~IRv_|a5#^m4eYq_&jr$ajl)Hh zc;0hyVN0QMhKuF%Kx!ytm+&#Nz}b+^PE)=zFX5p`zQ%B-+7rsk2sMorY}r({V3)%s zdO294b8~J!2?Th7qan4x8_^?P;7^Fc60V@0zr$4x+)vES85yCvit40soL@tUhs_O{ zc~=ps9fg3HR!8d*moFn<<%b(AAJ_Q(^ugv0MjC!Ul{Rm%7;LZ%Vvnbm{dIh#wAkUM z=P3Mw>u6r^3TJ>4&;KilXY_xG&JT@JcB<8CW}Qd$IjP#z*+fdb`Gpje|NR*eK?tzyI|7{rAFS}8uT${UaP zCX%?(#7E3US0=`VF(xj$Gb}W2T$w2B5EJV^mlTGji~rnj=A1k8-9Jp4lR9Iu9Vm!aUOUp zln)h1TqyB2iJcM`NepC%q0FJR0$Dse(A@p$V^cn*n;Q9)cEVI>vWTlVd8oCkE6{oD zl=i{$&Y(R^UNG=+iUbO%v$|EwwzsE|quxV5_a$hNqAG6Q!x8SSky(-(IuKSMiQ8T2f*5;R_+(Ob6}xej_=T1yvvR{Bdr7_U zDGoDH^pw&=B_0PqN2T6ceH~|=-+UekgGdI+Rgug4Xu8gkg)3r;Xu*ES6rEd$UKBHz z5Ja=0cD_7=#wt`}4~CaX^&a6@wA0=u&Ihn}JuU9CCJi7Z?>+6x<5wxL{WlNme#7wl zgI|kzrL#3EGQ#0?*^{y&CO23I)>V-&NV+zjhO%hrch7gEgn zC`J4od|0_qLQ)uh^O`~m!n_OjBidWDbbcXYf# YH4md`X(gO)kRI(Wr(lah{Vi+$0qLRUF#rGn diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 39c1b2c..9d52bbc 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -146,3 +146,50 @@ Sub dameDiaSemana As String 'ignore End If Return ds End Sub + +'Regresa el usuario de la tabla USUARIOA +Sub traeUsuarioDeBD As String 'ignore + Private c As Cursor + Private u As String = "SinUsuario" + c = B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa") + c.Position = 0 + If c.RowCount > 0 Then u = c.GetString("USUARIO") + c.Close + Return u +End Sub + +'Regresa la ruta actual de la base de datos. +Sub traeRuta As String 'ignore + Private c As Cursor + Private r As String + c = B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") + r = "0" + If c.RowCount > 0 Then + c.Position=0 + r = c.GetString("CAT_CL_RUTA") + End If + c.Close + Return r +End Sub + +'Regresa el cliente actual desde CUENTAA. +Sub traeCliente As String 'ignore + Private c As Cursor + Private cl As String + c = B4XPages.MainPage.skmt.ExecQuery("Select CUENTA from cuentaa") + c.Position = 0 + cl = c.GetString("CUENTA") + c.Close + Return cl +End Sub + +'Regresa el almacen actual de la base de datos. +Sub traeAlmacen As String 'ignore + Private c As Cursor + Private a As String + c = B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN") + c.Position = 0 + a = C.GetString("ID_ALMACEN") + c.Close + Return a +End Sub \ No newline at end of file