B4A=true Group=Default Group ModulesStructureVersion=1 Type=Class Version=12.2 @EndOfDesignText@ Sub Class_Globals Private Root As B4XView 'ignore Private xui As XUI 'ignore Private CustomListView1 As CustomListView Dim cmd As DBCommand Private teclado As IME Private e_ruta As EditText Dim ALMACEN As String Dim reqManager As DBRequestManager Dim trabajos = 0 As Int Private l_ruta As Label Private p_clientes As Panel Private nombrecliente As Label Private numerocliente As Label Private direccion As Label Private p_datosclie As Panel Dim c As Cursor Dim d As Cursor Dim ruta As String Dim e As Cursor End Sub 'You can add more parameters here. Public Sub Initialize As Object Return Me End Sub 'This event will be called once, before the page becomes visible. Private Sub B4XPage_Created (Root1 As B4XView) Root = Root1 Root.LoadLayout("principal") 'load the layout to Root ALMACEN = Starter.almacen reqManager.Initialize(Me, Starter.DBReqServer) p_clientes.Visible = False End Sub Sub B4XPage_Appear e = Starter.skmt.ExecQuery("SELECT USUARIO, RUTA FROM CARGA WHERE CARGADO = 1") e.Position = 0 If e.RowCount = 1 Then l_ruta.Text = e.GetString("RUTA") p_clientes.Visible = True c=Starter.skmt.ExecQuery("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from DATOS_CLIENTE WHERE ESTATUS = '0' ORDER BY CAT_CL_CODIGO ") CustomListView1.Clear For i = 0 To c.RowCount - 1 c.Position = i CustomListView1.Add(CreateListItem(c.GetString("CAT_CL_NOMBRE"),c.GetString("CAT_CL_CALLE"),c.GetString("CAT_CL_CODIGO")),i) Next c.Close End If End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. Private Sub b_carga_Click trabajos = 0 cmd.Initialize cmd.Name = "select_cat_clientes_INTMEXP" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "kmt_datos") trabajos = trabajos + 1 ProgressDialogShow ("Cargando") Log(Starter.latitud & " " & Starter.longitud) teclado.HideKeyboard ruta = e_ruta.Text l_ruta.Text = ruta e_ruta.Text = "" End Sub Sub CreateListItem(mostrar As String, mostrar1 As String, mostrar2 As String) As Panel Dim p As B4XView = xui.CreatePanel("") p.SetLayoutAnimated(0, 0, 0, 1, 220) p.LoadLayout("datos_cliente") p.Height= 60dip ' p.Width = clv_orden.GetBase.Width nombrecliente.Text = mostrar direccion.Text = mostrar1 numerocliente.Text = mostrar2 p_datosclie.Tag = mostrar2 ' cxc.Text = mostrar3 ' Log(p.Width) Return p End Sub Sub JobDone(Job As HttpJob) If Job.Success = False Then ToastMessageShow("Error: " & Job.ErrorMessage, True) Else LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) If Job.JobName = "DBRequest" Then Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "kmt_datos" Then 'query tag trabajos = trabajos - 1 Starter.skmt.ExecNonQuery("delete from DATOS_CLIENTE") Starter.skmt.ExecNonQuery("delete from HIST_PREGUNTAS") ' Starter.skmt.ExecNonQuery("delete from CARGA") Starter.skmt.ExecNonQuery2("UPDATE CARGA SET CARGADO = '1' WHERE USUARIO = ?", Array As Object(B4XPages.MainPage.user)) Starter.skmt.ExecNonQuery2("UPDATE CARGA SET RUTA = ? WHERE USUARIO = ?", Array As Object(ruta, B4XPages.MainPage.user)) For Each records() As Object In result.Rows Dim CAT_CL_CODIGO As String = records(result.Columns.Get("CAT_CL_CODIGO")) Dim CAT_CL_RUTA As String = records(result.Columns.Get("CAT_CL_RUTA")) Dim CAT_CL_NOMBRE As String = records(result.Columns.Get("CAT_CL_NOMBRE")) Dim CAT_CL_ATIENDE1 As String = records(result.Columns.Get("CAT_CL_ATIENDE1")) Dim CAT_CL_ATIENTE2 As String = records(result.Columns.Get("CAT_CL_ATIENTE2")) Dim CAT_CL_TELEFONO As String = records(result.Columns.Get("CAT_CL_TELEFONO")) Dim CAT_CL_EMAIL As String = records(result.Columns.Get("CAT_CL_EMAIL")) Dim CAT_CL_CALLE As String = records(result.Columns.Get("CAT_CL_CALLE")) Dim CAT_CL_NOEXT As String = records(result.Columns.Get("CAT_CL_NOEXT")) Dim CAT_CL_NOINT As String = records(result.Columns.Get("CAT_CL_NOINT")) Dim CAT_CL_CALLE1 As String = records(result.Columns.Get("CAT_CL_CALLE1")) Dim CAT_CL_CALLE2 As String = records(result.Columns.Get("CAT_CL_CALLE2")) Dim CAT_CL_COLONIA As String = records(result.Columns.Get("CAT_CL_COLONIA")) Dim CAT_CL_MUNI As String = records(result.Columns.Get("CAT_CL_MUNI")) Dim CAT_CL_EDO As String = records(result.Columns.Get("CAT_CL_EDO")) Dim CAT_CL_CP As String = records(result.Columns.Get("CAT_CL_CP")) Dim CAT_CL_LONG As String = records(result.Columns.Get("CAT_CL_LONG")) Dim CAT_CL_LAT As String = records(result.Columns.Get("CAT_CL_LAT")) Starter.skmt.ExecNonQuery2("INSERT INTO DATOS_CLIENTE(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT, ESTATUS) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_CL_CODIGO, CAT_CL_RUTA, CAT_CL_NOMBRE, CAT_CL_ATIENDE1, CAT_CL_ATIENTE2, CAT_CL_TELEFONO, CAT_CL_EMAIL, CAT_CL_CALLE, CAT_CL_NOEXT, CAT_CL_NOINT, CAT_CL_CALLE1, CAT_CL_CALLE2, CAT_CL_COLONIA, CAT_CL_MUNI, CAT_CL_EDO, CAT_CL_CP, CAT_CL_LONG, CAT_CL_LAT,"0")) Next p_clientes.Visible = True c=Starter.skmt.ExecQuery("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from DATOS_CLIENTE WHERE ESTATUS = '0' ORDER BY CAT_CL_CODIGO ") CustomListView1.Clear For i = 0 To c.RowCount - 1 c.Position = i CustomListView1.Add(CreateListItem(c.GetString("CAT_CL_NOMBRE"),c.GetString("CAT_CL_CALLE"),c.GetString("CAT_CL_CODIGO")),i) Next c.Close End If End If If trabajos = 0 Then ProgressDialogHide ' l_ruta.Text = e_ruta.Text ' e_ruta.Text = "" p_clientes.Visible = True End If End If End Sub Private Sub p_datosclie_Click Dim index As Int = CustomListView1.GetItemFromView(Sender) Dim pnl As B4XView = CustomListView1.GetPanel(index).GetView(0) Private lb As Label = pnl.GetView(0) Log(lb.Text) c = Starter.skmt.ExecQuery2("SELECT cuenta FROM CUENTAA WHERE cuenta = ?", Array As String (lb.Text)) d = Starter.skmt.ExecQuery("SELECT asignado FROM CUENTAA") c.Position = 0 d.position = 0 If d.rowcount = 0 Then Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?,?,?,?)", Array As Object(lb.Text,1,Starter.latitud,Starter.longitud)) B4XPages.ShowPage ("cliente") Log(Starter.latitud & Starter.longitud) Log("1") Else if c.RowCount = 0 And d.GetString("asignado") = 0 Then Starter.skmt.ExecNonQuery("delete from CUENTAA") Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?,?,?,?)", Array As Object(lb.Text,1,Starter.latitud,Starter.longitud)) B4XPages.ShowPage ("cliente") Log(Starter.latitud & Starter.longitud) Log("2") Else if c.RowCount = 0 And d.GetString("asignado") = "1" Then MsgboxAsync("Tienes que hacer check out del cliente anterior","Atención") Log("3") Else if c.RowCount = 1 And d.GetString("asignado") = "1" Then B4XPages.ShowPage ("cliente") Log("4") End If c.Close d.Close End Sub