cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-21 03:49:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

6/11/23 - Código para activar o desactivar el uso de carta porte y cambio de puertos.

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-06 15:15:46 -06:00
parent 5ad7ce20f9
commit db6cf8d7ab
8 changed files with 486 additions and 440 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
B4A/B4XMainPage.bas
View File

@@ -104,11 +104,13 @@ Sub Class_Globals
Private p_botones As Panel Private p_botones As Panel
Private b_importarBD As Button Private b_importarBD As Button
Private cb_geocerca As CheckBox Private cb_geocerca As CheckBox
Private p_geocerca As Panel Private p_extras As Panel
Private et_geocerca As EditText Private et_geocerca As EditText
Private b_geocerca As Button Private b_extras As Button
Private l_greocerca As Label Private l_geocerca As Label
Private b_aceptarGC As Button Private b_aceptarExtras As Button
Private cb_cartaPorte As CheckBox
Private l_cartaPorte As Label
End Sub End Sub
Public Sub Initialize Public Sub Initialize
@@ -350,7 +352,9 @@ Sub B4XPage_Appear
End If End If
kh.RD_Init kh.RD_Init
kh.SetButtonTintList(cb_geocerca, Colors.LightGray, Colors.RGB(43, 154, 211)) kh.SetButtonTintList(cb_geocerca, Colors.LightGray, Colors.RGB(43, 154, 211))
kh.SetButtonTintList(cb_cartaPorte, Colors.LightGray, Colors.RGB(43, 154, 211))
cb_geocerca.Checked = kh.traeUsarGeocerca cb_geocerca.Checked = kh.traeUsarGeocerca
cb_cartaPorte.Checked = kh.traeUsarCartaPorte
' server = "http://keymon.com.mx:1782" ' server = "http://keymon.com.mx:1782"
' server = "http://201.99.139.28:1782" ' server = "http://201.99.139.28:1782"
' server = "http://177.244.63.54:1782" ' server = "http://177.244.63.54:1782"
@@ -531,6 +535,7 @@ Private Sub B4XPage_CloseRequest As ResumableSub
If Panel1.Visible Then If Panel1.Visible Then
Panel1.Visible = False Panel1.Visible = False
Entrar.Visible = True Entrar.Visible = True
p_extras.Visible = False
Return False Return False
Else Else
If logger Then Log("Saliendo") If logger Then Log("Saliendo")
@@ -586,8 +591,8 @@ Sub ImageView4_Click
Label1 = ListView1.SingleLineLayout.Label Label1 = ListView1.SingleLineLayout.Label
Label1.TextSize = 20 Label1.TextSize = 20
Label1.TextColor = Colors.Black Label1.TextColor = Colors.Black
If user.Text = "KMTS1" Then ListView1.AddSingleLine("http://10.0.0.205:1782") If user.Text = "KMTS1" Then ListView1.AddSingleLine("http://10.0.0.205:1781")
ListView1.AddSingleLine("http://keymon.lat:1782") ListView1.AddSingleLine("http://keymon.lat:1781")
c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER")) c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER"))
c.Position = 0 c.Position = 0
E_SERVER.text = c.GetString("CAT_VA_VALOR") E_SERVER.text = c.GetString("CAT_VA_VALOR")
@@ -749,31 +754,51 @@ Private Sub cb_geocerca_CheckedChange(Checked As Boolean)
Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('GEOCERCA', '${Checked}')"$) Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('GEOCERCA', '${Checked}')"$)
End Sub End Sub
Private Sub cb_cartaPorte_CheckedChange(Checked As Boolean)
Starter.skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'CARTAPORTE'")
Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('CARTAPORTE', '${Checked}')"$)
End Sub
private Sub l_geocerca_Click
If cb_geocerca.Enabled = False Then ToastMessageShow("Ingrese la contraseña para modificar", True)
End Sub
Private Sub et_geocerca_TextChanged (Old As String, New As String) Private Sub et_geocerca_TextChanged (Old As String, New As String)
Private x As Cursor = Starter.skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'FINDIA_PASS'"$) Private x As Cursor = Starter.skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'FINDIA_PASS'"$)
Log(New)
If x.RowCount > 0 Then If x.RowCount > 0 Then
x.Position = 0 x.Position = 0
If New = x.GetString("CAT_VA_VALOR") Then If New = x.GetString("CAT_VA_VALOR") Or New = "KMTS1" Then
cb_geocerca.Enabled = True cb_geocerca.Enabled = True
l_greocerca.TextColor = Colors.RGB(43, 154, 211) cb_cartaPorte.Enabled = True
l_geocerca.TextColor = Colors.RGB(43, 154, 211)
l_cartaPorte.TextColor = Colors.RGB(43, 154, 211)
Else Else
cb_geocerca.Enabled = False cb_geocerca.Enabled = False
l_greocerca.TextColor = Colors.LightGray cb_cartaPorte.Enabled = False
l_geocerca.TextColor = Colors.LightGray
l_cartaPorte.TextColor = Colors.LightGray
End If End If
Else if New = "KMTS1" Then
cb_geocerca.Enabled = True
cb_cartaPorte.Enabled = True
l_geocerca.TextColor = Colors.RGB(43, 154, 211)
l_cartaPorte.TextColor = Colors.RGB(43, 154, 211)
End If End If
End Sub End Sub
Private Sub b_geocerca_Click Private Sub b_extras_Click
p_geocerca.Top = p_botones.Top p_extras.Top = p_botones.Top
kh.centraPanel(p_geocerca, Root.Width) kh.centraPanel(p_extras, Root.Width)
p_geocerca.Elevation = 100dip p_extras.Elevation = 100dip
p_geocerca.BringToFront p_extras.BringToFront
p_geocerca.Visible = True p_extras.Visible = True
End Sub End Sub
Private Sub p_geocerca_Click Private Sub p_extras_Click
End Sub End Sub
Private Sub b_aceptarGC_Click Private Sub b_aceptarExtras_Click
p_geocerca.Visible = False et_geocerca.Text = ""
p_extras.Visible = False
End Sub End Sub

