puerto

B4A/C_Cheklist.bas

@@ -28,6 +28,83 @@ Sub Class_Globals
 	Dim device As Phone
 	Dim MES1 As ManageExternalStorage
 	Dim x As Int = 0
+	Private rb_docsi1 As RadioButton
+	Private rb_docno1 As RadioButton
+	Private rb_docsi2 As RadioButton
+	Private rb_docno2 As RadioButton
+	Private rb_docsi3 As RadioButton
+	Private rb_docno3 As RadioButton
+	Private rb_docsi4 As RadioButton
+	Private rb_docno4 As RadioButton
+	Private rb_docsi5 As RadioButton
+	Private rb_docno5 As RadioButton
+	Private rb_docsi6 As RadioButton
+	Private rb_docno6 As RadioButton
+	Private rb_docsi7 As RadioButton
+	Private rb_docno7 As RadioButton
+	Private rb_docsi8 As RadioButton
+	Private rb_docno8 As RadioButton
+	Private rb_docsi9 As RadioButton
+	Private rb_docno9 As RadioButton
+	Private rb_docsi10 As RadioButton
+	Private rb_docno10 As RadioButton
+	Private rb_docsi11 As RadioButton
+	Private rb_docno11 As RadioButton
+	Private rb_docsi12 As RadioButton
+	Private rb_docno12 As RadioButton
+	Private rb_docsi13 As RadioButton
+	Private rb_docno13 As RadioButton
+	Private rb_docsi14 As RadioButton
+	Private rb_docno14 As RadioButton
+	Private rb_docsi15 As RadioButton
+	Private rb_docno15 As RadioButton
+	Private rb_docsi16 As RadioButton
+	Private rb_docno16 As RadioButton
+	Private rb_docsi17 As RadioButton
+	Private rb_docno17 As RadioButton
+	Private rb_docsi18 As RadioButton
+	Private rb_docno18 As RadioButton
+	Private rb_docsi19 As RadioButton
+	Private rb_docno19 As RadioButton
+	Private et_carroceria As EditText
+	Private et_luces As EditText
+	Private et_placas As EditText
+	Private et_liquidos As EditText
+	
+	Dim p1 As String
+	Dim p2 As String
+	Dim p3 As String
+	Dim p4 As String
+	Dim p5 As String
+	Dim p6 As String
+	Dim p7 As String
+	Dim p8 As String
+	Dim p9 As String
+	Dim p10 As String
+	Dim p11 As String
+	Dim p12 As String
+	Dim p13 As String
+	Dim p14 As String
+	Dim p15 As String
+	Dim p16 As String
+	Dim p17 As String
+	Dim p18 As String
+	Dim p19 As String
+	Private cb_izqdel As B4XComboBox
+	Private cb_derdel As B4XComboBox
+	Private cb_izqatras As B4XComboBox
+	Private cb_deratras As B4XComboBox
+	Dim itemselect1 As String
+	Dim itemselect2 As String
+	Dim itemselect3 As String
+	Dim itemselect4 As String
+	Dim foto1() As Byte
+	Dim foto2() As Byte
+	Dim foto3() As Byte
+	Dim foto4() As Byte
+	Dim c As Cursor
+	Dim reqManager As DBRequestManager
+	Private l_placa As Label
 End Sub
 
 'You can add more parameters here.
@@ -47,6 +124,24 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	p_check.Width = Root.Width
 	p_camara.Width = Root.Width
 	p_camara.Height = Root.Height
+	
+	
+	Dim items As List
+	items.Initialize
+	items.Add("100%")
+	items.Add("75%")
+	items.Add("50%")
+	items.Add("25%")
+	cb_deratras.SetItems(items)
+	cb_izqatras.SetItems(items)
+	cb_derdel.SetItems(items)
+	cb_izqdel.SetItems(items)
+	itemselect1 = "100%"
+	itemselect2 = "100%"
+	itemselect3 = "100%"
+	itemselect4 = "100%"
+	
+	reqManager.Initialize(Me, B4XPages.MainPage.server)
 End Sub
 
 Private Sub B4XPage_Appear
@@ -66,15 +161,21 @@ Private Sub B4XPage_Appear
 		Log("SDK = " & SdkVersion & " : Requesting MANAGE_EXTERNAL_STORAGE permission")
 		Log("On Entry MANAGE_EXTERNAL_STORAGE = " & MES1.HasPermission)
 		If Not(MES1.HasPermission) Then
-			MsgboxAsync("This app requires access to all files, please enable the option", "Manage All Files")
+			MsgboxAsync("Esta aplicación requiere acceso a todos los archivos, habilite la opción", "Administrar todos los archivos")
 			Wait For Msgbox_Result(Res As Int)
 			Log("Getting permission")
 			MES1.GetPermission
 			Wait For MES_StorageAvailable
 		End If
 	End If
-	
 	p_camara.Visible = False
+	
+	c = Starter.skmt.ExecQuery("SELECT PLACA FROM HIST_VENTAS")
+	c.Position = 0
+	l_placa.Text = c.GetString("PLACA")
+	c.Close
+	
+	
 End Sub
 
 Private Sub InitializeCamera2
