- VERSION 4.08.28

- Se pusieron sleeps en el código de impresion del ticket y se quitó el logo de cacahuates del final, esto para ver si deja de mandar errores el imprimir el ticket.
2026-04-17 18:26:11 +00:00 · 2024-08-30 13:31:15 -06:00
parent a25fd6141e
commit 11419cdc97
3 changed files with 37 additions and 19 deletions
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -1125,7 +1125,7 @@ Sub B_IMP2_Click
 End Sub

 Sub Imprime_ticket
-	Log("inicia B_IMP2_Click")
+	Log("INICIA Imprime_ticket")
 	B_IMP2.Enabled = False
 	If l_total.Text <> Null And l_total.Text <> "null" Then Subs.ponImpreso(la_cuenta.Text) 'Solo lo marcamos como impreso si tiene venta (total > 0).
 	ProgressDialogShow("Imprimiendo, un momento ...")
@@ -1201,6 +1201,8 @@ Sub Imprime_ticket
 	'esto para las impresoras nuevas
 	'printer.Initialize(cmp20.OutputStream)
 	Printer1.Reset
+	Printer1.Reset
+	Sleep(300)
 	Dim bmp As Bitmap
 	bmp.InitializeResize(File.DirAssets, "kellanova_borde.png", 376, 129, True) 'ignore
 	Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
@@ -1218,8 +1220,7 @@ Sub Imprime_ticket
 	myimage = Printer1.DitherImage2D(myimage, 128)
 	myimage= Printer1.PackImage(myimage)
 	Printer1.PrintImage(myimage)
-	
-	
+	Sleep(1000)
 	If la_cuenta.Text = "0" Then
 		Try
 			Printer1.WriteString("KELLOGG COMPANY MEXICO"  & CRLF)
@@ -1263,13 +1264,14 @@ Sub Imprime_ticket
 						ESPACIO = 14
 						BLANCO = " "
 					End If
+					Sleep(100)
 				Next
 			End If
 			s.Close
 			Printer1.WriteString(CRLF)
 			Printer1.WriteString("------------RMI---------------" & CRLF)
 			s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and substr(pe_pronombre,1,6) = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_PRONOMBRE", Array As String("ABORDO","CAMBIO"))
-			If S.RowCount>0 Then
+			If S.RowCount > 0 Then
 				For i=0 To S.RowCount -1
 					TAMANO = 0
 					ESPACIO = 14
@@ -1297,6 +1299,7 @@ Sub Imprime_ticket
 						BLANCO = " "
 					End If
 					If logger Then Log($"|${ESPACIO}|, |${TAMANO}|, |${BLANCO}|"$)
+					Sleep(100)
 				Next
 			End If
 			s.Close
@@ -1323,6 +1326,7 @@ Sub Imprime_ticket
 			s.Position =0
 			Private total4 As String = "0"
 			If s.GetString("TOTAL") <> Null And IsNumber(s.GetString("TOTAL")) Then total4 = s.GetString("TOTAL")
+			Sleep(400)
 			Printer1.WriteString( Printer1.BOLD &   "No. Productos: " & total4 & CRLF)
 			Printer1.WriteString("===============================" & CRLF)
 			s.Close
@@ -1377,7 +1381,6 @@ Sub Imprime_ticket
 			
 			''''''' PEDIDOS DOE
 			s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_CEDIS = ?  AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS,PE_PRONOMBRE", Array As String("DOE"))
-			
 			'			s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and pe_codpromo = ? and substr(pe_pronombre,1,6) <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS,PE_PRONOMBRE", Array As String("VENTA", "DOE", "CAMBIO"))
 			If S.RowCount>0 Then
 				Printer1.WriteString("------------------------------" & CRLF)
@@ -1409,6 +1412,7 @@ Sub Imprime_ticket
 						ESPACIO = 14
 						BLANCO = " "
 					End If
