version final

B4A/B4XMainPage.bas

@@ -156,8 +156,10 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 '	Log(ruta)
 	skmt.Initialize(ruta,"kmt.db", True)
 	Subs.guardaAppInfo(skmt)
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CLIENTES_NUEVOS(CN_ID TEXT, CN_FECHA TEXT, CN_USER TEXT, CN_LAT TEXT, CN_LON TEXT, CN_NOMBRE TEXT, CN_DIRECCION TEXT, CN_FOTO TEXT, CN_ALMACEN TEXT, CN_RUTA TEXT,CN_GIRO TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CUOTAS (HC_META6 TEXT, HC_META5 TEXT, HC_META4 TEXT, HC_META3 TEXT, HC_META2 TEXT, HC_META1 TEXT, HC_RUTA TEXT, HC_CUOTA1 TEXT, HC_CUOTA2 TEXT, HC_CUOTA3 TEXT, HC_CUOTA4 TEXT, HC_CUOTA5 TEXT, HC_CUOTA6 TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_GPS (HGDATE TEXT, HGLAT TEXT, HGLON TEXT)")
+	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_GIRO(GIRO TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_GUNAPROD2 (CAT_GP_INICIATIVA TEXT, CAT_GP_TIPOPROD TEXT, CAT_GP_DEV TEXT, CAT_GP_ALMACEN NUMERIC, CAT_GP_ID TEXT, CAT_GP_NOMBRE TEXT, CAT_GP_IMP1 TEXT, CAT_GP_IMP2 TEXT, CAT_GP_PRECIO TEXT, CAT_GP_CLASIF TEXT, CAT_GP_STS TEXT, CAT_GP_TIPO TEXT, CAT_GP_SUBTIPO TEXT, CAT_GP_IMG BLOB)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_STAY_STORE (HSS_CODIGO TEXT, HSS_IN TEXT, HSS_OUT TEXT, HSS_TOT TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_STAY_OUT (HSO_INI TEXT, HSO_FIN TEXT)")

B4A/C_Cliente.bas

@@ -561,6 +561,8 @@ Sub Guardar_Click
 								et_montoacredito.Text = Subs.traeTotalClientepreventaparacredito
 							End If
 							limitcred.Close
+						Else
+							GuardaVenta
 						End If
 					
 					Else If pre_act = Starter.pre_viejo Then
@@ -592,6 +594,8 @@ Sub Guardar_Click
 									et_montoacredito.Text = Subs.traeTotalClientepreventaparacredito
 								End If
 								limitcred.Close
+							Else
+								GuardaVenta
 							End If
 					
 						Else If pre_act = Starter.pre_viejo Then
@@ -630,12 +634,12 @@ Private Sub b_acred_Click
 			c = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) As REGISTRADO FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
 			c.Position = 0
 			If c.GetString("REGISTRADO") = 0 Then
-				MsgboxAsync("SI ENTRAMOS 3","Atención")
+'				MsgboxAsync("SI ENTRAMOS 3","Atención")
 				B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PAGARES (PA_ALMACEN, PA_RUTA, PA_FECHA, PA_CAPTURA, PA_MONTO, PA_USUARIO, PA_CLIENTE) VALUES(?,?,?,?,?,?,?) ", Array As Object (ALMACEN, LA_RUTA, (sDate &" "& sTime),(sDate &" "& sTime), et_montoacredito.Text, usuario, la_cuenta.Text))
 				GuardaVenta
 				p_credito.Visible = False
 			Else
-				MsgboxAsync("SI ENTRAMOS4","Atención")
+'				MsgboxAsync("SI ENTRAMOS4","Atención")
 				B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PAGARES set PA_FECHA = ?, PA_CAPTURA = ?, PA_MONTO = ? where PA_CLIENTE In (select cuenta from cuentaa)", Array As Object ((sDate &" "& sTime),(sDate &" "& sTime), et_montoacredito.Text))
 				GuardaVenta
 				p_credito.Visible = False
@@ -649,12 +653,12 @@ Private Sub b_acred_Click
 			c = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT(*) As REGISTRADO FROM PAGARES WHERE PA_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
 			c.Position = 0
 			If c.GetString("REGISTRADO") = 0 Then
-				MsgboxAsync("SI ENTRAMOS","Atención")
+'				MsgboxAsync("SI ENTRAMOS","Atención")
 				B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO PAGARES (PA_ALMACEN, PA_RUTA, PA_FECHA, PA_CAPTURA, PA_MONTO, PA_USUARIO, PA_CLIENTE) VALUES(?,?,?,?,?,?,?) ", Array As Object (ALMACEN, LA_RUTA, (sDate &" "& sTime),(sDate &" "& sTime), et_montoacredito.Text, usuario, la_cuenta.Text))
 				GuardaVenta
 				p_credito.Visible = False
 			Else
-				MsgboxAsync("SI ENTRAMOS 2","Atención")
+'				MsgboxAsync("SI ENTRAMOS 2","Atención")
 				B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE PAGARES set PA_FECHA = ?, PA_CAPTURA = ?, PA_MONTO = ? where PA_CLIENTE In (select cuenta from cuentaa)", Array As Object ((sDate &" "& sTime),(sDate &" "& sTime), et_montoacredito.Text))
 				GuardaVenta
 				p_credito.Visible = False

B4A/C_NuevoCliente.bas

@@ -17,6 +17,7 @@ Sub Class_Globals
 	Dim cuenta As String
 	Dim usuario As String
 	Dim sDate,sTime As String
+	Dim sDate2,sTime2 As String
 	Dim no_cliente As String
 	Dim no_ruta As String
 	
@@ -27,6 +28,21 @@ Sub Class_Globals
 	Private p_nuevoCliente As Panel
 	Private Label1 As Label
 	Private p_botones As Panel
+	Private p_cam As Panel
+	Private p_camara As Panel
+	Private b_foto_inci As Button
+'	Private camEx2 As CameraExClass2
+	Dim frontCamera As Boolean = False
+	Dim fototomada As String = "0"
+	Dim ALMACEN As String
+	Private et_direccion As EditText
+	Private Label2 As Label
+	Dim lat As Double = 0
+	Dim lon As Double = 0
+	Private b_ubicacion As Label
+	Private Label3 As Label
+	Private cb_giro As B4XComboBox
+	Dim giros As String
 End Sub
 
 'You can add more parameters here.
@@ -36,6 +52,7 @@ End Sub
 
 'This event will be called once, before the page becomes visible.
 Private Sub B4XPage_Created (Root1 As B4XView)
+'	B4XPages.SetTitle(Me, $"${Subs.capitalizar(B4XPages.GetPageId(Me))} - ${Application.VersionName}"$)
 	Root = Root1
 	'load the layout to Root
 	Root.LoadLayout("nuevocliente")
@@ -44,11 +61,38 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
 	End If
 '	skmt.Initialize(ruta,"kmt.db", True)
+'	p_camara.Height = Root.Height
+'	p_camara.Width = Root.Width
+'	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
+'	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
+'	If Result Then
+	''		camEx2.Initialize(p_cam, frontCamera, Me, "Camera1")
+	''		frontCamera = camEx2.Front
+'		Log("inicializamos Camara")
+'	Else
+'		ToastMessageShow("Sin permisos de camara!!!", True)
+'	End If
+	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
+	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
+	If Result Then
+		Log("Con permisos para escritura")
+	Else
+		ToastMessageShow("Sin permisos de escritura!!!", True)
+	End If
+	
+	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
+	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
+	If Result Then
+		Log("Con permisos para escritura")
+	Else
+		ToastMessageShow("Sin permisos de lectura!!!", True)
+	End If
 End Sub
 
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Sub B4XPage_Appear
+	
 	E_NOMBRE.Text =  ""
 	If Not(Starter.gps.GPSEnabled) Then
 		ToastMessageShow("Es necesario tener el GPS encendido", True)
@@ -59,57 +103,234 @@ Sub B4XPage_Appear
 	p_nuevoCliente.Height = Root.Height
 	p_nuevoCliente.Width = Root.Width
 	Subs.centraEtiqueta(Label1, Root.Width)
+	Subs.centraEtiqueta(Label2, Root.Width)
+	Subs.centraEtiqueta(Label3, Root.Width)
 	Subs.centraEtiqueta(l_sinUbicacion, Root.Width)
+	Subs.centraEtiqueta(b_ubicacion, Root.Width)
 	Subs.centraPanel(p_botones, Root.Width)
 	E_NOMBRE.Left = Round(Root.Width/2)-(E_NOMBRE.Width/2)
+	et_direccion.Left = Round(Root.Width/2)-(E_NOMBRE.Width/2)
 	If B4XPages.MainPage.lat_gps <> "0.0" Then
 		GUARDA.Visible = True 'Si hay ubicaccion, mostramos el boton de guardar.
-		l_sinUbicacion.Visible = False
+		l_sinUbicacion.Visible = True
 	End If
+	
+	If Not(Starter.GPS.GPSEnabled) Then
+		ToastMessageShow("Debe Activar el GPS del Equipo.", True)
+		StartActivity(Starter.GPS.LocationSettingsIntent)
+	Else
+		Starter.GPS.Start(0, 0)
+'		If Starter.ubicacionActual.Latitude <> 0 Then GPS_LocationChanged(Starter.ubicacionActual)
+	End If
+	CallSubDelayed(Tracker, "StartFLPSmall")
+	
+	c = Starter.skmt.ExecQuery("SELECT GIRO FROM CAT_GIRO order by 1")
+	Dim Items As List
+	Items.Initialize
+	Items.Add("SELECCIONA UNA OPCIÓN")
+	If c.RowCount > 0 Then
+		For i = 0 To c.RowCount-1
+			c.Position = i
+			Items.Add(c.GetString("GIRO"))
+		Next
+		cb_giro.SetItems(Items)
+	End If
+	giros = "SELECCIONA UNA OPCIÓN"
+	c.Close
 End Sub
 
 Sub GPS_LocationChanged (Location1 As Location)
 	If B4XPages.MainPage.lat_gps <> "0.0" Then
 		GUARDA.Visible = True 'Si hay ubicaccion, mostramos el boton de guardar.
-		l_sinUbicacion.Visible = False
+		l_sinUbicacion.Visible = True
+		lat = Location1.Latitude
+		lon = Location1.Longitude
+		l_sinUbicacion.Text = ("Latitud: " & lat & ", Longotud: "& lon)
+	End If
+	
+	b_ubicacion.TextSize = 13
+	b_ubicacion.Text = $"Precisión GPS $1.0{Location1.Accuracy} m"$
+	If Location1.Accuracy > 200 Then
+		b_ubicacion.TextColor = Colors.Red
+		b_ubicacion.TextSize = 16
+		b_ubicacion.Text = $"Mala señal $1.0{Location1.Accuracy} m"$
 	End If
 End Sub
 
 Sub CANCELA_Click
 	B4XPages.ShowPage("Principal")
+	CallSubDelayed(Tracker, "StartFLP")
 End Sub
 
 Sub GUARDA_Click
 	If E_NOMBRE.Text =  "" Then
-		ToastMessageShow("Se tiene que nombrar la tienda para continuar" , True)
+		MsgboxAsync("Por favor captura el nombre de la Tienda","Atención")
 	Else
-		DateTime.DateFormat = "MM/dd/yyyy"
+		If et_direccion.Text.Length > 3 Then
-		DateTime.Timeformat = "HHmmss"
+			If lat <> 0 Then
-		sDate=DateTime.Date(DateTime.Now)
+'				If fototomada <> "0" Then
-		sTime=DateTime.Time(DateTime.Now)
+				If giros <> "SELECCIONA UNA OPCIÓN" Or cb_giro.SelectedItem <> "SELECCIONA UNA OPCIÓN" Then
-		Log($" ////////////   Date: ${sDate} - Time: ${sTime} ////////////////"$)
+					DateTime.DateFormat = "MM/dd/yyyy"
-		'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'"
+					DateTime.Timeformat = "HHmmss"
-		Private hora As String = sTime.SubString2(0,2)
+					sDate=DateTime.Date(DateTime.Now)
-		Private mins As String = sTime.SubString2(2,4)
+					sTime=DateTime.Time(DateTime.Now)
-		Private segs As String = sTime.SubString(4)
+					Log($" ////////////   Date: ${sDate} - Time: ${sTime} ////////////////"$)
-		sTime = hora&":"&mins&":"&segs
+					'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'"
-		Log("////////////// sTime: "&sTime&" ////////////////")
+					Private hora As String = sTime.SubString2(0,2)
-		c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA FROM kmt_info")
+					Private mins As String = sTime.SubString2(2,4)
-		c.Position=0
+					Private segs As String = sTime.SubString(4)
-		no_ruta= c.GetString("CAT_CL_RUTA")
+					sTime = hora&":"&mins&":"&segs
-		no_cliente= "N" & sTime & no_ruta
+					Log("////////////// sTime: "&sTime&" ////////////////")
-		Log("++ ++ no_cliente = "&no_cliente)
+					c=Starter.skmt.ExecQuery("select CAT_CL_RUTA FROM kmt_info")
-		c.Close
+					c.Position=0
-		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,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))
+					no_ruta= c.GetString("CAT_CL_RUTA")
-		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO,  HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (no_cliente))
+					no_cliente= "N" & sTime & no_ruta
-		B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
+					Log("++ ++ no_cliente = "&no_cliente)
-		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(no_cliente))
+					c.Close
-		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CLIENTE_NUEVO(CN_ID_CLIENTE, CN_NOMBRE) VALUES (?,?)", Array As Object(no_cliente, E_NOMBRE.Text))
+					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))
-		B4XPages.ShowPage("Cliente")
+					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")
+					If c.RowCount>0 Then
+						C.Position=0
+						ALMACEN = C.GetString("ID_ALMACEN")
+					End If
+					c.Close
+					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  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)
+					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))
+'						fototomada = "0"
+					B4XPages.ShowPage("Cliente")
+					CallSubDelayed(Tracker, "StartFLP")
+		
+				Else
+					MsgboxAsync("Por favor captura el giro del cliente","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")
+			End If
+		Else
+			MsgboxAsync("Por favor captura la dirección del cliente","Atención")
+		End If
 	End If
 End Sub
 
 
