aun no se termina estamos viendo abonos

B4A/B4XMainPage.bas

@@ -113,7 +113,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Root = Root1
 	Root.LoadLayout("login")
 	s.Initialize(Me, "Subs")
-	B4XPages.SetTitle(Me, "Intmex Preventa")
+	B4XPages.SetTitle(Me, "Marquez")
 	login.Initialize
 	B4XPages.AddPage("Login", login)
 	principal.Initialize
@@ -177,6 +177,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	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")
+	Subs.agregaColumna("kmt_info", "CAT_CL_BCREDITO", "TEXT")
+	Subs.agregaColumna("kmt_info", "CAT_CL_LIMITECREDITO", "TEXT")
 	c=skmt.ExecQuery("select  COUNT(*) AS CUANTOS from HIST_STAY_OUT ")
 	C.Position = 0
 	If c.GetString("CUANTOS")  = 0 Then
@@ -400,20 +402,20 @@ Sub Entrar_Click
 		If IMEI = "" Then
 			Dim cmd As DBCommand
 			cmd.Initialize
-			cmd.Name = "select_usuario_INTMEX_10" 'Antes select_usuario_guna_GV2_1
+			cmd.Name = "select_usuario_marquez" 'Antes select_usuario_guna_GV2_1
 			cmd.Parameters = Array As Object(user.Text.Trim, pass.Text.Trim)
 			reqManager.ExecuteQuery(cmd , 0, "usuario_10") 'Antes usuario
 		Else
 			If IMEI = "" Then
 				Dim cmd As DBCommand
 				cmd.Initialize
-				cmd.Name = "select_usuario_INTMEX_10"
+				cmd.Name = "select_usuario_marquez"
 				cmd.Parameters = Array As Object(user.Text.Trim, pass.Text.Trim)
 				reqManager.ExecuteQuery(cmd , 0, "usuario_10")
 			Else
 				Dim cmd As DBCommand
 				cmd.Initialize
-				cmd.Name = "select_usuario_INTMEX_10" 'Antes select_usuario_guna_GV2
+				cmd.Name = "select_usuario_marquez" 'Antes select_usuario_guna_GV2
 				cmd.Parameters = Array As Object(user.Text.Trim, pass.Text.trim)
 				Log("Mandamos: "&user.Text&"|"& pass.Text)
 				reqManager.ExecuteQuery(cmd , 0, "usuario_10") 'Antes usuario
@@ -421,7 +423,7 @@ Sub Entrar_Click
 		End If
 		Dim cmd As DBCommand
 		cmd.Initialize
-		cmd.Name = "select_version_INTMEX"
+		cmd.Name = "select_version_MARQUEZ"
 		reqManager.ExecuteQuery(cmd , 0, "version")
 	Else
 		usuario = user.Text
@@ -651,20 +653,20 @@ Sub copiaDB
 	If Result Then
 '		Private x As String
 '		If File.ExternalWritable Then
-'			x = File.DirRootExternal
+'			x = File.DirInternal
 '		Else
 '			x = File.DirInternal
 '		End If
 		Dim theDir As String
 		Try
-			File.MakeDir(File.DirRootExternal,"kmts")
+			File.MakeDir(File.DirInternal,"kmts")
 			theDir = "/kmts"
 		Catch
 			theDir = ""
 		End Try
 		Try
-			File.Copy(File.DirInternal,"kmt.db",File.DirRootExternal&theDir, "intmex_kmt.db")
-			ToastMessageShow("Listo, copiado a " & File.DirRootExternal&theDir & "/intmex_kmt.db", False)
+			File.Copy(File.DirInternal,"kmt.db",File.DirInternal&theDir, "Marquez_kmt.db")
+			ToastMessageShow("Listo, copiado a " & File.DirInternal&theDir & "/Marquez_kmt.db", False)
 		Catch
 			ToastMessageShow("No se pudo hacer la copia: "&LastException, True)
 		End Try
@@ -695,7 +697,7 @@ Sub i_engrane_Click
 	If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1781")
 '	lv_server.AddSingleLine("http://40.123.36.38:1782")
 	Log($"|${Starter.DBReqServer}|"$)
-	l_server.Text = Starter.DBReqServer
+'	l_server.Text = Starter.DBReqServer
 	et_server.Text = Starter.DBReqServer
 	Subs.panelVisible(p_appUpdate,0,0)
 	If user.Text.trim = "KMTS1" Then b_importarBD.Visible = True Else b_importarBD.Visible = False
@@ -715,7 +717,7 @@ End Sub
 
 Private Sub lv_server_ItemClick (Position As Int, Value As Object)
 	Starter.DBReqServer = Value
-	l_server.Text = Value
+'	l_server.Text = Value
 	et_server.Text = Value
 	Starter.reinicializaReqManager(Value)
 '	Starter.reqManager.Initialize(Me, Value)
@@ -732,7 +734,7 @@ Private Sub b_enviarbd_Click
 	File.Copy(File.DirInternal, FileName, Provider.SharedFolder, FileName)
 	Dim email As Email
 	email.To.Add("soporte@keymonsoft.com")
-	email.Subject = "Envio Base de datos INTMEX"
+	email.Subject = "Envio Base de datos Marquez"
 	email.Attachments.Add(Provider.GetFileUri(FileName))
 '	email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment
 	Dim in As Intent = email.GetIntent

B4A/C_Cliente.bas

@@ -79,6 +79,7 @@ Sub Class_Globals
 	Dim S2 As Cursor
 	Private s As Cursor
 	Dim res As String
+	Dim Credi As Cursor
 	Private HIST As Button
 	Private MONTO_COMPRA As String
 	Private META As String
@@ -152,6 +153,11 @@ Sub Class_Globals
 	Dim cuest As C_Cuestionario
 	Private b_ventaabordo As Button
 	Private l_factura As Label
+	Private l_limite As Label
+	Private et_montoacredito As EditText
+	Private b_cancred As Button
+	Private b_acred As Button
+	Private p_credito As Panel
 End Sub
 
 'You can add more parameters here.
@@ -436,32 +442,32 @@ Sub gest_Click
 	End If
 
 	'Buscamos en el historial de cuestionarios si el cliente ya tiene cuestionario contestado.
