mirror of
https://github.com/KeymonSoft/Mariana_Reparto.git
synced 2026-04-20 22:29:16 +00:00
para subir la ultima
This commit is contained in:
cvaldes1201
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user