+
 Private Sub p_nuevoCliente_Click
 	
+End Sub
+
+'Private Sub b_foto_inci_Click
+'	camEx2.TakePicture
+'	p_camara.Visible = False
+''	StopCamera2
+'End Sub
+'
+'Private Sub InitializeCamera2
+'	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
+'	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
+'	If Result Then
+'		camEx2.Initialize(p_cam, frontCamera, Me, "Camera1")
+'		frontCamera = camEx2.Front
+'		Log("inicializamos Camara")
+'	Else
+'		ToastMessageShow("Sin permisos de camara!!!", True)
+'	End If
+'	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
+'	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
+'	If Result Then
+'		Log("con permisos para escritura")
+'	Else
+'		ToastMessageShow("Sin permisos de escritura!!!", True)
+'	End If
+'	
+'	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
+'	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
+'	If Result Then
+'		Log("con permisos para escritura")
+'	Else
+'		ToastMessageShow("Sin permisos de lectura!!!", True)
+'	End If
+'End Sub
+'
+'Sub Camera1_Ready (Success As Boolean)
+'	Log("Camara ready")
+'	If Success Then
+'		camEx2.SetJpegQuality(90)
+'		camEx2.SetContinuousAutoFocus
+'		camEx2.CommitParameters
+'		camEx2.StartPreview
+'		Log(camEx2.GetPreviewSize)
+'	Else
+'		ToastMessageShow("Cannot open camera.", True)
+'		Log("Cannot open camera")
+'	End If
+'End Sub
+'
+'Sub Camera1_PictureTaken (Data()As Byte)
+'	Log("tome foto")
+'	Dim filename As String = fototomada
+'	Dim Dirp As String = File.DirInternal
+'	Dim Dir As String
+'	Dim Dir2 As String
+'	Try
+'		File.MakeDir(Dirp,"/promotoriakmts")
+'		Dir = "/promotoriakmts"
+'		Log("creado en promotoria " & Dirp & Dir)
+'	Catch
+'		Dir = ""
+'		Log("creado en raiz")
+'	End Try
+'	
+'	Try
+'		File.MakeDir(Dirp & Dir,"/reduccion")
+'		Dir2 = "/reduccion"
+'		Log("creado en promotoria " & Dirp & Dir & Dir2)
+'	Catch
+'		Dir = ""
+'		Log("creado en raiz")
+'	End Try
+'	
+'	camEx2.SavePictureToFile(Data, Dirp&Dir, filename)
+'	camEx2.StartPreview 'restart preview
+'	ToastMessageShow("Picture saved." & CRLF  & "File size: " & File.Size(Dir, filename) & Dir &"," & filename, True)
+'	Log("Picture saved." & CRLF  & "File size: " & File.Size(Dir, filename) & Dir &"," & filename)
+'	p_camara.Visible = False
+'	StopCamera2
+'	
+'End Sub
+'
+'Private Sub StopCamera2
+''	Capturing = False
+'	If camEx2.IsInitialized Then
+'		camEx2.Release
+'	End If
+'End Sub
+'
+'
+'Private Sub B_FOTO_Click
+'	DateTime.DateFormat="ddMMyyyyHHmmss"
+'	InitializeCamera2
+'	Subs.panelVisible(p_camara, 0, 0)
+'	fototomada = DateTime.Now & "_cliente.jpg"
+'End Sub
+
+Private Sub cb_giro_SelectedIndexChanged (Index As Int)
+	giros = cb_giro.SelectedItem
 End Sub