-	Private hc As Cursor = Starter.skmt.ExecQuery($"select count(HC_CLIENTE) as cuantos from HIST_CUESTIONARIO where HC_CLIENTE = '${Subs.traeCliente}'"$)
-	hc.Position = 0
-	Log($"${cuest.encuestaIniciada} - ${hc.GetString("cuantos")} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
-	
-	If la_cuenta.Text <> "0" And Not(cuest.encuestaIniciada) And hc.GetString("cuantos") = 0 And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
-		cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
-		Return False
-	End If
-	Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select tienda_id from COORDENADAS_GPS where tienda_id = '${la_cuenta.text}'"$)
+'	Private hc As Cursor = Starter.skmt.ExecQuery($"select count(HC_CLIENTE) as cuantos from HIST_CUESTIONARIO where HC_CLIENTE = '${Subs.traeCliente}'"$)
+'	hc.Position = 0
+'	Log($"${cuest.encuestaIniciada} - ${hc.GetString("cuantos")} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
+'	
+'	If la_cuenta.Text <> "0" And Not(cuest.encuestaIniciada) And hc.GetString("cuantos") = 0 And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
+'		cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
+'		Return False
+'	End If
+'	Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select tienda_id from COORDENADAS_GPS where tienda_id = '${la_cuenta.text}'"$)
 '	Log("+++++++++++++  " & x.RowCount)
-	If la_cuenta.Text<> "0" And distance > 50 And x.RowCount = 0 Then
-		Private res As String = Msgbox2("¿Estas en la tienda, para guardar la nueva ubicación?", "AVISO", "Si","" ,"No", Null) 'ignore
-		If res = DialogResponse.POSITIVE Then
-			DateTime.DateFormat = "MM/dd/yyyy"
-			sDate=DateTime.Date(DateTime.Now)
-			sTime=DateTime.Time(DateTime.Now)
-			B4XPages.MainPage.skmt.ExecNonQuery($"insert into COORDENADAS_GPS (tienda_id, ruta, almacen, latitud, longitud, fecha) values ('${la_cuenta.Text}', '${Subs.traeRuta}', '${Subs.traeAlmacen}', '${B4XPages.MainPage.lat_gps}', '${B4XPages.MainPage.lon_gps}', '${sDate} ${sTime}')"$)
-
-			Dim cmd As DBCommand
-			cmd.Initialize
-			cmd.Name = "insert_coords_nuevas_INTMEX"
-			cmd.Parameters = Array As Object(la_cuenta.text, Subs.traeRuta, Subs.traeAlmacen, sDate & " " & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, usuario)
-'			Log($"${la_cuenta.text}, ${Subs.traeRuta}, ${Subs.traeAlmacen}, ${sDate} ${sTime}, ${m_lat}, ${m_lon}"$)
-			reqManager.ExecuteCommand(cmd , "ins_coords_nuevas")
-		End If
-	End If
+'	If la_cuenta.Text<> "0" And distance > 50 And x.RowCount = 0 Then
+'		Private res As String = Msgbox2("¿Estas en la tienda, para guardar la nueva ubicación?", "AVISO", "Si","" ,"No", Null) 'ignore
+'		If res = DialogResponse.POSITIVE Then
+'			DateTime.DateFormat = "MM/dd/yyyy"
+'			sDate=DateTime.Date(DateTime.Now)
+'			sTime=DateTime.Time(DateTime.Now)
+'			B4XPages.MainPage.skmt.ExecNonQuery($"insert into COORDENADAS_GPS (tienda_id, ruta, almacen, latitud, longitud, fecha) values ('${la_cuenta.Text}', '${Subs.traeRuta}', '${Subs.traeAlmacen}', '${B4XPages.MainPage.lat_gps}', '${B4XPages.MainPage.lon_gps}', '${sDate} ${sTime}')"$)
+'
+'			Dim cmd As DBCommand
+'			cmd.Initialize
+'			cmd.Name = "insert_coords_nuevas_INTMEX"
+'			cmd.Parameters = Array As Object(la_cuenta.text, Subs.traeRuta, Subs.traeAlmacen, sDate & " " & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, usuario)
+''			Log($"${la_cuenta.text}, ${Subs.traeRuta}, ${Subs.traeAlmacen}, ${sDate} ${sTime}, ${m_lat}, ${m_lon}"$)
+'			reqManager.ExecuteCommand(cmd , "ins_coords_nuevas")
+'		End If
+'	End If
 	'Si hay mapa de productos es que hay venta en proceso, entonces borramos la actual para meter la nueva.
 '	If B4XPages.MainPage.productos.prodsMap.IsInitialized And B4XPages.MainPage.productos.prodsMap.Size > 0 Then Subs.borraPedidoClienteActual
 	B4XPages.ShowPage("productos")
@@ -514,6 +520,28 @@ Sub DATOS_Click
 End Sub
 
 Sub Guardar_Click	
+	If la_cuenta.Text <> 0 Then
+		Credi = B4XPages.MainPage.skmt.ExecQuery("Select CAT_CL_BCREDITO FROM kmt_info Where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
+		Credi.Position = 0
+		If Credi.GetString("CAT_CL_BCREDITO") = "1" Then
+			Msgbox2Async("La venta es a credito?", "ATENCION","SI","", "NO",LoadBitmap(File.DirAssets,"alert2.png"), False)
+			Wait For Msgbox_Result (resultado As Int)
+			If resultado = DialogResponse.POSITIVE Then
+				p_credito.Visible = True
+			End If
+		Else If Credi.GetString("CAT_CL_BCREDITO") = "0" Then
+			
+		End If
+	Else
+'		GuardaVenta
+	End If
+	
+	
+	
+
+End Sub
+
+Sub GuardaVenta
 	DateTime.DateFormat = "MM/dd/yyyy"
 	sDate=DateTime.Date(DateTime.Now)
 	sTime=DateTime.Time(DateTime.Now)
@@ -527,7 +555,7 @@ Sub Guardar_Click
 	c.Close
 	c=B4XPages.MainPage.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
-'	Log("xxxxxxxxxxxxxxx   " & c.GetString("CUANTOS"))
+	'	Log("xxxxxxxxxxxxxxx   " & c.GetString("CUANTOS"))
 	If c.GetString("CUANTOS") > 0 Then
 		Private cbFactura As Int = 0
 		If cb_factura.Checked Then cbFactura = 1
@@ -558,12 +586,12 @@ Sub Guardar_Click
 	Catch
 		ToastMessageShow(".",True)
 	End Try
-
+	
 	skmt.ExecNonQuery2("update PEDIDO_INICIO_FINAL set PIF_HORA_FINAL = ? where PIF_CLIENTE = ? and PIF_HORA_FINAL = 0", Array As Object (DateTime.Now, la_cuenta.Text))
-'	LogColor($"actualizamos "${la_cuenta.text},  hora_final=${DateTime.now}"$,Colors.Red)
+	'	LogColor($"actualizamos "${la_cuenta.text},  hora_final=${DateTime.now}"$,Colors.Red)
 	Subs.actualizaTET(la_cuenta.text)
 	DateTime.TimeFormat = "HH:mm:ss"
-
+	
 	mandaPendientes 'LO COMENTAMOS PARA PRUEBAS, ACTIVAR AL FINAL!!!
 	mandapiezas
 	B4XPages.MainPage.productos.reiniciarlistaProds = True
@@ -866,7 +894,7 @@ Sub mandaPendientes
 				Log($"${c.GetString("PC_CLIENTE")}|${c.GetString("PC_FECHA")}|${c.GetString("PC_ENVIO_OK")}|"$)
 				Dim cmd As DBCommand
 				cmd.Initialize
-				cmd.Name = "insert_pedidos_INTMEX"
+				cmd.Name = "insert_pedidos_MARQUEZ"
 				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"), Subs.traeAlmacen, B4XPages.MainPage.principal.l_ruta.text, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"))
 				PCNoArts = c.GetString("PC_NOART")
 				PCMonto = c.GetString("PC_MONTO")
@@ -883,8 +911,8 @@ Sub mandaPendientes
 				c.Position=i
 				Dim cmd As DBCommand
 				cmd.Initialize
-				cmd.Name = "insert_pedido2_INTMEX"
-				cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),ALMACEN,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO"), PCNoArts, PCMonto)
+				cmd.Name = "insert_pedido2_MARQUEZ"
+				cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),ALMACEN,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO"))
 				reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}"$)
 				Log($">>>>  INS_PEDIDO= ${C.GetString("PE_CEDIS")},${ALMACEN},${C.GetString("PE_COSTO_TOT")},${C.GetString("PE_COSTOU")},${C.GetString("PE_CANT")}, ${C.GetString("PE_PRONOMBRE")}, ${C.GetString("PE_PROID")}, ${C.GetString("PE_CLIENTE")}, ${C.GetString("PE_FECHA")}, ${C.GetString("PE_USUARIO")}, ${C.GetString("PE_RUTA")}, ${C.GetString("PE_COSTO_SIN")}, ${C.GetString("PE_DESC")}, ${c.GetString("PE_FOLIO")}, ${PCNoArts}, ${PCMonto}"$)
 '				sql.insert_pedido_INTMEX=INSERT INTO INTMEX.PEDIDO (PE_CODPROMO,PE_FECHA_SINC,PE_IDALMACEN,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_DESCUENTO, PE_TIPO) VALUES ((?),SYSDATE,(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),nvl((?),0),(?))
