diff --git a/B4A/C_Cheklist.bas b/B4A/C_Cheklist.bas index b3bdd7f..3cbadf9 100644 --- a/B4A/C_Cheklist.bas +++ b/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 \ No newline at end of file + + 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 diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 6ea2ee6..04e5d06 100644 --- a/B4A/C_Principal.bas +++ b/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 \ No newline at end of file diff --git a/B4A/Files/check.bal b/B4A/Files/check.bal index 6f7f90e..21a25ae 100644 Binary files a/B4A/Files/check.bal and b/B4A/Files/check.bal differ diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal index 0d11491..e9719ed 100644 Binary files a/B4A/Files/principal.bal and b/B4A/Files/principal.bal differ diff --git a/B4A/Mariana_Reparto.b4a b/B4A/Mariana_Reparto.b4a index bf019af..325635c 100644 --- a/B4A/Mariana_Reparto.b4a +++ b/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 diff --git a/B4A/Mariana_Reparto.b4a.meta b/B4A/Mariana_Reparto.b4a.meta index 0cd76b8..ce503bd 100644 --- a/B4A/Mariana_Reparto.b4a.meta +++ b/B4A/Mariana_Reparto.b4a.meta @@ -87,7 +87,7 @@ ModuleClosedNodes5= ModuleClosedNodes6= ModuleClosedNodes7=2 ModuleClosedNodes8=1,3 -ModuleClosedNodes9=12,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 +ModuleClosedNodes9=13 +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 diff --git a/B4A/Starter.bas b/B4A/Starter.bas index ae3c605..1f6b4e5 100644 --- a/B4A/Starter.bas +++ b/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://11.0.0.253:1782" + Dim server As String = "http://187.189.244.154:1781" +' 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) diff --git a/B4XMainPage.bas b/B4XMainPage.bas index a343ff9..1380749 100644 --- a/B4XMainPage.bas +++ b/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://11.0.0.253:1782" + Dim server As String = "http://187.189.244.154:1781" +' 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)