From f57db991704c42d7f27b63e690c1108735ffa345 Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Wed, 8 Nov 2023 13:50:43 -0600 Subject: [PATCH] puerto --- B4A/C_Cheklist.bas | 500 ++++++++++++++++++++++++++++++++++- B4A/C_Principal.bas | 66 ++++- B4A/Files/check.bal | Bin 44984 -> 45183 bytes B4A/Files/principal.bal | Bin 20743 -> 20743 bytes B4A/Mariana_Reparto.b4a | 2 +- B4A/Mariana_Reparto.b4a.meta | 6 +- B4A/Starter.bas | 8 +- B4XMainPage.bas | 8 +- 8 files changed, 571 insertions(+), 19 deletions(-) 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 6f7f90e6e5a40ef25549b9dec2239c24089e216b..21a25ae7cfb4fe0bcf7d2faeaf3129c50eb76010 100644 GIT binary patch delta 5958 zcmcJS4Nz3q7034?kU((x{tPNnN{F9;d@MB@(GVaJgBmp&g08SyK4fu0lA;lbgeWHJ zdN8Bl8lnMW5YZ4*W11;8EhbabRNKTltpz4COvf}$tgWqS5_`^l?Avp3ozdyUnYaAT zyXT(szvu0q^E}z_abv(^w3oqP$o4ZBeDUu_`{;T8_aGFmT2W-NnX7E(N_%m9s%92h z%7)j9Yu3p%AI%j_TpNvsrD{c?*=DmAT5QE;dvi=YZNQsl#p~7=7g;Os9yZq(S}JKX zE>)D73o*;!@@aSBjWW%qSX1YjS6RxI+RPOd78|LQwzm@!dsc{O(bM3OCHyFq4JBI( z%dPO|Q8R1lFwPr^35u1dSV@XCU9plCD@CzV6)R1#Oui&vPoEBd^op%5wsBmBs8BXs{!qrLM^%7HD#Ck)07Oc1E<=8PQ^AM2npfEtBiSXr;sHh;Rt= zet0yOm=2xZlWXaL(UYYWC(~vp(>Daaeg>+Uk+DDH0LFpHL3jn@6~Z`_ahQv14dG}+ z;1!8i6ytjtM>8J7cr4>_jAIzz$9O#B36g8I#IbDQM~veb-_JOn@dJz}GM>bEGUF+X zr(%Bn^wSt8FivEg#CSU6WX36sQyHf*HVtzvl|7v;{Fw0!WaqPd5P2qEv+#O|@odH! zjOQ?(%lKi&nFd3x9`q5mki|HgaSr2089&B&9^+ib^BF&`GuA&(Hw=aaj2ALq#P|v1 z#ds~jYboO=882hJobgkP^NH#CQ=q5WLIL9yj8`%?GhW5GkZ}=X3**&{Yu7O2Cya|3 zmoP46T*i1U<8sDU#ubd$X7~tc3t_km+ zU-?ygvgU}>03HpTp$@L5K=U~2lFnAm`hB@IUEoSGob!u-q@d_P>Xyo|g{Oj6o2bp@ zn#*D`E33>!)|hxpWrd}%cr^}R%LCMNoss#xD7Pjiz>T0#PwI^j8N34~hP<0aI&kW1 zlbuq_8Ku7m(492u-0Vex?wN+~IbRUqYDjjbk~xK50p?n5HcMfZ)wO~uNKC?Z2yHGw_iW%W6*VT=i;Q`PlXB3Krg zr0QkE8oiUDD>5VAr4UQP20uC^QmLtg^tJ`jQ6r+MuRcjo5fyva@atDkOVm)DZwfw9 z>fYidu;(}SgwBcb5_@|RvaCW}hSux_$s2KT6kZ0O=kUXWfF|`O0_r=P3F`2J{&{M* z!CajLF*$*dHzh)nX0$H2EGb`TxiiG2a@ z{}5su+=y+sW3kl8S!G}Rfy8cgBX;ZUiq*dcir6IR&n*?(K&+XJp8=iYpm#=nE#cLq^g<$Z2ulmmYoKnfXTCPb)9uN8eq?QB9Zim$Js;;G#X=!!iscG>oa%y?ajgL#qi&D!$spW#jsb%9Dhd3m)98z{4 zlv-ZbwX`uUZEid@E!&ERwZK5JQD`xo3LY7LG99R30(6!6z>-oUjOh%5&&o=tzJW1i zn>&o)g_qV)-gMsXL^y(%PZxe11?$>~+1*Gq@3F%V_jr2mrk zJJ31?XV&(M<8-dO-^fTHr?NmTMvE&640PXC3qWJJ941H znklp=euAnjPAI?G{S^-Jj;!=MxW%RAgsk+>^h%$EI?EFOlOufU8r$f13x{nMjC-Y^ z4O-iMh4xHO$!A(!rB&0}Bkrwsi1%c^_mo(tWWJy4`QDfL-dBBkt`r0ah=0~1PC;E` zxA=wp^7P7M^(x0|-rx|YWt!7Uh+diImwK8HWSS3DA1zJCa~9Dn)BIYd>62;t^fUo= z?c$6~aYotRCsTZ=r}#*w_(=89Qp9bsh(4L(H!{Upnc}RTf|}~y28Z~V(m+mwQJj^* zf2#-oLI+ijg%PWXliHvp%NNG&j)10}TA%)6 zC#vYFX^j@*BFXi?IARmFYe?H2LZaaCZXt=rW|xu396elIcJ)ULR-@-BR-e8KOeDw zxGpf%qKQr0ukCczV~InnN0$Rvw0aE5dJK&SMfJG;swSYc)hLFfxWDT4=sqY@>^_7` zS~)IDNtcy4LrOWmfaCcku%|8LrUnFmYcs;84*%erd(D^FYwE?{X{-2(zBe~*#@p*U zqTOu$8Uha2o35ZDt-IcK)BOi-kxf@zg~86KV7O=Uuiql{bqqZp@{c5$zPa=8|JB2PdyDYj%EBz@dOYqs^pzv- zdj!{ryWzY|(@F>s$+J8>=+6|Gel*Zyl!lc@CkjtEa5O6CE%d*|*rUL5?2SdBVJIh* Yd_JBS+%8j~dE? zt<@r5@q{9n1tc&;@R9``54O zYn{B%S3AqQs@73|I(@hmoiu~OD^6ZFBI0E%Gd&A^{)x+LYyB0_J$igV4#I4X9J7IBxQAl)aGDJ+vthK^ zFh(;3I%09;Y8K7lHXHIx;hW=7%%Lmh(3OZTPV@UK=GYZ;?1~S+vi=W z^u=mcxZW{Op0m?Xf%6IZ5eMr%HqS7*KQc#$sqPZk?y|$X{gNSMv-gqP zr*;K!K$~sRT)EFp@;~G$OP^d*>sjbeAK|U3^p^S-`Kp$CN1BE+9~qe3^m@Og!aQ}HkeQrgHoC!=TwpT^J96Me^2Yq07*?Ub zy4qV>>o;us)PrkQyTzL&^hwA=+Wjlp?t9nb2DvvoS&nT316+ zdB1GAFvWH3DxWh?Iu;sieA#ltEW@o+4?<+)|`!wdFY`{#(sSVRFnMWl9xMYXYy;&{{Q6H-I4q{9LX%N zzkL_-4?eBS{{)HN{-+4f=;ohkW_b;G7K`;ceEeL(dVI)#(W+S{4L%;6B%X)MOETe| z16HRTiawFtn&rjBDo3Gj^*jQL7HjI5U~{KKAg`~;gF)kR?Rx$qKVJ$I)s2MMvCD80 z6_pQx1&S5P_Uyy3@sXg|h(XMV-)K<5R(HDC1Rmc^NN5a-&E&JW6Q3>Qvo;tM^-xta zJHFoN6KdI#AmGqr{o&|~1&}s7P71qQ1whO0Dp)y3)(c(^z@gbe(Vztv-(VaBj*b0P zY^4yk8d@4C%wJ##U%|BEBv_DL2)m2paHN(kHE?QQP`oIEf*X%Zo6TJV>5IpSHQ;Di zDz@ut+YMuGK(z@ld45prAjKVq*6pPD5-FZppem+$;&3!gF-U0$M)Xp(*OK;5U3;g& zPu2c)Nl@$}?Ole}ous{+w5KdmwRbLx6FYV7J*2%SqL-@uG-)^K+D!&ORl9IWQ0yh` zy@u8%(%whfr(w~+M{;I3xC_;F(G-K@;Y^t~EcH zi9MSOa?oN8L6vg|9Q60iIUeCI{}PC?$iD%sui?WcL9WFy5?+Td{hNgP5#P`fDc+#9 zR9Y1jCn$Atn+?Z+t+{<-Zu2ZR#bY2l)O)Q#Yz3+oFbJ|5#H*=c$X$di>}f_DxTFr@gAwXXXuBmsPZdP z`D?%{T6C57N#*?rZ&l?qskG`Ut)$YnE-22B${9mHY(c%p;AnHc_?o(3 z>%9B5F1r7Nx~Ct=cmES(R`=06-d?X`7j=961`ZxbP1Lv71=v8Bk#F#Groqhv9`}vA zAO2tZ@He{{{$|JU!@zzp-~I2qm-tqf_^u0y@0f%Yh8$Ad|G9ga|LQWgx{$fmA(Jg7 zpt3F&<{yq7b{qTAL1)3cdHA3cSR->3LN@`nx%Wp!%b!v3?O|I~jEZBA+-L8O4p}$| s9ZA^;JuH?=?NGxLG0GyK@kmOt^b0SSSadvwB?gWa4-`G%>XC;30l*D7^Z)<= diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal index 0d114914fdb1da3a29a924a155a0dff5860cafd0..e9719ed204e7aa80e7c1fca96e773173ad4ff038 100644 GIT binary patch delta 81 zcmZo)#Mr)waf6BsGj 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)