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

checklist

Browse Source
This commit is contained in:
cvaldes1201
2023-10-21 14:29:42 -06:00
parent e9333126f7
commit ab6bbcf7b9
19 changed files with 499 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
B4XMainPage.bas
View File

@@ -61,7 +61,7 @@ Sub Class_Globals
Dim user As EditText
Dim pass As EditText
Dim c As Cursor
Dim existe As String
Dim existe As String
Dim paso1 As String
Private IMEN As Label
Dim IMEI As String
@@ -69,6 +69,7 @@ Sub Class_Globals
Dim server As String
Private p_principal As Panel
Private Entrar As Button
Public checklist As C_Cheklist
Public tabulador As C_tabulador
Dim batt As Int
Dim porVisitar, entregas, rechazos, montoEntregado, montoRechazado As String
@@ -129,6 +130,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
B4XPages.AddPage("Detalle_Promo", detalle_promo)
tabulador.Initialize
B4XPages.AddPage("tabulador", tabulador)
checklist.Initialize
B4XPages.AddPage("checklist",checklist)
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TABULADOR_MONEDAS(VEINTE TEXT, DIEZ TEXT, CINCO TEXT, DOS TEXT, PESO TEXT, CENTAVO TEXT, TOTAL TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TABULADOR_BILLETES(MIL TEXT, QUINIENTOS TEXT, DOCIENTOS TEXT, CIEN TEXT, CINCUENTA TEXT, VEINTE TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_VENTAS2 (HVD_PARCIAL TEXT, HVD_RECHAZO TEXT, HVD_NUM_REGISTRO TEXT, HVD_NUM_TICKET TEXT, HVD_PROID TEXT, HVD_CODPROMO TEXT, HVD_FECHA TEXT, HVD_ESTATUS TEXT, HVD_CLIENTE TEXT, HVD_PRONOMBRE TEXT, HVD_CANT TEXT, HVD_COSTO_TOT TEXT)")