@@ -144,6 +245,7 @@ Sub Camera1_PictureTaken (Data()As Byte)
 		fototomada = nombrefoto3
 		
 	End If
+	
 	Log("tome foto")
 	Dim filename As String = fototomada
 	Dim Dirp As String = File.DirRootExternal
@@ -179,33 +281,42 @@ Sub Camera1_PictureTaken (Data()As Byte)
 	Log(nombrefoto3)
 	
 	If nombrefoto <> "0" Then
-		Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True)
+		Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 450, 600, True)
 		Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, True)
 		img.WriteToStream(out, 100, "PNG")
+'		foto1 = File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto)
+		
 		out.Close
 		ImageView1.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,nombrefoto)
+		
 	End If
 	
 	If nombrefoto1 <> "0" Then
-		Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True)
+		Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 450, 600, True)
 		Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False)
 		img.WriteToStream(out, 100, "PNG")
+'		foto2 = File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto1)
+		
 		out.Close
 		ImageView2.Bitmap = LoadBitmap(File.DirRootExternal & Dir& Dir2,nombrefoto1)
 	End If
 	
 	If nombrefoto2 <> "0" Then
-		Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True)
+		Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 450, 600, True)
 		Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False)
 		img.WriteToStream(out, 100, "PNG")
+'		foto3 = File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto2)
+		
 		out.Close
 		ImageView3.Bitmap = LoadBitmap(File.DirRootExternal & Dir& Dir2,nombrefoto2)
 	End If
 	
 	If nombrefoto3 <> "0" Then
-		Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True)
+		Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 450, 600, True)
 		Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False)
 		img.WriteToStream(out, 100, "PNG")
+'		foto4 = File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto3)
+		
 		out.Close
 		ImageView4.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,nombrefoto3)
 	End If
@@ -263,6 +374,379 @@ Private Sub ImageView4_Click
 
 End Sub
 
+Private Sub rb_docno1_CheckedChange(Checked As Boolean)
+	p1 = "No"
+End Sub
+
+Private Sub rb_docsi1_CheckedChange(Checked As Boolean)
+	p1 = "Si"
+End Sub
+
+Private Sub rb_docno2_CheckedChange(Checked As Boolean)
+	p2 = "No"
+End Sub
+
+Private Sub rb_docsi2_CheckedChange(Checked As Boolean)
+	p2 = "Si"
+End Sub
+
+Private Sub rb_docno3_CheckedChange(Checked As Boolean)
+	p3 = "No"
+End Sub
+
+Private Sub rb_docsi3_CheckedChange(Checked As Boolean)
+	p3 = "Si"
+End Sub
+
+Private Sub rb_docno4_CheckedChange(Checked As Boolean)
+	p4 = "No"
+End Sub
+
+Private Sub rb_docsi4_CheckedChange(Checked As Boolean)
+	p4 = "Si"
+End Sub
+
+Private Sub rb_docno5_CheckedChange(Checked As Boolean)
+	p5 = "No"
+End Sub
+
+Private Sub rb_docsi5_CheckedChange(Checked As Boolean)
+	p5 = "Si"
+End Sub
+
+Private Sub rb_docno6_CheckedChange(Checked As Boolean)
+	p6 = "No"
+End Sub
+
+Private Sub rb_docsi6_CheckedChange(Checked As Boolean)
+	p6 = "Si"
+End Sub
+
+Private Sub rb_docno7_CheckedChange(Checked As Boolean)
+	p7 = "No"
+End Sub
+
+Private Sub rb_docsi7_CheckedChange(Checked As Boolean)
+	p7 = "Si"
+End Sub
+
+Private Sub rb_docno8_CheckedChange(Checked As Boolean)
+	p8 = "No"
+End Sub
+
+Private Sub rb_docsi8_CheckedChange(Checked As Boolean)
+	p8 = "Si"
+End Sub
+
+Private Sub rb_docno9_CheckedChange(Checked As Boolean)
+	p9 = "No"
+End Sub
+
+Private Sub rb_docsi9_CheckedChange(Checked As Boolean)
+	p9 = "Si"
+End Sub
+
+Private Sub rb_docno10_CheckedChange(Checked As Boolean)
+	p10 = "No"
+End Sub
+
+Private Sub rb_docsi10_CheckedChange(Checked As Boolean)
+	p10 = "Si"
+End Sub
+
+Private Sub rb_docno11_CheckedChange(Checked As Boolean)
+	p11 = "No"
+End Sub
+
+Private Sub rb_docsi11_CheckedChange(Checked As Boolean)
+	p11 = "Si"
+End Sub
+
+Private Sub rb_docno12_CheckedChange(Checked As Boolean)
+	p12 = "No"
+End Sub
+
+Private Sub rb_docsi12_CheckedChange(Checked As Boolean)
+	p12 = "Si"
+End Sub
+
+Private Sub rb_docno13_CheckedChange(Checked As Boolean)
+	p13 = "No"
+End Sub
+
+Private Sub rb_docsi13_CheckedChange(Checked As Boolean)
+	p13 = "Si"
+End Sub
+
+Private Sub rb_docno14_CheckedChange(Checked As Boolean)
+	p14 = "No"
+End Sub
+
+Private Sub rb_docsi14_CheckedChange(Checked As Boolean)
+	p14 = "Si"
+End Sub
+
+Private Sub rb_docno15_CheckedChange(Checked As Boolean)
+	p15 = "Incorrecto"
+End Sub
+
+Private Sub rb_docsi15_CheckedChange(Checked As Boolean)
+	p15 = "Correcto"
+End Sub
+
+Private Sub rb_docno16_CheckedChange(Checked As Boolean)
+	p16 = "Incorrecto"
+End Sub
+
+Private Sub rb_docsi16_CheckedChange(Checked As Boolean)
+	p16 = "Correcto"
+End Sub
+
+Private Sub rb_docno17_CheckedChange(Checked As Boolean)
+	p17 = "Incorrecto"
+End Sub
+
+Private Sub rb_docsi17_CheckedChange(Checked As Boolean)
+	p17 = "Correcto"
+End Sub
+
+Private Sub rb_docno18_CheckedChange(Checked As Boolean)
+	p18 = "Incorrecto"
+End Sub
+
+Private Sub rb_docsi18_CheckedChange(Checked As Boolean)
+	p18 = "Correcto"
+End Sub
+
+Private Sub rb_docno19_CheckedChange(Checked As Boolean)
+	p19 = "Incorrecto"
+End Sub
+
+Private Sub rb_docsi19_CheckedChange(Checked As Boolean)
+	p19 = "Correcto"
+End Sub
+
+Private Sub cb_izqdel_SelectedIndexChanged (Index As Int)
+	itemselect1 = cb_izqdel.SelectedItem
+	Log(itemselect1)
+End Sub
+
+Private Sub cb_izqatras_SelectedIndexChanged (Index As Int)
+	itemselect2 = cb_izqatras.SelectedItem
+	Log(itemselect2)
+End Sub
+
+Private Sub cb_derdel_SelectedIndexChanged (Index As Int)
+	itemselect3 = cb_derdel.SelectedItem
+	Log(itemselect3)
+End Sub
+
+Private Sub cb_deratras_SelectedIndexChanged (Index As Int)
+	itemselect4 = cb_deratras.SelectedItem
+	Log(itemselect4)
+End Sub
+
 Private Sub b_guardar_Click
