Se agrego la seccion de agregar monto a la tuerquita.

B4A/B4XMainPage.bas

@@ -23,6 +23,8 @@ Version=9.85
 'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\
 
 Sub Class_Globals
+	Dim c2 As Cursor
+	Dim sDate,sTime As String
 	Private Root As B4XView
 	Private xui As XUI
 	Dim s As C_Subs
@@ -120,6 +122,10 @@ Sub Class_Globals
 	Private p_validacion As Panel
 	Private b_recarga As Button
 	Dim recarga As String = "0"
+	Private p_add_monto As Panel
+	Private B_Can_Monto As Button
+	Private B_Aceptar_Monto As Button
+	Private ET_Add_Monto As EditText
 End Sub
 
 Public Sub Initialize
@@ -199,6 +205,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PAGARES (PA_ALMACEN TEXT, PA_RUTA TEXT, PA_FECHA TEXT, PA_CAPTURA TEXT, PA_MONTO TEXT, PA_USUARIO TEXT, PA_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)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PICK_CIEGO (PC_ID_PROD TEXT, PC_NOM_PROD TEXT, PC_CANT TEXT, PC_ALMACEN TEXT, PC_RUTA TEXT, PC_FECHA TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENV_MONTO_LIQ (EML_MONTO TEXT, EML_ALMACEN TEXT, EML_RUTA TEXT, EML_USUARIO TEXT, EML_FECHA_PED TEXT)")
 	Subs.agregaColumna("PEDIDO", "PE_ENVIO_OK", "INT")
 	Subs.agregaColumna("PEDIDO", "PE_CANTC", "TEXT")
 	Subs.agregaColumna("PEDIDO", "PE_BCAJAS", "TEXT")
@@ -209,6 +216,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Subs.agregaColumna("CAT_GUNAPROD2", "CAT_DP_CONVERSION1", "TEXT")
 	Subs.agregaColumna("CAT_GUNAPROD2", "CAT_DP_PRECIO4", "TEXT")
 	Subs.agregaColumna("CAT_GUNAPROD", "CAT_DP_PRECIO4", "TEXT")
+	Subs.agregaColumna("CLIENTES_NUEVOS", "CN_SOLICITA", "TEXT")
 	c=skmt.ExecQuery("select  COUNT(*) AS CUANTOS from HIST_STAY_OUT ")
 	C.Position = 0
 	If c.GetString("CUANTOS")  = 0 Then
@@ -286,6 +294,12 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 			Wait For MES_StorageAvailable
 		End If
 	End If
+	P_CIEGO.Height = Root.Height
+	P_CIEGO.Width = Root.Width
+	p_validacion.Height = Root.Height
+	p_validacion.Width = Root.Width
+	p_add_monto.Height = Root.Height
+	p_add_monto.Width = Root.Width
 End Sub
 
 Sub B4XPage_Appear
@@ -503,6 +517,65 @@ Sub JobDone(Job As HttpJob)
 			End If
 		End If
 		
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "SelectMontoLiq" Then
+				For Each records() As Object In result.Rows
+					Dim CUENTA As String = records(result.Columns.Get("CUENTA"))
+					
+					DateTime.DateFormat = "MM/dd/yyyy"
+					sDate=DateTime.Date(DateTime.Now)
+					sTime=DateTime.Time(DateTime.Now)
+					f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
+					f.Position = 0
+					a=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
+					a.Position = 0
+					
+					Private c2 As Cursor
+					c2=skmt.ExecQuery("select USUARIO from usuarioa")
+					c2.Position=0
+					If c2.RowCount > 0 Then c2.GetString("USUARIO")
+					
+					Log(CUENTA & "----------------------!!")
+					If CUENTA = "0" Then
+						
+						c = Starter.skmt.ExecQuery2("SELECT * FROM ENV_MONTO_LIQ WHERE EML_USUARIO = ? AND EML_ALMACEN = ? AND EML_RUTA = ?", Array As String (c2.GetString("USUARIO"), a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA")))
+						If c.RowCount > 0 Then
+'							For i=0 To c.RowCount -1
+							c.Position=0
+							Dim cmd As DBCommand
+							cmd.Initialize
+							cmd.Name = "insert_Monto_Liq_MARQUEZ"
+							cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"), "VENTA", c.GetString("EML_FECHA_PED"))
+							reqManager.ExecuteCommand(cmd , "ins_Mon_Liq")
+							MsgboxAsync("Monto Enviado", "Atención")
+'							Next
+						End If
+						c.Close
+					Else if CUENTA > "0" Then
+						
+						c = Starter.skmt.ExecQuery2("SELECT * FROM ENV_MONTO_LIQ WHERE EML_USUARIO = ? AND EML_ALMACEN = ? AND EML_RUTA = ?", Array As String (c2.GetString("USUARIO"), a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA")))
+						If c.RowCount > 0 Then
+'							For i=0 To c.RowCount -1
+							c.Position = 0
+							cmd.Initialize
+							cmd.Name = "update_MontoCuenta_MARQUEZ"
+							cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"))
+							
+							Log(c.GetString("EML_MONTO")& " " & c.GetString("EML_ALMACEN")& " " & c.GetString("EML_RUTA")& " " & c.GetString("EML_USUARIO"))
+							reqManager.ExecuteCommand(cmd, "update_MC")
+							MsgboxAsync("Se sobre escribio el Monto", "Atención")
+'							Next
+						End If
+						c2.Close
+						c.Close
+					End If
+					f.Close
+					a.Close
+				Next
+			End If
+		End If
+		
 		If Job.JobName = "DBRequest" Then
 			Dim result As DBResult = reqManager.HandleJob(Job)
 			If result.Tag.As(String).IndexOf("PICK_C_") > -1 Then 'query tag
@@ -936,11 +1009,11 @@ End Sub
 
 Private Sub B_PC_ENV_Click
 		
-	Dim sDate, stime As String
+	Dim sDate, sTime As String
 	DateTime.DateFormat = "dd/MM/yyyy"
 	DateTime.TimeFormat = "HH:mm:ss"
 	sDate = DateTime.Date(DateTime.Now)
-	stime = DateTime.Time(DateTime.Now)
+	sTime = DateTime.Time(DateTime.Now)
 	
 	
 	For i = 0 To CLV_PICK_CIEGO.Size - 1
@@ -974,7 +1047,7 @@ Private Sub B_PC_ENV_Click
 			c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO where PC_ID_PROD = ?", Array As String (idParts(0)))
 			If c.RowCount = 0 Then
 				' Insert data into the database
-				skmt.ExecNonQuery2("INSERT INTO PICK_CIEGO(PC_ID_PROD, PC_NOM_PROD, PC_CANT, PC_ALMACEN, PC_RUTA, PC_FECHA) VALUES(?,?,?,?,?,?)", Array As String(idParts(0), idParts(1), inputText, a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"), sDate&" "&stime))
+				skmt.ExecNonQuery2("INSERT INTO PICK_CIEGO(PC_ID_PROD, PC_NOM_PROD, PC_CANT, PC_ALMACEN, PC_RUTA, PC_FECHA) VALUES(?,?,?,?,?,?)", Array As String(idParts(0), idParts(1), inputText, a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"), sDate&" "&sTime))
 			Else
 				B4XPages.MainPage.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ?  WHERE PC_ID_PROD = ?" , Array As String(inputText ,idParts(0)))
 			End If
@@ -996,11 +1069,11 @@ Private Sub b_terpc_Click
 		Wait For Msgbox_Result (resultado As Int)
 		If resultado = DialogResponse.POSITIVE Then
 		
-			Dim sDate, stime As String
+			Dim sDate, sTime As String
 			DateTime.DateFormat = "dd/MM/yyyy"
 			DateTime.TimeFormat = "HH:mm:ss"
 			sDate = DateTime.Date(DateTime.Now)
-			stime = DateTime.Time(DateTime.Now)
+			sTime = DateTime.Time(DateTime.Now)
 	
 			For i = 0 To CLV_PICK_CIEGO.Size - 1
 				' Retrieve the panel and child views for the current item
@@ -1028,12 +1101,11 @@ Private Sub b_terpc_Click
 				End If
 				Log(a.GetString("ID_ALMACEN"))
 				Log(f.GetString("CAT_CL_RUTA"))
-				
 				If inputText <> 0 Then
 					c = Starter.skmt.ExecQuery2("SELECT * FROM PICK_CIEGO where PC_ID_PROD = ?", Array As String (idParts(0)))
 					If c.RowCount = 0 Then
 						' Insert data into the database
-						skmt.ExecNonQuery2("INSERT INTO PICK_CIEGO(PC_ID_PROD, PC_NOM_PROD, PC_CANT, PC_ALMACEN, PC_RUTA, PC_FECHA) VALUES(?,?,?,?,?,?)", Array As String(idParts(0), idParts(1), inputText, a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"), sDate&" "&stime))
+						skmt.ExecNonQuery2("INSERT INTO PICK_CIEGO(PC_ID_PROD, PC_NOM_PROD, PC_CANT, PC_ALMACEN, PC_RUTA, PC_FECHA) VALUES(?,?,?,?,?,?)", Array As String(idParts(0), idParts(1), inputText, a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"), sDate&" "&sTime))
 					Else
 						B4XPages.MainPage.skmt.ExecNonQuery2("Update PICK_CIEGO set PC_CANT = ?  WHERE PC_ID_PROD = ?" , Array As String(inputText ,idParts(0)))
 					End If
@@ -1042,12 +1114,10 @@ Private Sub b_terpc_Click
 				a.Close
 				Log("Processed item " & i)
 			Next
-			
 			Log("Finished processing all items")
 			P_CIEGO.Visible = False
 			et_buspc.Text = ""
 			CLV_PICK_CIEGO.Clear
-			
 			c = Starter.skmt.ExecQuery("SELECT PC_ID_PROD, PC_ALMACEN, PC_RUTA, PC_FECHA FROM PICK_CIEGO")
 			If c.RowCount > 0 Then
 				For i = 0 To c.RowCount - 1
@@ -1056,12 +1126,9 @@ Private Sub b_terpc_Click
 					cmd.Initialize
 					cmd.Name = "select_HIST_PICKCIEGO_MARQUEZ" '
 					cmd.Parameters = Array As Object(c.GetString("PC_ID_PROD"), c.GetString("PC_ALMACEN"), c.GetString("PC_RUTA"), c.GetString("PC_FECHA"))
-					reqManager.ExecuteQuery(cmd , 0, $"PICK_C_${c.GetString("PC_ID_PROD")}"$)
+					reqManager.ExecuteQuery(cmd , 0, $"PICK_C_${c.GetString("PC_ID_PROD")}"$)					
-					
 				Next
 			End If
-			'PC_ID_PROD TEXT, PC_NOM_PROD TEXT, PC_CANT TEXT, PC_ALMACEN TEXT, PC_RUTA TEXT, PC_FECHA TEXT
-		
 			c.close
 		Else
 		
@@ -1089,13 +1156,83 @@ Private Sub b_aceptar_Click
 	a.Close
 End Sub
 
+Private Sub B_Aceptar_Monto_Click
+'	Try
+	DateTime.DateFormat = "MM/dd/yyyy"
+	sDate=DateTime.Date(DateTime.Now)
+	sTime=DateTime.Time(DateTime.Now)
+	
+	f=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info")
+	f.Position=0
+
+	a=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
+	If a.RowCount>0 Then
+		a.Position=0
+	End If
+	
+	Private cI As Cursor
+	Private u As String = "SinUsuario"
+	cI=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
+	cI.Position=0
+	If cI.RowCount > 0 Then u = cI.GetString("USUARIO")
+	Private g As Cursor = B4XPages.MainPage.skmt.ExecQuery("select * from ENV_MONTO_LIQ")
+	If g.RowCount = 0 Then
+	B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO ENV_MONTO_LIQ VALUES (?,?,?,?,?)", Array As Object(ET_Add_Monto.Text, a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"), u, sDate & " " & sTime))
+	f.Close
+	a.Close
+	
+	c = Starter.skmt.ExecQuery("SELECT * FROM ENV_MONTO_LIQ")
+	If c.RowCount > 0 Then
+		c.Position = 0
+		Dim cmd As DBCommand
+		cmd.Initialize
+		cmd.Name = "select_MontoCuenta_MARQUEZ"
+'		 	LogColor("------------" & c.GetString("EML_USUARIO" & c.GetString("EML_ALMACEN") & c.GetString("EML_RUTA")),Colors.Red)
+		cmd.Parameters = Array As Object(c.GetString("EML_USUARIO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"))
+		reqManager.ExecuteQuery(cmd , 0, "SelectMontoLiq")
+'			cmd.Name = "insert_Monto_Liq_MARQUEZ"
+'			cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"), "VENTA", c.GetString("EML_FECHA_PED"))
+	End If
+		c.Close
+	Else
+		Starter.skmt.ExecNonQuery2("UPDATE ENV_MONTO_LIQ SET EML_MONTO = ? WHERE EML_ALMACEN = ? AND EML_RUTA = ? AND EML_USUARIO = ?", Array As String (ET_Add_Monto.Text ,a.GetString("ID_ALMACEN"), f.GetString("CAT_CL_RUTA"), cI.GetString("USUARIO")))
+		f.Close
+		a.Close
+	
+		c = Starter.skmt.ExecQuery("SELECT * FROM ENV_MONTO_LIQ")
+		If c.RowCount > 0 Then
+			c.Position = 0
+			Dim cmd As DBCommand
+			cmd.Initialize
+			cmd.Name = "select_MontoCuenta_MARQUEZ"
+'		 	LogColor("------------" & c.GetString("EML_USUARIO" & c.GetString("EML_ALMACEN") & c.GetString("EML_RUTA")),Colors.Red)
+			cmd.Parameters = Array As Object(c.GetString("EML_USUARIO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"))
+			reqManager.ExecuteQuery(cmd , 0, "SelectMontoLiq")
+'			cmd.Name = "insert_Monto_Liq_MARQUEZ"
+'			cmd.Parameters = Array As Object(c.GetString("EML_MONTO"), c.GetString("EML_ALMACEN"), c.GetString("EML_RUTA"), c.GetString("EML_USUARIO"), "VENTA", c.GetString("EML_FECHA_PED"))
+		End If
+		c.Close
+	End If
+
+'	MsgboxAsync("Monto Enviado, Si Vuelve a Mandar se sobre escribirá dicho Monto", "Atención")
+	p_add_monto.Visible = False
+'	Catch
+'		Log(LastException.Message)
+'		MsgboxAsync("Error al enviar el monto", "Error")
+'	End Try
+End Sub
+
 Private Sub b_cancelarcodigo_Click
 	p_validacion.Visible = False
 End Sub
 
+Private Sub B_Can_Monto_Click
+	p_add_monto.Visible = False
+End Sub
+
 Private Sub b_envioBD_Click
-	'	copiaDB
+	'copiaDB
-'	Sleep(1000)
+    'Sleep(1000)
 	Dim FileName As String = "kmt.db"
 	'copy the shared file to the shared folder
 	Log("xxxxxx:"&Provider.SharedFolder)
@@ -1105,7 +1242,7 @@ Private Sub b_envioBD_Click
 	email.To.Add("soporte@keymonsoft.com")
 	email.Subject = "Envio Base de datos Marquez"
 	email.Attachments.Add(Provider.GetFileUri(FileName))
-'	email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment
+'email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment
 	Dim in As Intent = email.GetIntent
 	in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
 	StartActivity(in)
@@ -1119,4 +1256,29 @@ Private Sub b_recarga_Click
 	Else
 		MsgboxAsync("No hay ruta cargada, favor de cargar día","Atención")
 	End If
-End Sub
+	c.Close
+End Sub
+
+
+
+Private Sub b_CargarMonto_Click
+	c = skmt.ExecQuery("SELECT COUNT (DISTINCT CAT_CL_RUTA)  FROM kmt_info")
+	If c.RowCount > 0 Then
+		Subs.panelVisible(p_add_monto,0,0)
+	Else
+		MsgboxAsync("No hay ruta cargada, favor de cargar día","Atención")
+	End If
+	c.Close
+End Sub
+
+Private Sub P_CIEGO_Click
+	
+End Sub
+
+Private Sub p_validacion_Click
+	
+End Sub
+
+Private Sub p_add_monto_Click
+	
+End Sub

B4A/C_NuevoCliente.bas

@@ -43,6 +43,8 @@ Sub Class_Globals
 	Private Label3 As Label
 	Private cb_giro As B4XComboBox
 	Dim giros As String
+	Private L_Atiende As Label
+	Private ET_Atiende As EditText
 End Sub
 
 'You can add more parameters here.
@@ -94,6 +96,7 @@ End Sub
 Sub B4XPage_Appear
 	et_direccion.Text = ""
 	E_NOMBRE.Text =  ""
+	ET_Atiende.Text = ""
 	If Not(Starter.gps.GPSEnabled) Then
 		ToastMessageShow("Es necesario tener el GPS encendido", True)
 		StartActivity(Starter.gps.LocationSettingsIntent)
@@ -163,75 +166,78 @@ Sub CANCELA_Click
 End Sub
 
 Sub GUARDA_Click
-	If E_NOMBRE.Text =  "" Then
+	' Verifica si el nombre de la tienda está vacío
+	If E_NOMBRE.Text = "" Then
 		MsgboxAsync("Por favor captura el nombre de la Tienda","Atención")
-	Else
+		' Verifica si la dirección tiene más de 3 caracteres
-		If et_direccion.Text.Length > 3 Then
+		Else If et_direccion.Text.Length > 3 Then
-			If lat <> 0 Then
+		' Verifica si la latitud es diferente de 0
-'				If fototomada <> "0" Then
+		If lat <> 0 Then
-				If giros <> "SELECCIONA UNA OPCIÓN" Or cb_giro.SelectedItem <> "SELECCIONA UNA OPCIÓN" Then
+			' Verifica si el giro del cliente está seleccionado
+			If giros <> "SELECCIONA UNA OPCIÓN" Or cb_giro.SelectedItem <> "SELECCIONA UNA OPCIÓN" Then
+				' Verifica si el encargado que atiende el negocio está capturado
+				If ET_Atiende.Text <> "" Then
 					DateTime.DateFormat = "MM/dd/yyyy"
 					DateTime.Timeformat = "HHmmss"
-					sDate=DateTime.Date(DateTime.Now)
+					sDate = DateTime.Date(DateTime.Now)
-					sTime=DateTime.Time(DateTime.Now)
+					sTime = DateTime.Time(DateTime.Now)
 					Log($" ////////////   Date: ${sDate} - Time: ${sTime} ////////////////"$)
-					'Aqui creamos manualmete la hora con el separador de los 2 puntos porque en algunas versiones de android no respeta el formato "Timeformat = 'HH:mm:ss'"
+					' Aquí creamos manualmente la hora con el separador de los 2 puntos porque en algunas versiones de Android no respeta el formato "Timeformat = 'HH:mm:ss'"
 					Private hora As String = sTime.SubString2(0,2)
 					Private mins As String = sTime.SubString2(2,4)
 					Private segs As String = sTime.SubString(4)
-					sTime = hora&":"&mins&":"&segs
+					sTime = hora & ":" & mins & ":" & segs
 					Log("////////////// sTime: "&sTime&" ////////////////")
-					c=Starter.skmt.ExecQuery("select CAT_CL_RUTA FROM kmt_info")
+					c = Starter.skmt.ExecQuery("select CAT_CL_RUTA FROM kmt_info")
-					c.Position=0
+					c.Position = 0
-					no_ruta= c.GetString("CAT_CL_RUTA")
+					no_ruta = c.GetString("CAT_CL_RUTA")
-					no_cliente= "N" & sTime & no_ruta
+					no_cliente = "N" & sTime & no_ruta
 					Log("++ ++ no_cliente = "&no_cliente)
 					c.Close
-					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, CAT_CL_GIRO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0,?) ",Array As Object (no_cliente,no_ruta, E_NOMBRE.Text,"null","null","null","null","null","null","null","null","null","null","null","null","null",B4XPages.MainPage.lon_gps,B4XPages.MainPage.lat_gps, cb_giro.SelectedItem))
+					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, CAT_CL_GIRO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,0,0,?) ", Array As Object (no_cliente,no_ruta, E_NOMBRE.Text,"null","null","null","null","null","null","null","null","null","null","null","null","null",B4XPages.MainPage.lon_gps,B4XPages.MainPage.lat_gps, cb_giro.SelectedItem))
 					Starter.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO,  HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (no_cliente))
 					Starter.skmt.ExecNonQuery("delete from CUENTAA")
 					Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(no_cliente))
-					c=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
+					c = Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
-					If c.RowCount>0 Then
+					If c.RowCount > 0 Then
-						C.Position=0
+						c.Position = 0
-						ALMACEN = C.GetString("ID_ALMACEN")
+						ALMACEN = c.GetString("ID_ALMACEN")
 					End If
 					c.Close
-					c=Starter.skmt.ExecQuery("select usuario from usuarioa")
+					c = Starter.skmt.ExecQuery("select usuario from usuarioa")
 					c.Position = 0
 					usuario = c.GetString("USUARIO")
 					c.Close
-'					Starter.skmt.ExecNonQuery2("INSERT INTO HIST_FOTO_CLIENTE(CODIGO, ALMACEN, RUTA) VALUES(?,?,?)", Array As Object(no_cliente, ALMACEN, no_ruta))
+					' Starter.skmt.ExecNonQuery2("INSERT INTO HIST_FOTO_CLIENTE(CODIGO, ALMACEN, RUTA) VALUES(?,?,?)", Array As Object(no_cliente, ALMACEN, no_ruta))
-'					Starter.skmt.ExecNonQuery2("INSERT INTO  NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_LAT,NV_LON,NV_NOMBRE,NV_DIRECCION) VALUES(?,?,?,?,?,?,?,?) ", Array As Object (no_cliente,sDate & sTime, usuario, "NUEVO CLIENTE", lat, lon, E_NOMBRE.Text,et_direccion.Text))
+					' Starter.skmt.ExecNonQuery2("INSERT INTO  NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_LAT,NV_LON,NV_NOMBRE,NV_DIRECCION) VALUES(?,?,?,?,?,?,?,?) ", Array As Object (no_cliente,sDate & sTime, usuario, "NUEVO CLIENTE", lat, lon, E_NOMBRE.Text,et_direccion.Text))
-					
+                    
 					DateTime.DateFormat = "dd/MM/yyyy"
 					DateTime.Timeformat = "HH:mm:ss"
-					sDate2=DateTime.Date(DateTime.Now)
+					sDate2 = DateTime.Date(DateTime.Now)
-					sTime2=DateTime.Time(DateTime.Now)
+					sTime2 = DateTime.Time(DateTime.Now)
-					
+                    
-					Starter.skmt.ExecNonQuery2("INSERT INTO CLIENTES_NUEVOS(CN_ID, CN_FECHA, CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_RUTA, CN_GIRO) VALUES (?,?,?,?,?,?,?,?,?,?)",Array As String(no_cliente,sDate2 &" "&sTime2, usuario, lat, lon, E_NOMBRE.Text,et_direccion.Text, ALMACEN, no_ruta,cb_giro.SelectedItem))
+					Starter.skmt.ExecNonQuery2("INSERT INTO CLIENTES_NUEVOS(CN_ID, CN_FECHA, CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_RUTA, CN_GIRO, CN_SOLICITA) VALUES (?,?,?,?,?,?,?,?,?,?,?)", Array As String(no_cliente, sDate2 &" "&sTime2, usuario, lat, lon, E_NOMBRE.Text, et_direccion.Text, ALMACEN, no_ruta, cb_giro.SelectedItem, ET_Atiende.Text))
-'						fototomada = "0"
+					' fototomada = "0"
 					B4XPages.ShowPage("Cliente")
 					CallSubDelayed(Tracker, "StartFLP")
-		
 				Else
-					MsgboxAsync("Por favor captura el giro del cliente","Atención")
+					' Mensaje de advertencia si ET_Atiende.Text está vacío
+					MsgboxAsync("Por favor, debe capturar al encargado que atiende el negocio.","Atención")
 				End If
-		
-'				Else
-'					MsgboxAsync("Por favor captura la foto del cliente","Atención")
-'				End If
 			Else
-				MsgboxAsync("Por favor revisa que tengas señal GPS","Atención")
+				MsgboxAsync("Por favor captura el giro del cliente","Atención")
 			End If
 		Else
-			MsgboxAsync("Por favor captura la dirección del cliente","Atención")
+			MsgboxAsync("Por favor revisa que tengas señal GPS","Atención")
 		End If
+	Else
+		MsgboxAsync("Por favor captura la dirección del cliente","Atención")
 	End If
 End Sub
 
 
 
+
 Private Sub p_nuevoCliente_Click
 	
 End Sub
@@ -333,4 +339,5 @@ End Sub
 
 Private Sub cb_giro_SelectedIndexChanged (Index As Int)
 	giros = cb_giro.SelectedItem
-End Sub
+End Sub
+

B4A/C_Pedidos.bas

@@ -326,7 +326,7 @@ Sub guardar_Click
 		End If
 		e.Close
 		'0
-		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, b4xpages.MainPage.tipo_venta))
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta))
 		B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
 		cantidad.Text = ""
 		c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
@@ -350,7 +350,7 @@ Sub guardar_Click
 		c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO from usuarioa")
 		c.Position=0
 		usuario = c.GetString("USUARIO")
-		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin, b4xpages.MainPage.tipo_venta))
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN, PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin, B4XPages.MainPage.tipo_venta))
 		B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
 		c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
 		c.Position=0
