Ya imprime y no se muestra el boton de abordo

B4A/C_Cliente.bas

@@ -34,7 +34,7 @@ Sub Class_Globals
 	Dim BLANCO As String
 	Dim cuenta As String
 	Dim tipo_venta As String = "PREVENTA"
-	Dim MAC_IMPRESORA As String
+	
 	
 	Dim c As Cursor
 	Dim s As Cursor
@@ -152,6 +152,12 @@ Sub Class_Globals
 	Dim cuest As C_Cuestionario
 	Private b_ventaabordo As Button
 	Private l_factura As Label
+	
+	Dim Printer1 As EscPosPrinter
+	Dim impresoraConectada As Boolean = False
+	Dim MAC_IMPRESORA As String
+	Dim errorImpresora As Int = 0
+	Dim btAdmin As BluetoothAdmin
 End Sub
 
 'You can add more parameters here.
@@ -224,6 +230,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 '	End If
 '	h.Close
 '	j.Close
+
+	btAdmin.Initialize("BlueTeeth")
 	
 End Sub
 
@@ -386,6 +394,23 @@ Sub B4XPage_Appear
 		b_ventaabordo.Visible = True
 	End If
 	
+	c = skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP"))
+	If c.RowCount > 0 Then
+		c.Position = 0
+		Starter.MAC_IMPRESORA = c.GetString("CAT_VA_VALOR")
+	End If
+	If Starter.MAC_IMPRESORA = "" Then Starter.MAC_IMPRESORA = "0"
+'	Log("|" & Starter.MAC_IMPRESORA & "|")
+	Printer1.Initialize(Me, "Printer1")
+	
+	If Printer1.IsConnected = False Then
+'		Printer1.Connect
+'		Log("1")
+	Else
+		Printer1.DisConnect
+		Printer1.Connect
+		Log("2")
+	End If
 	
 	
 End Sub
@@ -643,47 +668,285 @@ Sub b_mapa_Click
 End Sub
 
 Sub B_IMP_Click
+	c=skmt.ExecQuery("select USUARIO from usuarioa")
+	c.Position=0
+	usuario = c.GetString("USUARIO")
+	DateTime.DateFormat = "MM/dd/yyyy"
+	sDate=DateTime.Date(DateTime.Now)
+	sTime=DateTime.Time(DateTime.Now)
+	c.Close
+'	c=Starter.skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION =?", Array As String ("SUCURSAL"))
+'	c.Position = 0
+'	sucursal = c.GetString("CAT_VA_VALOR")
+'	c.Close
+	
+	ProgressDialogShow("Imprimiendo, un momento ...")
+	Printer1.DisConnect
+	If Not(Printer1.IsConnected) Then
+		Log("Conectando a impresora ...")
+		Printer1.Connect
+		Private cont As Int = 0
+		Do While Not(impresoraConectada)
+			Sleep(1000)
+			Log("++++++  " & cont)
+			cont = cont + 1
+			If cont = 2 Then Printer1.Connect 'Tratamos de reconectar
+			If cont > 3 Then impresoraConectada = True
+		Loop
+		Sleep(500)
+		impresoraConectada = False
+	Else
+		Log("conectando 2")
+		Printer1.Connect
+		Private cont As Int = 0
+		Do While Not(impresoraConectada) Or Not(Printer1.IsConnected)
+			Sleep(1000)
+			Log("**  " & cont)
+			cont = cont + 1
+			If cont = 2 Then Printer1.Connect
+			If cont > 3 Then impresoraConectada = True
+		Loop
+		Sleep(500)
+		impresoraConectada = False
+	End If
+	
 	TAMANO = 0
 	ESPACIO = 21
 	BLANCO = " "
