B4A=true Group=Default Group ModulesStructureVersion=1 Type=Class Version=12.5 @EndOfDesignText@ Sub Class_Globals Private Root As B4XView 'ignore Private xui As XUI 'ignore Private p_camara As Panel Private b_foto As Button Private p_cam As Panel Private b_checkin As Button Private b_checout As Button Dim g As GPS Private bu As BatteryUtilities Dim batterystatus(11) As Int Dim bateria As Int Dim sDate, sTime As String Dim cmd As DBCommand Dim reqManager As DBRequestManager Private Panel1 As Panel Private Capturing As Boolean Private rp As RuntimePermissions Private detector As JavaObject Private camEx As CameraExClass Private toast As BCToast Private Capturing As Boolean Private LastPreview As Long Private IntervalBetweenPreviewsMs As Int = 100 Private b_qr As Button Dim texto1 As String Private p_general As Panel Private b_gestion As Button Private ScrollView1 As ScrollView Private p_scroll As Panel Dim c As Cursor Private p_gestion As Panel Private cb_p1 As B4XComboBox Private cb_p2 As B4XComboBox Private cb_p3 As B4XComboBox Private cb_p4 As B4XComboBox Private cb_p5 As B4XComboBox Private cb_p6 As B4XComboBox Private cb_p7 As B4XComboBox Private cb_p8 As B4XComboBox Private cb_p9 As B4XComboBox Private cb_p10 As B4XComboBox Private cb_p11 As B4XComboBox Private cb_p12 As B4XComboBox Private cb_p13 As B4XComboBox Private cb_p14 As B4XComboBox Private cb_p15 As B4XComboBox Private cb_p16 As B4XComboBox Private cb_p17 As B4XComboBox Private cb_p18 As B4XComboBox Private cb_p19 As B4XComboBox Dim itemselect1 As String Dim itemselect2 As String Dim itemselect3 As String Dim itemselect4 As String Dim itemselect5 As String Dim itemselect6 As String Dim itemselect7 As String Dim itemselect8 As String Dim itemselect8 As String Dim itemselect9 As String Dim itemselect10 As String Dim itemselect11 As String Dim itemselect12 As String Dim itemselect13 As String Dim itemselect14 As String Dim itemselect15 As String Dim itemselect16 As String Dim itemselect17 As String Dim itemselect18 As String Dim itemselect19 As String Dim teclado As IME Private b_cancelar As Button Private b_finalizar As Button Private et_sup As EditText Private Panel7 As Panel Private NOMBRE As Label Private temporal As Location Private b_comidain As Button Private b_comidaout As Button Dim mensaje As String Dim donde As String Dim donde1 As String Dim donde2 As String Dim donde3 As String Private p_validacion As Panel Private b_aceptar As Button Private et_codigo As EditText Private b_cancelarcodigo As Button Private l_codigo As Label Private l_version As Label End Sub 'You can add more parameters here. Public Sub Initialize As Object Return Me End Sub 'This event will be called once, before the page becomes visible. Private Sub B4XPage_Created (Root1 As B4XView) Root = Root1 Root.LoadLayout("supervisor") 'load the layout to Root reqManager.Initialize(Me, Starter.DBReqServer) g.Initialize("GPS") toast.Initialize(Root) StopCamera ScrollView1.height = Root.Height - p_general.Height p_scroll.height = Root.Height - p_general.Height Panel1.Width = Root.Width Panel1.Height = Root.Height p_validacion.Width = Root.Width p_validacion.Height = Root.Height p_general.Width = Root.Width p_camara.Width = Root.Width p_camara.Height = Root.Height CreateDetector (Array("CODE_128", "CODE_93", "QR_CODE")) End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. Private Sub B4XPage_Appear l_version.Text = Application.VersionName CheckAndRequestNotificationPermission If g.GPSEnabled=False Then Dim result As Int= -3 Do While result=-3 result = Msgbox2("Habilitar el GPS", "Atencion","ACEPTAR","", "",LoadBitmap(File.DirAssets,"alert2.png")) Select Case result Case DialogResponse.POSITIVE MsgboxAsync("Habilitar el GPS", "Atencion") StartActivity(g.LocationSettingsIntent) Case DialogResponse.NEGATIVE B4XPage_Appear End Select Loop End If DateTime.DateFormat = "dd/MM/yyyy" sDate="%" & DateTime.Date(DateTime.Now) & "%" Log(sDate&" "&B4XPages.MainPage.login.user) C = Starter.skmt.ExecQuery2("SELECT * FROM CHECADO WHERE FECHA LIKE ? AND USUARIO = ?",Array As String(sDate, B4XPages.MainPage.login.user)) If c.RowCount > 0 Then c.Position = 0 If c.GetString("ESTATUS") = "ENTRADA" Then b_checkin.visible = False b_checout.visible = True Else If c.GetString("ESTATUS") = "SALIDA" Then b_checkin.visible = True b_checout.visible = False End If Else If c.RowCount = 0 Then b_checkin.visible = True b_checout.visible = False End If bu.Initialize batterystatus = bu.BatteryInformation bateria = batterystatus(0) ajustaTamano2 Wait For (CheckAndRequestNotificationPermission) Complete (HasPermission As Boolean) If HasPermission Then Log("Con permisos de notificación") Else ToastMessageShow("No permission to show notification", True) End If C = Starter.skmt.ExecQuery2("SELECT * FROM CHECADO WHERE FECHA LIKE ? AND USUARIO = ?",Array As String(sDate, B4XPages.MainPage.login.user)) If c.RowCount > 0 Then c.Position = 0 If c.GetString("ESTATUS") = "ENTRADA" Then b_checkin.visible = False b_checout.visible = True b_comidain.Visible = True b_comidaout.Visible = False Else If c.GetString("ESTATUS") = "SALIDA A COMER" Then b_checkin.visible = False b_checout.visible = True b_comidain.Visible = False b_comidaout.Visible = True Else If c.GetString("ESTATUS") = "REGRESO DE COMER" Then b_checkin.visible = False b_checout.visible = True b_comidain.Visible = False b_comidaout.Visible = False Else If c.GetString("ESTATUS") = "SALIDA" Then b_checkin.visible = True b_checout.visible = False b_comidain.Visible = False b_comidaout.Visible = False End If Else If c.RowCount = 0 Then b_checkin.visible = True b_checout.visible = False b_comidain.Visible = False b_comidaout.Visible = False End If If b_checkin.Visible Then b_qr.Visible = False Else b_qr.Visible = True End If End Sub 'Sub ajustaTamano2 ' Panel1.Width = Root.Width ' Panel1.Height = Root.Height ' p_general.Height = b_gestion.Top + 200 ' 'End Sub 'Make sure that targetSdkVersion >= 33 Private Sub CheckAndRequestNotificationPermission As ResumableSub Dim p As Phone If p.SdkVersion < 33 Then Return True Dim ctxt As JavaObject ctxt.InitializeContext Dim targetSdkVersion As Int = ctxt.RunMethodJO("getApplicationInfo", Null).GetField("targetSdkVersion") If targetSdkVersion < 33 Then Return True Dim NotificationsManager As JavaObject = ctxt.RunMethod("getSystemService", Array("notification")) Dim NotificationsEnabled As Boolean = NotificationsManager.RunMethod("areNotificationsEnabled", Null) If NotificationsEnabled Then Return True Dim rp As RuntimePermissions rp.CheckAndRequest(rp.PERMISSION_POST_NOTIFICATIONS) Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) 'change to Activity_PermissionResult if non-B4XPages. Return Result End Sub Private Sub b_foto_Click p_camara.Visible = False StopCamera Log(texto1) Dim s() As String = Regex.Split(";", texto1) temporal.Initialize2(s(10),s(11)) Dim l1 As Location l1.Initialize2(Starter.latitud, Starter.longitud) Private distancias As String = temporal.DistanceTo(l1) If distancias <= 200 Then b_gestion_Click Else MsgboxAsync("Es necesario estar cerca del promotor.","Atención") End If End Sub Private Sub b_checout_Click If b_comidaout.Visible = False Then If p_scroll.Visible = False Then If horasalida Then If g.GPSEnabled=False Then Dim result As Int= -3 Do While result=-3 result = Msgbox2("Habilitar el GPS", "Atencion","ACEPTAR","", "",LoadBitmap(File.DirAssets,"alert2.png")) Select Case result Case DialogResponse.POSITIVE MsgboxAsync("Habilitar el GPS", "Atencion") StartActivity(g.LocationSettingsIntent) Case DialogResponse.NEGATIVE B4XPage_Appear End Select Loop Else botonout End If Else If donde1 = "1" Then Msgbox2Async(mensaje,"Atención", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"),False) Wait For Msgbox_Result (result As Int) If result = DialogResponse.POSITIVE Then p_validacion.Visible = True l_codigo.Text = "Ingresa el codigo para el CHECK-OUT." End If Else If donde1 = "2" Then Msgbox2Async(mensaje,"Atención", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"),False) Wait For Msgbox_Result (result As Int) If result = DialogResponse.POSITIVE Then p_validacion.Visible = True l_codigo.Text = "Ingresa el codigo para el CHECK-OUT." End If End If Else MsgboxAsync("Necesitas acabar la gestion actual.","Atención") End If Else MsgboxAsync("Necesitas hacer la entrada de comida.","Atención") End If End Sub Private Sub b_checkin_Click If horaentrada Then If g.GPSEnabled=False Then Dim result As Int= -3 Do While result=-3 result = Msgbox2("Habilitar el GPS", "Atencion","ACEPTAR","", "",LoadBitmap(File.DirAssets,"alert2.png")) Select Case result Case DialogResponse.POSITIVE MsgboxAsync("Habilitar el GPS", "Atencion") StartActivity(g.LocationSettingsIntent) Case DialogResponse.NEGATIVE B4XPage_Appear End Select Loop Else botoncheck End If Else If donde2 = "1" Then Msgbox2Async(mensaje,"Atención", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"),False) Wait For Msgbox_Result (result As Int) If result = DialogResponse.POSITIVE Then p_validacion.Visible = True l_codigo.Text = "Ingresa el codigo para el CHECK-IN." End If Else If donde2 = "2" Then Msgbox2Async(mensaje,"Atención", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"),False) Wait For Msgbox_Result (result As Int) If result = DialogResponse.POSITIVE Then p_validacion.Visible = True l_codigo.Text = "Ingresa el codigo para el CHECK-IN." End If End If End Sub Sub botonout g.Start(0,0) DateTime.DateFormat = "dd/MM/yyyy" DateTime.TimeFormat = "HH:mm:ss" sDate=DateTime.Date(DateTime.Now) sTime=DateTime.Time(DateTime.Now) C = Starter.skmt.ExecQuery("SELECT * FROM CHECADO") If c.RowCount = 0 Then Starter.skmt.ExecNonQuery2("INSERT INTO HIST_CHECADO(USUARIO, ID_EMP, PERFIL, PROYECTO, SUCURSAL, ESTATUS, FECHA) VALUES(?,?,?,?,?,?,?)", Array As String(B4XPages.MainPage.login.user, B4XPages.MainPage.login.ID_EMP,B4XPages.MainPage.login.perfil, Starter.almacen, B4XPages.MainPage.login.sucursal, "ENTRADA", sDate &" " &sTime)) Else c.Position = 0 Starter.skmt.ExecNonQuery2("INSERT INTO HIST_CHECADO(USUARIO, ID_EMP, PERFIL, PROYECTO, SUCURSAL, ESTATUS, FECHA) VALUES(?,?,?,?,?,?,?)", Array As String(c.GetString("USUARIO"),c.GetString("ID_EMP"),c.GetString("PERFIL"),c.GetString("PROYECTO"),c.GetString("SUCURSAL"),c.GetString("ESTATUS"),c.GetString("FECHA"))) End If b_checkin.visible = True b_checout.visible = False Starter.skmt.ExecNonQuery("delete from CHECADO") Starter.skmt.ExecNonQuery2("INSERT INTO CHECADO(USUARIO, ID_EMP, PERFIL, PROYECTO, SUCURSAL, ESTATUS, FECHA) VALUES(?,?,?,?,?,?,?)", Array As String(B4XPages.MainPage.login.user, B4XPages.MainPage.login.ID_EMP,B4XPages.MainPage.login.perfil, Starter.almacen, B4XPages.MainPage.login.sucursal, "SALIDA", sDate &" " &sTime)) Mandaout MsgboxAsync("Check-out enviado con exito","Atención") End Sub Sub botoncheck g.Start(0,0) DateTime.DateFormat = "dd/MM/yyyy" DateTime.TimeFormat = "HH:mm:ss" sDate=DateTime.Date(DateTime.Now) sTime=DateTime.Time(DateTime.Now) C = Starter.skmt.ExecQuery("SELECT * FROM CHECADO") If c.RowCount = 0 Then Starter.skmt.ExecNonQuery2("INSERT INTO HIST_CHECADO(USUARIO, ID_EMP, PERFIL, PROYECTO, SUCURSAL, ESTATUS, FECHA) VALUES(?,?,?,?,?,?,?)", Array As String(B4XPages.MainPage.login.user, B4XPages.MainPage.login.ID_EMP,B4XPages.MainPage.login.perfil, Starter.almacen, B4XPages.MainPage.login.sucursal, "ENTRADA", sDate &" " &sTime)) Else c.Position = 0 Starter.skmt.ExecNonQuery2("INSERT INTO HIST_CHECADO(USUARIO, ID_EMP, PERFIL, PROYECTO, SUCURSAL, ESTATUS, FECHA) VALUES(?,?,?,?,?,?,?)", Array As String(c.GetString("USUARIO"),c.GetString("ID_EMP"),c.GetString("PERFIL"),c.GetString("PROYECTO"),c.GetString("SUCURSAL"),c.GetString("ESTATUS"),c.GetString("FECHA"))) End If b_checkin.visible = False b_checout.visible = True Starter.skmt.ExecNonQuery("delete from CHECADO") Starter.skmt.ExecNonQuery2("INSERT INTO CHECADO(USUARIO, ID_EMP, PERFIL, PROYECTO, SUCURSAL, ESTATUS, FECHA) VALUES(?,?,?,?,?,?,?)", Array As String(B4XPages.MainPage.login.user, B4XPages.MainPage.login.ID_EMP,B4XPages.MainPage.login.perfil, Starter.almacen, B4XPages.MainPage.login.sucursal, "ENTRADA", sDate &" " &sTime)) Mandacheck MsgboxAsync("Check-in enviado con exito","Atención") End Sub Sub Mandacheck DateTime.DateFormat = "dd/MM/yyyy" DateTime.TimeFormat = "HH:mm:ss" sDate=DateTime.Date(DateTime.Now) sTime=DateTime.Time(DateTime.Now) cmd.Initialize cmd.Name = "insert_check_GABICO" cmd.Parameters = Array As Object(B4XPages.MainPage.login.ID_EMP, Starter.almacen, sDate &" " &sTime,"MOVIL", "ENTRADA", B4XPages.MainPage.login.user, B4XPages.MainPage.login.sucursal, Starter.latitud, Starter.longitud) reqManager.ExecuteCommand(cmd , "check") B4XPage_Appear End Sub Sub Mandaout DateTime.DateFormat = "dd/MM/yyyy" DateTime.TimeFormat = "HH:mm:ss" sDate=DateTime.Date(DateTime.Now) sTime=DateTime.Time(DateTime.Now) cmd.Initialize cmd.Name = "insert_check_GABICO" cmd.Parameters = Array As Object(B4XPages.MainPage.login.ID_EMP, Starter.almacen, sDate &" " &sTime,"MOVIL", "SALIDA", B4XPages.MainPage.login.user, B4XPages.MainPage.login.sucursal, Starter.latitud, Starter.longitud) reqManager.ExecuteCommand(cmd , "check") B4XPage_Appear End Sub Private Sub b_qr_Click If Capturing = False Then p_camara.Visible = True StartCamera Else StopCamera End If End Sub 'CAMARA Private Sub B4XPage_Disappear StopCamera End Sub Private Sub StopCamera Capturing = False p_cam.Visible = False #if B4A If camEx.IsInitialized Then camEx.Release End If #Else If B4i scanner.Stop #end if End Sub Private Sub StartCameraShared p_cam.Visible = True Capturing = True End Sub Private Sub FoundBarcode (msg As String) texto1 = msg toast.Show($"Found [Color=Blue][b][plain]${msg}[/plain][/b][/Color]"$) b_foto_Click End Sub Private Sub StartCamera rp.CheckAndRequest(rp.PERMISSION_CAMERA) Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) If Result = False Then toast.Show("No permission!") Return End If StartCameraShared camEx.Initialize(p_cam, False, Me, "Camera1") Wait For Camera1_Ready (Success As Boolean) If Success Then camEx.SetContinuousAutoFocus camEx.CommitParameters camEx.StartPreview Else toast.Show("Error opening camera") StopCamera End If End Sub Private Sub CreateDetector (Codes As List) Dim ctxt As JavaObject ctxt.InitializeContext Dim builder As JavaObject builder.InitializeNewInstance("com/google/android/gms/vision/barcode/BarcodeDetector.Builder".Replace("/", "."), Array(ctxt)) Dim barcodeClass As String = "com/google/android/gms/vision/barcode/Barcode".Replace("/", ".") Dim barcodeStatic As JavaObject barcodeStatic.InitializeStatic(barcodeClass) Dim format As Int For Each formatName As String In Codes format = Bit.Or(format, barcodeStatic.GetField(formatName)) Next builder.RunMethod("setBarcodeFormats", Array(format)) detector = builder.RunMethod("build", Null) Dim operational As Boolean = detector.RunMethod("isOperational", Null) If operational = False Then toast.Show("Failed to create detector") End If b_qr.Enabled = operational End Sub Private Sub Camera1_Preview (data() As Byte) If DateTime.Now > LastPreview + IntervalBetweenPreviewsMs Then 'Dim n As Long = DateTime.Now Dim frameBuilder As JavaObject Dim bb As JavaObject bb = bb.InitializeStatic("java.nio.ByteBuffer").RunMethod("wrap", Array(data)) frameBuilder.InitializeNewInstance("com/google/android/gms/vision/Frame.Builder".Replace("/", "."), Null) Dim cs As CameraSize = camEx.GetPreviewSize frameBuilder.RunMethod("setImageData", Array(bb, cs.Width, cs.Height, 842094169)) Dim frame As JavaObject = frameBuilder.RunMethod("build", Null) Dim SparseArray As JavaObject = detector.RunMethod("detect", Array(frame)) LastPreview = DateTime.Now Dim Matches As Int = SparseArray.RunMethod("size", Null) If Matches > 0 Then Dim barcode As JavaObject = SparseArray.RunMethod("valueAt", Array(0)) Dim raw As String = barcode.GetField("rawValue") FoundBarcode(raw) End If End If End Sub Private Sub b_gestion_Click p_scroll.Visible = True ScrollView1.Visible = True ScrollView1.Panel.LoadLayout("gestion_sup") ScrollView1.Panel.Height = p_gestion.Height p_scroll.BringToFront b_gestion.Enabled = False p_gestion.Visible = True Dim s() As String = Regex.Split(";", texto1) NOMBRE.Text = s(2) Dim Items As List Items.Initialize Items.Clear Items.Add("SELECCIONA UNA OPCION ") Items.Add("CUMPLE") Items.Add("NO CUMPLE") Items.Add("RIESGO") cb_p1.SetItems(Items) cb_p2.SetItems(Items) cb_p3.SetItems(Items) cb_p4.SetItems(Items) cb_p5.SetItems(Items) cb_p6.SetItems(Items) cb_p7.SetItems(Items) cb_p8.SetItems(Items) cb_p9.SetItems(Items) cb_p10.SetItems(Items) cb_p11.SetItems(Items) cb_p12.SetItems(Items) cb_p13.SetItems(Items) cb_p14.SetItems(Items) cb_p15.SetItems(Items) cb_p16.SetItems(Items) cb_p17.SetItems(Items) cb_p18.SetItems(Items) cb_p19.SetItems(Items) itemselect1 = "SELECCIONA UNA OPCION" itemselect2 = "SELECCIONA UNA OPCION" itemselect3 = "SELECCIONA UNA OPCION" itemselect4 = "SELECCIONA UNA OPCION" itemselect5 = "SELECCIONA UNA OPCION" itemselect6 = "SELECCIONA UNA OPCION" itemselect7 = "SELECCIONA UNA OPCION" itemselect8 = "SELECCIONA UNA OPCION" itemselect9 = "SELECCIONA UNA OPCION" itemselect10 = "SELECCIONA UNA OPCION" itemselect11 = "SELECCIONA UNA OPCION" itemselect12 = "SELECCIONA UNA OPCION" itemselect13 = "SELECCIONA UNA OPCION" itemselect14 = "SELECCIONA UNA OPCION" itemselect15 = "SELECCIONA UNA OPCION" itemselect16 = "SELECCIONA UNA OPCION" itemselect17 = "SELECCIONA UNA OPCION" itemselect18 = "SELECCIONA UNA OPCION" itemselect19 = "SELECCIONA UNA OPCION" End Sub Private Sub cb_p19_SelectedIndexChanged (Index As Int) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height If cb_p19.SelectedItem = "CUMPLE" Then itemselect19 = "1" Else If cb_p19.SelectedItem = "NO CUMPLE" Then itemselect19 = "2" Else If cb_p19.SelectedItem = "RIESGO" Then itemselect19 = "3" End If teclado.HideKeyboard End Sub Private Sub cb_p18_SelectedIndexChanged (Index As Int) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height If cb_p18.SelectedItem = "CUMPLE" Then itemselect18 = "1" Else If cb_p18.SelectedItem = "NO CUMPLE" Then itemselect18 = "2" Else If cb_p18.SelectedItem = "RIESGO" Then itemselect18 = "3" End If teclado.HideKeyboard End Sub Private Sub cb_p17_SelectedIndexChanged (Index As Int) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height If cb_p17.SelectedItem = "CUMPLE" Then itemselect17 = "1" Else If cb_p17.SelectedItem = "NO CUMPLE" Then itemselect17 = "2" Else If cb_p17.SelectedItem = "RIESGO" Then itemselect17 = "3" End If teclado.HideKeyboard End Sub Private Sub cb_p16_SelectedIndexChanged (Index As Int) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height If cb_p16.SelectedItem = "CUMPLE" Then itemselect16 = "1" Else If cb_p16.SelectedItem = "NO CUMPLE" Then itemselect16 = "2" Else If cb_p16.SelectedItem = "RIESGO" Then itemselect16 = "3" End If teclado.HideKeyboard End Sub Private Sub cb_p15_SelectedIndexChanged (Index As Int) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height If cb_p15.SelectedItem = "CUMPLE" Then itemselect15 = "1" Else If cb_p15.SelectedItem = "NO CUMPLE" Then itemselect15 = "2" Else If cb_p15.SelectedItem = "RIESGO" Then itemselect15 = "3" End If teclado.HideKeyboard End Sub Private Sub cb_p14_SelectedIndexChanged (Index As Int) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height If cb_p14.SelectedItem = "CUMPLE" Then itemselect14 = "1" Else If cb_p14.SelectedItem = "NO CUMPLE" Then itemselect14 = "2" Else If cb_p14.SelectedItem = "RIESGO" Then itemselect14 = "3" End If teclado.HideKeyboard End Sub Private Sub cb_p13_SelectedIndexChanged (Index As Int) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height If cb_p13.SelectedItem = "CUMPLE" Then itemselect13 = "1" Else If cb_p13.SelectedItem = "NO CUMPLE" Then itemselect13 = "2" Else If cb_p13.SelectedItem = "RIESGO" Then itemselect13 = "3" End If teclado.HideKeyboard End Sub Private Sub cb_p12_SelectedIndexChanged (Index As Int) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height If cb_p12.SelectedItem = "CUMPLE" Then itemselect12 = "1" Else If cb_p12.SelectedItem = "NO CUMPLE" Then itemselect12 = "2" Else If cb_p12.SelectedItem = "RIESGO" Then itemselect12 = "3" End If teclado.HideKeyboard End Sub Private Sub cb_p11_SelectedIndexChanged (Index As Int) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height If cb_p11.SelectedItem = "CUMPLE" Then itemselect11 = "1" Else If cb_p11.SelectedItem = "NO CUMPLE" Then itemselect11 = "2" Else If cb_p11.SelectedItem = "RIESGO" Then itemselect11 = "3" End If teclado.HideKeyboard End Sub Private Sub cb_p10_SelectedIndexChanged (Index As Int) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height If cb_p10.SelectedItem = "CUMPLE" Then itemselect10 = "1" Else If cb_p10.SelectedItem = "NO CUMPLE" Then itemselect10 = "2" Else If cb_p10.SelectedItem = "RIESGO" Then itemselect10 = "3" End If teclado.HideKeyboard End Sub Private Sub cb_p9_SelectedIndexChanged (Index As Int) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height If cb_p9.SelectedItem = "CUMPLE" Then itemselect9 = "1" Else If cb_p9.SelectedItem = "NO CUMPLE" Then itemselect9 = "2" Else If cb_p9.SelectedItem = "RIESGO" Then itemselect9 = "3" End If teclado.HideKeyboard End Sub Private Sub cb_p8_SelectedIndexChanged (Index As Int) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height If cb_p8.SelectedItem = "CUMPLE" Then itemselect8 = "1" Else If cb_p8.SelectedItem = "NO CUMPLE" Then itemselect8 = "2" Else If cb_p8.SelectedItem = "RIESGO" Then itemselect8 = "3" End If teclado.HideKeyboard End Sub Private Sub cb_p7_SelectedIndexChanged (Index As Int) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height If cb_p7.SelectedItem = "CUMPLE" Then itemselect7 = "1" Else If cb_p7.SelectedItem = "NO CUMPLE" Then itemselect7 = "2" Else If cb_p7.SelectedItem = "RIESGO" Then itemselect7 = "3" End If teclado.HideKeyboard End Sub Private Sub cb_p6_SelectedIndexChanged (Index As Int) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height If cb_p6.SelectedItem = "CUMPLE" Then itemselect6 = "1" Else If cb_p6.SelectedItem = "NO CUMPLE" Then itemselect6 = "2" Else If cb_p6.SelectedItem = "RIESGO" Then itemselect6 = "3" End If teclado.HideKeyboard End Sub Private Sub cb_p5_SelectedIndexChanged (Index As Int) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height If cb_p5.SelectedItem = "CUMPLE" Then itemselect5 = "1" Else If cb_p5.SelectedItem = "NO CUMPLE" Then itemselect5 = "2" Else If cb_p5.SelectedItem = "RIESGO" Then itemselect5 = "3" End If teclado.HideKeyboard End Sub Private Sub cb_p4_SelectedIndexChanged (Index As Int) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height If cb_p4.SelectedItem = "CUMPLE" Then itemselect4 = "1" Else If cb_p4.SelectedItem = "NO CUMPLE" Then itemselect4 = "2" Else If cb_p4.SelectedItem = "RIESGO" Then itemselect4 = "3" End If teclado.HideKeyboard End Sub Private Sub cb_p3_SelectedIndexChanged (Index As Int) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height If cb_p3.SelectedItem = "CUMPLE" Then itemselect3 = "1" Else If cb_p3.SelectedItem = "NO CUMPLE" Then itemselect3 = "2" Else If cb_p3.SelectedItem = "RIESGO" Then itemselect3 = "3" End If teclado.HideKeyboard End Sub Private Sub cb_p2_SelectedIndexChanged (Index As Int) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height If cb_p2.SelectedItem = "CUMPLE" Then itemselect2 = "1" Else If cb_p2.SelectedItem = "NO CUMPLE" Then itemselect2 = "2" Else If cb_p2.SelectedItem = "RIESGO" Then itemselect2 = "3" End If teclado.HideKeyboard End Sub Private Sub cb_p1_SelectedIndexChanged (Index As Int) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height If cb_p1.SelectedItem = "CUMPLE" Then itemselect1 = "1" Else If cb_p1.SelectedItem = "NO CUMPLE" Then itemselect1 = "2" Else If cb_p1.SelectedItem = "RIESGO" Then itemselect1 = "3" End If teclado.HideKeyboard End Sub Private Sub et_sup_FocusChanged (HasFocus As Boolean) p_gestion.Height = b_cancelar.Top + 650 ScrollView1.Panel.Height = p_gestion.Height End Sub Sub ajustaTamano2 p_general.Height = b_gestion.Top + 200 p_scroll.Top = p_general.Top + p_general.Height p_scroll.Height = Root.Height - p_general.Height ScrollView1.Height = p_scroll.Height ' ScrollView1.Top = p_general.Top + p_general.Height End Sub Private Sub b_finalizar_Click If itemselect1 <> "SELECCIONA UNA OPCION" And itemselect2 <> "SELECCIONA UNA OPCION" And itemselect3 <> "SELECCIONA UNA OPCION" And itemselect4 <> "SELECCIONA UNA OPCION" And itemselect5 <> "SELECCIONA UNA OPCION" And itemselect6 <> "SELECCIONA UNA OPCION" And itemselect7 <> "SELECCIONA UNA OPCION" And itemselect8 <> "SELECCIONA UNA OPCION" And itemselect9 <> "SELECCIONA UNA OPCION" And itemselect10 <> "SELECCIONA UNA OPCION" And itemselect11 <> "SELECCIONA UNA OPCION" And itemselect12 <> "SELECCIONA UNA OPCION" And itemselect13 <> "SELECCIONA UNA OPCION" And itemselect14 <> "SELECCIONA UNA OPCION" And itemselect15 <> "SELECCIONA UNA OPCION" And itemselect16 <> "SELECCIONA UNA OPCION" And itemselect17 <> "SELECCIONA UNA OPCION" And itemselect18 <> "SELECCIONA UNA OPCION" And itemselect19 <> "SELECCIONA UNA OPCION" And et_sup.Text <> "" Then DateTime.DateFormat = "dd/MM/yyyy" DateTime.TimeFormat = "HH:mm:ss" sDate=DateTime.Date(DateTime.Now) sTime=DateTime.Time(DateTime.Now) Dim s() As String = Regex.Split(";", texto1) Log(s.Length) Log(s(1)) Log(s(2)) Log(s(3)) Log(s(4)) Log(s(5)) Log(s(6)) Log(s(7)) Log(s(8)) Dim fe() As String = Regex.Split(" ", s(6)) Log(fe(1)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"1",itemselect1,"","de " & fe(1) & " a "&sTime, 0)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"2",itemselect2,"","de " & fe(1) & " a "&sTime, 0)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"3",itemselect3,"","de " & fe(1) & " a "&sTime, 0)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"4",itemselect4,"","de " & fe(1) & " a "&sTime, 0)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"5",itemselect5,"","de " & fe(1) & " a "&sTime, 0)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"6",itemselect6,"","de " & fe(1) & " a "&sTime, 0)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"7",itemselect7,"","de " & fe(1) & " a "&sTime, 0)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"8",itemselect8,"","de " & fe(1) & " a "&sTime, 0)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"9",itemselect9,"","de " & fe(1) & " a "&sTime, 0)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"10",itemselect10,"","de " & fe(1) & " a "&sTime, 0)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"11",itemselect11,"","de " & fe(1) & " a "&sTime, 0)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"12",itemselect12,"","de " & fe(1) & " a "&sTime, 0)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"13",itemselect13,"","de " & fe(1) & " a "&sTime, 0)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"14",itemselect14,"","de " & fe(1) & " a "&sTime, 0)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"15",itemselect15,"","de " & fe(1) & " a "&sTime, 0)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"16",itemselect16,"","de " & fe(1) & " a "&sTime, 0)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"17",itemselect17,"","de " & fe(1) & " a "&sTime, 0)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"18",itemselect18,"","de " & fe(1) & " a "&sTime, 0)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"19",itemselect19,"","de " & fe(1) & " a "&sTime, 0)) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_SUPERVISOR(HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO, ENVIADO) VALUES(?,?,?,?,?,?,?,?,?,?,?,?)", Array As String(s(4),s(9),s(5),s(8),B4XPages.MainPage.login.ID_EMP,s(1), sDate,"20","",et_sup.Text,"de " & fe(1) & " a "&sTime, 0)) p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height p_scroll.Visible = False p_gestion.Visible = False b_gestion.Enabled = True et_sup.Text = "" itemselect1 = "SELECCIONA UNA OPCION" itemselect2 = "SELECCIONA UNA OPCION" itemselect3 = "SELECCIONA UNA OPCION" itemselect4 = "SELECCIONA UNA OPCION" itemselect5 = "SELECCIONA UNA OPCION" itemselect6 = "SELECCIONA UNA OPCION" itemselect7 = "SELECCIONA UNA OPCION" itemselect8 = "SELECCIONA UNA OPCION" itemselect9 = "SELECCIONA UNA OPCION" itemselect10 = "SELECCIONA UNA OPCION" itemselect11 = "SELECCIONA UNA OPCION" itemselect12 = "SELECCIONA UNA OPCION" itemselect13 = "SELECCIONA UNA OPCION" itemselect14 = "SELECCIONA UNA OPCION" itemselect15 = "SELECCIONA UNA OPCION" itemselect16 = "SELECCIONA UNA OPCION" itemselect17 = "SELECCIONA UNA OPCION" itemselect18 = "SELECCIONA UNA OPCION" itemselect19 = "SELECCIONA UNA OPCION" teclado.HideKeyboard mandaPendientes Else MsgboxAsync("Captura todos los datos","Atención") End If End Sub Private Sub b_cancelar_Click p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height p_scroll.Visible = False p_gestion.Visible = False b_gestion.Enabled = True et_sup.Text = "" itemselect1 = "SELECCIONA UNA OPCION" itemselect2 = "SELECCIONA UNA OPCION" itemselect3 = "SELECCIONA UNA OPCION" itemselect4 = "SELECCIONA UNA OPCION" itemselect5 = "SELECCIONA UNA OPCION" itemselect6 = "SELECCIONA UNA OPCION" itemselect7 = "SELECCIONA UNA OPCION" itemselect8 = "SELECCIONA UNA OPCION" itemselect9 = "SELECCIONA UNA OPCION" itemselect10 = "SELECCIONA UNA OPCION" itemselect11 = "SELECCIONA UNA OPCION" itemselect12 = "SELECCIONA UNA OPCION" itemselect13 = "SELECCIONA UNA OPCION" itemselect14 = "SELECCIONA UNA OPCION" itemselect15 = "SELECCIONA UNA OPCION" itemselect16 = "SELECCIONA UNA OPCION" itemselect17 = "SELECCIONA UNA OPCION" itemselect18 = "SELECCIONA UNA OPCION" itemselect19 = "SELECCIONA UNA OPCION" teclado.HideKeyboard End Sub Private Sub et_sup_TextChanged (Old As String, New As String) If New.Length > 200 Then et_sup.Text = Old End If p_gestion.Height = b_cancelar.Top + 650 ScrollView1.Panel.Height = p_gestion.Height End Sub Private Sub p_gestion_Click teclado.HideKeyboard p_gestion.Height = b_cancelar.Top + 110 ScrollView1.Panel.Height = p_gestion.Height teclado.HideKeyboard End Sub Private Sub Panel7_Click Panel7.Visible = False et_sup.BringToFront p_gestion.Height = b_cancelar.Top + 650 ScrollView1.Panel.Height = p_gestion.Height End Sub Sub mandaPendientes Log("MandaPendientes") 'PEDIDO (Pendientes) c=Starter.skmt.ExecQuery("SELECT HIST_CHKS_PROYECTO, HIST_CHKS_NOMPROY, HIST_CHKS_SUCURSAL, HIST_CHKS_FORMATO, HIST_CHKS_SUPERVISOR, HIST_CHKS_PROMOTOR, HIST_CHKS_FECHA, HIST_CHKS_ID, HIST_CHKS_CALIF_MULTIPLE, HIST_CHKS_CALIF_ABIERTA, HIST_CHKS_HORARIO FROM HIST_SUPERVISOR WHERE ENVIADO <> 1") Log($"GESTIONES PENDIENTES: ${c.RowCount}"$) If c.RowCount > 0 Then For i = 0 To c.RowCount -1 c.Position=i Dim cmd As DBCommand cmd.Initialize cmd.Name = "insert_gestionsuper_GABICO" cmd.Parameters = Array As Object(c.GetString("HIST_CHKS_PROYECTO"), c.GetString("HIST_CHKS_NOMPROY"),c.GetString("HIST_CHKS_SUCURSAL"), c.GetString("HIST_CHKS_FORMATO"), c.GetString("HIST_CHKS_SUPERVISOR"), c.GetString("HIST_CHKS_PROMOTOR"), c.GetString("HIST_CHKS_FECHA"),c.GetString("HIST_CHKS_ID"), c.GetString("HIST_CHKS_CALIF_MULTIPLE"), c.GetString("HIST_CHKS_CALIF_ABIERTA"), c.GetString("HIST_CHKS_HORARIO")) reqManager.ExecuteCommand(cmd , $"ins_superviPendientes_head_${c.GetString("HIST_CHKS_ID")}_${c.GetString("HIST_CHKS_PROMOTOR")}"$) Next End If End Sub Sub JobDone(Job As HttpJob) Log(Job.Success) If Job.Success = False Then ' ToastMessageShow("Error: " & Job.ErrorMessage, True) Else LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027 If Job.JobName = "DBRequest" Then Dim resultado As DBResult = reqManager.HandleJob(Job) If resultado.Tag.As(String).IndexOf("ins_superviPendientes_head_") > -1 Then Private cliente As String= resultado.Tag cliente = cliente.SubString(cliente.IndexOf("_")+24) Private check() As String = Regex.Split("_", cliente) Log(check(0)) Log(check(1)) Log($"Cliente1:${cliente}"$) For Each records() As Object In resultado.Rows For Each k As String In resultado.Columns.Keys Log(resultado.Tag & ": " & k & ": " & records(resultado.Columns.Get(k))) Next Next Starter.skmt.ExecNonQuery($"UPDATE HIST_SUPERVISOR set ENVIADO = 1 where HIST_CHKS_ID = '${check(0)}' AND HIST_CHKS_PROMOTOR = '${check(1)}'"$) End If If resultado.Tag = "CODIGO" Then 'query tag For Each records() As Object In resultado.Rows ' Dim codigo As String = records(resultado.Columns.Get("TMP_CD_CODIGO")) If codigo = et_codigo.Text Then Log("SI ENVIE CODIGO") Dim cmd As DBCommand cmd.Initialize cmd.Name = "delete_codigo_GABICO" cmd.Parameters = Array As Object(B4XPages.MainPage.login.user, et_codigo.Text) reqManager.ExecuteCommand(cmd, "delete") If l_codigo.Text = "Ingresa el codigo para el CHECK-OUT." Then botonout Else If l_codigo.Text = "Ingresa el codigo para el CHECK-IN." Then botoncheck Else If l_codigo.Text = "Ingresa el codigo para el REGRESO DE COMER." Then botoncomidaentrada Else If l_codigo.Text = "Ingresa el codigo para la SALIDA A COMER." Then botoncomidasalida End If b_cancelarcodigo_Click Else ToastMessageShow ("Codigo incorrecto",True) End If Next If resultado.Rows.Size = 0 Then ToastMessageShow ("Codigo incorrecto",True) End If End If End If End If End Sub Private Sub b_cancelafoto_Click p_camara.Visible = False StopCamera End Sub Sub horasalida As Boolean Dim p As Period p.Hours = 0 p.Minutes = 0 Dim newDate As Long = DateUtils.AddPeriod(DateTime.Now, p) Log(newDate) Log(DateUtils.TicksToString(newDate)) Dim p2 As Period p2.Hours = 1 p2.Minutes = 0 DateTime.DateFormat = "MM/dd/yyyy HH:mm" Dim fecha2 As String = DateTime.Date(DateTime.Now) Dim prueba2() As String = Regex.Split(" ",fecha2) LogColor(prueba2(0),Colors.red) Dim prueba3 As String = prueba2(0) &" "&B4XPages.MainPage.login.horaout&":00" LogColor(prueba3,Colors.Red) Dim ticks2 As Long = DateTime.DateParse(prueba3) LogColor(ticks2,Colors.red) LogColor(DateTime.Date(ticks2),Colors.red) Dim timeToCheck2 As Long = DateUtils.AddPeriod(ticks2, p2) LogColor(DateUtils.TicksToString(timeToCheck2),Colors.red) DateTime.TimeFormat = "hhmm" Dim p3 As Period p3.Hours = 0 p3.Minutes = 0 DateTime.DateFormat = "MM/dd/yyyy HH:mm" Dim fecha As String = DateTime.Date(DateTime.Now) Dim prueba1() As String = Regex.Split(" ",fecha) Log(prueba1(0)) Dim prueba As String = prueba1(0) &" "&B4XPages.MainPage.login.horaout&":00" LogColor(prueba,Colors.Red) Dim ticks As Long = DateTime.DateParse(prueba) Log(ticks) Dim timeToCheck As Long = DateUtils.AddPeriod(ticks, p3) Log(DateUtils.TicksToString(timeToCheck)) If newDate >= timeToCheck And newDate <= timeToCheck2 Then donde1 = "0" Log("0") Return True Else If newDate > timeToCheck2 Then donde1 = "1" Log("1") mensaje = "La hora maxima para hacer el check-out ha terminado, ingresa el codigo" Return False Else If newDate < timeToCheck Then donde1 = "2" Log("2") mensaje = "Aun no es tu horario de salida, ingresa el codigo" Return False Else Return False End If End Sub Sub horaentrada As Boolean Dim p As Period p.Hours = 0 p.Minutes = 0 Dim newDate As Long = DateUtils.AddPeriod(DateTime.Now, p) Log(newDate) Log(DateUtils.TicksToString(newDate)) Dim p2 As Period p2.Hours = 0 p2.Minutes = 20 DateTime.DateFormat = "MM/dd/yyyy HH:mm" Dim fecha2 As String = DateTime.Date(DateTime.Now) Dim prueba2() As String = Regex.Split(" ",fecha2) LogColor(prueba2(0),Colors.red) Dim prueba3 As String = prueba2(0) &" "&B4XPages.MainPage.login.horain&":00" LogColor(prueba3,Colors.Red) Dim ticks2 As Long = DateTime.DateParse(prueba3) LogColor(ticks2,Colors.red) LogColor(DateTime.Date(ticks2),Colors.red) Dim timeToCheck2 As Long = DateUtils.AddPeriod(ticks2, p2) LogColor(DateUtils.TicksToString(timeToCheck2),Colors.red) DateTime.TimeFormat = "hhmm" Dim p3 As Period p3.Hours = 0 p3.Minutes = -30 DateTime.DateFormat = "MM/dd/yyyy HH:mm" Dim fecha As String = DateTime.Date(DateTime.Now) Dim prueba1() As String = Regex.Split(" ",fecha) Log(prueba1(0)) Dim prueba As String = prueba1(0) &" "&B4XPages.MainPage.login.horain&":00" LogColor(prueba,Colors.Red) Dim ticks As Long = DateTime.DateParse(prueba) Log(ticks) Dim timeToCheck As Long = DateUtils.AddPeriod(ticks, p3) Log(DateUtils.TicksToString(timeToCheck)) If newDate >= timeToCheck And newDate < timeToCheck2 Then donde2 = "0" Return True Else If newDate > timeToCheck2 Then donde2 = "1" mensaje = "La tolerancia del check-in paso, por favor, ingresa el codigo" Return False Else If newDate < timeToCheck Then donde2 = "1" mensaje = "Aun no es tu horario de entrada, ingresa el codigo" Return False Else Return False End If End Sub Private Sub b_comidaout_Click If horaentradacomer Then If Not(Subs.IsConnectedToInternet) Then Msgbox("Habilita los datos del celular","Atención") B4XPage_Appear Else Log("validar") DateTime.DateFormat = "dd/MM/yyyy" sDate="%" & DateTime.Date(DateTime.Now) & "%" C = Starter.skmt.ExecQuery2("SELECT * FROM HIST_CHECADO WHERE FECHA LIKE ? AND USUARIO = ?",Array As String(sDate, B4XPages.MainPage.login.user)) Log(c.RowCount) If c.RowCount < 6 Then If g.GPSEnabled=False Then Dim result As Int= -3 Do While result=-3 result = Msgbox2("Habilitar el GPS", "Atencion","ACEPTAR","", "",LoadBitmap(File.DirAssets,"alert2.png")) Select Case result Case DialogResponse.POSITIVE MsgboxAsync("Habilitar el GPS", "Atencion") StartActivity(g.LocationSettingsIntent) Case DialogResponse.NEGATIVE B4XPage_Appear End Select Loop Else botoncomidaentrada End If Else MsgboxAsync("No puedes hacer mas registros","Atención") End If End If Else If donde3 = "1" Then Msgbox2Async(mensaje,"Atención", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"),False) Wait For Msgbox_Result (result As Int) If result = DialogResponse.POSITIVE Then p_validacion.Visible = True l_codigo.Text = "Ingresa el codigo para el REGRESO DE COMER." End If Else If donde3 = "2" Then Msgbox2Async(mensaje,"Atención", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"),False) Wait For Msgbox_Result (result As Int) If result = DialogResponse.POSITIVE Then p_validacion.Visible = True l_codigo.Text = "Ingresa el codigo para el REGRESO DE COMER." End If End If End Sub Sub botoncomidaentrada g.Start(0,0) DateTime.DateFormat = "dd/MM/yyyy" DateTime.TimeFormat = "HH:mm:ss" sDate=DateTime.Date(DateTime.Now) sTime=DateTime.Time(DateTime.Now) C = Starter.skmt.ExecQuery("SELECT * FROM CHECADO") If c.RowCount = 0 Then Starter.skmt.ExecNonQuery2("INSERT INTO HIST_CHECADO(USUARIO, ID_EMP, PERFIL, PROYECTO, SUCURSAL, ESTATUS, FECHA) VALUES(?,?,?,?,?,?,?)", Array As String(B4XPages.MainPage.login.user, B4XPages.MainPage.login.ID_EMP,B4XPages.MainPage.login.perfil, Starter.almacen, B4XPages.MainPage.login.sucursal, "REGRESO DE COMER", sDate &" " &sTime)) Else c.Position = 0 Starter.skmt.ExecNonQuery2("INSERT INTO HIST_CHECADO(USUARIO, ID_EMP, PERFIL, PROYECTO, SUCURSAL, ESTATUS, FECHA) VALUES(?,?,?,?,?,?,?)", Array As String(c.GetString("USUARIO"),c.GetString("ID_EMP"),c.GetString("PERFIL"),c.GetString("PROYECTO"),c.GetString("SUCURSAL"),c.GetString("ESTATUS"),c.GetString("FECHA"))) End If Starter.skmt.ExecNonQuery("delete from CHECADO") Starter.skmt.ExecNonQuery2("INSERT INTO CHECADO(USUARIO, ID_EMP, PERFIL, PROYECTO, SUCURSAL, ESTATUS, FECHA) VALUES(?,?,?,?,?,?,?)", Array As String(B4XPages.MainPage.login.user, B4XPages.MainPage.login.ID_EMP,B4XPages.MainPage.login.perfil, Starter.almacen, B4XPages.MainPage.login.sucursal, "REGRESO DE COMER", sDate &" " &sTime)) b_checkin.visible = False b_checout.visible = True b_comidain.Visible = False b_comidaout.Visible = False MsgboxAsync("Regreso de comer enviado con exito","Atención") Mandacomidaout End Sub Sub Mandacomidaout DateTime.DateFormat = "dd/MM/yyyy" sDate=DateTime.Date(DateTime.Now) DateTime.TimeFormat = "HH:mm:ss" sTime=DateTime.Time(DateTime.Now) cmd.Initialize cmd.Name = "insert_check_GABICO" cmd.Parameters = Array As Object(B4XPages.MainPage.login.ID_EMP, Starter.almacen, sDate &" " &sTime,"MOVIL", "REGRESO DE COMER", B4XPages.MainPage.login.user, B4XPages.MainPage.login.sucursal, Starter.latitud, Starter.longitud) reqManager.ExecuteCommand(cmd , "check") B4XPage_Appear End Sub Sub horaentradacomer As Boolean C = Starter.skmt.ExecQuery("SELECT * FROM CHECADO") If c.RowCount > 0 Then c.Position = 0 DateTime.DateFormat = "dd/MM/yyyy HH:mm" Dim p As Period p.Hours = 0 p.Minutes = 0 Dim newDate As Long = DateUtils.AddPeriod(DateTime.Now, p) Log(newDate) Log(DateUtils.TicksToString(newDate)) Dim p2 As Period p2.Hours = 1 p2.Minutes = 0 DateTime.DateFormat = "dd/MM/yyyy HH:mm" Dim prueba3 As String = c.GetString("FECHA") LogColor(prueba3.SubString2(0,16),Colors.Red) Dim ticks2 As Long = DateTime.DateParse(prueba3.SubString2(0,16)) LogColor(ticks2,Colors.red) LogColor(DateTime.Date(ticks2),Colors.red) Dim timeToCheck2 As Long = DateUtils.AddPeriod(ticks2, p2) LogColor(DateUtils.TicksToString(timeToCheck2),Colors.red) Dim p2 As Period p2.Hours = 1 p2.Minutes = 10 DateTime.DateFormat = "dd/MM/yyyy HH:mm" Dim prueba As String = c.GetString("FECHA") LogColor(prueba.SubString2(0,16),Colors.Red) Dim ticks As Long = DateTime.DateParse(prueba3.SubString2(0,16)) LogColor(ticks,Colors.red) LogColor(DateTime.Date(ticks2),Colors.red) Dim timeToCheck As Long = DateUtils.AddPeriod(ticks, p2) LogColor(DateUtils.TicksToString(timeToCheck),Colors.red) If newDate >= timeToCheck2 And newDate < timeToCheck Then donde3 = "0" Return True Else If newDate > timeToCheck Then mensaje = "Tu horario de regreso ya paso, ingresa el codigo" donde3 = "1" Return False Else If newDate < timeToCheck2 Then mensaje = "Tu hora de comida aun no se cumple, ingresa el codigo" donde3 = "2" Return False End If End If End Sub Private Sub b_comidain_Click If p_scroll.Visible = False Then Log("Cumple panel invisible") If horasalidacomer Then If Not(Subs.IsConnectedToInternet) Then Msgbox("Habilita los datos del celular","Atención") B4XPage_Appear Else Log("validar") DateTime.DateFormat = "dd/MM/yyyy" sDate="%" & DateTime.Date(DateTime.Now) & "%" C = Starter.skmt.ExecQuery2("SELECT * FROM HIST_CHECADO WHERE FECHA LIKE ? AND USUARIO = ?",Array As String(sDate, B4XPages.MainPage.login.user)) Log(c.RowCount) If c.RowCount < 6 Then If g.GPSEnabled=False Then Dim result As Int= -3 Do While result=-3 result = Msgbox2("Habilitar el GPS", "Atencion","ACEPTAR","", "",LoadBitmap(File.DirAssets,"alert2.png")) Select Case result Case DialogResponse.POSITIVE MsgboxAsync("Habilitar el GPS", "Atencion") StartActivity(g.LocationSettingsIntent) Case DialogResponse.NEGATIVE B4XPage_Appear End Select Loop Else botoncomidasalida End If Else MsgboxAsync("No puedes hacer mas registros","Atención") End If End If Else If donde = "1" Then Msgbox2Async(mensaje,"Atención", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"),False) Wait For Msgbox_Result (result As Int) If result = DialogResponse.POSITIVE Then p_validacion.Visible = True l_codigo.Text = "Ingresa el codigo para la SALIDA A COMER." End If Else If donde = "2" Then Msgbox2Async(mensaje,"Atención", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"),False) Wait For Msgbox_Result (result As Int) If result = DialogResponse.POSITIVE Then p_validacion.Visible = True l_codigo.Text = "Ingresa el codigo para la SALIDA A COMER." End If End If Else MsgboxAsync("Necesitas acabar la gestion actual.","Atención") End If End Sub Sub botoncomidasalida g.Start(0,0) DateTime.DateFormat = "dd/MM/yyyy" DateTime.TimeFormat = "HH:mm:ss" sDate=DateTime.Date(DateTime.Now) sTime=DateTime.Time(DateTime.Now) C = Starter.skmt.ExecQuery("SELECT * FROM CHECADO") If c.RowCount = 0 Then Starter.skmt.ExecNonQuery2("INSERT INTO HIST_CHECADO(USUARIO, ID_EMP, PERFIL, PROYECTO, SUCURSAL, ESTATUS, FECHA) VALUES(?,?,?,?,?,?,?)", Array As String(B4XPages.MainPage.login.user, B4XPages.MainPage.login.ID_EMP,B4XPages.MainPage.login.perfil, Starter.almacen, B4XPages.MainPage.login.sucursal, "SALIDA A COMER", sDate &" " &sTime)) Else c.Position = 0 Starter.skmt.ExecNonQuery2("INSERT INTO HIST_CHECADO(USUARIO, ID_EMP, PERFIL, PROYECTO, SUCURSAL, ESTATUS, FECHA) VALUES(?,?,?,?,?,?,?)", Array As String(c.GetString("USUARIO"),c.GetString("ID_EMP"),c.GetString("PERFIL"),c.GetString("PROYECTO"),c.GetString("SUCURSAL"),c.GetString("ESTATUS"),c.GetString("FECHA"))) End If Starter.skmt.ExecNonQuery("delete from CHECADO") Starter.skmt.ExecNonQuery2("INSERT INTO CHECADO(USUARIO, ID_EMP, PERFIL, PROYECTO, SUCURSAL, ESTATUS, FECHA) VALUES(?,?,?,?,?,?,?)", Array As String(B4XPages.MainPage.login.user, B4XPages.MainPage.login.ID_EMP,B4XPages.MainPage.login.perfil, Starter.almacen, B4XPages.MainPage.login.sucursal, "SALIDA A COMER", sDate &" " &sTime)) b_checkin.visible = False b_checout.visible = True b_comidain.Visible = False b_comidaout.Visible = True MsgboxAsync("Salida a comer enviada con exito","Atención") Mandacomidain End Sub Sub Mandacomidain DateTime.DateFormat = "dd/MM/yyyy" sDate=DateTime.Date(DateTime.Now) DateTime.TimeFormat = "HH:mm:ss" sTime=DateTime.Time(DateTime.Now) cmd.Initialize cmd.Name = "insert_check_GABICO" cmd.Parameters = Array As Object(B4XPages.MainPage.login.ID_EMP, Starter.almacen, sDate &" " &sTime,"MOVIL", "SALIDA A COMER", B4XPages.MainPage.login.user, B4XPages.MainPage.login.sucursal, Starter.latitud, Starter.longitud) reqManager.ExecuteCommand(cmd , "check") B4XPage_Appear End Sub Sub horasalidacomer As Boolean DateTime.DateFormat = "MM/dd/yyyy HH:mm" Dim p As Period p.Hours = 0 p.Minutes = 0 Dim newDate As Long = DateUtils.AddPeriod(DateTime.Now, p) Log(newDate) Log(DateUtils.TicksToString(newDate)) Dim p2 As Period p2.Hours = 1 p2.Minutes = 0 DateTime.DateFormat = "MM/dd/yyyy HH:mm" Dim fecha2 As String = DateTime.Date(DateTime.Now) Dim prueba2() As String = Regex.Split(" ",fecha2) LogColor(prueba2(0),Colors.red) Dim prueba3 As String = prueba2(0) &" "&B4XPages.MainPage.login.horacomin&":00" LogColor(prueba3,Colors.Red) Dim ticks2 As Long = DateTime.DateParse(prueba3) LogColor(ticks2,Colors.red) LogColor(DateTime.Date(ticks2),Colors.red) Dim timeToCheck2 As Long = DateUtils.AddPeriod(ticks2, p2) LogColor(DateUtils.TicksToString(timeToCheck2),Colors.red) DateTime.TimeFormat = "hhmm" Dim p3 As Period p3.Hours = 0 p3.Minutes = 0 DateTime.DateFormat = "MM/dd/yyyy HH:mm" Dim fecha As String = DateTime.Date(DateTime.Now) Dim prueba1() As String = Regex.Split(" ",fecha) Log(prueba1(0)) Dim prueba As String = prueba1(0) &" "&B4XPages.MainPage.login.horacomin&":00" LogColor(prueba,Colors.Red) Dim ticks As Long = DateTime.DateParse(prueba) Log(ticks) Dim timeToCheck As Long = DateUtils.AddPeriod(ticks, p3) Log(DateUtils.TicksToString(timeToCheck)) If newDate >= timeToCheck And newDate < timeToCheck2 Then donde = "0" Return True Else If newDate > timeToCheck2 Then donde = "1" mensaje = "Tu horario de comida ya paso, ingresa el codigo" Return False Else If newDate < timeToCheck Then donde = "2" mensaje = "Aun no es tu horario de comida, ingresa el codigo" Return False Else Return False End If End Sub Private Sub b_aceptar_Click mandacodigo End Sub Private Sub p_validacion_Click End Sub Private Sub b_cancelarcodigo_Click et_codigo.Text = "" p_validacion.Visible = False End Sub Sub mandacodigo If et_codigo.Text <> "" Then Dim cmd As DBCommand cmd.Initialize cmd.Name = "select_codigo_GABICO" cmd.Parameters = Array As Object(B4XPages.MainPage.login.user, et_codigo.Text) reqManager.ExecuteQuery(cmd , 0, "CODIGO") Else If et_codigo.Text = "" Then ToastMessageShow("No has ingresado ningun codigo",True) End If End Sub