mirror of
https://github.com/KeymonSoft/Intmex_Promotoria.git
synced 2026-04-19 13:49:32 +00:00
Commit inicial
This commit is contained in:
190
B4A/C_principal.bas
Normal file
190
B4A/C_principal.bas
Normal file
@@ -0,0 +1,190 @@
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user