-	printer.Initialize(cmp20.OutputStream)
+	Dim bmp As Bitmap
-	printer.WriteLine("DURAKELO S.A. de C.V.")
+	bmp.InitializeResize(File.DirAssets, "intmex_logo_192x192.jpg", 192, 250, True) 'ignore
-	printer.WriteLine("RFC: DUR-011025-T12")
+	Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
-	printer.WriteLine("Tel.: 618-826-0104")
+	
-	printer.WriteLine("Vendedor: KMTS ")
+	myimage = Printer1.DitherImage2D(myimage, 128)
-	printer.WriteLine("Tienda: " & La_nombre.Text)
+	
-	printer.WriteLine("-----------PREVENTA-----------")
+	myimage= Printer1.PackImage(myimage)
-	s=B4XPages.MainPage.skmt.ExecQuery("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 FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+	Printer1.WriteString(CRLF) ' nudge the printer to show the user something is happening
-	If S.RowCount>0 Then
+	Printer1.WriteString(Printer1.REVERSE)
-		For i=0 To S.RowCount -1
+	
-			S.Position=i
+	Printer1.PrintImage(myimage)
-			printer.WriteLine(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE"))
+	Printer1.WriteString(Printer1.UNREVERSE)
-			TAMANO = s.GetLong("L_CANT") + TAMANO
+
-			TAMANO = s.GetLong("L_COSTOU") + TAMANO
+	'Printer1.Justify = 1
-			TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
+	'printer.Initialize(cmp20.OutputStream)
-			ESPACIO = ESPACIO - TAMANO
+'	Printer1.WriteString("DISTRIBUIDORA ROCHA TULA PACHUCA" &  CRLF)
-			For E=0 To ESPACIO -1
+	Printer1.WriteString("RFC: DRT-110316-9J1" &  CRLF)
-				BLANCO = " " & BLANCO
+'	Printer1.WriteString(sucursal &  CRLF)
+	Printer1.WriteString(sDate &  CRLF)
+	Printer1.WriteString(sTime &  CRLF)
+	Printer1.WriteString("Vendedor:" & usuario &  CRLF)
+	Printer1.WriteString("Tienda: " & La_nombre.Text &  CRLF)
+	Printer1.WriteString("ID.Cliente: " &  la_cuenta.Text &  CRLF)
+	Printer1.WriteString("Calle: " & la_Calle.Text &  CRLF)
+	Printer1.WriteString("Colonia: " & la_col.Text &  CRLF)
+'	Printer1.WriteString("C.P.: " & la_cp.Text &  CRLF)
+	Printer1.WriteString("Entre calle1: " & l_entre1.Text &  CRLF)
+	Printer1.WriteString("Entre Calle2: " & l_entre2.Text &  CRLF)
+	
+	c = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ?",Array As String("PREVENTA"))
+	If c.RowCount > 0 Then
+		Printer1.WriteString("-----------PREVENTA-----------" &  CRLF)
+		' aqui es donde esta el pedo de julieta de los descuentos quitar el precio2 pero meter un if para saber si es ruta especial o es normal o que show.
+		s=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS  PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS  FROM PEDIDO WHERE PE_FOLIO = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa)  order by  PE_PROID", Array As String("PREVENTA"))
+		If S.RowCount>0 Then
+			For i=0 To S.RowCount -1
+				S.Position=i
+				If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
+					Printer1.WriteString(s.GetString("PE_PRONOMBRE") &  CRLF)
+				
+				Else
+				
+					Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") &  CRLF)
+					TAMANO = s.GetLong("L_CANT") + TAMANO
+					TAMANO = s.GetLong("L_COSTOU") + TAMANO
+					TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
+	
+					ESPACIO = ESPACIO - TAMANO
+	
+					For E=0 To ESPACIO -1
+						BLANCO = " " & BLANCO
+					Next
+					Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") &  CRLF )
+					TAMANO = 0
+					ESPACIO = 21
+					BLANCO = " "
+				End If
 			Next
-			printer.WriteLine(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") )
+		End If
-			TAMANO = 0
+		s.Close
-			ESPACIO = 21
+		Printer1.WriteString(" " &  CRLF)
-			BLANCO = " "
+		s=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS  PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS  FROM PEDIDO WHERE PE_FOLIO = ? AND LENGTH(PE_CEDIS) > 3 AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by  PE_CEDIS, PE_COSTOU", Array As String("PREVENTA"))
-		Next
+		If S.RowCount>0 Then
+			Printer1.WriteString("-------PROMOS PREVENTA--------" &  CRLF)
+			For i=0 To S.RowCount -1
+				S.Position=i
+				If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
+					Printer1.WriteString(s.GetString("PE_PRONOMBRE") &  CRLF)
+				
+				Else
+				
+					Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") &  CRLF)
+					TAMANO = s.GetLong("L_CANT") + TAMANO
+					TAMANO = s.GetLong("L_COSTOU") + TAMANO
+					TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
+	
+					ESPACIO = ESPACIO - TAMANO
+	
+					For E=0 To ESPACIO -1
+						BLANCO = " " & BLANCO
+					Next
+					Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") &  CRLF )
+					TAMANO = 0
+					ESPACIO = 21
+					BLANCO = " "
+				End If
+			Next
+			Printer1.WriteString(" " &  CRLF)
+		End If
+		s.Close
+			
+		s=skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As String("PREVENTA"))
+		s.Position =0
+		'	If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
+		'		Printer1.WriteString("Descuento:     $" & 	 (s.GetString("TOTAL2") -  s.GetString("TOTAL")))
+		'	End If
+		Printer1.WriteString("Total preventa:   $" & s.GetString("TOTAL") &  CRLF)
+		s.Close
+		c= skmt.ExecQuery2("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) AND PE_FOLIO = ?", Array As String("PREVENTA"))
+		C.Position=0
+		Printer1.WriteString("Total articulos preventa:   " & c.GetString("PC_NOART") &  CRLF)
+		c.Close
+		
+		Printer1.WriteString(" " &  CRLF)
 	End If
+	
+	c = skmt.ExecQuery2("SELECT * FROM PEDIDO WHERE PE_FOLIO = ?",Array As String("VENTA"))
+	If c.RowCount > 0 Then
+		Printer1.WriteString("-----------VENTA-----------" &  CRLF)
+		' aqui es donde esta el pedo de julieta de los descuentos quitar el precio2 pero meter un if para saber si es ruta especial o es normal o que show.
+		s=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS  PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS  FROM PEDIDO WHERE PE_FOLIO = ? AND LENGTH(PE_CEDIS) < 4 AND PE_CLIENTE IN (Select CUENTA from cuentaa)  order by  PE_PROID", Array As String("VENTA"))
+		If S.RowCount>0 Then
+			For i=0 To S.RowCount -1
+				S.Position=i
+				If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
+					Printer1.WriteString(s.GetString("PE_PRONOMBRE") &  CRLF)
+				
+				Else
+				
+					Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") &  CRLF)
+					TAMANO = s.GetLong("L_CANT") + TAMANO
+					TAMANO = s.GetLong("L_COSTOU") + TAMANO
+					TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
+	
+					ESPACIO = ESPACIO - TAMANO
+	
+					For E=0 To ESPACIO -1
+						BLANCO = " " & BLANCO
+					Next
+					Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") &  CRLF )
+					TAMANO = 0
+					ESPACIO = 21
+					BLANCO = " "
+				End If
+			Next
+		End If
+		s.Close
+		Printer1.WriteString(" " &  CRLF)
+		s=skmt.ExecQuery2("select PE_PRONOMBRE, PE_CANT, length(pe_cant) as L_CANT, PE_COSTOU, length(PE_COSTOU) as L_COSTOU,PE_CANT * PE_COSTOU AS  PE_COSTO_TOT, length(PE_CANT * PE_COSTOU) as L_COSTO_TOT,PE_PROID, PE_CEDIS  FROM PEDIDO WHERE PE_FOLIO = ? AND LENGTH(PE_CEDIS) > 3 AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) AND PE_CLIENTE IN (Select CUENTA from cuentaa) order by  PE_CEDIS, PE_COSTOU", Array As String("VENTA"))
+		If S.RowCount>0 Then
+			Printer1.WriteString("---------PROMOS VENTA---------" &  CRLF)
+			For i=0 To S.RowCount -1
+				S.Position=i
+				If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
+					Printer1.WriteString(s.GetString("PE_PRONOMBRE") &  CRLF)
+				
+				Else
+				
+					Printer1.WriteString(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") &  CRLF)
+					TAMANO = s.GetLong("L_CANT") + TAMANO
+					TAMANO = s.GetLong("L_COSTOU") + TAMANO
+					TAMANO = s.GetLong("L_COSTO_TOT") + TAMANO
+	
+					ESPACIO = ESPACIO - TAMANO
+	
+					For E=0 To ESPACIO -1
+						BLANCO = " " & BLANCO
+					Next
+					Printer1.WriteString(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") &  CRLF )
+					TAMANO = 0
+					ESPACIO = 21
+					BLANCO = " "
+				End If
+			Next
+			Printer1.WriteString(" " &  CRLF)
+		End If
+		s.Close
+			
+		s=skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As String("VENTA"))
+		s.Position =0
+		'	If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
+		'		Printer1.WriteString("Descuento:     $" & 	 (s.GetString("TOTAL2") -  s.GetString("TOTAL")))
+		'	End If
+		Printer1.WriteString("Total venta:   $" & s.GetString("TOTAL") &  CRLF)
+		s.Close
+		c= skmt.ExecQuery2("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP ) AND PE_FOLIO = ?", Array As String("VENTA"))
+		C.Position=0
+		Printer1.WriteString("Total articulos venta:   " & c.GetString("PC_NOART") &  CRLF)
+		c.Close
+	End If
+	Printer1.WriteString(" " &  CRLF)
+	Printer1.WriteString("------------------------------" &  CRLF)
+	
+	s=skmt.ExecQuery("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+	s.Position =0
+	'	If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
+	'		Printer1.WriteString("Descuento:     $" & 	 (s.GetString("TOTAL2") -  s.GetString("TOTAL")))
+	'	End If
+	Printer1.WriteString("Total:   $" & s.GetString("TOTAL") &  CRLF)
 	s.Close
-	printer.WriteLine("Total Preventa:   $" & total_cliente)
+	c= skmt.ExecQuery("select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE in (Select CUENTA from cuentaa) AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP )")
-	printer.WriteLine("------------VENTA-------------")
+	C.Position=0
-	printer.WriteLine(" ")
+	Printer1.WriteString("Total Articulos:   " & c.GetString("PC_NOART") &  CRLF)
-	printer.WriteLine("TOTAL:   $" & total_cliente)
+	c.Close
-	printer.WriteLine(" ")
+	
-	printer.WriteLine("----ESTE TICKET NO ES UN -----")
+	Printer1.WriteString(" " &  CRLF)
-	printer.WriteLine("--COMPROBANTE FISCAL, SOLO ES-")
+	Printer1.WriteString("------------------------------" &  CRLF)
-	printer.WriteLine("--------INFORMATIVO-----------")
+	Printer1.WriteString("ENTREGA EN :" &  CRLF)
-	printer.WriteLine("------------------------------")
+	Printer1.WriteString(la_Calle.Text &  CRLF)
-	printer.WriteLine(" ")
+	Printer1.WriteString("----ESTE TICKET NO ES UN -----" &  CRLF)
-	printer.Flush
+	Printer1.WriteString("--COMPROBANTE FISCAL, SOLO ES-" &  CRLF)
-'	printer.Close
+	Printer1.WriteString("--------INFORMATIVO-----------" &  CRLF)
+	Printer1.WriteString("------------------------------" &  CRLF)
+	Printer1.WriteString(" " &  CRLF)
+'	Printer1.WriteString(" " &  CRLF)
+	Printer1.WriteString(" " &  CRLF)
+	
+	Sleep(1000)
+	Printer1.DisConnect
+	
+	ProgressDialogHide
+'	printer.Flush
+	'	printer.Close
+End Sub
+
+Sub Printer1_Connected (Success As Boolean)
+'	If Logger Then Log("Printer1_Connected")
+	If Success Then
+		ToastMessageShow("Impresora conectada", False)
+		skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MACIMP"))
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MACIMP",B4XPages.MainPage.mac_impresora))
+		LogColor("Impresora conectada", Colors.Green)
+'		B_IMP2.Enabled = True
+		impresoraConectada = True
+	Else
+'		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
+			B4XPages.MainPage.MAC_IMPRESORA = "0"
+			errorImpresora = 0
+		End If
+	End If
 End Sub
 
 Sub Printer_Connected (Success As Boolean)

B4A/C_Principal.bas

@@ -528,11 +528,11 @@ Sub B4XPage_Appear
 		
 	End If
 	
-	If l_ruta.Text = "0" Then
+'	If l_ruta.Text = "0" Then
-		b_abordo.Visible = False
+'		b_abordo.Visible = False
-	Else 
+'	Else 
-		b_abordo.Visible = True
+'		b_abordo.Visible = True
-	End If
+'	End If
 	
 End Sub
 
@@ -1126,7 +1126,7 @@ Sub JobDone(Job As HttpJob)
 					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO))
 					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO,  HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
 				Next
-				Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object ("0",e_ruta.TEXT, "VENTA ABORDO","null","null","null","null","null","null","null","null","null","null","null","null","NULL","null","NULL"))
+'				Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object ("0",e_ruta.TEXT, "VENTA ABORDO","null","null","null","null","null","null","null","null","null","null","null","null","NULL","null","NULL"))
 				Listo1 = 1
 				S_CC.Text = "LISTO"
 				If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True)