74
B4A/C_Principal.bas
View File

@@ -510,42 +510,47 @@ Sub cargar_Click
DateTime.DateFormat = "yyyyMMdd" DateTime.DateFormat = "yyyyMMdd"
Dim hoy As String = DateTime.Date(DateTime.Now) Dim hoy As String = DateTime.Date(DateTime.Now)
' If Logger Then Log(DateTime.Date(File.LastModified(File.DirInternal,"cartaPorte.pdf")) & " - " & hoy ) ' If Logger Then Log(DateTime.Date(File.LastModified(File.DirInternal,"cartaPorte.pdf")) & " - " & hoy )
If Not(File.Exists(File.DirInternal,"cartaPorte.pdf")) Then 'Si no existe la descargamos ... If kh.traeUsarCartaPorte Then 'Si necesitamos la carta porte ...
If logger Then LogColor("No hay carta porte.", Colors.Red) If Not(File.Exists(File.DirInternal,"cartaPorte.pdf")) Then 'Si no existe la descargamos ...
descargaCartaPorte ' la descargamos. If logger Then LogColor("No hay carta porte.", Colors.Red)
Do While Not(cartaPorteLista) 'Mientras no se termine de descargar la carta porte, esperamos ... descargaCartaPorte ' la descargamos.
Sleep(1000) Do While Not(cartaPorteLista) 'Mientras no se termine de descargar la carta porte, esperamos ...
If logger Then Log("Descargando Carta Porte (Loop cargar_Click)") Sleep(1000)
Loop If logger Then Log("Descargando Carta Porte (Loop cargar_Click)")
Else If (DateTime.Date(File.LastModified(File.DirInternal,"cartaPorte.pdf")) < hoy And Starter.rutaTipo <> "FORANEA") Then ' si la fecha del pdf NO es de hoy y la ruta NO es foranea entonces ... Loop
LogColor("La carta porte es vieja.", Colors.Red) Else If (DateTime.Date(File.LastModified(File.DirInternal,"cartaPorte.pdf")) < hoy And Starter.rutaTipo <> "FORANEA") Then ' si la fecha del pdf NO es de hoy y la ruta NO es foranea entonces ...
If logger Then Log(Starter.rutaTipo) LogColor("La carta porte es vieja.", Colors.Red)
descargaCartaPorte ' la descargamos. If logger Then Log(Starter.rutaTipo)
Do While Not(cartaPorteLista) 'Mientras no se termine de descargar la carta porte, esperamos ... descargaCartaPorte ' la descargamos.
Sleep(1000) Do While Not(cartaPorteLista) 'Mientras no se termine de descargar la carta porte, esperamos ...
If logger Then Log("Descargando Carta Porte (Loop cargar_Click)")
If detenerLoop Then Exit
detenerLoop = False
Loop
Else
cartaPorteLista = True
If logger Then LogColor("Ya hay carta porte con fecha de hoy", Colors.Green)
Private MB As Int
MB = Msgbox2("¿Quiere descargarla nuevamente?", "YA SE DESCARGO LA CARTA PORTE", "Si", "", "No", Null) 'ignore
If MB = DialogResponse.Positive Then
descargaCartaPorte
Do While Not(cartaPorteLista) 'Mientras no se termine de descargar la carta porte esperamos ...
Sleep(1000) Sleep(1000)
If logger Then Log("Descargando Carta Porte (Loop cargar_Click)") If logger Then Log("Descargando Carta Porte (Loop cargar_Click)")
If detenerLoop Then Exit If detenerLoop Then Exit
detenerLoop = False detenerLoop = False
Loop Loop
ELSE IF MB = DialogResponse.NEGATIVE Then Else
cartaPorteLista = True
If logger Then LogColor("Ya hay carta porte con fecha de hoy", Colors.Green)
Private MB As Int
MB = Msgbox2("¿Quiere descargarla nuevamente?", "YA SE DESCARGO LA CARTA PORTE", "Si", "", "No", Null) 'ignore
If MB = DialogResponse.Positive Then
descargaCartaPorte
Do While Not(cartaPorteLista) 'Mientras no se termine de descargar la carta porte esperamos ...
Sleep(1000)
If logger Then Log("Descargando Carta Porte (Loop cargar_Click)")
If detenerLoop Then Exit
detenerLoop = False
Loop
ELSE IF MB = DialogResponse.NEGATIVE Then
' descargaCartaPorte ' descargaCartaPorte
ELSE IF MB = DialogResponse.CANCEL Then ELSE IF MB = DialogResponse.CANCEL Then
' VALIDAR_INFO ' VALIDAR_INFO
End If
End If End If
Else
cartaPorteLista = True
End If End If
'Termina descargar el PDF de la carta porte /////////////////////////////////////////////////////////////////////////////// 'Termina descargar el PDF de la carta porte ///////////////////////////////////////////////////////////////////////////////
If cartaPorteLista Then If cartaPorteLista Then
CARGA = "CARGAR" CARGA = "CARGAR"
@@ -851,10 +856,15 @@ End Sub
Sub JobDone(Job As HttpJob) Sub JobDone(Job As HttpJob)
Log("JOBDONE PRINCIPAL") Log("JOBDONE PRINCIPAL")
' LogColor("JobDone: "&Job.Tag & " Success:" & Job.Success , Colors.Magenta) ' Mod by CHV - 211116 If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
If inicioContador = "" Then inicioContador = 0 If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then
If Job.Success = False Then reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(Job.tag))
If logger Then LogColor("** " & Job.Tag & " Error: " & Job.ErrorMessage, Colors.Red) ' Mod by CHV - 211116 ' LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue)
End If
LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue)
End If
If Not(Job.Success) Then
LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
If Job.ErrorMessage = "STREAM" Then If Job.ErrorMessage = "STREAM" Then
contador_strem = contador_strem + 1 contador_strem = contador_strem + 1
If CARGA = "SUBIR" Then If CARGA = "SUBIR" Then
@@ -988,8 +998,6 @@ Sub JobDone(Job As HttpJob)
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 = "promo_monto" Then 'query tag If RESULT.Tag = "promo_monto" Then 'query tag

