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

6.02.19

Browse Source
This commit is contained in:
cvaldes1201
2026-03-10 10:19:29 -06:00
parent 5da05adc6f
commit bf303747a0
805 changed files with 45635 additions and 183960 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
B4A/B4XMainPage.bas
View File

@@ -42,6 +42,7 @@ Sub Class_Globals
Public Tclientes As V_Tclientes
Public historicobat As C_historicobat
Public historicobattodos As C_historicobatyodos
Dim reqManager As DBRequestManager
Dim v As String = Application.VersionName
@@ -150,6 +151,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
historicobat.Initialize
B4XPages.AddPage("historicobat", historicobat)
historicobattodos.Initialize
B4XPages.AddPage("historicobattodos", historicobattodos)
Clientes_Completos.Initialize
B4XPages.AddPage("Clientes_Completos", Clientes_Completos)
@@ -239,6 +243,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.agregaColumna("PEDIDO", "PE_FUTURO", "TEXT")
Subs.agregaColumna("PEDIDO", "PE_RECALCULOTOT", "TEXT")
Subs.agregaColumna("HIST_ENCUESTA", "HE_LON", "TEXT")
Subs.agregaColumna("hist_ventastodos", "HVD_NUM_TICKET", "TEXT")
Subs.agregaColumna("HIST_VENTAS", "HVD_FECHA", "TEXT")
Subs.agregaColumna("kmt_info3", "CAT_CL_NUMEROINT", "TEXT")
Subs.agregaColumna("kmt_info3", "CAT_CL_NUMEROEXT", "TEXT")