B4A/C_Principal.bas

@@ -214,6 +214,7 @@ Sub Class_Globals
 	Private L_VENTA As Label
 	Private L_PREVENTA As Label
 	Private p_abordo As Panel
+	Private Panel11 As Panel
 End Sub
 
 'You can add more parameters here.
@@ -636,6 +637,42 @@ Sub Subir_Click
 			Next
 		End If
 		c.Close
+		
+		' CLIENTES NUEVOS
+		Dim fotocn() As Byte
+		Dim Dirp As String = File.DirInternal
+		Dim Dir As String
+		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")
+		If c.RowCount>0 Then
+			For i = 0 To c.RowCount - 1
+				c.Position = i
+				Log(File.Exists(Dirp&Dir&Dir2,c.GetString("CN_FOTO")))
+				If File.Exists(Dirp&Dir&Dir2,c.GetString("CN_FOTO")) Then fotocn = Bit.InputStreamToBytes(File.OpenInput(Dirp&Dir,c.GetString("CN_FOTO")))
+				Dim dia As Int = DateTime.GetDayOfWeek(DateTime.Now)
+				If dia = 2  Then
+					Dim dialetra As String = "LUNES"
+				Else If dia = 3  Then
+					Dim dialetra As String = "MARTES"
+				Else If dia = 4  Then
+					Dim dialetra As String = "MIERCOLES"
+				Else If dia = 5  Then
+					Dim dialetra As String = "JUEVES"
+				Else If dia = 6  Then
+					Dim dialetra As String = "VIERNES"
+				Else If dia = 7  Then
+					Dim dialetra As String = "SABADO"
+				End If
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insert_clientesnuevos_MARQUEZ"
+				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"), fotocn, "En espera",c.GetString("CN_GIRO"),dialetra)
+				reqManager.ExecuteCommand(cmd , "inst_clientesn")
+			Next
+		End If
+		c.Close
 
 '		c=B4XPages.MainPage.skmt.ExecQuery("SELECT  HE_CLIE, HE_RES, HE_FECHA, HE_TIPO FROM HIST_ENCUESTA")
 '		If c.RowCount>0 Then