-	B4XPages.ShowPage("Principal")
+	
-End Sub
+	Dim Dirp As String = File.DirRootExternal
+	Dim Dir As String
+	Dim Dir2 As String
+	Try
+		File.MakeDir(Dirp,"/md")
+		Dir = "/md"
+		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
+	
+	DateTime.TimeFormat="HH:mm:ss"
+	DateTime.DateFormat="dd/MM/yyyy"
+	Dim checkdate As String = DateTime.Date(DateTime.Now)
+	Dim checktime As String = DateTime.Time(DateTime.Now)
+	
+	If rb_docno1.Checked Or rb_docsi1.Checked Then
+		If rb_docno2.Checked Or rb_docsi2.Checked Then
+			If rb_docno3.Checked Or rb_docsi3.Checked Then
+				If rb_docno4.Checked Or rb_docsi4.Checked Then
+					If rb_docno5.Checked Or rb_docsi5.Checked Then
+						If rb_docno6.Checked Or rb_docsi6.Checked Then
+							If rb_docno7.Checked Or rb_docsi7.Checked Then
+								If rb_docno8.Checked Or rb_docsi8.Checked Then
+									If rb_docno9.Checked Or rb_docsi9.Checked Then
+										If rb_docno10.Checked Or rb_docsi10.Checked Then
+											If (rb_docsi10.Checked And et_carroceria.Text <> "") Or (rb_docno10.Checked And et_carroceria.Text = "") Then
+												If rb_docno11.Checked Or rb_docsi11.Checked Then
+													If rb_docno12.Checked Or rb_docsi12.Checked Then
+														If (rb_docsi12.Checked And et_luces.Text <> "") Or (rb_docno12.Checked And et_luces.Text = "") Then
+															If rb_docno13.Checked Or rb_docsi13.Checked Then
+																If rb_docno14.Checked Or rb_docsi14.Checked Then
+																	If (rb_docsi14.Checked And et_placas.Text <> "") Or (rb_docno14.Checked And et_placas.Text = "") Then
+																		If rb_docno15.Checked Or rb_docsi15.Checked Then
+																			If rb_docno16.Checked Or rb_docsi16.Checked Then
+																				If rb_docno17.Checked Or rb_docsi17.Checked Then
+																					If rb_docno18.Checked Or rb_docsi18.Checked Then
+																						If rb_docno19.Checked Or rb_docsi19.Checked Then
+																							If et_liquidos.Text <> ""  And (rb_docno15.Checked Or rb_docno16.Checked Or rb_docno17.Checked Or rb_docno18.Checked Or rb_docno19.Checked) Or  et_liquidos.Text = ""  And (rb_docsi15.Checked And rb_docsi16.Checked And rb_docsi17.Checked And rb_docsi18.Checked And rb_docsi19.Checked) Then
+																								If nombrefoto <> "0" And nombrefoto1 <> "0" And nombrefoto2 <> "0" And nombrefoto3 <> "0" Then
+																									Starter.skmt.ExecNonQuery("DELETE FROM CHECKLIST")
+																									Starter.skmt.ExecNonQuery2("INSERT INTO CHECKLIST(USUARIO, PLACA, FECHA_CAPTURA, TARJETA_CIRCULACION, POLIZA_SEGURO, LICENCIA_CONDUCIR, LIMPIA_EXTERNA, LIMPIA_INTERNA, TRIANGULO, GATO, LLANTA_REFACCION, CARROCERIA_BUENESTADO, CARROCERIA_MALESTADO, CARROCERIA_COMENTARIOS, LUCES_CORRECTO, LUCES_INCORRECTO, LUCES_COMENTARIOS, CONDICION_PLACAS_CORRECTO, CONDICION_PLACAS_INCORRECTO, CONDICION_PLACAS_COMENTARIOS, CONDICION_LLANTAS_DEL_DER, CONDICION_LLANTAS_DEL_IZQ, CONDICION_LLANTAS_TRASERA_DER, CONDICION_LLANTAS_TRASERA_IZQ, ACEITE, ANTICONGELANTE, FRENOS, AIRE, FUGAS, COMETARIOS_FUGAS, FOTO1, FOTO12, FOTO3, FOTO4) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)",Array As Object(B4XPages.MainPage.usuario,"placas",checkdate&" "&checktime,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,et_carroceria.Text,p11,p12,et_luces.Text,p13,p14,et_placas.Text,itemselect1,itemselect2,itemselect3,itemselect4,p15,p16,p17,p18,p19,et_liquidos.Text,File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto),File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto1),File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto2),File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto3)))
+																									
+																									mandaPendientes
+																									
+																									B4XPages.ShowPage("Principal")
+																								Else
+																									MsgboxAsync("Favor de tomar todas las fotos","Atención")
+																								End If
+																							Else
+																								MsgboxAsync("Especifica Fugas o detllaes en los liquidos","Atención")
+																							End If
+																						Else
+																							MsgboxAsync("Seleeciona una opción en Niveles de Liquidos y aire de Fugas","Atención")
+																						End If
+																					Else
+																						MsgboxAsync("Seleeciona una opción en Niveles de Liquidos y aire de Aire","Atención")
+																					End If
+																				Else
+																					MsgboxAsync("Seleeciona una opción en Niveles de Liquidos y aire de Frenos","Atención")
+																				End If
+																			Else
+																				MsgboxAsync("Seleeciona una opción en Niveles de Liquidos y aire de Anticongelante","Atención")
+																			End If
+																		Else
+																			MsgboxAsync("Seleeciona una opción en Niveles de Liquidos y aire de Aceite","Atención")
+																		End If
+																	Else
+																		MsgboxAsync("Especifica daños en las condiciones de placas","Atención")
+																	End If
+																Else
+																	MsgboxAsync("Seleeciona una opción en Conciciones de placas de Incorrecto","Atención")
+																End If
+															Else
+																MsgboxAsync("Seleeciona una opción en Conciciones de placas de Correcto","Atención")
+															End If
+														Else
+															MsgboxAsync("Especifica daños en las luces","Atención")
+														End If
+													Else
+														MsgboxAsync("Seleeciona una opción en Funcionamiento de luces de Incorrecto","Atención")
+													End If
+												Else
+													MsgboxAsync("Seleeciona una opción en Funcionamiento de luces de Correcto","Atención")
+												End If
+											Else
+												MsgboxAsync("Especifica daños en la carrocería","Atención")
+											End If
+										Else
+											MsgboxAsync("Seleeciona una opción en Carrocería de Mal estado","Atención")
+										End If
+									Else
+										MsgboxAsync("Seleeciona una opción en Carrocería de Buen estado","Atención")
+									End If
+								Else
+									MsgboxAsync("Seleeciona una opción en Seguridad y refación de Llanta de refacción","Atención")
+								End If
+							Else
+								MsgboxAsync("Seleeciona una opción en Seguridad y refación de gato","Atención")
+							End If
+						Else
+							MsgboxAsync("Seleeciona una opción en Seguridad y refación de Triagulo reflectante","Atención")
+						End If
+					Else
+						MsgboxAsync("Seleeciona una opción en Limpieza unidad interna","Atención")
+					End If
+				Else
+					MsgboxAsync("Seleeciona una opción en Limpieza unidad externa","Atención")
+				End If
+			Else
+				MsgboxAsync("Seleeciona una opción en Documentación viegnte de Licencia de conducir","Atención")
+			End If
+		Else
+			MsgboxAsync("Seleeciona una opción en Documentación viegnte de Póliza de seguro","Atención")
+		End If
+	Else
+		MsgboxAsync("Seleeciona una opción en Documentación viegnte de tarjeta de circulación","Atención")
+	End If
+
+End Sub
+
+Sub mandaPendientes
+	Log("MandaPendientes")
+	'PEDIDO (Pendientes)
+	c=Starter.skmt.ExecQuery("SELECT USUARIO, PLACA, FECHA_CAPTURA, TARJETA_CIRCULACION, POLIZA_SEGURO, LICENCIA_CONDUCIR, LIMPIA_EXTERNA, LIMPIA_INTERNA, TRIANGULO, GATO, LLANTA_REFACCION, CARROCERIA_BUENESTADO, CARROCERIA_MALESTADO, CARROCERIA_COMENTARIOS, LUCES_CORRECTO, LUCES_INCORRECTO, LUCES_COMENTARIOS, CONDICION_PLACAS_CORRECTO, CONDICION_PLACAS_INCORRECTO, CONDICION_PLACAS_COMENTARIOS, CONDICION_LLANTAS_DEL_DER, CONDICION_LLANTAS_DEL_IZQ, CONDICION_LLANTAS_TRASERA_DER, CONDICION_LLANTAS_TRASERA_IZQ, ACEITE, ANTICONGELANTE, FRENOS, AIRE, FUGAS, COMETARIOS_FUGAS, FOTO1, FOTO12, FOTO3, FOTO4 FROM CHECKLIST")
+	Log($"Pedido PENDIENTE: ${c.RowCount}"$)
+	If c.RowCount > 0 Then
+		For i = 0 To c.RowCount -1
+			c.Position=i
+			Dim cmd As DBCommand
+			
+			foto1 = c.GetBlob("FOTO1")
+			foto2 = c.GetBlob("FOTO12")
+			foto3 = c.GetBlob("FOTO3")
+			foto4 = c.GetBlob("FOTO4")
+			
+			cmd.Initialize
+			cmd.Name = "insert_CHECK_MARDS"
+			cmd.Parameters = Array As Object(C.GetString("USUARIO"),C.GetString("PLACA"),C.GetString("FECHA_CAPTURA"),C.GetString("TARJETA_CIRCULACION"),C.GetString("POLIZA_SEGURO"),C.GetString("LICENCIA_CONDUCIR"),C.GetString("LIMPIA_EXTERNA"),C.GetString("LIMPIA_INTERNA"),C.GetString("TRIANGULO"),C.GetString("GATO"), C.GetString("LLANTA_REFACCION"),C.GetString("CARROCERIA_BUENESTADO"),c.GetString("CARROCERIA_MALESTADO"),c.GetString("CARROCERIA_COMENTARIOS"),c.GetString("LUCES_CORRECTO"),c.GetString("LUCES_INCORRECTO"),c.GetString("LUCES_COMENTARIOS"),c.GetString("CONDICION_PLACAS_CORRECTO"))'c.GetString("CONDICION_PLACAS_INCORRECTO"),c.GetString("CONDICION_PLACAS_COMENTARIOS"),c.GetString("CONDICION_LLANTAS_DEL_DER"),c.GetString("CONDICION_LLANTAS_DEL_IZQ"),c.GetString("CONDICION_LLANTAS_TRASERA_DER"),c.GetString("CONDICION_LLANTAS_TRASERA_IZQ"),c.GetString("ACEITE"),c.GetString("ANTICONGELANTE"),c.GetString("FRENOS"),c.GetString("AIRE"),c.GetString("FUGAS"),c.GetString("COMETARIOS_FUGAS"),foto1,foto2,foto3,foto4,B4XPages.MainPage.principal.ALMACEN)
+			reqManager.ExecuteCommand(cmd , $"ins_checkliPendientes_head_${c.GetString("USUARIO")}"$)
+		Next
+	End If
+End Sub
+
+Sub JobDone(Job As HttpJob)
+	Log("JOBDONE CLIENTE . " & Job.Success)
+	If Job.Success = False Then
+'		ToastMessageShow("Error: " & Job.ErrorMessage, True)
+'		LogColor("JobDone Error: '" & reqManager.HandleJob(Job).tag, Colors.red)  'Mod por CHV - 211027
+		LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.Blue)
+	Else
+		LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 
+		If Job.JobName = "DBRequest" Then
+			Dim resultado As DBResult = reqManager.HandleJob(Job)
+			If resultado.Tag.As(String).IndexOf("ins_checkliPendientes_head_") > -1 Then
+				Private cliente As String= resultado.Tag
+				cliente = cliente.SubString(cliente.IndexOf("_")+24)
+				Log($"Cliente1:${cliente}"$)
+				
+				c=Starter.skmt.ExecQuery("SELECT USUARIO, PLACA, FECHA_CAPTURA, TARJETA_CIRCULACION, POLIZA_SEGURO, LICENCIA_CONDUCIR, LIMPIA_EXTERNA, LIMPIA_INTERNA, TRIANGULO, GATO, LLANTA_REFACCION, CARROCERIA_BUENESTADO, CARROCERIA_MALESTADO, CARROCERIA_COMENTARIOS, LUCES_CORRECTO, LUCES_INCORRECTO, LUCES_COMENTARIOS, CONDICION_PLACAS_CORRECTO, CONDICION_PLACAS_INCORRECTO, CONDICION_PLACAS_COMENTARIOS, CONDICION_LLANTAS_DEL_DER, CONDICION_LLANTAS_DEL_IZQ, CONDICION_LLANTAS_TRASERA_DER, CONDICION_LLANTAS_TRASERA_IZQ, ACEITE, ANTICONGELANTE, FRENOS, AIRE, FUGAS, COMETARIOS_FUGAS, FOTO1, FOTO12, FOTO3, FOTO4 FROM CHECKLIST")
+				Log($"Pedido PENDIENTE: ${c.RowCount}"$)
+				If c.RowCount > 0 Then
+					For i = 0 To c.RowCount -1
+						c.Position=i
+						Dim cmd As DBCommand
+			
+						foto1 = c.GetBlob("FOTO1")
+						foto2 = c.GetBlob("FOTO12")
+						foto3 = c.GetBlob("FOTO3")
+						foto4 = c.GetBlob("FOTO4")
+			
+						cmd.Initialize
+						cmd.Name = "update_CHECK_MARDS"
+						cmd.Parameters = Array As Object(c.GetString("CONDICION_PLACAS_INCORRECTO"),c.GetString("CONDICION_PLACAS_COMENTARIOS"),c.GetString("CONDICION_LLANTAS_DEL_DER"),c.GetString("CONDICION_LLANTAS_DEL_IZQ"),c.GetString("CONDICION_LLANTAS_TRASERA_DER"),c.GetString("CONDICION_LLANTAS_TRASERA_IZQ"),c.GetString("ACEITE"),c.GetString("ANTICONGELANTE"),c.GetString("FRENOS"),c.GetString("AIRE"),c.GetString("FUGAS"),c.GetString("COMETARIOS_FUGAS"),foto1,foto2,foto3,foto4,B4XPages.MainPage.principal.ALMACEN, C.GetString("USUARIO"),C.GetString("PLACA"),C.GetString("FECHA_CAPTURA"))
+						reqManager.ExecuteCommand(cmd , "update")
+					Next
+				End If
+				
+				For Each records() As Object In resultado.Rows
+					For Each k As String In resultado.Columns.Keys
+						Log(resultado.Tag & ": " & k & ": " & records(resultado.Columns.Get(k)))
+					Next
+				Next
+				Starter.skmt.ExecNonQuery("UPDATE CHECADO_CHECK set CHECADO = 1 ")
+				B4XPages.MainPage.principal.checachek
+			End If
+		End If
+	
+		Job.Release
+	End If
+	
+End Sub

