cheveguerra/Lanterna
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Lanterna.git synced 2026-04-17 21:06:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Se corrigieron algunos puntos del ticket

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-03-13 13:54:41 -06:00
parent 4caf1ca389
commit 9368982093
2 changed files with 21 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
B4A/C_Principal.bas
View File

@@ -224,7 +224,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
End Sub
Sub B4XPage_Appear
Starter.imprimirTicket = False
Starter.imprimirTicket = True
reqManager.Initialize(Me, Starter.DBReqServer)
B4XPages.MainPage.atrasPresionado = False
' Log(Starter.DBReqServer)
@@ -1366,7 +1366,9 @@ Sub b_imp_Click
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)
@@ -1503,7 +1505,9 @@ Sub b_imp2_Click
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)
@@ -1521,13 +1525,14 @@ Sub b_imp2_Click
Log("** GRUPOS **")
cs.Color(Colors.red).Append($"** GRUPOS **${CRLF}"$).pop
Printer1.WriteString(Printer1.BOLD)
If imprimirAqui Then Printer1.WriteString($"** GRUPOS **${CRLF}${CRLF}"$)
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_CLASIF")}"$)
If catAnt <> c.GetString("CAT_GP_CLASIF") 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
cs.Color(Colors.Green).Append($"Total ${catAnt}: ${catTotal}${CRLF}"$).pop
If imprimirAqui Then
@@ -1537,8 +1542,8 @@ Sub b_imp2_Click
End If
' Log($">>>>>>> CAT TOTAL ${catAnt}: ${catTotal}"$ )
End If
' tm.Position = 0
cs.Color(Colors.red).Append($"** ${c.GetString("CAT_GP_CLASIF")} **${CRLF}"$).pop
Log($"** ${c.GetString("CAT_GP_CLASIF")} **${CRLF}"$)
Printer1.WriteString(Printer1.BOLD)
If imprimirAqui Then Printer1.WriteString($"** ${c.GetString("CAT_GP_CLASIF")} **${CRLF}"$)
Printer1.WriteString(Printer1.NOBOLD)
@@ -1558,10 +1563,19 @@ Sub b_imp2_Click
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}${cuantos}..${monto} ${CRLF}"$)
catTotal = catTotal + c.GetString("cuantos")
Log($">>>> ${catAnt} - ${c.GetString("CAT_GP_CLASIF")}"$)
If i = c.RowCount - 1 Then
Log($"Total ${c.GetString("CAT_GP_CLASIF")}: ${catTotal}${CRLF}"$)
cs.Color(Colors.Green).Append($"Total ${c.GetString("CAT_GP_CLASIF")}: ${catTotal}${CRLF}"$).pop
If imprimirAqui Then
Printer1.WriteString(Printer1.BOLD)
Printer1.WriteString($"Total ${c.GetString("CAT_GP_CLASIF")}: ${catTotal}${CRLF}"$)
Printer1.WriteString(Printer1.NOBOLD)
End If
End If
Private tipoAnt As String = ""
catAnt = c.GetString("CAT_GP_CLASIF")
' Log(i)
@@ -1637,7 +1651,7 @@ Sub b_imp2_Click
totalPagos = totalPagos + monto
Next
totalPagos = NumberFormat2(totalPagos, 1, 0, 0, True)
If imprimirAqui Then Printer1.WriteString($"TOTAL PAGOS ..... ${i} .. ${totalPagos} ${CRLF}"$)
If imprimirAqui Then Printer1.WriteString($"TOTAL PAGOS ......... ${i}..${totalPagos} ${CRLF}"$)
If imprimirAqui Then Printer1.WriteString($"${CRLF}${CRLF}"$)
cs.Color(Colors.DarkGray).Append($"TOTAL PAGOS: .........${i}.. ${totalPagos} ${CRLF}"$).pop
Log($"TOTAL PAGOS: .........${i}.. ${totalPagos} ${CRLF}"$)

4
B4A/Lanterna.b4a.meta
View File

@@ -18,13 +18,13 @@ ModuleBreakpoints7=
ModuleBreakpoints8=
ModuleClosedNodes0=
ModuleClosedNodes1=
ModuleClosedNodes2=4
ModuleClosedNodes2=
ModuleClosedNodes3=
ModuleClosedNodes4=
ModuleClosedNodes5=
ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=47,48
NavigationStack=Starter,Service_Start,62,0,Visual Designer,principal.bal,-100,6,C_Principal,LlenaProdsLL,464,0,C_Principal,b_mesaEditar_Click,1057,0,C_Principal,B4XPage_Appear,277,0,C_Principal,B4XPage_Created,217,0,C_Principal,B4XPage_CloseRequest,279,6,C_Principal,muestraCats,314,2,C_Principal,p_mesasItem_Click,912,0,Main,Activity_ActionBarHomeClick,35,0,B4XMainPage,Class_Globals,22,0
NavigationStack=C_Principal,b_mesaEditar_Click,1057,0,C_Principal,B4XPage_Created,217,0,C_Principal,B4XPage_CloseRequest,279,6,C_Principal,muestraCats,314,2,C_Principal,p_mesasItem_Click,912,0,Main,Activity_ActionBarHomeClick,35,0,B4XMainPage,Class_Globals,22,0,C_Principal,B4XPage_Appear,220,3,C_Principal,b_imp_Click,1362,0,C_Principal,b_imp2_Click,1501,6
SelectedBuild=0
VisibleModules=1,7,8,2,3,6,4,5