..

B4A/C_Cheklist.bas

@@ -105,6 +105,7 @@ Sub Class_Globals
 	Dim c As Cursor
 	Dim reqManager As DBRequestManager
 	Private l_placa As Label
+	Private et_km As EditText
 End Sub
 
 'You can add more parameters here.
@@ -145,6 +146,20 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub
 
 Private Sub B4XPage_Appear
+	c = Starter.skmt.ExecQuery("SELECT PLACA FROM HIST_VENTAS")
+	c.Position = 0
+	Log(c.GetString("PLACA"))
+	l_placa.Text = c.GetString("PLACA")
+	c.Close
+	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
+	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
+	If Result Then
+'		camEx.Initialize(p_cam, frontCamera, Me, "Camera1")
+'		frontCamera = camEx.Front
+		Log("inicializamos Camara")
+	Else
+		ToastMessageShow("No permission Camara!!!", True)
+	End If
 	MES1.Initialize(Me, "MES1")
 	' get the device SDK version
 	Dim SdkVersion As Int = device.SdkVersion
@@ -169,10 +184,41 @@ Private Sub B4XPage_Appear
 	End If
 	p_camara.Visible = False
 	
+<<<<<<< HEAD
+	
+'	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
+'	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
+'	If Result Then
+'		Log("conpermisos para escritura")
+'	Else
+'		ToastMessageShow("No permission 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("conpermisos para escritura")
+'	Else
+'		ToastMessageShow("No permission Lectura!!!", True)
+'	End If
+End Sub
+
+Private Sub B4XPage_CloseRequest As ResumableSub
+	' BACK key pressed
+	If p_camara.visible Then
+		p_camara.visible = False
+		StopCamera2
+	Else
+		B4XPages.ShowPage("principal")
+	End If
+	' Returning False signals the system to handle the key
+	Return False
+=======
 	c = Starter.skmt.ExecQuery("SELECT PLACA FROM HIST_VENTAS")
 	c.Position = 0
 	l_placa.Text = c.GetString("PLACA")
 	c.Close
+>>>>>>> bc66ad5dbd83182fd4dde2f7cd07b5408269e067
 End Sub
 
 Private Sub InitializeCamera2
@@ -183,7 +229,11 @@ Private Sub InitializeCamera2
 		frontCamera = camEx.Front
 		Log("inicializamos Camara")
 	Else
+<<<<<<< HEAD
+		ToastMessageShow("No permission Camara!!!", True)
+=======
 		ToastMessageShow("Sin permisos de camara!", True)
+>>>>>>> bc66ad5dbd83182fd4dde2f7cd07b5408269e067
 	End If
 '	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
 '	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
@@ -285,6 +335,10 @@ Sub Camera1_PictureTaken (Data()As Byte)
 		
 		out.Close
 		ImageView1.Bitmap = LoadBitmap(File.DirInternal & Dir & Dir2,nombrefoto)
+<<<<<<< HEAD
+		
+=======
+>>>>>>> bc66ad5dbd83182fd4dde2f7cd07b5408269e067
 	End If
 	
 	If nombrefoto1 <> "0" Then
@@ -435,51 +489,27 @@ Private Sub rb_docsi8_CheckedChange(Checked As Boolean)
 End Sub
 
 Private Sub rb_docno9_CheckedChange(Checked As Boolean)
-	p9 = "No"
+	p9 = "Incorrecto"
 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"
+	p9 = "Correcto"
 End Sub
 
 Private Sub rb_docno11_CheckedChange(Checked As Boolean)
-	p11 = "No"
+	p11 = "Incorrecto"
 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"
+	p11 = "Correcto"
 End Sub
 
 Private Sub rb_docno13_CheckedChange(Checked As Boolean)
-	p13 = "No"
+	p13 = "Incorrecto"
 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"
+	p13 = "Correcto"
 End Sub
 
 Private Sub rb_docno15_CheckedChange(Checked As Boolean)
@@ -569,19 +599,36 @@ Private Sub b_guardar_Click
 	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 et_km.Text <> "" Then
+		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_docno9.Checked And et_carroceria.Text <> "") Or (rb_docsi9.Checked And et_carroceria.Text = "") Then
 												If rb_docno11.Checked Or rb_docsi11.Checked Then