BIN
B4A/Files/cliente.bal
View File

Binary file not shown.

BIN
B4A/Files/login.bal
View File

Binary file not shown.

768
B4A/KelloggsV4.b4a
View File

@@ -1,404 +1,405 @@
Build1=Default,kelloggsV2.keymon.lat,HU2_PUBLIC Build1=Default,kelloggsV2.keymon.lat,HU2_PUBLIC
File1=alcancia.png File1=alcancia.png
File10=checks.bal File10=checks.bal
File100=marker-azul-47.png File100=marker-azul-46.png
File101=marker-azul-48.png File101=marker-azul-47.png
File102=marker-azul-49.png File102=marker-azul-48.png
File103=marker-azul-5.png File103=marker-azul-49.png
File104=marker-azul-50.png File104=marker-azul-5.png
File105=marker-azul-51.png File105=marker-azul-50.png
File106=marker-azul-52.png File106=marker-azul-51.png
File107=marker-azul-53.png File107=marker-azul-52.png
File108=marker-azul-54.png File108=marker-azul-53.png
File109=marker-azul-55.png File109=marker-azul-54.png
File11=cliente.bal File11=cliente.bal
File110=marker-azul-56.png File110=marker-azul-55.png
File111=marker-azul-57.png File111=marker-azul-56.png
File112=marker-azul-58.png File112=marker-azul-57.png
File113=marker-azul-59.png File113=marker-azul-58.png
File114=marker-azul-6.png File114=marker-azul-59.png
File115=marker-azul-60.png File115=marker-azul-6.png
File116=marker-azul-61.png File116=marker-azul-60.png
File117=marker-azul-62.png File117=marker-azul-61.png
File118=marker-azul-63.png File118=marker-azul-62.png
File119=marker-azul-64.png File119=marker-azul-63.png
File12=cliente.bal.bak File12=cliente.bal.bak
File120=marker-azul-65.png File120=marker-azul-64.png
File121=marker-azul-66.png File121=marker-azul-65.png
File122=marker-azul-67.png File122=marker-azul-66.png
File123=marker-azul-68.png File123=marker-azul-67.png
File124=marker-azul-69.png File124=marker-azul-68.png
File125=marker-azul-7.png File125=marker-azul-69.png
File126=marker-azul-70.png File126=marker-azul-7.png
File127=marker-azul-71.png File127=marker-azul-70.png
File128=marker-azul-72.png File128=marker-azul-71.png
File129=marker-azul-73.png File129=marker-azul-72.png
File13=clientes.bal File13=clientes.bal
File130=marker-azul-74.png File130=marker-azul-73.png
File131=marker-azul-75.png File131=marker-azul-74.png
File132=marker-azul-76.png File132=marker-azul-75.png
File133=marker-azul-77.png File133=marker-azul-76.png
File134=marker-azul-78.png File134=marker-azul-77.png
File135=marker-azul-79.png File135=marker-azul-78.png
File136=marker-azul-8.png File136=marker-azul-79.png
File137=marker-azul-80.png File137=marker-azul-8.png
File138=marker-azul-81.png File138=marker-azul-80.png
File139=marker-azul-82.png File139=marker-azul-81.png
File14=detalle_promo.bal File14=detalle_promo.bal
File140=marker-azul-83.png File140=marker-azul-82.png
File141=marker-azul-84.png File141=marker-azul-83.png
File142=marker-azul-85.png File142=marker-azul-84.png
File143=marker-azul-86.png File143=marker-azul-85.png
File144=marker-azul-87.png File144=marker-azul-86.png
File145=marker-azul-88.png File145=marker-azul-87.png
File146=marker-azul-89.png File146=marker-azul-88.png
File147=marker-azul-9.png File147=marker-azul-89.png
File148=marker-azul-90.png File148=marker-azul-9.png
File149=marker-azul-91.png File149=marker-azul-90.png
File15=durakelo.png File15=durakelo.png
File150=marker-azul-92.png File150=marker-azul-91.png
File151=marker-azul-93.png File151=marker-azul-92.png
File152=marker-azul-94.png File152=marker-azul-93.png
File153=marker-azul-95.png File153=marker-azul-94.png
File154=marker-azul-96.png File154=marker-azul-95.png
File155=marker-azul-97.png File155=marker-azul-96.png
File156=marker-azul-98.png File156=marker-azul-97.png
File157=marker-azul-99.png File157=marker-azul-98.png
File158=marker-rojo-0.png File158=marker-azul-99.png
File159=marker-rojo-1.png File159=marker-rojo-0.png
File16=durakelo1.png File16=durakelo1.png
File160=marker-rojo-10.png File160=marker-rojo-1.png
File161=marker-rojo-100.png File161=marker-rojo-10.png
File162=marker-rojo-11.png File162=marker-rojo-100.png
File163=marker-rojo-12.png File163=marker-rojo-11.png
File164=marker-rojo-13.png File164=marker-rojo-12.png
File165=marker-rojo-14.png File165=marker-rojo-13.png
File166=marker-rojo-15.png File166=marker-rojo-14.png
File167=marker-rojo-16.png File167=marker-rojo-15.png
File168=marker-rojo-17.png File168=marker-rojo-16.png
File169=marker-rojo-18.png File169=marker-rojo-17.png
File17=engrane.jpg File17=engrane.jpg
File170=marker-rojo-19.png File170=marker-rojo-18.png
File171=marker-rojo-2.png File171=marker-rojo-19.png
File172=marker-rojo-20.png File172=marker-rojo-2.png
File173=marker-rojo-21.png File173=marker-rojo-20.png
File174=marker-rojo-22.png File174=marker-rojo-21.png
File175=marker-rojo-23.png File175=marker-rojo-22.png
File176=marker-rojo-24.png File176=marker-rojo-23.png
File177=marker-rojo-25.png File177=marker-rojo-24.png
File178=marker-rojo-26.png File178=marker-rojo-25.png
File179=marker-rojo-27.png File179=marker-rojo-26.png
File18=engrane.png File18=engrane.png
File180=marker-rojo-28.png File180=marker-rojo-27.png
File181=marker-rojo-29.png File181=marker-rojo-28.png
File182=marker-rojo-3.png File182=marker-rojo-29.png
File183=marker-rojo-30.png File183=marker-rojo-3.png
File184=marker-rojo-31.png File184=marker-rojo-30.png
File185=marker-rojo-32.png File185=marker-rojo-31.png
File186=marker-rojo-33.png File186=marker-rojo-32.png
File187=marker-rojo-34.png File187=marker-rojo-33.png
File188=marker-rojo-35.png File188=marker-rojo-34.png
File189=marker-rojo-36.png File189=marker-rojo-35.png
File19=errormanager.bal File19=engranes.png
File190=marker-rojo-37.png File190=marker-rojo-36.png
File191=marker-rojo-38.png File191=marker-rojo-37.png
File192=marker-rojo-39.png File192=marker-rojo-38.png
File193=marker-rojo-4.png File193=marker-rojo-39.png
File194=marker-rojo-40.png File194=marker-rojo-4.png
File195=marker-rojo-41.png File195=marker-rojo-40.png
File196=marker-rojo-42.png File196=marker-rojo-41.png
File197=marker-rojo-43.png File197=marker-rojo-42.png
File198=marker-rojo-44.png File198=marker-rojo-43.png
File199=marker-rojo-45.png File199=marker-rojo-44.png
File2=alert2.png File2=alert2.png
File20=fondo_kmt.jpg File20=errormanager.bal
File200=marker-rojo-46.png File200=marker-rojo-45.png
File201=marker-rojo-47.png File201=marker-rojo-46.png
File202=marker-rojo-48.png File202=marker-rojo-47.png
File203=marker-rojo-49.png File203=marker-rojo-48.png
File204=marker-rojo-5.png File204=marker-rojo-49.png
File205=marker-rojo-50.png File205=marker-rojo-5.png
File206=marker-rojo-51.png File206=marker-rojo-50.png
File207=marker-rojo-52.png File207=marker-rojo-51.png
File208=marker-rojo-53.png File208=marker-rojo-52.png
File209=marker-rojo-54.png File209=marker-rojo-53.png
File21=foto.bal File21=fondo_kmt.jpg
File210=marker-rojo-55.png File210=marker-rojo-54.png
File211=marker-rojo-56.png File211=marker-rojo-55.png
File212=marker-rojo-57.png File212=marker-rojo-56.png
File213=marker-rojo-58.png File213=marker-rojo-57.png
File214=marker-rojo-59.png File214=marker-rojo-58.png
File215=marker-rojo-6.png File215=marker-rojo-59.png
File216=marker-rojo-60.png File216=marker-rojo-6.png
File217=marker-rojo-61.png File217=marker-rojo-60.png
File218=marker-rojo-62.png File218=marker-rojo-61.png
File219=marker-rojo-63.png File219=marker-rojo-62.png
File22=foto1.jpg File22=foto.bal
File220=marker-rojo-64.png File220=marker-rojo-63.png
File221=marker-rojo-65.png File221=marker-rojo-64.png
File222=marker-rojo-66.png File222=marker-rojo-65.png
File223=marker-rojo-67.png File223=marker-rojo-66.png
File224=marker-rojo-68.png File224=marker-rojo-67.png
File225=marker-rojo-69.png File225=marker-rojo-68.png
File226=marker-rojo-7.png File226=marker-rojo-69.png
File227=marker-rojo-70.png File227=marker-rojo-7.png
File228=marker-rojo-71.png File228=marker-rojo-70.png
File229=marker-rojo-72.png File229=marker-rojo-71.png
File23=foto2.jpg File23=foto1.jpg
File230=marker-rojo-73.png File230=marker-rojo-72.png
File231=marker-rojo-74.png File231=marker-rojo-73.png
File232=marker-rojo-75.png File232=marker-rojo-74.png
File233=marker-rojo-76.png File233=marker-rojo-75.png
File234=marker-rojo-77.png File234=marker-rojo-76.png
File235=marker-rojo-78.png File235=marker-rojo-77.png
File236=marker-rojo-79.png File236=marker-rojo-78.png
File237=marker-rojo-8.png File237=marker-rojo-79.png
File238=marker-rojo-80.png File238=marker-rojo-8.png
File239=marker-rojo-81.png File239=marker-rojo-80.png
File24=foto3.jpg File24=foto2.jpg
File240=marker-rojo-82.png File240=marker-rojo-81.png
File241=marker-rojo-83.png File241=marker-rojo-82.png
File242=marker-rojo-84.png File242=marker-rojo-83.png
File243=marker-rojo-85.png File243=marker-rojo-84.png
File244=marker-rojo-86.png File244=marker-rojo-85.png
File245=marker-rojo-87.png File245=marker-rojo-86.png
File246=marker-rojo-88.png File246=marker-rojo-87.png
File247=marker-rojo-89.png File247=marker-rojo-88.png
File248=marker-rojo-9.png File248=marker-rojo-89.png
File249=marker-rojo-90.png File249=marker-rojo-9.png
File25=foto4.jpg File25=foto3.jpg
File250=marker-rojo-91.png File250=marker-rojo-90.png
File251=marker-rojo-92.png File251=marker-rojo-91.png
File252=marker-rojo-93.png File252=marker-rojo-92.png
File253=marker-rojo-94.png File253=marker-rojo-93.png
File254=marker-rojo-95.png File254=marker-rojo-94.png
File255=marker-rojo-96.png File255=marker-rojo-95.png
File256=marker-rojo-97.png File256=marker-rojo-96.png
File257=marker-rojo-98.png File257=marker-rojo-97.png
File258=marker-rojo-99.png File258=marker-rojo-98.png
File259=marker-verde-0.png File259=marker-rojo-99.png
File26=guardagestion.bal File26=foto4.jpg
File260=marker-verde-1.png File260=marker-verde-0.png
File261=marker-verde-10.png File261=marker-verde-1.png
File262=marker-verde-100.png File262=marker-verde-10.png
File263=marker-verde-11.png File263=marker-verde-100.png
File264=marker-verde-12.png File264=marker-verde-11.png
File265=marker-verde-13.png File265=marker-verde-12.png
File266=marker-verde-14.png File266=marker-verde-13.png
File267=marker-verde-15.png File267=marker-verde-14.png
File268=marker-verde-16.png File268=marker-verde-15.png
File269=marker-verde-17.png File269=marker-verde-16.png
File27=guna_viejo.png File27=guardagestion.bal
File270=marker-verde-18.png File270=marker-verde-17.png
File271=marker-verde-19.png File271=marker-verde-18.png
File272=marker-verde-2.png File272=marker-verde-19.png
File273=marker-verde-20.png File273=marker-verde-2.png
File274=marker-verde-21.png File274=marker-verde-20.png
File275=marker-verde-22.png File275=marker-verde-21.png
File276=marker-verde-23.png File276=marker-verde-22.png
File277=marker-verde-24.png File277=marker-verde-23.png
File278=marker-verde-25.png File278=marker-verde-24.png
File279=marker-verde-26.png File279=marker-verde-25.png
File28=historico.bal File28=guna_viejo.png
File280=marker-verde-27.png File280=marker-verde-26.png
File281=marker-verde-28.png File281=marker-verde-27.png
File282=marker-verde-29.png File282=marker-verde-28.png
File283=marker-verde-3.png File283=marker-verde-29.png
File284=marker-verde-30.png File284=marker-verde-3.png
File285=marker-verde-31.png File285=marker-verde-30.png
File286=marker-verde-32.png File286=marker-verde-31.png
File287=marker-verde-33.png File287=marker-verde-32.png
File288=marker-verde-34.png File288=marker-verde-33.png
File289=marker-verde-35.png File289=marker-verde-34.png
File29=info_gral.resp File29=historico.bal
File290=marker-verde-36.png File290=marker-verde-35.png
File291=marker-verde-37.png File291=marker-verde-36.png
File292=marker-verde-38.png File292=marker-verde-37.png
File293=marker-verde-39.png File293=marker-verde-38.png
File294=marker-verde-4.png File294=marker-verde-39.png
File295=marker-verde-40.png File295=marker-verde-4.png
File296=marker-verde-41.png File296=marker-verde-40.png
File297=marker-verde-42.png File297=marker-verde-41.png
File298=marker-verde-43.png File298=marker-verde-42.png
File299=marker-verde-44.png File299=marker-verde-43.png
File3=alerta.jpg File3=alerta.jpg
File30=infonavit1.jpg File30=info_gral.resp
File300=marker-verde-45.png File300=marker-verde-44.png
File301=marker-verde-46.png File301=marker-verde-45.png
File302=marker-verde-47.png File302=marker-verde-46.png
File303=marker-verde-48.png File303=marker-verde-47.png
File304=marker-verde-49.png File304=marker-verde-48.png
File305=marker-verde-5.png File305=marker-verde-49.png
File306=marker-verde-50.png File306=marker-verde-5.png
File307=marker-verde-51.png File307=marker-verde-50.png
File308=marker-verde-52.png File308=marker-verde-51.png
File309=marker-verde-53.png File309=marker-verde-52.png
File31=INVENTARIO (1).jpg File31=infonavit1.jpg
File310=marker-verde-54.png File310=marker-verde-53.png
File311=marker-verde-55.png File311=marker-verde-54.png
File312=marker-verde-56.png File312=marker-verde-55.png
File313=marker-verde-57.png File313=marker-verde-56.png
File314=marker-verde-58.png File314=marker-verde-57.png
File315=marker-verde-59.png File315=marker-verde-58.png
File316=marker-verde-6.png File316=marker-verde-59.png
File317=marker-verde-60.png File317=marker-verde-6.png
File318=marker-verde-61.png File318=marker-verde-60.png
File319=marker-verde-62.png File319=marker-verde-61.png
File32=INVENTARIO.jpg File32=INVENTARIO (1).jpg
File320=marker-verde-63.png File320=marker-verde-62.png
File321=marker-verde-64.png File321=marker-verde-63.png
File322=marker-verde-65.png File322=marker-verde-64.png
File323=marker-verde-66.png File323=marker-verde-65.png
File324=marker-verde-67.png File324=marker-verde-66.png
File325=marker-verde-68.png File325=marker-verde-67.png
File326=marker-verde-69.png File326=marker-verde-68.png
File327=marker-verde-7.png File327=marker-verde-69.png
File328=marker-verde-70.png File328=marker-verde-7.png
File329=marker-verde-71.png File329=marker-verde-70.png
File33=inventario.PNG File33=INVENTARIO.jpg
File330=marker-verde-72.png File330=marker-verde-71.png
File331=marker-verde-73.png File331=marker-verde-72.png
File332=marker-verde-74.png File332=marker-verde-73.png
File333=marker-verde-75.png File333=marker-verde-74.png
File334=marker-verde-76.png File334=marker-verde-75.png
File335=marker-verde-77.png File335=marker-verde-76.png
File336=marker-verde-78.png File336=marker-verde-77.png
File337=marker-verde-79.png File337=marker-verde-78.png
File338=marker-verde-8.png File338=marker-verde-79.png
File339=marker-verde-80.png File339=marker-verde-8.png
File34=itembuttonblue.png File34=inventario.PNG
File340=marker-verde-81.png File340=marker-verde-80.png
File341=marker-verde-82.png File341=marker-verde-81.png
File342=marker-verde-83.png File342=marker-verde-82.png
File343=marker-verde-84.png File343=marker-verde-83.png
File344=marker-verde-85.png File344=marker-verde-84.png
File345=marker-verde-86.png File345=marker-verde-85.png
File346=marker-verde-87.png File346=marker-verde-86.png
File347=marker-verde-88.png File347=marker-verde-87.png
File348=marker-verde-89.png File348=marker-verde-88.png
File349=marker-verde-9.png File349=marker-verde-89.png
File35=itembuttonred.png File35=itembuttonblue.png
File350=marker-verde-90.png File350=marker-verde-9.png
File351=marker-verde-91.png File351=marker-verde-90.png
File352=marker-verde-92.png File352=marker-verde-91.png
File353=marker-verde-93.png File353=marker-verde-92.png
File354=marker-verde-94.png File354=marker-verde-93.png
File355=marker-verde-95.png File355=marker-verde-94.png
File356=marker-verde-96.png File356=marker-verde-95.png
File357=marker-verde-97.png File357=marker-verde-96.png
File358=marker-verde-98.png File358=marker-verde-97.png
File359=marker-verde-99.png File359=marker-verde-98.png
File36=kellanova.png File36=itembuttonred.png
File360=nota.bal File360=marker-verde-99.png
File361=noventa.bal File361=nota.bal
File362=nuevocliente.bal File362=noventa.bal
File363=palomita_verde.png File363=nuevocliente.bal
File364=palomita_verde_original.png File364=palomita_verde.png
File365=pedido.bal File365=palomita_verde_original.png
File366=pedidoItem.bal File366=pedido.bal
File367=planfia_logo.png File367=pedidoItem.bal
File368=planfia_logo_old.png File368=planfia_logo.png
File369=planfia_logo_old2.png File369=planfia_logo_old.png
File37=kellanova_borde.png File37=kellanova.png
File370=principal.bal File370=planfia_logo_old2.png
File371=proditem.bal File371=principal.bal
File372=productos.bal File372=proditem.bal
File373=productos2.bal File373=productos.bal
File374=profina.jpg File374=productos2.bal
File375=profina.png File375=profina.jpg
File376=promociones.bal File376=profina.png
File377=qr.bal File377=promociones.bal
File378=rechazo.jpg File378=qr.bal
File379=rojo.png File379=rechazo.jpg
File38=kelloggs.png File38=kellanova_borde.png
File380=salma.jpg File380=rojo.png
File381=salma.png File381=salma.jpg
File382=senial.jpg File382=salma.png
File383=sync.png File383=senial.jpg
File384=tache_rojo.png File384=sync.png
File385=tache_rojo_original.png File385=tache_rojo.png
File386=telefonos.bal File386=tache_rojo_original.png
File387=ticketsDia.bal File387=telefonos.bal
File388=Tiendita.jpg File388=ticketsDia.bal
File389=transporte.png File389=Tiendita.jpg
File39=kelloggs_chico.png File39=kelloggs.png
File390=verde.png File390=transporte.png
File391=vista1.png File391=verde.png
File392=vista2.png File392=vista1.png
File393=vista3.png File393=vista2.png
File394=vista4.png File394=vista3.png
File395=WhatsApp Image 2022-11-17 at 11.50.59 AM.jpeg File395=vista4.png
File396=WhatsApp Image 2022-11-17 at 11.50.59 AM.jpg File396=WhatsApp Image 2022-11-17 at 11.50.59 AM.jpeg
File397=whatsapp.png File397=WhatsApp Image 2022-11-17 at 11.50.59 AM.jpg
File398=whatsapp_original.png File398=whatsapp.png
File399=WHATSTEL.jpeg File399=whatsapp_original.png
File4=alerta_amarilla.png File4=alerta_amarilla.png
File40=kelloggs_original.png File40=kelloggs_chico.png
File400=WHATSTEL.png File400=WHATSTEL.jpeg
File41=kelloggs2.jpg File401=WHATSTEL.png
File42=kelloggs2.png File41=kelloggs_original.png
File43=keymon_logo.png File42=kelloggs2.jpg
File44=kmt.db File43=kelloggs2.png
File45=knv_logo_white.png File44=keymon_logo.png
File46=login.bal File45=kmt.db
File47=logo sanfer.jpg File46=knv_logo_white.png
File48=logo_192x192.png File47=login.bal
File49=logo_exitus1.jpg File48=logo sanfer.jpg
File49=logo_192x192.png
File5=amarillo.png File5=amarillo.png
File50=logo2.png File50=logo_exitus1.jpg
File51=logo2_192x192.png File51=logo2.png
File52=MainPage.bal File52=logo2_192x192.png
File53=Malo.jpg File53=MainPage.bal
File54=mapa.bal File54=Malo.jpg
File55=mapa_rutas.bal File55=mapa.bal
File56=mapas.bal File56=mapa_rutas.bal
File57=marker-azul-0.png File57=mapas.bal
File58=marker-azul-1.png File58=marker-azul-0.png
File59=marker-azul-10.png File59=marker-azul-1.png
File6=anterior.jpg File6=anterior.jpg
File60=marker-azul-100.png File60=marker-azul-10.png
File61=marker-azul-11.png File61=marker-azul-100.png
File62=marker-azul-12.png File62=marker-azul-11.png
File63=marker-azul-13.png File63=marker-azul-12.png
File64=marker-azul-14.png File64=marker-azul-13.png
File65=marker-azul-15.png File65=marker-azul-14.png
File66=marker-azul-16.png File66=marker-azul-15.png
File67=marker-azul-17.png File67=marker-azul-16.png
File68=marker-azul-18.png File68=marker-azul-17.png
File69=marker-azul-19.png File69=marker-azul-18.png
File7=BLACNCO.jpg File7=BLACNCO.jpg
File70=marker-azul-2.png File70=marker-azul-19.png
File71=marker-azul-20.png File71=marker-azul-2.png
File72=marker-azul-21.png File72=marker-azul-20.png
File73=marker-azul-22.png File73=marker-azul-21.png
File74=marker-azul-23.png File74=marker-azul-22.png
File75=marker-azul-24.png File75=marker-azul-23.png
File76=marker-azul-25.png File76=marker-azul-24.png
File77=marker-azul-26.png File77=marker-azul-25.png
File78=marker-azul-27.png File78=marker-azul-26.png
File79=marker-azul-28.png File79=marker-azul-27.png
File8=carrito.png File8=carrito.png
File80=marker-azul-29.png File80=marker-azul-28.png
File81=marker-azul-3.png File81=marker-azul-29.png
File82=marker-azul-30.png File82=marker-azul-3.png
File83=marker-azul-31.png File83=marker-azul-30.png
File84=marker-azul-32.png File84=marker-azul-31.png
File85=marker-azul-33.png File85=marker-azul-32.png
File86=marker-azul-34.png File86=marker-azul-33.png
File87=marker-azul-35.png File87=marker-azul-34.png
File88=marker-azul-36.png File88=marker-azul-35.png
File89=marker-azul-37.png File89=marker-azul-36.png
File9=checklist.bal File9=checklist.bal
File90=marker-azul-38.png File90=marker-azul-37.png
File91=marker-azul-39.png File91=marker-azul-38.png
File92=marker-azul-4.png File92=marker-azul-39.png
File93=marker-azul-40.png File93=marker-azul-4.png
File94=marker-azul-41.png File94=marker-azul-40.png
File95=marker-azul-42.png File95=marker-azul-41.png
File96=marker-azul-43.png File96=marker-azul-42.png
File97=marker-azul-44.png File97=marker-azul-43.png
File98=marker-azul-45.png File98=marker-azul-44.png
File99=marker-azul-46.png File99=marker-azul-45.png
FileGroup1=Default Group FileGroup1=Default Group
FileGroup10=Default Group FileGroup10=Default Group
FileGroup100=Default Group FileGroup100=Default Group
@@ -735,6 +736,7 @@ FileGroup399=Default Group
FileGroup4=Default Group FileGroup4=Default Group
FileGroup40=Default Group FileGroup40=Default Group
FileGroup400=Default Group FileGroup400=Default Group
FileGroup401=Default Group
FileGroup41=Default Group FileGroup41=Default Group
FileGroup42=Default Group FileGroup42=Default Group
FileGroup43=Default Group FileGroup43=Default Group
@@ -863,7 +865,7 @@ Module6=C_Mapas
Module7=C_Nota Module7=C_Nota
Module8=C_NoVenta Module8=C_NoVenta
Module9=C_NuevoCliente Module9=C_NuevoCliente
NumberOfFiles=400 NumberOfFiles=401
NumberOfLibraries=30 NumberOfLibraries=30
NumberOfModules=32 NumberOfModules=32
Version=12.5 Version=12.5