@@ -900,7 +928,7 @@ Sub mandaPendientes
 				ab.Position = i
 				Dim cmd As DBCommand
 				cmd.Initialize
-				cmd.Name = "insert_abono_INTMEX"
+				cmd.Name = "insert_abono_MARQUEZ"
 				cmd.Parameters = Array As Object( ab.GetString("a_usuario"), ab.GetString("a_ruta"), ab.GetString("a_cliente"), ab.GetString("a_abono"), ab.GetString("a_fecha"),ALMACEN )
 				reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
 				Log($"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
@@ -917,7 +945,7 @@ Sub mandaPendientes
 				bb.Position = i
 				Dim cmd As DBCommand
 				cmd.Initialize
-				cmd.Name = "insert_cliente_INTMEX"
+				cmd.Name = "insert_cliente_MARQUEZ"
 				cmd.Parameters = Array As Object( bb.GetString("CN_ID_CLIENTE"), bb.GetString("CN_NOMBRE"),B4XPages.MainPage.principal.l_ruta.Text,cb.GetString("ID_ALMACEN"))
 				reqManager.ExecuteCommand(cmd , $"insert_cliente_${bb.GetString("CN_ID_CLIENTE")}"$)
 				Log($"insert_cliente_${bb.GetString("CN_ID_CLIENTE")}"$)
@@ -943,22 +971,22 @@ Sub mandaPendientes
 '		End If
 '		c.Close
 
-'		CUESTIONARIO (Pendientes)
-		c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM CUESTIONARIO where ifnull(Q_ENVIO_OK, 0) = 0 order by Q_IDCLIENTE, Q_IDPREGUNTA; Q_IDRESPUESTA")
-		Private rutaActual As String = Subs.traeRuta
-		Log("CUEST PENDIENTES: " & c.RowCount)
-		If c.RowCount > 0 Then
-			For x = 0 To c.RowCount - 1
-				c.Position = x
-				Log($"insert_cuestionario_${c.GetString("Q_IDCLIENTE")}_${c.GetString("Q_IDPREGUNTA")}_${c.GetString("Q_IDRESPUESTA")}"$)
-				Dim cmd As DBCommand
-				cmd.Initialize
-				cmd.Name = "insert_CUESTIONARIO_INTMEX"
-				cmd.Parameters = Array As Object(c.GetString("Q_IDCLIENTE"), rutaActual, ALMACEN, c.GetString("Q_FECHA"), c.GetString("Q_IDPREGUNTA"), c.GetString("Q_PREGUNTA"), c.GetString("Q_IDRESPUESTA"), C.GetString("Q_RESPUESTA"))
-				reqManager.ExecuteCommand(cmd , $"insert_cuestionario_${c.GetString("Q_IDCLIENTE")}_${c.GetString("Q_IDPREGUNTA")}_${c.GetString("Q_IDRESPUESTA")}"$)
-			Next
-		End If
-		c.Close
+''		CUESTIONARIO (Pendientes)
+'		c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM CUESTIONARIO where ifnull(Q_ENVIO_OK, 0) = 0 order by Q_IDCLIENTE, Q_IDPREGUNTA; Q_IDRESPUESTA")
+'		Private rutaActual As String = Subs.traeRuta
+'		Log("CUEST PENDIENTES: " & c.RowCount)
+'		If c.RowCount > 0 Then
+'			For x = 0 To c.RowCount - 1
+'				c.Position = x
+'				Log($"insert_cuestionario_${c.GetString("Q_IDCLIENTE")}_${c.GetString("Q_IDPREGUNTA")}_${c.GetString("Q_IDRESPUESTA")}"$)
+'				Dim cmd As DBCommand
+'				cmd.Initialize
+'				cmd.Name = "insert_CUESTIONARIO_INTMEX"
+'				cmd.Parameters = Array As Object(c.GetString("Q_IDCLIENTE"), rutaActual, ALMACEN, c.GetString("Q_FECHA"), c.GetString("Q_IDPREGUNTA"), c.GetString("Q_PREGUNTA"), c.GetString("Q_IDRESPUESTA"), C.GetString("Q_RESPUESTA"))
+'				reqManager.ExecuteCommand(cmd , $"insert_cuestionario_${c.GetString("Q_IDCLIENTE")}_${c.GetString("Q_IDPREGUNTA")}_${c.GetString("Q_IDRESPUESTA")}"$)
+'			Next
+'		End If
+'		c.Close
 	End If
 End Sub
 
@@ -968,11 +996,11 @@ Sub mandapiezas
 		Dim PCMonto As String
 		c = skmt.ExecQuery2("SELECT * FROM PEDIDO_CLIENTE WHERE PC_CLIENTE = ?", Array As String(la_cuenta.Text))
 		If c.RowCount > 0 Then
-			c.Position = 0 
+			c.Position = 0
 			Log(la_cuenta.Text&", "& ALMACEN&", "& LA_RUTA)
 			Dim cmd As DBCommand
 			cmd.Initialize
-			cmd.Name = "select_piezas_INTMEX"
+			cmd.Name = "select_piezas_MARQUEZ"
 			cmd.Parameters = Array As Object(la_cuenta.Text, ALMACEN, LA_RUTA)
 			reqManager.ExecuteQuery(cmd , 0, "piezas")
 			
@@ -1035,7 +1063,7 @@ Sub JobDone(Job As HttpJob)
 						
 						Dim cmd As DBCommand
 						cmd.Initialize
-						cmd.Name = "insert_HVC_INTMEX"
+						cmd.Name = "insert_HVC_MARQUEZ"
 						cmd.Parameters = Array As Object((sDate & " " & sTime), la_cuenta.Text, PCNoArts, PCMonto, ALMACEN, LA_RUTA)
 						reqManager.ExecuteCommand(cmd , "insert_hvc")
 '						reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
@@ -1051,7 +1079,7 @@ Sub JobDone(Job As HttpJob)
 							PCMonto = c.GetString("PC_MONTO")
 						End If
 						cmd.Initialize
-						cmd.Name = "update_HVC_INTMEX"
+						cmd.Name = "update_HVC_MARQUEZ"
 						cmd.Parameters = Array As Object((sDate & " " & sTime), la_cuenta.Text, PCNoArts, PCMonto, ALMACEN, LA_RUTA, la_cuenta.Text, ALMACEN, LA_RUTA)
 						reqManager.ExecuteCommand(cmd, "update_hvc")
 							
@@ -1307,31 +1335,31 @@ Private Sub b_ventaabordo_Click
 '	B4XPages.MainPage.productos.clv_prods_ll.Clear
 '	End If
 		'Buscamos en el historial de cuestionarios si el cliente ya tiene cuestionario contestado.
-		Private hc As Cursor = Starter.skmt.ExecQuery($"select count(HC_CLIENTE) as cuantos from HIST_CUESTIONARIO where HC_CLIENTE = '${Subs.traeCliente}'"$)
-		hc.Position = 0
-		Log($"${cuest.encuestaIniciada} - ${hc.GetString("cuantos")} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
-		If Not(cuest.encuestaIniciada) And hc.GetString("cuantos") = 0 And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
-			cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
-			Return False
-		End If
-		Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select tienda_id from COORDENADAS_GPS where tienda_id = '${la_cuenta.text}'"$)
-'	Log("+++++++++++++  " & x.RowCount)
-		If distance > 50 And x.RowCount = 0 Then
-			Private res As String = Msgbox2("¿Estas en la tienda, para guardar la nueva ubicación?", "AVISO", "Si","" ,"No", Null) 'ignore
-			If res = DialogResponse.POSITIVE Then
-				DateTime.DateFormat = "MM/dd/yyyy"
-				sDate=DateTime.Date(DateTime.Now)
-				sTime=DateTime.Time(DateTime.Now)
-				B4XPages.MainPage.skmt.ExecNonQuery($"insert into COORDENADAS_GPS (tienda_id, ruta, almacen, latitud, longitud, fecha) values ('${la_cuenta.Text}', '${Subs.traeRuta}', '${Subs.traeAlmacen}', '${B4XPages.MainPage.lat_gps}', '${B4XPages.MainPage.lon_gps}', '${sDate} ${sTime}')"$)
-
-				Dim cmd As DBCommand
-				cmd.Initialize
-				cmd.Name = "insert_coords_nuevas_INTMEX"
-				cmd.Parameters = Array As Object(la_cuenta.text, Subs.traeRuta, Subs.traeAlmacen, sDate & " " & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, usuario)
-'			Log($"${la_cuenta.text}, ${Subs.traeRuta}, ${Subs.traeAlmacen}, ${sDate} ${sTime}, ${m_lat}, ${m_lon}"$)
-				reqManager.ExecuteCommand(cmd , "ins_coords_nuevas")
-			End If
-		End If
+'		Private hc As Cursor = Starter.skmt.ExecQuery($"select count(HC_CLIENTE) as cuantos from HIST_CUESTIONARIO where HC_CLIENTE = '${Subs.traeCliente}'"$)
+'		hc.Position = 0
+'		Log($"${cuest.encuestaIniciada} - ${hc.GetString("cuantos")} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
+'		If Not(cuest.encuestaIniciada) And hc.GetString("cuantos") = 0 And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
+'			cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
+'			Return False
+'		End If
+'		Private x As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select tienda_id from COORDENADAS_GPS where tienda_id = '${la_cuenta.text}'"$)
+''	Log("+++++++++++++  " & x.RowCount)
+'		If distance > 50 And x.RowCount = 0 Then
+'			Private res As String = Msgbox2("¿Estas en la tienda, para guardar la nueva ubicación?", "AVISO", "Si","" ,"No", Null) 'ignore
+'			If res = DialogResponse.POSITIVE Then
+'				DateTime.DateFormat = "MM/dd/yyyy"
+'				sDate=DateTime.Date(DateTime.Now)
+'				sTime=DateTime.Time(DateTime.Now)
+'				B4XPages.MainPage.skmt.ExecNonQuery($"insert into COORDENADAS_GPS (tienda_id, ruta, almacen, latitud, longitud, fecha) values ('${la_cuenta.Text}', '${Subs.traeRuta}', '${Subs.traeAlmacen}', '${B4XPages.MainPage.lat_gps}', '${B4XPages.MainPage.lon_gps}', '${sDate} ${sTime}')"$)
+'
+'				Dim cmd As DBCommand
+'				cmd.Initialize
+'				cmd.Name = "insert_coords_nuevas_INTMEX"
+'				cmd.Parameters = Array As Object(la_cuenta.text, Subs.traeRuta, Subs.traeAlmacen, sDate & " " & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, usuario)
+''			Log($"${la_cuenta.text}, ${Subs.traeRuta}, ${Subs.traeAlmacen}, ${sDate} ${sTime}, ${m_lat}, ${m_lon}"$)
+'				reqManager.ExecuteCommand(cmd , "ins_coords_nuevas")
+'			End If
+'		End If
 		'Si hay mapa de productos es que hay venta en proceso, entonces borramos la actual para meter la nueva.
 '	If B4XPages.MainPage.productos.prodsMap.IsInitialized And B4XPages.MainPage.productos.prodsMap.Size > 0 Then Subs.borraPedidoClienteActual
 		B4XPages.ShowPage("productos")
@@ -1343,4 +1371,12 @@ Private Sub b_ventaabordo_Click
 	
 	End If
 
+End Sub
+
+Private Sub b_acred_Click
+	
+End Sub
+
+Private Sub b_cancred_Click
+	
 End Sub

B4A/C_NoVenta.bas

@@ -140,7 +140,7 @@ Sub mandaPendientesnoventa
 			c.Position=i
 			Dim cmd As DBCommand
 			cmd.Initialize
-			cmd.Name = "insert_noventa_INTMEX"
+			cmd.Name = "insert_noventa_MARQUEZ"
 			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,(?),(?),(?),(?),(?),(?),(?),(?),(?))

B4A/C_Principal.bas

@@ -213,6 +213,7 @@ Sub Class_Globals
 	Private L_ABORDO As Label
 	Private L_VENTA As Label
 	Private L_PREVENTA As Label
+	Private p_abordo As Panel
 End Sub
 
 'You can add more parameters here.
@@ -529,9 +530,9 @@ Sub B4XPage_Appear
 	End If
 	
 	If l_ruta.Text = "0" Then
-		b_abordo.Visible = False
+		p_abordo.Visible = False
 	Else 
-		b_abordo.Visible = True
+		p_abordo.Visible = True
 	End If
 	
 End Sub
@@ -584,7 +585,7 @@ Sub Subir_Click
 				c.Position=i
 				Dim cmd As DBCommand
 				cmd.Initialize
-				cmd.Name = "UPDATE_INTMEX_ACTUAL2_GPS"
+				cmd.Name = "UPDATE_MARQUEZ_ACTUAL2_GPS"
 				cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,c.GetString("hglat"),c.GetString("hglon"),batterystatus(0),LPT, STEYIN, STEYOUT,ALMACEN,l_ruta.Text )
 				reqManager.ExecuteCommand(cmd , "update_gps")
 			Next
