cheveguerra/Guna_CuentaKilometros_2
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_CuentaKilometros_2.git synced 2026-04-21 13:19:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se agregaron las condicionales pertinentes.

Browse Source
This commit is contained in:
IsR0d
2024-06-06 10:25:13 -06:00
parent 345878eec6
commit 55324275a7
3 changed files with 89 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

119
B4A/C_Principal.bas
View File

@@ -16,6 +16,7 @@ Sub Class_Globals
Private et_placas As EditText Private et_placas As EditText
Private et_operador As EditText Private et_operador As EditText
Private et_rutaReparto As EditText Private et_rutaReparto As EditText
' et_rutaReparto.InputType=et_rutaReparto.INPUT_TYPE_NUMBERS
Private b_guardar As Button Private b_guardar As Button
Private ImageView1 As ImageView Private ImageView1 As ImageView
Private ImageView1 As ImageView Private ImageView1 As ImageView
@@ -45,6 +46,9 @@ Sub Class_Globals
Dim PLACA_OK As String Dim PLACA_OK As String
Dim CARTAPORTE_OK As String Dim CARTAPORTE_OK As String
Dim c As Cursor Dim c As Cursor
Dim count As Int = 0
Dim count2 As Int = 0
Dim ime As IME
End Sub End Sub
'You can add more parameters here. 'You can add more parameters here.
@@ -68,7 +72,6 @@ Private Sub B4XPage_Created (Root1 As B4XView)
B4XPages.SetTitle(Me, "Barcode Example") B4XPages.SetTitle(Me, "Barcode Example")
CreateDetector (Array("AZTEC", "CODE_128", "CODE_39", "CODE_93", "CODABAR", "DATA_MATRIX", "EAN_13", "EAN_8", "ITF", "PDF417", "QR_CODE", "UPC_A", "UPC_E")) CreateDetector (Array("AZTEC", "CODE_128", "CODE_39", "CODE_93", "CODABAR", "DATA_MATRIX", "EAN_13", "EAN_8", "ITF", "PDF417", "QR_CODE", "UPC_A", "UPC_E"))
'Termina camara 'Termina camara
End Sub End Sub
Sub B4XPage_Appear Sub B4XPage_Appear
@@ -98,6 +101,7 @@ Sub JobDone(Job As HttpJob)
If Job.JobName = "DBRequest" Then If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job) Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "PLACA_OK" Then 'query tag If result.Tag = "PLACA_OK" Then 'query tag
count = count+1
PLACA_OK = 0 PLACA_OK = 0
For Each records() As Object In result.Rows For Each records() As Object In result.Rows
For Each k As String In result.Columns.Keys For Each k As String In result.Columns.Keys
@@ -105,15 +109,16 @@ Sub JobDone(Job As HttpJob)
PLACA_OK= records(result.Columns.Get("INFO_OK")) PLACA_OK= records(result.Columns.Get("INFO_OK"))
Next Next
Next Next
If PLACA_OK = "OK" Then
' MsgboxAsync("Favo de revisar la placa, el operador y la descarga de la carta porte", "AVISO") count2 = count2+1
End If
End If End If
End If End If
If Job.JobName = "DBRequest" Then If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job) Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "CheckList_OK" Then 'query tag If result.Tag = "CheckList_OK" Then 'query tag
count = count+1
CHECK_LIST = 0 CHECK_LIST = 0
For Each records() As Object In result.Rows For Each records() As Object In result.Rows
For Each k As String In result.Columns.Keys For Each k As String In result.Columns.Keys
@@ -121,15 +126,16 @@ Sub JobDone(Job As HttpJob)
CHECK_LIST= records(result.Columns.Get("'OK'")) CHECK_LIST= records(result.Columns.Get("'OK'"))
Next Next
Next Next
If CHECK_LIST = "OK" Then
' MsgboxAsync("Favo de revisar la placa, el operador y la descarga de la carta porte", "AVISO") count2 = count2+1
End If
End If End If
End If End If
If Job.JobName = "DBRequest" Then If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job) Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "Operador_OK" Then 'query tag If result.Tag = "Operador_OK" Then 'query tag
count = count+1
OPERADOR_OK = 0 OPERADOR_OK = 0
For Each records() As Object In result.Rows For Each records() As Object In result.Rows
For Each k As String In result.Columns.Keys For Each k As String In result.Columns.Keys
@@ -137,41 +143,91 @@ Sub JobDone(Job As HttpJob)
OPERADOR_OK = records(result.Columns.Get("INFO_OK")) OPERADOR_OK = records(result.Columns.Get("INFO_OK"))
Next Next
Next Next
If OPERADOR_OK = "OK" Then
' MsgboxAsync("Favo de revisar la placa, el operador y la descarga de la carta porte", "AVISO") count2 = count2+1
End If
End If End If
End If End If
If Job.JobName = "DBRequest" Then If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job) Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "CartaPorte_OK" Then 'query tag If result.Tag = "CartaPorte_OK" Then 'query tag
count = count+1
CARTAPORTE_OK = 0 CARTAPORTE_OK = 0
For Each records() As Object In result.Rows For Each records() As Object In result.Rows
For Each k As String In result.Columns.Keys For Each k As String In result.Columns.Keys
Log(k & ": " & records(result.Columns.Get(k))) Log(k & ": |" & records(result.Columns.Get(k))&"|")
CARTAPORTE_OK= records(result.Columns.Get("INFO_OK")) CARTAPORTE_OK= records(result.Columns.Get("INFO_OK"))
Next Next
Next Next
If CARTAPORTE_OK = "OK" Then
' MsgboxAsync("Favo de revisar la placa, el operador y la descarga de la carta porte", "AVISO") count2 = count2+1
End If
End If End If
End If End If
Job.Release Log($"placa:${PLACA_OK}, operador:${OPERADOR_OK}, checklist:${CHECK_LIST}, cp:${CARTAPORTE_OK}"$)
Log(count)
If PLACA_OK = "OK" And OPERADOR_OK = "OK" And CHECK_LIST = "OK" And CARTAPORTE_OK = "OK" Then Log(count2)
P_Color.Visible = True ' If count = 4 Then
P_Color.Color = Colors.Green ' If PLACA_OK = "OK" And OPERADOR_OK = "OK" And CHECK_LIST = "OK" And CARTAPORTE_OK = "OK" Then
Else If PLACA_OK <> "OK" Or OPERADOR_OK <> "OK" Or CARTAPORTE_OK <> "OK" Then ' P_Color.Visible = True
P_Color.Visible = True ' P_Color.Color = Colors.Green
P_Color.Color = Colors.Red ' Else If PLACA_OK = "OK" And OPERADOR_OK = "OK" And CHECK_LIST <> "OK" And CARTAPORTE_OK = "OK" Then
Else If PLACA_OK = "OK" And OPERADOR_OK = "OK" And CHECK_LIST <> "OK" And CARTAPORTE_OK = "OK" Then ' P_Color.Visible = True
P_Color.Visible = True ' P_Color.Color = Colors.Yellow
P_Color.Color = Colors.Yellow ' MsgboxAsync("Favor de revisar El Check List", "AVISO")
' Else If PLACA_OK <> "OK" Or OPERADOR_OK <> "OK" Or CHECK_LIST <> "OK" Or CARTAPORTE_OK <> "OK" Then
' If PLACA_OK <> "OK" And OPERADOR_OK <> "OK" And CHECK_LIST <> "OK" And CARTAPORTE_OK = "OK" Then
' P_Color.Visible = True
' P_Color.Color = Colors.Red
' MsgboxAsync("Revisa La Placa", "AVISO")
' Else If PLACA_OK = "OK" And OPERADOR_OK <> "OK" And CHECK_LIST = "OK" And CARTAPORTE_OK = "OK" Then
' P_Color.Visible = True
' P_Color.Color = Colors.Red
' MsgboxAsync("Revisa El Operador", "AVISO")
' End If
' If PLACA_OK <> "OK" And OPERADOR_OK <> "OK" And CHECK_LIST = "OK" And CARTAPORTE_OK <> "OK" Then
' P_Color.Visible = True
' P_Color.Color = Colors.Red
' MsgboxAsync("No hay Carta Porte para esa Ruta", "AVISO")
' End If
' End If
' End If
'--------------------------------------
If count = 4 Then
If count2 = 4 Then
P_Color.Visible = True
P_Color.Color = Colors.Green
Else If PLACA_OK = "OK" And OPERADOR_OK = "OK" And CHECK_LIST <> "OK" And CARTAPORTE_OK = "OK" Then
P_Color.Visible = True
P_Color.Color = Colors.Yellow
MsgboxAsync("Favor de revisar el CheckList", "AVISO")
Else If count2 < 4 Then
P_Color.Visible = True
P_Color.Color = Colors.Red
If PLACA_OK <> "OK" And OPERADOR_OK <> "OK" And CHECK_LIST <> "OK" And CARTAPORTE_OK = "OK" Then
P_Color.Visible = True
P_Color.Color = Colors.Red
MsgboxAsync("Revisa La Placa", "AVISO")
Else If PLACA_OK = "OK" And OPERADOR_OK <> "OK" And CHECK_LIST = "OK" And CARTAPORTE_OK = "OK" Then
P_Color.Visible = True
P_Color.Color = Colors.Red
MsgboxAsync("Revisa El Operador", "AVISO")
Else if PLACA_OK <> "OK" And OPERADOR_OK <> "OK" And CHECK_LIST = "OK" And CARTAPORTE_OK <> "OK" And count2 = 1 Then
P_Color.Visible = True
P_Color.Color = Colors.Red
MsgboxAsync("No hay Carta Porte para esa Ruta", "AVISO")
End If
End If
If PLACA_OK = "OK" And OPERADOR_OK = "OK" And CHECK_LIST = "OK" And CARTAPORTE_OK <> "OK" Then
P_Color.Visible = True
P_Color.Color = Colors.Red
MsgboxAsync("No se encuentra Carta Porte", "AVISO")
End If
End If End If
Job.Release
End If End If
End Sub End Sub
@@ -317,7 +373,9 @@ End Sub
'fin camara 'fin camara
Private Sub b_guardar_Click Private Sub b_guardar_Click
count = 0
count2 = 0
ime.HideKeyboard
Starter.skmt.ExecNonQuery($"insert into CONTROL_KMS (PLACAS, OPERADOR, RUTA, KMS_INICIAL, KMS_FINAL) values ('${et_placas.text}', '${et_operador.text}', '${et_rutaReparto.text}', '${et_kmsInicial.text}', '${et_kmsFinal.text}')"$) Starter.skmt.ExecNonQuery($"insert into CONTROL_KMS (PLACAS, OPERADOR, RUTA, KMS_INICIAL, KMS_FINAL) values ('${et_placas.text}', '${et_operador.text}', '${et_rutaReparto.text}', '${et_kmsInicial.text}', '${et_kmsFinal.text}')"$)
Dim ValDato As List Dim ValDato As List
@@ -345,7 +403,6 @@ Private Sub b_guardar_Click
MsgboxAsync(MS, "AVISO") MsgboxAsync(MS, "AVISO")
Else Else
c = Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN") c = Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
Log(c.RowCount)
c.Position = 0 c.Position = 0
Dim ALM_ENV = c.GetString ("ID_ALMACEN") Dim ALM_ENV = c.GetString ("ID_ALMACEN")
c.Close c.Close
@@ -353,7 +410,7 @@ Private Sub b_guardar_Click
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "select_placa_GUNA" cmd.Name = "select_placa_GUNA"
cmd.Parameters = Array As Object(et_placas.Text ,et_rutaReparto.Text, ALM_ENV) cmd.Parameters = Array As Object(et_placas.Text, et_rutaReparto.Text, ALM_ENV)
Log(et_placas.Text & " ," & et_rutaReparto.Text & " ," & ALM_ENV) Log(et_placas.Text & " ," & et_rutaReparto.Text & " ," & ALM_ENV)
reqManager.ExecuteQuery(cmd , 0, "PLACA_OK") reqManager.ExecuteQuery(cmd , 0, "PLACA_OK")
@@ -361,21 +418,21 @@ Private Sub b_guardar_Click
cmd.Initialize cmd.Initialize
cmd.Name = "select_Operador_GUNA" cmd.Name = "select_Operador_GUNA"
cmd.Parameters = Array As Object(et_placas.Text, et_operador.Text, et_rutaReparto.Text, ALM_ENV) cmd.Parameters = Array As Object(et_placas.Text, et_operador.Text, et_rutaReparto.Text, ALM_ENV)
Log(et_placas.Text & " ," & et_rutaReparto.Text & " ," & ALM_ENV) Log(et_placas.Text & " ," & et_operador.Text & " ," & et_rutaReparto.Text & " ," & ALM_ENV)
reqManager.ExecuteQuery(cmd , 0, "Operador_OK") reqManager.ExecuteQuery(cmd , 0, "Operador_OK")
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "select_CheckList_GUNA" cmd.Name = "select_CheckList_GUNA"
cmd.Parameters = Array As Object(et_placas.Text) cmd.Parameters = Array As Object(et_placas.Text)
Log(et_placas.Text & " ," & et_rutaReparto.Text & " ," & ALM_ENV) Log(et_placas.Text)
reqManager.ExecuteQuery(cmd , 0, "CheckList_OK") reqManager.ExecuteQuery(cmd , 0, "CheckList_OK")
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "select_CartaPorte_GUNA" cmd.Name = "select_CartaPorte_GUNA"
cmd.Parameters = Array As Object(et_rutaReparto.Text, ALM_ENV) cmd.Parameters = Array As Object(et_rutaReparto.Text, ALM_ENV)
Log(et_placas.Text & " ," & et_rutaReparto.Text & " ," & ALM_ENV) Log(et_rutaReparto.Text & " ," & ALM_ENV)
reqManager.ExecuteQuery(cmd , 0, "CartaPorte_OK") reqManager.ExecuteQuery(cmd , 0, "CartaPorte_OK")
End If End If

BIN
B4A/Files/principal.bal
View File

Binary file not shown.

2
B4A/Guna_CK.b4a.meta
View File

@@ -28,6 +28,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=B4XMainPage,Entrar_Click,131,0,C_Clientes,traeTodosAVisitar,535,0,B4XMainPage,Class_Globals,23,0,C_Principal,JoinStrings,327,0,C_Principal,Class_Globals,28,4,C_Principal,B4XPage_Appear,68,3,Diseñador Visual,principal.bal,-100,6,C_Principal,b_guardar_Click,308,6,C_Principal,JobDone,103,6,B4XMainPage,JobDone,163,2 NavigationStack=DBRequestManager,WriteObject,116,0,DBRequestManager,ReadObject,122,0,C_Principal,FoundBarcode,243,3,C_Principal,b_escanOperador_Click,537,0,B4XMainPage,Initialize,68,0,C_Principal,Class_Globals,44,6,C_Principal,B4XPage_Created,67,2,Diseñador Visual,principal.bal,-100,6,C_Principal,b_guardar_Click,409,2,C_Principal,JobDone,216,6
SelectedBuild=0 SelectedBuild=0
VisibleModules=2,8,4,9,6,7,3 VisibleModules=2,8,4,9,6,7,3