diff --git a/B4A/C_Cheklist.bas b/B4A/C_Cheklist.bas index 7d6d5ff..5445bd3 100644 --- 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 diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index c7527d2..1710bc4 100644 --- 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) diff --git a/B4A/Mariana_Reparto.b4a.meta b/B4A/Mariana_Reparto.b4a.meta index 8fe75bb..fdae975 100644 --- 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