diff --git a/B4A/AREstrategias.b4a b/B4A/AREstrategias.b4a index 2ef5619..0f1c4d4 100644 --- a/B4A/AREstrategias.b4a +++ b/B4A/AREstrategias.b4a @@ -82,7 +82,7 @@ Version=12.5 #AdditionalJar: com.google.android.gms:play-services-location #ApplicationLabel: AREstrategicas #VersionCode: 1 - #VersionName: 3.11.07 + #VersionName: 3.12.27 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/AREstrategias.b4a.meta b/B4A/AREstrategias.b4a.meta index 89cfb48..6dbcbd6 100644 --- a/B4A/AREstrategias.b4a.meta +++ b/B4A/AREstrategias.b4a.meta @@ -34,6 +34,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= 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 VisibleModules=9,2,4,3,10,7,6,11,1,5 diff --git a/B4A/C_principal.bas b/B4A/C_principal.bas index 925cd6d..8d297e8 100644 --- a/B4A/C_principal.bas +++ b/B4A/C_principal.bas @@ -546,13 +546,14 @@ Private Sub b_enviar_Click Dim foto2() As Byte Dim foto3() As Byte Dim foto4() As Byte - Dim Dirp As String = File.DirRootExternal + Dim Dirp As String = File.DirInternal Dim Dir As String Dim Dir2 As String Dir = "/Arestrategicas" 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) If c.RowCount > 0 Then ProgressDialogShow("Enviando datos.") diff --git a/B4A/Files/usuario.rar b/B4A/Files/usuario.rar new file mode 100644 index 0000000..65338db Binary files /dev/null and b/B4A/Files/usuario.rar differ diff --git a/B4A/c_datos.bas b/B4A/c_datos.bas index ffc54fc..f5188ed 100644 --- a/B4A/c_datos.bas +++ b/B4A/c_datos.bas @@ -303,7 +303,7 @@ Private Sub B4XPage_Appear l_saldotot.Text= NumberFormat(l_saldotot.Text.Replace(",",""),0,2) l_montoapagar.Text = b.GetString("MONTO_PAGAR") 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= NumberFormat(l_totalapagar.Text.Replace(",",""),0,2) l_liquidacion.Text = b.GetString("LIQUIDACION") @@ -739,7 +739,7 @@ Private Sub B4XPage_Appear cb_numero.SelectedIndex = r.GetString("NUMERO") r.Close - Dim Dirp As String = File.DirRootExternal + Dim Dirp As String = File.DirInternal Dim Dir As String Dim Dir2 As String Try @@ -763,28 +763,28 @@ Private Sub B4XPage_Appear If m.GetString("FOTOUNO") = "0" Then ImageView1.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png") 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") End If If m.GetString("FOTODOS") = "0" Then ImageView2.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png") 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") End If If m.GetString("FOTOTRES") = "0" Then ImageView3.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png") 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") End If If m.GetString("FOTOCUATRO") = "0" Then ImageView4.Bitmap = LoadBitmap(File.DirAssets,"icon_22-[convertido].png") 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") End If @@ -827,21 +827,21 @@ Sub WobbleMenu1_Tab3Click 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) - 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) +' End If p_w1.Visible = False p_w2.Visible = False @@ -1656,21 +1656,21 @@ Private Sub InitializeCamera2 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) - 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) +' End If End Sub Sub Camera1_Ready (Success As Boolean) @@ -1755,7 +1755,7 @@ Sub Camera1_PictureTaken (Data()As Byte) End If 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 @@ -1788,35 +1788,35 @@ 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 out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, True) + Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 300, 450, True) + Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, True) img.WriteToStream(out, 100, "PNG") 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, 300, 450, True) - Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False) + Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 300, 450, True) + Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, False) img.WriteToStream(out, 100, "PNG") 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, 300, 450, True) - Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False) + Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 300, 450, True) + Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, False) img.WriteToStream(out, 100, "PNG") 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, 300, 450, True) - Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False) + Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 300, 450, True) + Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, False) img.WriteToStream(out, 100, "PNG") out.Close - ImageView4.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,nombrefoto3) + ImageView4.Bitmap = LoadBitmap(File.DirInternal & Dir & Dir2,nombrefoto3) End If StopCamera2