From bad7453a8e3a5050aa30bfa563d2a059290c46e7 Mon Sep 17 00:00:00 2001
From: Jose Alberto Guerra Ugalde <cheveguerra@gmail.com>
Date: Tue, 23 Jan 2024 14:07:51 -0600
Subject: [PATCH] Cambios Impresora

---
 B4A/C_Cliente.bas     | 39 +++++++++++++++++++++------------------
 B4A/Durakelo.b4a.meta |  2 +-
 2 files changed, 22 insertions(+), 19 deletions(-)

diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index 235eb99..acff680 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -149,6 +149,7 @@ Sub Class_Globals
 	Dim itemselect2 As String
 	Dim pregunta7 As String
 	Dim bandera As Int
+	Dim errorImpresora As Int = 0
 End Sub
 
 Sub initialize
@@ -828,7 +829,7 @@ Sub B_IMP2_Click
 		c.Close
 	End If
 	LogColor(perfil,Colors.Magenta)
-	
+	Log(1)
 	c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
 	c.Position=0
 	usuario = c.GetString("USUARIO")
@@ -842,17 +843,17 @@ Sub B_IMP2_Click
 	c.Close
 	
 	ProgressDialogShow("Imprimiendo, un momento ...")
-'	Printer1.DisConnect
+	Printer1.DisConnect
 	If Not(Printer1.IsConnected) Then
 		Log("conectando 1")
 		Printer1.Connect
 		Private cont As Int = 0
 		Do While Not(impresoraConectada)
-'			Log("conectando ...")
 			Sleep(1000)
 			cont = cont + 1
-			If cont = 2 Then Printer1.Connect 'Tratamos de reconectar
-			If cont > 3 Then impresoraConectada = True
+			Log("x")
+			If cont = 7 Then Printer1.Connect 'Tratamos de reconectar
+			If cont > 15 Then impresoraConectada = True
 		Loop
 		Sleep(500)
 		impresoraConectada = False
@@ -861,11 +862,10 @@ Sub B_IMP2_Click
 		Printer1.Connect
 		Private cont As Int = 0
 		Do While Not(impresoraConectada) Or Not(Printer1.IsConnected)
-'			Log("conectando ...")
 			Sleep(1000)
 			cont = cont + 1
 			If cont = 2 Then Printer1.Connect
-			If cont > 3 Then impresoraConectada = True
+			If cont > 4 Then impresoraConectada = True
 		Loop
 		Sleep(500)
 		impresoraConectada = False
@@ -1330,20 +1330,23 @@ Sub B_EXIBI_Click
 End Sub
 
 Sub Printer1_Connected (Success As Boolean)
-	Log("Impresora conectada.")
+'	If Logger Then Log("Printer1_Connected")
 	If Success Then
-		Log("aqui estoy 1")
-		ToastMessageShow("Connected successfully", False)
+		ToastMessageShow("Impresora conectada", False)
 		Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MACIMP"))
-		Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP", Starter.mac_impresora))
-		B_IMP.Enabled = True
-		impresoraConectada = False
-'		Printer1.DisConnect
+		Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP",Starter.mac_impresora))
+		LogColor("Impresora conectada", Colors.Green)
+'		B_IMP2.Enabled = True
+		impresoraConectada = True
 	Else
-'		Msgbox(Printer1.ConnectedErrorMsg, "Error connecting.")
-'		If Msgbox2("", "Printer Error","Reprint","Cancel","",Null) = DialogResponse.POSITIVE Then 'ignore
-'			StartPrinter
-'		End If
+'		Msgbox(Printer1.ConnectedErrorMsg, "Error connecting.") 'ignore
+'		ToastMessageShow("Error conectando la impresora", False)
+		LogColor("Error conectando la impresora", Colors.Red)
+		errorImpresora = errorImpresora + 1
+		If errorImpresora > 1 Then
+			Starter.MAC_IMPRESORA = "0"
+			errorImpresora = 0
+		End If
 	End If
 End Sub
 
diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta
index 7b66c77..e669aef 100644
--- a/B4A/Durakelo.b4a.meta
+++ b/B4A/Durakelo.b4a.meta
@@ -70,6 +70,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=1,3
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Productos,B4XPage_Appear,267,0,C_Principal,Class_Globals,0,0,C_Nota,Class_Globals,0,0,C_Principal,cargar_Click,958,0,C_Cliente,Class_Globals,0,0,Diseñador Visual,Cliente.bal,-100,1,C_Cliente,B_INV_Click,1117,0,C_Cliente,GPS_LocationChanged,362,0,C_Cliente,gest_Click,434,0,C_Cliente,B_VENTA_Click,1226,0,C_Cliente,B4XPage_Appear,296,0
+NavigationStack=C_Cliente,Class_Globals,145,0,C_Principal,cargar_Click,958,0,C_Cliente,B_INV_Click,1117,0,C_Cliente,GPS_LocationChanged,362,0,C_Cliente,gest_Click,434,0,C_Cliente,B_VENTA_Click,1226,0,C_Cliente,B_IMP2_Click,846,5,C_Cliente,initialize,149,0,C_Cliente,Printer1_Connected,1344,1,C_Cliente,B_EXIBI_Click,1322,0
 SelectedBuild=0
 VisibleModules=21,2,9,18,7,10,22,11,23,4