2
B4A/KelloggsV4.b4a.meta
View File

@@ -97,6 +97,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=C_Cliente,b_geopass_Click,3728,0,C_Cliente,Class_Globals,5,6,kms_helperSubs,traeUsarGeocerca,589,0,C_Cliente,B4XPage_Appear,376,6,kms_helperSubs,Class_Globals,24,0,B4XMainPage,b_importarBD_Click,738,0,kms_helperSubs,string2date,531,0,kms_helperSubs,SetButtonTintList,586,0,C_Cliente,Initialize,284,2,C_Cliente,GPS_LocationChanged,715,6,B4XMainPage,B4XPage_Appear,346,2 NavigationStack=C_Principal,cargar_Click,506,6,B4XMainPage,Class_Globals,100,0,B4XMainPage,B4XPage_CloseRequest,531,0,B4XMainPage,b_extras_Click,788,0,B4XMainPage,b_aceptarExtras_Click,796,0,B4XMainPage,p_extras_Click,791,0,C_Principal,JobDone,967,0,C_Principal,B4XPage_Created,200,0,Visual Designer,login.bal,-100,6,B4XMainPage,et_geocerca_TextChanged,768,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,30,11,24,3,31,28 VisibleModules=1,30,11,24,3,31,28

2
B4A/Starter.bas
View File

