mirror of
https://github.com/KeymonSoft/Mariana_Reparto.git
synced 2026-04-19 21:59:29 +00:00
20/12/23 - Se cambio rootExternal a Internal
This commit is contained in:
@@ -146,7 +146,6 @@ End Sub
|
||||
|
||||
Private Sub B4XPage_Appear
|
||||
MES1.Initialize(Me, "MES1")
|
||||
|
||||
' get the device SDK version
|
||||
Dim SdkVersion As Int = device.SdkVersion
|
||||
|
||||
@@ -174,8 +173,6 @@ Private Sub B4XPage_Appear
|
||||
c.Position = 0
|
||||
l_placa.Text = c.GetString("PLACA")
|
||||
c.Close
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub InitializeCamera2
|
||||
@@ -186,23 +183,23 @@ Private Sub InitializeCamera2
|
||||
frontCamera = camEx.Front
|
||||
Log("inicializamos Camara")
|
||||
Else
|
||||
ToastMessageShow("No permission!!!", True)
|
||||
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("conpermisos para escritura")
|
||||
Else
|
||||
ToastMessageShow("No permission!!!", 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("conpermisos para escritura")
|
||||
Else
|
||||
ToastMessageShow("No permission!!!", True)
|
||||
ToastMessageShow("Sin permisos de camara!", True)
|
||||
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)
|
||||
@@ -248,7 +245,7 @@ Sub Camera1_PictureTaken (Data()As Byte)
|
||||
|
||||
Log("tome foto")
|
||||
Dim filename As String = fototomada
|
||||
Dim Dirp As String = File.DirRootExternal
|
||||
Dim Dirp As String = File.DirInternal
|
||||
Dim Dir As String
|
||||
Dim Dir2 As String
|
||||
Try
|
||||
@@ -281,44 +278,43 @@ Sub Camera1_PictureTaken (Data()As Byte)
|
||||
Log(nombrefoto3)
|
||||
|
||||
If nombrefoto <> "0" Then
|
||||
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)
|
||||
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 450, 600, True)
|
||||
Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, True)
|
||||
img.WriteToStream(out, 100, "PNG")
|
||||
' foto1 = File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto)
|
||||
' foto1 = File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto)
|
||||
|
||||
out.Close
|
||||
ImageView1.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,nombrefoto)
|
||||
|
||||
ImageView1.Bitmap = LoadBitmap(File.DirInternal & Dir & Dir2,nombrefoto)
|
||||
End If
|
||||
|
||||
If nombrefoto1 <> "0" Then
|
||||
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)
|
||||
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 450, 600, True)
|
||||
Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, False)
|
||||
img.WriteToStream(out, 100, "PNG")
|
||||
' foto2 = File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto1)
|
||||
' foto2 = File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto1)
|
||||
|
||||
out.Close
|
||||
ImageView2.Bitmap = LoadBitmap(File.DirRootExternal & Dir& Dir2,nombrefoto1)
|
||||
ImageView2.Bitmap = LoadBitmap(File.DirInternal & Dir& Dir2,nombrefoto1)
|
||||
End If
|
||||
|
||||
If nombrefoto2 <> "0" Then
|
||||
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)
|
||||
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 450, 600, True)
|
||||
Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, False)
|
||||
img.WriteToStream(out, 100, "PNG")
|
||||
' foto3 = File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto2)
|
||||
' foto3 = File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto2)
|
||||
|
||||
out.Close
|
||||
ImageView3.Bitmap = LoadBitmap(File.DirRootExternal & Dir& Dir2,nombrefoto2)
|
||||
ImageView3.Bitmap = LoadBitmap(File.DirInternal & Dir& Dir2,nombrefoto2)
|
||||
End If
|
||||
|
||||
If nombrefoto3 <> "0" Then
|
||||
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)
|
||||
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 450, 600, True)
|
||||
Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, False)
|
||||
img.WriteToStream(out, 100, "PNG")
|
||||
' foto4 = File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto3)
|
||||
' foto4 = File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto3)
|
||||
|
||||
out.Close
|
||||
ImageView4.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,nombrefoto3)
|
||||
ImageView4.Bitmap = LoadBitmap(File.DirInternal & Dir & Dir2,nombrefoto3)
|
||||
End If
|
||||
|
||||
StopCamera2
|
||||
@@ -548,7 +544,7 @@ End Sub
|
||||
|
||||
Private Sub b_guardar_Click
|
||||
|
||||
Dim Dirp As String = File.DirRootExternal
|
||||
Dim Dirp As String = File.DirInternal
|
||||
Dim Dir As String
|
||||
Dim Dir2 As String
|
||||
Try
|
||||
@@ -599,7 +595,7 @@ Private Sub b_guardar_Click
|
||||
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)))
|
||||
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)))
|
||||
|
||||
mandaPendientes
|
||||
|
||||
@@ -611,70 +607,70 @@ Private Sub b_guardar_Click
|
||||
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")
|
||||
MsgboxAsync("Seleciona 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")
|
||||
MsgboxAsync("Seleciona 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")
|
||||
MsgboxAsync("Seleciona 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")
|
||||
MsgboxAsync("Seleciona 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")
|
||||
MsgboxAsync("Seleciona 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")
|
||||
MsgboxAsync("Seleciona 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")
|
||||
MsgboxAsync("Seleciona 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")
|
||||
MsgboxAsync("Seleciona 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")
|
||||
MsgboxAsync("Seleciona 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")
|
||||
MsgboxAsync("Seleciona 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")
|
||||
MsgboxAsync("Seleciona 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")
|
||||
MsgboxAsync("Seleciona 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")
|
||||
MsgboxAsync("Seleciona 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")
|
||||
MsgboxAsync("Seleciona 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")
|
||||
MsgboxAsync("Seleciona una opción en Limpieza unidad interna","Atención")
|
||||
End If
|
||||
Else
|
||||
MsgboxAsync("Seleeciona una opción en Limpieza unidad externa","Atención")
|
||||
MsgboxAsync("Seleciona 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")
|
||||
MsgboxAsync("Seleciona 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")
|
||||
MsgboxAsync("Seleciona 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")
|
||||
MsgboxAsync("Seleciona una opción en Documentación viegnte de tarjeta de circulación","Atención")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user