B4A/INTMEX.b4a.meta

@@ -20,6 +20,7 @@ ModuleBookmarks25=
 ModuleBookmarks26=
 ModuleBookmarks27=
 ModuleBookmarks28=
+ModuleBookmarks29=
 ModuleBookmarks3=
 ModuleBookmarks4=
 ModuleBookmarks5=
@@ -49,6 +50,7 @@ ModuleBreakpoints25=
 ModuleBreakpoints26=
 ModuleBreakpoints27=
 ModuleBreakpoints28=
+ModuleBreakpoints29=
 ModuleBreakpoints3=
 ModuleBreakpoints4=
 ModuleBreakpoints5=
@@ -72,12 +74,13 @@ ModuleClosedNodes2=
 ModuleClosedNodes20=
 ModuleClosedNodes21=
 ModuleClosedNodes22=
-ModuleClosedNodes23=2
+ModuleClosedNodes23=
-ModuleClosedNodes24=
+ModuleClosedNodes24=2
-ModuleClosedNodes25=1
+ModuleClosedNodes25=
-ModuleClosedNodes26=
+ModuleClosedNodes26=1
 ModuleClosedNodes27=
 ModuleClosedNodes28=
+ModuleClosedNodes29=
 ModuleClosedNodes3=
 ModuleClosedNodes4=
 ModuleClosedNodes5=3