@@ -599,7 +600,7 @@ Sub Subir_Click
 				c.Position=i
 				Dim cmd As DBCommand
 				cmd.Initialize
-				cmd.Name = "insert_QR_2_INTMEX"
+				cmd.Name = "insert_QR_2_MARQUEZ"
 				cmd.Parameters = Array As Object(C.GetString("CODIGOKMTS"),C.GetString("CODIGOB"),C.GetString("LON"),C.GetString("LAT"),ALMACEN,l_ruta.text )
 				reqManager.ExecuteCommand(cmd , "ins_QR")
 			Next
@@ -615,8 +616,8 @@ Sub Subir_Click
 				foto1 = c.GetBlob("CAT_CL_FOTO")
 				Dim cmd As DBCommand
 				cmd.Initialize
-				cmd.Name = "insert_QR_INTMEX"
-				cmd.Parameters = Array As Object(C.GetString("CAT_CL_NUM_SERIEFISICO"),C.GetString("CAT_CL_CODIGO"),C.GetString("CAT_CL_LONG"),C.GetString("CAT_CL_LAT"),ALMACEN,l_ruta.text, foto1 )
+				cmd.Name = "insert_QR_MARQUEZ"
+				cmd.Parameters = Array As Object(C.GetString("CAT_CL_NUM_SERIEFISICO"),C.GetString("CAT_CL_CODIGO"),C.GetString("CAT_CL_LONG"),C.GetString("CAT_CL_LAT"),ALMACEN,l_ruta.text )
 				reqManager.ExecuteCommand(cmd , "ins_QR")
 			Next
 		End If
@@ -645,7 +646,7 @@ Sub Subir_Click
 				c.Position = i
 				Dim cmd As DBCommand
 				cmd.Initialize
-				cmd.Name = "insert_pedidos_INTMEX"
+				cmd.Name = "insert_pedidos_MARQUEZ"
 				PCNoArts = c.GetString("PC_NOART")
 				PCMonto = c.GetString("PC_MONTO")
 				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"), ALMACEN, l_ruta.text, c.GetString("PC_COSTO_SIN"), c.GetString("PC_FACTURA"))