@@ -858,6 +895,7 @@ Sub cargar_Click
 		B4XPages.MainPage.skmt.ExecNonQuery("delete from HIST_CLIENTE_CANT_PROMOS")
 		B4XPages.MainPage.skmt.ExecNonQuery("delete from PROMOS_COMP")
 		B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_VERIFICACION")
+		Starter.skmt.ExecNonQuery("delete from CAT_GIRO")
 		B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM MARCAS_RUTAS")
 		B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_STAY_STORE")
 		B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GEOCERCA")
@@ -903,6 +941,10 @@ Sub cargar_Click
 		cmd.Name = "select_cat_gunaprod2_MARQUEZ"
 		cmd.Parameters = Array As Object(ALMACEN,e_ruta.Text)
 		reqManager.ExecuteQuery(cmd , 0, "gunaprod2")
+		
+		cmd.Initialize
+		cmd.Name = "select_cat_GIRO_MARQUEZ"
+		reqManager.ExecuteQuery(cmd , 0, "giro")
 
 '	cmd.Initialize
 '	cmd.Name = "select_resum_apk_INTMEX"   ''' va el nombre de archivo de config
@@ -966,7 +1008,7 @@ Sub cargar_Click
 			B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO RUTA_SUPLENCIA(RS_RUTA) VALUES(?)",Array As String(E_RUTA2.Text))
 			
 			E_RUTA2.Visible = False