B4A/C_Principal.bas

@@ -89,6 +89,7 @@ Sub Class_Globals
 	Private l_rechazo As Label
 	Private Label9 As Label
 	Dim cp As Cursor
+	Private b_check As Button
 End Sub
 
 'You can add more parameters here.
@@ -161,6 +162,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub
 
 Sub B4XPage_Appear
+	b_check.visible = False
 	Subs.centraPanel(p_principal, Root.Width)
 '	c=Starter.skmt.ExecQuery("select noversion from version")
 '	c.Position=0
@@ -392,6 +394,21 @@ Sub B4XPage_Appear
 		L_MONTOE.Visible = False
 	End If
 
+
+checachek
+End Sub
+
+Sub checachek
+		b = Starter.skmt.ExecQuery("SELECT CHECADO FROM CHECADO_CHECK")
+		If b.RowCount > 0 Then
+		b.Position = 0
+		If b.GetString("CHECADO") = 0 Then
+			b_check.Visible = True
+		Else If b.GetString("CHECADO") = 1 Then
+			b_check.Visible =False
+		End If
+		b.Close
+		End If
 End Sub
 
 Sub IsConnectedToInternet As Boolean 'ignore
@@ -418,7 +435,13 @@ Sub to_number_vb (valor As Object) As String
 End Sub
 
 Sub trabajar_Click
