mirror of
https://github.com/KeymonSoft/Gabinete-Roit.git
synced 2026-04-17 19:37:10 +00:00
1509 lines
56 KiB
QBasic
1509 lines
56 KiB
QBasic
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 |