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 5.05.21

Browse Source 
. Se agrego un boton de "Revisar Avion".
- Se agrego mensaje de "Avion abierto" cuando se presiona el boton de "Abrir Avion".
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-05-21 21:41:50 -06:00
parent 4aff6194e1
commit 16d56cd1fb
3 changed files with 49 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
soporteKMS.b4a
View File

@@ -34,7 +34,7 @@ Version=12.8
@EndOfDesignText@
#Region Project Attributes
#ApplicationLabel: Soporte Keymonsoft
#VersionName: 5.05.20
#VersionName: 5.05.21
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
@@ -203,7 +203,9 @@ Sub Globals
Private s_almacenAA As Spinner
Private et_rutaAA As EditText
Private b_abrirAvion As Button
dim empresaAA, almacenAA as string
Dim empresaAA, almacenAA As String
Dim cuantosAbrirAvion As Int = 0
Private p_botonesAA As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
@@ -441,7 +443,8 @@ Sub WobbleMenu1_Tab5Click 'Borrar Venta
' Subs.centraBotonEnPanel(b_borrarVenta3, Panel3)
' Subs.centraBotonEnPanel(b_forzarVenta3, Panel3)
Subs.centraPanelEnPanel(p_botonesMards, p_borrarVenta)
Subs.centraBotonEnPanel(b_abrirAvion, p_borrarVenta)
' Subs.centraBotonEnPanel(b_abrirAvion, p_borrarVenta)
Subs.centraPanelEnPanel(p_botonesAA, p_borrarVenta)
s_empresaBV.SelectedIndex = 0
s_almacenBV.SelectedIndex = 0
End Sub
@@ -1301,6 +1304,38 @@ Sub JobDone(Job As HttpJob)
b_resDuplicadosKell.Enabled = False
b_resDuplicadosKell.Text = "¡Listo!" & CRLF & "Duplicados Borrados"
End If
If result.Tag.As(String).Contains("abrirAvion") Then
Subs.logJobDoneResultados(result)
cuantosAbrirAvion = cuantosAbrirAvion + 1
If cuantosAbrirAvion = 2 Then
Log("¡Listo avión abierto!")
Toast("¡Listo avión abierto!", 0)
End If
End If
If result.Tag.As(String).Contains("revisaAvion_") Then
Subs.logJobDoneResultados(result)
If result.Rows.Size > 0 Then
For Each records() As Object In result.Rows
Private fecha As String = records(result.Columns.Get("HVD_CIERREAVION"))
Private hora As String = Regex.Split(" ", fecha)(1)
hora = hora.SubString2(0, hora.IndexOf("."))
Toast($"Cerrado a las ${hora}"$, 600)
Next
Else
Toast("¡Avión abierto!", 0)
End If
' cuantosAbrirAvion = cuantosAbrirAvion + 1
' If cuantosAbrirAvion = 2 Then
' Log("¡Listo avión abierto!")
' Toast("¡Listo avión abierto!", 0)
' End If
End If
End If
Job.Release
End If
@@ -1815,9 +1850,10 @@ Private Sub s_almacenAA_ItemClick (Position As Int, Value As Object)
End Sub
Private Sub b_abrirAvion_Click
Log(empresaAA)
Log(almacenAA)
Log(et_rutaAA.text)
' Log(empresaAA)
' Log(almacenAA)
' Log(et_rutaAA.text)
cuantosAbrirAvion = 0
reqManager.Initialize(Me, DBRS_1781)
cmd.Name = $"abrirAvion1_${empresaAA}"$
cmd.Parameters = Array As Object(almacenAA, et_rutaAA.text)
@@ -1825,4 +1861,10 @@ Private Sub b_abrirAvion_Click
cmd.Name = $"abrirAvion2_${empresaAA}"$
cmd.Parameters = Array As Object(et_rutaAA.text, almacenAA)
reqManager.ExecuteCommand(cmd, $"abrirAvion2_${empresaAA}"$)
End Sub
Private Sub b_revisaAA_Click
cmd.Name = $"revisaAvion_${empresaAA}"$
cmd.Parameters = Array As Object(almacenAA, et_rutaAA.text)
reqManager.ExecuteQuery(cmd, 0, $"revisaAvion_${empresaAA}"$, 0)
End Sub