@@ -497,7 +497,7 @@ Sub Terminar_Click
 		End If
 		e.Close
 		Log(444)
-		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, b4xpages.MainPage.tipo_venta))
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta))
 		B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
 		cantidad.Text = ""
 		c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
@@ -522,7 +522,7 @@ Sub Terminar_Click
 		c.Position=0
 		usuario = c.GetString("USUARIO")
 		Log(555)
-		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin, b4xpages.MainPage.tipo_venta))
+		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_COSTO_SIN,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (ALMACEN,cantidad.Text * l_precio.Text, l_precio.text, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta,preciosin, B4XPages.MainPage.tipo_venta))
 		B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
 		c=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE, SUM(PE_COSTO_SIN) AS TOTAL_CLIE_SIN FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
 		c.Position=0

B4A/C_Principal.bas

@@ -662,7 +662,7 @@ Sub Subir_Click
 		Dim Dir2 As String
 		Dir = "/promotoriakmts"
 		
-		c=Starter.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO FROM CLIENTES_NUEVOS")
+		c=Starter.skmt.ExecQuery("SELECT CN_ID, CN_FECHA , CN_USER, CN_LAT, CN_LON, CN_NOMBRE, CN_DIRECCION, CN_FOTO, CN_ALMACEN, CN_RUTA, CN_GIRO, CN_SOLICITA FROM CLIENTES_NUEVOS")
 		If c.RowCount>0 Then
 			For i = 0 To c.RowCount - 1
 				c.Position = i