+	If b_check.Visible = True Then
+	MsgboxAsync("Favor de hacer el checklist.","Atención")
+	Else
+		
 	B4XPages.ShowPage("Clientes")
+	End If
+	
 End Sub
 
 Sub Subir_Click
@@ -945,11 +968,12 @@ Sub JobDone(Job As HttpJob)
 					Dim HVD_NUM_TICKET As String = records(result.Columns.Get("HVD_NUM_TICKET"))
 					Dim HVD_NUM_REGISTRO As String = records(result.Columns.Get("HVD_NUM_REGISTRO"))
 					Dim HVD_RECHAZO As String = records(result.Columns.Get("HVD_RECHAZO"))
+					Dim HVD_PLACA As String = records(result.Columns.Get("HVD_PLACA"))
 '					Log("  ++  insert into HIST_VENTAS: "&HVD_CLIENTE&","&HVD_PRONOMBRE&","&HVD_CANT)
 
 					If l_ruta.Text = "0" Then 'Si no hay ruta cargada, guardamos todos los clientes
 						Log("No hay ruta, guardamos todos")
-						Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO))
+						Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL, PLACA) VALUES (?,?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PLACA))
 						Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS2(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO))
 					Else 'Si ya hay ruta cargada, solo guardamos los clientes nuevos.
 '						Log("Hay ruta, guardamos los nuevos")
