cheveguerra/AREstrategicas
1
0
Fork 0
mirror of https://github.com/KeymonSoft/AREstrategicas.git synced 2026-04-22 13:40:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
cvaldes1201
2024-02-26 10:57:28 -06:00
parent c296f5ac20
commit 3b51b193bb
5 changed files with 54 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/AREstrategias.b4a
View File

@@ -82,7 +82,7 @@ Version=12.5
#AdditionalJar: com.google.android.gms:play-services-location #AdditionalJar: com.google.android.gms:play-services-location
#ApplicationLabel: AREstrategicas #ApplicationLabel: AREstrategicas
#VersionCode: 1 #VersionCode: 1
#VersionName: 3.11.07 #VersionName: 3.12.27
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

2
B4A/AREstrategias.b4a.meta
View File

@@ -34,6 +34,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=CameraExClass2,StopFaceDetection,391,0,c_datos,Class_Globals,0,0,c_datos,B4XPage_Created,159,0,Diseñador Visual,gestion.bal,-100,6,C_principal,CreateListItem2,221,0,C_principal,l_cuentasportrabajar_Click,196,0,B4XMainPage,b_iniciar_Click,110,0,Starter,Process_Globals,10,0,B4XMainPage,ImageView5_Click,166,0,B4XMainPage,JobDone,134,0,B4XMainPage,B4XPage_Appear,88,0 NavigationStack=c_datos,InitializeCamera2,1652,0,C_principal,Class_Globals,0,0,C_principal,b_enviar_Click,549,1,C_principal,JobDone,530,0,Main,Globals,24,0,c_datos,cb_socioeconomico_SelectedIndexChanged,1640,0,c_datos,Class_Globals,30,0,Diseñador Visual,datos.bal,-100,6,Diseñador Visual,gestion.bal,-100,4,c_datos,B4XPage_Created,153,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=9,2,4,3,10,7,6,11,1,5 VisibleModules=9,2,4,3,10,7,6,11,1,5

5
B4A/C_principal.bas
View File

@@ -546,13 +546,14 @@ Private Sub b_enviar_Click
Dim foto2() As Byte Dim foto2() As Byte
Dim foto3() As Byte Dim foto3() As Byte
Dim foto4() As Byte Dim foto4() As Byte
Dim Dirp As String = File.DirRootExternal Dim Dirp As String = File.DirInternal
Dim Dir As String Dim Dir As String
Dim Dir2 As String Dim Dir2 As String
Dir = "/Arestrategicas" Dir = "/Arestrategicas"
Dir2 = "/reduccion" Dir2 = "/reduccion"
c = Starter.skmt.ExecQuery("SELECT * FROM HIST_VISITA WHERE ESTATUS = 2 AND ENVIADO <> 1") ' c = Starter.skmt.ExecQuery("SELECT * FROM HIST_VISITA WHERE ESTATUS = 2 AND ENVIADO <> 1")
c = Starter.skmt.ExecQuery("SELECT * FROM HIST_VISITA ")
Log(c.RowCount) Log(c.RowCount)
If c.RowCount > 0 Then If c.RowCount > 0 Then
ProgressDialogShow("Enviando datos.") ProgressDialogShow("Enviando datos.")

BIN
B4A/Files/usuario.rar Normal file
View File

Binary file not shown.

98
B4A/c_datos.bas
View File