-			ImageView9.Visible = False
+			Panel11.Visible = False
 			
 			cmd.Initialize
 			cmd.Name = "select_cat_clientes_MARQUEZ"
@@ -1114,6 +1156,37 @@ Sub JobDone(Job As HttpJob)
 			End If
 		End If
 
+		If Job.JobName = "DBRequest" Then
+			Dim RESULT As DBResult = reqManager.HandleJob(Job)
+			If RESULT.Tag = "giro" Then 'query tag
+				For Each records() As Object In RESULT.Rows
+					Dim giro  As String = records(RESULT.Columns.Get("CAT_GR_DESC"))
+					
+					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_GIRO(GIRO) VALUES (?)", Array As Object (giro))
+				Next
+				If PB2.Progress = 0 Then
+					PB2.Progress = 30
+					S_CP.Text = "CARGANDO"
+				ELSE If PB2.Progress = 30 Then
+					PB2.Progress = 60
+				ELSE IF PB2.Progress = 60 Then
+					PB2.Progress = 100
+					S_CP.Text = "LISTO"
+				End If
+				Listo3 =1
+				If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
+					B4XPage_Appear
+					img2.Visible=False
+					EJECUTANDO=0
+				Else If Listo4 = 1 And Listo3 = 1 And inve = 1 Then
+					B4XPage_Appear
+					img2.Visible=False
+					EJECUTANDO=0
+				End If
+	   
+			End If
+		End If
+
 		If Job.JobName = "DBRequest" Then
 			Dim RESULT As DBResult = reqManager.HandleJob(Job)
 			If RESULT.Tag = "kmt_datos" Then 'query tag