@@ -666,8 +667,9 @@ Sub Subir_Click
 				c.Position = i
 				Dim cmd As DBCommand
 				cmd.Initialize
-				cmd.Name = "insert_pedido2_INTMEX" 'CON TOTALES INCLUIDOS
-				cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),ALMACEN,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO"), PCNoArts, PCMonto)
+				cmd.Name = "insert_pedido2_MARQUEZ" 'CON TOTALES INCLUIDOS
+				Log(C.GetString("PE_CEDIS")&", "&ALMACEN&", "&C.GetString("PE_COSTO_TOT")&", "&C.GetString("PE_COSTOU")&", "&C.GetString("PE_CANT")&", "&C.GetString("PE_PRONOMBRE")&", "&C.GetString("PE_PROID")&", "&C.GetString("PE_CLIENTE")&", "&C.GetString("PE_FECHA")&", "&C.GetString("PE_USUARIO")&", "&C.GetString("PE_RUTA")&", "& C.GetString("PE_COSTO_SIN")&", "&C.GetString("PE_DESC")&", "&c.GetString("PE_FOLIO")&", "& ALMACEN)
+				cmd.Parameters = Array As Object(C.GetString("PE_CEDIS"),ALMACEN,C.GetString("PE_COSTO_TOT"),C.GetString("PE_COSTOU"),C.GetString("PE_CANT"),C.GetString("PE_PRONOMBRE"),C.GetString("PE_PROID"),C.GetString("PE_CLIENTE"),C.GetString("PE_FECHA"),C.GetString("PE_USUARIO"),C.GetString("PE_RUTA"), C.GetString("PE_COSTO_SIN"),C.GetString("PE_DESC"),c.GetString("PE_FOLIO"))
 				reqManager.ExecuteCommand(cmd , $"ins_pedidosPendientes_prods_${c.GetString("PE_CLIENTE")}_${c.GetString("PE_PROID")}"$)
 '				Log($">>>>  INS_PEDIDO= ${C.GetString("PE_CEDIS")},${ALMACEN},${C.GetString("PE_COSTO_TOT")},${C.GetString("PE_COSTOU")},${C.GetString("PE_CANT")}, ${C.GetString("PE_PRONOMBRE")}, ${C.GetString("PE_PROID")}, ${C.GetString("PE_CLIENTE")}, ${C.GetString("PE_FECHA")}, ${C.GetString("PE_USUARIO")}, ${C.GetString("PE_RUTA")}, ${C.GetString("PE_COSTO_SIN")}, ${C.GetString("PE_DESC")}, ${c.GetString("PE_FOLIO")}, ${PCNoArts}, ${PCMonto}"$)
 '				cmd.Name = "insert_pedido_INTMEX"  ' SIN TOTALES INCLUIDOS
@@ -688,7 +690,7 @@ Sub Subir_Click
 				c.Position=i
 				Dim cmd As DBCommand
 				cmd.Initialize
-				cmd.Name = "insert_noventa_INTMEX"
+				cmd.Name = "insert_noventa_MARQUEZ"
 				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"), ALMACEN, l_ruta.Text)
 				reqManager.ExecuteCommand(cmd , "inst_noventa")
 			Next
@@ -705,7 +707,7 @@ Sub Subir_Click
 				c.Position=i
 				Dim cmd As DBCommand
 				cmd.Initialize
-				cmd.Name = "insert_geocerca_INTMEX"
+				cmd.Name = "insert_geocerca_MARQUEZ"
 				cmd.Parameters = Array As Object(C.GetString("HGCLIENTE"),C.GetString("HGDATE"),C.GetString("HGLAT"),C.GetString("HGLON"))
 				reqManager.ExecuteCommand(cmd , "inst_noventa")
 			Next
@@ -719,7 +721,7 @@ Sub Subir_Click
 				c.Position=i
 				Dim cmd As DBCommand
 				cmd.Initialize
-				cmd.Name = "insert_face_like_INTMEX"
+				cmd.Name = "insert_face_like_MARQUEZ"
 				cmd.Parameters = Array As Object(C.GetString("HFCLIENTE"),C.GetString("HFALIAS"),C.GetString("HFRUTA"),C.GetString("HFALMACEN"))
 				reqManager.ExecuteCommand(cmd , "inst_noventa")
 			Next
@@ -735,27 +737,27 @@ Sub Subir_Click
 		sTime=DateTime.Time(DateTime.Now)
 		Dim cmd As DBCommand
 		cmd.Initialize
-		cmd.Name ="insert_drop_INTMEX_2"
+		cmd.Name ="insert_drop_MARQUEZ"
 		cmd.Parameters = Array As Object(usuario,l_ruta.Text,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",ALMACEN)
 		reqManager.ExecuteCommand(cmd , "inst_noventa")
 		img2.Visible =True
 		PORCENTAJE = Round(100/ (cuantos_noventa + cuantos_pedido + cuantos_pedidosc + 1))
 		If Starter.marcaCel <> "Sony" Then ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
 
-		'CUESTIONARIOS
-		c = B4XPages.MainPage.skmt.ExecQuery($"select * from cuestionario"$)
-		Private rutaActual As String = Subs.traeRuta
-		If c.RowCount > 0 Then
-			For x = 0 To c.RowCount - 1
-				c.Position = x
-				Dim cmd As DBCommand
-				cmd.Initialize
-				cmd.Name = "insert_CUESTIONARIO_INTMEX"
-				cmd.Parameters = Array As Object(c.GetString("Q_IDCLIENTE"), rutaActual, ALMACEN, c.GetString("Q_FECHA"), c.GetString("Q_IDPREGUNTA"), c.GetString("Q_PREGUNTA"), c.GetString("Q_IDRESPUESTA"), C.GetString("Q_RESPUESTA"))
-				reqManager.ExecuteCommand(cmd , "ins_cuestionario")
-			Next
-		End If
-		c.Close
+'		'CUESTIONARIOS
+'		c = B4XPages.MainPage.skmt.ExecQuery($"select * from cuestionario"$)
+'		Private rutaActual As String = Subs.traeRuta
+'		If c.RowCount > 0 Then
+'			For x = 0 To c.RowCount - 1
+'				c.Position = x
+'				Dim cmd As DBCommand
+'				cmd.Initialize
+'				cmd.Name = "insert_CUESTIONARIO_INTMEX"
+'				cmd.Parameters = Array As Object(c.GetString("Q_IDCLIENTE"), rutaActual, ALMACEN, c.GetString("Q_FECHA"), c.GetString("Q_IDPREGUNTA"), c.GetString("Q_PREGUNTA"), c.GetString("Q_IDRESPUESTA"), C.GetString("Q_RESPUESTA"))
+'				reqManager.ExecuteCommand(cmd , "ins_cuestionario")
+'			Next
+'		End If
+'		c.Close
 		
 		
 		c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM PEDIDO_CLIENTE")
@@ -764,7 +766,7 @@ Sub Subir_Click
 				c.Position = i
 				Dim cmd As DBCommand
 				cmd.Initialize
-				cmd.Name = "select_piezas_INTMEX"
+				cmd.Name = "select_piezas_MARQUEZ"
 				cmd.Parameters = Array As Object(c.GetString("PC_CLIENTE"), ALMACEN,l_ruta.Text)
 				userpiezas = c.GetString("PC_CLIENTE")
 				reqManager.ExecuteQuery(cmd , 0, "piezas")
@@ -874,17 +876,17 @@ Sub cargar_Click
 '	imei = P.GetDeviceId
 		imei = "xxxx"
 		cmd.Initialize
-		cmd.Name ="insert_drop_INTMEX_2"
+		cmd.Name ="insert_drop_MARQUEZ"
 		cmd.Parameters = Array As Object(usuario,e_ruta.text,sDate,imei,sTime,"","","","","CARGA",ALMACEN)
 		reqManager.ExecuteCommand(cmd , "inst_noventa")
 
 		cmd.Initialize
-		cmd.Name = "select_cat_gunaprod_INTMEX"
+		cmd.Name = "select_cat_gunaprod_MARQUEZ"
 		cmd.Parameters = Array As Object(ALMACEN)
 		reqManager.ExecuteQuery(cmd , 0, "gunaprod")
 		
 		cmd.Initialize
-		cmd.Name = "select_cat_gunaprod2_INTMEX"
+		cmd.Name = "select_cat_gunaprod2_MARQUEZ"
 		cmd.Parameters = Array As Object(ALMACEN,e_ruta.Text)
 		reqManager.ExecuteQuery(cmd , 0, "gunaprod2")
 
@@ -894,48 +896,48 @@ Sub cargar_Click
 '	reqManager.ExecuteQuery(cmd , 0, "resum_apk") ''' donde regresa la info ver job_done
 
 		cmd.Initialize
-		cmd.Name = "select_cat_paquetes_INTMEX3"
+		cmd.Name = "select_cat_paquetes_MARQUEZ"
 		cmd.Parameters = Array As Object(ALMACEN)
 		reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
 '		Log("ALMACEN = " & ALMACEN)
 
 		cmd.Initialize
-		cmd.Name = "select_cat_paquetess_INTMEX"
+		cmd.Name = "select_cat_paquetess_MARQUEZ"
 		cmd.Parameters = Array As Object(ALMACEN)
 		reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
 
 		cmd.Initialize
-		cmd.Name = "select_cat_detallepa_INTMEX"
+		cmd.Name = "select_cat_detallepa_MARQUEZ"
 		cmd.Parameters = Array As Object(ALMACEN)
 		reqManager.ExecuteQuery(cmd , 0, "detallepaq")
 
 		cmd.Initialize
-		cmd.Name = "select_cat_clientes_INTMEX"
+		cmd.Name = "select_cat_clientes_MARQUEZ"
 		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
 		reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
 
-		cmd.Initialize
-		cmd.Name = "select_cat_clientes_todos_INTMEX"
-		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
-		reqManager.ExecuteQuery(cmd , 0, "kmt_datos_todos")
+'		cmd.Initialize
+'		cmd.Name = "select_cat_clientes_todos_MARQUEZ"
+'		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
+'		reqManager.ExecuteQuery(cmd , 0, "kmt_datos_todos")
 
 		cmd.Initialize
-		cmd.Name = "select_hist_datos_INTMEX_2"
+		cmd.Name = "select_hist_datos_MARQUEZ"
 		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,e_ruta.text, ALMACEN)
 		reqManager.ExecuteQuery(cmd , 0, "hist_datos")
 
 		cmd.Initialize
