diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas
index 7402def..4acbf00 100644
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -173,7 +173,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ABONOS (a_usuario TEXT, a_ruta TEXT, a_cliente TEXT, a_abono TEXT, a_fecha TEXT, a_enviado TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS COORDENADAS_GPS (tienda_id TEXT, ruta TEXT, almacen TEXT, latitud TEXT, longitud TEXT, fecha TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CUESTIONARIO (HC_CLIENTE TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS NOVENTA (NV_CLIENTE TEXT, NV_FECHA TEXT, NV_USER TEXT, NV_MOTIVO TEXT, NV_COMM TEXT, NV_LAT TEXT, NV_LON TEXT)")
 	Subs.agregaColumna("PEDIDO", "PE_ENVIO_OK", "INT")
+	Subs.agregaColumna("NOVENTA", "NV_ENVIO_OK", "INT")
 	c=skmt.ExecQuery("select  COUNT(*) AS CUANTOS from HIST_STAY_OUT ")
 	C.Position = 0
 	If c.GetString("CUANTOS")  = 0 Then
diff --git a/B4A/C_NoVenta.bas b/B4A/C_NoVenta.bas
index aeeed4d..423d80b 100644
--- a/B4A/C_NoVenta.bas
+++ b/B4A/C_NoVenta.bas
@@ -132,16 +132,18 @@ End Sub
 
 Sub mandaPendientesnoventa
 	'PEDIDO_CLIENTE (Pendientes)
-	c=B4XPages.MainPage.skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_FACTURA FROM PEDIDO_CLIENTE where pc_envio_ok <> 1")
+'	c = B4XPages.MainPage.skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_FACTURA FROM PEDIDO_CLIENTE where pc_envio_ok <> 1")
+	c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM NOVENTA where ifnull(NV_ENVIO_OK, 0) <> 1")
 	Log($"Pedido_Cliente PENDIENTE: ${c.RowCount}"$)
 	If c.RowCount>0 Then
 		For i=0 To c.RowCount -1
 			c.Position=i
 			Dim cmd As DBCommand
 			cmd.Initialize
-			cmd.Name = "insert_pedidos_INTMEX"
-			cmd.Parameters = Array As Object(C.GetString("PC_CLIENTE"), C.GetString("PC_FECHA"), C.GetString("PC_USER"), C.GetString("PC_NOART"), C.GetString("PC_MONTO"), C.GetString("PC_LON"), C.GetString("PC_LAT"), C.GetString("PC_ALMACEN"),C.GetString("PC_RUTA"), C.GetString("PC_COSTO_SIN"), C.GetString("PC_FACTURA"))
-			reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_head_${c.GetString("PC_CLIENTE")}"$)
+			cmd.Name = "insert_noventa_INTMEX"
+			cmd.Parameters = Array As Object(C.GetString("NV_CLIENTE"), C.GetString("NV_FECHA"), C.GetString("NV_USER"), C.GetString("NV_MOTIVO"), C.GetString("NV_COMM"), C.GetString("NV_LAT"), C.GetString("NV_LON"), Subs.traeAlmacen, Subs.traeRuta)
+			reqManager.ExecuteCommand(cmd , $"insert_noventa_${c.GetString("NV_CLIENTE")}"$)
+'			insert_noventa_INTMEX=INSERT INTO INTMEX.NOVENTA (NV_FECHA_SINC,NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON,NV_IDALMACEN,NV_RUTA) VALUES (SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?))
 		Next
 	End If
 End Sub
@@ -154,11 +156,11 @@ Else
 	LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green)  'Mod por CHV - 211027
 	If Job.JobName = "DBRequest" Then
 		Dim resultado As DBResult = reqManager.HandleJob(Job)
-		If resultado.Tag.As(String).IndexOf("ins_pedidosPendientes_head_") > -1 Then
+			If resultado.Tag.As(String).IndexOf("insert_noventa_") > -1 Then
 			Private cliente As String= resultado.Tag
-			cliente = cliente.SubString(cliente.IndexOf("_")+24)
+			cliente = cliente.SubString(cliente.IndexOf("_") + 9)
 			Log($"Cliente1:${cliente}"$)
-				
+			Starter.skmt.ExecNonQuery($"update NOVENTA set NV_ENVIO_OK = '1' where NV_CLIENTE = '${cliente}'"$)
 			For Each records() As Object In resultado.Rows
 				For Each k As String In resultado.Columns.Keys
 					Log(resultado.Tag & ": " & k & ": " & records(resultado.Columns.Get(k)))
diff --git a/B4A/INTMEX.b4a b/B4A/INTMEX.b4a
index 767de5b..ba130dc 100644
--- a/B4A/INTMEX.b4a
+++ b/B4A/INTMEX.b4a
@@ -162,7 +162,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Intmex
 	#VersionCode: 1
-	#VersionName: 4.02.27
+	#VersionName: 4.03.02
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
diff --git a/B4A/INTMEX.b4a.meta b/B4A/INTMEX.b4a.meta
index 93ddded..7b00739 100644
--- a/B4A/INTMEX.b4a.meta
+++ b/B4A/INTMEX.b4a.meta
@@ -85,6 +85,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=1
-NavigationStack=Starter,GPS_LocationChanged,65,0,Starter,Service_Start,52,1,Starter,Process_Globals,16,0,B4XMainPage,Entrar_Click,320,0,B4XMainPage,B4XPage_Appear,259,0,Visual Designer,productos.bal,-100,1,Visual Designer,login.bal,-100,1,B4XMainPage,i_engrane_Click,689,6,B4XMainPage,ocultaProgreso,679,0,B4XMainPage,muestraProgreso,674,0
+NavigationStack=Visual Designer,productos.bal,-100,1,Visual Designer,login.bal,-100,1,B4XMainPage,i_engrane_Click,689,6,B4XMainPage,muestraProgreso,674,0,B4XMainPage,b_apk_Click,666,0,B4XMainPage,ocultaProgreso,676,0,C_NoVenta,GUARDA_Click,115,0,C_NoVenta,mandaPendientesnoventa,138,5,C_NoVenta,JobDone,149,6,B4XMainPage,B4XPage_Created,175,4
 SelectedBuild=0
-VisibleModules=2,26,13,16,14,4,27,15,9,6
+VisibleModules=2,26,13,16,14,4,27,15,9,6,10