@@ -682,8 +682,8 @@ Sub Subir_Click
 				End If
 				Dim cmd As DBCommand
 				cmd.Initialize
-				cmd.Name = "insert_clientesnuevos_MARQUEZ"
+				cmd.Name = "insert_clientesnuevos_MARQUEZ2"
-				cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),ALMACEN, c.GetString("CN_RUTA"), "En espera",c.GetString("CN_GIRO"),dialetra)
+				cmd.Parameters = Array As Object(c.GetString("CN_ID"), c.GetString("CN_FECHA"), c.GetString("CN_USER"), c.GetString("CN_LAT"), c.GetString("CN_LON"), c.GetString("CN_NOMBRE"), c.GetString("CN_DIRECCION"),ALMACEN, c.GetString("CN_RUTA"), "En espera",c.GetString("CN_GIRO"),dialetra, c.GetString("CN_SOLICITA"))
 				reqManager.ExecuteCommand(cmd , "inst_clientesn")
 			Next
 		End If
@@ -2110,6 +2110,8 @@ Sub e_ruta_EnterPressed
 			B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ABONOS")
 			B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM PICK_CIEGO")
 			B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM RUTA_SUPLENCIA")
+			B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CLIENTES_NUEVOS")
+			B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENV_MONTO_LIQ")
 			B4XPage_Appear
 			l_rutasuplencia.Visible = False
 			Label22.Visible = False