-		cmd.Name = "select_hist_promos_INTMEX"
+		cmd.Name = "select_hist_promos_MARQUEZ"
 		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
 		reqManager.ExecuteQuery(cmd , 0, "hist_promos")
 
-		cmd.Initialize
-		cmd.Name = "select_clientes_cuestionario_INTMEX"
-		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
-		reqManager.ExecuteQuery(cmd , 0, "clientes_cuestionario")
+'		cmd.Initialize
+'		cmd.Name = "select_clientes_cuestionario_MARQUEZ"
+'		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
+'		reqManager.ExecuteQuery(cmd , 0, "clientes_cuestionario")
 
 		cmd.Initialize
-		cmd.Name = "select_hist_cliente_promos_INTMEX"
+		cmd.Name = "select_hist_cliente_promos_MARQUEZ"
 		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
 		reqManager.ExecuteQuery(cmd , 0, "hist_cliente_promos")
 		
@@ -953,33 +955,33 @@ Sub cargar_Click
 			ImageView9.Visible = False
 			
 			cmd.Initialize
-			cmd.Name = "select_cat_clientes_INTMEX"
+			cmd.Name = "select_cat_clientes_MARQUEZ"
 			cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
 			reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
 			
-			cmd.Initialize
-			cmd.Name = "select_cat_clientes_todos_INTMEX"
-			cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
-			reqManager.ExecuteQuery(cmd , 0, "kmt_datos_todos")
+'			cmd.Initialize
+'			cmd.Name = "select_cat_clientes_todos_MARQUEZ"
+'			cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
+'			reqManager.ExecuteQuery(cmd , 0, "kmt_datos_todos")
 	
 			cmd.Initialize
-			cmd.Name = "select_hist_datos_INTMEX"
+			cmd.Name = "select_hist_datos_MARQUEZ"
 			cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
 			reqManager.ExecuteQuery(cmd , 0, "hist_datos")
 	
 			cmd.Initialize
-			cmd.Name = "select_hist_promos_INTMEX"
+			cmd.Name = "select_hist_promos_MARQUEZ"
 			cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
 			reqManager.ExecuteQuery(cmd , 0, "hist_promos")
 	
 			cmd.Initialize
-			cmd.Name = "select_hist_cliente_promos_INTMEX"
+			cmd.Name = "select_hist_cliente_promos_MARQUEZ"
 			cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
 			reqManager.ExecuteQuery(cmd , 0, "hist_cliente_promos")
 		End If
 
 		cmd.Initialize
-		cmd.Name = "select_promo_comp_INTMEX"
+		cmd.Name = "select_promo_comp_MARQUEZ"
 		cmd.Parameters = Array As Object(ALMACEN)
 		reqManager.ExecuteQuery(cmd , 0, "hist_comp_promos")
 	
@@ -994,17 +996,17 @@ Sub cargar_Click
 		reqManager.ExecuteQuery(cmd , 0, "fecha")
 	
 		cmd.Initialize
-		cmd.Name = "select_folio_INTMEX"
-		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
+		cmd.Name = "select_folio_MARQUEZ"
+		cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
 		reqManager.ExecuteQuery(cmd , 0, "folio")
 	
 		cmd.Initialize
-		cmd.Name = "select_abonosp_INTMEX"
+		cmd.Name = "select_abonosp_MARQUEZ"
 		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
 		reqManager.ExecuteQuery(cmd , 0, "select_abonosp")
 	
 		cmd.Initialize
-		cmd.Name = "select_marcas_rutas_INTMEX"
+		cmd.Name = "select_marcas_rutas_MARQUEZ"
 		cmd.Parameters = Array As Object( ALMACEN, e_ruta.text)
 		reqManager.ExecuteQuery(cmd , 0, "marcas_rutas")
 	
@@ -1019,12 +1021,12 @@ Sub cargar_Click
 '	reqManager.ExecuteQuery(cmd , 0, "CUOTAS")
 
 		cmd.Initialize
-		cmd.Name = "select_comis_cedex_INTMEX"
+		cmd.Name = "select_comis_cedex_MARQUEZ"
 		cmd.Parameters = Array As Object( ALMACEN, e_ruta.text )
 		reqManager.ExecuteQuery(cmd , 0, "COMISIONES")
 	
 		cmd.Initialize
-		cmd.Name = "select_hist_avance_INTMEX" 'select * from HIST_AVANCE_MESACTUAL where HIST_AM_RUTA = ? and HIST_AM_IDALMACEN order by HIST_AM_MARCA
+		cmd.Name = "select_hist_avance_MARQUEZ" 'select * from HIST_AVANCE_MESACTUAL where HIST_AM_RUTA = ? and HIST_AM_IDALMACEN order by HIST_AM_MARCA
 		cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
 		LogColor($"HIST_AVANCE Ruta=|${e_ruta.text}|, almacen=|${ALMACEN}|"$, Colors.Red)
 		reqManager.ExecuteQuery(cmd , 0, "hist_avance")