+					Sleep(100)
 				Next
 			End If
 			s.Close
@@ -1440,7 +1444,6 @@ Sub Imprime_ticket
 			s.Close
 			''''SE MODIFCA EL QUERY POR LOS PEDIDOS DOE
 			S=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and substr(pe_pronombre,1,6) <> ? AND PE_CEDIS <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by PE_CEDIS,PE_PRONOMBRE", Array As String("VENTA","CAMBIO","DOE"))
-			
 			Printer1.WriteString("------------------------------" & CRLF)
 			Printer1.WriteString("VENTA" & CRLF)
 			Printer1.WriteString("------------------------------" & CRLF)
@@ -1471,6 +1474,7 @@ Sub Imprime_ticket
 						ESPACIO = 14
 						BLANCO = " "
 					End If
+					Sleep(100)
 				Next
 			End If
 			s.Close
@@ -1492,12 +1496,14 @@ Sub Imprime_ticket
 			Else
 				sTotal3 = 0
 			End If
+			Sleep(200)
 			Printer1.WriteString(Printer1.REVERSE & "==============================="  & CRLF)
 			Printer1.WriteString( Printer1.UNREVERSE & Printer1.BOLD & $"Sub Total Venta:   $${NumberFormat2((sTotal2+(sTotal3 * -1)), 1, 2, 2, False)}"$ & CRLF)
 			Private cantidad1 As String = "0"
 			If s.GetString("CANTIDAD") <> Null And IsNumber(s.GetString("CANTIDAD")) Then cantidad1 = s.GetString("CANTIDAD")
 			Printer1.WriteString( Printer1.UNREVERSE & Printer1.BOLD & "No. Productos: " & cantidad1 & CRLF)
 			Printer1.WriteString(CRLF)
+			Sleep(200)
 			s.Close
 			Printer1.WriteString("------------RMI---------------"  & CRLF)
 			s=Starter.skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU, PE_COSTO_TOT, length(PE_COSTO_TOT) as L_COSTO_TOT, PE_PROID, PE_CEDIS FROM PEDIDO WHERE PE_TIPO = ? and substr(pe_pronombre,1,6) = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO"))
@@ -1527,6 +1533,7 @@ Sub Imprime_ticket
 						ESPACIO = 14
 						BLANCO = " "
 					End If
+					Sleep(100)
 				Next
 			End If
 			s.Close
@@ -1539,6 +1546,8 @@ Sub Imprime_ticket
 			Else
 				sTotal3 = 0
 			End If
+			Sleep(200)
+'			Log(111)
 			Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
 			Printer1.WriteString(Printer1.UNREVERSE & Printer1.BOLD &  "Sub Total CAMBIOS:   $" & NumberFormat2(sTotal3, 1, 2, 2, False) & CRLF)
 			Private cantidad2 As String = "0"
@@ -1548,8 +1557,9 @@ Sub Imprime_ticket
 			s.Close
 			Printer1.WriteString(CRLF)
 			s=Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
-			s.Position =0
+			s.Position = 0
 			Printer1.WriteString(Printer1.REVERSE & "===============================" & CRLF)
+			Sleep(200)
 			Private total2 As String = 0
 			'			If s.GETSTRING("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then total2 = s.GETSTRING("TOTAL")
 			total2 = kh.traeTotalCliente
@@ -1591,34 +1601,42 @@ Sub Imprime_ticket
 			Printer1.WriteString("--COMPROBANTE FISCAL, SOLO ES-" & CRLF)
 			Printer1.WriteString("--------INFORMATIVO-----------" & CRLF)
 			Printer1.WriteString("------------------------------" & CRLF)
-				
-			Dim bmp As Bitmap
-			bmp.InitializeResize(File.DirAssets, "cacahuates_original2.jpg", 376, 129, True) 'ignore
-			Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
-			myimage = Printer1.DitherImage2D(myimage, 128)
-			myimage= Printer1.PackImage(myimage)
-			Printer1.PrintImage(myimage)
+			Sleep(400)
+'			Log(222)
+'			Dim bmp As Bitmap
+'			bmp.InitializeResize(File.DirAssets, "cacahuates_original2.jpg", 376, 129, True) 'ignore
+'			Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
+'			myimage = Printer1.DitherImage2D(myimage, 128)
+'			myimage= Printer1.PackImage(myimage)
+'			Printer1.PrintImage(myimage)
 			
 			Printer1.WriteString(CRLF)
 			Printer1.WriteString(CRLF)
 			Printer1.WriteString(CRLF)
 			Sleep(1000)
-			Printer1.DisConnect
+'			Log(333)
+'			Printer1.DisConnect
 		Catch
+			Log("ERROR CATCH")
 			ToastMessageShow("Error en la impresion 2.", True)
 			Printer1.Disconnect
 			B4XPages.ShowPage("Principal")
 		End Try
 	End If
 	Sleep(1000)
+'	Log(666)
+	Printer1.Reset
+	Sleep(1000)
+	Printer1.DisConnect
+'	Log(6666)
 	B_IMP2.Enabled = True
 	ProgressDialogHide
 	'	If Logger Then Log("Habilitamos boton")
+'	Log(">>>>>  " & Printer1.IsConnected)
 End Sub

 Sub B_IMP2BAK_Click
 	Log("inicia B_IMP2_Click")
-	
 	'Comente las siguientes lineas porque como ahora los RMIs entran en negativo y se restan del total de la venta, ya no son validas.
 '	Private t As Cursor = Starter.skmt.ExecQuery("select sum(PE_PRECIO2) as totalRMI from pedido where PE_PRONOMBRE like 'CAMBIO%' and PE_CLIENTE In (Select cuenta from cuentaa)")
 '	t.Position = 0
--- a/B4A/KelloggsV4.b4a
+++ b/B4A/KelloggsV4.b4a
@@ -887,7 +887,7 @@ Version=12.8
 #Region  Project Attributes	
 	#ApplicationLabel: Kelloggs Venta
 	#VersionCode: 3000
-	#VersionName: 4.08.18
+	#VersionName: 4.08.28
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
 	#BridgeLogger:true
--- a/B4A/KelloggsV4.b4a.meta
+++ b/B4A/KelloggsV4.b4a.meta
@@ -63,7 +63,7 @@ ModuleBreakpoints9=
 ModuleClosedNodes0=
 ModuleClosedNodes1=
 ModuleClosedNodes10=
-ModuleClosedNodes11=
+ModuleClosedNodes11=25
 ModuleClosedNodes12=
 ModuleClosedNodes13=
 ModuleClosedNodes14=
@@ -91,6 +91,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Principal,P_RESUMEN_Click,3568,3,C_Principal,Panel2_Click,3743,0,C_Principal,l_productividad_Click,3729,6,C_Principal,l_drop_Click,3747,0,C_Principal,l_efectividad_Click,3734,4,C_Principal,l_efectiva_Click,3752,0,C_Principal,Panel1_Click,3739,0,C_Principal,B_OK_RES_Click,2443,0,Visual Designer,principal.bal,-100,6,C_Principal,B_BOLETA_Click,2777,0,C_Principal,b_cuotas_Click,2794,0
+NavigationStack=C_Principal,StartPrinter,2738,0,C_Cliente,B_IMP2BAK_Click,1641,0,C_Cliente,B_IMP2_Click,1119,0,C_Principal,GetResult,2786,2,EscPosPrinter,Reset,141,0,EscPosPrinter,Class_Globals,17,0,Subs,guardaProductoSin,928,0,Subs,guardaProducto,906,0,Subs,guardaProductoSinGestion,926,0,C_Cliente,Imprime_ticket,1599,6
 SelectedBuild=0
 VisibleModules=1,28,11,3,26,23,29,12,4,13