cheveguerra/Mariana_Reparto
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Reparto.git synced 2026-04-20 14:19:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

puerto

Browse Source
This commit is contained in:
cvaldes1201
2023-11-08 13:50:43 -06:00
parent 19bddaa4f6
commit f57db99170
8 changed files with 571 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
B4A/C_Principal.bas
View File

@@ -89,6 +89,7 @@ Sub Class_Globals
Private l_rechazo As Label
Private Label9 As Label
Dim cp As Cursor
Private b_check As Button
End Sub
'You can add more parameters here.
@@ -161,6 +162,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
End Sub
Sub B4XPage_Appear
b_check.visible = False
Subs.centraPanel(p_principal, Root.Width)
' c=Starter.skmt.ExecQuery("select noversion from version")
' c.Position=0
@@ -392,6 +394,21 @@ Sub B4XPage_Appear
L_MONTOE.Visible = False
End If
checachek
End Sub
Sub checachek
b = Starter.skmt.ExecQuery("SELECT CHECADO FROM CHECADO_CHECK")
If b.RowCount > 0 Then
b.Position = 0
If b.GetString("CHECADO") = 0 Then
b_check.Visible = True
Else If b.GetString("CHECADO") = 1 Then
b_check.Visible =False
End If
b.Close
End If
End Sub
Sub IsConnectedToInternet As Boolean 'ignore
@@ -418,7 +435,13 @@ Sub to_number_vb (valor As Object) As String
End Sub
Sub trabajar_Click
If b_check.Visible = True Then
MsgboxAsync("Favor de hacer el checklist.","Atención")
Else
B4XPages.ShowPage("Clientes")
End If
End Sub
Sub Subir_Click
@@ -945,11 +968,12 @@ Sub JobDone(Job As HttpJob)
Dim HVD_NUM_TICKET As String = records(result.Columns.Get("HVD_NUM_TICKET"))
Dim HVD_NUM_REGISTRO As String = records(result.Columns.Get("HVD_NUM_REGISTRO"))
Dim HVD_RECHAZO As String = records(result.Columns.Get("HVD_RECHAZO"))
Dim HVD_PLACA As String = records(result.Columns.Get("HVD_PLACA"))
' Log(" ++ insert into HIST_VENTAS: "&HVD_CLIENTE&","&HVD_PRONOMBRE&","&HVD_CANT)
If l_ruta.Text = "0" Then 'Si no hay ruta cargada, guardamos todos los clientes
Log("No hay ruta, guardamos todos")
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO))
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL, PLACA) VALUES (?,?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PLACA))
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS2(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO))
Else 'Si ya hay ruta cargada, solo guardamos los clientes nuevos.
' Log("Hay ruta, guardamos los nuevos")
@@ -1149,7 +1173,26 @@ Sub JobDone(Job As HttpJob)
Job.Release
End If
If reqs.Size = 0 Then
ProgressDialogHide
c = Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM CHECADO_CHECK")
c.Position = 0
If c.GetString("CUANTOS") = 0 Then
Starter.skmt.ExecNonQuery2("insert into CHECADO_CHECK (CHECADO) VALUES(?)", Array As String("0"))
Else If c.GetString("CUANTOS") = 1 Then
' b = Starter.skmt.ExecQuery("SELECT CHECADO FROM CHECADO_CHECK")
' b.Position = 0
' If b.GetString("CHECADO") = 0 Then
' b_check.Visible = True
' Else If b.GetString("CHECADO") = 1 Then
' b_check.Visible =False
' End If
' b.Close
End If
c.Close
' Log(reqs.size)
' Log("Terminamos lo descarga de ruta!")
End If
@@ -1192,8 +1235,12 @@ Sub connecta_Click
End Sub
Sub BUSCA_Click
If b_check.Visible = True Then
MsgboxAsync("Favor de hacer el checklist.","Atención")
Else
' StartActivity(BUSCAR)
B4XPages.ShowPage("Buscar")
End If
End Sub
Sub b_mapa_Click
@@ -1207,6 +1254,8 @@ Sub e_ruta_EnterPressed
If RES = DialogResponse.POSITIVE Then
e_ruta.Text = ""
Starter.skmt.ExecNonQuery("delete from pedido_cliente")
Starter.skmt.ExecNonQuery("delete from CHECADO_CHECK")
Starter.skmt.ExecNonQuery("delete from CHECKLIST")
Starter.skmt.ExecNonQuery("delete from pedido")
Starter.skmt.ExecNonQuery("delete from noventa")
Starter.skmt.ExecNonQuery("delete from clie_act")
@@ -1249,6 +1298,9 @@ Sub t1_tick
End Sub
Sub B_CLIEPROD_Click
If b_check.Visible = True Then
MsgboxAsync("Favor de hacer el checklist.","Atención")
Else
BUSCA.Visible = False
connecta.Visible = False
trabajar.Visible = False
@@ -1311,6 +1363,7 @@ Sub B_CLIEPROD_Click
' ListView1.AddTwoLines(c.GetString("HVD_PRONOMBRE") & " " & c.GetString("HVD_CLIENTE") , c.GetString("HVD_CANT") & " " & ESTATUS )
' Next
' End If
End If
End Sub
Sub B_REGRESA_Click
@@ -1325,14 +1378,25 @@ End Sub
''''''''''''''''''''''''''''MAPA RUTAS
Sub Btn_Ubicar_Ru_Click
If b_check.Visible = True Then
MsgboxAsync("Favor de hacer el checklist.","Atención")
Else
StartActivity(MAPA_RUTAS)
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_tabulador_Click
If b_check.Visible = True Then
MsgboxAsync("Favor de hacer el checklist.","Atención")
Else
B4XPages.ShowPage("tabulador")
End If
End Sub
Private Sub b_check_Click
B4XPages.ShowPage("checklist")
End Sub