@@ -1050,7 +1052,7 @@ Sub JobDone(Job As HttpJob)
 	End If
 	If Job.Success = False Then
 		Log("ERROR")
-'		LogColor("Error: " & reqManager.HandleJob(Job).tag & " : " & Job.ErrorMessage, Colors.red)
+		LogColor("Error: " & reqManager.HandleJob(Job).tag & " : " & Job.ErrorMessage, Colors.red)
 		Log("ex")
 		Log(2)
 '		Job.Release
@@ -1123,7 +1125,9 @@ Sub JobDone(Job As HttpJob)
 					Dim CAT_CL_LAT As String = records(RESULT.Columns.Get("CAT_CL_LAT"))
 					Dim CAT_CL_MTOCOMPRA As String = records(RESULT.Columns.Get("CAT_CL_MTOCOMPRA"))
 					Dim CAT_CL_NUM_SERIEFISICO As String = records(RESULT.Columns.Get("CAT_CL_NUM_SERIEFISICO"))
-					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO))
+					Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
+					Dim CAT_CL_LIMITECREDITO As String = records(RESULT.Columns.Get("CAT_CL_LIMITECREDITO"))
+					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,? ,?,0)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO))
 					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO,  HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
 				Next
 				Starter.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0) ",Array As Object ("0",e_ruta.TEXT, "VENTA ABORDO","null","null","null","null","null","null","null","null","null","null","null","null","NULL","null","NULL"))
@@ -1167,7 +1171,7 @@ Sub JobDone(Job As HttpJob)
 						
 						Dim cmd As DBCommand
 						cmd.Initialize
-						cmd.Name = "insert_HVC_INTMEX"
+						cmd.Name = "insert_HVC_MARQUEZ"
 						cmd.Parameters = Array As Object((sDate & " " & sTime), userpiezas, PCNoArts, PCMonto, ALMACEN, l_ruta.Text)
 						reqManager.ExecuteCommand(cmd , "insert_hvc")
 '						reqManager.ExecuteCommand(cmd , $"ins_abonosPendientes_${ab.GetString("a_cliente")}"$)
@@ -1179,6 +1183,8 @@ Sub JobDone(Job As HttpJob)
 			End If
 		End If
 		
+		
+		
 		If Job.JobName = "DBRequest" Then
 			Dim RESULT As DBResult = reqManager.HandleJob(Job)
 			If RESULT.Tag = "kmt_datos_todos" Then 'query tag
@@ -1204,8 +1210,10 @@ Sub JobDone(Job As HttpJob)
 					Dim CAT_CL_LAT As String = records(RESULT.Columns.Get("CAT_CL_LAT"))
 					Dim CAT_CL_MTOCOMPRA As String = records(RESULT.Columns.Get("CAT_CL_MTOCOMPRA"))
 					Dim CAT_CL_NUM_SERIEFISICO As String = records(RESULT.Columns.Get("CAT_CL_NUM_SERIEFISICO"))
+					Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BCREDITO"))
+					Dim CAT_CL_LIMITECREDITO As String = records(RESULT.Columns.Get("CAT_CL_LIMITECREDITO"))
 					Dim CAT_CL_DIAS_VISITA As String = records(RESULT.Columns.Get("CAT_CL_DIAS_VISITA"))
-					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info2(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_DIAS_VISITA) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0, ?)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_DIAS_VISITA))
+					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info2(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_DIAS_VISITA, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0, ?,?,?)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO,CAT_CL_DIAS_VISITA, CAT_CL_BCREDITO, CAT_CL_LIMITECREDITO))
 					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO,  HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
 				Next
 				Listo1 = 1
@@ -1457,20 +1465,20 @@ Sub JobDone(Job As HttpJob)
 			If RESULT.Tag = "gunaprod2" Then 'query tag
 				If PB2.Progress < 30 Then S_CP.Text = "CARGANDO" 'Mod por CHV - 20211028 Agregue el "If PB2.Progress < 30 then"
 				For Each records() As Object In RESULT.Rows
-					Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_DP_ID"))
-					Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_DP_NOMBRE"))
-					Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_DP_IMP1"))
-					Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_DP_IMP2"))
-					Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_DP_PRECIO"))
-					Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_DP_CLASIF"))
-					Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_DP_STS"))
-					Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_DP_TIPO"))
-					Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_DP_SUBTIPO"))
-					Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_DP_IMG"))
-					Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_DP_ALMACEN"))
+					Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID"))
+					Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE"))
+					Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1"))
+					Dim CAT_GP_IMP2 As String = records(RESULT.Columns.Get("CAT_GP_IMP2"))
+					Dim CAT_GP_PRECIO As String = records(RESULT.Columns.Get("CAT_GP_PRECIO"))
+					Dim CAT_GP_CLASIF As String = records(RESULT.Columns.Get("CAT_GP_CLASIF"))
+					Dim CAT_GP_STS As String = records(RESULT.Columns.Get("CAT_GP_STS"))
+					Dim CAT_GP_TIPO As String = records(RESULT.Columns.Get("CAT_GP_TIPO"))
+					Dim CAT_GP_SUBTIPO As String = records(RESULT.Columns.Get("CAT_GP_SUBTIPO"))
+					Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG"))
+					Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN"))
 					'	Dim CAT_GP_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV"))
-					Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_DP_TIPOPROD"))
-					Dim CAT_GP_INICIATIVA As Int = records(RESULT.Columns.Get("CAT_DP_INICIATIVA"))
+					Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD"))
+					Dim CAT_GP_INICIATIVA As Int = records(RESULT.Columns.Get("CAT_GP_INICIATIVA"))
 '					CAT_GP_INICIATIVA = 5
 '					skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_DEV) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_DEV))
 					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_INICIATIVA) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD, CAT_GP_INICIATIVA))
@@ -1592,17 +1600,17 @@ Sub JobDone(Job As HttpJob)
 			Dim RESULT As DBResult = reqManager.HandleJob(Job)
 			If RESULT.Tag = "detallepaq" Then 'query tag
 				For Each records() As Object In RESULT.Rows
