diff --git a/Durakelo_reparto.b4a b/Durakelo_reparto.b4a index 874403a..2c96129 100644 --- a/Durakelo_reparto.b4a +++ b/Durakelo_reparto.b4a @@ -1,36 +1,38 @@ Build1=Default,dreparto.keymon.com.mx File1=1.bal -File10=guardagestion.bal -File11=guna_viejo.png -File12=info_gral.bal -File13=infonavit1.jpg -File14=itembuttonblue.png -File15=keymon_logo.png -File16=kmt.db -File17=login.bal -File18=LOGO SANFER.jpg -File19=logo_exitus1.jpg +File10=fondo_kmt.jpg +File11=foto.bal +File12=guardagestion.bal +File13=guna_viejo.png +File14=info_gral.bal +File15=infonavit1.jpg +File16=itembuttonblue.png +File17=keymon_logo.png +File18=kmt.db +File19=login.bal File2=alert2.png -File20=Malo.jpg -File21=mapa.bal -File22=mapa_rutas.bal -File23=nopago.bal -File24=nuevocliente.bal -File25=pedido.bal -File26=planfia_logo.png -File27=planfia_logo_old.png -File28=planfia_logo_old2.png -File29=seleccion.bal +File20=LOGO SANFER.jpg +File21=logo_exitus1.jpg +File22=Malo.jpg +File23=mapa.bal +File24=mapa_rutas.bal +File25=nopago.bal +File26=nuevocliente.bal +File27=pedido.bal +File28=planfia_logo.png +File29=planfia_logo_old.png File3=alerta.jpg -File30=sync.png -File31=tarjeta.bal -File32=telefonos.bal +File30=planfia_logo_old2.png +File31=seleccion.bal +File32=sync.png +File33=tarjeta.bal +File34=telefonos.bal File4=buscar.bal File5=detalle_promo.bal File6=durakelo1.png -File7=fila.bal -File8=fondo_kmt.jpg -File9=foto.bal +File7=engrane.jpg +File8=engrane.png +File9=fila.bal FileGroup1=Default Group FileGroup10=Default Group FileGroup11=Default Group @@ -57,6 +59,8 @@ FileGroup3=Default Group FileGroup30=Default Group FileGroup31=Default Group FileGroup32=Default Group +FileGroup33=Default Group +FileGroup34=Default Group FileGroup4=Default Group FileGroup5=Default Group FileGroup6=Default Group @@ -66,18 +70,19 @@ FileGroup9=Default Group Group=Default Group Library1=baqrcode Library10=gps -Library11=javaobject -Library12=okhttputils2 -Library13=phone -Library14=randomaccessfile -Library15=reflection -Library16=runtimepermissions -Library17=serial -Library18=sql -Library19=togglelibrary +Library11=ime +Library12=javaobject +Library13=okhttputils2 +Library14=phone +Library15=randomaccessfile +Library16=reflection +Library17=runtimepermissions +Library18=serial +Library19=sql Library2=batteryprogressview -Library20=zxing_scanner -Library21=ime +Library20=togglelibrary +Library21=zxing_scanner +Library22=fileprovider Library3=bitmapcreator Library4=byteconverter Library5=camera @@ -85,7 +90,7 @@ Library6=core Library7=fusedlocationprovider Library8=googlemaps Library9=googlemapsextras -ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: http://www.basic4ppc.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~~\n~)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~AddApplicationText(~\n~)~\n~AddManifestText(~\n~~\n~)~\n~AddApplicationText(~\n~~\n~ ~\n~)~\n~AddManifestText(~\n~~\n~)~\n~'''' para el teclado~\n~ SetActivityAttribute(main, android:windowSoftInputMode, adjustResize|stateHidden)~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~'Si al cargar un mapa de google manda este error "java.lang.NoClassDefFoundError: Failed resolution of: Lorg/apache/http/ProtocolVersion". agregar la siguiente linea:~\n~AddApplicationText() +ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: http://www.basic4ppc.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~~\n~)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~AddApplicationText(~\n~)~\n~AddManifestText(~\n~~\n~)~\n~AddApplicationText(~\n~~\n~ ~\n~)~\n~AddManifestText(~\n~~\n~)~\n~'''' para el teclado~\n~ SetActivityAttribute(main, android:windowSoftInputMode, adjustResize|stateHidden)~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~'Si al cargar un mapa de google manda este error "java.lang.NoClassDefFoundError: Failed resolution of: Lorg/apache/http/ProtocolVersion". agregar la siguiente linea:~\n~AddApplicationText()~\n~~\n~AddApplicationText(~\n~ ~\n~ ~\n~ ~\n~)~\n~CreateResource(xml, provider_paths,~\n~~\n~ ~\n~ ~\n~ ~\n~~\n~) Module1=BatteryUtilities Module10=gestion Module11=Historico @@ -96,10 +101,11 @@ Module15=nuevocliente Module16=pedidos Module17=seleccion Module18=Starter -Module19=tarjeta +Module19=Subs Module2=BUSCAR -Module20=telefonos -Module21=Tracker +Module20=tarjeta +Module21=telefonos +Module22=Tracker Module3=CameraExClass Module4=colonia Module5=colonia2 @@ -107,15 +113,15 @@ Module6=DBRequestManager Module7=detalle_promo Module8=fila Module9=foto -NumberOfFiles=32 -NumberOfLibraries=21 -NumberOfModules=21 -Version=12.5 +NumberOfFiles=34 +NumberOfLibraries=22 +NumberOfModules=22 +Version=12.8 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Durakelo-Reparto #VersionCode: 1 - #VersionName: 3.11.19 + #VersionName: 5.03.15 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False @@ -154,6 +160,7 @@ Sub Process_Globals Dim montoActual, montorechazo,montosalida, clientesTotal, clientesVenta, clientesVisitados,almacen, rutaPreventa As String Dim ultimaActualizacionGPS As String = 235959 Dim logger As Boolean + Public Provider As FileProvider End Sub Sub Globals @@ -168,6 +175,10 @@ Sub Globals Private IMEN As Label Dim IMEI As String Private l_version As Label + Private i_engrane As ImageView + Private p_configTransparente As Panel + Private b_enviaBD As Button + Private p_config As Panel End Sub Sub Activity_Create(FirstTime As Boolean) @@ -196,8 +207,11 @@ Sub Activity_Create(FirstTime As Boolean) Dim P As PhoneId IMEN.Text = "" 'P.GetDeviceId IMEI = "" 'P.GetDeviceId - skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)") + p_configTransparente.Top = 0 : p_configTransparente.Left = 0 + p_configTransparente.Width = Activity.Width : p_configTransparente.Height= Activity.Height + Provider.Initialize + Subs.centraPanel(p_config, p_configTransparente.Width) End Sub Sub Activity_Resume @@ -356,4 +370,36 @@ Sub dameUsuario Else usuario = "SINUSUARIO" End If +End Sub + +Private Sub i_engrane_Click + p_configTransparente.Visible = True +End Sub + +Private Sub p_configTransparente_Click + p_configTransparente.Visible = False +End Sub + +Private Sub p_config_Click + +End Sub + +'Enviamos la base de datos por correo +Private Sub b_enviaBD_Click +' copiaDB +' Sleep(1000) + Dim FileName As String = "durakelo_kmt.db" + 'copy the shared file to the shared folder + Log("xxxxxx:"&Provider.SharedFolder) + Sleep(1000) + File.Copy(File.DirInternal, "kmt.db", Provider.SharedFolder, FileName) + Dim email As Email + email.To.Add("cheveguerra@gmail.com") + email.Subject = "subject" + email.Attachments.Add(Provider.GetFileUri(FileName)) +' email.Attachments.Add(Provider.GetFileUri(FileName)) 'second attachment + Dim in As Intent = email.GetIntent + in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION + StartActivity(in) + p_configTransparente.Visible = False End Sub \ No newline at end of file diff --git a/Durakelo_reparto.b4a.meta b/Durakelo_reparto.b4a.meta index c0357c6..23abd33 100644 --- a/Durakelo_reparto.b4a.meta +++ b/Durakelo_reparto.b4a.meta @@ -13,6 +13,7 @@ ModuleBookmarks19= ModuleBookmarks2= ModuleBookmarks20= ModuleBookmarks21= +ModuleBookmarks22= ModuleBookmarks3= ModuleBookmarks4= ModuleBookmarks5= @@ -35,6 +36,7 @@ ModuleBreakpoints19= ModuleBreakpoints2= ModuleBreakpoints20= ModuleBreakpoints21= +ModuleBreakpoints22= ModuleBreakpoints3= ModuleBreakpoints4= ModuleBreakpoints5= @@ -57,6 +59,7 @@ ModuleClosedNodes19= ModuleClosedNodes2= ModuleClosedNodes20= ModuleClosedNodes21= +ModuleClosedNodes22= ModuleClosedNodes3= ModuleClosedNodes4= ModuleClosedNodes5= @@ -64,6 +67,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8=3,6,8,17,18,19 ModuleClosedNodes9= -NavigationStack=seleccion,Activity_Create,154,6,Visual Designer,seleccion.bal,-100,6,Starter,ENVIA_ULTIMA_GPS,54,0,Starter,Process_Globals,12,0,Main,Activity_Create,69,6,Visual Designer,login.bal,-100,6,Main,Globals,57,0,Visual Designer,mapa_rutas.bal,-100,5,MAPA_RUTAS,Activity_Create,64,6,MAPA_RUTAS,Globals,39,0 +NavigationStack=Subs,centraEditText,31,0,Subs,Process_Globals,7,0,Main,dameUsuario,244,0,Main,b_enviaBD_Click,276,1,Main,Process_Globals,42,0,Main,Activity_Create,84,6,Diseñador Visual,login.bal,-100,6,Main,Globals,57,0 SelectedBuild=0 -VisibleModules=1,9,10,17,12 +VisibleModules=1,9,10,17,12,19 diff --git a/Files/engrane.jpg b/Files/engrane.jpg new file mode 100644 index 0000000..01159de Binary files /dev/null and b/Files/engrane.jpg differ diff --git a/Files/engrane.png b/Files/engrane.png new file mode 100644 index 0000000..525542a Binary files /dev/null and b/Files/engrane.png differ diff --git a/Files/login.bal b/Files/login.bal index f584e4f..076115e 100644 Binary files a/Files/login.bal and b/Files/login.bal differ diff --git a/Subs.bas b/Subs.bas new file mode 100644 index 0000000..d45978d --- /dev/null +++ b/Subs.bas @@ -0,0 +1,37 @@ +B4A=true +Group=Default Group +ModulesStructureVersion=1 +Type=StaticCode +Version=12.8 +@EndOfDesignText@ +'Code module +'Subs in this code module will be accessible from all modules. +Sub Process_Globals + 'These global variables will be declared once when the application starts. + 'These variables can be accessed from all modules. + +End Sub + +'Centra una etiqueta dentro de un elemento superior +Sub centraEtiqueta(elemento As Label, anchoElementoSuperior As Int) 'ignore + elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2) +End Sub + +'Centra un panel horizontalmente dentro de un elemento superior +Sub centraPanel(elemento As Panel, anchoElementoSuperior As Int) 'ignore + elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2) +End Sub + +'Centra un panel verticalmente dentro de un elemento superior +Sub centraPanelV(elemento As Panel, altoElementoSuperior As Int) 'ignore + elemento.Top = Round(altoElementoSuperior/2)-(elemento.Height/2) +End Sub + +'Centra una barra de progreso dentro de un elemento superior +Sub centraProgressBar(elemento As ProgressBar, anchoElementoSuperior As Int) 'ignore + elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2) +End Sub + +Sub centraEditText(elemento As EditText, anchoElementoSuperior As Int) 'ignore + elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2) +End Sub \ No newline at end of file