diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index d3e6d00..9aebd25 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -947,28 +947,32 @@ Sub B_IMP_Click
 	label2.TextSize = 14
 	label2.TextColor = Colors.Black
 '	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=Starter.skmt.ExecQuery2 ("select CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_ALMACEN  from cat_gunaprod2 where CAT_GP_CLASIF <> ? ORDER BY CAT_GP_NOMBRE ", Array As String("PROMOS"))
+	s=Starter.skmt.ExecQuery2 ("select CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_ALMACEN from cat_gunaprod2 where CAT_GP_CLASIF <> ? ORDER BY CAT_GP_NOMBRE ", Array As String("PROMOS"))
 	If s.RowCount>0 Then
 		For i=0 To S.RowCount -1
 			s.Position=i
 			S1=Starter.skmt.ExecQuery2("select CAT_GP_ALMACEN from cat_gunaprod5 where CAT_GP_ID = ?", Array As String(s.GetString("CAT_GP_ID")))
-			S1.Position=0
+			Private almacen5 As String = 0
+			If S1.RowCount > 0 Then
+				S1.Position=0
+				almacen5 = S1.GetString("CAT_GP_ALMACEN")
+			End If
 			S3=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from HIST_ABORDO where HIST_PROID = ?", Array As String(s.GetString("CAT_GP_ID")))
 			S3.Position=0
 			If S3.GetString("CUANTOS") > 0  Then
 				S2=Starter.skmt.ExecQuery2("select HIST_CANT from HIST_ABORDO where HIST_PROID = ?", Array As String(s.GetString("CAT_GP_ID")))
 				S2.Position=0
-				a_inicial =  S1.GetString("CAT_GP_ALMACEN") -  S2.GetString("HIST_CANT")
+				a_inicial =  almacen5 - S2.GetString("HIST_CANT")
 			Else
-				a_inicial =  S1.GetString("CAT_GP_ALMACEN")
+				a_inicial =  almacen5
 			End If
-			a_inicial_5 = S1.GetString("CAT_GP_ALMACEN")
+			a_inicial_5 = almacen5
 			If S3.GetString("CUANTOS") > 0  Then
 				ABORDO = S2.GetString("HIST_CANT")
 			Else
 				ABORDO = 0
 			End If
-			a_total =  S1.GetString("CAT_GP_ALMACEN")
+			a_total =  almacen5
 			C4=Starter.skmt.ExecQuery2("select  count(*) as CUANTOS from pedido where substr(pe_pronombre,1,6) <> ? AND PE_PROID = ? AND PE_TIPO = ? ", Array As String("CAMBIO", s.GetString("CAT_GP_ID"), "VENTA"))
 			C4.Position=0
 			If C4.GetString("CUANTOS") > 0 Then
@@ -1000,6 +1004,959 @@ Sub B_IMP_Click
 	s.Close
 End Sub
 
