cheveguerra/Lanterna
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Lanterna.git synced 2026-04-20 22:29:17 +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 End Sub
Sub B4XPage_Appear Sub B4XPage_Appear
Starter.imprimirTicket = False Starter.imprimirTicket = True
reqManager.Initialize(Me, Starter.DBReqServer) reqManager.Initialize(Me, Starter.DBReqServer)
B4XPages.MainPage.atrasPresionado = False B4XPages.MainPage.atrasPresionado = False
' Log(Starter.DBReqServer) ' Log(Starter.DBReqServer)
@@ -1366,7 +1366,9 @@ Sub b_imp_Click
Try Try
DateTime.DateFormat = "yyyymmdd" DateTime.DateFormat = "yyyymmdd"
sDate = DateTime.Date(DateTime.Now) sDate = DateTime.Date(DateTime.Now)
Printer1.WriteString(Printer1.BOLD)
If imprimirAqui Then Printer1.WriteString("LA LANTERNA RISTORANTE" & CRLF) If imprimirAqui Then Printer1.WriteString("LA LANTERNA RISTORANTE" & CRLF)
Printer1.WriteString(Printer1.NOBOLD)
DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
sDate = DateTime.Date(DateTime.Now) sDate = DateTime.Date(DateTime.Now)
sTime = DateTime.Time(DateTime.Now) sTime = DateTime.Time(DateTime.Now)
@@ -1503,7 +1505,9 @@ Sub b_imp2_Click
Try Try
DateTime.DateFormat = "yyyymmdd" DateTime.DateFormat = "yyyymmdd"
sDate = DateTime.Date(DateTime.Now) sDate = DateTime.Date(DateTime.Now)
Printer1.WriteString(Printer1.BOLD)
If imprimirAqui Then Printer1.WriteString("LA LANTERNA RISTORANTE" & CRLF) If imprimirAqui Then Printer1.WriteString("LA LANTERNA RISTORANTE" & CRLF)
Printer1.WriteString(Printer1.NOBOLD)
DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
sDate = DateTime.Date(DateTime.Now) sDate = DateTime.Date(DateTime.Now)
sTime = DateTime.Time(DateTime.Now) sTime = DateTime.Time(DateTime.Now)
@@ -1521,13 +1525,14 @@ Sub b_imp2_Click
Log("** GRUPOS **") Log("** GRUPOS **")
cs.Color(Colors.red).Append($"** GRUPOS **${CRLF}"$).pop cs.Color(Colors.red).Append($"** GRUPOS **${CRLF}"$).pop
Printer1.WriteString(Printer1.BOLD) Printer1.WriteString(Printer1.BOLD)
If imprimirAqui Then Printer1.WriteString($"** GRUPOS **${CRLF}${CRLF}"$) If imprimirAqui Then Printer1.WriteString($"** GRUPOS **${CRLF}"$)
Printer1.WriteString(Printer1.NOBOLD) Printer1.WriteString(Printer1.NOBOLD)
For i = 0 To c.RowCount - 1 For i = 0 To c.RowCount - 1
c.Position = i c.Position = i
' Log($"${catAnt} - ${c.GetString("CAT_GP_CLASIF")}"$) ' Log($"${catAnt} - ${c.GetString("CAT_GP_CLASIF")}"$)
If catAnt <> c.GetString("CAT_GP_CLASIF") Then 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'"$) ' 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 If catAnt <> "" Then
cs.Color(Colors.Green).Append($"Total ${catAnt}: ${catTotal}${CRLF}"$).pop cs.Color(Colors.Green).Append($"Total ${catAnt}: ${catTotal}${CRLF}"$).pop
If imprimirAqui Then If imprimirAqui Then
@@ -1537,8 +1542,8 @@ Sub b_imp2_Click
End If End If
' Log($">>>>>>> CAT TOTAL ${catAnt}: ${catTotal}"$ ) ' Log($">>>>>>> CAT TOTAL ${catAnt}: ${catTotal}"$ )
End If End If
' tm.Position = 0
cs.Color(Colors.red).Append($"** ${c.GetString("CAT_GP_CLASIF")} **${CRLF}"$).pop cs.Color(Colors.red).Append($"** ${c.GetString("CAT_GP_CLASIF")} **${CRLF}"$).pop
Log($"** ${c.GetString("CAT_GP_CLASIF")} **${CRLF}"$)
Printer1.WriteString(Printer1.BOLD) Printer1.WriteString(Printer1.BOLD)
If imprimirAqui Then Printer1.WriteString($"** ${c.GetString("CAT_GP_CLASIF")} **${CRLF}"$) If imprimirAqui Then Printer1.WriteString($"** ${c.GetString("CAT_GP_CLASIF")} **${CRLF}"$)
Printer1.WriteString(Printer1.NOBOLD) Printer1.WriteString(Printer1.NOBOLD)
@@ -1558,10 +1563,19 @@ Sub b_imp2_Click
For n = 1 To primerEspacioLargo For n = 1 To primerEspacioLargo
primerEspacio = primerEspacio & "." primerEspacio = primerEspacio & "."
Next Next
' If imprimirAqui Then Printer1.WriteString($"${elNombre}${Subs.alineaDerecha(c.GetString("cuantos"), (31 - elNombre.Length), ".")} ${CRLF}"$) ' 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}"$) If imprimirAqui Then Printer1.WriteString($"${elNombre}${primerEspacio}${cuantos}..${monto} ${CRLF}"$)
catTotal = catTotal + c.GetString("cuantos") 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 = "" Private tipoAnt As String = ""
catAnt = c.GetString("CAT_GP_CLASIF") catAnt = c.GetString("CAT_GP_CLASIF")
' Log(i) ' Log(i)
@@ -1637,7 +1651,7 @@ Sub b_imp2_Click
totalPagos = totalPagos + monto totalPagos = totalPagos + monto
Next Next
totalPagos = NumberFormat2(totalPagos, 1, 0, 0, True) 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}"$) If imprimirAqui Then Printer1.WriteString($"${CRLF}${CRLF}"$)
cs.Color(Colors.DarkGray).Append($"TOTAL PAGOS: .........${i}.. ${totalPagos} ${CRLF}"$).pop cs.Color(Colors.DarkGray).Append($"TOTAL PAGOS: .........${i}.. ${totalPagos} ${CRLF}"$).pop
Log($"TOTAL PAGOS: .........${i}.. ${totalPagos} ${CRLF}"$) Log($"TOTAL PAGOS: .........${i}.. ${totalPagos} ${CRLF}"$)

4
B4A/Lanterna.b4a.meta
View File

@@ -18,13 +18,13 @@ ModuleBreakpoints7=
ModuleBreakpoints8= ModuleBreakpoints8=
ModuleClosedNodes0= ModuleClosedNodes0=
ModuleClosedNodes1= ModuleClosedNodes1=
ModuleClosedNodes2=4 ModuleClosedNodes2=
ModuleClosedNodes3= ModuleClosedNodes3=
ModuleClosedNodes4= ModuleClosedNodes4=
ModuleClosedNodes5= ModuleClosedNodes5=
ModuleClosedNodes6= ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8=47,48 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 SelectedBuild=0
VisibleModules=1,7,8,2,3,6,4,5 VisibleModules=1,7,8,2,3,6,4,5