@@ -2699,4 +2701,4 @@ Private Sub iv_abordo_Click
 	Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))
 	B4XPages.MainPage.tipo_venta = "ABORDO"
 	B4XPages.ShowPage("Productos")
-End Sub
+End Sub

B4A/MARQUEZ.b4a.meta

@@ -88,6 +88,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Productos,b_prodMenos_Click,560,0,Subs,guardaProductoSinGestion2,804,4,Subs,actualizaProducto2,831,6,Subs,actualizaProducto,784,0,Subs,guardaProductoSinGestion,763,0,C_Productos,b_prodMenosc_Click,1380,0,C_Productos,b_prodMasc_Click,1477,0,C_Productos,et_pCantc_TextChanged,1588,0,C_Nota,B4XPage_Appear,57,0,C_Cliente,MODS,0,0,C_Cliente,Class_Globals,35,0
+NavigationStack=Subs,traeCliente,724,0,Subs,traePromo,917,0,B4XMainPage,B4XPage_Created,201,0,B4XMainPage,b_CargarMonto_Click,1219,6,Subs,agregaColumna,1482,0,Subs,hayPedido,1462,0,B4XMainPage,b_aceptar_Click,1146,0,C_Principal,e_ruta_EnterPressed,2107,0,B4XMainPage,B_Aceptar_Monto_Click,1191,6,B4XMainPage,JobDone,549,6
 SelectedBuild=0
 VisibleModules=1,2,13,4,7,8,9,10,14,28