- Se agrega codigo para descuento con pago en efectivo

B4A/B4XMainPage.bas

@@ -81,6 +81,11 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	i_logo.Left = (Root.Width / 2) - (i_logo.Width / 2)
 	Subs.centraPanel(Panel3, p_configuracion.Width)
 '	subs.panelVisible(p_configuracion, 0, 0)
+	Private x As Cursor = Starter.skmt.ExecQuery($"select * from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'DESCUENTO X EFECTIVO'"$)
+	If x.RowCount = 0 Then 'Insertamos el descuento para efectivo por default.
+'		Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("DESCUENTO X EFECTIVO"))
+		Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("DESCUENTO X EFECTIVO","10"))
+	End If
 End Sub
 
 Private Sub B4XPage_CloseRequest As ResumableSub

B4A/Lanterna.b4a.meta

@@ -18,13 +18,13 @@ ModuleBreakpoints7=
 ModuleBreakpoints8=
 ModuleClosedNodes0=
 ModuleClosedNodes1=
-ModuleClosedNodes2=
+ModuleClosedNodes2=12,24,25
 ModuleClosedNodes3=
 ModuleClosedNodes4=
 ModuleClosedNodes5=
 ModuleClosedNodes6=
 ModuleClosedNodes7=
-ModuleClosedNodes8=47,48,68
+ModuleClosedNodes8=47,48
-NavigationStack=C_Principal,agregaFormaDePago,2198,6,Visual Designer,principal.bal,-100,6,C_Principal,b_mesaCerrar_Click,1103,0,C_Principal,Printer1_Connected,1318,0,C_Principal,Printer1_Error,1330,0,C_Principal,b_imp_Click,1390,6,C_Principal,b_imprimirTicket_Click,2057,0,C_Principal,cb_pago2_SelectedIndexChanged,2221,0,C_Principal,b_imp_LongClick,1561,6,C_Principal,B4XPage_Appear,206,6
+NavigationStack=C_Principal,cb_pago2_SelectedIndexChanged,2222,0,C_Principal,b_mesaCerrar_Click,1031,0,C_Principal,cb_opcionEfectivo_CheckedChange,2315,6,C_Principal,b_imprimirTicket_Click,2069,6,C_Principal,et_montoPago2_TextChanged,2247,0,Subs,revisaBD,205,0,C_Principal,b_pagoCerrar_Click,1093,6,Visual Designer,principal.bal,-100,2,C_Principal,llenaHistorial,739,6,C_Principal,lv_historial_ItemLongClick,2322,6
 SelectedBuild=0
-VisibleModules=1,7,8,2,3,6,4
+VisibleModules=1,7,8,2,3,6,4,5

B4A/Subs.bas

@@ -198,8 +198,8 @@ Sub revisaBD 'ignore
 	kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS bitacora(fecha INTEGER, texto TEXT)") 'Bitacora
 	kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_MESAS(M_ID TEXT, M_NUMERO TEXT, M_NOMBRE TEXT, M_ZONA TEXT, M_ESTATUS TEXT, M_TICKET TEXT, M_MESERO TEXT, M_PAGO TEXT, M_COMENSALES INTEGER)")
 	kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_MESEROS(MS_ID TEXT, MS_NOMBRE TEXT, MS_MESAS_ASIGNADAS TEXT)")
-	kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PEDIDO (PE_PRECIO2 TEXT,PE_TIPO TEXT,PE_FOLIO NUMERIC,PE_DESC NUMERIC,PE_COSTO_SIN TEXT,PE_MESA TEXT,PE_CEDIS TEXT,PE_COSTO_TOT NUMERIC,PE_COSTOU NUMERIC,PE_CANT NUMERIC,PE_PRONOMBRE TEXT,PE_PROID TEXT,PE_TICKET TEXT,PE_FECHA TEXT,PE_MESERO TEXT)")
+	kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PEDIDO (PE_PRECIO2 TEXT,PE_TIPO TEXT, PE_TIPO2 TEXT, PE_FOLIO NUMERIC, PE_DESC NUMERIC, PE_COSTO_SIN TEXT, PE_MESA TEXT, PE_CEDIS TEXT, PE_COSTO_TOT NUMERIC, PE_COSTOU NUMERIC, PE_CANT NUMERIC, PE_PRONOMBRE TEXT, PE_PROID TEXT, PE_TICKET TEXT, PE_FECHA TEXT, PE_MESERO TEXT)")
-	kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PEDIDO_TICKET (PT_FACT TEXT, PT_COSTO_SIN TEXT, PT_MESA TEXT, PT_PAGO TEXT, PT_ALMACEN TEXT, PT_LON TEXT, PT_LAT TEXT, PT_TICKET TEXT, PT_FECHA TEXT, PT_MESERO TEXT, PT_COMENSALES INTEGER, PT_NOART NUMERIC, PT_MONTO TEXT, PT_ENVIO_OK INTEGER, PT_TIEMPO_TIENDA FLOAT, PT_FACTURA INTEGER)")
+	kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PEDIDO_TICKET (PT_FACT TEXT, PT_COSTO_SIN TEXT, PT_MESA TEXT, PT_PAGO TEXT, PT_PAGO2 TEXT, PT_ALMACEN TEXT, PT_LON TEXT, PT_LAT TEXT, PT_TICKET TEXT, PT_FECHA TEXT, PT_MESERO TEXT, PT_COMENSALES INTEGER, PT_NOART NUMERIC, PT_MONTO TEXT, PT_ENVIO_OK INTEGER, PT_TIEMPO_TIENDA FLOAT, PT_FACTURA INTEGER)")
 '	kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PROPINAS (PR_MESA TEXT, PR_TICKET TEXT, PR_PAGO TEXT, PR_PROPINA TEXT, PT_MESERO TEXT, PR_FECHA TEXT)")
 	agregaColumna("PEDIDO_TICKET", "PT_TICKET", "TEXT")
 	agregaColumna("PEDIDO_TICKET", "PT_TARJETA", "TEXT")
