Version: 5.01.10

Se hizo una pequeña modificacion en el ticket en el apartado de cajas para optener el precio por unidad para que al multiplicarlo por la catidad de el importe correcto.
This commit is contained in:
Isaac
2025-01-13 13:49:42 -06:00
parent f8d9740950
commit d8844799a3
8 changed files with 270 additions and 53 deletions

View File

@@ -70,6 +70,7 @@ Sub Class_Globals
Dim user As EditText
Dim pass As EditText
Public tabulador As C_tabulador
Dim c As Cursor
Dim existe As String
Dim paso1 As String
@@ -167,6 +168,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
B4XPages.AddPage("Promos", promos)
historico.Initialize
B4XPages.AddPage("Historico", historico)
tabulador.Initialize
B4XPages.AddPage("tabulador", tabulador)
' respaldoDiario.Initialize
' B4XPages.AddPageAndCreate("respaldoDiario", respaldoDiario)
ruta = Starter.ruta
@@ -182,6 +185,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
skmt.Initialize(ruta,"kmt.db", True)
Subs.guardaAppInfo(skmt)
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)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CLIENTES_NUEVOS(CN_ID TEXT, CN_FECHA TEXT, CN_USER TEXT, CN_LAT TEXT, CN_LON TEXT, CN_NOMBRE TEXT, CN_DIRECCION TEXT, CN_FOTO TEXT, CN_ALMACEN TEXT, CN_RUTA TEXT,CN_GIRO TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CUOTAS (HC_META6 TEXT, HC_META5 TEXT, HC_META4 TEXT, HC_META3 TEXT, HC_META2 TEXT, HC_META1 TEXT, HC_RUTA TEXT, HC_CUOTA1 TEXT, HC_CUOTA2 TEXT, HC_CUOTA3 TEXT, HC_CUOTA4 TEXT, HC_CUOTA5 TEXT, HC_CUOTA6 TEXT)")