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

...

Browse Source
This commit is contained in:
Javier
2025-11-04 10:25:09 -06:00
parent 5fc486d742
commit 3f23591294
10 changed files with 501 additions and 159 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
B4A/B4XMainPage.bas
View File

@@ -200,6 +200,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.agregaColumna("PEDIDO", "PE_RECCEDIS", "TEXT")
Subs.agregaColumna("PEDIDO", "PE_RECALCULOTOT", "TEXT")
Subs.agregaColumna("HIST_ENCUESTA", "HE_LON", "TEXT")
Subs.agregaColumna("HIST_VENTAS", "HVD_FECHA", "TEXT")
Subs.agregaColumna("kmt_info3", "encuesta", "TEXT")
Subs.agregaColumna("kmt_info3", "CAT_CL_TIPOCLIENTE", "TEXT")
Subs.agregaColumna("kmt_info3", "CAT_CL_LIMITECREDITO", "TEXT")
@@ -366,7 +367,7 @@ Sub B4XPage_Appear
B4XSwitch2.Value = False
End If
Else
B4XSwitch1.Value = False
B4XSwitch2.Value = False
End If
Subs.guardaAppInfo
@@ -992,7 +993,7 @@ Sub revisaActualizacion 'Parte de la funcionalidad "appUpdater"
'## Hay que actualizar la version en el archivo "gunaPreventa.ver" ##
'################################################
LogColor("Buscarmos archivo Ver", Colors.red)
Private link As String = "https://keymon.lat/movil/guna/gunaPreventa.ver"
Private link As String = "https://keymon.net/movil/guna/gunaPreventa.ver"
Wait For (traeArchivoVer(Me, link)) JobDone (j As HttpJob)
If j.Success Then
LogColor("Archivo .VER encontrado.", Colors.red)
@@ -1079,13 +1080,13 @@ Private Sub cb_importarBDWA_CheckedChange(Checked As Boolean)
End Sub
Private Sub i_engrane_LongClick
Dim Intent1 As Intent
Intent1.Initialize(Intent1.ACTION_VIEW, "guna://tienda360/config?clienteId=12&almacen=45&ruta=143")
Try
StartActivity(Intent1)
Catch
' Log(LastException)
ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
End Try
End Sub
'Private Sub i_engrane_LongClick
'' Dim Intent1 As Intent
'' Intent1.Initialize(Intent1.ACTION_VIEW, "guna://tienda360/config?clienteId=12&almacen=45&ruta=143")
'' Try
'' StartActivity(Intent1)
'' Catch
''' Log(LastException)
'' ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
'' End Try
'End Sub