Merge branch 'master' of https://github.com/KeymonSoft/Durakelo

# Conflicts:
#	B4A/Durakelo.b4a.meta

B4A/C_Cliente.bas

@@ -833,7 +833,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")
@@ -847,17 +847,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
@@ -866,11 +866,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