@@ -303,7 +303,7 @@ Private Sub B4XPage_Appear
l_saldotot.Text= NumberFormat(l_saldotot.Text.Replace(",",""),0,2) l_saldotot.Text= NumberFormat(l_saldotot.Text.Replace(",",""),0,2)
l_montoapagar.Text = b.GetString("MONTO_PAGAR") l_montoapagar.Text = b.GetString("MONTO_PAGAR")
l_montoapagar.Text= NumberFormat(l_montoapagar.Text.Replace(",",""),0,2) l_montoapagar.Text= NumberFormat(l_montoapagar.Text.Replace(",",""),0,2)
montoapagar = b.GetString("MONTO_PAGAR") montoapagar = b.GetString("TOTAL_PAGO_DESC")
l_totalapagar.Text = b.GetString("TOTAL_PAGO_DESC") l_totalapagar.Text = b.GetString("TOTAL_PAGO_DESC")
l_totalapagar.Text= NumberFormat(l_totalapagar.Text.Replace(",",""),0,2) l_totalapagar.Text= NumberFormat(l_totalapagar.Text.Replace(",",""),0,2)
l_liquidacion.Text = b.GetString("LIQUIDACION") l_liquidacion.Text = b.GetString("LIQUIDACION")
@@ -739,7 +739,7 @@ Private Sub B4XPage_Appear
cb_numero.SelectedIndex = r.GetString("NUMERO") cb_numero.SelectedIndex = r.GetString("NUMERO")
r.Close r.Close
Dim Dirp As String = File.DirRootExternal Dim Dirp As String = File.DirInternal
Dim Dir As String Dim Dir As String
Dim Dir2 As String Dim Dir2 As String
Try Try
@@ -763,28 +763,28 @@ Private Sub B4XPage_Appear
If m.GetString("FOTOUNO") = "0" Then If m.GetString("FOTOUNO") = "0" Then
ImageView1.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png") ImageView1.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
Else Else
ImageView1.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,m.GetString("FOTOUNO")) ImageView1.Bitmap = LoadBitmap(File.DirInternal & Dir & Dir2,m.GetString("FOTOUNO"))
nombrefoto = m.GetString("FOTOUNO") nombrefoto = m.GetString("FOTOUNO")
End If End If
If m.GetString("FOTODOS") = "0" Then If m.GetString("FOTODOS") = "0" Then
ImageView2.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png") ImageView2.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
Else Else
ImageView2.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,m.GetString("FOTODOS")) ImageView2.Bitmap = LoadBitmap(File.DirInternal & Dir & Dir2,m.GetString("FOTODOS"))
nombrefoto1 = m.GetString("FOTODOS") nombrefoto1 = m.GetString("FOTODOS")
End If End If
If m.GetString("FOTOTRES") = "0" Then If m.GetString("FOTOTRES") = "0" Then
ImageView3.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png") ImageView3.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
Else Else
ImageView3.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,m.GetString("FOTOTRES")) ImageView3.Bitmap = LoadBitmap(File.DirInternal & Dir & Dir2,m.GetString("FOTOTRES"))
nombrefoto2 = m.GetString("FOTOTRES") nombrefoto2 = m.GetString("FOTOTRES")
End If End If
If m.GetString("FOTOCUATRO") = "0" Then If m.GetString("FOTOCUATRO") = "0" Then
ImageView4.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png") ImageView4.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png")
Else Else
ImageView4.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,m.GetString("FOTOCUATRO")) ImageView4.Bitmap = LoadBitmap(File.DirInternal & Dir & Dir2,m.GetString("FOTOCUATRO"))
nombrefoto3 = m.GetString("FOTOCUATRO") nombrefoto3 = m.GetString("FOTOCUATRO")
End If End If
@@ -827,21 +827,21 @@ Sub WobbleMenu1_Tab3Click
ToastMessageShow("No permission!!!", True) ToastMessageShow("No permission!!!", True)
End If End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE) ' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) ' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then ' If Result Then
Log("conpermisos para escritura") ' Log("conpermisos para escritura")
Else ' Else
ToastMessageShow("No permission!!!", True) ' ToastMessageShow("No permission!!!", True)
End If ' End If
'
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE) ' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) ' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then ' If Result Then
Log("conpermisos para escritura") ' Log("conpermisos para escritura")
Else ' Else
ToastMessageShow("No permission!!!", True) ' ToastMessageShow("No permission!!!", True)
End If ' End If
p_w1.Visible = False p_w1.Visible = False
p_w2.Visible = False p_w2.Visible = False
@@ -1656,21 +1656,21 @@ Private Sub InitializeCamera2
Else Else
ToastMessageShow("No permission!!!", True) ToastMessageShow("No permission!!!", True)
End If End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE) ' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) ' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then ' If Result Then
Log("conpermisos para escritura") ' Log("conpermisos para escritura")
Else ' Else
ToastMessageShow("No permission!!!", True) ' ToastMessageShow("No permission!!!", True)
End If ' End If
'
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE) ' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) ' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then ' If Result Then
Log("conpermisos para escritura") ' Log("conpermisos para escritura")
Else ' Else
ToastMessageShow("No permission!!!", True) ' ToastMessageShow("No permission!!!", True)
End If ' End If
End Sub End Sub
Sub Camera1_Ready (Success As Boolean) Sub Camera1_Ready (Success As Boolean)
@@ -1755,7 +1755,7 @@ Sub Camera1_PictureTaken (Data()As Byte)
End If End If
Log("tome foto") Log("tome foto")
Dim filename As String = fototomada Dim filename As String = fototomada
Dim Dirp As String = File.DirRootExternal Dim Dirp As String = File.DirInternal
Dim Dir As String Dim Dir As String
Dim Dir2 As String Dim Dir2 As String
Try Try
@@ -1788,35 +1788,35 @@ Sub Camera1_PictureTaken (Data()As Byte)
Log(nombrefoto3) Log(nombrefoto3)
If nombrefoto <> "0" Then If nombrefoto <> "0" Then
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True) Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 300, 450, True)
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, True) Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, True)
img.WriteToStream(out, 100, "PNG") img.WriteToStream(out, 100, "PNG")
out.Close out.Close
ImageView1.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,nombrefoto) ImageView1.Bitmap = LoadBitmap(File.DirInternal & Dir & Dir2,nombrefoto)
End If End If
If nombrefoto1 <> "0" Then If nombrefoto1 <> "0" Then
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True) Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 300, 450, True)
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False) Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, False)
img.WriteToStream(out, 100, "PNG") img.WriteToStream(out, 100, "PNG")
out.Close out.Close
ImageView2.Bitmap = LoadBitmap(File.DirRootExternal & Dir& Dir2,nombrefoto1) ImageView2.Bitmap = LoadBitmap(File.DirInternal & Dir& Dir2,nombrefoto1)
End If End If
If nombrefoto2 <> "0" Then If nombrefoto2 <> "0" Then
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True) Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 300, 450, True)
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False) Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, False)
img.WriteToStream(out, 100, "PNG") img.WriteToStream(out, 100, "PNG")
out.Close out.Close
ImageView3.Bitmap = LoadBitmap(File.DirRootExternal & Dir& Dir2,nombrefoto2) ImageView3.Bitmap = LoadBitmap(File.DirInternal & Dir& Dir2,nombrefoto2)
End If End If
If nombrefoto3 <> "0" Then If nombrefoto3 <> "0" Then
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 300, 450, True) Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 300, 450, True)
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False) Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, False)
img.WriteToStream(out, 100, "PNG") img.WriteToStream(out, 100, "PNG")
out.Close out.Close
ImageView4.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,nombrefoto3) ImageView4.Bitmap = LoadBitmap(File.DirInternal & Dir & Dir2,nombrefoto3)
End If End If
StopCamera2 StopCamera2