@@ -208,6 +208,10 @@ Sub revisaBD 'ignore
 	agregaColumna("PEDIDO", "PE_TICKET", "TEXT")
 	agregaColumna("PEDIDO", "PE_MESA", "TEXT")
 	agregaColumna("PEDIDO", "PE_MESERO", "TEXT")
+	agregaColumna("PEDIDO", "PE_TIPO2", "TEXT")
+	agregaColumna("PEDIDO_TICKET", "PT_PAGO2", "TEXT")
+	agregaColumna("PEDIDO", "PE_ORIGEN", "TEXT")
+	agregaColumna("PEDIDO_TICKET", "PT_ORIGEN", "TEXT")
 	kmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_VARIABLES (CAT_VA_DESCRIPCION TEXT, CAT_VA_VALOR TEXT)")
 	'Tabla para la bitacora de errores
 	If Not(errorLog.IsInitialized) Then errorLog.Initialize(Starter.ruta, "errorLog.db", True)
@@ -1146,6 +1150,33 @@ Sub traeTotalesTicketActual As Map
 	Return m
 End Sub
 
+'Regresa el total del monto del ticket actual desde PEDIDO_TICKET.
+Sub traeTotalTicketActual_PT As String
+	Private t As String = 0
+	Private pt As Cursor = Starter.skmt.ExecQuery($"select ifnull(sum(PT_MONTO),0) as subtotal from PEDIDO_TICKET where PT_TICKET = '${Starter.ticketActual}' and PT_MESA = '${Starter.mesaActual}' and PT_PAGO = 'VENTA'"$)
+	pt.Position=0
+	If pt.RowCount > 0 Then
+		t = pt.GetString("subtotal")
+	End If
+	Return t
+End Sub
+
+'Regresa el total del monto del ticket actual desde PEDIDO.
+Sub traeTotalTicketActual_P(tipoPago As String) As String
+	Private st As String = 0
+	Private desc As String = 0
+	Private p As Cursor = Starter.skmt.ExecQuery($"select PE_COSTO_TOT, ifnull(PE_DESC, 0) as DESC, CAT_GP_TIPO from PEDIDO join CAT_GUNAPROD on CAT_GP_ID = PE_PROID where PE_TICKET = '${Starter.ticketActual}' and PE_MESA = '${Starter.mesaActual}' and PE_TIPO = '${tipoPago}'"$)
+'	Log($"${p.RowCount} - select PE_COSTO_TOT, ifnull(PE_DESC, 0) as DESC, CAT_GP_TIPO from PEDIDO join CAT_GUNAPROD on CAT_GP_ID = PE_PROID where PE_TICKET = '${Starter.ticketActual}' and PE_MESA = '${Starter.mesaActual}' and PE_TIPO = '${tipoPago}'"$)
+	If p.RowCount > 0 Then
+		For j = 0 To p.RowCount - 1
+			p.Position = j
+			desc = p.GetString("DESC") / 100
+			st = st + (p.GetString("PE_COSTO_TOT") - (p.GetString("PE_COSTO_TOT") * desc))
+		Next
+	End If
+	Return st
+End Sub
+
 'Borra el pedido del cliente actual.
 'Borra los registros de la tabla "pedido" y "PEDIDO_TICKET"
 'Actualiza las tablas "cat_gunaprod" y "kmt_info".
@@ -1368,7 +1399,7 @@ Sub traeCategorias As List
 		For i = 0 To c.RowCount - 1 
 			c.Position = i
 			l.Add(c.GetString("CAT_GP_CLASIF"))
-			Log(c.GetString("CAT_GP_CLASIF"))
+'			Log(c.GetString("CAT_GP_CLASIF"))
 		Next
 	End If
 	Return l
@@ -1434,6 +1465,16 @@ Sub traeMesaEstatus(id As String) As String
 	Return e
 End Sub
 
+Sub traeDescXefectivo As Int
+	Private c As Cursor = Starter.skmt.ExecQuery("select * from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'DESCUENTO X EFECTIVO'")
+	Private d As Int = 0
+	If c.RowCount > 0 Then
+		c.Position = 0
+		d = c.GetInt("CAT_VA_VALOR")
+	End If
+	Return d
+End Sub
+
 'Regresa verdadero si el cierre adminstrativo esta en 1
 Sub revisaCierreAdmin As Boolean
 	Private c As Cursor = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("CIERRE ADMIN"))