From c24320fda94872226daba2fb1ab2055b83799284 Mon Sep 17 00:00:00 2001 From: IsR0d Date: Tue, 11 Jun 2024 13:12:01 -0600 Subject: [PATCH] Se modifico el campo de Ruta para que pueda leer cadenas --- B4A/C_Principal.bas | 74 ++++++++++++++++++---------------------- B4A/Files/principal.bal | Bin 11606 -> 12027 bytes B4A/Guna_CK.b4a.meta | 2 +- 3 files changed, 35 insertions(+), 41 deletions(-) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index fda36d0..24773a7 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -49,6 +49,7 @@ Sub Class_Globals Dim count As Int = 0 Dim count2 As Int = 0 Dim ime As IME + Private L_Color As Label End Sub 'You can add more parameters here. @@ -148,7 +149,7 @@ Sub JobDone(Job As HttpJob) End If End If End If - + If Job.JobName = "DBRequest" Then Dim result As DBResult = reqManager.HandleJob(Job) If result.Tag = "CartaPorte_OK" Then 'query tag @@ -160,78 +161,67 @@ Sub JobDone(Job As HttpJob) CARTAPORTE_OK= records(result.Columns.Get("INFO_OK")) Next Next - If CARTAPORTE_OK = "OK" Then - count2 = count2+1 + If CARTAPORTE_OK = "OK" Then + count2 = count2+1 End If End If End If - - Log($"placa:${PLACA_OK}, operador:${OPERADOR_OK}, checklist:${CHECK_LIST}, cp:${CARTAPORTE_OK}"$) - Log(count) - Log(count2) -' If count = 4 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.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 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 -'-------------------------------------- +' Log($"placa:${PLACA_OK}, operador:${OPERADOR_OK}, checklist:${CHECK_LIST}, cp:${CARTAPORTE_OK}"$) If count = 4 Then If count2 = 4 Then P_Color.Visible = True P_Color.Color = Colors.Green + L_Color.Visible = True 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 + L_Color.Visible = False MsgboxAsync("Favor de revisar el CheckList", "AVISO") Else If count2 < 4 Then P_Color.Visible = True P_Color.Color = Colors.Red + L_Color.Visible = False 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 + L_Color.Visible = False 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 + L_Color.Visible = False 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 + L_Color.Visible = False 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 + 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("No se encuentra Carta Porte", "AVISO") + L_Color.Visible = False + MsgboxAsync("La Placa o el Operador no coinsiden con CheckList y Carta Porte", "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 + L_Color.Visible = False + MsgboxAsync("No se encuentra Carta Porte", "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 + L_Color.Visible = False MsgboxAsync("No se encuentran Placas, Operador, CheckList, CartaPorte", "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 + L_Color.Visible = False + MsgboxAsync("No se encuentran CheckList y CartaPorte", "AVISO") + End If End If - Job.Release End If End Sub @@ -410,7 +400,7 @@ Private Sub b_guardar_Click MS = JoinStrings(ValDato, ", ") & " deben ser obligatorios" End If MsgboxAsync(MS, "AVISO") - Else + Else if IsNumber(et_rutaReparto.Text) Then c = Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN") c.Position = 0 Dim ALM_ENV = c.GetString ("ID_ALMACEN") @@ -443,7 +433,11 @@ Private Sub b_guardar_Click cmd.Parameters = Array As Object(et_rutaReparto.Text, ALM_ENV) Log(et_rutaReparto.Text & " ," & ALM_ENV) reqManager.ExecuteQuery(cmd , 0, "CartaPorte_OK") - + Else + P_Color.Visible = True + P_Color.Color = Colors.Red + L_Color.Visible = False + MsgboxAsync("Las Ruta debe ser numerica", "AVISO") End If End Sub diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal index 2b7279d87a6a1ad998ef59ced49fe949c24f02d6..c1c909cf2e0eade60e0df0eeb7bb5abca43bb0df 100644 GIT binary patch delta 483 zcmcZ>^*ffAm4ShworQsc3rH((GfMG-WOCxObBoD@%(;w=ZJR4ucCvB+oxl*{ z8WA$tmMe7fEUqfBGyFn*om_*0CyQ|ZltXeBKTxepVo83nLRex>W=dj8e(`2ro(;T{ z!xdE~Ka@Pcm^Rr)DT^_E@mE$CxoWP&jDveQ6`cOt4%QSS|}JmkpNlmo;L{ znd~R2$e0V16P_%q7zbo+P|cd$AQ#G*x7kLVjgc{bvY}W2kknJy$yfkZTnJTc#aJ|X zpQJKlAykXhCZ%p>kb^d_SM6nIbOYPk0#t0L_#WtdDaJB#m4It(b0Pz|o z8we{1w*r}tK+N_ZNJs)P@AvvZ5xGV>C1Ci^f-O)g>VWfY&x#B|?O z1}G^D#Bx9kW6LA46_D79F!p98=3GX`mdz7bcCvD_14aEpeVtr`f+q)Zg>nGxW(aYO z2${T$t7@_~_s`8vJR5i!(