@@ -85,6 +88,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Nota,Class_Globals,0,0,C_Nota,borra_Click,162,0,C_Nota,B4XPage_CloseRequest,146,0,Subs,pedidoGuardado,1400,0,C_Nota,B4XPage_Appear,124,0,C_NoVenta,GUARDA_Click,67,0,Diseñador Visual,noventa.bal,-100,2,C_NoVenta,B4XPage_Appear,49,6,C_Principal,Class_Globals,0,0,C_Principal,B4XPage_Appear,350,0,C_Principal,getTableColumnList,332,0
+NavigationStack=Diseñador Visual,cliente.bal,-100,2,Starter,Process_Globals,30,0,Starter,ENVIA_ULTIMA_GPS,90,0,Starter,reinicializaReqManager,118,0,C_Cliente,StartPrinter,890,0,C_Cliente,B_IMP_Click,911,0,C_Cliente,B4XPage_Appear,233,0,C_Principal,Class_Globals,0,0,Diseñador Visual,principal.bal,-100,1,C_Principal,B4XPage_Appear,524,0,C_Principal,JobDone,1122,0
 SelectedBuild=0
-VisibleModules=2,26,13,16,14,4,27,15,9,6
+VisibleModules=2,27,13,16,14,4,28,15,9,6

B4A/Starter.bas

@@ -34,6 +34,7 @@ Sub Process_Globals
 	Dim logger As Boolean = False
 	Dim marcaCel As String = ph.manufacturer
 	Dim tabla As String
+	Dim MAC_IMPRESORA As String
 End Sub
 
 Sub Service_Create