mirror of
https://github.com/KeymonSoft/Intmex_Promotoria.git
synced 2026-04-18 05:09:19 +00:00
191 lines
7.2 KiB
QBasic
191 lines
7.2 KiB
QBasic
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
|
|
|