- VERSION 4.08.11

- Se agregó a la revision de venta de Kelloggs que tegrese el estatus del arqueo y liquidacion

soporteKMS.b4a

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