@@ -1149,7 +1173,26 @@ Sub JobDone(Job As HttpJob)
 		Job.Release
 	End If
 	If reqs.Size = 0 Then
+		
+		
 		ProgressDialogHide
+			
+		c = Starter.skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM CHECADO_CHECK")
+		c.Position = 0
+		If c.GetString("CUANTOS") = 0 Then
+			Starter.skmt.ExecNonQuery2("insert into CHECADO_CHECK (CHECADO) VALUES(?)", Array As String("0"))
+			
+		Else If c.GetString("CUANTOS") = 1 Then
+'			b = Starter.skmt.ExecQuery("SELECT CHECADO FROM CHECADO_CHECK")
+'			b.Position = 0
+'			If b.GetString("CHECADO") = 0 Then
+'				b_check.Visible = True
+'			Else If b.GetString("CHECADO") = 1 Then
+'				b_check.Visible =False
+'			End If
+'			b.Close
+		End If
+		c.Close
 '		Log(reqs.size)
 '		Log("Terminamos lo descarga de ruta!")
 	End If
@@ -1192,8 +1235,12 @@ Sub connecta_Click
 End Sub
 
 Sub BUSCA_Click
+	If b_check.Visible = True Then
+		MsgboxAsync("Favor de hacer el checklist.","Atención")
+	Else
 '	StartActivity(BUSCAR)
 	B4XPages.ShowPage("Buscar")
