From 89f2d228e05fdab268e703a338ae6d4e9a295ed7 Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Wed, 29 May 2024 10:59:51 -0600 Subject: [PATCH] version final reparto intmex --- Files/fila.bal | Bin 6787 -> 6829 bytes Files/info_gral.bal | Bin 17477 -> 20356 bytes Files/intmex_logo_192x192.jpg | Bin 0 -> 8284 bytes Files/login.bal | Bin 9836 -> 9878 bytes Files/seleccion.bal | Bin 18538 -> 18580 bytes fila.bas | 125 ++++++++++++++++++++++++++++++++++ intmex_reparto.b4a | 59 ++++++++-------- intmex_reparto.b4a.meta | 6 +- seleccion.bas | 56 ++++++++++++++- 9 files changed, 214 insertions(+), 32 deletions(-) create mode 100644 Files/intmex_logo_192x192.jpg diff --git a/Files/fila.bal b/Files/fila.bal index c1af4b122656d517316664f44cf8e842fdb540b8..edc036b2f5f04bab04df1f685e8ff4c4f0a5be37 100644 GIT binary patch delta 497 zcmZoRU2Dq5%D})N#=Mb@g-H{{WC!Auq-4EEg5Y_>b8+g5C cKn{}yVz3M4KnxooArEFu77&)7oGB#*0HXA1H2?qr delta 382 zcmZ2$+HA_k%D}+zn`t8(3lkp;kjW0jDM`tC1$mo|nLOAOIDq_|{PcXitb%kdAloxH zF+DXbGqv215y&%_nykw#K6x_7E=G&Vew<2-mXixP6*lkZT*5gyi%*j=Zt?_P8OHd@ z8~JpArVbEEX0@&Wa&-z5KCZ8n!H;=YVu*RBdVmD!!Cv}M{9D6gc;bZ$jMCN)sy=r xxkxha4bXMzlXWB_81p74ikL!N1!Ujj6QBH6LY6UqGPh*QLhoqNA~?svO(pWIy}wgN#A z*7F6y3csF=t);jKASTIiLz&79)lXVj8kdt;z`-NZXefe%Mx=;uJnY3qzNuA3JPS=SZgFw}CTj5~{iUj;-Z z$99gZICgM+gk$F}r-ka>M5y7omg72(>p5=VxRK)~jzx}-a@@=~y}g?j?nNudZ5$ut z*u}A%<93cafO8$~1nz?9hUnq=IN$bOI+yp6ykBk0_Z6l8I!*q-@eo4j7*Q7Gn3j}{ zlh~3#Oiroso`8~4uOt!W z>etNZ4P8MgfuMghi@&yS;0T~4LuG-C=Um;(pnH!&%DA#i{n?uL?(4esI~ zj>$14;pt}^EY0pPYv4;P*MVn?W+HeUdLb<6S2pE5fCr)k z-3$xpUeW#pupgpu3m#}ZVx^zj2deOEmYxAX6OwL1^*$F3JFPWOAwL9Rc?J(|3k#sa zQTQB+AoIbHb7C0q1r9_FFCo}6i&%LD54>$`j(r3#z+hk(ZT$fkB3afq@H1Yfj`<<^%~i#e4b&Oth8}VFz;p9E1IhK;kZrA^yP= zw`NS%WSlGFFCUyF=w(Ilav56P%I>|2xullNNP^8(&TU^|9X%h zNCadJND~hb^CGeNkl6f4Yyl*;AQD>$i7kx87C~Z*BG~l|Vh9d{I1*a|i7ko5mO^4n zBe7+W*s@4$IV83`5?cYxc82&^5lKP`iLDG|!$L>}$W{enH6T_;64#il&$5bWpK&V zO!1gq$oYa2^YB5kHQf~I6G)a>QlW`2_@pghfPOzmbzyc&n(S zp{b>KhuHnp;|XV7-0)@PS{0lT*_(vvc#m5o_xkn_JsEyLFi@)g0tABW50I>d@ z)_*bkKX{Qm@WRB##=^$?hZhE>=L4`vuyLO8;*!d!;hDOSG4loClglRN)pS1sy;4U~ zn7K{>DOvc}SW*8_`xmqSJ7U5AU(EiC*njgv00^)!9+HPe0+0e+QmU7QeMNE>B~8H zWhw%wyy_H@*_9prO=7RfPrPlk9%rrQgk-tsi*l#i=kIAFJc7v^nq=thhINC^1vZ%I zDvME&cz!1${V=Ph+MK;W;mfEbyw~>t@wq0H=2UQ2#RYeRqAZm`&Q#$(C89CYA;6S9 z)82(TNvNAfwWD#E6)3xdDmiR}hX6#zFid>|4{fcI~_hd># zS=;{uJ_wXxYnK!IGP_`YD8?y>j!BCGexr^;Bc(1>hj@Ki7b|GFt|6%fS&ZI8+`^y` z-F|LJ3f-U`$#yE-Th2L$5?#9H^h6$SVG7a$AHmrpVd{=V1YqUb9i@bDSUxSK!FK0Y z;^v-w9kU_e)fO#BuKAT*O%CwiP)T|dC77hG8H-_MB@DzL(B!ZV)lH2TRPhb6g?mCNZ*<3}w| zxe7lg4q_lyO7Z41Ht+DzVYd7W@sI5ReHAtprW{MgPo44a0iGpOw#SBjIk_mj?u$=N zl2p?gy-+51J?7Z3jjbFVpz11*!V>#lpUWK=YAJgz>a3G|_o9i`vCVN^>_AcSPmtF& zteQq6ff%BMAkWHQ&7K$&9puxn8>`NcEUA8s9FAXGL9pxobZcbLd<*-@`c;W|?pYd2 z;7==VDQ;8#Z#!)ZYVLeJovaN|f`9jbZuJ+0TO3k}++8dq2&xd%YY z=cz5aCCI~OBPaP7WAS^77^fFD*GKv0gb2Sbja6&-;8wj z>v(A2@*C-iH7@$oq(*6?7{gG|_@89Y8{8&8)3u+cg~<|{cy(I)RMig@Xpe zpTx>=RdPQ*y=bEmq?9_O5N5w!Rq?3x7FA7Hej~$Gv3kiY6G%Z7$`sgVihkXNc=@H; z<8dshNdC3e_(Xf=4CYSgn8bDRxYii`*o6ts!D&cXT+b(sEVr#jDg8dERenzR8=V)1 z8Fe6}P*g>`>G$H2l8VIGei1X5VOPK-!@v6?jGdwG6zeOP=OZ9kE|I>GwR%I{>9Iwk zww|;VwcMIdZri+$!`gA=XX?50f@0gb;W@lpy(B@ouUDKBcg+`NrHZAJTKQ}#mK^Z( z{n61VjtZ5Y{}kuC^Fy{dqlu&X5gENoM=JABvyv(=&?0a=|I1++nU1#g=oMQ*g&#fY z{iH{+eJ;WBTRk@5Tdb0A&=}#x&RcWim9qIgC^xcqc686J!~}Noi)P^INkz#tJ;@OV z$|>yZn0$9~4^d&T?x+SQCi`S55pfSVUUr zLZZfKC(@7MyH}#YwaL4t3~eK*mr-r}JK^o>U-`C4_AdJ;deVq2mrF(0p){?XKwl5> z^Bsx;Jyp*%es{r8vDZoZ)#Jm+nT{o@Du!ne_B3kEPYYQG)4xuioZoBuy~zDBKGoAF<+|i#ti$uG zmb`0pyWXoWR+X%7qvE#f#3X1*xaw3rA?A+WEkd?wQcR^K5I$OdYH|MSX#hk5rJ9Zc z>m!$oO3|6`RfJT6aT6-pos&l03f1*Lr`jAWNDT-rF-k;1&wR z62a7Tb4WZe-+?}tHe-co4PJV;l9o_$8y8)f_tCYA<-h7zln1dYQg2KJ%SlEh1xF2` zxT{(j;{~pJrtmLfqg;~SGWZhN4_Do>?bi+$FE7vH2aQe^{kn0x#jzBf2&og}nFr3N zjHuZ75>gDKePyr{A(#GQ^0Mv8lGO{UzS`4(mD@cDD1)}h?6L~qc`)f2spZb5Y5E#bgs+j7uC;j= zrsR6rGHiZ4P0r|To~dG;UOKE|iDP#rCriM4w^8IFBT}9z8p*Pv(Uc!F86_ViNB$m5 zO^eEoLv0tAb6QOrhXQt^i7HwNu0Np5l;BzM&v)XAG%L$;=EK;$xT5{@k=?$W&NuRz z7o+a1eB|8;>8twdxD-_`R%XqqzsmfinY{P)JRDnh36A*xJY$gIZQy=W9mkxOwR&G z@pnQ%?P3rb6AT|Ue`!(nx#W>W0ivIVI;-HVduO3m9sbM|?p zo1O6(4a>#K@${~0=BJCuV!k(&BI)fnXViEPYmQ>{U9d=@bazjU5iAexvzwtJjHrmS z7Bu#Kl6AyxcGKabBf-Yn;>0Rg-Z_wyE)FcE_eh$Ao7#Fadl^9LY2Gg^b@X4r&u^bM z=uNAcwp@#Q{dO$JhhKy6&PQGoSm`AR?EfMEEO0Ot|ALh6j}KR2jza}sfIrq}v!deu zJdl<#W(?57%=4d_{hy$h>Kmh8@&dyynl5+@AS_L?n8{@01z9m9OLDHtC`jK$Sto*t zxB*jPa5(xor_;y&fJ&3wf}S`|60w@0(-RFMGh6Vf*GO7 z;Y}^E7P3TM63~LYzZByw=Gcplu263+7xhMXJUbkGI9lr^xa;kG%Io@DT6EJ}Yj=gn z&k)K#ZZSRit75|129rPNG_XVj5a3IFQR1gKeORB1d7wk(NTEOb_PuqQr+QhzKIBv& z2>BS21Y7IKd>2Z)ug48=Y-R`CJ(IbyRZfJZgNf)-rN1~$UQhhUkLub3qB@lBru3S< z1$^;`I&Yd9Zx_q=#-25AB%#^un)Z$BRlthhMoOaF zN-Q|EckGIZ&8U(uqtYAFSuY(OK5j*eD{NwSo#8ku?C81cgp2!oiJi z;O8kxTia{+Ua9=%Tt%DG?v>Snszz?*Ti)fVmn@b-YC_$_sv-<9z>zM_ze!s zLu!pWx{hm#6BYm-Z9t$iM0_sW&lU-d$$8Q;`#p?MN_}c@$jJpWV!m+|Gs|3LgE6f2 z9uVHzezg-^A1jY?aT5pp>KEc+p@c(Up{KGwtQKKEcg^^*Cg@;C>1;=-fiRY@T^J1$ zAqjiUNzL5ue#4D23EN7(dtyS)FBpGH=UWWIL#h{Euj&+{w@pZ1=Z7P|P|ne&WqgOb z1QJ-#C#GUOT|NI}KbEP0?kJ5vi}idrm2m#13xv{SKQB?*vzatDtIA)>GWcw=Er-`r z8DKKab>tVY{>q<#E79IjxAfu{kV@S8aq_`($L9e=A@lM;FQ}>4*zk>+H~~)AUJ#=F zx=RuVg&S0T53seDUj(^ z$&zjH33VldA%}XPnhQeg*s~PzAdW$k6l)Ym=W7(FSu*zk?z@1zgDn%Mt*eK$nh5)1 z{FB%RVAH0>3Je|8jxUcnQM%B-&;CvXiz{wO9a_iYc-A0Jl4Ff^HOEjCFrYnl*T#PL z1-zGWwa6tD(e^cc-R${uLA5CHaM&H+Og*9DyjQ`fmm)??!AnXX9;sd_DW?GaV4I_7 ziXS|Z*fCP3H+dxbK6s7w%r3Lkb}vx;G5@P!eh*-f%x{*$I1r5wZ+{~$R$4%9Z1Uon z2(QSl&TVqy<<7y}qcLJh#RIB3kuB=EcyWGvcb{8wH6u7pM(a@$;!7&H^f%r7g8jnf z!8Ye#!|nDJxYXn7s&=`T5$!Z(0akWN*^}^=0v+?|Fk^Y&V0?A~sTe3RIzXo#IQB|z+VJOaRqDwKTcV9$VKeko7@O3RZnv{n_g=pO zW@~95>j;hi4uh>CRImTG;#~CG9fen0ujfxDdUS-c`C~^CIq+Nf93Zd^qOzE4cQGP4 zN+{XCJUYrt(a>&BZX^0UC=lGu-ENI~)st}ujV^`RmM*EbRsMZL{jNaDBiRwcKrA7= zlj}QGm}4Y4t2{6ZE{W9Fo!$f`2w|Lw{HPo$LNq0MeOB?-=ro9(akQ+P;y!X%y?!&^ zbHXClco~E7%q=A5Y?RRJ2P&=in7qq;+)uLgqpEO=*I(#BSgcYSRu`dr7;ipW6!_k+&z4RM&O9>6K@Q5Xac( z;d>RAa`y9SOh|(7T!dHJ`cAk&lEVUwN^~~Uo_TQc-FN03X@^24ZTj^Nv2IE3$##<> z|LV7&81){%AO)~QTwoKyYv`G}W>daqs4Ddfd*ZND5AMjxk?V-e{`;zR?VnIW4G6aK zYBPS(8MVF#oE-05F+#O2?o56Rf`P~C9WB$6-348zkfcs#Dl-K`Vml)#jkfsrg0zKP zS1+L!fz_O;kgFN5ZPGBloGPBV0hjO1 z4paJ;>phD}4r=)tlxuhLG6X6$DK3`BM2Jp_OY^nl59F^&V0xiQAiWmE;x-T5yJNmF z{D};!yiIfZa22}`nBqtqd|S(h>+I?h65~lfE10_;A8tZo^tAH$IX@Gw8UQh0!60#^?8;4jS5fy)Jv3+h!1i@2=N zrd}@Mo_7d5*b4Djx%bC+b@K4P6{3x@H38LFQ&GE+bO8oqIM^^&NuTR*_BP%E8f`i3i*p&&31uM`k&RGGXe3fMj zVgVtyg^(eC@IhQzfKt!2EbW1}?>fyGM;o*(TTQt4a9 zJUE(TdR!BkryzmasJKX)7NM4{&PRR}gv+^ZKkOTQ*T0o56sD_7@86Jg55Olo#1xTt zDTQw*ZD)C9Km=5PRCqB&p!mTu=fML2^$im{1sa&dD~J3s^IN|eEGY9T(#wYq_7|o9 zd=-eNai~6*yq`p`1?GcSbPg2E;Cit+PVIc8O!w+< z#>dsVy_$_7KC^B=KF1a#$3q_DN_XWQL-V5D5OePiOYJ*f)B#X zw#PsoruAOLYTzlsJ%FUjOe$7~wyLgZ4}lvb-lSp3?@4*eL)gSZSm-W%841F|_MJWM zC#GApNq~R1QB#)e{82prMLIQ-4&)3MYZkt_*5NWmDs3;w{cNwF*{Vf}yS^A>`_unr z<2gRfz)p^<*WSP^P&{(xl3LSs$1Z;OuRb`t85JJxzVM}HTHsc~iE7jNltV1sXnqY+ z)8_ZK? z=(XvG+-0%T+)Oc-*mmn`ACu@D)(6pEYd&Y7oPAWoS8>b@Nrg5a|5LGokUhxi-pAEU z2l2(fZAh7jI_ebsT|kExR>pzBxT00Kx;viKefIcDix=ZPMQ=}CO*C4kkJ9vz(DH|k zce|)DI(rHu_$lmMhx3%+Y(TggA88VG1PQG0V_38C%Ox{fQYJW|0B`jxnsa`1mKO6( zAkS$oojI2ZUgqamc9;vTUIDR-n3%{g-vc&aXGeZ2NEqz1$jSN0^Sz4gR!oz6{lJNl z+;#BnaUT8ocB2yiOwO3*Jz#hzIa|SNkF~&L)7&dc7s|Aop%5z0s+m4%Ny)^vd8pdJU@9w@KOc;iFx43aLmlq6cFwQ0v`RJW@H-Wf6JU4Dgj+*=#U zj5ue@(ewph!X(Xie+9eE(Obuyi%^^~kQJ|4FLKUkIOvbih#p6rWn)yP=|aOMs&p%! zou)kvbjB-QyPR$CJHA$cRmG~$9&O6<>smarIB4=pOrRR`vlN^2T|LC>C$ptZ_KNOR zc5RJ~TQJAst0x+QVNy8DD=3vHa&Vfsg7j4j^M-2nJciNs{RpXu^H}9~Q^w|QA6z(+ z_ySKfH^h$lSki1nTW&tvLTj1&BwiNsFPp>HL@_W&DH5GQ5E zJ`Rq8d`jRwV4^hnk8PRKN%YdAIY-`%-yINjR7uELH8nzi;ovc^viF-GX8wg2&mnoo zE8|foOF-|>WL~#t%6k#W;70%M?0 zXw4+VNt~)^S#N1S)|Wh)D(opwA~ysiu@I~v?c>P?5Bbc1_U+LjbSqjATYjQ*NJZQ+ z%?SI>6gc8>Rs`nO?EuEm`JL)N9M|+R9=iYK#yqIGG!2w(YDF8lU0(90o29KjbxHRO zXZ(j$rPoUL3cW3qeA3ZRXuZ*a`(o15bi3cV>qMqYJS3+>p4a$L_o^w(UBYE*F^LA>z!!b4}_&cYFslj-9!=6GJGS~y)%FwUv*m3#C2>Hfi7IbG~9KzFO|KAEox=BuS@lf@15%lkO&@esZYB z^mQf@+mQlWA6td6N94y}%N_gi@vzTX-1jp60-txZH6s49?+;$@bv)SL6+{US{x{%1 JfOY@--vBL-39SGC literal 0 HcmV?d00001 diff --git a/Files/login.bal b/Files/login.bal index 4ea61d5e7a0410fc8b88f9dad4cb07a2304f3236..1427d2b04a274bcc3a7865e8594840326863ec38 100644 GIT binary patch delta 343 zcmaFkGtHNkm4Sib^+wkDOpIKUmof!Pi39nWc_q2274bRw>G|=7mPQpotd~`=`72X5 z+vNG2R>@{;Kt(=@NvS!8Anid$dPWwEK!!OtkVwr-FG|cy1!_p=1adRup#mTU7Pw7M z=K{)m<|d}6hGnLf8*b*~ddta`2oz%iV$P(=`xK-m&k=KDOrC5nAT{}~m^5S3lvg%_1p4Ma)3Vz==gmDw>v5pcXyGw8_chEtB)axF$>TX)tz+Ba{<|&xryniVVSAr zhKxX-ndIb$9O9EVb1F%ivjO=&iAkwBh9HB2jP#5wKuRnozvGnIY{B)GbF#R&CS&4c zM{ya(q{-`Lr6w=n6#}w4CA=qJ5EtT#0xFgUVn&C(DT`Fs4qn7n1_=ABt?A%qz~tg+*}&n&J$gVm-#p$(>>?les05 WCg+PwPwtQqnmk85e>1;iJ1+pb&p?>~ diff --git a/Files/seleccion.bal b/Files/seleccion.bal index 122f7202d0f7c47932772d5ccf00d0cb69841ca7..e3c1327fdb0ae8c6eabf46e54c44070b43b44d25 100644 GIT binary patch delta 1218 zcmaJ=-EWg+6z|a%?A$t5#E!0&0VCPQ==#3>?pSGYAItz-U~)k;^`(?r(zUhiJ}@9& zbS7dlS$@O$G1(@N$Y&@OFNpXT7{VQ1Ox=Z1!-WBFG=XHE=Xnw1jTg`9@0|1do#&kM zKD~dMW~RwxG8hb%ifPbDX1r=tnr!T+v!#*bL_CvA<>E?6o#5j-nomJ_{>AE?@yFH8 ziCi|DOq8@|n5?*;W4k-PXK?TEV2_L_xK+D(om#{3Ogu5FWlOnYLS{Vpqjt+d?<%3t z4ka^+K>M{!`mkQhC;UwOa3PnMeE(CXZ#8H3B@=IIZ|7txpqEb`;YQM9x;%)t>YQtp zkl^yoC9PNzT-A-my2f?Ne;UfljEXyTQ{=(x7F)NsR?70Z!dSYPE@=hHkS)n(gTn9W zl~LJPCSDlTm!Jkvv4l;oTik2Fto*F!OIUT))%^ds{b^u-s(F^-V2!9I~=kANJyh zwn-YrL+^1KSinWc@P?xc&TRwudFv&takbz^hZ8>qTkvOR zJLX*jbX;mquqJ|o5i6aLx_9tPXBoe_zQKaiimy9kc%-(&`H~H{6ctC^Tx&xMf{I@2 zky@m(tTQR^o|HA-!|y)6n>F8hRb)N7X1iC{toVxbzSNwOnp0Bq0rG(|3Vxj%4G8Wm zO`)N!k3K|m%#QCvenz|lI*p!inWjYz+z!2f70-I^%8KQkR#?JT-1T+hURN;!-tV(w z$>te0;`5l#2*bxj;$xUUVxtJqz((c6Z*Czr%fMs+d2L+QxbfqE2%j)mwesMvl}|T;vwy zY?q+f`{|;5K5<74eziByWza?!7JIws3hG)_x{7G4gRWs)UkBUzuno5xEjZbyVX3zU z_xm)uE*>LQkm~m_Rva$6f$#duRF(R#r2Zxux46$jF I0Lre=-#VvNd;kCd delta 1165 zcmY*XTTGK@819P{Xa|M<6k3Y)1XMu|{r?{5!4^sig~bgcXrhTDwR8=xw!{{g2~(Fi zjYrBJb?TglIFhYnDpv0>S$1Q*@WMMUyeP>o%#tm;@M1TM`@ZjYCcF6Fy#MW2;vjm1>b(ESuvDMaGR9 zOQZ6?+G&w-u1BoWjJ2BCCfEB0JmrkEd(U`SK-`!%G;9@3i1xfZ8W|M1UbVF&GwRri z7t01;vyTs-J(`YpPp6YyYwB=P;drOx>sniJXYCscPDI-&heC8c&ESP(#S@FfJY$O) z9}K&2(Qf0 zbQF1c7qe?}KW=Rd<7J0}^PL5RoUPd3Wy5i&MDwWIyc_#F75YMOjxkOM!(9>`6Fgf_ z2et+bIN;XdRhNQ%&niv?C4Axt!`739B&&KQS=Bp5LXl~MB)u+%Up>tWxUhqqFS!n&^&xWqB z)vseuqx*&#{`YiOxnWOB{E~Fnn31_-WJY0+o!#y5b>?U__|o6J`P=`JH<(lL_OHL+ ze#av>nK5wZDy%+hJ(uyYS6#v4S8P)3@60fP2NBLDyZ diff --git a/fila.bas b/fila.bas index e421f63..5f07edc 100644 --- a/fila.bas +++ b/fila.bas @@ -84,6 +84,16 @@ Sub Globals Dim CREDITO As String Private p_principal As Panel Private B_PASO2 As Button + Dim almacen As String + Dim fechaprev As String + Dim rutaprev As String + Dim rutarep As String + Dim montopagare As String + Private b_cancred As Button + Private b_acred As Button + Private et_montoacredito As EditText + Private l_limite As Label + Private p_credito As Panel End Sub Sub Activity_Create(FirstTime As Boolean) @@ -173,6 +183,7 @@ Sub Activity_Resume ' g.Start(0,0) ' End If Subs.centraPanel(p_principal, Activity.Width) + Subs.centraPanel(p_credito, Activity.Width) Starter.skmt.Initialize(Starter.ruta,"kmt.db", True) c=Starter.skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_BCREDITO from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") s=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") @@ -256,6 +267,71 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object) End Sub Sub gest_Click + If CREDITO = 1 Then + Msgbox2Async("Forma de pago","EL CLIENTE PUEDE TENER CREDITO","Parcial","Total","Efectivo",LoadBitmap(File.DirAssets,"alert2.png"),False) + Wait For Msgbox_Result (Result As Int) + If Result= DialogResponse.POSITIVE Then + Log(1) + p_credito.Visible = True + 'monto + c=Starter.skmt.ExecQuery("select sum(HVD_COSTO_TOT) AS MONTO from HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND HVD_RECHAZO = 0 AND HVD_PARCIAL = 0") + c.Position = 0 + montopagare = c.GetString("MONTO") + c.Close + l_limite.Text = "Monto de la venta: $" & montopagare + Else If Result = DialogResponse.NEGATIVE Then + Log(2) + Guardado + Else If Result = DialogResponse.CANCEL Then + Log(3) + DateTime.DateFormat = "dd/MM/yyyy" + DateTime.TimeFormat = "HH:mm:ss" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + 'cliente + c=Starter.skmt.ExecQuery("select CUENTA from cuentaa") + c.Position = 0 + cuenta = c.GetString("CUENTA") + c.Close + 'usuario + c=Starter.skmt.ExecQuery("select usuario from usuarioa") + c.Position = 0 + usuario = c.GetString("USUARIO") + c.Close + 'Almacen + c=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN") + c.Position = 0 + almacen = c.GetString("ID_ALMACEN") + c.Close + 'FECHA PREVENTA + c=Starter.skmt.ExecQuery("select HVD_FECHA from HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)") + c.Position = 0 + fechaprev = c.GetString("HVD_FECHA") + c.Close + 'RUTAPREVENTA + c=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") + c.Position = 0 + rutaprev = c.GetString("CAT_CL_RUTA") + c.Close + 'RUTA rep + c=Starter.skmt.ExecQuery("select RUTAA from RUTAA") + c.Position = 0 + rutarep = c.GetString("RUTAA") + c.Close + 'monto + c=Starter.skmt.ExecQuery("select sum(HVD_COSTO_TOT) AS MONTO from HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA) AND HVD_RECHAZO = 0 AND HVD_PARCIAL = 0") + c.Position = 0 + montopagare = c.GetString("MONTO") + c.Close + Starter.skmt.ExecNonQuery2("INSERT INTO PAGARES (PA_ALMACEN, PA_RUTA_REP, PA_RUTAPREV, PA_FECHA_PREV, PA_CAPTURA, PA_MONTO, PA_USUARIO, PA_CLIENTE) VALUES(?,?,?,?,?,?,?,?) ", Array As Object (almacen,rutarep,rutaprev,fechaprev,(sDate),montopagare,usuario,cuenta)) + Guardado + End If + Else + Guardado + End If +End Sub + +Sub Guardado DateTime.DateFormat = "MM/dd/yyyy" sDate=DateTime.Date(DateTime.Now) sTime=DateTime.Time(DateTime.Now) @@ -297,6 +373,7 @@ Sub DATOS_Click End Sub Sub Guardar_Click + StartActivity(seleccion) End Sub @@ -514,4 +591,52 @@ Sub B_PASO2_Click Starter.skmt.ExecNonQuery("DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa)") Starter.skmt.ExecNonQuery2("INSERT INTO NOVENTA (NV_CLIENTE, NV_FECHA, NV_USER, NV_MOTIVO, NV_COMM, NV_LAT, NV_LON) VALUES(?,?,?,?,?,?,?) ", Array As Object (cuenta, sDate & sTime, usuario, "PASO", "PASO ESPERA", Main.lat_gps, Main.lon_gps)) StartActivity(seleccion) +End Sub + +Private Sub b_acred_Click + If et_montoacredito.Text > montopagare Then + MsgboxAsync("El monto del pagare no puede ser mayor a la venta","Atención") + Else + DateTime.DateFormat = "dd/MM/yyyy" + DateTime.TimeFormat = "HH:mm:ss" + sDate=DateTime.Date(DateTime.Now) + sTime=DateTime.Time(DateTime.Now) + 'cliente + c=Starter.skmt.ExecQuery("select CUENTA from cuentaa") + c.Position = 0 + cuenta = c.GetString("CUENTA") + c.Close + 'usuario + c=Starter.skmt.ExecQuery("select usuario from usuarioa") + c.Position = 0 + usuario = c.GetString("USUARIO") + c.Close + 'Almacen + c=Starter.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN") + c.Position = 0 + almacen = c.GetString("ID_ALMACEN") + c.Close + 'FECHA PREVENTA + c=Starter.skmt.ExecQuery("select HVD_FECHA from HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)") + c.Position = 0 + fechaprev = c.GetString("HVD_FECHA") + c.Close + 'RUTAPREVENTA + c=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)") + c.Position = 0 + rutaprev = c.GetString("CAT_CL_RUTA") + c.Close + 'RUTA rep + c=Starter.skmt.ExecQuery("select RUTAA from RUTAA") + c.Position = 0 + rutarep = c.GetString("RUTAA") + c.Close + Starter.skmt.ExecNonQuery2("INSERT INTO PAGARES (PA_ALMACEN, PA_RUTA_REP, PA_RUTAPREV, PA_FECHA_PREV, PA_CAPTURA, PA_MONTO, PA_USUARIO, PA_CLIENTE) VALUES(?,?,?,?,?,?,?,?) ", Array As Object (almacen,rutarep,rutaprev,fechaprev,(sDate),et_montoacredito.Text,usuario,cuenta)) + p_credito.Visible = False + Guardado + End If +End Sub + +Private Sub b_cancred_Click + p_credito.Visible = False End Sub \ No newline at end of file diff --git a/intmex_reparto.b4a b/intmex_reparto.b4a index 5524bd6..eb7954d 100644 --- a/intmex_reparto.b4a +++ b/intmex_reparto.b4a @@ -6,34 +6,35 @@ 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 +File16=intmex_logo_192x192.jpg +File17=itembuttonblue.png +File18=kelloggs.png +File19=keymon_logo.png File2=alerta.jpg -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 +File20=kmt.db +File21=login.bal +File22=LOGO SANFER.jpg +File23=Logo.jpg +File24=logo_exitus1.jpg +File25=Malo.jpg +File26=mapa.bal +File27=mapa_cliente.bal +File28=mapa_rutas.bal +File29=nopago.bal File3=buscar.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 +File30=nuevocliente.bal +File31=pedido.bal +File32=planfia_logo.png +File33=planfia_logo_old.png +File34=planfia_logo_old2.png +File35=productos.bal +File36=profina.jpg +File37=PROFINA.png +File38=seleccion.bal +File39=sync.png File4=dbc.png -File40=telefonos.bal +File40=tarjeta.bal +File41=telefonos.bal File5=detalle_promo.bal File6=durakelo1.png File7=engrane.jpg @@ -74,6 +75,7 @@ FileGroup38=Default Group FileGroup39=Default Group FileGroup4=Default Group FileGroup40=Default Group +FileGroup41=Default Group FileGroup5=Default Group FileGroup6=Default Group FileGroup7=Default Group @@ -126,15 +128,15 @@ Module6=DBRequestManager Module7=detalle_promo Module8=fila Module9=foto -NumberOfFiles=40 +NumberOfFiles=41 NumberOfLibraries=22 NumberOfModules=23 -Version=12.5 +Version=12.8 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Intmex-Reparto #VersionCode: 1 - #VersionName: 4.05.19 + #VersionName: 4.05.22 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False @@ -224,6 +226,7 @@ Sub Activity_Create(FirstTime As Boolean) ' Starter.skmt.Initialize(Starter.ruta,"kmt.db", True) ' LogColor("Revisamos BD RUTAA", Colors.Magenta) Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)") + Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PAGARES (PA_ALMACEN TEXT, PA_RUTA_REP TEXT, PA_RUTAPREV TEXT, PA_FECHA_PREV TEXT, PA_CAPTURA TEXT, PA_MONTO TEXT, PA_USUARIO TEXT, PA_CLIENTE TEXT)") Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS wayPoints (codigo TEXT, indice INT)") Dim server As String = "http://187.189.244.154:1781" ' Dim server As String = "http://11.0.0.107:1781" diff --git a/intmex_reparto.b4a.meta b/intmex_reparto.b4a.meta index 061d896..62000d0 100644 --- a/intmex_reparto.b4a.meta +++ b/intmex_reparto.b4a.meta @@ -56,7 +56,7 @@ ModuleClosedNodes14= ModuleClosedNodes15= ModuleClosedNodes16= ModuleClosedNodes17= -ModuleClosedNodes18=3,6,7,8,9 +ModuleClosedNodes18=6,7,8,9 ModuleClosedNodes19=3,4,5,6,7,8 ModuleClosedNodes2= ModuleClosedNodes20= @@ -68,8 +68,8 @@ ModuleClosedNodes4= ModuleClosedNodes5=2,3 ModuleClosedNodes6= ModuleClosedNodes7= -ModuleClosedNodes8=2,7,11 +ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=nopago,cb_reprogramar_CheckedChange,124,0,nopago,GUARDA_Click,80,0,seleccion,JobDone,798,0,Diseñador Visual,nopago.bal,-100,4,Diseñador Visual,seleccion.bal,-100,1,seleccion,Activity_Create,102,0,seleccion,Activity_Resume,246,0,seleccion,Subir_Click,451,6,seleccion,cargar_Click,559,0,Main,Activity_Create,94,3 +NavigationStack=seleccion,e_ruta_EnterPressed,1051,0,fila,ListView1_ItemLongClick,247,0,fila,Guardado,274,0,fila,b_cancred_Click,588,4,Main,Activity_Create,93,0,fila,b_acred_Click,627,2,fila,gest_Click,319,6,Diseñador Visual,seleccion.bal,-100,4,seleccion,Subir_Click,492,6 SelectedBuild=0 VisibleModules=19,23,20,18,4,5,8,15,6,9 diff --git a/seleccion.bas b/seleccion.bas index ae2bfa3..69d0ea1 100644 --- a/seleccion.bas +++ b/seleccion.bas @@ -474,12 +474,64 @@ Sub Subir_Click Next End If r.Close + + 'PAGARES. + Dim pa As Cursor =Starter.skmt.ExecQuery("select * from PAGARES") + If pa.RowCount > 0 Then + For pag = 0 To pa.RowCount - 1 + pa.Position = pag + Dim cmd As DBCommand + cmd.Initialize + cmd.Name = "insert_reparto_PAGARES_INTMEX2" + Dim fechaenvio() As String + fechaenvio = Regex.Split(" ",pa.GetString("PA_FECHA_PREV")) +' Log(fechaenvio(0)) + Dim fechaenvio1() As String + fechaenvio1 = Regex.Split("/",fechaenvio(0)) + Dim fechaano As String = fechaenvio1(2).SubString(2) + Dim fechareal As String = fechaenvio1(0)&"/"&fechaenvio1(1)&"/"&fechaano +' Log(fechareal) + + Dim fechacap() As String + fechacap = Regex.Split("/",pa.GetString("PA_CAPTURA")) + Dim fechacapano As String = fechacap(2).SubString(2) + Dim fechacapreal As String = fechacap(0)&"/"&fechacap(1)&"/"&fechacapano + + cmd.Parameters = Array As Object(pa.GetString("PA_CLIENTE"),pa.GetString("PA_MONTO"),fechacapreal,pa.GetString("PA_ALMACEN"),pa.GetString("PA_RUTAPREV"),pa.GetString("PA_RUTA_REP"),fechareal,pa.GetString("PA_USUARIO")) + reqManager.ExecuteCommand(cmd , "ins_pagares") + Next + End If + pa.Close 'd.Position=0 'cuantos_pedido = D.GetString("CUANTOS_PEDIDO") 'd.Close ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True) End Sub +'Private Sub ImageView1_LongClick +' 'PAGARES. +' Dim pa As Cursor =Starter.skmt.ExecQuery("select * from PAGARES") +' If pa.RowCount > 0 Then +' For pag = 0 To pa.RowCount - 1 +' pa.Position = pag +'' Dim cmd As DBCommand +'' cmd.Initialize +'' cmd.Name = "insert_reparto_PAGARES_INTMEX2" +' Dim fechaenvio() As String +' fechaenvio = Regex.Split(" ",pa.GetString("PA_FECHA_PREV")) +' Log(fechaenvio(0)) +' Dim fechaenvio1() As String +' fechaenvio1 = Regex.Split("/",fechaenvio(0)) +' Dim fechaaño As String = fechaenvio1(2).SubString(2) +' Dim fechareal As String = fechaenvio1(0)&"/"&fechaenvio1(1)&"/"&fechaaño +' Log(fechareal) +' +'' cmd.Parameters = Array As Object(pa.GetString("PA_CLIENTE"),pa.GetString("PA_MONTO"),pa.GetString("PA_CAPTURA"),pa.GetString("PA_ALMACEN"),pa.GetString("PA_RUTAPREV"),pa.GetString("PA_RUTA_REP"),,pa.GetString("PA_USUARIO")) +'' reqManager.ExecuteCommand(cmd , "ins_pagares") +' Next +' End If +'End Sub + Sub cargar_Click ' img2.Visible =True EJECUTANDO = 1 @@ -1045,6 +1097,7 @@ Sub e_ruta_EnterPressed e_ruta.Text = "" Starter.skmt.ExecNonQuery("delete from pedido_cliente") + Starter.skmt.ExecNonQuery("delete from PAGARES") Starter.skmt.ExecNonQuery("delete from pedido") Starter.skmt.ExecNonQuery("delete from noventa") Starter.skmt.ExecNonQuery("delete from clie_act") @@ -1202,4 +1255,5 @@ End Sub Private Sub Panel1_Click -End Sub \ No newline at end of file +End Sub +