mirror of
https://github.com/KeymonSoft/Lanterna_H.git
synced 2026-04-17 21:06:16 +00:00
- VERSION 4.07.10
- Se corrigió el código del resumen A+B. - Se corrigió el código del resumen de grupos.
This commit is contained in:
Jose Alberto Guerra Ugalde
Binary file not shown.
@@ -88,7 +88,7 @@ Version=12.8
|
||||
#Region Project Attributes
|
||||
#ApplicationLabel: Lanterna
|
||||
#VersionCode: 1
|
||||
#VersionName: 4.07.08
|
||||
#VersionName: 4.07.10
|
||||
'SupportedOrientations possible values: unspecified, landscape or portrait.
|
||||
#SupportedOrientations: landscape
|
||||
#CanInstallToExternalStorage: False
|
||||
@@ -349,7 +349,7 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim CAT_GP_TIPO2 As String = records(result.Columns.Get("CAT_GP_TIPO2"))
|
||||
Dim CAT_GP_ORDENAMIENTO As Int = records(result.Columns.Get("CAT_GP_ORDENAMIENTO"))
|
||||
Dim CAT_GP_ORDEN_GRUPOS As Int = records(result.Columns.Get("CAT_GP_ORDEN_GRUPOS"))
|
||||
Log($"${CAT_GP_NOMBRE}, ${CAT_GP_TIPO2}"$)
|
||||
Log($"${CAT_GP_NOMBRE}, ${CAT_GP_ORDEN_GRUPOS}"$)
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_PRECIO,CAT_GP_ALMACEN,CAT_GP_IMG,CAT_GP_FECHA,CAT_GP_FECHA_MOD, CAT_GP_CLASIF, CAT_GP_TIPO, CAT_GP_TIPO2, CAT_GP_ORDENAMIENTO,CAT_GP_ORDEN_GRUPOS) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_PRECIO,CAT_GP_ALMACEN,CAT_GP_IMG,CAT_GP_FECHA,CAT_GP_FECHA_MOD,CAT_GP_CLASIF,CAT_GP_TIPO,CAT_GP_TIPO2,CAT_GP_ORDENAMIENTO,CAT_GP_ORDEN_GRUPOS))
|
||||
Next
|
||||
For v = 1 To 20 'Agregamos productos varios (editables)
|
||||
|
||||
@@ -28,6 +28,6 @@ ModuleClosedNodes6=
|
||||
ModuleClosedNodes7=
|
||||
ModuleClosedNodes8=
|
||||
ModuleClosedNodes9=
|
||||
NavigationStack=Principal,p_resItem_LongClick,3881,6,Principal,b_resumen_Click,3734,3,Principal,b_cambioPagos_Click,3900,3,Visual Designer,principal.bal,-100,6,Principal,llenaHistorial,1014,0,numeroATexto,Class_Globals,18,0,numeroATexto,Initialize,21,0,updateAvailable,Process_Globals,0,0,updateAvailable,Activity_Resume,43,0,appUpdater,Process_Globals,80,1
|
||||
NavigationStack=Visual Designer,principal.bal,-100,1,Principal,b_imp_Click,1793,0,Principal,b_resumen_Click,4316,0,Principal,b_impAB_Click,2847,6,Subs,revisaUUG,358,0,Subs,revisaFLP,385,0,Subs,agregaColumna,1259,0,Principal,Process_Globals,7,0,Principal,b_reimprimirTicket_Click,4456,0,Principal,imprimeResumenGrupos,2005,6,Principal,b_imp2_Click,1954,0
|
||||
SelectedBuild=0
|
||||
VisibleModules=7,6,8,5,9,1
|
||||
VisibleModules=7,6,8
|
||||
|
||||
742
Principal.bas
742
Principal.bas
@@ -393,6 +393,7 @@ Sub l_prods_Click
|
||||
Catch
|
||||
Log(LastException)
|
||||
End Try
|
||||
et_selBuscar.Text = ""
|
||||
Log(listaProdsOrden)
|
||||
End Sub
|
||||
|
||||
@@ -1018,7 +1019,7 @@ Private Sub b_terminar_Click
|
||||
End Sub
|
||||
|
||||
Sub llenaHistorial
|
||||
Dim rs_hist As ResultSet = Starter.skmt.ExecQuery($"Select *, ifnull(PT_PAGO2,"") as pt from pedido_ticket where PT_PAGO <> 'VENTA' and PT_PAGO <> 'MULTI-TICKET' order by PT_PAGO desc, PT_TICKET"$)
|
||||
Dim rs_hist As ResultSet = Starter.skmt.ExecQuery($"Select *, ifnull(PT_PAGO2,"") as pt from pedido_ticket where PT_PAGO <> 'VENTA' and PT_PAGO <> 'MULTI-TICKET' order by PT_PAGO desc, PT_TICKET"$)
|
||||
If rs_hist.RowCount > 0 Then
|
||||
l_historialVacio.Visible = False
|
||||
Private cs As CSBuilder
|
||||
@@ -1047,7 +1048,7 @@ Sub llenaHistorial
|
||||
pt = "Amex"
|
||||
else if rs_hist.GetString("pt") = "Efectivo" Then
|
||||
pt = "Efectivo"
|
||||
Else
|
||||
Else
|
||||
pt = rs_hist.GetString("pt")
|
||||
End If
|
||||
Private co As String = rs_hist.GetString("PT_COMENSALES")
|
||||
@@ -1383,7 +1384,11 @@ Private Sub b_mesaCerrar_Click
|
||||
End If
|
||||
pagoPropina = "Amex"
|
||||
cb_pagoPropina.SelectedIndex = 0
|
||||
cb_pago2.SelectedIndex = 0
|
||||
Try
|
||||
cb_pago2.SelectedIndex = 0
|
||||
Catch
|
||||
Log(LastException)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub b_mesaEditar_Click
|
||||
@@ -1473,7 +1478,7 @@ Private Sub b_pagoCerrar_Click
|
||||
If et_propina.Text <> "" Then
|
||||
laPropina = et_propina.Text
|
||||
End If
|
||||
If tipoPago = "TARJETA" Then 'primeraVez And
|
||||
If tipoPago = "TARJETA" Then 'primeraVez And
|
||||
Log("INSERTAMOS TARJETA")
|
||||
Log($"${listaFormaDePago.Get(fdp)}"$)
|
||||
Private pa As ResultSet = Starter.skmt.ExecQuery($"select * from PEDIDO where PE_MESA = '${Starter.mesaActual}' and PE_TICKET = '${sigTicketMT}' and PE_TIPO = 'MULTI-TICKET'"$)
|
||||
@@ -1792,6 +1797,14 @@ Sub Printer1_Error
|
||||
End Sub
|
||||
|
||||
Sub b_imp_Click
|
||||
b_impAB_Click
|
||||
End Sub
|
||||
|
||||
Sub b_imp_LongClick
|
||||
imprimeResumenMesas
|
||||
End Sub
|
||||
|
||||
Sub imprimeResumenMesas
|
||||
Private imprimirAqui As Boolean = Starter.imprimirTicket
|
||||
Private sDate, sTime As String
|
||||
Private c As Cursor
|
||||
@@ -1904,12 +1917,10 @@ Sub b_imp_Click
|
||||
If imprimirAqui Then Printer1.WriteString($"${CRLF}Total Tarjeta: ${NumberFormat2(tt.GetString("total"), 1,2,2,True)}${CRLF}"$)
|
||||
cs.color(Colors.RGB(1,127,1)).Append($"Total Efectivo: ${NumberFormat2(totalEfectivo, 1,2,2,True)}${CRLF}"$).popall
|
||||
If imprimirAqui Then Printer1.WriteString($"Total Efectivo: ${NumberFormat2(totalEfectivo, 1,2,2,True)}${CRLF}"$)
|
||||
Else
|
||||
Else
|
||||
cs.color(Colors.RGB(1,127,1)).Append($"${CRLF}Total: ${NumberFormat2(tt.GetString("total"), 1,2,2,True)}${CRLF}"$).popall
|
||||
If imprimirAqui Then Printer1.WriteString($"${CRLF}Total: ${NumberFormat2(tt.GetString("total"), 1,2,2,True)}${CRLF}"$)
|
||||
End If
|
||||
|
||||
|
||||
l_resumen.Text = cs
|
||||
l_resumen.Height = su.MeasureMultilineTextHeight(l_resumen, l_resumen.Text)
|
||||
sv_resumen.Panel.Height = l_resumen.Height
|
||||
@@ -1941,6 +1952,14 @@ Sub b_imp_Click
|
||||
End Sub
|
||||
|
||||
Sub b_imp2_Click
|
||||
imprimeResumenGrupos
|
||||
End Sub
|
||||
|
||||
'Sub b_imp2_LongClick
|
||||
' b_impAB_Click
|
||||
'End Sub
|
||||
|
||||
Sub imprimeResumenGrupos
|
||||
Private imprimirAqui As Boolean = Starter.imprimirTicket
|
||||
Private sDate, sTime As String
|
||||
Private c As Cursor
|
||||
@@ -2003,7 +2022,7 @@ Sub b_imp2_Click
|
||||
Private c As Cursor = Starter.skmt.ExecQuery($"select M_ESTATUS from CAT_MESAS where M_ESTATUS = 'ABIERTA'"$)
|
||||
' Log(c.RowCount)
|
||||
' If c.RowCount = 0 Then 'Si no hay mesas abiertas entonces ...
|
||||
Private c As Cursor = Starter.skmt.ExecQuery("select distinct PE_PRONOMBRE, PE_PROID, CAT_GP_TIPO2, CAT_GP_CLASIF, sum(pe_cant) as cuantos, sum(pe_costo_tot) as monto from pedido join CAT_GUNAPROD on cat_gp_id = PE_PROID where PE_TIPO <> 'VENTA' group by CAT_GP_TIPO2, PE_PRONOMBRE order by CAT_GP_ORDEN_GRUPOS, CAT_GP_TIPO2, PE_PRONOMBRE") 'Este query quita los "Consumo de alimentos", que son los tickets que se generan con el multi-ticket, porque en CAT_GUNAPROD no existe el ID CDA01.
|
||||
Private c As Cursor = Starter.skmt.ExecQuery("select distinct PE_PRONOMBRE, PE_PROID, CAT_GP_TIPO2, CAT_GP_CLASIF, sum(pe_cant) as cuantos, sum(pe_costo_tot) as monto from pedido join CAT_GUNAPROD on cat_gp_id = PE_PROID where PE_TIPO <> 'VENTA' and PE_TIPO <> 'MULTI-TICKET' group by CAT_GP_TIPO2, PE_PRONOMBRE order by CAT_GP_ORDEN_GRUPOS, CAT_GP_TIPO2, PE_PRONOMBRE") 'Este query quita los "Consumo de alimentos", que son los tickets que se generan con el multi-ticket, porque en CAT_GUNAPROD no existe el ID CDA01.
|
||||
' Log(c.RowCount)
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
@@ -2016,77 +2035,81 @@ Sub b_imp2_Click
|
||||
Printer1.WriteString(Printer1.BOLD)
|
||||
If imprimirAqui Then Printer1.WriteString($"*** GRUPOS ***${CRLF}"$)
|
||||
Printer1.WriteString(Printer1.NOBOLD)
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
' Log($"${catAnt} - ${c.GetString("CAT_GP_TIPO2")}"$)
|
||||
If catAnt <> c.GetString("CAT_GP_TIPO2") Then
|
||||
' Private tm As Cursor = Starter.skmt.ExecQuery($"select sum(PT_MONTO) as totalMesa from PEDIDO_TICKET where PT_MESA = '${c.GetString("PE_MESA")}' and PT_PAGO <> 'MULTI-TICKET'"$)
|
||||
' tm.Position = 0
|
||||
If catAnt <> "" Then
|
||||
|
||||
Private primerEspacioLargo As Int = 45 - catAnt.Length - ("xxxx".Length + 1) - 6
|
||||
Private primerEspacio As String = ""
|
||||
For n = 1 To primerEspacioLargo
|
||||
primerEspacio = primerEspacio & "."
|
||||
Next
|
||||
|
||||
cs.Color(Colors.Green).Append($"Total ${catAnt}: ${catTotal}${primerEspacio}$${NumberFormat2(catMontoTotal,1,2,2,True)}${CRLF}"$).pop
|
||||
Log($"Total ${catAnt}: ${catTotal}${primerEspacio}$${NumberFormat2(catMontoTotal,1,2,2,True)}${CRLF}"$)
|
||||
If imprimirAqui Then
|
||||
Printer1.WriteString(Printer1.BOLD)
|
||||
Printer1.WriteString($"Total ${catAnt}: ${catTotal}${primerEspacio}$${NumberFormat2(catMontoTotal,1,2,2,True)}${CRLF}${CRLF}"$)
|
||||
Printer1.WriteString(Printer1.NOBOLD)
|
||||
End If
|
||||
' Log($">>>>>>> CAT TOTAL ${catAnt}: ${catTotal}"$ )
|
||||
End If
|
||||
cs.Color(Colors.red).Append($"++ ${c.GetString("CAT_GP_TIPO2")} ++${CRLF}"$).pop
|
||||
LogColor($"++ ${c.GetString("CAT_GP_TIPO2")} ++${CRLF}"$, Colors.blue)
|
||||
Printer1.WriteString(Printer1.BOLD)
|
||||
If imprimirAqui Then Printer1.WriteString($"++ ${c.GetString("CAT_GP_TIPO2")} ++${CRLF}"$)
|
||||
Printer1.WriteString(Printer1.NOBOLD)
|
||||
Private tipoAnt As String = ""
|
||||
catTotal = 0
|
||||
catMontoTotal = 0
|
||||
End If
|
||||
Private elNombre As String = c.GetString("PE_PRONOMBRE")
|
||||
If c.GetString("PE_PROID").StartsWith("LA") Then
|
||||
Private nn As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = '${c.GetString("PE_PROID")}'"$)
|
||||
Do While nn.NextRow
|
||||
elNombre = nn.GetString("CAT_GP_NOMBRE")
|
||||
Loop
|
||||
End If
|
||||
Private monto As String = NumberFormat2(c.GetString("monto"), 1, 0, 0, True)
|
||||
Private cuantos As String = c.GetString("cuantos")
|
||||
Private nom() As String = Regex.Split("\$", elNombre)
|
||||
If nom.Length > 1 Then elNombre = nom(0)
|
||||
If elNombre.Length > 45 Then elNombre = elNombre.SubString2(0, 45)
|
||||
Log($"${elNombre} - ${c.GetString("cuantos")} .. $${monto}"$) '${c.Position} - ${elNombre.Length} -
|
||||
cs.Color(Colors.DarkGray).Append($"${elNombre} - ${c.GetString("cuantos")} .. $${monto} ${CRLF}"$).pop
|
||||
' Log(cs.Length)
|
||||
|
||||
Private primerEspacioLargo As Int = 45 - elNombre.Length - (cuantos.Length + 1) - 6
|
||||
Private primerEspacio As String = ""
|
||||
For n = 1 To primerEspacioLargo
|
||||
primerEspacio = primerEspacio & "."
|
||||
Next
|
||||
' If imprimirAqui Then Printer1.WriteString($"${elNombre}${Subs.alineaDerecha(c.GetString("cuantos"), (31 - elNombre.Length), ".")} ${CRLF}"$)
|
||||
If imprimirAqui Then Printer1.WriteString($"${elNombre}${primerEspacio}${c.GetString("cuantos")}..$${monto} ${CRLF}"$)
|
||||
catTotal = catTotal + c.GetString("cuantos")
|
||||
catMontoTotal = catMontoTotal + c.GetString("monto")
|
||||
' Log($">>>> ${catAnt} - ${c.GetString("CAT_GP_TIPO2")}"$)
|
||||
If i = c.RowCount - 1 Then
|
||||
Log($"Total ${c.GetString("CAT_GP_TIPO2")}: ${catTotal} ${primerEspacio}$${NumberFormat2(catMontoTotal,1,2,2,True)}${CRLF}"$)
|
||||
cs.Color(Colors.Green).Append($"Total ${c.GetString("CAT_GP_TIPO2")}: ${catTotal} ${primerEspacio}$${NumberFormat2(catMontoTotal,1,2,2,True)}${CRLF}"$).pop
|
||||
If imprimirAqui Then
|
||||
Printer1.WriteString(Printer1.BOLD)
|
||||
Printer1.WriteString($"Total ${c.GetString("CAT_GP_TIPO2")}: ${catTotal} ${primerEspacio}$${NumberFormat2(catMontoTotal,1,2,2,True)}${CRLF}"$)
|
||||
Printer1.WriteString(Printer1.NOBOLD)
|
||||
End If
|
||||
End If
|
||||
Private tipoAnt As String = ""
|
||||
catAnt = c.GetString("CAT_GP_TIPO2")
|
||||
' Log(i)
|
||||
Next
|
||||
' For i = 0 To c.RowCount - 1
|
||||
' c.Position = i
|
||||
'' Log($"${catAnt} - ${c.GetString("CAT_GP_TIPO2")}"$)
|
||||
' If catAnt <> c.GetString("CAT_GP_TIPO2") Then
|
||||
'' Private tm As Cursor = Starter.skmt.ExecQuery($"select sum(PT_MONTO) as totalMesa from PEDIDO_TICKET where PT_MESA = '${c.GetString("PE_MESA")}' and PT_PAGO <> 'MULTI-TICKET'"$)
|
||||
'' tm.Position = 0
|
||||
' If catAnt <> "" Then
|
||||
' Private primerEspacioLargo As Int = 45 - "Total ".Length - catAnt.Length - 5 - catTotal.Length - NumberFormat2(catMontoTotal,1,0,0,True).Length
|
||||
' Private primerEspacio As String = ""
|
||||
' For n = 1 To primerEspacioLargo
|
||||
' primerEspacio = primerEspacio & "."
|
||||
' Next
|
||||
'' Log("primer espacio : " & primerEspacioLargo)
|
||||
' cs.Color(Colors.Green).Append($"Total ${catAnt}: ${catTotal}${primerEspacio}$${NumberFormat2(catMontoTotal,1,0,0,True)}${CRLF}"$).pop
|
||||
' Log($"Total ${catAnt}: ${catTotal}${primerEspacio}$${NumberFormat2(catMontoTotal,1,0,0,True)}${CRLF}"$)
|
||||
' If imprimirAqui Then
|
||||
' Printer1.WriteString(Printer1.BOLD)
|
||||
' Printer1.WriteString($"Total ${catAnt}: ${catTotal}${primerEspacio}$${NumberFormat2(catMontoTotal,1,0,0,True)}${CRLF}${CRLF}"$)
|
||||
' Printer1.WriteString(Printer1.NOBOLD)
|
||||
' End If
|
||||
'' Log($">>>>>>> CAT TOTAL ${catAnt}: ${catTotal}"$ )
|
||||
' End If
|
||||
' cs.Color(Colors.red).Append($"++ ${c.GetString("CAT_GP_TIPO2")} ++${CRLF}"$).pop
|
||||
' LogColor($"++ ${c.GetString("CAT_GP_TIPO2")} ++${CRLF}"$, Colors.blue)
|
||||
' Printer1.WriteString(Printer1.BOLD)
|
||||
' If imprimirAqui Then Printer1.WriteString($"++ ${c.GetString("CAT_GP_TIPO2")} ++${CRLF}"$)
|
||||
' Printer1.WriteString(Printer1.NOBOLD)
|
||||
' Private tipoAnt As String = ""
|
||||
' catTotal = 0
|
||||
' catMontoTotal = 0
|
||||
' End If
|
||||
' Private elNombre As String = c.GetString("PE_PRONOMBRE")
|
||||
' If c.GetString("PE_PROID").StartsWith("LA") Then
|
||||
' Private nn As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_NOMBRE from CAT_GUNAPROD where CAT_GP_ID = '${c.GetString("PE_PROID")}'"$)
|
||||
' Do While nn.NextRow
|
||||
' elNombre = nn.GetString("CAT_GP_NOMBRE")
|
||||
' Loop
|
||||
' End If
|
||||
' Private monto As String = NumberFormat2(c.GetString("monto"), 1, 0, 0, True)
|
||||
' Private cuantos As String = c.GetString("cuantos")
|
||||
' Private nom() As String = Regex.Split("\$", elNombre)
|
||||
' If nom.Length > 1 Then elNombre = nom(0)
|
||||
' If elNombre.Length > 45 Then elNombre = elNombre.SubString2(0, 45)
|
||||
' Log($"${elNombre} - ${c.GetString("cuantos")} .. $${monto}"$) '${c.Position} - ${elNombre.Length} -
|
||||
' cs.Color(Colors.DarkGray).Append($"${elNombre} - ${c.GetString("cuantos")} .. $${monto} ${CRLF}"$).pop
|
||||
'' Log(cs.Length)
|
||||
' Private primerEspacioLargo As Int = 45 - elNombre.Length - c.GetString("cuantos").Length - (monto.Length + 1) - 6
|
||||
' Private primerEspacio As String = ""
|
||||
' For n = 1 To primerEspacioLargo
|
||||
' primerEspacio = primerEspacio & "."
|
||||
' Next
|
||||
'' If imprimirAqui Then Printer1.WriteString($"${elNombre}${Subs.alineaDerecha(c.GetString("cuantos"), (31 - elNombre.Length), ".")} ${CRLF}"$)
|
||||
' If imprimirAqui Then Printer1.WriteString($"${elNombre}${primerEspacio}${c.GetString("cuantos")}..$${monto} ${CRLF}"$)
|
||||
' catTotal = catTotal + c.GetString("cuantos")
|
||||
' catMontoTotal = catMontoTotal + c.GetString("monto")
|
||||
'' Log($">>>> ${catAnt} - ${c.GetString("CAT_GP_TIPO2")}"$)
|
||||
' If i = c.RowCount - 1 Then
|
||||
' Private primerEspacioLargo As Int = 45 - "Total ".Length - c.GetString("CAT_GP_TIPO2").Length - 5 - catTotal.Length - NumberFormat2(catMontoTotal,1,0,0,True).Length
|
||||
' Private primerEspacio As String = ""
|
||||
' For n = 1 To primerEspacioLargo
|
||||
' primerEspacio = primerEspacio & "."
|
||||
' Next
|
||||
'' Log("PRIMER ESPACIO:" & primerEspacio.Length)
|
||||
' Log($"Total ${c.GetString("CAT_GP_TIPO2")}: ${catTotal} ${primerEspacio}$${NumberFormat2(catMontoTotal,1,0,0,True)}${CRLF}"$)
|
||||
' cs.Color(Colors.Green).Append($"Total ${c.GetString("CAT_GP_TIPO2")}: ${catTotal} ${primerEspacio}$${NumberFormat2(catMontoTotal,1,0,0,True)}${CRLF}"$).pop
|
||||
' If imprimirAqui Then
|
||||
' Printer1.WriteString(Printer1.BOLD)
|
||||
' Printer1.WriteString($"Total ${c.GetString("CAT_GP_TIPO2")}: ${catTotal} ${primerEspacio}$${NumberFormat2(catMontoTotal,1,0,0,True)}${CRLF}"$)
|
||||
' Printer1.WriteString(Printer1.NOBOLD)
|
||||
' End If
|
||||
' End If
|
||||
' Private tipoAnt As String = ""
|
||||
' catAnt = c.GetString("CAT_GP_TIPO2")
|
||||
'' Log(i)
|
||||
' Next
|
||||
If imprimirAqui Then Printer1.WriteString(CRLF)
|
||||
|
||||
' l_resumen.Text = cs
|
||||
@@ -2100,27 +2123,154 @@ Sub b_imp2_Click
|
||||
Private rsm As Cursor = Starter.skmt.ExecQuery($"select distinct CAT_GP_TIPO2, sum(pe_cant) as cuantos, sum(pe_costo_tot) as monto from pedido join CAT_GUNAPROD on cat_gp_id = PE_PROID where PE_TIPO <> 'VENTA' group by CAT_GP_TIPO2 order by CAT_GP_ORDEN_GRUPOS, CAT_GP_TIPO2"$) 'Este query quita los "Consumo de alimentos", que son los tickets que se generan con el multi-ticket, porque en CAT_GUNAPROD no existe el ID CDA01.
|
||||
' Log(rsm.RowCount)
|
||||
If rsm.RowCount > 0 Then
|
||||
Printer1.WriteString(Printer1.BOLD)
|
||||
If imprimirAqui Then Printer1.WriteString($"*** RESUMEN *** ${CRLF}"$)
|
||||
Log($"*** RESUMEN ***${CRLF}"$)
|
||||
cs.Color(Colors.red).Append($"** RESUMEN **${CRLF}"$).pop
|
||||
Printer1.WriteString(Printer1.NOBOLD)
|
||||
For i = 0 To rsm.RowCount - 1
|
||||
rsm.Position = i
|
||||
Private laCat As String = rsm.GetString("CAT_GP_TIPO2")
|
||||
If laCat.Length > 20 Then laCat = laCat.SubString2(0, 20)
|
||||
' Log($"${rsm.Position} - ${laCat.Length} - ${laCat}"$)
|
||||
Private monto As String = NumberFormat2(rsm.GetString("monto"), 1, 0, 0, True)
|
||||
Private cuantos As String = rsm.GetString("cuantos")
|
||||
|
||||
|
||||
' Printer1.WriteString(Printer1.BOLD)
|
||||
' If imprimirAqui Then Printer1.WriteString($"*** GRUPOS *** ${CRLF}"$)
|
||||
' Log($"*** GRUPOS ***${CRLF}"$)
|
||||
' cs.Color(Colors.red).Append($"*** GRUPOS ***${CRLF}"$).pop
|
||||
' Printer1.WriteString(Printer1.NOBOLD)
|
||||
|
||||
|
||||
|
||||
' For i = 0 To rsm.RowCount - 1
|
||||
' rsm.Position = i
|
||||
' Private laCat As String = rsm.GetString("CAT_GP_TIPO2")
|
||||
' If laCat.Length > 20 Then laCat = laCat.SubString2(0, 20)
|
||||
'' Log($"${rsm.Position} - ${laCat.Length} - ${laCat}"$)
|
||||
' Private monto As String = NumberFormat2(rsm.GetString("monto"), 1, 0, 0, True)
|
||||
' Private cuantos As String = rsm.GetString("cuantos")
|
||||
' Private primerEspacioLargo As Int = 30 - laCat.Length - (cuantos.Length + 1) - 6
|
||||
' Private primerEspacio As String = ""
|
||||
' For n = 1 To primerEspacioLargo
|
||||
' primerEspacio = primerEspacio & "."
|
||||
' Next
|
||||
' If imprimirAqui Then Printer1.WriteString($"${laCat}${primerEspacio}${cuantos}..$${monto} ${CRLF}"$)
|
||||
' cs.Color(Colors.DarkGray).Append($"${laCat}${primerEspacio}${cuantos}..$${monto} ${CRLF}"$).pop
|
||||
' Log($"${laCat}${primerEspacio}${cuantos}..$${monto} ${CRLF}"$)
|
||||
' Next
|
||||
|
||||
Private totAlimentos As String = "0"
|
||||
Private totBebidas As String = "0"
|
||||
Private cuantosAlimentos As String = "0"
|
||||
Private cuantosBebidas As String = "0"
|
||||
Private laCat, laCatAnt As String = ""
|
||||
Private cuantos As String = 0
|
||||
|
||||
Private grps As ResultSet = Starter.skmt.ExecQuery($"select PE_MESA, PE_PRONOMBRE, PE_TIPO, ifnull(PE_DESC,0) as PE_DESC,PE_COSTO_TOT, PE_CANT, CAT_GP_TIPO, CAT_GP_TIPO2, CAT_GP_ORDEN_GRUPOS from pedido join CAT_GUNAPROD on cat_gp_id = PE_PROID where PE_TIPO <> 'VENTA' and PE_TIPO <> 'MULTI-TICKET' and pe_ticket <> 'null' order by CAT_GP_ORDEN_GRUPOS, PE_PRONOMBRE"$)
|
||||
Private elProd, prodAnt As String
|
||||
Private grpsCant As String = "0"
|
||||
Private grpsProdCant As String = "0"
|
||||
Private grpsCantAnt As String = "0"
|
||||
Private grpsMonto As String = "0"
|
||||
Private grpsProdMonto As String = "0"
|
||||
Private grpsMontoAnt As String = "0"
|
||||
Private mProds As Map '= CreateMap("prod":"", "info":"")
|
||||
Private mGrupos As Map
|
||||
mProds.Initialize
|
||||
mGrupos.Initialize
|
||||
Do While grps.NextRow
|
||||
Private laCat As String = grps.GetString("CAT_GP_TIPO2")
|
||||
' If laCat <> laCatAnt Then
|
||||
' Log("** " & laCat & " **")
|
||||
' End If
|
||||
Private n2() As String = Regex.Split("\$", grps.GetString("PE_PRONOMBRE"))
|
||||
' Private m As Map = CreateMap("prod":"", "grupo":"", "cant":"","monto":"")
|
||||
If grps.GetString("PE_PRONOMBRE") <> prodAnt Then
|
||||
grpsProdCant = 0
|
||||
grpsProdMonto = 0
|
||||
End If
|
||||
Log("") 'NO BORRAR O COMENTAR ESTE LOG, PORQUE MANDA ERROR!!!!
|
||||
' Log(">>>>> " & n2(0))
|
||||
elProd = grps.GetString("PE_PRONOMBRE")
|
||||
grpsProdCant = grpsProdCant + grps.GetString("PE_CANT")
|
||||
Private elMonto2 As String = grps.GetString("PE_COSTO_TOT")
|
||||
If grps.GetString("CAT_GP_TIPO2") = "ALIMENTOS" And grps.GetString("PE_DESC") > 0 Then
|
||||
elMonto2 = elMonto2 - ((grps.GetString("PE_DESC")/100) * elMonto2)
|
||||
End If
|
||||
' Log(elMonto2)
|
||||
grpsProdMonto = grpsProdMonto + elMonto2
|
||||
Private m As Map = CreateMap("prod":elProd, "grupo":laCat, "cant":grpsProdCant,"monto":grpsProdMonto)
|
||||
mProds.Put(elProd, m)
|
||||
prodAnt = grps.GetString("PE_PRONOMBRE")
|
||||
laCatAnt = laCat
|
||||
Loop
|
||||
|
||||
' Log(mProds.Size)
|
||||
laCat = ""
|
||||
Private grpsMontoTotal As String
|
||||
Private grpsCantTotal As String
|
||||
Private totMontoAlimentos As String = "0"
|
||||
Private totCantAlimentos As String = "0"
|
||||
Private totMontoBebidas As String = "0"
|
||||
Private totCantBebidas As String = "0"
|
||||
For Each elProd2 As String In mProds.keys
|
||||
' Log(elProd2)
|
||||
Private tm As Map = mProds.Get(elProd2)
|
||||
' Log(tm)
|
||||
Private elNom As String = tm.Get("prod")
|
||||
Private n3() As String = Regex.Split("\$", tm.Get("prod"))
|
||||
If n3.Length > 1 Then elNom = n3(0)
|
||||
' Log($"${tm.Get("grupo")}, ${elNom}, ${tm.Get("cant")}, ${tm.Get("monto")}"$)
|
||||
|
||||
|
||||
If tm.Get("grupo") <> laCatAnt Then
|
||||
|
||||
If grpsCant > 0 Or grpsMonto > 0 Then 'Imprimimos el total de cantidad y monto del grupo.
|
||||
Private primerEspacioLargo As Int = 30 - laCatAnt.Length - (grpsCant.Length + 1) - 6
|
||||
Private primerEspacio As String = ""
|
||||
For n = 1 To primerEspacioLargo
|
||||
primerEspacio = primerEspacio & "."
|
||||
Next
|
||||
' Log($"${grpsCant}, ${grpsMonto}, |${tm.Get("grupo")}|"$)
|
||||
If laCatAnt = "ALIMENTOS" Then
|
||||
totMontoAlimentos = totMontoAlimentos + Ceil(grpsMonto)
|
||||
totCantAlimentos = totCantAlimentos + grpsCant
|
||||
Else
|
||||
totMontoBebidas = totMontoBebidas + Ceil(grpsMonto)
|
||||
totCantBebidas = totCantBebidas + grpsCant
|
||||
End If
|
||||
If imprimirAqui Then Printer1.WriteString($"Total ${laCatAnt}${primerEspacio}${grpsCant}..$${NumberFormat2(grpsMonto, 1, 0, 0, True)} ${CRLF}"$)
|
||||
Log($" Total ${laCatAnt}: .......... "$ & grpsCant & " ..... " & NumberFormat2(grpsMonto, 1, 0, 0, True))
|
||||
cs.Color(Colors.DarkGray).Append($"Total ${laCatAnt}${primerEspacio}${grpsCant}..$${NumberFormat2(grpsMonto, 1, 0, 0, True)} ${CRLF}"$).pop
|
||||
|
||||
End If
|
||||
grpsCant = 0
|
||||
grpsMonto = 0
|
||||
' Log($"** ${tm.Get("grupo")} **"$)
|
||||
|
||||
If imprimirAqui Then Printer1.WriteString("** " & tm.Get("grupo") & " **" & CRLF)
|
||||
cs.Color(Colors.DarkGray).Bold.Append("** " & tm.Get("grupo") & " **" & CRLF).pop
|
||||
Log("** " & tm.Get("grupo") & " **")
|
||||
End If
|
||||
|
||||
Private primerEspacioLargo As Int = 30 - laCat.Length - (cuantos.Length + 1) - 6
|
||||
Private primerEspacio As String = ""
|
||||
For n = 1 To primerEspacioLargo
|
||||
primerEspacio = primerEspacio & "."
|
||||
Next
|
||||
If imprimirAqui Then Printer1.WriteString($"${laCat}${primerEspacio}${cuantos}..$${monto} ${CRLF}"$)
|
||||
cs.Color(Colors.DarkGray).Append($"${laCat}${primerEspacio}${cuantos}..$${monto} ${CRLF}"$).pop
|
||||
Log($"${laCat}${primerEspacio}${cuantos}..$${monto} ${CRLF}"$)
|
||||
If imprimirAqui Then Printer1.WriteString($"${elNom}${primerEspacio}${tm.Get("cant")}..$${tm.Get("monto")} ${CRLF}"$)
|
||||
cs.Color(Colors.DarkGray).Append($"${elNom} ..... ${tm.Get("cant")}..$${tm.Get("monto")} ${CRLF}"$).pop
|
||||
Log($" ${elNom}${primerEspacio}${tm.Get("cant")}..$${tm.Get("monto")} ${CRLF}"$)
|
||||
|
||||
|
||||
|
||||
' Log($" ${tm.Get("prod")}, ${tm.Get("cant")}, ${tm.Get("monto")}"$)
|
||||
grpsCant = grpsCant + tm.Get("cant")
|
||||
grpsMonto = grpsMonto + Ceil(tm.Get("monto"))
|
||||
laCatAnt = tm.Get("grupo")
|
||||
Next
|
||||
totMontoBebidas = totMontoBebidas + grpsMonto
|
||||
totCantBebidas = totCantBebidas + grpsCant
|
||||
If imprimirAqui Then Printer1.WriteString($"${laCatAnt}${primerEspacio}${grpsCant}..$${grpsMonto} ${CRLF}"$)
|
||||
Log($"${laCatAnt}: .......... "$ & grpsCant & " ..... " & NumberFormat2(grpsMonto, 1, 0, 0, True))
|
||||
cs.Color(Colors.DarkGray).Append($"${laCatAnt}${primerEspacio}${grpsCant}..$${NumberFormat2(grpsMonto, 1, 0, 0, True)} ${CRLF}"$).pop
|
||||
' Log(grpsCant & "|" & grpsMonto)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'COMENSALES
|
||||
LogColor("sleeping ....", Colors.Magenta)
|
||||
@@ -2210,6 +2360,7 @@ Sub b_imp2_Click
|
||||
Printer1.WriteString(Printer1.BOLD)
|
||||
If imprimirAqui Then Printer1.WriteString($"*** PROPINAS *** ${CRLF}"$)
|
||||
Printer1.WriteString(Printer1.NOBOLD)
|
||||
cs.Append(CRLF)
|
||||
cs.Color(Colors.red).Append($"** PROPINAS **${CRLF}"$).pop
|
||||
Log("*** PROPINAS ***")
|
||||
Do While prop.NextRow
|
||||
@@ -2253,7 +2404,6 @@ Sub b_imp2_Click
|
||||
ProgressDialogHide
|
||||
End Sub
|
||||
|
||||
|
||||
Sub b_imp3_Click
|
||||
Private imprimirAqui As Boolean = Starter.imprimirTicket
|
||||
Private sDate, sTime As String
|
||||
@@ -2316,6 +2466,7 @@ Sub b_imp3_Click
|
||||
Printer1.WriteString(Printer1.BOLD)
|
||||
If imprimirAqui Then Printer1.WriteString($"*** PROPINAS *** ${CRLF}"$)
|
||||
Printer1.WriteString(Printer1.NOBOLD)
|
||||
cs.Append(CRLF)
|
||||
cs.Color(Colors.red).Append($"** PROPINAS **${CRLF}"$).pop
|
||||
Log("*** PROPINAS ***")
|
||||
Private tot As String = 0
|
||||
@@ -2361,6 +2512,387 @@ Sub b_imp3_Click
|
||||
ProgressDialogHide
|
||||
End Sub
|
||||
|
||||
Sub b_impAB_Click
|
||||
Private imprimirAqui As Boolean = Starter.imprimirTicket
|
||||
Private sDate, sTime As String
|
||||
Private montoAmex = "0", montoMifel = "0", montoEfectivo = "0" As String
|
||||
Private c As Cursor
|
||||
sv_resumen.Panel.Height = p_resumen.Height
|
||||
cs.Initialize
|
||||
Private l_total, la_cuenta As Label
|
||||
l_total.Initialize("l")
|
||||
la_cuenta.Initialize("2")
|
||||
b_imp.Enabled = False
|
||||
ProgressDialogShow("Imprimiendo, un momento ...")
|
||||
If imprimirAqui Then
|
||||
Printer1.DisConnect
|
||||
If Not(Printer1.IsConnected) Then
|
||||
If Starter.logger Then Log("conectando 1")
|
||||
Printer1.Connect
|
||||
Private cont As Int = 0
|
||||
Do While Not(impresoraConectada)
|
||||
Sleep(1000)
|
||||
cont = cont + 1
|
||||
If cont = 7 Then Printer1.Connect 'Tratamos de reconectar
|
||||
If cont > 15 Then impresoraConectada = True
|
||||
Loop
|
||||
Sleep(500)
|
||||
impresoraConectada = False
|
||||
Else
|
||||
If Starter.logger Then Log("conectando 2")
|
||||
Printer1.Connect
|
||||
Private cont As Int = 0
|
||||
Do While Not(impresoraConectada) Or Not(Printer1.IsConnected)
|
||||
Sleep(1000)
|
||||
cont = cont + 1
|
||||
If cont = 2 Then Printer1.Connect
|
||||
If cont > 4 Then impresoraConectada = True
|
||||
Loop
|
||||
Sleep(500)
|
||||
impresoraConectada = False
|
||||
End If
|
||||
Printer1.Reset
|
||||
End If
|
||||
Try
|
||||
DateTime.DateFormat = "yyyymmdd"
|
||||
sDate = DateTime.Date(DateTime.Now)
|
||||
Printer1.WriteString(Printer1.BOLD)
|
||||
If imprimirAqui Then Printer1.WriteString("LA LANTERNA RISTORANTE" & CRLF)
|
||||
Printer1.WriteString(Printer1.NOBOLD)
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate = DateTime.Date(DateTime.Now)
|
||||
sTime = DateTime.Time(DateTime.Now)
|
||||
Private c As Cursor = Starter.skmt.ExecQuery($"select M_ESTATUS from CAT_MESAS where M_ESTATUS = 'ABIERTA'"$)
|
||||
' Log(c.RowCount)
|
||||
|
||||
'RESUMEN
|
||||
' LogColor("sleeping ....", Colors.Magenta)
|
||||
' If imprimirAqui Then Sleep(4000)
|
||||
Private rsm As Cursor = Starter.skmt.ExecQuery($"select distinct CAT_GP_TIPO2, sum(pe_cant) as cuantos, sum(pe_costo_tot) as monto from pedido join CAT_GUNAPROD on cat_gp_id = PE_PROID where PE_TIPO <> 'VENTA' and PE_TIPO <> 'MULTI-TICKET' and pe_ticket <> 'null' group by CAT_GP_TIPO2 order by CAT_GP_ORDEN_GRUPOS, CAT_GP_TIPO2"$) 'Este query quita los "Consumo de alimentos", que son los tickets que se generan con el multi-ticket, porque en CAT_GUNAPROD no existe el ID CDA01.
|
||||
' Log(rsm.RowCount)
|
||||
If rsm.RowCount > 0 Then
|
||||
Printer1.WriteString(Printer1.BOLD)
|
||||
If imprimirAqui Then Printer1.WriteString($"*** RESUMEN *** ${CRLF}"$)
|
||||
Log($"*** RESUMEN ***${CRLF}"$)
|
||||
cs.Color(Colors.red).Append($"** RESUMEN **${CRLF}"$).pop
|
||||
Printer1.WriteString(Printer1.NOBOLD)
|
||||
Private totAlimentos As String = "0"
|
||||
Private totBebidas As String = "0"
|
||||
Private cuantosAlimentos As String = "0"
|
||||
Private cuantosBebidas As String = "0"
|
||||
Private laCat, laCatAnt As String = ""
|
||||
Private cuantos As String = 0
|
||||
' For i = 0 To rsm.RowCount - 1
|
||||
' rsm.Position = i
|
||||
' Private laCat As String = rsm.GetString("CAT_GP_TIPO2")
|
||||
' If laCat.Length > 20 Then laCat = laCat.SubString2(0, 20)
|
||||
'' Log($"${rsm.Position} - ${laCat.Length} - ${laCat}"$)
|
||||
' Private monto As String = NumberFormat2(rsm.GetString("monto"), 1, 0, 0, True)
|
||||
'
|
||||
' If rsm.GetString("CAT_GP_TIPO2") = "ALIMENTOS" Then
|
||||
' totAlimentos = totAlimentos + rsm.GetString("monto")
|
||||
' cuantosAlimentos = cuantosAlimentos + rsm.GetString("cuantos")
|
||||
' Else
|
||||
' totBebidas = totBebidas + rsm.GetString("monto")
|
||||
' cuantosBebidas = cuantosBebidas + rsm.GetString("cuantos")
|
||||
' End If
|
||||
'
|
||||
' Private cuantos As String = rsm.GetString("cuantos")
|
||||
' Private primerEspacioLargo As Int = 30 - laCat.Length - (cuantos.Length + 1) - 6
|
||||
' Private primerEspacio As String = ""
|
||||
' For n = 1 To primerEspacioLargo
|
||||
' primerEspacio = primerEspacio & "."
|
||||
' Next
|
||||
' If imprimirAqui Then Printer1.WriteString($"${laCat}${primerEspacio}${cuantos}..$${monto} ${CRLF}"$)
|
||||
' cs.Color(Colors.DarkGray).Append($"${laCat}${primerEspacio}${cuantos}..$${monto} ${CRLF}"$).pop
|
||||
' Log($"${laCat}${primerEspacio}${cuantos}..$${monto} ${CRLF}"$)
|
||||
' Next
|
||||
|
||||
|
||||
Private grps As ResultSet = Starter.skmt.ExecQuery($"select PE_MESA, PE_PRONOMBRE, PE_TIPO, ifnull(PE_DESC,0) as PE_DESC,PE_COSTO_TOT, PE_CANT, CAT_GP_TIPO, CAT_GP_TIPO2, CAT_GP_ORDEN_GRUPOS from pedido join CAT_GUNAPROD on cat_gp_id = PE_PROID where PE_TIPO <> 'VENTA' and PE_TIPO <> 'MULTI-TICKET' and pe_ticket <> 'null' order by CAT_GP_ORDEN_GRUPOS, PE_PRONOMBRE"$)
|
||||
Private elProd, prodAnt As String
|
||||
Private grpsCant As String = "0"
|
||||
Private grpsProdCant As String = "0"
|
||||
Private grpsCantAnt As String = "0"
|
||||
Private grpsMonto As String = "0"
|
||||
Private grpsProdMonto As String = "0"
|
||||
Private grpsMontoAnt As String = "0"
|
||||
Private mProds As Map '= CreateMap("prod":"", "info":"")
|
||||
Private mGrupos As Map
|
||||
mProds.Initialize
|
||||
mGrupos.Initialize
|
||||
Do While grps.NextRow
|
||||
Private laCat As String = grps.GetString("CAT_GP_TIPO2")
|
||||
' If laCat <> laCatAnt Then
|
||||
' Log(laCat)
|
||||
' End If
|
||||
Private n2() As String = Regex.Split("\$", grps.GetString("PE_PRONOMBRE"))
|
||||
' Private m As Map = CreateMap("prod":"", "grupo":"", "cant":"","monto":"")
|
||||
If grps.GetString("PE_PRONOMBRE") <> prodAnt Then
|
||||
grpsProdCant = 0
|
||||
grpsProdMonto = 0
|
||||
End If
|
||||
Log("") 'NO BORRAR O COMENTAR ESTE LOG, PORQUE MANDA ERROR!!!!
|
||||
' Log(">>>>> " & n2(0))
|
||||
elProd = grps.GetString("PE_PRONOMBRE")
|
||||
grpsProdCant = grpsProdCant + grps.GetString("PE_CANT")
|
||||
Private elMonto2 As String = grps.GetString("PE_COSTO_TOT")
|
||||
If grps.GetString("CAT_GP_TIPO2") = "ALIMENTOS" And grps.GetString("PE_DESC") > 0 Then
|
||||
elMonto2 = elMonto2 - ((grps.GetString("PE_DESC")/100) * elMonto2)
|
||||
End If
|
||||
' Log(elMonto2)
|
||||
grpsProdMonto = grpsProdMonto + elMonto2
|
||||
Private m As Map = CreateMap("prod":elProd, "grupo":laCat, "cant":grpsProdCant,"monto":grpsProdMonto)
|
||||
mProds.Put(elProd, m)
|
||||
prodAnt = grps.GetString("PE_PRONOMBRE")
|
||||
laCatAnt = laCat
|
||||
Loop
|
||||
|
||||
' Log(mProds.Size)
|
||||
laCat = ""
|
||||
Private grpsMontoTotal As String
|
||||
Private grpsCantTotal As String
|
||||
Private totMontoAlimentos As String = "0"
|
||||
Private totCantAlimentos As String = "0"
|
||||
Private totMontoBebidas As String = "0"
|
||||
Private totCantBebidas As String = "0"
|
||||
For Each elProd2 As String In mProds.keys
|
||||
' Log(elProd2)
|
||||
Private tm As Map = mProds.Get(elProd2)
|
||||
' Log(tm)
|
||||
' Log($"${tm.Get("grupo")}, ${tm.Get("prod")}, ${tm.Get("cant")}, ${tm.Get("monto")}"$)
|
||||
If tm.Get("grupo") <> laCatAnt Then
|
||||
If grpsCant > 0 Or grpsMonto > 0 Then
|
||||
Private primerEspacioLargo As Int = 30 - laCatAnt.Length - (grpsCant.Length + 1) - 6
|
||||
Private primerEspacio As String = ""
|
||||
For n = 1 To primerEspacioLargo
|
||||
primerEspacio = primerEspacio & "."
|
||||
Next
|
||||
' Log($"${grpsCant}, ${grpsMonto}, |${tm.Get("grupo")}|"$)
|
||||
If laCatAnt = "ALIMENTOS" Then
|
||||
totMontoAlimentos = totMontoAlimentos + Ceil(grpsMonto)
|
||||
totCantAlimentos = totCantAlimentos + grpsCant
|
||||
Else
|
||||
totMontoBebidas = totMontoBebidas + Ceil(grpsMonto)
|
||||
totCantBebidas = totCantBebidas + grpsCant
|
||||
End If
|
||||
If imprimirAqui Then Printer1.WriteString($"${laCatAnt}${primerEspacio}${grpsCant}..$${NumberFormat2(grpsMonto, 1, 0, 0, True)} ${CRLF}"$)
|
||||
Log($"${laCatAnt}: .......... "$ & grpsCant & " ..... " & NumberFormat2(grpsMonto, 1, 0, 0, True))
|
||||
' cs.Color(Colors.DarkGray).Append($"${laCatAnt}: .......... "$ & grpsCant & " ..... " & NumberFormat2(grpsMonto, 1, 0, 0, True) & CRLF).pop
|
||||
cs.Color(Colors.DarkGray).Append($"${laCatAnt}${primerEspacio}${grpsCant}..$${NumberFormat2(grpsMonto, 1, 0, 0, True)} ${CRLF}"$).pop
|
||||
|
||||
End If
|
||||
grpsCant = 0
|
||||
grpsMonto = 0
|
||||
' Log($"** ${tm.Get("grupo")} **"$)
|
||||
End If
|
||||
' Log($" ${tm.Get("prod")}, ${tm.Get("cant")}, ${tm.Get("monto")}"$)
|
||||
grpsCant = grpsCant + tm.Get("cant")
|
||||
grpsMonto = grpsMonto + Ceil(tm.Get("monto"))
|
||||
laCatAnt = tm.Get("grupo")
|
||||
Next
|
||||
totMontoBebidas = totMontoBebidas + grpsMonto
|
||||
totCantBebidas = totCantBebidas + grpsCant
|
||||
If imprimirAqui Then Printer1.WriteString($"${laCatAnt}${primerEspacio}${grpsCant}..$${grpsMonto} ${CRLF}"$)
|
||||
Log($"${laCatAnt}: .......... "$ & grpsCant & " ..... " & NumberFormat2(grpsMonto, 1, 0, 0, True))
|
||||
cs.Color(Colors.DarkGray).Append($"${laCatAnt}${primerEspacio}${grpsCant}..$${NumberFormat2(grpsMonto, 1, 0, 0, True)} ${CRLF}"$).pop
|
||||
' Log(grpsCant & "|" & grpsMonto)
|
||||
|
||||
'COMENSALES
|
||||
If imprimirAqui Then Sleep(3000)
|
||||
Private coms As Cursor = Starter.skmt.ExecQuery($"select sum(PT_COMENSALES) as totComensales from PEDIDO_TICKET where ifnull(PT_ALMACEN,0) <> 'MULTI-TICKET'"$)
|
||||
Private totalComensales As Int = 0
|
||||
If coms.RowCount > 0 Then
|
||||
coms.Position = 0
|
||||
totalComensales = coms.GetInt("totComensales")
|
||||
End If
|
||||
If imprimirAqui Then Printer1.WriteString($"Comensales ...........${totalComensales} ${CRLF}"$)
|
||||
cs.Color(Colors.DarkGray).Append($"Comensales ..........${totalComensales} ${CRLF}"$).pop
|
||||
Log($"Comensales ..........${totalComensales} ${CRLF}"$)
|
||||
|
||||
'TOTAL ALIMENTOS Y BEBIDAS
|
||||
Log("*** TOTAL CONSUMO ***")
|
||||
Log($"TOTAL ALIMENTOS: ${NumberFormat2(totMontoAlimentos, 1, 0, 0, True)}"$)
|
||||
Log($"TOTAL BEBIDAS: ${NumberFormat2(totMontoBebidas,1,0,0,True)}"$)
|
||||
If imprimirAqui Then Printer1.WriteString($"${CRLF}"$)
|
||||
Private primerEspacioLargo As Int = 30 - laCat.Length - (cuantos.Length + 1) - 6
|
||||
Private primerEspacio As String = ""
|
||||
For n = 1 To primerEspacioLargo
|
||||
primerEspacio = primerEspacio & "."
|
||||
Next
|
||||
Printer1.WriteString(Printer1.BOLD)
|
||||
If imprimirAqui Then Printer1.WriteString($"*** TOTAL CONSUMO *** ${CRLF}"$)
|
||||
Printer1.WriteString(Printer1.NOBOLD)
|
||||
If imprimirAqui Then Printer1.WriteString($"TOTAL ALIMENTOS ....... ${totCantAlimentos} ${Subs.alineaDerecha(NumberFormat2(totMontoAlimentos,1,0,0,True), 35 - $"TOTAL ALIMENTOS ....... ${totCantAlimentos}"$.Length, ".")} ${CRLF}"$)
|
||||
If imprimirAqui Then Printer1.WriteString($"TOTAL BEBIDAS ......... ${totCantBebidas} ${Subs.alineaDerecha(NumberFormat2(totMontoBebidas,1,0,0,True), 35 - $"TOTAL BEBIDAS ......... ${totCantBebidas}"$.Length, ".")} ${CRLF}"$)
|
||||
If imprimirAqui Then Printer1.WriteString($"TOTAL ${Subs.alineaDerecha(NumberFormat2((totMontoAlimentos+totMontoBebidas),1,0,0,True), 35 - "TOTAL ".Length, ".")} ${CRLF}"$)
|
||||
' If imprimirAqui Then Printer1.WriteString($"${CRLF}"$)
|
||||
cs.Append($"${CRLF}"$)
|
||||
cs.Color(Colors.red).Append($"*** TOTAL DE CONSUMOS ***${CRLF}"$).pop
|
||||
cs.Color(Colors.DarkGray).Append($"TOTAL ALIMENTOS ${Subs.alineaDerecha("$"&NumberFormat2(totMontoAlimentos, 1, 0, 0, True), 45 - "TOTAL ALIMENTOS".Length, ".")} ${CRLF}"$).pop
|
||||
cs.Color(Colors.DarkGray).Append($"TOTAL BEBIDAS ${Subs.alineaDerecha("$"&NumberFormat2(totMontoBebidas, 1, 0, 0, True), 45 - "TOTAL BEBIDAS".Length, ".")} ${CRLF}"$).pop
|
||||
cs.Color(Colors.DarkGray).Append($"TOTAL: ${Subs.alineaDerecha("$"&NumberFormat2(totMontoAlimentos+totMontoBebidas,1,0,0,True), 45 - "TOTAL BEBIDAS".Length, ".")} ${CRLF}"$).pop
|
||||
cs.Append($"${CRLF}"$)
|
||||
Log($"TOTAL ALIMENTOS ...........${NumberFormat2(totMontoAlimentos, 1, 0, 0, True)} ${CRLF}"$)
|
||||
Log($"TOTAL BEBIDAS ...........${NumberFormat2(totMontoBebidas, 1, 0, 0, True)} ${CRLF}"$)
|
||||
'PAGOS
|
||||
' If imprimirAqui Then Sleep(1000)
|
||||
Private pgs As Cursor = Starter.skmt.ExecQuery($"Select PT_PAGO2, sum(PT_NOART) As arts, sum(PT_MONTO) As monto from PEDIDO_TICKET where pt_pago <> 'MULTI-TICKET' and pt_pago <> 'VENTA' group by PT_PAGO2
|
||||
order by CASE PT_PAGO_PROPINA
|
||||
WHEN 'Amex' THEN 0
|
||||
WHEN 'Mifel' THEN 1
|
||||
WHEN 'Efectivo' THEN 2
|
||||
END"$)
|
||||
Private totalComensales As Int = 0
|
||||
If imprimirAqui Then Printer1.WriteString($"${CRLF}"$)
|
||||
Printer1.WriteString(Printer1.BOLD)
|
||||
If imprimirAqui Then Printer1.WriteString($"*** PAGOS *** ${CRLF}"$)
|
||||
Printer1.WriteString(Printer1.NOBOLD)
|
||||
cs.Color(Colors.red).Append($"** PAGOS **${CRLF}"$).pop
|
||||
Log("*** PAGOS ***")
|
||||
Private totalPagos As String = 0
|
||||
For i = 0 To pgs.RowCount - 1
|
||||
pgs.Position = i
|
||||
Private elPago As String = pgs.GetString("PT_PAGO2")
|
||||
If elPago.Length > 20 Then elPago = elPago.SubString2(0, 20)
|
||||
' Log($"${pgs.Position} - ${elPago.Length} - ${elPago}"$)
|
||||
Private monto As String = pgs.GetString("monto")
|
||||
Private cuantos As String = pgs.GetString("arts")
|
||||
Private primerEspacioLargo As Int = 30 - elPago.Length - (cuantos.Length + 1) - 6
|
||||
Private primerEspacio As String = ""
|
||||
For n = 1 To primerEspacioLargo
|
||||
primerEspacio = primerEspacio & "."
|
||||
Next
|
||||
' monto = NumberFormat2(monto.As(Double), 1, 0, 0, True)
|
||||
' Log(monto)
|
||||
' Aqui se sacan las PROPINAS para sumarselas a los subtotals de cada pago.
|
||||
Private propAmex = "0", propMifel = "0", propMifelDebito = "0", propEfectivo = "0" As String
|
||||
Private rt As ResultSet = Starter.skmt.ExecQuery($"Select sum(pt_monto) as ptMonto, sum(pt_propina) as ptPropina, * from pedido_ticket where pt_pago <> 'VENTA' and PT_PAGO <> 'MULTI-TICKET' group by pt_pago2"$)
|
||||
Private rtpa As ResultSet = Starter.skmt.ExecQuery($"Select ifnull(sum(pt_propina),0) as ptPropina, * from pedido_ticket where pt_pago_propina = 'Amex' group by pt_pago_propina"$)
|
||||
Do While rtpa.NextRow
|
||||
propAmex = rtpa.GetString("ptPropina")
|
||||
Loop
|
||||
Private rtpmc As ResultSet = Starter.skmt.ExecQuery($"Select ifnull(sum(pt_propina),0) as ptPropina, * from pedido_ticket where pt_pago_propina = 'Mifel' group by pt_pago_propina"$)
|
||||
Do While rtpmc.NextRow
|
||||
propMifel = rtpmc.GetString("ptPropina")
|
||||
Loop
|
||||
' Private rtpmd As ResultSet = Starter.skmt.ExecQuery($"Select ifnull(sum(pt_propina),0) as ptPropina, * from pedido_ticket where pt_pago_propina = 'Visa/Mastercard Debito' group by pt_pago_propina"$)
|
||||
' Do While rtpmd.NextRow
|
||||
' propMifelDebito = rtpmd.GetString("ptPropina")
|
||||
' Loop
|
||||
Private rtpe As ResultSet = Starter.skmt.ExecQuery($"Select ifnull(sum(pt_propina),0) as ptPropina, * from pedido_ticket where pt_pago_propina = 'Efectivo' group by pt_pago_propina"$)
|
||||
Do While rtpe.NextRow
|
||||
propEfectivo = rtpe.GetString("ptPropina")
|
||||
Loop
|
||||
If elPago = "Amex" Then
|
||||
' Log("ES AMEX")
|
||||
montoAmex = monto
|
||||
monto = monto + propAmex
|
||||
else If elPago = "Mifel" Then
|
||||
' Log("ES MIFEL")
|
||||
montoMifel = monto
|
||||
monto = monto + propMifel
|
||||
else If elPago = "Efectivo" Then
|
||||
montoEfectivo = monto
|
||||
monto = monto + propEfectivo
|
||||
End If
|
||||
' Log($"########## ${elPago}, ${monto}, ${propAmex}, ${propMifel} "$)
|
||||
' Log($"${elPago} - ${monto}"$)
|
||||
If elPago = "Amex" Then elPago = "Amex"
|
||||
If imprimirAqui Then Printer1.WriteString($"${elPago}${primerEspacio}.. $${NumberFormat2(monto, 1, 0, 0, True)} ${CRLF}"$)
|
||||
cs.Color(Colors.DarkGray).Append($"${elPago}${primerEspacio}.. $${NumberFormat2(monto, 1, 0, 0, True)} ${CRLF}"$).pop
|
||||
Log($"${elPago}${primerEspacio}.. $${NumberFormat2(monto, 1, 0, 0, True)} ${CRLF}"$)
|
||||
totalPagos = totalPagos + monto
|
||||
Next
|
||||
totalPagos = NumberFormat2(totalPagos, 1, 0, 0, True)
|
||||
If imprimirAqui Then Printer1.WriteString($"TOTAL PAGOS ........... $${totalPagos} ${CRLF}"$)
|
||||
cs.Color(Colors.DarkGray).Append($"TOTAL PAGOS: ........... $${totalPagos} ${CRLF}"$).pop
|
||||
Log($"TOTAL PAGOS: .........${i}.. $${totalPagos} ${CRLF}"$)
|
||||
|
||||
'PROPINAS
|
||||
' If imprimirAqui Then Sleep(1000)
|
||||
Private prop As ResultSet = Starter.skmt.ExecQuery($"Select PT_PAGO_PROPINA, sum(PT_PROPINA) As PROPINA from PEDIDO_TICKET where pt_pago <> 'MULTI-TICKET' group by PT_PAGO_PROPINA
|
||||
order by CASE PT_PAGO_PROPINA
|
||||
WHEN 'Amex' THEN 0
|
||||
WHEN 'Mifel' THEN 1
|
||||
WHEN 'Efectivo' THEN 2
|
||||
END"$)
|
||||
If imprimirAqui Then Printer1.WriteString(CRLF)
|
||||
Printer1.WriteString(Printer1.BOLD)
|
||||
If imprimirAqui Then Printer1.WriteString($"*** PROPINAS *** ${CRLF}"$)
|
||||
Printer1.WriteString(Printer1.NOBOLD)
|
||||
cs.Append(CRLF)
|
||||
cs.Color(Colors.red).Append($"** PROPINAS **${CRLF}"$).pop
|
||||
Log("*** PROPINAS ***")
|
||||
Private totPropinas As String = "0"
|
||||
Do While prop.NextRow
|
||||
If prop.GetString("PT_PAGO_PROPINA") <> Null Then
|
||||
Private laPropina As String = prop.GetString("PROPINA")
|
||||
If imprimirAqui Then Printer1.WriteString($"${prop.GetString("PT_PAGO_PROPINA")}${Subs.alineaDerecha("$"&NumberFormat2(laPropina, 1, 2, 2, True), (30 - prop.GetString("PT_PAGO_PROPINA").Length), ".")} ${CRLF}"$)
|
||||
' Log(prop.GetString("PT_PAGO_PROPINA"))
|
||||
cs.Color(Colors.DarkGray).Append($"${prop.GetString("PT_PAGO_PROPINA")}${Subs.alineaDerecha("$"&NumberFormat2(laPropina, 1, 2, 2, True), (30 - prop.GetString("PT_PAGO_PROPINA").Length), ".")} ${CRLF}"$).pop
|
||||
Log($" ${prop.GetString("PT_PAGO_PROPINA")}${Subs.alineaDerecha("$"&NumberFormat2(laPropina, 1, 2, 2, True), (30 - prop.GetString("PT_PAGO_PROPINA").Length), ".")} "$)
|
||||
totPropinas = totPropinas + laPropina
|
||||
End If
|
||||
Loop
|
||||
'TOTAL PROPINAS
|
||||
If imprimirAqui Then
|
||||
Printer1.WriteString(Printer1.BOLD)
|
||||
Printer1.WriteString($"Total: ${Subs.alineaDerecha("$"&NumberFormat2(totPropinas, 1, 2, 2, True), (30 - "Total: ".Length), ".")} ${CRLF}"$)
|
||||
Printer1.WriteString(Printer1.NOBOLD)
|
||||
End If
|
||||
cs.Color(Colors.DarkGray).Append($"Total: ${Subs.alineaDerecha("$"&NumberFormat2(totPropinas, 1, 2, 2, True), (30 - "Total: ".Length), ".")} ${CRLF}"$).pop
|
||||
Log($"Total: ${Subs.alineaDerecha("$"&NumberFormat2(totPropinas, 1, 0, 0, True), (30 - totPropinas.Length), ".")} "$)
|
||||
|
||||
'TOTAL SIN PROPINAS
|
||||
If imprimirAqui Then Printer1.WriteString(CRLF)
|
||||
Printer1.WriteString(Printer1.BOLD)
|
||||
If imprimirAqui Then Printer1.WriteString($"*** PAGOS SIN PROPINAS *** ${CRLF}"$)
|
||||
Printer1.WriteString(Printer1.NOBOLD)
|
||||
cs.Append(CRLF)
|
||||
cs.Color(Colors.red).Append($"** TOTAL SIN PROPINAS **${CRLF}"$).pop
|
||||
Log("*** TOTAL SIN PROPINAS ***")
|
||||
If imprimirAqui Then
|
||||
Printer1.WriteString($"Total Tarjetas: ${Subs.alineaDerecha("$"&NumberFormat2(montoAmex+montoMifel, 1, 2, 2, True), (30 - "Total Tarjetas: ".Length), ".")} ${CRLF}"$)
|
||||
Printer1.WriteString($"Total Efectivo: ${Subs.alineaDerecha("$"&NumberFormat2(montoEfectivo, 1, 2, 2, True), (30 - "Total Efectivo: ".Length), ".")} ${CRLF}"$)
|
||||
Printer1.WriteString($"Total: ${Subs.alineaDerecha("$"&NumberFormat2(montoAmex+montoMifel+montoEfectivo, 1, 2, 2, True), (30 - "Total: ".Length), ".")} ${CRLF}"$)
|
||||
End If
|
||||
cs.Color(Colors.DarkGray).Append($"Total Tarjetas: ${Subs.alineaDerecha("$"&NumberFormat2(montoAmex+montoMifel, 1, 2, 2, True), (30 - "Total Tarjetas: ".Length), ".")} ${CRLF}"$).pop
|
||||
cs.Color(Colors.DarkGray).Append($"Total Efectivo: ${Subs.alineaDerecha("$"&NumberFormat2(montoEfectivo, 1, 2, 2, True), (30 - "Total Efectivo: ".Length), ".")} ${CRLF}"$).pop
|
||||
cs.Color(Colors.DarkGray).Append($"Total: ${Subs.alineaDerecha("$"&NumberFormat2(montoAmex+montoMifel+montoEfectivo, 1, 2, 2, True), (30 - "Total: ".Length), ".")} ${CRLF}"$).pop
|
||||
Log($"Total Tarjetas: ${Subs.alineaDerecha("$"&NumberFormat2(montoAmex+montoMifel, 1, 0, 0, True), (30 - "Total Tarjetas: ".Length), ".")} "$)
|
||||
Log($"Total Efectivo: ${Subs.alineaDerecha("$"&NumberFormat2(montoEfectivo, 1, 0, 0, True), (30 - "Total Efectivo: ".Length), ".")} "$)
|
||||
Log($"Total: ${Subs.alineaDerecha("$"&NumberFormat2(montoAmex+montoMifel+montoEfectivo, 1, 0, 0, True), (30 - "Total: ".Length), ".")} "$)
|
||||
|
||||
If imprimirAqui Then Printer1.WriteString(CRLF)
|
||||
If imprimirAqui Then Printer1.WriteString(CRLF)
|
||||
If imprimirAqui Then Printer1.WriteString(CRLF)
|
||||
If imprimirAqui Then Printer1.WriteString(CRLF)
|
||||
If imprimirAqui Then Printer1.WriteString(CRLF)
|
||||
If imprimirAqui Then Printer1.WriteString(CRLF)
|
||||
If imprimirAqui Then Printer1.WriteString(CRLF)
|
||||
If imprimirAqui Then Printer1.WriteString(CRLF)
|
||||
End If
|
||||
l_resumen.Text = cs
|
||||
l_resumen.Height = su.MeasureMultilineTextHeight(l_resumen, l_resumen.Text)
|
||||
sv_resumen.Panel.Height = l_resumen.Height
|
||||
Subs.panelVisible(p_transparenteResumen, 0, 0)
|
||||
' Else
|
||||
' ToastMessageShow("¡Es necesario que NO haya mesas abiertas para realizar el cierre!", True)
|
||||
' End If
|
||||
If imprimirAqui Then Sleep(1000)
|
||||
Printer1.DisConnect
|
||||
Catch
|
||||
ToastMessageShow("Error en la impresion 2.", True)
|
||||
Printer1.Disconnect
|
||||
' B4XPages.ShowPage("Principal")
|
||||
Activity_Resume
|
||||
End Try
|
||||
If imprimirAqui Then Sleep(1000)
|
||||
b_imp.Enabled = True
|
||||
ProgressDialogHide
|
||||
End Sub
|
||||
|
||||
Sub b_imp_VIEJO_Click
|
||||
' Log("inicia B_IMP2_Click")
|
||||
Private TAMANO As Int
|
||||
@@ -2836,6 +3368,16 @@ Sub agregaFormaDePago(left0 As Int, top0 As Int, tag0 As Int, brinco As Int)
|
||||
p_formasDePago.AddView(p_num, left0, top0, p_formasDePago.Width, 40dip)
|
||||
b_pagoCerrar.Enabled = False
|
||||
If listaFormaDePago.Size > 1 Then l_faltaMonto.Visible = True
|
||||
Try
|
||||
et_montoPago2_TextChanged("","1")
|
||||
Log(l_faltaMonto.Text)
|
||||
Private f() As String = Regex.Split(" ", l_faltaMonto.Text)
|
||||
If f.Length > 0 And f(0) = "FALTAN" Then
|
||||
et_montoPago2.Text = f(1)
|
||||
End If
|
||||
Catch
|
||||
Log(LastException)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub cb_pago2_SelectedIndexChanged (Index As Int)
|
||||
@@ -2866,7 +3408,7 @@ Private Sub cb_pago2_SelectedIndexChanged (Index As Int)
|
||||
End Sub
|
||||
|
||||
Private Sub et_montoPago2_TextChanged (Old As String, New As String)
|
||||
' Log("TEXT CHANGED")
|
||||
Log("TEXT CHANGED")
|
||||
' Log(Starter.totalActual)
|
||||
subtotal = 0
|
||||
Private enBlanco As Boolean = False
|
||||
@@ -3227,8 +3769,8 @@ Private Sub b_leyendaDescuento_Click
|
||||
c.Position = i
|
||||
Private elNombre As String = c.GetString("PE_PRONOMBRE")
|
||||
elPU = c.GetString("PE_COSTOU")
|
||||
If elNombre.Length > 45 Then elNombre.SubString2(0, 45)
|
||||
If c.GetString("CAT_GP_TIPO") = "ALIMENTOS" Then
|
||||
If elNombre.Length > 45 Then elNombre.SubString2(0, 45)
|
||||
If c.GetString("CAT_GP_TIPO") = "ALIMENTOS" Or c.GetString("CAT_GP_TIPO") = "MEDIA" Then
|
||||
' Log($">> APLICAMOS DESC POR ALIMENTOS"$)
|
||||
Private elSubTIndividual As String = c.GetString("PE_COSTOU") - (c.GetString("PE_COSTOU") * (c.GetString("DESC") / 100))
|
||||
elSubTotal = Ceil(elSubTIndividual) * c.GetString("PE_CANT")
|
||||
@@ -3320,7 +3862,7 @@ Private Sub b_leyendaDescuento_Click
|
||||
Log("xxxxxxxxxxxxxxxxx")
|
||||
If imprimirEste Then Printer1.WriteString($"${CRLF} ${tot1}"$)
|
||||
If imprimirEste Then Printer1.WriteString($"${CRLF} ${tot2}"$)
|
||||
Else
|
||||
Else
|
||||
If imprimirEste Then Printer1.WriteString($"${CRLF} ${n2t.NumberToWords(NumberFormat2(elTotal, 1, 2, 2, False))}"$)
|
||||
End If
|
||||
|
||||
@@ -3778,7 +4320,7 @@ Private Sub b_resumen_Click
|
||||
Private propAmex = "0", propMifel = "0", propMifelDebito = "0", propEfectivo = "0" As String
|
||||
Private rt As ResultSet = Starter.skmt.ExecQuery($"Select sum(pt_monto) as ptMonto, sum(pt_propina) as ptPropina, * from pedido_ticket where pt_pago <> 'VENTA' and PT_PAGO <> 'MULTI-TICKET' group by pt_pago2"$)
|
||||
Private rtpa As ResultSet = Starter.skmt.ExecQuery($"Select ifnull(sum(pt_propina),0) as ptPropina, * from pedido_ticket where pt_pago_propina = 'Amex' group by pt_pago_propina"$)
|
||||
Do While rtpa.NextRow
|
||||
Do While rtpa.NextRow
|
||||
propAmex = rtpa.GetString("ptPropina")
|
||||
Loop
|
||||
Private rtpmc As ResultSet = Starter.skmt.ExecQuery($"Select ifnull(sum(pt_propina),0) as ptPropina, * from pedido_ticket where pt_pago_propina = 'Mifel' group by pt_pago_propina"$)
|
||||
|
||||
19
Subs.bas
19
Subs.bas
@@ -1565,7 +1565,26 @@ Sub rellenaHasta(tamano As Int) As String
|
||||
Return relleno
|
||||
End Sub
|
||||
|
||||
Sub GroupAndCountRS(RS1 As ResultSet, iColumn As Int) As Map
|
||||
Dim i As Int
|
||||
Dim oMap As Map
|
||||
Dim strKey As String
|
||||
oMap.Initialize
|
||||
For i = 0 To RS1.RowCount - 1
|
||||
RS1.Position = i
|
||||
strKey = RS1.GetString2(iColumn)
|
||||
If oMap.ContainsKey(strKey) Then
|
||||
oMap.Put(strKey, CInt(oMap.Get(strKey)) + 1)
|
||||
Else
|
||||
oMap.Put(strKey, 1)
|
||||
End If
|
||||
Next
|
||||
Return oMap
|
||||
End Sub
|
||||
|
||||
Sub CInt(o As Object) As Int
|
||||
Return Floor(o)
|
||||
End Sub
|
||||
|
||||
'CAT_GUNAPRODS, CAT_MESAS y CAT_MESEROS
|
||||
'1782
|
||||
|
||||
Reference in New Issue
Block a user