+Sub B_IMP2_ZZZ_Click
+	Log("inicia B_IMP2_Click")
+	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 ...")
+'	Printer1.DisConnect
+'	If Not(Printer1.IsConnected) Then
+'		If logger Then Log("conectando 1")
+'		Printer1.Connect
+'		Private cont As Int = 0
+'		Do While Not(impresoraConectada)
+'			Sleep(1000)
+'			cont = cont + 1
+'			If cont = 7 Then Printer1.Connect 'Tratamos de reconectar
+'			If cont > 15 Then impresoraConectada = True
+'		Loop
+'		Sleep(500)
+'		impresoraConectada = False
+'	Else
+'		If logger Then Log("conectando 2")
+'		Printer1.Connect
+'		Private cont As Int = 0
+'		Do While Not(impresoraConectada) Or Not(Printer1.IsConnected)
+'			Sleep(1000)
+'			cont = cont + 1
+'			If cont = 2 Then Printer1.Connect
+'			If cont > 4 Then impresoraConectada = True
+'		Loop
+'		Sleep(500)
+'		impresoraConectada = False
+'	End If
+'	If Logger Then Log($"Impresora Conectada: ${Printer1.IsConnected}"$)
+	If la_cuenta.Text <> "0" And la_cuenta.Text <> "null" Then
+		Starter.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_TIPO = ?   WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) ", Array As Object("VENTA"))
+		Starter.skmt.ExecNonQuery("UPDATE kmt_info set IMPRESION = 1  where CAT_CL_CODIGO In (select cuenta from cuentaa)")''
+		Guardar.Visible = True
+	End If
+	Starter.skmt.ExecNonQuery("delete from pedido3")
+	Starter.skmt.ExecNonQuery("INSERT INTO PEDIDO3 (PE_PRECIO2,	PE_TIPO,	PE_DESC,	PE_COSTO_SIN,	PE_RUTA,	PE_CEDIS,	 PE_COSTO_TOT,	 PE_COSTOU,	 PE_CANT,	PE_PRONOMBRE,	PE_PROID,	PE_CLIENTE,	PE_USUARIO ) SELECT PE_PRECIO2,	PE_TIPO, PE_DESC, PE_COSTO_SIN,	PE_RUTA, PE_CEDIS,	SUM(PE_COSTO_TOT) AS PE_COSTO_TOT,	 PE_COSTOU,	SUM(PE_CANT) As PE_CANT,	PE_PRONOMBRE,	PE_PROID,	PE_CLIENTE,		PE_USUARIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) GROUP BY PE_PRECIO2,	PE_TIPO,	PE_DESC,	PE_COSTO_SIN,	PE_RUTA,	PE_CEDIS,	PE_COSTOU, PE_PRONOMBRE,	PE_PROID, PE_CLIENTE ")
+	c=Starter.skmt.ExecQuery("select PE_PRECIO2,PE_TIPO,PE_FOLIO,PE_DESC,PE_COSTO_SIN,PE_RUTA,PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,	PE_FECHA,PE_USUARIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+	
+	If c.RowCount>0 Then
+		For i=0 To c.RowCount -1
+			c.Position=i
+			Starter.skmt.ExecNonQuery2("UPDATE PEDIDO3 SET PE_FECHA= ? WHERE PE_CLIENTE = ? AND PE_PRONOMBRE = ? AND PE_PROID = ?  AND PE_CEDIS = ? AND PE_FOLIO = ?", Array As Object(c.GetString("PE_FECHA"), c.GetString("PE_CLIENTE"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CEDIS"), c.GetString("PE_FOLIO")))
+		Next
+	End If
+	Starter.skmt.ExecNonQuery("delete from pedido WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) ")
+	Starter.skmt.ExecNonQuery("INSERT INTO PEDIDO SELECT * FROM PEDIDO3")
+	
+	c=Starter.skmt.ExecQuery2("select count(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
+	c.Position =0
+	perfil = c.GetString("CUANTOS")
+	c.Close
+	If perfil > 0 Then
+		c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
+		c.Position =0
+		perfil = c.GetString("CAT_VA_VALOR")
+		c.Close
+	End If
+	c=Starter.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
+	TAMANO = 0
+	ESPACIO = 14
+	BLANCO = " "
+	'esto para las impresoras nuevas
+	'printer.Initialize(cmp20.OutputStream)
+'	Printer1.Reset
+'	Dim bmp As Bitmap
+'	bmp.InitializeResize(File.DirAssets, "knv_logo_white.png", 376, 129, True) 'ignore
+'	Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
+'	myimage = Printer1.DitherImage2D(myimage, 128)
+'	myimage= Printer1.PackImage(myimage)
+	
+	Log(CRLF) ' nudge the printer to show the user something is happening
+'	Log(Printer1.REVERSE)
+'	Printer1.PrintImage(myimage)
+'	Log(Printer1.UNREVERSE)
+	''	Printer1.Justify = 1
+	If la_cuenta.Text = "0" Then
+		Try
+			Log("KELLOGG COMPANY MEXICO"  & CRLF)
+			Log(sDate &" " & sTime  &  CRLF)
+			Log("Vendedor:" & usuario  &  CRLF)
+			Log("Ruta:" & ruta_tienda  &  CRLF)
+			Log("Tienda: " & La_nombre.Text  & CRLF)
+			Log("ID.Cliente: " &  la_cuenta.Text  & CRLF)
+			Log("Calle: " & la_Calle.Text  & CRLF)
+			Log("Colonia: " & la_col.Text  & CRLF)
+			Log("C.P.: " & la_cp.Text  & CRLF)
+			Log("Entre calle1: " & l_entre1.Text  & CRLF)
+			Log("Entre Calle2: " & l_entre2.Text  & CRLF)
+			Log(" " & CRLF)
+			Log("------------------------------"  & CRLF)
+			Log("PEDIDO" & CRLF)
+			Log("------------------------------"  & 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
+				For i=0 To S.RowCount -1
+					S.Position=i
+					If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
+						Log(s.GetString("PE_PRONOMBRE") & CRLF)
+					Else
+						Log(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF)
+						Private strT As String = ""
+						strT = s.GetString("L_CANT")&s.GetString("L_COSTOU")&s.GetString("L_COSTO_TOT")
+						TAMANO = strT.Length
+						ESPACIO = ESPACIO - TAMANO
+						For E=0 To ESPACIO -1
+							BLANCO = " " & BLANCO
+						Next
+'						If Logger Then Log($"|${ESPACIO}|, |${TAMANO}|, |${BLANCO}|"$)
+						Private pecostou As String = 0
+						If s.GETSTRING("PE_COSTOU") <> Null And IsNumber(s.GETSTRING("PE_COSTOU")) Then pecostou = s.GETSTRING("PE_COSTOU")
+						Private pecostotot As String = 0
+						If s.GETSTRING("PE_COSTO_TOT") <> Null And IsNumber(s.GETSTRING("PE_COSTO_TOT")) Then pecostotot = s.GETSTRING("PE_COSTO_TOT")
+						Log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & NumberFormat2(pecostou, 1, 2, 2, False) & "   $" & NumberFormat2(pecostotot, 1, 2, 2, False) & CRLF)
+'						log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") & CRLF)
+						TAMANO = 0
+						ESPACIO = 14
+						BLANCO = " "
+					End If
+				Next
+			End If
+			s.Close
+			Log(CRLF)
+			Log("------------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
+				For i=0 To S.RowCount -1
+					TAMANO = 0
+					ESPACIO = 14
+					BLANCO = " "
+					S.Position=i
+					If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
+						Log(s.GetString("PE_PRONOMBRE") & CRLF)
+					Else
+						Log(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF)
+						Private strT As String = ""
+						strT = s.GetString("L_CANT")&s.GetString("L_COSTOU")&s.GetString("L_COSTO_TOT")
+						TAMANO = strT.Length
+						ESPACIO = ESPACIO - TAMANO
+						For E=0 To ESPACIO -1
+							BLANCO = " " & BLANCO
+						Next
+						Private pecostou As String = 0
+						If s.GETSTRING("PE_COSTOU") <> Null And IsNumber(s.GETSTRING("PE_COSTOU")) Then pecostou = s.GETSTRING("PE_COSTOU")
+						Private pecostotot As String = 0
+						If s.GETSTRING("PE_COSTO_TOT") <> Null And IsNumber(s.GETSTRING("PE_COSTO_TOT")) Then pecostotot = s.GETSTRING("PE_COSTO_TOT")
+						Log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & NumberFormat2(pecostou, 1, 2, 2, False) & "   $" & NumberFormat2(pecostotot, 1, 2, 2, False) & CRLF)
+'						log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") & CRLF)
+						TAMANO = 0
+						ESPACIO = 14
+						BLANCO = " "
+					End If
+					If logger Then Log($"|${ESPACIO}|, |${TAMANO}|, |${BLANCO}|"$)
+				Next
+			End If
+			s.Close
+			Log(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("ABORDO"))
+			s.Position =0
+			Private sTotal1 As Double
+			If s.GetString("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then
+				sTotal1 = s.GetString("TOTAL")
+			Else
+				sTotal1 = 0
+			End If
+			Log( "Total entrega:   $"  & NumberFormat2(sTotal1, 1, 2, 2, False) & CRLF)
+			
+			Log("==============================="  & CRLF)
+			''bold para las nuevas impresoras
+			Private total3 As String = 0
+			If s.GETSTRING("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then total3 = s.GETSTRING("TOTAL")
+			Log(  Printer1.BOLD &  "Total pedido:   $" & NumberFormat2(total3, 1, 2, 2, False) & CRLF)
+
+			s.Close
+			s=Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS TOTAL FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("ABORDO"))
+			s.Position =0
+			Private total4 As String = "0"
+			If s.GetString("TOTAL") <> Null And IsNumber(s.GetString("TOTAL")) Then total4 = s.GetString("TOTAL")
+			Log( Printer1.BOLD &   "No. Productos: " & total4 & CRLF)
+			Log("==============================="  & CRLF)
+			s.Close
+'			Log(Printer1.DEFAULTS)
+
+'			printer.WriteLine("------------VENTA-------------")
+			Log(CRLF)
+			Log(CRLF)
+	
+			Log(  "Nombre y Firma del cliente" & CRLF)
+			Log(CRLF)
+			Log(CRLF)
+			Log(CRLF)
+			Log("______________________________" & CRLF)
+			Log("------------------------------" & CRLF)
+			Log("----ESTE TICKET NO ES UN -----" & CRLF)
+			Log("--COMPROBANTE FISCAL, SOLO ES-" & CRLF)
+			Log("--------INFORMATIVO-----------" & CRLF)
+			Log("------------------------------" & CRLF)
+			Log(CRLF)
+			Log(CRLF)
+			Log(CRLF)
+			'printer.Close
+			Sleep(1000)
+'			Printer1.DisConnect
+		Catch
+			ToastMessageShow("Error en la impresion 1.", True)
+'			Printer1.Disconnect
+			B4XPages.ShowPage("Principal")
+		End Try
+	Else
+		Try
+			DateTime.DateFormat = "yyyymmdd"
+			sDate=DateTime.Date(DateTime.Now)
+			Log("KELLOGG COMPANY MEXICO" & CRLF)
+			Log("No. Ticket: " & sDate &  la_cuenta.Text & CRLF)
+		
+			DateTime.DateFormat = "MM/dd/yyyy"
+			sDate=DateTime.Date(DateTime.Now)
+		
+			Log(sDate &" " & sTime & CRLF)
+			Log("Vendedor:" & usuario & CRLF)
+			Log("Ruta:" & ruta_tienda & CRLF)
+			Log("Tienda: " & La_nombre.Text & CRLF)
+			Log("ID.Cliente: " &  la_cuenta.Text & CRLF)
+			Log("Calle: " & la_Calle.Text & CRLF)
+			Log("Colonia: " & la_col.Text & CRLF)
+			Log("C.P.: " & la_cp.Text & CRLF)
+			Log("Entre calle1: " & l_entre1.Text & CRLF)
+			Log("Entre Calle2: " & l_entre2.Text & CRLF)
+			Log(" " & CRLF)
+			
+			''''''' 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
+				Log("------------------------------"  & CRLF)
+				Log("PEDIDO DON TOÑO" & CRLF)
+				Log("------------------------------"  & CRLF)
+				For i=0 To S.RowCount -1
+					S.Position=i
+					
+					If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
+						Log(s.GetString("PE_PRONOMBRE") & CRLF)
+					Else
+						Private strT As String = ""
+						Log(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF)
+						Private strT As String = ""
+						strT = s.GetString("L_CANT")&s.GetString("L_COSTOU")&s.GetString("L_COSTO_TOT")
+						TAMANO = strT.Length
+						ESPACIO = ESPACIO - TAMANO
+						For E=0 To ESPACIO -1
+							BLANCO = " " & BLANCO
+						Next
+						Private pecostou As String = 0
+						If s.GETSTRING("PE_COSTOU") <> Null And IsNumber(s.GETSTRING("PE_COSTOU")) Then pecostou = s.GETSTRING("PE_COSTOU")
+						Private pecostotot As String = 0
+						If s.GETSTRING("PE_COSTO_TOT") <> Null And IsNumber(s.GETSTRING("PE_COSTO_TOT")) Then pecostotot = s.GETSTRING("PE_COSTO_TOT")
+						Log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & NumberFormat2(pecostou, 1, 2, 2, False) & "   $" & NumberFormat2(pecostotot, 1, 2, 2, False) & CRLF)
+'						log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") & CRLF)
+'						If Logger Then Log($"|${ESPACIO}|, |${TAMANO}|, |${BLANCO}|"$)
+						TAMANO = 0
+						ESPACIO = 14
+						BLANCO = " "
+					End If
+				Next
+			End If
+			s.Close
+			
+			s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL  FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_CEDIS = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("DOE"))
+			s.Position = 0
+			Private sTotal2 As Double
+			If s.GetString("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then
+				sTotal2 = s.GetString("TOTAL")
+				Log(  $"Sub Total :   $${NumberFormat2(sTotal2, 1, 2, 2, False)}"$ & CRLF)
+			
+			Else
+				sTotal2 = 0
+			End If
+			Private cantidad1 As String = "0"
+			If s.GetString("CANTIDAD") <> Null And IsNumber(s.GetString("CANTIDAD")) Then
+				cantidad1 = s.GetString("CANTIDAD")
+			
+				Log(  "No. Productos: " & cantidad1 & CRLF)
+				Log("------------------------------"  & CRLF)
+				Log("FIN PEDIDO DON TOÑO" & CRLF)
+				Log("------------------------------"  & CRLF)
+			End If
+			
+			'	log(CRLF)
+			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"))
+			
+			Log("------------------------------"  & CRLF)
+			Log("VENTA" & CRLF)
+			Log("------------------------------"  & 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 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
+				For i=0 To S.RowCount -1
+					S.Position=i
+					If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
+						Log(s.GetString("PE_PRONOMBRE") & CRLF)
+					Else
+						Private strT As String = ""
+						Log(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF)
+						Private strT As String = ""
+						strT = s.GetString("L_CANT")&s.GetString("L_COSTOU")&s.GetString("L_COSTO_TOT")
+						TAMANO = strT.Length
+						ESPACIO = ESPACIO - TAMANO
+						For E=0 To ESPACIO -1
+							BLANCO = " " & BLANCO
+						Next
+						Private pecostou As String = 0
+						If s.GETSTRING("PE_COSTOU") <> Null And IsNumber(s.GETSTRING("PE_COSTOU")) Then pecostou = s.GETSTRING("PE_COSTOU")
+						Private pecostotot As String = 0
+						If s.GETSTRING("PE_COSTO_TOT") <> Null And IsNumber(s.GETSTRING("PE_COSTO_TOT")) Then pecostotot = s.GETSTRING("PE_COSTO_TOT")
+						Log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & NumberFormat2(pecostou, 1, 2, 2, False) & "   $" & NumberFormat2(pecostotot, 1, 2, 2, False) & CRLF)
+'						log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") & CRLF)
+'						If Logger Then Log($"|${ESPACIO}|, |${TAMANO}|, |${BLANCO}|"$)
+						TAMANO = 0
+						ESPACIO = 14
+						BLANCO = " "
+					End If
+				Next
+			End If
+			s.Close
+			s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL  FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? and substr(pe_pronombre,1,6) <> ? AND PE_CEDIS <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO","DOE"))
+			s.Position = 0
+			Private sTotal2 As Double
+			
+			cursorprueba = Starter.skmt.ExecQuery2("select PE_COSTO_TOT from  pedido where PE_CEDIS <> PE_PROID and pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS <> ?", Array As String("DOE"))
+			For i= 0 To cursorprueba.RowCount -1
+				cursorprueba.Position = i
+				LogColor(cursorprueba.GetString("PE_COSTO_TOT"),Colors.Red)
+				sTotal2 =  sTotal2 +  cursorprueba.GetString("PE_COSTO_TOT")
+				sTotal2 = NumberFormat2(sTotal2, 0, 2, 2, False)
+		
+				Log(NumberFormat2(sTotal2, 0, 2, 2, False))
+			Next
+			cursorprueba.Close
+			Log(sTotal2)
+'			
+'			If s.GetString("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then
+'				sTotal2 = s.GetString("TOTAL")
+'			Else
+'				sTotal2 = 0
+'			End If
+			s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? and substr(pe_pronombre,1,6) = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO"))
+			s.Position = 0
+			Private cant5 As String = s.GetString("CANTIDAD")
+			Private sTotal3 As Double
+			If s.GetString("TOTAL") <> Null And IsNumber(s.GetString("TOTAL")) Then
+				sTotal3 = s.GetString("TOTAL")
+			Else
+				sTotal3 = 0
+			End If
+			Log(Printer1.REVERSE & "==============================="  & CRLF)
+			Log( 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")
+			Log( Printer1.UNREVERSE & Printer1.BOLD & "No. Productos: " & cantidad1 & CRLF)
+			Log(CRLF)
+			s.Close
+			Log("------------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"))
+			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
+						Log(s.GetString("PE_PRONOMBRE") & CRLF)
+					
+					Else
+						Log(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF)
+						Private strT As String = ""
+						strT = s.GetString("L_CANT")&s.GetString("L_COSTOU")&s.GetString("L_COSTO_TOT")
+						TAMANO = strT.Length
+						ESPACIO = ESPACIO - TAMANO
+						For E=0 To ESPACIO -1
+							BLANCO = " " & BLANCO
+						Next
+						Private pecostou As String = 0
+						If s.GETSTRING("PE_COSTOU") <> Null And IsNumber(s.GETSTRING("PE_COSTOU")) Then pecostou = s.GETSTRING("PE_COSTOU")
+						Private pecostotot As String = 0
+						If s.GETSTRING("PE_COSTO_TOT") <> Null And IsNumber(s.GETSTRING("PE_COSTO_TOT")) Then pecostotot = s.GETSTRING("PE_COSTO_TOT")
+						Log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & NumberFormat2(pecostou, 1, 2, 2, False) & "   $" & NumberFormat2(pecostotot, 1, 2, 2, False) & CRLF)
+'						log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") & CRLF)
+						If logger Then Log($"|${ESPACIO}|, |${TAMANO}|, |${BLANCO}|"$)
+						TAMANO = 0
+						ESPACIO = 14
+						BLANCO = " "
+					End If
+				Next
+			End If
+			s.Close
+		
+			Log(Printer1.REVERSE & "==============================="  & CRLF)
+			Log(Printer1.UNREVERSE & Printer1.BOLD &  "Sub Total CAMBIOS:   $" & NumberFormat2(sTotal3, 1, 2, 2, False) & CRLF)
+			Private cantidad2 As String = "0"
+			If cant5 <> Null And IsNumber(cant5) Then cantidad2 = cant5
+			Log( Printer1.UNREVERSE & Printer1.BOLD & "No. Productos: " & cantidad2 & CRLF)
+			Log(CRLF)
+			s.Close
+			Log(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
+			Log(Printer1.REVERSE & "==============================="  & CRLF)
+			Private total2 As String = 0
+			If s.GETSTRING("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then total2 = s.GETSTRING("TOTAL")
+			Log(Printer1.UNREVERSE & Printer1.BOLD & "Total venta:   $" & NumberFormat2(total2, 1, 2, 2, False) & CRLF)
+'			log(Printer1.UNREVERSE & Printer1.BOLD & "Total venta:   $" & s.GetString("TOTAL") & CRLF)
+'			log("==============================="  & CRLF)
+'		
+'			log( "Total venta:   $" & s.GetString("TOTAL") & CRLF)
+			s.Close
+			s=Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS TOTAL FROM PEDIDO WHERE  PE_CEDIS <> PE_PROID AND PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
+			s.Position =0
+			Private total5 As String = "0"
+			If s.GetString("TOTAL") <> Null And IsNumber(s.GetString("TOTAL")) Then total5 = s.GetString("TOTAL")
+			Log(Printer1.BOLD & "No. Productos vendidos: " & (total5 - cantidad2) & CRLF)
+			Log(Printer1.BOLD & "Producto devuelto : " & cantidad2 & CRLF)
+			Log(Printer1.REVERSE & "==============================="  & CRLF)
+'			log( "No. Productos: " & s.GetString("TOTAL") & CRLF)
+'			log( "==============================="  & CRLF)
+			s.Close
+			Log(Printer1.UNREVERSE)
+			Log(Printer1.NOBOLD)
+'			printer.WriteLine("------------VENTA-------------")
+'			printer.WriteLine("TOTAL COMPRA: $:" & total_cliente)
+'			log(Printer1.DEFAULTS & CRLF)
+			Log(CRLF)
+			'	log(Printer1.SINGLE)
+			'log("------------------------------")
+			'	log(Printer1.HIGH)
+			'	Printer1.Justify = 1
+			Log( "Nombre y Firma del cliente" & CRLF)
+			Log(CRLF)
+			Log(CRLF)
+			Log(CRLF)
+			'	log(Printer1.DEFAULTS)
+			'	log(Printer1.SINGLE)
+			Log("______________________________" & CRLF)
+			Log("------------------------------" & CRLF)
+			Log("----ESTE TICKET NO ES UN -----" & CRLF)
+			Log("--COMPROBANTE FISCAL, SOLO ES-" & CRLF)
+			Log("--------INFORMATIVO-----------" & CRLF)
+			Log("------------------------------" & CRLF)
+			Log(CRLF)
+			Log(CRLF)
+			Log(CRLF)
+			Sleep(1000)
+'			Printer1.DisConnect
+		Catch
+			ToastMessageShow("Error en la impresion 2.", True)
+'			Printer1.Disconnect
+			B4XPages.ShowPage("Principal")
+		End Try
+	End If
+	Sleep(1000)
+	B_IMP2.Enabled = True
+	ProgressDialogHide
+End Sub
+
+Sub B_IMP2_YYY_Click
+	Log("inicia B_IMP2_Click")
+	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 ...")
+'	Printer1.DisConnect
+'	If Not(Printer1.IsConnected) Then
+'		If logger Then Log("conectando 1")
+''		Printer1.Connect
+'		Private cont As Int = 0
+'		Do While Not(impresoraConectada)
+'			Sleep(1000)
+'			cont = cont + 1
+'			If cont = 7 Then Printer1.Connect 'Tratamos de reconectar
+'			If cont > 15 Then impresoraConectada = True
+'		Loop
+'		Sleep(500)
+'		impresoraConectada = False
+'	Else
+'		If logger Then Log("conectando 2")
+''		Printer1.Connect
+'		Private cont As Int = 0
+'		Do While Not(impresoraConectada) Or Not(Printer1.IsConnected)
+'			Sleep(1000)
+'			cont = cont + 1
+'			If cont = 2 Then Printer1.Connect
+'			If cont > 4 Then impresoraConectada = True
+'		Loop
+'		Sleep(500)
+'		impresoraConectada = False
+'	End If
+'	If Logger Then Log($"Impresora Conectada: ${Printer1.IsConnected}"$)
+	If la_cuenta.Text <> "0" And la_cuenta.Text <> "null" Then
+		Starter.skmt.ExecNonQuery2("UPDATE PEDIDO SET PE_TIPO = ?   WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) ", Array As Object("VENTA"))
+		Starter.skmt.ExecNonQuery("UPDATE kmt_info set IMPRESION = 1  where CAT_CL_CODIGO In (select cuenta from cuentaa)")''
+		Guardar.Visible = True
+	End If
+	Starter.skmt.ExecNonQuery("delete from pedido3")
+	Starter.skmt.ExecNonQuery("INSERT INTO PEDIDO3 (PE_PRECIO2,	PE_TIPO,	PE_DESC,	PE_COSTO_SIN,	PE_RUTA,	PE_CEDIS,	 PE_COSTO_TOT,	 PE_COSTOU,	 PE_CANT,	PE_PRONOMBRE,	PE_PROID,	PE_CLIENTE,	PE_USUARIO ) SELECT PE_PRECIO2,	PE_TIPO, PE_DESC, PE_COSTO_SIN,	PE_RUTA, PE_CEDIS,	SUM(PE_COSTO_TOT) AS PE_COSTO_TOT,	 PE_COSTOU,	SUM(PE_CANT) As PE_CANT,	PE_PRONOMBRE,	PE_PROID,	PE_CLIENTE,		PE_USUARIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) GROUP BY PE_PRECIO2,	PE_TIPO,	PE_DESC,	PE_COSTO_SIN,	PE_RUTA,	PE_CEDIS,	PE_COSTOU, PE_PRONOMBRE,	PE_PROID, PE_CLIENTE ")
+	c=Starter.skmt.ExecQuery("select PE_PRECIO2,PE_TIPO,PE_FOLIO,PE_DESC,PE_COSTO_SIN,PE_RUTA,PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,	PE_FECHA,PE_USUARIO FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
+	
+	If c.RowCount>0 Then
+		For i=0 To c.RowCount -1
+			c.Position=i
+			Starter.skmt.ExecNonQuery2("UPDATE PEDIDO3 SET PE_FECHA= ? WHERE PE_CLIENTE = ? AND PE_PRONOMBRE = ? AND PE_PROID = ?  AND PE_CEDIS = ? AND PE_FOLIO = ?", Array As Object(c.GetString("PE_FECHA"), c.GetString("PE_CLIENTE"),c.GetString("PE_PRONOMBRE"),c.GetString("PE_PROID"),c.GetString("PE_CEDIS"), c.GetString("PE_FOLIO")))
+		Next
+	End If
+	Starter.skmt.ExecNonQuery("delete from pedido WHERE PE_CLIENTE IN (Select CUENTA from cuentaa) ")
+	Starter.skmt.ExecNonQuery("INSERT INTO PEDIDO SELECT * FROM PEDIDO3")
+	
+	c=Starter.skmt.ExecQuery2("select count(*) AS CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
+	c.Position =0
+	perfil = c.GetString("CUANTOS")
+	c.Close
+	If perfil > 0 Then
+		c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
+		c.Position =0
+		perfil = c.GetString("CAT_VA_VALOR")
+		c.Close
+	End If
+	c=Starter.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
+	TAMANO = 0
+	ESPACIO = 14
+	BLANCO = " "
+	'esto para las impresoras nuevas
+	'printer.Initialize(cmp20.OutputStream)
+'	Printer1.Reset
+	Dim bmp As Bitmap
+	bmp.InitializeResize(File.DirAssets, "knv_logo_white.png", 376, 129, True) 'ignore
+'	Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
+'	myimage = Printer1.DitherImage2D(myimage, 128)
+'	myimage= Printer1.PackImage(myimage)
+	
+	Log(CRLF) ' nudge the printer to show the user something is happening
+'	Log(Printer1.REVERSE)
+'	Printer1.PrintImage(myimage)
+'	Log(Printer1.UNREVERSE)
+	''	Printer1.Justify = 1
+	If la_cuenta.Text = "0" Then
+		Try
+			Log("KELLOGG COMPANY MEXICO"  & CRLF)
+			Log(sDate &" " & sTime  &  CRLF)
+			Log("Vendedor:" & usuario  &  CRLF)
+			Log("Ruta:" & ruta_tienda  &  CRLF)
+			Log("Tienda: " & La_nombre.Text  & CRLF)
+			Log("ID.Cliente: " &  la_cuenta.Text  & CRLF)
+			Log("Calle: " & la_Calle.Text  & CRLF)
+			Log("Colonia: " & la_col.Text  & CRLF)
+			Log("C.P.: " & la_cp.Text  & CRLF)
+			Log("Entre calle1: " & l_entre1.Text  & CRLF)
+			Log("Entre Calle2: " & l_entre2.Text  & CRLF)
+			Log(" " & CRLF)
+			Log("------------------------------"  & CRLF)
+			Log("PEDIDO" & CRLF)
+			Log("------------------------------"  & 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
+				For i=0 To S.RowCount -1
+					S.Position=i
+					If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
+						Log(s.GetString("PE_PRONOMBRE") & CRLF)
+					Else
+						Log(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF)
+						Private strT As String = ""
+						strT = s.GetString("L_CANT")&s.GetString("L_COSTOU")&s.GetString("L_COSTO_TOT")
+						TAMANO = strT.Length
+						ESPACIO = ESPACIO - TAMANO
+						For E=0 To ESPACIO -1
+							BLANCO = " " & BLANCO
+						Next
+'						If Logger Then Log($"|${ESPACIO}|, |${TAMANO}|, |${BLANCO}|"$)
+						Private pecostou As String = 0
+						If s.GETSTRING("PE_COSTOU") <> Null And IsNumber(s.GETSTRING("PE_COSTOU")) Then pecostou = s.GETSTRING("PE_COSTOU")
+						Private pecostotot As String = 0
+						If s.GETSTRING("PE_COSTO_TOT") <> Null And IsNumber(s.GETSTRING("PE_COSTO_TOT")) Then pecostotot = s.GETSTRING("PE_COSTO_TOT")
+						Log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & NumberFormat2(pecostou, 1, 2, 2, False) & "   $" & NumberFormat2(pecostotot, 1, 2, 2, False) & CRLF)
+'						log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") & CRLF)
+						TAMANO = 0
+						ESPACIO = 14
+						BLANCO = " "
+					End If
+				Next
+			End If
+			s.Close
+			Log(CRLF)
+			Log("------------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
+				For i=0 To S.RowCount -1
+					TAMANO = 0
+					ESPACIO = 14
+					BLANCO = " "
+					S.Position=i
+					If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
+						Log(s.GetString("PE_PRONOMBRE") & CRLF)
+					Else
+						Log(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF)
+						Private strT As String = ""
+						strT = s.GetString("L_CANT")&s.GetString("L_COSTOU")&s.GetString("L_COSTO_TOT")
+						TAMANO = strT.Length
+						ESPACIO = ESPACIO - TAMANO
+						For E=0 To ESPACIO -1
+							BLANCO = " " & BLANCO
+						Next
+						Private pecostou As String = 0
+						If s.GETSTRING("PE_COSTOU") <> Null And IsNumber(s.GETSTRING("PE_COSTOU")) Then pecostou = s.GETSTRING("PE_COSTOU")
+						Private pecostotot As String = 0
+						If s.GETSTRING("PE_COSTO_TOT") <> Null And IsNumber(s.GETSTRING("PE_COSTO_TOT")) Then pecostotot = s.GETSTRING("PE_COSTO_TOT")
+						Log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & NumberFormat2(pecostou, 1, 2, 2, False) & "   $" & NumberFormat2(pecostotot, 1, 2, 2, False) & CRLF)
+'						log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") & CRLF)
+						TAMANO = 0
+						ESPACIO = 14
+						BLANCO = " "
+					End If
+					If logger Then Log($"|${ESPACIO}|, |${TAMANO}|, |${BLANCO}|"$)
+				Next
+			End If
+			s.Close
+			Log(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("ABORDO"))
+			s.Position =0
+			Private sTotal1 As Double
+			If s.GetString("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then
+				sTotal1 = s.GetString("TOTAL")
+			Else
+				sTotal1 = 0
+			End If
+			Log( "Total entrega:   $"  & NumberFormat2(sTotal1, 1, 2, 2, False) & CRLF)
+			
+			Log("==============================="  & CRLF)
+			''bold para las nuevas impresoras
+			Private total3 As String = 0
+			If s.GETSTRING("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then total3 = s.GETSTRING("TOTAL")
+			Log(  Printer1.BOLD &  "Total pedido:   $" & NumberFormat2(total3, 1, 2, 2, False) & CRLF)
+
+			s.Close
+			s=Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS TOTAL FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("ABORDO"))
+			s.Position =0
+			Private total4 As String = "0"
+			If s.GetString("TOTAL") <> Null And IsNumber(s.GetString("TOTAL")) Then total4 = s.GetString("TOTAL")
+			Log( Printer1.BOLD &   "No. Productos: " & total4 & CRLF)
+			Log("==============================="  & CRLF)
+			s.Close
+			Log(Printer1.DEFAULTS)
+
+'			printer.WriteLine("------------VENTA-------------")
+			Log(CRLF)
+			Log(CRLF)
+	
+			Log(  "Nombre y Firma del cliente" & CRLF)
+			Log(CRLF)
+			Log(CRLF)
+			Log(CRLF)
+			Log("______________________________" & CRLF)
+			Log("------------------------------" & CRLF)
+			Log("----ESTE TICKET NO ES UN -----" & CRLF)
+			Log("--COMPROBANTE FISCAL, SOLO ES-" & CRLF)
+			Log("--------INFORMATIVO-----------" & CRLF)
+			Log("------------------------------" & CRLF)
+			Log(CRLF)
+			Log(CRLF)
+			Log(CRLF)
+			'printer.Close
+			Sleep(1000)
+'			Printer1.DisConnect
+		Catch
+			ToastMessageShow("Error en la impresion 1.", True)
+'			Printer1.Disconnect
+			B4XPages.ShowPage("Principal")
+		End Try
+	Else
+		Try
+			DateTime.DateFormat = "yyyymmdd"
+			sDate=DateTime.Date(DateTime.Now)
+			Log("KELLOGG COMPANY MEXICO" & CRLF)
+			Log("No. Ticket: " & sDate &  la_cuenta.Text & CRLF)
+		
+			DateTime.DateFormat = "MM/dd/yyyy"
+			sDate=DateTime.Date(DateTime.Now)
+		
+			Log(sDate &" " & sTime & CRLF)
+			Log("Vendedor:" & usuario & CRLF)
+			Log("Ruta:" & ruta_tienda & CRLF)
+			Log("Tienda: " & La_nombre.Text & CRLF)
+			Log("ID.Cliente: " &  la_cuenta.Text & CRLF)
+			Log("Calle: " & la_Calle.Text & CRLF)
+			Log("Colonia: " & la_col.Text & CRLF)
+			Log("C.P.: " & la_cp.Text & CRLF)
+			Log("Entre calle1: " & l_entre1.Text & CRLF)
+			Log("Entre Calle2: " & l_entre2.Text & CRLF)
+			Log(" " & CRLF)
+			
+			''''''' 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
+				Log("------------------------------"  & CRLF)
+				Log("PEDIDO DON TOÑO" & CRLF)
+				Log("------------------------------"  & CRLF)
+				For i=0 To S.RowCount -1
+					S.Position=i
+					
+					If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
+						Log(s.GetString("PE_PRONOMBRE") & CRLF)
+					Else
+						Private strT As String = ""
+						Log(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF)
+						Private strT As String = ""
+						strT = s.GetString("L_CANT")&s.GetString("L_COSTOU")&s.GetString("L_COSTO_TOT")
+						TAMANO = strT.Length
+						ESPACIO = ESPACIO - TAMANO
+						For E=0 To ESPACIO -1
+							BLANCO = " " & BLANCO
+						Next
+						Private pecostou As String = 0
+						If s.GETSTRING("PE_COSTOU") <> Null And IsNumber(s.GETSTRING("PE_COSTOU")) Then pecostou = s.GETSTRING("PE_COSTOU")
+						Private pecostotot As String = 0
+						If s.GETSTRING("PE_COSTO_TOT") <> Null And IsNumber(s.GETSTRING("PE_COSTO_TOT")) Then pecostotot = s.GETSTRING("PE_COSTO_TOT")
+						Log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & NumberFormat2(pecostou, 1, 2, 2, False) & "   $" & NumberFormat2(pecostotot, 1, 2, 2, False) & CRLF)
+'						log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") & CRLF)
+'						If Logger Then Log($"|${ESPACIO}|, |${TAMANO}|, |${BLANCO}|"$)
+						TAMANO = 0
+						ESPACIO = 14
+						BLANCO = " "
+					End If
+				Next
+			End If
+			s.Close
+			
+			s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL  FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_CEDIS = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("DOE"))
+			s.Position = 0
+			Private sTotal2 As Double
+			If s.GetString("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then
+				sTotal2 = s.GetString("TOTAL")
+				Log(  $"Sub Total :   $${NumberFormat2(sTotal2, 1, 2, 2, False)}"$ & CRLF)
+			
+			Else
+				sTotal2 = 0
+			End If
+			Private cantidad1 As String = "0"
+			If s.GetString("CANTIDAD") <> Null And IsNumber(s.GetString("CANTIDAD")) Then
+				cantidad1 = s.GetString("CANTIDAD")
+			
+				Log(  "No. Productos: " & cantidad1 & CRLF)
+				Log("------------------------------"  & CRLF)
+				Log("FIN PEDIDO DON TOÑO" & CRLF)
+				Log("------------------------------"  & CRLF)
+			End If
+			
+			'	log(CRLF)
+			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"))
+			
+			Log("------------------------------"  & CRLF)
+			Log("VENTA" & CRLF)
+			Log("------------------------------"  & 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 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
+				For i=0 To S.RowCount -1
+					S.Position=i
+					If s.GetString("PE_CEDIS") = s.GetString("PE_PROID") Then
+						Log(s.GetString("PE_PRONOMBRE") & CRLF)
+					Else
+						Private strT As String = ""
+						Log(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF)
+						Private strT As String = ""
+						strT = s.GetString("L_CANT")&s.GetString("L_COSTOU")&s.GetString("L_COSTO_TOT")
+						TAMANO = strT.Length
+						ESPACIO = ESPACIO - TAMANO
+						For E=0 To ESPACIO -1
+							BLANCO = " " & BLANCO
+						Next
+						Private pecostou As String = 0
+						If s.GETSTRING("PE_COSTOU") <> Null And IsNumber(s.GETSTRING("PE_COSTOU")) Then pecostou = s.GETSTRING("PE_COSTOU")
+						Private pecostotot As String = 0
+						If s.GETSTRING("PE_COSTO_TOT") <> Null And IsNumber(s.GETSTRING("PE_COSTO_TOT")) Then pecostotot = s.GETSTRING("PE_COSTO_TOT")
+						Log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & NumberFormat2(pecostou, 1, 2, 2, False) & "   $" & NumberFormat2(pecostotot, 1, 2, 2, False) & CRLF)
+'						log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") & CRLF)
+'						If Logger Then Log($"|${ESPACIO}|, |${TAMANO}|, |${BLANCO}|"$)
+						TAMANO = 0
+						ESPACIO = 14
+						BLANCO = " "
+					End If
+				Next
+			End If
+			s.Close
+			s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL  FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? and substr(pe_pronombre,1,6) <> ? AND PE_CEDIS <> ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO","DOE"))
+			s.Position = 0
+			Private sTotal2 As Double
+			
+			cursorprueba = Starter.skmt.ExecQuery2("select PE_COSTO_TOT from  pedido where PE_CEDIS <> PE_PROID and pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS <> ?", Array As String("DOE"))
+			For i= 0 To cursorprueba.RowCount -1
+				cursorprueba.Position = i
+				LogColor(cursorprueba.GetString("PE_COSTO_TOT"),Colors.Red)
+				sTotal2 =  sTotal2 +  cursorprueba.GetString("PE_COSTO_TOT")
+				sTotal2 = NumberFormat2(sTotal2, 0, 2, 2, False)
+		
+				Log(NumberFormat2(sTotal2, 0, 2, 2, False))
+			Next
+			cursorprueba.Close
+			Log(sTotal2)
+'			
+'			If s.GetString("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then
+'				sTotal2 = s.GetString("TOTAL")
+'			Else
+'				sTotal2 = 0
+'			End If
+			s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL  FROM PEDIDO WHERE  PE_CEDIS <> PE_PROID AND  PE_TIPO = ? and substr(pe_pronombre,1,6) = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO"))
+			s.Position = 0
+			Private cant5 As String = s.GetString("CANTIDAD")
+			Private sTotal3 As Double
+			If s.GetString("TOTAL") <> Null And IsNumber(s.GetString("TOTAL")) Then
+				sTotal3 = s.GetString("TOTAL")
+			Else
+				sTotal3 = 0
+			End If
+			Log(Printer1.REVERSE & "==============================="  & CRLF)
+			Log( 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")
+			Log( Printer1.UNREVERSE & Printer1.BOLD & "No. Productos: " & cantidad1 & CRLF)
+			Log(CRLF)
+			s.Close
+			Log("------------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"))
+			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
+						Log(s.GetString("PE_PRONOMBRE") & CRLF)
+					
+					Else
+						Log(s.GetString("PE_CANT") & " " & s.GetString("PE_PRONOMBRE") & CRLF)
+						Private strT As String = ""
+						strT = s.GetString("L_CANT")&s.GetString("L_COSTOU")&s.GetString("L_COSTO_TOT")
+						TAMANO = strT.Length
+						ESPACIO = ESPACIO - TAMANO
+						For E=0 To ESPACIO -1
+							BLANCO = " " & BLANCO
+						Next
+						Private pecostou As String = 0
+						If s.GETSTRING("PE_COSTOU") <> Null And IsNumber(s.GETSTRING("PE_COSTOU")) Then pecostou = s.GETSTRING("PE_COSTOU")
+						Private pecostotot As String = 0
+						If s.GETSTRING("PE_COSTO_TOT") <> Null And IsNumber(s.GETSTRING("PE_COSTO_TOT")) Then pecostotot = s.GETSTRING("PE_COSTO_TOT")
+						Log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & NumberFormat2(pecostou, 1, 2, 2, False) & "   $" & NumberFormat2(pecostotot, 1, 2, 2, False) & CRLF)
+'						log(BLANCO & s.GETSTRING("PE_CANT") & " X $" & s.GETSTRING("PE_COSTOU") & "   $" & s.GETSTRING("PE_COSTO_TOT") & CRLF)
+						If logger Then Log($"|${ESPACIO}|, |${TAMANO}|, |${BLANCO}|"$)
+						TAMANO = 0
+						ESPACIO = 14
+						BLANCO = " "
+					End If
+				Next
+			End If
+			s.Close
+		
+			Log(Printer1.REVERSE & "==============================="  & CRLF)
+			Log(Printer1.UNREVERSE & Printer1.BOLD &  "Sub Total CAMBIOS:   $" & NumberFormat2(sTotal3, 1, 2, 2, False) & CRLF)
+			Private cantidad2 As String = "0"
+			If cant5 <> Null And IsNumber(cant5) Then cantidad2 = cant5
+			Log( Printer1.UNREVERSE & Printer1.BOLD & "No. Productos: " & cantidad2 & CRLF)
+			Log(CRLF)
+			s.Close
+			Log(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
+			Log(Printer1.REVERSE & "==============================="  & CRLF)
+			Private total2 As String = 0
+			If s.GETSTRING("TOTAL") <> Null And IsNumber(s.GETSTRING("TOTAL")) Then total2 = s.GETSTRING("TOTAL")
+			Log(Printer1.UNREVERSE & Printer1.BOLD & "Total venta:   $" & NumberFormat2(total2, 1, 2, 2, False) & CRLF)
+'			log(Printer1.UNREVERSE & Printer1.BOLD & "Total venta:   $" & s.GetString("TOTAL") & CRLF)
+'			log("==============================="  & CRLF)
+'		
+'			log( "Total venta:   $" & s.GetString("TOTAL") & CRLF)
+			s.Close
+			s=Starter.skmt.ExecQuery2("select SUM(PE_CANT) AS TOTAL FROM PEDIDO WHERE  PE_CEDIS <> PE_PROID AND PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
+			s.Position =0
+			Private total5 As String = "0"
+			If s.GetString("TOTAL") <> Null And IsNumber(s.GetString("TOTAL")) Then total5 = s.GetString("TOTAL")
+			Log(Printer1.BOLD & "No. Productos vendidos: " & (total5 - cantidad2) & CRLF)
+			Log(Printer1.BOLD & "Producto devuelto : " & cantidad2 & CRLF)
+			Log(Printer1.REVERSE & "==============================="  & CRLF)
+'			log( "No. Productos: " & s.GetString("TOTAL") & CRLF)
+'			log( "==============================="  & CRLF)
+			s.Close
+			Log(Printer1.UNREVERSE)
+			Log(Printer1.NOBOLD)
+'			printer.WriteLine("------------VENTA-------------")
+'			printer.WriteLine("TOTAL COMPRA: $:" & total_cliente)
+'			log(Printer1.DEFAULTS & CRLF)
+			Log(CRLF)
+			'	log(Printer1.SINGLE)
+			'log("------------------------------")
+			'	log(Printer1.HIGH)
+			'	Printer1.Justify = 1
+			Log( "Nombre y Firma del cliente" & CRLF)
+			Log(CRLF)
+			Log(CRLF)
+			Log(CRLF)
+			'	log(Printer1.DEFAULTS)
+			'	log(Printer1.SINGLE)
+			Log("______________________________" & CRLF)
+			Log("------------------------------" & CRLF)
+			Log("----ESTE TICKET NO ES UN -----" & CRLF)
+			Log("--COMPROBANTE FISCAL, SOLO ES-" & CRLF)
+			Log("--------INFORMATIVO-----------" & CRLF)
+			Log("------------------------------" & CRLF)
+			Log(CRLF)
+			Log(CRLF)
+			Log(CRLF)
+			Sleep(1000)
+'			Printer1.DisConnect
+		Catch
+			ToastMessageShow("Error en la impresion 2.", True)
+'			Printer1.Disconnect
+			B4XPages.ShowPage("Principal")
+		End Try
+	End If
+	Sleep(1000)
+	B_IMP2.Enabled = True
+	ProgressDialogHide
+'	If Logger Then Log("Habilitamos boton")
+End Sub
+
 Sub B_IMP2_Click
 	Log("inicia B_IMP2_Click")
 	B_IMP2.Enabled = False
@@ -1361,8 +2318,9 @@ Sub B_IMP2_Click
 '			Else
 '				sTotal2 = 0
 '			End If
-			s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL  FROM PEDIDO WHERE  PE_CEDIS <> PE_PROID AND  PE_TIPO = ? and substr(pe_pronombre,1,6) = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO"))
+			s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? and substr(pe_pronombre,1,6) = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO"))
 			s.Position = 0
+			Private cant5 As String = s.GetString("CANTIDAD")
 			Private sTotal3 As Double
 			If s.GetString("TOTAL") <> Null And IsNumber(s.GetString("TOTAL")) Then
 				sTotal3 = s.GetString("TOTAL")
@@ -1370,7 +2328,7 @@ Sub B_IMP2_Click
 				sTotal3 = 0
 			End If
 			Printer1.WriteString(Printer1.REVERSE & "==============================="  & CRLF)
-			Printer1.WriteString( Printer1.UNREVERSE & Printer1.BOLD & $"Sub Total Venta:   $${NumberFormat2((sTotal2+sTotal3), 1, 2, 2, False)}"$ & 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)
@@ -1411,7 +2369,7 @@ Sub B_IMP2_Click
 			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"
-			If s.GetString("CANTIDAD") <> Null And IsNumber(s.GetString("CANTIDAD")) Then cantidad2 = s.GetString("CANTIDAD")
+			If cant5 <> Null And IsNumber(cant5) Then cantidad2 = cant5
 			Printer1.WriteString( Printer1.UNREVERSE & Printer1.BOLD & "No. Productos: " & cantidad2 & CRLF)
 			Printer1.WriteString(CRLF)
 			s.Close
diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas
index 8d8f8d3..bf2ff59 100644
--- a/B4A/C_Productos.bas
+++ b/B4A/C_Productos.bas
@@ -305,9 +305,9 @@ Sub ListView1_ItemClick (Position As Int, Value As Object)
 		If c2.RowCount>0 Then
 			For i=0 To c2.RowCount -1
 				c2.Position=i
-				jpeg = c2.GetBlob("CAT_GP_IMG")
-				ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
-				bmp.Initialize2(ins)
+'				jpeg = c2.GetBlob("CAT_GP_IMG")
+'				ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
+'				bmp.Initialize2(ins)
 				ListView1.AddTwoLines(c2.GetString("CAT_GP_NOMBRE"),"# " & c2.GetString("CAT_GP_ALMACEN") & " $ " & c2.GetString("CAT_GP_PRECIO"))
 			Next
 		End If
@@ -579,11 +579,11 @@ Sub HACER_PEDIDO
 	Else
 		nopromo.Visible = False
 	End If
-	Dim out As OutputStream
-	out = File.OpenOutput(ruta, "1.jpg", False)
-	out.WriteBytes(IMG_PASO, 0, IMG_PASO.Length)
-	out.Close
-	img_prod.Bitmap = LoadBitmap(ruta,"1.jpg")
+'	Dim out As OutputStream
+'	out = File.OpenOutput(ruta, "1.jpg", False)
+'	out.WriteBytes(IMG_PASO, 0, IMG_PASO.Length)
+'	out.Close
+'	img_prod.Bitmap = LoadBitmap(ruta,"1.jpg")
 	TOT_ART_PROMO = "0"
 	TOT_ART_PROMOR = "0"
 	If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And l_bodega.Text = "0" Then
diff --git a/B4A/C_TicketsDia.bas b/B4A/C_TicketsDia.bas
index 7fda488..51c8127 100644
--- a/B4A/C_TicketsDia.bas
+++ b/B4A/C_TicketsDia.bas
@@ -66,11 +66,11 @@ Sub B4XPage_Appear
 			cursorprueba = Starter.skmt.ExecQuery2("select PE_COSTO_TOT from  pedido where PE_CEDIS <> PE_PROID and pe_cliente = ? AND PE_CEDIS <> ?", Array As String(c.GetString("PC_CLIENTE"),"DOE"))
 			For i= 0 To cursorprueba.RowCount -1
 				cursorprueba.Position = i
-				LogColor(cursorprueba.GetString("PE_COSTO_TOT"),Colors.Red)
+'				LogColor(cursorprueba.GetString("PE_COSTO_TOT"),Colors.Red)
 				sumatotal =  sumatotal +  cursorprueba.GetString("PE_COSTO_TOT")
 				sumatotal = NumberFormat2(sumatotal, 0, 2, 2, False)
 		
-				Log(NumberFormat2(sumatotal, 0, 2, 2, False))
+'				Log(NumberFormat2(sumatotal, 0, 2, 2, False))
 			Next
 			cursorprueba.Close
 			
diff --git a/B4A/KelloggsV3.b4a b/B4A/KelloggsV3.b4a
index 34b3de3..6282df9 100644
--- a/B4A/KelloggsV3.b4a
+++ b/B4A/KelloggsV3.b4a
@@ -176,7 +176,7 @@ Version=12.5
 #Region  Project Attributes	
 	#ApplicationLabel: Kelloggs Venta
 	#VersionCode: 3000
-	#VersionName: 3.11.09 RMI
+	#VersionName: 3.11.11 RMI
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
 	#BridgeLogger:true
diff --git a/B4A/KelloggsV3.b4a.meta b/B4A/KelloggsV3.b4a.meta
index f4bc102..3d09c76 100644
--- a/B4A/KelloggsV3.b4a.meta
+++ b/B4A/KelloggsV3.b4a.meta
@@ -75,13 +75,13 @@ ModuleClosedNodes24=
 ModuleClosedNodes25=
 ModuleClosedNodes26=
 ModuleClosedNodes27=
-ModuleClosedNodes3=
+ModuleClosedNodes3=22,23,24
 ModuleClosedNodes4=
 ModuleClosedNodes5=
 ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Starter,Process_Globals,29,0,C_Cliente,Class_Globals,4,0,C_Cliente,JobDone,3119,0,Diseñador Visual,principal.bal,-100,2,C_Cliente,b_geopass_Click,3078,0,C_Cliente,B4XPage_Appear,574,3,C_Productos,HACER_PEDIDO,576,0,C_Cliente,Mods,0,0,C_Cliente,b_mapa_Click,923,0,C_Cliente,B_IMP2_Click,1367,1
+NavigationStack=C_Productos,HACER_PEDIDO,392,0,C_TicketsDia,Activity_KeyPress,81,0,C_TicketsDia,Regresar_Click,79,0,C_TicketsDia,B4XPage_Appear,59,0,Visual Designer,cliente.bal,-100,1,C_Cliente,B_IMP_Click,1000,6,C_Cliente,B_IMP2_YYY_Click,1953,0,C_Cliente,b_mapa_Click,926,0,C_Cliente,B_IMP2_Click,1991,6,C_Cliente,B_IMP2_ZZZ_Click,1475,0
 SelectedBuild=0
-VisibleModules=1,2,3,4,5,6,7,8,9,10,12
+VisibleModules=1,2,3,4,5,6,7,8,9,10,12,14