From 201ffb113f27678deded845fe38e50e83ccfb250 Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Mon, 13 May 2024 19:43:44 -0600 Subject: [PATCH] Importacion base y otra cosa --- Files/engrane.jpg | Bin 0 -> 4132 bytes Files/login.bal | Bin 5592 -> 9836 bytes intmex_reparto.b4a | 148 ++++++++++++++++++++++++++++++---------- intmex_reparto.b4a.meta | 2 +- seleccion.bas | 22 +++--- 5 files changed, 125 insertions(+), 47 deletions(-) create mode 100644 Files/engrane.jpg diff --git a/Files/engrane.jpg b/Files/engrane.jpg new file mode 100644 index 0000000000000000000000000000000000000000..01159dede406910442ea8745a6f5be1db3cf3848 GIT binary patch literal 4132 zcmb6+cUaTQvcCWcO*#Q2fT1@D)r2BSBtq~AN(&IW6a%3{1OzN}M0z_?lrDr`1q7u^ zQQ(A5=vAZ&h+VmO?s@l~^T+$X_qNQp-|pQi0+1q`93qo?_`sLc+5XlTF;5C|hJ_)nBy$Q*QFVMR2AQ^e5T`+gFaQC>|4MO5jM z&(eEt9u?yop~){~-P+mtV6Se`opcSt@Xf_JjckEeCKB*pZ69 z7ah&;e*&=r0Xq)AJzkuMef{vB33X4d%8Bo;ch|@IPmi&3&?0w8{Om?mdU34PPS>k7 zOl570iaVcg_;9D+&?oz*TP3LGeH%SQ(BLZd8nlk5%-7sXKYs*L?v5T&@@e4yUHIn| zC17kRe&z1_B3`+E{K5w1z9i*^{+*7nCZSFLL{}E6VfSOP zA{QsDyv;(XvGMD9+RPBq^$DWjO)tShgtyuCH)fH{ijvoPpX3naNeJ`KSczAul3T|> z`Toa%L!6zNc)3h;Vuh$$oBgta1=%e(L8qp2=%(Ssvq-tcFmirGsZTmsME|j)K|#$Y z{h__7;zSM(5C{AJ05jrjc?6KI;Fkmrx0=X#YSS@QekCDe91~qwZSFXgwM%SOgO^W` z%3ZaeLRU8lH5Ic9$&H(v_xBnO9Y{gCkphA8r_}`GVkJRE4pyGT>N$;O+1o5!mmHCL zaWrOI8bh*HrMiuFajuGB*P8qfp6L+ET8H(4QX4V%gSQR;h8DKz9y5X`$IRzCDFRk# z&ljt63_Pfazf9t&y^#yTj;Dz)@w$rRfsiuY` zR(pDMR9e0AG2r&BX5~BXNT{jc<#@uW?IGX*S!uOdDUS<^HWx9pnVHgMR?A%&xH9=p zadv-`g@>(EapiVqKb1|FO*KxkZ`ZT-d;s~!H60F-Q+uY3&pq;b2d(jo9?Iw=?Fo_? zie`O7<0d&EQ2J&QNU31uGD1UvLB=mrb}2`=X)&O5AVanQopR$g&RyNk?UqKujn@Vb z`8u)mi~%r_zG#x{BL{7Oi z=UWa*1}e)s{Y_5}h3#%SY6)D#`*d!yBJfpcgU#l7vrGQ9ZkoOMiI>pR@=SCRF46#%FN1ZNNW)B67c z;AItDP0^4N5iOPtv;~?VMu}Ge7b90Bt+Kzcf}-^y(F3B+8hyr+U!gOeTNP z+vQn2=RV)y`amM6E`dBh^7NN6^Y*HOlpK*IE&5*Ihg?*TwFiu*N4OiK%j%yV^Z3j8 zvM*m#;Tbc<>3TH}!D1}EWC@{PRNbo&86+u0L+Lj$-brJgpDR+q%jenOe1%K zl&dH#RYAS;g`;)QC@L>HL=+N(Y71+PpLb==(&2!K-k~=%{i@>M5iK+$)TP*JgR%>& z6&Wv+u1H`^vh)pKE1A`$Jy-viTOyDD#HlBo{v%wX1zqgaZ6oQIh&MF6@S^)$uW7AY4bI+jCSW9bz03Rp*DEDYIsqbb^GZzWLBb!eNc=5)chr%Mk+ zhIEd?TD*APptg}rP1|=|$sKe)YznA&_?UeA8g?H!e7Vh`%K!ETH-9T~62D{4_JHY# zR>B++mGe2@a>{L$yG%xp1X+4-ObBh$>wmvB%`!{(C9!Ng{wmuIH-FPnx$~ZaWqI-( z_VkRZSK%x5(QJ|1lQffTk3x&c1HBrTe>T!r?BgDMEGA}UZnb6H7(E=k?xG;bvQ}9$ zc(H>)j-i3Pc@5jYd{$#(fF`m^>Ogn}#`;}DBXyulKkRWY$|I{R(7b>6o_>`6 z^PYGCOv0MXLDP=qRX@J+2Q$B2T`RZJWyj*~R@GcsdQv)%l_!+k{p)fwx-ydPte-)_ zU*wOHrJYsyysUXcJ{2nX0_=MuYfIu!z9`!c)kgx?#6HQ zjNUv6LargEQhOJ$TPEdHBfbNx&}JgA$);Bn5v_UbiRM zC&knmFWl`55>uJ?Y&ruCHX(odx{perjtRoVFZ9#T9RngosRnvK;@Mj6dK>jIXF0v4 z4mS-$N6b*K7aEQM_b01iz7j8UHQ)M|nnF`9{vmYue5^c?XteZjy3b(fsIah96jL%r zhe7k&#_{ZFzMjx~K63t!(8|6AG1@o$7WT7HXMwA_j-zvmH|1jH?lgS!gK_SHpa0o1 zozhsO^YZ)(Vc)XvDCC3OaIO0rF#d<$pn*cX1r65Z;inIa|iM^CN?Zq1@B?=6Nf za{*T-Ln8wJIx2fUR?t%gDe3J2J? zK!bPWP#U*heBf2VD-e-q@b2e3r?`trGjHH;Vy!=HI8fxXmy`9xsCw(IZ{3ZX zd9~iT$cgD!e;C?#(A5Y)Jjy&rCx9bvFxU5oBr{l@T&euWDED8^dvt6uR2>{lczN>ND8OaBh5NTJ~&LkOy@kDmls2IYT?7 zr_u!;cAtmcG(HB)0n1j6(=|HP7aexxiCLp~elKyd4Lu??WStGuJOF#0~e^TJNeu0@NO16272#U&&M5||Sbp>DR0Y4LUeGv*EID_>xsqN{p zftIal=l_|lN;e0YD5KuNBU{{wQS$~JU!uIGN{@og&aI$e4DH{yj4j+P{U|NS90p?; z^N)hgU3&a@sZ=9xwi~QQO5E`8869C_KYN0(Vy~KzWu!+%*pbZEFF`B)4*lP=LZqv_0vzyK zbTMz$59DicmJRfcX6%Dsx}uW%WU#u>@e6D%_(9x&(afuf#SDBg}bwI zIauawzYfO+SkxG~90i-R4n}u&-EZGv<$+G|$mpL=;y3>orLwrB_&s->bmzKeI%d@4 zB_Xi1WV~LHp_>?1%g`!LN)po_bGZ1^1NqZTXl2lNrNdVM|1rJEMnFuLPH5x3 zEkB&lu;=fB%$ZD^*ramVU2>C{rO2%x_@^k5r$Hut{Mr%4?orRF{;(!N*VR80qR^y_ z@ylcBEc!9ClL0=aEsxVOw?}=Sv-S3qZew`bDjmY9i)j9iHXr1Z*Jssqyk<<-j^fEWc_%`O#%P{^SstpLbBX-Ac?9^lM>%fJ&fh ze6plPXZu}duZ7!8IeN*41$q=sZp{MyE(fpqAk*D4a-QK#7UMl4s(EHO;x*|%-=hD1 zkX$B6Rx;YYH>x!Zn+Io?2$s=d-3vd%zfwXhZq;Chia?V|4twx~y-kq^u)@ l>S-IKG#z>!MytgFfb0M)h6UwotH0l^|FW5E6|smT!;Ld# zP998*7ykh6#w$b<5-%Ra=#_ZjU(a?9nsA8>t0?U%C0k9U=syFukGHUfMO;!M524NJ$89>@DCZ}D z^deMEA-A+?Y?$O%Zurq|o_lhAV@8f-d& zBjB;ou{J}WAPljLsZME$WCuA2^xliNO&TITp49m|`^BEEu9XCxix>B$6m`jZ-28jz z`9N>ib1T|Q@6bJ#&Zvp_ylRHK4TH9ij@XECSDP@2Bv!yipFS{2HT~h9-u*ob@#V7M zu%z& zl`3B+OzJWtMV!z0MtL=V6Hr(uUzaD@G(WF2M)F5bBd>5Yb>raCHT=2au73omq8f4p zo7fe2M6oZ7zYNs!O~teN-F1pFop<|uY?(*gUDx!Y0#vR8;*k2qI)GJ9V#!y%P96ix z4Ty6WKT-4o<9EEL`46AJ=_&%k=RH6u^)txIt0umxtu24)6{h1(txjEPN$fN9|` z%H0JpOMeGby}IRUWh`X_llmVp=_7%O{sRmTdlddbR#~Q)4VeRw@_oq@O|T(E-y7kg z?}lhXFvo^ZoO$Yq4CS+kl|bYtSW+oXmqXB7ehl>qnSYvwIRwQt(0qt# zpe=m3JA@Y&N!t+=U|vBH zU|OLZBxyC@aw$CG39<#?33T2=mP6{rD)(V2{zP=aGfW|x{09){?)DDg@Kx6O&LAuh6U7AL_q^WUf=@?~zYDm216|=h A761SM delta 273 zcmaFkb3>b#m4Sib022cP7mya6$g9l724uMAl@uiwO|+EZ0||TPCZ?x`Wu}%JPTa3Q z@sD*BH&C!3zMv>GFFCUyF^3n()eA_>OU(%{N-QWyEdrSd=CgnlCKeY9fK<4qWR`@a zR+K;$aR9|&LLhae#i>PHllL;p$AVnI4#Xf8Fg7O=8{{UC6L^3aWH*e>2W0aDF~~MS rAQl2*VIUSkVslJh$|S$}G7~E!W7g)I%o1#yxw!B0O!iQd0EPho_Lwpi diff --git a/intmex_reparto.b4a b/intmex_reparto.b4a index 6e2653a..fad1753 100644 --- a/intmex_reparto.b4a +++ b/intmex_reparto.b4a @@ -1,43 +1,44 @@ Build1=Default,intmex_rep.keymon.com.mx File1=alert2.png -File10=guardagestion.bal -File11=guna_viejo.png -File12=guna_viejo2.png -File13=info_gral.bal -File14=infonavit1.jpg -File15=itembuttonblue.png -File16=kelloggs.png -File17=keymon_logo.png -File18=kmt.db -File19=login.bal +File10=foto.bal +File11=guardagestion.bal +File12=guna_viejo.png +File13=guna_viejo2.png +File14=info_gral.bal +File15=infonavit1.jpg +File16=itembuttonblue.png +File17=kelloggs.png +File18=keymon_logo.png +File19=kmt.db File2=alerta.jpg -File20=LOGO SANFER.jpg -File21=Logo.jpg -File22=logo_exitus1.jpg -File23=Malo.jpg -File24=mapa.bal -File25=mapa_cliente.bal -File26=mapa_rutas.bal -File27=nopago.bal -File28=nuevocliente.bal -File29=pedido.bal +File20=login.bal +File21=LOGO SANFER.jpg +File22=Logo.jpg +File23=logo_exitus1.jpg +File24=Malo.jpg +File25=mapa.bal +File26=mapa_cliente.bal +File27=mapa_rutas.bal +File28=nopago.bal +File29=nuevocliente.bal File3=buscar.bal -File30=planfia_logo.png -File31=planfia_logo_old.png -File32=planfia_logo_old2.png -File33=productos.bal -File34=profina.jpg -File35=PROFINA.png -File36=seleccion.bal -File37=sync.png -File38=tarjeta.bal -File39=telefonos.bal +File30=pedido.bal +File31=planfia_logo.png +File32=planfia_logo_old.png +File33=planfia_logo_old2.png +File34=productos.bal +File35=profina.jpg +File36=PROFINA.png +File37=seleccion.bal +File38=sync.png +File39=tarjeta.bal File4=dbc.png +File40=telefonos.bal File5=detalle_promo.bal File6=durakelo1.png -File7=fila.bal -File8=fondo_kmt.jpg -File9=foto.bal +File7=engrane.jpg +File8=fila.bal +File9=fondo_kmt.jpg FileGroup1=Default Group FileGroup10=Default Group FileGroup11=Default Group @@ -72,6 +73,7 @@ FileGroup37=Default Group FileGroup38=Default Group FileGroup39=Default Group FileGroup4=Default Group +FileGroup40=Default Group FileGroup5=Default Group FileGroup6=Default Group FileGroup7=Default Group @@ -92,6 +94,7 @@ Library19=sql Library2=baqrcode Library20=togglelibrary Library21=zxing_scanner +Library22=fileprovider Library3=byteconverter Library4=camera Library5=compressstrings @@ -99,7 +102,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~'End of default text.~\n~~\n~''''' CAMBIA LA CLAVE API~\n~AddApplicationText(~\n~~\n~ ~\n~)~\n~'End of default text.~\n~ ~\n~ '''''''''''PUSH~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~AddManifestText()~\n~AddPermission(android.permission.ACCESS_BACKGROUND_LOCATION)~\n~AddManifestText()~\n~AddManifestText()~\n~AddManifestText(~\n~) 'in order to access the device non-resettable identifiers such as IMEI and serial number.~\n~AddManifestText()~\n~'/////////////// FLP y FBMessageing MOD Inicia /////////////////////~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.Firebase)~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.FirebaseAnalytics)~\n~'CreateResourceFromFile(Macro, FirebaseNotifications.FirebaseNotifications)~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~'/////////////// FLP y FBMessageing MOD Termina ///////////////////// +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~'End of default text.~\n~~\n~''''' CAMBIA LA CLAVE API~\n~AddApplicationText(~\n~~\n~ ~\n~)~\n~'End of default text.~\n~ ~\n~ '''''''''''PUSH~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~AddManifestText()~\n~AddPermission(android.permission.ACCESS_BACKGROUND_LOCATION)~\n~AddManifestText()~\n~AddManifestText()~\n~AddManifestText(~\n~) 'in order to access the device non-resettable identifiers such as IMEI and serial number.~\n~AddManifestText()~\n~'/////////////// FLP y FBMessageing MOD Inicia /////////////////////~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.Firebase)~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.FirebaseAnalytics)~\n~'CreateResourceFromFile(Macro, FirebaseNotifications.FirebaseNotifications)~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~'/////////////// FLP y FBMessageing MOD Termina /////////////////////~\n~~\n~'/////////////////////// App Updating ////////////////~\n~ AddManifestText(~\n~ )~\n~ AddApplicationText(~\n~ ~\n~ ~\n~ ~\n~ )~\n~ CreateResource(xml, provider_paths,~\n~ ~\n~ ~\n~ ~\n~ ~\n~ ~\n~ ) Module1=BatteryUtilities Module10=gestion Module11=Historico @@ -123,15 +126,15 @@ Module6=DBRequestManager Module7=detalle_promo Module8=fila Module9=foto -NumberOfFiles=39 -NumberOfLibraries=21 +NumberOfFiles=40 +NumberOfLibraries=22 NumberOfModules=23 Version=12.5 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Intmex-Reparto #VersionCode: 1 - #VersionName: 4.04.20 + #VersionName: 4.05.08 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False @@ -193,9 +196,19 @@ Sub Globals Private Label1 As Label Dim server As String Private p_principal As Panel + Private p_appUpdate As Panel + Private lv_server As ListView + Private et_server As EditText + Private b_server As Button + Private b_apk As Button + Private b_envioBD As Button + Private b_regesar As Button + Private p_serverList As Panel + Public Provider As FileProvider End Sub Sub Activity_Create(FirstTime As Boolean) + ' If File.ExternalWritable Then ' ruta = Starter.rp.GetSafeDirDefaultExternal("") ' Else @@ -233,6 +246,8 @@ Sub Activity_Create(FirstTime As Boolean) End Sub Sub Activity_Resume + Log("provider") + Provider.Initialize Subs.centraPanel(p_principal, Activity.Width) Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION) Wait For Activity_PermissionResult (Permission As String, Result As Boolean) @@ -372,3 +387,62 @@ Sub Activity_KeyPress (key As Int) As Boolean ' Returning False signals the system to handle the key Return False End Sub + + +Private Sub i_engrane_Click + p_appUpdate.Width = Activity.Width + p_appUpdate.Height = Activity.Height + Subs.centraPanel(p_serverList, Activity.Width) + Subs.centraBoton(b_server, Activity.Width) + Subs.centraBoton(b_apk, Activity.Width) + Subs.centraBoton(b_envioBD, Activity.Width) + Subs.centraBoton(b_regesar, Activity.Width) + Subs.centraBoton(b_server, p_serverList.Width) + lv_server.Clear + lv_server.AddSingleLine("http://keymon.lat:1782") + If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1782") +' l_server.Text = Starter.server + et_server.Text = server + Subs.panelVisible(p_appUpdate, 0, 0) +End Sub + +Private Sub b_regesar_Click + p_principal.Visible = True + p_appUpdate.Visible = False +End Sub + +Private Sub b_envioBD_Click +' copiaDB +' Sleep(1000) + Dim FileName As String = "kmt.db" + 'copy the shared file to the shared folder + Log("xxxxxx:"&Provider.SharedFolder) + Sleep(1000) + File.Copy(File.DirInternal, FileName, Provider.SharedFolder, FileName) + Dim email As Email + email.To.Add("soporte@keymonsoft.com") + email.Subject = "Base de datos para revisión" + 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) +End Sub + +Private Sub b_apk_Click + +End Sub + +Private Sub b_server_Click +' Log("Guardar servidor") +' Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("SERVER")) +' Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER",et_server.text)) +' Starter.server = et_server.text +' Starter.server = B4XPages.MainPage.server +' If logger Then Log("Inicializamos reqManager con " & B4XPages.MainPage.server) +' reqManager.Initialize(Me, B4XPages.MainPage.server) +' LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red) +' reinicializaReqManager +' p_appUpdate.Visible = False +'' Entrar.Visible = True +End Sub \ No newline at end of file diff --git a/intmex_reparto.b4a.meta b/intmex_reparto.b4a.meta index f323ab2..7d7f01f 100644 --- a/intmex_reparto.b4a.meta +++ b/intmex_reparto.b4a.meta @@ -70,6 +70,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8=2,7,11 ModuleClosedNodes9= -NavigationStack=Starter,ENVIA_ULTIMA_GPS,110,0,Main,Process_Globals,28,0,seleccion,Activity_Resume,185,3,seleccion,Subir_Click,464,6,seleccion,cargar_Click,483,0,Subs,revisaBD,191,0,Main,Activity_Create,77,0,MAPA_RUTAS,MapFragment1_Ready,140,6,colonia,traeTodosAVisitar,556,4,colonia,ListView1_ItemClick,194,6 +NavigationStack=seleccion,Subir_Click,445,6,seleccion,cargar_Click,486,0,Main,Activity_Create,76,0,Main,i_engrane_Click,262,2,Main,b_envioBD_Click,277,0,Main,Globals,73,0,Main,Activity_Resume,116,0,Diseñador Visual,login.bal,-100,6,Main,b_server_Click,302,1,Main,b_regesar_Click,277,0 SelectedBuild=0 VisibleModules=19,23,20,18,4,5,8,15,6,9 diff --git a/seleccion.bas b/seleccion.bas index f1e2fa3..81c54a9 100644 --- a/seleccion.bas +++ b/seleccion.bas @@ -457,15 +457,19 @@ Sub Subir_Click 'Buscamos ordenes a reprogramar. Dim r As Cursor =Starter.skmt.ExecQuery("select * from noventa where nv_reprogramar = 1") If r.RowCount > 0 Then - Log("Enviamos reprogramados: " & r.RowCount) - For rx = 0 To r.RowCount - 1 - r.Position = rx - Dim cmd As DBCommand - cmd.Initialize - cmd.Name = "insert_reparto_reprogramar_INTMEX" - cmd.Parameters = Array As Object(r.GetString("NV_CLIENTE"),r.GetString("NV_REPROGRAMAR")) - reqManager.ExecuteCommand(cmd , "ins_reprogramar") - Next + Dim o As Cursor = Starter.skmt.ExecQuery2("select HVD_FECHA, CAT_CL_RUTA FROM HIST_VENTAS INNER JOIN on kmt_info on HVD_CLIENTE = cat_cl_codigo WHERE HVD_CLIENTE = ?",Array As String(r.GetString("NV_CLIENTE"))) + If o.RowCount > 0 Then + o.Position = 0 + Log("Enviamos reprogramados: " & r.RowCount) + For rx = 0 To r.RowCount - 1 + r.Position = rx + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_reparto_reprogramar2_INTMEX" + cmd.Parameters = Array As Object(r.GetString("NV_CLIENTE"),r.GetString("NV_REPROGRAMAR"),o.GetString("HVD_FECHA"),o.GetString("CAT_CL_RUTA"),ALMACEN) + reqManager.ExecuteCommand(cmd , "ins_reprogramar") + Next + End If End If r.Close 'd.Position=0