- VERSION 5.05.21

. Se agrego un boton de "Revisar Avion".
- Se agrego mensaje de "Avion abierto" cuando se presiona el boton de "Abrir Avion".

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(empresaAA)
-	Log(almacenAA)
+'	Log(almacenAA)
-	Log(et_rutaAA.text)
+'	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

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