diff --git a/Files/layout1.bal b/Files/layout1.bal index ef481eb..0806ee9 100644 Binary files a/Files/layout1.bal and b/Files/layout1.bal differ diff --git a/soporteKMS.b4a b/soporteKMS.b4a index c355a3b..b621ece 100644 --- a/soporteKMS.b4a +++ b/soporteKMS.b4a @@ -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 \ No newline at end of file diff --git a/soporteKMS.b4a.meta b/soporteKMS.b4a.meta index 536e163..de04a15 100644 --- a/soporteKMS.b4a.meta +++ b/soporteKMS.b4a.meta @@ -10,6 +10,6 @@ ModuleClosedNodes0=2 ModuleClosedNodes1= ModuleClosedNodes2=1 ModuleClosedNodes3=1,9,11 -NavigationStack=Main,b_desbloquea_Click,489,0,Main,s_almacenBV_ItemClick,1640,0,Main,et_rutaBV_TextChanged,1639,0,Main,b_borrarVentaBV_Click,1549,0,Main,JobDone,842,0,Main,Globals,171,5,Main,s_empresaAA_ItemClick,1769,2,Diseñador Visual,layout1.bal,-100,1,Main,b_abrirAvion_Click,1788,6,Main,s_almacenAA_ItemClick,1778,2 +NavigationStack=Main,b_revisaAA_Click,1823,1,Main,Globals,174,6,Main,WobbleMenu1_Tab5Click,416,4,Main,b_abrirAvion_Click,1803,6,Main,s_empresaAA_ItemClick,1769,2,Main,s_almacenAA_ItemClick,1778,2,Main,Process_Globals,29,0,Main,b_borrarVentaBV_Click,1560,0,Main,JobDone,1281,6,Diseñador Visual,layout1.bal,-100,6 SelectedBuild=0 VisibleModules=2,3,1