cheveguerra/SoporteKeymonsoft
1
0
Fork 0
mirror of https://github.com/KeymonSoft/SoporteKeymonsoft.git synced 2026-04-17 20:56:09 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.08.11

Browse Source 
- Se agregó a la revision de venta de Kelloggs que tegrese el estatus del arqueo y liquidacion
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-11-06 16:22:07 -06:00
parent f390c2d6d6
commit bcae7477c8
3 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
Files/layout1.bal
View File

Binary file not shown.

9
soporteKMS.b4a
View File

@@ -196,6 +196,7 @@ Sub Globals
Private b_cerrar As Button Private b_cerrar As Button
Private p_resVenta As Panel Private p_resVenta As Panel
Private p_resVentaTransparente As Panel Private p_resVentaTransparente As Panel
Private l_version1 As Label
End Sub End Sub
Sub Activity_Create(FirstTime As Boolean) Sub Activity_Create(FirstTime As Boolean)
@@ -285,6 +286,9 @@ Sub Activity_Create(FirstTime As Boolean)
timerBicho.Initialize("timerBicho", 5000) timerBicho.Initialize("timerBicho", 5000)
timerBicho.Enabled = True timerBicho.Enabled = True
reqManager.Initialize(Me, DBRS_1782) reqManager.Initialize(Me, DBRS_1782)
Subs.centraEtiquetaEnPanel(l_version1, p_login)
l_version1.Top = Activity.Height * 0.85
l_version1.text = "Version " & Application.VersionName
End Sub End Sub
Sub Activity_Resume Sub Activity_Resume
@@ -966,6 +970,7 @@ Sub JobDone(Job As HttpJob)
b_revisaVenta2.text = "Revisar Venta" b_revisaVenta2.text = "Revisar Venta"
Log(reqManager.HandleJob(Job).Rows.Size) Log(reqManager.HandleJob(Job).Rows.Size)
Log(result.Rows.Size) Log(result.Rows.Size)
Log(456)
For Each records() As Object In result.Rows For Each records() As Object In result.Rows
For Each k As String In result.Columns.Keys For Each k As String In result.Columns.Keys
Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k))) Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k)))
@@ -1182,7 +1187,9 @@ Sub JobDone(Job As HttpJob)
l_resArqueo.Text = $"ARQUEO: ${arqueo}"$ l_resArqueo.Text = $"ARQUEO: ${arqueo}"$
l_resLiquidacion.Text = $"LIQUIDADA: ${liquidado}"$ l_resLiquidacion.Text = $"LIQUIDADA: ${liquidado}"$
Next Next
p_resVentaTransparente.Visible = True ' Log(9999)
' p_resVentaTransparente.BringToFront
' p_resVentaTransparente.Visible = True
End If End If
End If End If
Job.Release Job.Release

4
soporteKMS.b4a.meta
View File

@@ -6,10 +6,10 @@ ModuleBreakpoints0=
ModuleBreakpoints1= ModuleBreakpoints1=
ModuleBreakpoints2= ModuleBreakpoints2=
ModuleBreakpoints3= ModuleBreakpoints3=
ModuleClosedNodes0=2,7,8,10,11,12,18,19,20,26,31,32 ModuleClosedNodes0=2
ModuleClosedNodes1= ModuleClosedNodes1=
ModuleClosedNodes2=1 ModuleClosedNodes2=1
ModuleClosedNodes3=1,9,11 ModuleClosedNodes3=1,9,11
NavigationStack=Main,et_usr_TextChanged,1197,2,Main,et_login_TextChanged,1156,0,Main,Process_Globals,33,0,Main,b_revisaVenta2_Click,1239,6,Main,b_revisaVenta_Click,1236,0,Main,Globals,164,0,Main,JobDone,1150,6,Main,b_cerrar_Click,1538,0,Visual Designer,layout1.bal,-100,6,Main,p_resVentaTransparente_Click,1542,0,Main,b_pasarInfoMovilDurakeloRep_Click,1523,0 NavigationStack=Main,Activity_Create,256,6,Main,b_revisaVenta2_Click,1257,6,Visual Designer,layout1.bal,-100,6,Main,Process_Globals,33,0,Main,b_revisaVenta_Click,1236,0,Main,b_cerrar_Click,1538,0,Main,p_resVentaTransparente_Click,1542,0,Main,b_pasarInfoMovilDurakeloRep_Click,1523,0,Main,Globals,123,0,Main,JobDone,934,6
SelectedBuild=0 SelectedBuild=0
VisibleModules=2,3,1 VisibleModules=2,3,1