para subir la ultima

2026-04-17 21:06:27 +00:00 · 2024-05-23 13:41:30 -06:00
parent b001dcaa7d
commit 7701d68e63
3 changed files with 14 additions and 123 deletions
--- a/B4A/C_Cheklist.bas
+++ b/B4A/C_Cheklist.bas
@@ -161,6 +161,7 @@ Private Sub B4XPage_Appear
 		ToastMessageShow("No permission Camara!!!", True)
 	End If
 	MES1.Initialize(Me, "MES1")
+	
 	' get the device SDK version
 	Dim SdkVersion As Int = device.SdkVersion
 	
@@ -184,7 +185,6 @@ 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)
@@ -213,12 +213,6 @@ Private Sub B4XPage_CloseRequest As ResumableSub
 	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
@@ -229,27 +223,8 @@ 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)
-'	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)
@@ -335,10 +310,7 @@ Sub Camera1_PictureTaken (Data()As Byte)
 		
 		out.Close
 		ImageView1.Bitmap = LoadBitmap(File.DirInternal & Dir & Dir2,nombrefoto)
-<<<<<<< HEAD
 		
-=======
->>>>>>> bc66ad5dbd83182fd4dde2f7cd07b5408269e067
 	End If
 	
 	If nombrefoto1 <> "0" Then
@@ -611,7 +583,6 @@ Private Sub b_guardar_Click
 										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
@@ -628,22 +599,6 @@ Private Sub b_guardar_Click
 																							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
-																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.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
@@ -704,7 +659,6 @@ Private Sub b_guardar_Click
 																									
 																							B4XPages.ShowPage("Principal")
 																						Else
-<<<<<<< HEAD
 																							MsgboxAsync("Favor de tomar todas las fotos","Atención")
 																						End If
 																					Else
@@ -718,56 +672,29 @@ Private Sub b_guardar_Click
 																			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
-																						MsgboxAsync("Seleciona una opción en Niveles de Liquidos y aire de Aire","Atención")
-																					End If
-																				Else
-																					MsgboxAsync("Seleciona una opción en Niveles de Liquidos y aire de Frenos","Atención")
-																				End If
-																			Else
-																				MsgboxAsync("Seleciona una opción en Niveles de Liquidos y aire de Anticongelante","Atención")
-																			End If
-																		Else
-																			MsgboxAsync("Seleciona una opción en Niveles de Liquidos y aire de Aceite","Atención")
->>>>>>> bc66ad5dbd83182fd4dde2f7cd07b5408269e067
 																		End If
 																	Else
 																		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("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")
+													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
-<<<<<<< HEAD
 											MsgboxAsync("Seleeciona una opción en Carrocería de Buen estado","Atención")
 										End If
 									Else
@@ -796,36 +723,6 @@ Private Sub b_guardar_Click
 		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
-										MsgboxAsync("Seleciona una opción en Carrocería de Buen estado","Atención")
-									End If
-								Else
-									MsgboxAsync("Seleciona una opción en Seguridad y refación de Llanta de refacción","Atención")
-								End If
-							Else
-								MsgboxAsync("Seleciona una opción en Seguridad y refación de gato","Atención")
-							End If
-						Else
-							MsgboxAsync("Seleciona una opción en Seguridad y refación de Triagulo reflectante","Atención")
-						End If
-					Else
-						MsgboxAsync("Seleciona una opción en Limpieza unidad interna","Atención")
-					End If
-				Else
-					MsgboxAsync("Seleciona una opción en Limpieza unidad externa","Atención")
-				End If
-			Else
-				MsgboxAsync("Seleciona una opción en Documentación viegnte de Licencia de conducir","Atención")
-			End If
-		Else
-			MsgboxAsync("Seleciona una opción en Documentación viegnte de Póliza de seguro","Atención")
-		End If
-	Else
-		MsgboxAsync("Seleciona una opción en Documentación viegnte de tarjeta de circulación","Atención")
->>>>>>> bc66ad5dbd83182fd4dde2f7cd07b5408269e067
 	End If

 End Sub
@@ -860,7 +757,7 @@ Sub JobDone(Job As HttpJob)
 '		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) 
+		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
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -588,6 +588,13 @@ Sub Subir_Click
 		f.Close
 	End If
 	'FIN TABULADOR
+	
+	Dim cmd As DBCommand
+	cmd.Initialize
+	cmd.Name = "insert_drop_rep_mards"
+	cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "ENVIO")
+	reqManager.ExecuteCommand(cmd , "inst_drop")
+	
 	ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
 End Sub

@@ -1183,14 +1190,7 @@ Sub JobDone(Job As HttpJob)
 			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)
--- a/B4A/Mariana_Reparto.b4a.meta
+++ b/B4A/Mariana_Reparto.b4a.meta
@@ -70,7 +70,7 @@ ModuleClosedNodes16=
 ModuleClosedNodes17=5,6,7,8,10,12,13,14,15,16,17,19,23,24
 ModuleClosedNodes18=4
 ModuleClosedNodes19=
-ModuleClosedNodes2=4,6,7
+ModuleClosedNodes2=6,7
 ModuleClosedNodes20=
 ModuleClosedNodes21=
 ModuleClosedNodes22=
@@ -88,12 +88,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=2
 ModuleClosedNodes8=1,3
 ModuleClosedNodes9=13
-<<<<<<< HEAD
-NavigationStack=C_Cheklist,JobDone,775,0,Subs,guardaInfoEnArchivo,119,0,Subs,copiaDB,522,0,Subs,fechaKMT2Ticks,499,0,MAPA_RUTAS,MapFragment1_Ready,173,0,C_Principal,Class_Globals,0,0,B4XMainPage,B4XPage_Appear,195,0,C_Clientes,Mods,0,0,C_Cheklist,Class_Globals,0,0,C_Cheklist,cb_deratras_SelectedIndexChanged,536,0,C_NoVenta,GUARDA_Click,98,0
+NavigationStack=B4XMainPage,b_envioBD_Click,333,0,B4XMainPage,Class_Globals,78,0,B4XMainPage,B4XPage_Created,156,0,C_Cheklist,B4XPage_Appear,180,0,C_Cheklist,B4XPage_CloseRequest,214,0,C_Cheklist,InitializeCamera2,228,0,C_Cheklist,Camera1_PictureTaken,330,0,C_Cheklist,b_guardar_Click,787,0,C_Cheklist,Class_Globals,0,0,C_Cheklist,JobDone,753,0
 SelectedBuild=0
-VisibleModules=2,27,16,28,1,20,18,25,7,13,5
-=======
-NavigationStack=Tracker,Service_Start,68,0,B4XMainPage,Entrar_Click,201,0,B4XMainPage,B4XPage_Created,87,0,Tracker,Track,79,0,Tracker,Process_Globals,30,1,C_Cheklist,b_guardar_Click,607,0,C_Cheklist,cb_deratras_SelectedIndexChanged,540,0,C_Cheklist,InitializeCamera2,181,6,B4XMainPage,B4XPage_Appear,192,6,C_Clientes,traeRutaDia,417,4
-SelectedBuild=0
-VisibleModules=2,27,16,28,29,20,18,25,7,13,5,10,23
->>>>>>> bc66ad5dbd83182fd4dde2f7cd07b5408269e067
+VisibleModules=1,2,3,4,5,6,7,8,9,10