cheveguerra/Nuevo_Torrado_V2
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Nuevo_Torrado_V2.git synced 2026-04-20 06:09:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

puerto

Browse Source
This commit is contained in:
cvaldes1201
2023-11-08 13:51:15 -06:00
parent d27ffca72d
commit ff26e0667a
7 changed files with 43 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
B4A/c_datos.bas
View File

@@ -240,6 +240,18 @@ Private Sub B4XPage_Created (Root1 As B4XView)
End If
End If
Log("------------------------------------- INICIO")
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Log("------------------------------------- AQUI ANDO")
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
Log("------------------------------------- SI PASE")
If Result Then
Log("con permisos para escritura")
Else
Log("------------------------------------- NO PASE")
ToastMessageShow("No permission almacenamiento externo!!!", True)
End If
Log("------------------------------------- terminado")
End Sub
Private Sub B4XPage_Appear
@@ -390,9 +402,17 @@ Private Sub B4XPage_Appear
Else If l.GetString("CUENTA") > 0 Then
m = Starter.skmt.ExecQuery2("SELECT * FROM HIST_VISITA WHERE CREDITO = ? AND ESTATUS = 1 OR ESTATUS = 0",Array As String(cuenta))
m = Starter.skmt.ExecQuery2("SELECT * FROM HIST_VISITA WHERE CREDITO = ? AND (ESTATUS = 1 OR ESTATUS = 0)",Array As String(cuenta))
m.Position = 0
Log(m.GetString("FOTOUNO"))
LogColor(nombrefoto, Colors.Red)
nombrefoto = m.GetString("FOTOUNO")
nombrefoto1 = m.GetString("FOTODOS")
nombrefoto2 = m.GetString("FOTOTRES")
nombrefoto3 = m.GetString("FOTOCUATRO")
LogColor(nombrefoto, Colors.Blue)
Log(cuenta)
e = Starter.skmt.ExecQuery("SELECT PARENTESCO, NUMERO, NUME FROM CAT_PARENTESCO order by 3")
Dim Items2 As List
@@ -605,9 +625,11 @@ Private Sub B4XPage_Appear
If m.GetString("FOTOUNO") = "0" Then
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
Log("NO CARGUE FOTO")
Else
ImageView1.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,m.GetString("FOTOUNO"))
nombrefoto = m.GetString("FOTOUNO")
Log("CARGUE FOTO "& m.GetString("FOTOUNO"))
End If
If m.GetString("FOTODOS") = "0" Then
@@ -679,7 +701,7 @@ Sub WobbleMenu1_Tab3Click
' frontCamera = camEx2.Front
' Log("inicializamos Camara")
Else
ToastMessageShow("No permission!!!", True)
ToastMessageShow("No permission camara!!!", True)
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
@@ -687,7 +709,7 @@ Sub WobbleMenu1_Tab3Click
If Result Then
Log("con permisos para escritura")
Else
ToastMessageShow("No permission!!!", True)
ToastMessageShow("No permission almacenamiento externo!!!", True)
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
@@ -695,7 +717,7 @@ Sub WobbleMenu1_Tab3Click
If Result Then
Log("con permisos para escritura")
Else
ToastMessageShow("No permission!!!", True)
ToastMessageShow("No permission lectura!!!", True)
End If
p_w1.Visible = False
@@ -1253,14 +1275,14 @@ Private Sub InitializeCamera2
frontCamera = camEx2.Front
Log("inicializamos Camara")
Else
ToastMessageShow("No permission!!!", True)
ToastMessageShow("No permission 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("conpermisos para escritura")
Else
ToastMessageShow("No permission!!!", True)
ToastMessageShow("No permission escritura!!!", True)
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
@@ -1268,7 +1290,7 @@ Private Sub InitializeCamera2
If Result Then
Log("conpermisos para escritura")
Else
ToastMessageShow("No permission!!!", True)
ToastMessageShow("No permission lectura!!!", True)
End If
End Sub
@@ -1504,7 +1526,7 @@ Private Sub b_guardar_Click
j.Position = 0
End If
DateTime.DateFormat = "dd/MM/yyyy"
DateTime.DateFormat = "MM/dd/yyyy"
DateTime.TimeFormat = "HH:mm:ss"
Dim fecha_captura As String = DateTime.Date(DateTime.Now)
Dim hora_captura As String = DateTime.Time(DateTime.Now)
@@ -1560,7 +1582,7 @@ Private Sub b_guardar_Click
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
End If
DateTime.DateFormat = "dd/MM/yyyy"
DateTime.DateFormat = "MM/dd/yyyy"
DateTime.TimeFormat = "HH:mm:ss"
Dim fecha_captura As String = DateTime.Date(DateTime.Now)
Dim hora_captura As String = DateTime.Time(DateTime.Now)
@@ -1620,7 +1642,7 @@ Private Sub b_guardar_Click
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
End If
DateTime.DateFormat = "dd/MM/yyyy"
DateTime.DateFormat = "MM/dd/yyyy"
DateTime.TimeFormat = "HH:mm:ss"
Dim fecha_captura As String = DateTime.Date(DateTime.Now)
Dim hora_captura As String = DateTime.Time(DateTime.Now)
@@ -1680,7 +1702,7 @@ Private Sub b_guardar_Click
j = Starter.skmt.ExecQuery2("SELECT CO_RESULTADO FROM CAT_RESULTADO_IL WHERE CO_RDESCRIPCION = ?",Array As String(cb_resultado.SelectedItem))
j.Position = 0
End If
DateTime.DateFormat = "dd/MM/yyyy"
DateTime.DateFormat = "MM/dd/yyyy"
DateTime.TimeFormat = "HH:mm:ss"
Dim fecha_captura As String = DateTime.Date(DateTime.Now)
Dim hora_captura As String = DateTime.Time(DateTime.Now)