+	End If
 End Sub
 
 Sub b_mapa_Click
@@ -1207,6 +1254,8 @@ Sub e_ruta_EnterPressed
 		If RES = DialogResponse.POSITIVE Then
 			e_ruta.Text = ""
 			Starter.skmt.ExecNonQuery("delete from pedido_cliente")
+			Starter.skmt.ExecNonQuery("delete from CHECADO_CHECK")
+			Starter.skmt.ExecNonQuery("delete from CHECKLIST")
 			Starter.skmt.ExecNonQuery("delete from pedido")
 			Starter.skmt.ExecNonQuery("delete from noventa")
 			Starter.skmt.ExecNonQuery("delete from clie_act")
@@ -1249,6 +1298,9 @@ Sub t1_tick
 End Sub
 
 Sub B_CLIEPROD_Click
+	If b_check.Visible = True Then
+		MsgboxAsync("Favor de hacer el checklist.","Atención")
+	Else
 	BUSCA.Visible = False
 	connecta.Visible = False
 	trabajar.Visible = False
@@ -1311,6 +1363,7 @@ Sub B_CLIEPROD_Click
 '			ListView1.AddTwoLines(c.GetString("HVD_PRONOMBRE") & "   " & c.GetString("HVD_CLIENTE") , c.GetString("HVD_CANT") & "   " & ESTATUS )
 '		Next
 '	End If
+End If
 End Sub
 
 Sub B_REGRESA_Click
