diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 06b31bf..78fcedc 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -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}"$) diff --git a/B4A/Lanterna.b4a.meta b/B4A/Lanterna.b4a.meta index 8d6eece..42d06ed 100644 --- a/B4A/Lanterna.b4a.meta +++ b/B4A/Lanterna.b4a.meta @@ -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