diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index 1fd4b5c..cb0add8 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -296,6 +296,8 @@ Sub Class_Globals
 	Private motivo As String
 	Dim cursorprueba As Cursor
 	Dim sumatotal As Double = 0
+	
+	Private distance As Long
 End Sub
 
 'You can add more parameters here.
@@ -674,6 +676,50 @@ Sub B4XPage_Appear
 		Log("entre aca")
 		Tels.Visible = False
 	End If
+	
+	If distance <= 50 Or usuario = "KMTSKLL1" Then
+		Private clienteConPromo As Int = 0
+		Private existenciaspromo As Int = 0
+		'Revisamos si el cliente ya existe en HIST_PROMO_WHATS.
+		Private x As Cursor = Starter.skmt.ExecQuery("select count(HIST_CLIENTE) as clienteConPromo from HIST_PROMO_WHATS where HIST_CLIENTE in (Select CUENTA from cuentaa)")
+		If x.RowCount > 0 Then
+			x.Position = 0
+			clienteConPromo = x.GetString("clienteConPromo")
+		End If
+		Private y As Cursor = Starter.skmt.ExecQuery("select CAT_GP_ALMACEN, CAT_GP_ID FROM CAT_GUNAPROD2 WHERE CAT_GP_ID = 1008027226")
+		Private y1 As Cursor = Starter.skmt.ExecQuery("select CAT_GP_ALMACEN, CAT_GP_ID FROM CAT_GUNAPROD2 WHERE CAT_GP_ID = 1008027230")
+		Private y2 As Cursor = Starter.skmt.ExecQuery("select CAT_GP_ALMACEN, CAT_GP_ID FROM CAT_GUNAPROD2 WHERE CAT_GP_ID = 1008027228")
+		Private y3 As Cursor = Starter.skmt.ExecQuery("select CAT_GP_ALMACEN, CAT_GP_ID FROM CAT_GUNAPROD2 WHERE CAT_GP_ID = 1008013799")
+		If y.RowCount > 0 And y1.RowCount > 0 And y2.RowCount > 0 And y3.RowCount > 0 Then
+			y.Position = 0
+			y1.Position = 0
+			y2.Position = 0
+			y3.Position = 0
+			If y.GetString("CAT_GP_ALMACEN") >=1 And y.GetString("CAT_GP_ALMACEN") >=1 And y.GetString("CAT_GP_ALMACEN") >=1 And y.GetString("CAT_GP_ALMACEN") >=1 Then
+				existenciaspromo = 1
+			Else
+				existenciaspromo = 0
+			End If
+		Else
+			existenciaspromo = 0
+		End If
+'		Log(existenciaspromo)
+'		If pgs_boton_noventa = "1" Then Tels.Visible = True
+'		Log(clienteConPromo)
+		If gps_boton_doe = "1" And clienteConPromo = "0" Then b_whats.Visible = True
+		B_VENTA.Visible = True
+		Tels.Visible = True
+		If sumatotal <> 0 Then 'l_total.Text <> Null Or l_total.Text <> "null" Or
+'			Log("Hide NoVenta" & "|" & l_total.Text & "|")
+			Tels.Visible = False
+		End If
+		pedido_doe_muestra
+	Else
+		Tels.Visible = False
+		B_VENTA.Visible = False
+		b_whats.Visible = False
+	End If
+	
 End Sub
 
 Sub Printer1_Connected (Success As Boolean)
@@ -727,7 +773,7 @@ Sub GPS_LocationChanged (Location1 As Location)
 '	Log($"Coordenadas de la tienda - lat:${m_lat}, lon:${m_lon}"$)
 	l2.Initialize2(m_lat, m_lon)
 	
-	Dim distance As Long
+	
 	distance =    l1.DistanceTo(l2)  ' resultado en metros
 	gest.Visible = True
 	
@@ -843,7 +889,7 @@ Sub Guardar_Click
 	c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
 	c.Position=0
 	usuario = c.GetString("USUARIO")
-	If l_total.Text <> Null And l_total.Text <> "null" Then Subs.ponImpreso(clie_id) 'Solo lo marcamos com impreso si tiene venta (total > 0).
+	If sumatotal <> 0 Then Subs.ponImpreso(clie_id) 'Solo lo marcamos com impreso si tiene venta (total > 0).
 	c=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, COUNT(*) AS CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
 	c.Position=0
 	If c.GetString("CUANTOS") > 0 Then
@@ -1004,963 +1050,963 @@ 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
+'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
-'	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
+'	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
+''	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)
+'
+''			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)
-'			cont = cont + 1
-'			If cont = 7 Then Printer1.Connect 'Tratamos de reconectar
-'			If cont > 15 Then impresoraConectada = True
-'		Loop
-'		Sleep(500)
-'		impresoraConectada = False
+''			Printer1.DisConnect
+'		Catch
+'			ToastMessageShow("Error en la impresion 1.", True)
+''			Printer1.Disconnect
+'			B4XPages.ShowPage("Principal")
+'		End Try
 '	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)
+'		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
-			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)
+'			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( "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
+'				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
-	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).
+	If sumatotal <> 0 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
diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal
index 6314a32..f60a236 100644
Binary files a/B4A/Files/cliente.bal and b/B4A/Files/cliente.bal differ
diff --git a/B4A/KelloggsV3.b4a.meta b/B4A/KelloggsV3.b4a.meta
index 090c606..597f532 100644
--- a/B4A/KelloggsV3.b4a.meta
+++ b/B4A/KelloggsV3.b4a.meta
@@ -75,13 +75,13 @@ ModuleClosedNodes24=
 ModuleClosedNodes25=
 ModuleClosedNodes26=
 ModuleClosedNodes27=
-ModuleClosedNodes3=22,23,24
+ModuleClosedNodes3=
 ModuleClosedNodes4=
 ModuleClosedNodes5=
 ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Cliente,B4XPage_Appear,667,0,Diseñador Visual,proitem.bal,-100,1,Diseñador Visual,productos.bal,-100,1,B4XMainPage,Class_Globals,30,0,C_Cliente,muestraBotonCentrado,2517,0,C_Cliente,Cuestionario,2532,6,C_Cliente,GPS_LocationChanged,779,0
+NavigationStack=C_Nota,B4XPage_Appear,117,0,C_Clientes,Class_Globals,0,0,C_Cliente,B_IMP_Click,1475,0,C_Cliente,B_IMP2_Click,1956,1,Diseñador Visual,nota.bal,-100,3,Diseñador Visual,cliente.bal,-100,3,C_Cliente,Guardar_Click,839,3,C_Cliente,Class_Globals,293,1,C_Cliente,GPS_LocationChanged,738,0,C_Cliente,B4XPage_Appear,690,3
 SelectedBuild=0
-VisibleModules=1,2,3,4,5,6,7,8,9,10
+VisibleModules=1,2,3,4,5,6,7,8,9,10,12,26