@@ -1325,14 +1378,25 @@ End Sub
 
 ''''''''''''''''''''''''''''MAPA RUTAS
 Sub Btn_Ubicar_Ru_Click
+	If b_check.Visible = True Then
+		MsgboxAsync("Favor de hacer el checklist.","Atención")
+	Else
+	
 	StartActivity(MAPA_RUTAS)
+	End If
 End Sub
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Private Sub b_tabulador_Click
+	If b_check.Visible = True Then
+		MsgboxAsync("Favor de hacer el checklist.","Atención")
+	Else
 	B4XPages.ShowPage("tabulador")
+	End If
 End Sub
 
 Private Sub b_check_Click
+	
 	B4XPages.ShowPage("checklist")
+	
 End Sub

B4A/Mariana_Reparto.b4a

@@ -143,7 +143,7 @@ Version=12.5
 #Region Project Attributes 
 	#ApplicationLabel: Mariana Reparto
 	#VersionCode: 1
-	#VersionName: 3.09.05
+	#VersionName: 3.11.07
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False

B4A/Mariana_Reparto.b4a.meta

@@ -87,7 +87,7 @@ ModuleClosedNodes5=
 ModuleClosedNodes6=
 ModuleClosedNodes7=2
 ModuleClosedNodes8=1,3
-ModuleClosedNodes9=12,13
+ModuleClosedNodes9=13
-NavigationStack=ManageExternalStorage,GetPermission,47,0,ManageExternalStorage,Class_Globals,19,0,Diseñador Visual,checklist.bal,-100,2,ManageExternalStorage,HasPermission,31,0,ManageExternalStorage,Initialize,26,0,C_tabulador,Class_Globals,16,0,C_Cheklist,Class_Globals,21,0,Diseñador Visual,check.bal,-100,6,C_Cheklist,b_guardar_Click,260,6,C_Principal,Class_Globals,0,0,B4XMainPage,Class_Globals,32,0
+NavigationStack=C_Principal,connecta_Click,1215,0,C_Principal,B4XPage_CloseRequest,1203,0,C_Principal,b_tabulador_Click,1388,1,C_Principal,B_REGRESA_Click,1365,0,C_Principal,b_check_Click,1393,1,Main,Process_Globals,17,0,Starter,Process_Globals,31,0,B4XMainPage,B4XPage_Created,148,0,B4XMainPage,B4XPage_Appear,186,0,B4XMainPage,Entrar_Click,218,0
 SelectedBuild=0
-VisibleModules=2,27,16,28,1,20,18,25,7,13,5
+VisibleModules=2,27,16,28,1,20,18,25,7,13

B4A/Starter.bas

@@ -32,8 +32,8 @@ Sub Process_Globals
 	Public SharedFolder As String 'Para actualizar apk
 	Dim cedisLocation As Location
 	Dim reqManager As DBRequestManager
-	Dim server As String = "http://187.189.244.154:1782"
+	Dim server As String = "http://187.189.244.154:1781"
-'	Dim server As String = "http://11.0.0.253:1782"
+'	Dim server As String = "http://11.0.0.60:1782"
 	Dim muestraProgreso = 0
 	Dim c As Cursor
 End Sub
@@ -54,9 +54,9 @@ Sub Service_Create
 '			ToastMessageShow("Error enabling Bluetooth adapter.", True)
 '		Else
 '			ToastMessageShow("Enabling Bluetooth adapter...", False)
-'		End If
+'		End Ifate = True
 '	Else
-'		BluetoothState = True
+'		BluetoothSt
 '	End If
 '	reqManager.Initialize(Me, Main.server)
 	Timer1.Initialize("Timer1", Interval * 1000)

B4XMainPage.bas

@@ -138,6 +138,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 '	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS VENTAS (V_FECHA TEXT, V_CLIENTE TEXT, V_CLIENTE_ORIG TEXT, V_PRODNOMBRE TEXT, V_PRODID TEXT, V_CANTIDAD TEXT, V_PRECIO TEXT, V_TOTAL TEXT, V_PRODREGISTRO TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RECHAZOS (R_FECHA TEXT, R_CLIENTE TEXT, R_CLI_ORIG TEXT, R_PRODID TEXT, R_CANT TEXT, R_RECHAZO INT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS VENTAS (V_FECHA TEXT, V_CLIENTE TEXT, V_CLI_ORIG TEXT, V_PRODID TEXT, V_CANT TEXT, V_RECHAZO INT)")
+'	Starter.skmt.ExecNonQuery("DROP TABLE IF EXISTS CHECKLIST")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CHECADO_CHECK(CHECADO TEXT)")
+	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CHECKLIST(USUARIO TEXT, PLACA TEXT, FECHA_CAPTURA TEXT, TARJETA_CIRCULACION TEXT , POLIZA_SEGURO TEXT, LICENCIA_CONDUCIR TEXT, LIMPIA_EXTERNA TEXT, LIMPIA_INTERNA TEXT, TRIANGULO TEXT, GATO TEXT, LLANTA_REFACCION TEXT, CARROCERIA_BUENESTADO TEXT, CARROCERIA_MALESTADO TEXT, CARROCERIA_COMENTARIOS TEXT, LUCES_CORRECTO TEXT, LUCES_INCORRECTO TEXT, LUCES_COMENTARIOS TEXT, CONDICION_PLACAS_CORRECTO TEXT, CONDICION_PLACAS_INCORRECTO TEXT, CONDICION_PLACAS_COMENTARIOS TEXT, CONDICION_LLANTAS_DEL_DER TEXT, CONDICION_LLANTAS_DEL_IZQ TEXT, CONDICION_LLANTAS_TRASERA_DER TEXT, CONDICION_LLANTAS_TRASERA_IZQ TEXT, ACEITE TEXT, ANTICONGELANTE TEXT, FRENOS TEXT, AIRE TEXT, FUGAS TEXT, COMETARIOS_FUGAS TEXT, FOTO1 BLOB, FOTO12 BLOB, FOTO3 BLOB, FOTO4 BLOB)")
 	Subs.agregaColumna("REPARTO", "REP_PRODREGISTRO", "TEXT")
 	Subs.agregaColumna("kmt_info", "SECUENCIA", "INT")
 	Subs.agregaColumna("REPARTO", "REP_PRODID", "TEXT")
@@ -146,10 +149,11 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Subs.agregaColumna("REPARTO", "REP_RECHAZO", "INTEGER")
 	Subs.agregaColumna("RECHAZOS", "R_PRECIO", "TEXT")
 	Subs.agregaColumna("VENTAS", "V_PRECIO", "TEXT")
+	Subs.agregaColumna("HIST_VENTAS","PLACA","TEXT")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS wayPoints (codigo TEXT, indice INT)")
-	Dim server As String = "http://187.189.244.154:1782"
+	Dim server As String = "http://187.189.244.154:1781"
-'	Dim server As String = "http://11.0.0.253:1782"
+'	Dim server As String = "http://11.0.0.60:1782"
 '	server = "http://10.0.0.205:1782"
 '	server = "http://11.0.0.44:1782"
 	reqManager.Initialize(Me, B4XPages.MainPage.server)