@@ -1988,6 +2061,7 @@ Sub e_ruta_EnterPressed
 		RES =  Msgbox2("Seguro que desea hacer el cierre todos los datos se borraran?","Cierre", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"))  'ignore
 		If RES = DialogResponse.POSITIVE Then
 			e_ruta.Text = ""
+			Starter.skmt.ExecNonQuery("delete from CAT_GIRO")
 			B4XPages.MainPage.skmt.ExecNonQuery("delete from CLIENTE_NUEVO")
 			B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente")
 			B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido")
@@ -2026,7 +2100,8 @@ Sub e_ruta_EnterPressed
 	End If
 	If e_ruta.Text = "SUPLENCIA" Then
 		E_RUTA2.Visible = True
-		ImageView9.Visible = True
+		Panel11.Visible = True
+'		ImageView9.Visible = True
 		e_ruta.Text= ""
 	End If
 End Sub

B4A/MARQUEZ.b4a

@@ -189,7 +189,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Marquez
 	#VersionCode: 1
-	#VersionName: 4.05.21
+	#VersionName: 4.06.01
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False

B4A/MARQUEZ.b4a.meta

@@ -85,6 +85,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Diseñador Visual,clientes.bal,-100,1,Diseñador Visual,cliente.bal,-100,6,C_Clientes,Class_Globals,0,0,C_Cliente,b_abono_Click,1276,0,C_Cliente,gest_Click,465,0,C_Nota,Regresar_Click,138,0,Subs,traeUsuarioDeBD,744,0,C_Cliente,Guardar_Click,562,6,Main,Activity_Pause,50,0,B4XMainPage,B4XPage_Created,145,0
+NavigationStack=C_Principal,Class_Globals,211,0,C_NuevoCliente,cb_giro_SelectedIndexChanged,329,0,C_Principal,iv_abordo_Click,2594,0,C_NuevoCliente,B4XPage_Appear,87,0,B4XMainPage,B4XPage_Created,152,0,C_Principal,Subir_Click,638,0,C_Principal,JobDone,1269,0,C_Principal,e_ruta_EnterPressed,2096,3,Diseñador Visual,principal.bal,-100,3,C_Principal,cargar_Click,1004,3
 SelectedBuild=0
-VisibleModules=1,2,3,4,5,6,7,8,9,10,13,27
+VisibleModules=1,2,3,4,5,6,7,8,9,10,11,13