-					Dim CAT_DP_ALMACEN  As String = records(RESULT.Columns.Get("CAT_DP_ALMACEN"))
-					Dim CAT_DP_ID As String = records(RESULT.Columns.Get("CAT_DP_ID"))
-					Dim CAT_DP_IDPROD As String = records(RESULT.Columns.Get("CAT_DP_IDPROD"))
-					Dim CAT_DP_TIPO As String = records(RESULT.Columns.Get("CAT_DP_TIPO"))
-					Dim CAT_DP_PZAS As String = records(RESULT.Columns.Get("CAT_DP_PZAS"))
-					Dim CAT_DP_USUARIO  As String = records(RESULT.Columns.Get("CAT_DP_USUARIO"))
-					Dim CAT_DP_FECHA As String = records(RESULT.Columns.Get("CAT_DP_FECHA"))
-					Dim CAT_DP_REGALO  As String = records(RESULT.Columns.Get("CAT_DP_REGALO"))
-					Dim CAT_DP_CLASIF  As String = records(RESULT.Columns.Get("CAT_DP_CLASIF"))
-					Dim CAT_DP_PRECIO As String = records(RESULT.Columns.Get("CAT_DP_PRECIO"))
-					Dim CAT_DP_PRECIO_SIMPTOS As String = records(RESULT.Columns.Get("CAT_DP_PRECIO_SIMPTOS"))
+					Dim CAT_DP_ALMACEN  As String = records(RESULT.Columns.Get("CAT_PDP_ALMACEN"))
+					Dim CAT_DP_ID As String = records(RESULT.Columns.Get("CAT_PDP_ID"))
+					Dim CAT_DP_IDPROD As String = records(RESULT.Columns.Get("CAT_PDP_IDPROD"))
+					Dim CAT_DP_TIPO As String = records(RESULT.Columns.Get("CAT_PDP_TIPO"))
+					Dim CAT_DP_PZAS As String = records(RESULT.Columns.Get("CAT_PDP_PZAS"))
+					Dim CAT_DP_USUARIO  As String = records(RESULT.Columns.Get("CAT_PDP_USUARIO"))
+					Dim CAT_DP_FECHA As String = records(RESULT.Columns.Get("CAT_PDP_FECHA"))
+					Dim CAT_DP_REGALO  As String = records(RESULT.Columns.Get("CAT_PDP_REGALO"))
+					Dim CAT_DP_CLASIF  As String = records(RESULT.Columns.Get("CAT_PDP_CLASIF"))
+					Dim CAT_DP_PRECIO As String = records(RESULT.Columns.Get("CAT_PDP_PRECIO"))
+					Dim CAT_DP_PRECIO_SIMPTOS As String = records(RESULT.Columns.Get("CAT_PDP_PRECIO_SIMPTOS"))
 					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_DETALLES_PAQ(CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_DP_ALMACEN,CAT_DP_ID,CAT_DP_IDPROD,CAT_DP_TIPO,CAT_DP_PZAS,CAT_DP_USUARIO,CAT_DP_FECHA,CAT_DP_REGALO,CAT_DP_CLASIF,CAT_DP_PRECIO,CAT_DP_PRECIO_SIMPTOS))
 				Next
 				If PB2.Progress = 0 Then
@@ -1917,7 +1925,7 @@ Sub connecta_Click
 
 	Dim cmd As DBCommand
 	cmd.Initialize
-	cmd.Name = "select_ruta_INTMEX_7"
+	cmd.Name = "select_ruta_MARQUEZ"
 	cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
 '	Log($"${ALMACEN},${e_ruta.text},${imei}"$)
 	reqManager.ExecuteQuery(cmd , 0, "ruta")
@@ -2020,16 +2028,16 @@ Sub inv_Click
 	usuario = c.GetString("USUARIO")
 	c.Close
 	cmd.Initialize
-	cmd.Name = "select_cat_gunaprod_INTMEX"
+	cmd.Name = "select_cat_gunaprod_MARQUEZ"
 	cmd.Parameters = Array As Object(ALMACEN)
 	reqManager.ExecuteQuery(cmd , 0, "gunaprod")
 	cmd.Initialize
-	cmd.Name = "select_cat_paquetes_INTMEX"
+	cmd.Name = "select_cat_paquetes_MARQUEZ"
 	cmd.Parameters = Array As Object(ALMACEN)
 	reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
 	
 	cmd.Initialize
-	cmd.Name = "select_cat_detallepa_INTMEX"
+	cmd.Name = "select_cat_detallepa_MARQUEZ"
 	cmd.Parameters = Array As Object(ALMACEN)
 	reqManager.ExecuteQuery(cmd , 0, "detallepaq")
 	
@@ -2042,17 +2050,17 @@ End Sub
 
 Sub t1_tick
 	cmd.Initialize
-	cmd.Name = "select_cuantos_pedido_INTMEX"
+	cmd.Name = "select_cuantos_pedido_MARQUEZ"
 	cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
 	reqManager.ExecuteQuery(cmd , 0, "valida_pedido")
 	
 	cmd.Initialize
-	cmd.Name = "select_cuantos_noventa_INTMEX"
+	cmd.Name = "select_cuantos_noventa_MARQUEZ"
 	cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
 	reqManager.ExecuteQuery(cmd , 0, "valida_noventa")
 	
 	cmd.Initialize
-	cmd.Name = "select_cuantos_pedidoc_INTMEX"
+	cmd.Name = "select_cuantos_pedidoc_MARQUEZ"
 	cmd.Parameters = Array As Object(ALMACEN,l_ruta.text)
 	reqManager.ExecuteQuery(cmd , 0, "valida_pedidoc")
 	
@@ -2569,7 +2577,8 @@ Private Sub p_mandaInfo_Click
 End Sub
 
 
-Private Sub b_abordo_Click
+
+Private Sub iv_abordo_Click
 	Starter.skmt.ExecNonQuery("delete from CUENTAA")
 	Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
 	B4XPages.MainPage.tipo_venta = "ABORDO"

B4A/C_Productos.bas

@@ -1012,8 +1012,8 @@ Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As In
 				p_prods.Width = Root.Width * 0.92
 				p_botMasMen.Left = p_prods.Width - (p_botMasMen.Width + 5)
 				p_prods.Height = 62dip
-				b_prodMenos.Height = 60dip
-				b_prodMas.Height = 60dip
+				b_prodMenos.Height = 50dip
+				b_prodMas.Height = 50dip
 				et_pCant.Height = 51dip
 				l_pCant.Height = 44dip
 				l_pCant.Top = l_pCant.Top + 8

B4A/C_RespaldoDiario.bas

@@ -18,7 +18,7 @@ End Sub
 Public Sub Initialize As Object
 '	Log("**************************   " & safePath)
 	Dim rp As RuntimePermissions
-	Dim Dirp As String = File.DirRootExternal
+	Dim Dirp As String = File.DirInternal
 	Dim Dir As String
 '	Dim Dir2 As String
 	Try

B4A/C_Subs.bas

@@ -155,7 +155,7 @@ Sub guardaInfoEnArchivo(coords As String) 'ignore
 	DateTime.DateFormat=OrigFormat  'return to orig date format
 
 	Dim ubic As String = coords&","&lastUpdate
-	Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "gps.txt", True)
+	Dim out As OutputStream = File.OpenOutput(File.DirInternal, "gps.txt", True)
 	Dim s As String = ubic & CRLF
 	Dim t() As Byte = s.GetBytes("UTF-8")
 	out.WriteBytes(t, 0, t.Length)
@@ -315,7 +315,7 @@ Sub copiaDB(result As Boolean) 'ignore
 	If result Then
 		Dim p As String
 		If File.ExternalWritable Then
-			p = File.DirRootExternal
+			p = File.DirInternal
 '			Log("Externo")
 		Else
 			p = File.DirInternal
@@ -323,21 +323,21 @@ Sub copiaDB(result As Boolean) 'ignore
 		End If
 		Dim theDir As String
 		Try
-			File.MakeDir(File.DirRootExternal,"kmts")
+			File.MakeDir(File.DirInternal,"kmts")
 			theDir = "/kmts"
 		Catch
 			theDir = ""
 		End Try
 		Try
-			File.Copy(File.DirInternal,"kmt.db",File.DirRootExternal&theDir,"cedex_kmt.db")
-			File.Copy(File.DirInternal,"errorLog.db",File.DirRootExternal&theDir,"cedex_errorLog.db")
+			File.Copy(File.DirInternal,"kmt.db",File.DirInternal&theDir,"cedex_kmt.db")
+			File.Copy(File.DirInternal,"errorLog.db",File.DirInternal&theDir,"cedex_errorLog.db")
 			ToastMessageShow("BD copiada!", False)
 		Catch
 			ToastMessageShow("No se pudo hacer la copia: "&LastException, True)
 		End Try
 		Log("rootExternal="&p)
 		Log("File.DirInternal="&File.DirInternal)
-		Log("File.DirRootExternal="&File.DirRootExternal)
+		Log("File.DirInternal="&File.DirInternal)
 	Else
 		ToastMessageShow("Sin permisos", False)
 	End If