+<<<<<<< HEAD
+													If (rb_docno11.Checked And et_luces.Text <> "") Or (rb_docsi11.Checked And et_luces.Text = "") Then
+														If rb_docno13.Checked Or rb_docsi13.Checked Then
+															If (rb_docno12.Checked And et_placas.Text <> "") Or (rb_docsi13.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
+																							c = Starter.skmt.ExecQuery("SELECT RUTAA FROM RUTAA")
+																							c.Position = 0
+																							Private rutacheck As String = c.GetString("RUTAA")
+																							c.Close
+																							Starter.skmt.ExecNonQuery("DELETE FROM CHECKLIST2")
+																							Starter.skmt.ExecNonQuery2("INSERT INTO CHECKLIST2(USUARIO, PLACA, FECHA_CAPTURA, TARJETA_CIRCULACION , POLIZA_SEGURO, LICENCIA_CONDUCIR, LIMPIA_EXTERNA, LIMPIA_INTERNA, TRIANGULO, GATO, LLANTA_REFACCION, CARROCERIA, CARROCERIA_COMENTARIOS, LUCES, LUCES_COMENTARIOS, CONDICION_PLACAS, 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, KILIMETRAJE,RUTA) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)",Array As Object(B4XPages.MainPage.usuario,l_placa.Text,checkdate&" "&checktime,p1,p2,p3,p4,p5,p6,p7,p8,p9,et_carroceria.Text,p11,et_luces.Text,p13,et_placas.Text,itemselect1,itemselect2,itemselect3,itemselect4,p15,p16,p17,p18,p19,et_liquidos.Text,File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto),File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto1),File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto2),File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto3), et_km.Text, rutacheck))
+=======
 													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
@@ -596,17 +643,82 @@ Private Sub b_guardar_Click
 																								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.DirInternal & Dir & Dir2, nombrefoto),File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto1),File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto2),File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto3)))
+>>>>>>> bc66ad5dbd83182fd4dde2f7cd07b5408269e067
 																									
-																									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
+																							mandaPendientes
+																									
+																							rb_docno1.Checked = False
+																							rb_docno2.Checked = False
+																							rb_docno3.Checked = False
+																							rb_docno4.Checked = False
+																							rb_docno5.Checked = False
+																							rb_docno6.Checked = False
+																							rb_docno7.Checked = False
+																							rb_docno8.Checked = False
+																							rb_docno9.Checked = False
+																							rb_docno11.Checked = False
+																							rb_docno13.Checked = False
+																							rb_docno15.Checked = False
+																							rb_docno16.Checked = False
+																							rb_docno17.Checked = False
+																							rb_docno18.Checked = False
+																							rb_docno19.Checked = False
+																									
+																							rb_docsi1.Checked = False
+																							rb_docsi2.Checked = False
+																							rb_docsi3.Checked = False
+																							rb_docsi4.Checked = False
+																							rb_docsi5.Checked = False
+																							rb_docsi6.Checked = False
+																							rb_docsi7.Checked = False
+																							rb_docsi8.Checked = False
+																							rb_docsi9.Checked = False
+																							rb_docsi11.Checked = False
+																							rb_docsi13.Checked = False
+																							rb_docsi15.Checked = False
+																							rb_docsi16.Checked = False
+																							rb_docsi17.Checked = False
+																							rb_docsi18.Checked = False
+																							rb_docsi19.Checked = False
+																									
+																							cb_deratras.SelectedIndex = 0
+																							cb_derdel.SelectedIndex = 0
+																							cb_izqatras.SelectedIndex = 0
+																							cb_izqdel.SelectedIndex = 0
+																									
+																							et_carroceria.Text = ""
+																							et_liquidos.Text = ""
+																							et_luces.Text = ""
+																							et_placas.Text = ""
+																									
+																							ImageView1.Bitmap = LoadBitmap(File.DirAssets,"frontal1.png")
+																							ImageView2.Bitmap = LoadBitmap(File.DirAssets,"derecha1.png")
+																							ImageView3.Bitmap = LoadBitmap(File.DirAssets,"atras1.png")
+																							ImageView4.Bitmap = LoadBitmap(File.DirAssets,"izquierda1.png")
+																									
+																							nombrefoto = "0"
+																							nombrefoto1 = "0"
+																							nombrefoto2 = "0"
+																							nombrefoto3 = "0"
+																									
+																							B4XPages.ShowPage("Principal")
 																						Else
+<<<<<<< HEAD
+																							MsgboxAsync("Favor de tomar todas las fotos","Atención")
+																						End If
+																					Else
+																						MsgboxAsync("Especifica Fugas o detallaes 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")
+=======
 																							MsgboxAsync("Seleciona una opción en Niveles de Liquidos y aire de Fugas","Atención")
 																						End If
 																					Else
@@ -620,21 +732,33 @@ Private Sub b_guardar_Click
 																			End If
 																		Else
 																			MsgboxAsync("Seleciona una opción en Niveles de Liquidos y aire de Aceite","Atención")
+>>>>>>> bc66ad5dbd83182fd4dde2f7cd07b5408269e067
 																		End If
 																	Else
-																		MsgboxAsync("Especifica daños en las condiciones de placas","Atención")
+																		MsgboxAsync("Seleeciona una opción en Niveles de Liquidos y aire de Anticongelante","Atención")
 																	End If
 																Else
+<<<<<<< HEAD
+																	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")
+=======
 																	MsgboxAsync("Seleciona una opción en Conciciones de placas de Incorrecto","Atención")
 																End If
 															Else
 																MsgboxAsync("Seleciona una opción en Conciciones de placas de Correcto","Atención")