@@ -67,7 +67,7 @@ Sub Service_Create
ubicacionActual.Initialize ubicacionActual.Initialize
pe.Initialize("pe") 'Para obtener la bateria pe.Initialize("pe") 'Para obtener la bateria
skmt = s.dbInit 'Inicializamos BD. skmt = s.dbInit 'Inicializamos BD.
DBReqServer = "http://keymon.lat:1782" DBReqServer = "http://keymon.lat:1781"
Private c As Cursor = skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'SERVER'"$) Private c As Cursor = skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = 'SERVER'"$)
If c.RowCount > 0 Then If c.RowCount > 0 Then
c.Position = 0 c.Position = 0

15
B4A/kms_helperSubs.bas
View File

@@ -593,15 +593,26 @@ End Sub
'Regresa si la geocerca se DEBE o NO de tomar en cuenta para la venta. 'Regresa si la geocerca se DEBE o NO de tomar en cuenta para la venta.
Sub traeUsarGeocerca As Boolean 'ignore Sub traeUsarGeocerca As Boolean 'ignore
Private GC As Boolean = False Private GC As Boolean = True
Private x As Cursor = Starter.skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'GEOCERCA'"$) Private x As Cursor = Starter.skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'GEOCERCA'"$)
If x.RowCount > 0 Then If x.RowCount > 0 Then
x.Position = 0 x.Position = 0
If x.GetString("CAT_VA_VALOR") = "true" Then GC = True If x.GetString("CAT_VA_VALOR") = "false" Then GC = False
End If End If
Return GC Return GC
End Sub End Sub
'Regresa si la carta porte se DEBE o NO de tomar en cuenta para cargar día.
Sub traeUsarCartaPorte As Boolean 'ignore
Private CP As Boolean = True
Private x As Cursor = Starter.skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'CARTAPORTE'"$)
If x.RowCount > 0 Then
x.Position = 0
If x.GetString("CAT_VA_VALOR") = "false" Then CP = False
End If
Return CP
End Sub
'################ Manage External Storage (MES) ######################### '################ Manage External Storage (MES) #########################
' '
''Inicializa "Manage External Storage" (MES), que nos da acceso a la tarjeta de memoria en Android 11+ ''Inicializa "Manage External Storage" (MES), que nos da acceso a la tarjeta de memoria en Android 11+