- VERSION 4.07.16

- Se cambio el codigo de descuento en el resumen de grupos porque a veces marcaba un peso de menos.
- Se corrigio la subrutina de impresion de A+B para que no muestre el ".00".
- Se agrego que mande por FTP la base de datos al hacer el cierre administrativo.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-07-17 16:15:43 -06:00
parent 5aed5968bb
commit 22adad9388
6 changed files with 265 additions and 159 deletions

View File

@@ -53,23 +53,25 @@ FileGroup8=Default Group
FileGroup9=Default Group
Group=Default Group
Library1=appupdating
Library10=randomaccessfile
Library11=runtimepermissions
Library12=scrollview2d
Library13=serial
Library14=sql
Library15=stringutils
Library16=wobblemenu
Library17=xui
Library18=b4xtable
Library2=byteconverter
Library3=compressstrings
Library4=core
Library5=fileprovider
Library6=javaobject
Library7=json
Library8=okhttputils2
Library9=preoptimizedclv
Library10=okhttputils2
Library11=preoptimizedclv
Library12=randomaccessfile
Library13=runtimepermissions
Library14=scrollview2d
Library15=serial
Library16=sql
Library17=stringutils
Library18=wobblemenu
Library19=xui
Library2=b4xtable
Library20=jsch
Library3=byteconverter
Library4=compressstrings
Library5=core
Library6=fileprovider
Library7=javaobject
Library8=json
Library9=net
ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="21" android:targetSdkVersion="33"/>~\n~<supports-screens android:largeScreens="true" ~\n~ android:normalScreens="true" ~\n~ android:smallScreens="true" ~\n~ android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.LightTheme)~\n~'End of default text.~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~AddPermission(android.permission.BLUETOOTH_ADVERTISE)~\n~AddPermission(android.permission.BLUETOOTH_CONNECT)~\n~AddPermission(android.permission.BLUETOOTH_SCAN)~\n~SetApplicationAttribute(android:largeHeap, "true")~\n~SetApplicationAttribute(android:allowBackup, "false")~\n~SetApplicationAttribute(android:exported, "true")~\n~~\n~AddApplicationText(<provider android:name="android.support.v4.content.FileProvider"~\n~ android:authorities="$PACKAGE$.provider" android:exported="false"~\n~ android:grantUriPermissions="true"><meta-data android:name="android.support.FILE_PROVIDER_PATHS" android:resource="@xml/provider_paths"/>~\n~ </provider>)~\n~CreateResource(xml, provider_paths,~\n~ <paths><external-files-path name="name" path="" /><files-path name="name" path="" /><files-path name="name" path="shared" /></paths>~\n~)~\n~~\n~ 'Para que se registre para abrir bases de datos~\n~ AddActivityText(main,~\n~<intent-filter>~\n~<action android:name="android.intent.action.VIEW" />~\n~<category android:name="android.intent.category.DEFAULT" />~\n~<data android:pathPattern=".*\\.db" />~\n~<data android:mimeType="*/*" />~\n~</intent-filter>)~\n~~\n~~\n~'APP UPDATING~\n~AddActivityText(main,~\n~<intent-filter>~\n~<action android:name="android.intent.action.VIEW" />~\n~<category android:name="android.intent.category.BROWSABLE" />~\n~<category android:name="android.intent.category.DEFAULT" />~\n~<data android:scheme="http" />~\n~<data android:host="*" />~\n~<data android:pathPattern=".*\\.db" />~\n~<data android:mimeType="*/*" />~\n~</intent-filter>)~\n~AddManifestText(<uses-permission~\n~ android:name="android.permission.WRITE_EXTERNAL_STORAGE"~\n~ android:maxSdkVersion="18" />~\n~)~\n~AddApplicationText(~\n~ <provider~\n~ android:name="android.support.v4.content.FileProvider"~\n~ android:authorities="$PACKAGE$.provider"~\n~ android:exported="false"~\n~ android:grantUriPermissions="true">~\n~ <meta-data~\n~ android:name="android.support.FILE_PROVIDER_PATHS"~\n~ android:resource="@xml/provider_paths"/>~\n~ </provider>~\n~)~\n~CreateResource(xml, provider_paths,~\n~<paths>~\n~ <external-files-path name="name" path="" />~\n~ <files-path name="name" path="" />~\n~ <files-path name="name" path="shared" />~\n~</paths>~\n~)~\n~AddPermission(android.permission.REQUEST_INSTALL_PACKAGES)~\n~AddPermission(android.permission.INTERNET)~\n~AddPermission(android.permission.INSTALL_PACKAGES)~\n~AddPermission(android.permission.READ_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.WRITE_EXTERNAL_STORAGE)~\n~AddPermission(android.permission.READ_PHONE_STATE)~\n~AddPermission(android.permission.WAKE_LOCK)
Module1=appUpdater
Module2=DBRequestManager
@@ -81,14 +83,14 @@ Module7=Starter
Module8=Subs
Module9=updateAvailable
NumberOfFiles=26
NumberOfLibraries=18
NumberOfLibraries=20
NumberOfModules=9
Version=12.8
@EndOfDesignText@
#Region Project Attributes
#ApplicationLabel: Lanterna
#VersionCode: 1
#VersionName: 4.07.10
#VersionName: 4.07.16
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: landscape
#CanInstallToExternalStorage: False
@@ -156,16 +158,21 @@ Sub Activity_Create(FirstTime As Boolean)
Subs.revisaBD
p_login.Width = Activity.Width
p_login.Height = Activity.Height
Subs.agregaColumna("cat_gunaprod", "CAT_PT_DESC", "TEXT")
Subs.agregaColumna("cat_gunaprod", "CAT_PS_DESC", "TEXT")
Subs.agregaColumna("cat_gunaprod", "CAT_PS_DESC", "TEXT")
Subs.agregaColumna("cat_gunaprod", "CAT_GP_FECHA", "TEXT")
Subs.agregaColumna("cat_gunaprod", "CAT_GP_FECHA_MOD", "TEXT")
Subs.agregaColumna("cat_gunaprod", "CAT_GP_ORDEN_GRUPOS", "TEXT")
' Starter.skmt.ExecNonQuery("delete from cuentaa")
' Starter.skmt.ExecNonQuery("insert into cuentaa (cuenta) values ('123456')")
Starter.skmt.ExecNonQuery("delete from cat_almacen")
Starter.skmt.ExecNonQuery("insert into cat_almacen (id_almacen) values ('1')")
Try
Subs.agregaColumna("cat_gunaprod", "CAT_PT_DESC", "TEXT")
Subs.agregaColumna("cat_gunaprod", "CAT_PS_DESC", "TEXT")
Subs.agregaColumna("cat_gunaprod", "CAT_PS_DESC", "TEXT")
Subs.agregaColumna("cat_gunaprod", "CAT_GP_FECHA", "TEXT")
Subs.agregaColumna("cat_gunaprod", "CAT_GP_FECHA_MOD", "TEXT")
Subs.agregaColumna("cat_gunaprod", "CAT_GP_ORDEN_GRUPOS", "TEXT")
' Starter.skmt.ExecNonQuery("delete from cuentaa")
' Starter.skmt.ExecNonQuery("insert into cuentaa (cuenta) values ('123456')")
Starter.skmt.ExecNonQuery("delete from cat_almacen")
Starter.skmt.ExecNonQuery("insert into cat_almacen (id_almacen) values ('1')")
Catch
Log(LastException)
End Try
l_version.Text = Application.VersionName
p_configuracion.Height = Activity.Height : p_configuracion.width = Activity.width
reqManager.Initialize(Me, Starter.DBReqServer)
@@ -293,6 +300,16 @@ Private Sub i_conf_Click
Do While z.NextRow
If z.GetString("CAT_VA_VALOR") = 1 Then cb_impresionActiva.Checked = True
Loop
'Esto para cambiar los tamaños y posiciones para pantallas chicas (celuar).
If GetDeviceLayoutValues.ApproximateScreenSize < 6 Then
Label3.Top = 2dip
Label3.BringToFront
p_server.Top = 20dip
p_botones.BringToFront
p_botones.Top = p_server.Top + p_server.Height - 10dip
End If
End Sub
Private Sub b_cargaProductos_Click
@@ -481,4 +498,18 @@ End Sub
'appUpdater - Ocultamos el anuncio de que se esta descargando el nuevo apk
Sub ocultaProgreso
ProgressDialogHide
End Sub
End Sub
Private Sub i_logo_LongClick
'ftp was previously initialized and its event name was set to ftp:
' ftp.Initialize("ftp", "access986911787.webspace-data.io", 22, "u114586321", "FTP&R3sp4ld0sK3ym0n")
Private theFile As String = "kmt.db"
DateTime.DateFormat = "yyyymmdd_HHmmss"
' Wait For (sf) FTP_UploadCompleted (ServerPath As String, Success As Boolean)
' If Success Then
' Log("file was uploaded successfully")
' Else
' Log("Error uploading file")
' End If
End Sub