+>>>>>>> bc66ad5dbd83182fd4dde2f7cd07b5408269e067
 															End If
 														Else
-															MsgboxAsync("Especifica daños en las luces","Atención")
+															MsgboxAsync("Seleeciona una opción en Conciciones de placas de Correcto","Atención")
 														End If
 													Else
+<<<<<<< HEAD
+														MsgboxAsync("Especifica daños en las luces","Atención")
+=======
 														MsgboxAsync("Seleciona una opción en Funcionamiento de luces de Incorrecto","Atención")
+>>>>>>> bc66ad5dbd83182fd4dde2f7cd07b5408269e067
 													End If
 												Else
 													MsgboxAsync("Seleciona una opción en Funcionamiento de luces de Correcto","Atención")
@@ -643,6 +767,36 @@ Private Sub b_guardar_Click
 												MsgboxAsync("Especifica daños en la carrocería","Atención")
 											End If
 										Else
+<<<<<<< HEAD
+											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
+	Else
+		MsgboxAsync("Captura el kilometraje inicial.","Atención")
+=======
 											MsgboxAsync("Seleciona una opción en Carrocería de Mal estado","Atención")
 										End If
 									Else
@@ -671,6 +825,7 @@ Private Sub b_guardar_Click
 		End If
 	Else
 		MsgboxAsync("Seleciona una opción en Documentación viegnte de tarjeta de circulación","Atención")
+>>>>>>> bc66ad5dbd83182fd4dde2f7cd07b5408269e067
 	End If
 
 End Sub
@@ -678,7 +833,7 @@ 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")
+	c=Starter.skmt.ExecQuery("SELECT USUARIO, PLACA, FECHA_CAPTURA, TARJETA_CIRCULACION , POLIZA_SEGURO, LICENCIA_CONDUCIR, LIMPIA_EXTERNA, LIMPIA_INTERNA, TRIANGULO, GATO, LLANTA_REFACCION, CARROCERIA, CARROCERIA_COMENTARIOS, LUCES, LUCES_COMENTARIOS, CONDICION_PLACAS, 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 CHECKLIST2")
 	Log($"Pedido PENDIENTE: ${c.RowCount}"$)
 	If c.RowCount > 0 Then
 		For i = 0 To c.RowCount -1
@@ -692,7 +847,7 @@ Sub mandaPendientes
 			
 			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)
+			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"),c.GetString("CARROCERIA_COMENTARIOS"),c.GetString("LUCES"),c.GetString("LUCES_COMENTARIOS"),c.GetString("CONDICION_PLACAS"),c.GetString("CONDICION_PLACAS_COMENTARIOS"))'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
@@ -713,7 +868,7 @@ Sub JobDone(Job As HttpJob)
 				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")
+				c=Starter.skmt.ExecQuery("SELECT USUARIO, PLACA, FECHA_CAPTURA, TARJETA_CIRCULACION , POLIZA_SEGURO, LICENCIA_CONDUCIR, LIMPIA_EXTERNA, LIMPIA_INTERNA, TRIANGULO, GATO, LLANTA_REFACCION, CARROCERIA, CARROCERIA_COMENTARIOS, LUCES, LUCES_COMENTARIOS, CONDICION_PLACAS, 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, KILIMETRAJE, RUTA FROM CHECKLIST2")
 				Log($"Pedido PENDIENTE: ${c.RowCount}"$)
 				If c.RowCount > 0 Then
 					For i = 0 To c.RowCount -1
@@ -727,7 +882,7 @@ Sub JobDone(Job As HttpJob)
 			
 						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"))
+						cmd.Parameters = Array As Object(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("KILIMETRAJE"),C.GetString("RUTA"), C.GetString("USUARIO"),C.GetString("PLACA"),C.GetString("FECHA_CAPTURA"))
 						reqManager.ExecuteCommand(cmd , "update")
 					Next
 				End If

B4A/C_Principal.bas

@@ -973,14 +973,14 @@ Sub JobDone(Job As HttpJob)
 
 					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, 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_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")
 						Private tc As Cursor = Starter.skmt.ExecQuery($"select HVD_CLIENTE from HIST_VENTAS where HVD_CLIENTE = '${HVD_CLIENTE}' and HVD_PROID = '${HVD_PROID}'"$)
 						If tc.RowCount = 0 Then
 							Log($"Guardamos ${HVD_CLIENTE}"$)
-							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))							
 						End If
 					End If
@@ -1255,7 +1255,7 @@ Sub e_ruta_EnterPressed
 			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 CHECKLIST2")
 			Starter.skmt.ExecNonQuery("delete from pedido")
 			Starter.skmt.ExecNonQuery("delete from noventa")
 			Starter.skmt.ExecNonQuery("delete from clie_act")