From db2f426fc7d48ed178af9b41bff3823f5c5532cf Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 18 May 2024 09:19:20 -0700
Subject: [PATCH 1/5] --cambios impresion rep iva

---
 Empresas/119/Formatos/RepIVA.rpt | Bin 131072 -> 131072 bytes
 1 file changed, 0 insertions(+), 0 deletions(-)

diff --git a/Empresas/119/Formatos/RepIVA.rpt b/Empresas/119/Formatos/RepIVA.rpt
index 214b40af6413e806af509347c86e5bd16ddd138b..dac02e363da336cadc31e9c7ed5432488be59dad 100644
GIT binary patch
delta 11585
zcmbuEQ*fqH*QR5;W81cEJL#xn+kRu)X2(Xywr!(h+sUNAneRWCIh<W})mpXpy?51f
zvJS4t&kxGa4=Rok59q%O2?*%%y9fT}^Xu#D-}YUdTmx{*9I!RQOgJ5PYv~#===ZK4
zW~%2LuxH8)Fc`=oPU`D1@F##2=3gEN=pE?m3-Vus`Stnz%4c`G7~!m&vD0apjQ$Pc
z{l?elh4IZ2av$yH!-;U=v#oB!YrGxo2b0NRi-&1tQJO=SY$ww}GiEMd@VNiYdV2Cb
zXlUp-J*(C4g1A<lKo)qhnIzy}>#VxsvlqCi?wuB27{sv4aDWB3PJ%xwxH3fhQ-*k+
z>Et4Q9ej&pUI>Hv@M|*D%o>dNnSX4`D>k9(pF<YaWBp*0=yTQcn>B(sH@wqFT(&il
zO;FHfv6m-jWWGElGT%Di2U`CCBr?mhb6e@U8PGE|FN>h9c=F~-HaE@NWNrmJq?i;B
za4Z*fyC%iS!T{HAJvFcAV7!WdQgG$-CPy3)Xws-dEjp91-M}7qY+KcZied7lTjeYw
z&p=2|Uyy)ByO}ikN`k9?nPq10%Jz%NY-7+1yo{BRj4f+?2CxdUl$l;hpYGy@JqU$(
zgTvNN;EHVt5aFYg{ka)X?C$*g36d}&1QDl2tsQ5_iw-cBG$~YbagGHy97PTiLBgZw
z@P60#%jV;DqX!ZQn$5}Z%U*y7TYI-V+6dIBI8}j+T(zKN%0bbz)3x;D?cJ#M#@|lX
zDpUc*V9d+kp2)`3F28YAdQaW@BH-&5M30%MPlIr_%)mZ#XU%ccfkiI72w@r2dk19-
z@{kBQvIanSV*|!V+z}I?!vyle1t5E-Dl|8TfUae$-wBJ5utsGsra@a{END&D9NUq|
z5P(OfvWlHS7Z!nv6S}9+YC6VqYBFgH-rHXI3;XqNW~|Ju=Fr5MY6QS1``4Iqc>F{_
zepGq5CP2AM)z>UH{tYml^or!?7TQmG9F1xz$O5QFzviUMF??~d@$QoU4lYLEk8+<D
zReu)C3mLn8n@Pr+iFRK+0QXtdoY2T@T|{znMa3qH+sHJJZ3E89p`}~%SRCk}S*{@0
zVH7QgAtZ`W|NLdU-*uZJ$>E!5I9R!W<Ac>QBO-YPZ%mm-ww2*gIe?~fmjp{y)e)vG
zs|Qf$9};V&ht6m`{}m7)dEu(wqCD1glH6Hd;p#Dn$kK^8u{7?ps&n@qjO>AdiH2Qm
zJ>_R%rv(ITTnVp7ud(jWiGEi0X2}pL=;mpMd4rbZ3Q4OFo+r-CQiZKcYzNL`&kABD
z;FAK4Y^i9U<Z}Md`upb)yiJoTDLbh5BM?B96qHxjq$Y=#kmF^a(UQrUBes#CY~SQq
zH=gfaCOH+MsXi{-Ki{OFo-@QFDJhNC0oGHIH{O5?nF8E9y!4#<l}w*UFo~zJA(Tqh
zSDdJ2KH;R&{i-2(bP$oqRDy>fVGmMcmZ~m;*&Hh`I8|xeH@XW8swz{>l|k}6;~lBt
z2O6oTv}vbOGQK@6Pw!Se6fUsDzd;}b<OJmMjS!INzp(&B@D12E>_D7A%->b;8~t00
zcb@OL^RNH!68vs<yomk{okSyO8vw;7@b_pcL5!kEkfKkH87|8IxuVD?f`FIAWeSEk
zS2ta}Hy$3-p#P~zE`lR=;;r(<3}XBN{?05MgIgW;X5?kynv9L#9N%aKU?~E;lr?qX
z5JXZ#uIOs9rbhh^9CD`|P3EdD^AfPbaSUZj5N+MvHmCdPq-$pNxAfYh1t49%x*nJ&
zq{1}sC?0m?M=jn}0rX=T;%Zf77rVn@1&See)aHQJ#i25B*iZF=8j{C~TP6s#4Ct$`
zNto@{sgvRziD9tBhtC+UpTK8d?wVub3@OMKzXtR{r6G*PNk<6WKU*2s6dD2!(w7xS
zJ%n2=>_}lGKTe<SSWytN6rh*4+k%h0PU&zn0`jnf+sZ)$!yj49&5})ZYV4+U0}G&f
z3E8)OUeH*AjR0mxb=pn^Z!o0K)BT%qKNsD((L~@|O}PYsdT6SM&eY>v=`4b3GOi3x
zG7RAvTxkbc<eiRG_yna~x42>Uz&uyDq{}9H{~>ijlpCl<@gs5N1aQP<3%eO8Jd=;B
zKu-(jw|_d?0JArjyB6@<w)5`Y9zmq*84p&`_!4HpRP`=1OcOuq3SDK^_ainPsQ<Y3
z$@?*#%sZVGFFS3w(f%hqcd5);0CDl3z(ThZX^YdIMh0KuE8RcL>}EXRuGSs|7{kh$
zNOW{LWrS<Me927RcYyOSC1jy+Q!gbNMqT^1w<7tG^sXr0$|yNWunC6s*MJnn!wH4W
z!uESFTwaMQNHQv5?>_A}bu~?ozpKd0C_7N4jMM;tyU&<wj$gw8n1UMu)xOJq25Hcx
zJxz8p$0u*tzR_isNS&yu!KmP5&oLRCjg~^UwPvy8V38)w3?K;`=fz(p)MnpX*EVn<
z{ZONcTPeMp6kem#NvJsVSF81HVH=!@w>a7O*~|Ttota>Li1E%#udL;;bzgz75^h+0
zeWg*Sz;(XETu*6N=24uHh<~deeBx59jlr#bU0?3}Qf$ix?|}4-)zxuke{Yaa^L9o?
z{`~ndQ?jZcCE(I2xru$lFF-^N+jp<MwY~h=XNX91#M!?=MrUS%q(fmRa5#SoP7l~j
z*GZpXiEBB1H(Xo|PDa39=keew#v|T+!|(b>^nP37N(OUTL9I52;z(h<f??*`5y)3)
z(k9o?)U5z@sXgDaZ%>J<KHZ9djIT%Dfv)RAH52tL4<K;xMWnl~q2Qy-J}%5ylMHB&
zh(CNMx@{`&^IpSNZYw84eSi#1^xdzA53o$6zu_yIaHVPA-V3Vtu~1dHU8h5;%wju%
zY`u4+xV=O}G-OKjW@M82yjC9@qU60p=)`joUv*#!ZKS(GHFFarV_nthld#^+<jq&|
z9umR10bqa*^L!3Hi7MT|)$QxRA|+v$3X`Zc#faHO7-zqWlYVk@*K$Bo9b&-t;*-S>
z0vT>;X?5@lb9@PZ|H)zyVIM=>(V_D5q}PRTX`d~xh=sa^oxNJSxPz64a%dq87ACJ`
zwH1eBzZxd5@GI+VhAf$c`ViHJ7SxamElvmY1MoF32&74OZGSk(Yr3H5J_N>OiKO`h
z?8E>!0y`f<oYTlt4&{gChaG6I4Q;sB1lMm{>LQrHbjJ@Tb$AWQAwA@91K_^EnWG{g
zYbTM#z`~r;?Fg=ie32u|XKg3y0Rhp|pc+E(3NYQ}M=j*-R8{g7@3+)k4tf}5lL|Qa
zazG7Q)rJM2VSl0N_s9v$%%w0bxhY$;O$l=KR;z&+b)xn>l!~)&PX#NlDVtUs2p^9(
zMboSbI~$l)E!$cInoq=AxTf#8FYw)9F{<}*flB7K=3z;(%PICzRu2zMJr%M>oR*1#
zhBD0U?w|bT!=)nRvrwz@Q{mf$*DbYpeZVrr6#lB)Z{oc8zjmJz&(=Fw`uKv%M*IWS
z`n8_}yGE^E<3@;<RY!w;AM-27k2ox}GFJ4QP-qP=aliA~Vk+0|;*dq3rumQ=JIHPK
zp|Q@`9!u%@Pu4}&MHG`I0JBBd++MBkNg4z*uqG!gaLNPIm(Z^zW`Z^PQGcr@bO56J
zykQ}Cke#LhD{<Pzx)<6SEqOFWs+|n@)|oM%Cr!u5ioH#<6*3X_saw8H4M-~KU|)HS
zzhXhL#(BF+{4*@@z5TwPQs&+v#Psy03KKJfe_G8cYaLM+P_*dmbz)slYW3lTXyYLk
zMerZ9;Yxim)d$zJHx~KIT1?z3c>^#UXK28N2$IWY*D%NxjbnaV5;`F3hSGFITh;u%
zms}}1yKw~S=qW$7r9f%CLmyn3^6&GxOPm&n=v=As<^lB<?+9KWfK0iZOPK)X{IM{1
z=S3G19VWUpgGd!&QxT|C-uBR&D~N@viPZb$Nb7T=dW8PqN+b;YV{{I0>mHD_w0$wE
z$tppJVt8SGCjk9n*=FCq1%9s_Z=OSx`I^P-+t_{SNAT6};}>K}qof;*5)5H+c{-!-
z30PJw%Suxqa_pr9shvSd!x<yIzl^Kulf4Nt0)Joh8G9i{VGvBU@{a*ul!2~D#GI==
zxR`{WzCasGXX0I+{=*GeS_ZU$qk8U~n6jp44{Ho61kcTVGW&q0_+PFZ=Pqp?JSkik
z%_(+T=ey1JX|__ds?G2lEg-QLR36OCp3k=Qs<!L?4BNv+)~4rmW4GwQhp3UV2Xcg0
z%^=j<GezY{_ZBrzuwOMzXndX2;m4W@(!az7&l{c6uBhjw#xyxgEdvNObMMN@2G`w6
z@EV-W$wmq-`kAUFxogOj-793K*Z4^g31AN;xX5{ywi?GrR2E{w<stC*O<qEH?@<v!
zd4JWPn*P9=;a@=u&d;1VC-5jZu{^33&ObxSJ&?w74$X}`m%w!Hy0}9fl=2VfFvZNj
zu%eT`wl>ns9_V*wiU8b4xAzS1#!R8MaToZLg|71?;G*!4q1&6i%<l}mP%#&|AHNnA
zX9V5ag8|yu4O4*X%3Nd;3Ybq^M%adjn?hk7p`=W$_F=3dQzUgQB%0V<mh4DC1<?GB
zE0mY*@aSB^yt_b@!Vre0n`IaWP`Q8$!>R(@^cd)!r@+~)NC1+nxJk!(3hlgrUOwD7
zj5HQodeFVJiC%<+_0k51od@Q~*ZpRF1-`e!8ZdZ{^4z2)PO^7Fle-)A0%J_ZKS@7t
zCtEqT4=2ZYjEg4wPy(g#;YE9z+q#>IS>3+JFT%&fq>!At5bfJljPU^tdaD+ac>aaF
zTa<BTGHLz-0bnPDCo=tuRW?*VO6XJ{Yu$MYuJH`+T8DDCg$sRt*ZwS!&5Dv?3{Cd&
zDv3;K{UrqxhdrnicATsHePGc2?W)J}lw84klw=Gq;EI%1n^c}qGdw&~=uHs*BK=n1
z4K^`|#4`p{@>+>sV05o1?#Q`C=fry;c$;{E?i%u0os#@(;3$Y6h$l6qSe*Dd!C>ej
z?FPh+PQ-smlzv{G6Ei3l{oO+<6+e-P6c5nwys&0DoEUT#k2Iv&^3wC!CkB;lN5I=e
zK>G5^a@AN$xVKxzI_|-Pi}k}Dz4V!!wZAg&&7;i=xe>Mg*DP#xCRRkxE1wG_Wlz$`
zilCBz|0q9A_%fC!r)mLviJEfDUJ*BFmfQYRo=>ChoYx+{pRbNw{C&TCZZ*@InhIcw
zWQa`7#op5Ex3#A`9{l@;`@wl5CA}$j`;d4Q_MHC1K+5*V=uOmGUnhbfL4&Ri!-Pe&
zEED#<>D#a6h;=Hc^p4!nKL@^YU7SHC2gw|Tyd7KkrLI+n$6aq)j=Y$HuBLcUpL^z#
zFqpDcgGCB|@}_+u2~vB|nRN$0YqbH55O2fbW%qPqg%Sr+J4`2up(JVu!E>LiRF&|4
zKgrZclq1LVk`OQsAJ#g`8q(E0h3+lzSV|4qT3XFQ5+!-7jG2Dd|B@>tt5Gmcv@SV<
z1kjjlKE3Z^ZdX$&oS1Zj{FMgx8O%*k6^({W8jMryK_0^(hXiILmTPo^zUBfXcqnl|
zCS+5PE00HENWI0S^r+ZM%+OqU1TvE5UjdH}<Fv!u2GYGezo_CC4UsJ0-;ER@#=4NZ
z<`<c-UO$h=8hNBPCeH~+gZUdCS_4C)*>%BB)V5LmAn|!1IL8}|+3>MFk~0bqpDR!f
z)Y0Q<=fb<n@!S+u5CHlaUwZ@EU-OwLh}Kh&=>P)ATmRJ^CBos6y@EM(j!=~3hp#=l
z<_i<Rvnu|M8OTLFPO^AQ>+#%UqG`EB{b|nJ>9_JeNC@^Ry|^KY<m0FT;sZ2Tj;{}u
zEFlGA43;5E5Rt_Y;dqo}p~~;wJbOH}dMe!uli923q5R@SdN8AC=G#fY#zeo-%3vB4
z_X`Ywdpl`uU)Lf=HyiBn2)sGK{TS0STuj*8K`1z06J?U&Vg7;>kb}JAKk6<vcN~}+
zcLxAzyF&S?bg^Uls+6gy8Do6nULnYbj7T^zB7<V_BLv;{fdiTKHuxSI(N(x*LyO?y
zIm;ETk9#-ex{W=UR5Rr;ckTe<%uj7XE-@Xjg`T%~{n5+%sCe3GSHe7!mcFDpXp;b)
zmKSO9_eK;hD=_<!+z#7E>nZq(NAF9}!HyXggBL;7@nWA6X(i)<!=WA`XrBDZA{R<n
zgz>D*KWNTUC%2cX7jhjTN+d!&I>&DOM5yiHL?_~8kyuLd%GR&U{CL0pVQ6|T%t#2}
zxW=6vx^xnY0bO%2R_$+nDPB6cqBIUXIY>WjYMlpFo^SghBh`93IA8(<MXjU^syRY%
zKg^hD#)@nh8RLxbnaLu(WY%(I01xoC9l==xRSaeKRxadsfcDtUHz>YnojSokM%SeL
z{g4C=XMt_&FftaH*`VEzllLl*S&awSO$XI$T49+G)A8>HsSdIm&MYhleydksca57$
zzw$J+s>?J${xntZ-gNwtlx03y&J^PmxDgt5V($$9K~&r;ROs#2Kf}xxN=oNOc|mRG
zajr%#R#lYjJCvUWy-XTGe+_wXb5P-|-l#8Ubtq0*ZcLc}c48BLKZ#IsXQB?c99UP-
zt7k>NmyQqEGUc46+WHw%Trdl4GZcnvj_M`NE0|*4()l#Kk01|(*1vq(Gc!?$<CLsk
z6i7LA`OYq*yOTummcO&7ZvlIpG+}}n;-rgnMHQv@#1MYD#;xV>cWMWeMbVa833twA
zsjbaAta00BHT^A5KOUUW`QZ!TDopx|ag3R~L~PR+!~yL@FU_p`OTOTP@E~?x5Y|BX
z*+DPzF-sKhf`B%8JZuMd*m5dpv8JRgS$+MWYx}7pn+d6;tXZP^PTN7^c_Boa79y-$
zups@U@$>i)6npW{JX2oHpRe&BE^&C$dYpVTyy7=M65sxoHx~-tkWi=rC|l86oNbPC
z))mnwQtS=F&sB`{t<w=i-Bau`BIO%kZ(|+uZhB=xzI1FM&Lir>T**hP1gJw3Qhj$4
z-X$e(YXB=KH=(c-VTVVE@SZJx5E0XZhmE|HA9qRy=FfM6?A+X82n?ZwTGKvR-9Ok>
zdnd9K{@hXsN-P8ggZ?2DGi;&lWpaBxTL0ae_!~RqlGh#$iu%xrj?KU`tnve8el4uq
ze3UrBdasa8l#OW$S%s3i%2y}MeWdulYiMfT3cbwC=XXOBegX)9n0|A1=Dc0M9Zn)I
zj3IVT4ajl!Wy>Tao{S#>=e|*3ZLU%;i^*{{;VA(6f`aQnM0Y$<I_$U$C1gk^F5Fkk
zvlL=RRU%DX)7iG&bXMt;A7}q*3oiaFTU*ySVnuiIY}-3bp)d}IaYwgE{Eq%te31-R
zK-<U3{d$V@DF+uIePB~qMa{=M+{Af%Ty0i<W>0Cza2^HscrQ?nuya#Y{|EmP5cj}d
zTE`vulnJCoqPAD7Gz`(o^N+I310_h#E1%J?7EJ-paP~W^S;YV}3`=uRd$qcfVbH@c
z!DGi1D%l5wtfa^mxS6wQj$eP=uEwFCq%e}MQ7e7;N#~gWM{%6*N)={g3vz4PRXyq^
znOhWaCEDyna3}adVI43NaOx_rInfk?$}C`Rf$zZKFCmd%u?n!KXLO8R?8wng`^`gd
zgiU%6jSe1OBpFrPs$;YFOturf3bdP+jcEdS$y}TMKMz~6<?Hj$x4a3pY)dA2{?Z}v
zrIM%Gq}Vn9AZ{jsG9ROW@<80{uh6WyVZ@)@!><$0J0$Mu>I<xZ1Q#}{^0Tep(XXYG
zkdJz0!EWA?Dc$&!VJBR>PNEDS;f$uSL(=G7JZ_|mVy5ggQCNZ*2UEdJ5i~VxbjI45
z&KY8=L^totku*<vR~c=m;fK30>jM`B@VC5J<C}QFP+N=45=foF8Nc1se4+=b6=Dw}
z`G2(d4Euj-;vK0!uwJ4I89+zpJ0thazx8d?zd*h#^f&+97x*_2-~97qP~ZG>=ZN3H
zegpRn{5J^S9Dj524azqk-*5cW^8ae8;ta4~!wmUvU|`fl7fJy5ukQeNq7s!%A~!8u
zgCdnE2<pG=KfbO0e{}xocMUA1X)dJ!MlAyScaqpcUWxp#(fvP>|6GYT2>g%mx9_C*
zAK?%5e+mCN;7_Rk3jah&qL!2eV8KL2Qm7Ka1z=#nogY#mg87d5VCJ%c-s710`DsM3
zNE_%^>g^T6Y0zI~h*+c1fwxJye%mg81?z(gmA3{WPe?74d%J-x<m(P-Gw@xj=OkB~
zIWQ5v>uu$8dn*&ha~iUcPO612lxEkp2H8KEov-65a(F#nZ)Qj6{_)}^zPfUd0j<tM
zTlNxwk?l7D4D|~M6{lW*Nt@5yVH0o}N46lO3mR`>llxx^bs@L9pvEd7G6Wx<C|%-H
z5?#f{%q)V59AK9l^pFQalmjyR{vqJKCv8gzX{qZz)iPNgax{)@9oc=EGsTEIaW{D8
zhz#dTTs1|c)ka_~ev_C1s1!0<VwPoF=*GeTr9>0S>6V9eCs3K)O*S@5G}-yKCR0Nn
zO>xaQy4q*rhrH89s0nza&}O=66fT{5r7ze4)(M!BZAnI%%?jr#69}uysd8)K1fm(9
z<pc`T{W_w3Q7|b!=*|qbn%@W^(hskC)tzOx&;%kOkcBL-%+%a9UCH`6CR`X=+vuhM
zTz{rVFrGguI0@R*QNBU)y|d@oZ0zx&fdEea_I%bDdi(><Aqg_voOGeG;3=2F8t7NH
zWO3rckKh&uT>2PoC;CU>2_=Y19?PSOfFvaX57#oJNeZB=5$)C&k5wyfZT`5PfrAWJ
zNRp+<i(=&d+ZzZ!`JS035m<Wgzr<~Tfk82-Ptp_QjSfv5o@whiD{1NhqSCu$rOR7W
zIRSI!RrVSQmPPAl>ZXZ#xzQ(3`DJj`M+_vdZnUya+y~UE<Fl}5MUGnJcyKCgXNASm
z>?F_%tn@UJF`tevqI<O3ElbCazjdc{g93nbU*_>Qr_$}7W~aHI<bg<On>Pgj9bf4!
zecS8wzuoQihcjWmgsF7A^KU*O>b^WdNG3#7G#~9it~D3YCBVZ5)=PS~7Mvs|brSJY
zr9KlK?H6^ZD?-V3jAq8P72w4oJm3<0xrKAJrwA3=ysVYvE%U>N%Tg_b63Tu>X^R1x
z>r@w9PK&$2p~YnY{5JOTo9a%$LxUSdCMY(lzX;<!jvygB_EcmsHLIu0MZ^b)G#nMX
zs~BmZ&44O=iiLa!T(fmAb3Dmcp9AS$&d)#G(U(}P{zGkYE_1`OZ5Gu&tE%Jjw!zZB
zdsQ;r$42eYpp8302*%WE7T2AtHxFl=<VP;SD>BK2>%a-$Kf6uxU7#NUy+V?;WGca-
z9PY{(@>o2<Ol;JlY6i%6%^4p`Ob8eCwRy%u6_pXZ4!s2olFh#9L42~!G>L%b=Bvcu
z_noaBrVY0Vp6EqPzG5q&P><x~fCY!Y8F3B{#Hjfu{B$xlO*Y@z5matJ{&}ADuET9w
zgwoX-tVFMFawc}@J10Q0yZg=`x{HZmeMN!pj%Z|t5h<Uo_J%Y)ss*X~fp?p*RdP)u
zyRQ-hDlHI1SxhCw45dX1vonNo26KPV7X1=2S2gPlAazfhm2}bf{Hj|UsbM97Tyyz{
z!h2ypT|eH4ok*>z2M%oTL=^YG=f_44l{kgYcbFu$tA!ZgGJ1f*@~%8^><4SZkdU$L
zHe#(XEtRKwK7>Z$l44tQQ_qM5b?Um+5bzY|eQOix%L(Pqrv<9_I7nkuaes@K&P)>&
z{I%+Zwg#Kw`bkrV*VAC`mfvZ$W*EWE<WhzRU{TxqK6@(RnpEHndP`$z#Trqo-nzWC
zh+hOrPZ_Oaj1z$3T3qgf^$cfq_}Jiis{Nub_!bhDq^D`lD_78G+H_@T%k;8)=oU}k
zP^Tu8hOxsstgGdc>a`SpT%n7DJCZ~=U)J%xznOdlH=qwhG{eZCLyNCTJ8UkpV%wD^
zWNL7$AsL*-NiQ6+;B$Gs1JeAz>n(sMi)tGA%c7(fJ7xh$ovK}i8*XAe&){g+%7vVz
zvXm6IIb*4?HA!`>H(l+shKNpwOVSR1o{ez%OUv1{xI)2i?15b;%tnCcp)^7-!h+Fs
z(1<vGoli>>;VGESl7@l}@eMTjpb)Pb<5%};2>epCPoSZg!8vn8(H^;^2k<vd5m@@@
zfO|j~qQn9!N$c5CCNV<H>FHFSS<~A=Ov{fglB}6SLSk=jz-YJz-f7LG+2{^9G@*qd
z04<SzT%(_`R%bK}2jHQBgn_w>G&rp=nSspe>Z#?}ccL-k^Ai-{BR{&}L2tHGk`_00
zv27?bOurtB3-8<)qU+7^MO)0Gx;vzKW^}X@=xhM4TwXYJ_JM|-&}T6{#$@YE_vC>S
zu%mtrb0-^_f(h7G2_m0b@Qis$sot)Zza=S?UC^=F=RH3K@KS8kWj*SWh5X0l&-42m
z@|{jSo3XgY`rpQJ1HrHxmk7BF1pC(BoUR#4h!#vDnX-)2!Iiiere(Cq=kIH2kyLOP
z`;!6SxvXJO`p%^BCnX{7{qn6M3X_NH>){mKYbZy!8RYP81^RkQ#Je)ddR$q8p)PWM
zUlzqaFHelaKwiniFiC0JbWd8J53t2~*>i_#N;aXE!~8R{5{kNIMi0ds?g2zlMk%&W
zmmb5x%Qb!KJ?!nP3T0*=8B(I?V@NZ4@ECxI$Q@``2-Q6@y$QB)>GBjZJ=ax*>0%&x
zG6(>OfS2CK<wLB1u~E@k2LM~DMa%uUm_H!UFq}&K3M-vJvaS^O0|z;GS@*-G_f&6B
z+YoF`J~@_T9t~%wZtD5HwjPCcVQ%M;H(d&`HQ{F|s(jVHoW@TFcpXhV3bh9LjUYh&
zz57Mh=!~L)E^q8iPEFLK5r%wj*M55_VS1a02`TdtFi7lskf~0BdNGL3jU+kC2G?9b
z;(LMCg#8c#I@;dBkj9FisEk%Knf0!^afb-pWm`YJK26RwGEg=A^zXqrO=Lt6uB#u#
z%_oJ^W|kjWCH8!grP1|)x_Q=Z7)5}}TG&#<wUT<c+?FAPMOpJ0F?&A2Xz3@0eJ2T$
zdO!+~Z#Ti~`3%Nz?E%iEYi$&tfzEO*&k+r&%HK6ZVfXsqAF*$=K9q((y`yks!c0v+
z80zA~eJ;TL%|u@MB(tXDOu!og%G@nUt;KRWDhU>+>dw-=8?G991F@!IT3Y}J(0zhM
z?oE<4@&p@9Z=QIGlS<Zw=7tDH7e;}Wk%e@sT@x7@(~NOnySh+};#T|_f~UW37w!Hq
zf_IDap}xig8k?z71}uu#)LtNpM^I1bM7{Z*V=^bfe0y;U%Z2J%mP<2MO2g(BQH1XS
zSreXUayu^9PWorRu|jKqW|aV@YPH^g^~Va?=7VS*icQpKC{OT((Wi1^o@$*^LQ|0-
zVIBK8M$7r|c)|+uIp9WNC5-Z-RDR6-DG|pm;j4r;47Cg7zy+=BzJR_<4uI;9xi!X5
zxA2U7i>DYzc|U7b^W+$a<VXE<62<_bD>Y6!kdtz@sniaXFsoJ3>a_wWQBlX+A|@pB
zbfC^uzm~~`???#54xvv^H6Op{{t*$npgXx)%a?mJv+obifY6mp1j#-*!DCS`PoL3<
zZBKVx@Rlx^s3Mk4ewQq%$g0sw<tZkxl_{yytPon__8YZ&U?i^70j7<4IKT~xc5RQm
zeOggVu=G@_pu9NUk+J}&eU+e)X&>rihRqI`qdSMk3QiN(!WuO^$1(_ClHH}X=G|{q
z7+J}9Ozcf;FSBmJFUM5&lz=DJFTqx2_m?3`j0vSGfaVcWpCbkVPl5J>QIvXZDdbQj
zkoKI^_QUkVNingUR`|%t0V0z7ePl;i%d4}Xk&QW=%jrrUgaiS)#Ja|;TnD61*O_d}
z3A~c)`GDLx!4D%!s8f>sa+nIV5l%(A)F<K-n7TR+<d6#~Ts@=xw<3jLc2qqwmL&?g
zrh<!U-vo81V2&TLf|DWd8<fl@M*aoQ62SRVgiCsE{#*2|-8VV9WY|CaI`tIP;OB^y
zUYqXTRw4L5p5Fj!&v*-65E81wc+!?TZSlT&q;Ti;US8KBzhE4}t)JR7D>651i`BT7
zZkOJh{H2Mv50aq7Ne?Rg*GZERYmwGBC&<M|P&N1uO6h04z`pu9+<=41Ft(jl&q3F-
z%T9RE1-LnUfuBm(^TUpx83*ZP;arO~A$6^p-Mt1<*6jiLDh=eKvvcrjzo7=#j8@KS
z%nYAoI$t!|>4!lX(#|r6Hle?;$Ou0BtMEn%5b#$ypiU)`sHqJpx)Y|r=>qkF0}T)5
zFjH<JXdno*U&<ytHe5Y#;SHMGMo@A{Rvx(aMpPWbwR*k`mxHCr-H~4RZbiC;LU6(Y
z-J}%efy4o18GA3PuQYVOkU@p`Qq!$85M!lv7`?FF?R);JAeQ1E<<q+_X{s7ls9W1_
zldi{$F`5h6Q~v6bU9M#E&H~Q>t`|sQm&Rv#&)cn3sCN%tBs32)ce@|rrJj-yq<ERN
z`YZ{O--K8ygauVY&rEl9%nSEt5ZQd+?~=JV8h`}6WXaT$%JD@(>MBKtwcTLfsJagM
z`KkpkkE`?@$RSNCzjvP$HH1p3W25sgJ9YSwPtmGndfv3JX>HYPR&=3bfznBhei&&-
zFU&$o@k*ssM)Q6J%e#TCtREbO-jJo8&lt?y{kli;E4+H0!pM5sEnqvlApcnt5Hv?%
z0Wbw1b|ts?1cz4M>Fx1UR&g+0vxmC`RVojDG>Xk2jyl{=TNZnXY01ud;jN<o6j1)r
z|B8CsI$Kexp4)9A<Itmn-C35+`gmQl_|_DCEkJBB?JCVhftfD=836{<iR1)yPF7_8
zu9Jz-LZ$uK({*9vjM#W<Z@$|~n7mV|ueJkt&M<Bu^c-JA__YF_jfpSe6R9-v_E3;r
zR1nANfN)M)a+)n@<omee+8uiG7E&kC3P}c1K-yhg+=6KG7e+0x;BVF((B!akJjP9q
z+AP?)&B|5iLt9>LO}1eUIHTQ5OtGJc>xk_qP%mMMEz4@dO0Dr;1|BRl@|3rQ#9t}^
zYy@SassBbd>49$^PdaF5tC1|9q{vc;Uo})DRxCo`0dPNo3K!KVW3mnIANx0V%0wgn
zvTRCtt-~Od!%Otv@uLCVf056~eq-7hxpQm}XS3a`=YJ}Wm>Vs_2lV38QWin~KBhf%
zDZhN%ONL`S{&Sh1v2#lFknVqpNsRgfFgA4Z4n<g?2Kx9?W$on42`?r7t3i%)uE<2p
ze_G)X*F^(C4*@ANAue%jd`C8BmDc8A|2)S^OyXEX$8Kv-hqwx<qx?5aLx7lH&8fXD
z>Mq7fJ;6jsY)|#eJ3G-QQ0NUv9?F6NCN1yCT!gZ?-t>rL8`hX4GqDA`GAX(n06Ih5
z0*tJPq?{-HJYz}Wk8>G39Tj`D{P0x3-KCK1xOJ6_Dnft+wDgY{x9g9D@$0(Um}-x`
zOQ9#S8@DQd0@SVIojWq6f*$2ekdsAdMlkdeA}=82?ZudRv^?u%d4HDsgkAVIYE7r2
zUZYg&^#ro_6MBSObNHXv3E+`Mfa;<{q~Oy_X@{71+ZYr5{%L5o$1Zs@Nm-+;T5ZoT
z66jB!hH*<%Bstf(MBk~pvXk5tZ+Sj7xuD}%9ZN2H)n9oF4%Lt9&R&>4{Brz>@Q0ld
zr5cD(xQP2RH+Bui`E^@)3$`Dd62KG0++2*R9Rwy|4|KmtD6VjpzrXwnAeIuDk#5j~
zEwHb))7N3?ET#{a<(Fmno_8oiu5mSc6GQvzynbuB(XD!0PRyVk^qx3XtWvxt&C_uj
zSr)-8{MzyJC)tk_MbCPe0JaV~&dWHgIihs)O}?JO<<ilnhzrS)_XrM$3yMa#38+rf
zh?HSliw=y<sEKrJ9L{KJfC2IGcDOFO)7`C_A|2KI0C0cu@FOg1fx1;x(c!IG&Y-w#
z{htRbJ<kly+O@4psjjz#+e6CXrOBPV2^lyxmfM468oP}<Y@+f@ah-8t;}}svmI;JI
zL=@SvJw%Y2+pIzVb=3z8fBJw86KaOm=&U5Mh=H47Fe6RQc@KDSz|}AOkFFW;%mrrr
zqTzaHK4^A|)!SIR;jbhZ{}h#~!q+XD%hNraa<J1Wx$)z&^n2%C)tc@_B<`vDNd!Jr
z6VOl>ai+n{Z-ew}=qRr-@Zxfnv=MuSqK^sAL~r(H8#|s}B1<l$uVpHPAn*lxwE^R5
zmjoeaJih`{y;nL3&~7ipsc&ai^E!!}Vx<#3mpRO~57C7JFTB;VBL3y)Qs@!KPR-Is
zcq1Y;>312vc}UVx8q>ik@+c7{d{Nd=!Qr&|3Bk!EBV$?iORr{biLnW0u~o`W6kL9i
zYJ1AlyQUn$tX(fr7eEUQvuRf#?5y04VHo=*BY7J=fNe$xP`e7sHR#VfyUW;~{QFZm
zDW7(MAi6KooQMLJY9(w<0{OGmqpdkWHE|r_B3wI`XTtEk)N~^ls82v}M-2x*4lwpS
zZ?eZ8ci(5<tBDf73XkD7@G}i2u_DLFj6Y&PFJP5gKI+i7=>tb^Th!2mO7LX1!gN)0
zFDc%#*yL9m0JUN}k3ru#j+VnT7wMVf6_NJjUZtv{lew#x931mFVtgAgCAlA1iv=)@
zA<4jMI^a~#cK6l9)9|L)WDvNNLgOI&t2>GOyd`Ca>qZqBs1q&@0$Kt4{2OY;5EQwa
zj?Yy1g)UpHgBK)EF-b0(l3&S^SMpd#-uJHAs2~g(uot)^1LLw<?y+%i9w7@?gem2d
z&LFEn%|0?ITWNnjvsRAAFs3IjWR?4AFxXECA`Q$;&cgC1?uSB8$)Z6~!4(2@)OqQN
zpPd#|)6(Z=N4PKsI?*&RVM&=?teN1YF9px*v(OEFr$64cQEO~+wUtx6#1bJu#rkTz
zF>b~TA*}?JVCFWa6<NPA3A^_De=N4*KMDE&BS0U%?|+NR|5^VPpp3xv)Jeeqah?A?
zd-{(4bDfE$G^D9BXTXf{_FxH=&i`AK0{=>VxC91(>wgCv|LaRrXRd(H|Hp`8{Xa(Z
a`(=ag{Aav@SF_+9a1UJb%pI^G=>Gy6Iz#vX

delta 11968
zcmbuERZt(nv+wy42=4Cg?k>Td-~@Mf3C?1{Ex5ZA+}+(ZxVr?`Aea2>oKxpM-G|#%
zpX#2O-mTev*y;VYpC7cJA9O4;!424d88R5y!$%1E;O+hW{om|ejeH#lcmaEVhx#|f
zet-K|d4tQ~-{-%6DS#D~TpfPEm4APuORqGFBD|Yz=_KV!d?Dr#Pfgsti@}_2Ne*Ns
zkD~H-&*>RqVxW&!cmApCem@p}%>K<{gM#lHns#1=P_&?PFESaAz2kl*l1TU$lPu=z
zKIyx9gN+utrbL731HghBGlJMPv?MJWk<Nz8Ong?A<9&~BUe$%E5#ID2tcyvQOiMWo
z9hvo!=jAVUm1(UQ=w_{#{<PnBpp|G26j()-M6y9bL!v6!RSg5VdZIHl@KoUM<vUdL
z$1+Wx`Jtw%Q0~}rY&<hwTuScFOGJ%2cjT*mya99!UEJCk2T)l4cM<YQzyjfgO@r0*
z=63sl4MKFJJ8_!~eAzz|!$&Nzv(if9b*usgYD(2BrwePO6*Yk_uv1Y$U$P!*QG^`w
zhc5RXZ|eF}sEsCF?Odjb24SE4=(92Js(2JHHw%U2fRtZ)6O>2ns0QjN{$C@3K_{#I
zFT!JLspjeuU_fK6pCk{W(uCI4xJhE=<TY7U>3l`&N}2o9Jfx>(=J^9Z=$lWYGb?69
z4uox}^iA^;Y~hqSO<pdcE<x0blbk7+avfBcjAirL*&n^7?@X(Q!zvm_l@I8J-uOb7
zd*St4R_&zzh7a#yyc0=c9dAKfx0;#?(ka=j{Z!R1M8H;*NDWf*knf;n+c4y&?7CzS
zMfdp6zEX=;3HX`74P!*;T))ZD)jQV_3l{$)59(++RkleCPk2dNsQ}SEkCk-u)0qVf
zh376yDW8SesT@9Aq~I?sQu0w?130u%Y>E7qL*^+Lv30XX%riM&W?Y?emHLrj8t#6d
zje^GP_JGzyNFv3Zb|Aa4a@hrfYW>sVKp5+q&HV*uqewjJfHq2>%MsH1WGE;$n+coJ
z#Y@QC?{GngIz}{;{sPCs*7Yb9eSb|W1Qc}Z_Bqy1Q<)r^b90ObP32VKd>v{*$jfrQ
z))%?<uZt1PhM$i`>e2amo=)!^g{ZeXN*0ntE5L%@*B1R(9;068qIK+bxd2a4jiFO#
zxBTV#S6GV4H-1F3)VxgSqv|E=Ie~pKES73)1&+_r!UoULAw9{gd51lOF>bM(8Tzj`
zPHkEIbhmghe<&gzE#VD!s$B_$-(kFslQso)p%#lUOab+zeVaG8XZ@Vf@MwMxPz6$v
zAb@yB&?i#ncvMF(fz-VukocJ~Xj#4m((zW`<i*fj-Fmhvr_(7p<oyK+E9uEoE04?!
zMq7N9>094WMER}mv@eq!x$<0!qlP}tksV<#x_Wd*Wb6}+U#QdVj>{|qSA)+cf8O_t
zvd9i>;qHkPs0YaM-4hW$FmL>-lAdYhe86fiRYkk4_*eMPC?twxK~L<S&*PoA`rq3Q
zsW2`pXEgIv-@#HfZMO|#H?7?`6B`xxnlE)rPu74{DJm+yie4)Y;vE{8NYH>#5He{0
z6CCRWAmnq^cI}2;eE#Km=XXWKBgcle5T1;H;OF-9=@RM%2+~)Gw~caGUm722TR>oF
zD+N;ey84E`f}tIO_66|E2TMExohc2}Ez|tULTXbEk84-1+RF=5GcVNXbo6SaNdAi?
ziPb505Jjzi;MaCeYZg;)w(}wr;%|=I#?G6knA?}@!Q{WxaUE&Kam1Rxz>9vUs1v>@
zlFPh_`$Z*K-ebfHQ3=|2Fl=AF0kFUAw?aw{(4>fuTSU06|E@UO#?NqG17`w%(zmOb
zz+tt?RZfH*!-9Xz6RMNua}Zo*yd}#0lf1gmh>FTUEk6>+TAvi%+g_z#Yk+LlZ`MNa
zIvo~_iUjY};9!wXDA3A`ZZJPK93pS)r-J?;(^M%fZ)aT<5v1$pGY*Hy6Ts6MbD}dV
zd*{i6(}M)v9n0%nIwA!}g#W&hIAd^=Bi2#zrX}s-uy%IeD|k)J`kE`^I5`TV_2OL9
z99fv*I%f=AC0=ff5XyUZtK%7aSXZFg5SFs6>r?a5E|}#kyfHnghxsNDrII#;f5)d9
z%*2Qo&25GzeWha&T}I7b4$tS)D^e_z6qjrC>RJnp50ZrbI1ALkoWWed48fehEWzwQ
z#zY@Le836D4aV}}g+KVZINQ(nai08(|J#KB1<INInySn3#xS-3O$+Gb$PsxWd|z|_
zo0C!)wW=6`g4iM;jZ$3Lgey<XObA{P04*7unO{nlFy-SbkL6RYH0PZJfercmrQT>p
zD?)E(=dbMf57ZbVE=87elui5}Ns8XL4`ryX`Nw6s%brn5f;!+dKkuS1`Bs-v$Ok_S
zqzsn~hcPR?FP~fi^woYOzd}-HI3+#@?T$*ZinC*_*rJ477~S=BV54xMi8{kW%pzOE
z#mQA#98$zIhw4E5oz}6hx(L|yWA5m#(|m8oX1%p+En@$9{SvLf9+1g7ze32uNe!Rm
z&4!7F!`iQa)&2+en^2INX6Fqbz8HSJ>bS#S$NRJMm8lA9fcwQUeIzj=4vi0&52J?Q
zyYts(g)V;OCsf5?CmFf}rWdiiy$${TmkD^UtmX4{XnqPIFJ9^qE+eret!oAbXwLnT
zQ3TUo!j&(Q{N+$&<<!@(PBC;nHnM)>-O?wH#scQQL`J0{@OcoPL?PJ(19wRwpD3FQ
zB>iRW{xIq*046%n50S2-0bI1Li+Vdo*aoZS7^)!K)b&O0%JZWwTYZ9Foh^q|V=_kb
zWz{oclAIVmv<S2crUZ|B;a<U?@Q_4G@sXTRIo~mkx@@01>!7=wjtHm{eD|y=y>41p
z0%PFw<HCK8`e(H4U1p4Vw=kCS@rDSq7i}Hv*M|z5fv?@}8!6J$*8?&#sYG!T5M=^o
z1rMrK6f+Y6XEh=udaR4$I`66RE>>o`4}^q|nTJG3UE#q@w-2waLi$Vh>XYKda>hD%
zY+ge?Baojl?c2CE>@C9*GbUIe>z+>Waa_r>7nubDvv=?-#E!Hdn3)SPI;Df)V9+Kx
zbh^^SfO&@OboE?StqnZ^S>aSz4mpSe$ZZpvHWcny85oO`I8AMmUQ~~>Pds`JS_oLh
zI;*krurx8+6l8}#i@KU?;WEK+w_8_j1!YZL(&LKfGUn@&0`NcMR~7#NeX|*bNpZG3
z@Y;hpBKp3+ybOcb)4S_@xP_qx&5!&j*)?@#2f&LDmlHc|ZSX^p9+ex}!d!=JWfRAY
zJwx44z8CR2hZY`C^BLL!SweQC76PGNn@L0O-R!ooA!;s>?Xu4SUXZgl^|_F>X(b;Y
zGNN2~-<-@@gpx@9e&SQSPXB9SWkUiOb~evecT*WW7?H0U560$;X<*(e!c?AVzUJVl
z0P8Xsxn6hkpXE@|G72DW&op9pum8((fy8K2N=>h#c`q9^Mm1UDNf!c`<EeN$(VxiI
z#9umO)w-0c#L8rmckuR-kqZKTdl*~lHMZl*1<*IvEG`F^U1t(n1EMb_=0)|th!lyE
zT)trJv9E6gmV;DPAl}9exCc%a@DLOc0RoH{=I<w5ilwzulC|dw5=5k;6wQQ4P6=<V
zllw~1zjm|Ib6`QfAVT`;M)Oqg{)H*3o+7rstp{i!<e&qx6@r6+5tZM!f6o-CJZ#;r
zH_<OB$}?H9A0#Xv-m%HW>(F!0d|;uNMD*X^%xG$6EnikdxZxr>{<wkveoub;2_)Pn
zCcNzT{9IYTh1k_l;X#?=q$PTc+U2ar?S!kablwr0=v2W@tm!_&pi@zBBJ_4l9D&``
z@LQQ^lu>JxHhgE#XqZ^*rg2HrwU6fU2xvV}h2n*3$%Gc~dy`~vg7NE=Y0%KsDj)6F
z-lZXUp4?%iQ4|*te3MV#)#uM32KFlBD4)bMpi!r{;hX{#YLlXAU)6}$7?_W&VlCL7
z#x1)(c~Xd*(tKtt$m02mYaMIN&3c`B*+F?p3K`dD`kn0tNBQfsPv%ro<5I4&2^1_{
zMlyla<Y-BiN%b^2`KVM(MW2L@>sh7fHM#bBv_@0+*s_M23fYac;1&vhJiu(BCm%sD
z&@Z+tav;6_z^8K<2aX{dvMtztHyA&p-BQYrA+r$ZE<c!K{_^d(!G*1#apd~AZoek^
zlhAZfxfE&{9og30Bq)4=`o~wH-x**LX^SV#A&-rcuZa`C!U9pb#s3c2y%^4ZsefwR
zmQWwT$A9@b`k-DTnb6_%b_gH^|FySH*F582{8N0&ALGyD_=VY_?CPkO8`Y&(YVfbj
z`gaE8cXK%vlfb%x?ljc^Jk-Ftk>9U)@a^@FX4GeQ22C<Knq9S7`5uL#2A2XI;-|O@
za1oP|j-;zZqkPD=lNZ2eEO<)5^>z-tn61Py+iS5s#W%lZDK$G`R0rr7P&Uj(YNTT(
z4SdB--9V$yFTr9RZ^*^rKbZEg>e{v)Q|mv<-+m}nTE+p0U9T<2m2ISk=|k2^h(3q>
zHn>1bgz!PaAnJBjd6Z`?HDt%cp+4C^y9}r`yJzcb=keo+fuPGyP?2-DiPqj{=XEY+
z*(%QwsSz@yug#plSOlD}xxl9unzpD1C?E`6A)1-YU++#5!`E@s5j~zc&Q-)N9`3h=
zJ6$e%6t@>i%(3KdI9gcJVtdvo460Q*3jJ0qq7iL`8I9a<9`iI2@T3)V<%CoTF1&dC
zkyoD{Z>9%tvN=_QW*+{+lAY9SKLxmR$czNKR!v=ZI=c{j$pjMND3*ra-QV_nJ<$nJ
zQH0exWeZ|4s8DV7n~Vm)=<VF#5nYj+jF}{?%Weyt_cDq$?e5t52Y^o^SpCZxo!jNG
zHcm0^p+sHcgCQV|Z;r-{&96oqm0UPA{!VYInS;kCv4&3fl>rWOv0&(=Ik5+$zbz<*
zajKD*3F5#v0ie3pb$*x?0^%$GhQj_U?^4nm%LMmizN*_T9lpM8UR?oN15*ReB*#u|
zeTq8L$#fz@_IJWRrtqcwb7Mp(;vHD!Snw5iMRuY^+qHMGSUNk=L_SXWV_J_%Jykhl
z@Hj0t0&;kwZIIB;MvOY@nrjfnJMnXinu`xNQb^I-UjawvB`6buYK`gsyL2Yq)#P+P
zS28pB7YYLCT+?HRct6v>uAeuuCaR!W`(Y}FZmbZz=<5w}wD2JpKj9hZ41cZ1cw9{$
z_t%|bEZ_I$m!Qg!FEhw!$PSpSj3Zl4>g+&vT;d<ro5brt)J{4T3NibpEx+u*VFceG
z?4XA6<^)_9H#oM+)%~<!6v4xMGf=w#j)V&*`PyI44dwR&*ETPayG&qdT|h|BNnH}g
zb}hjMB;4HtKF22_-#seTU%-hh?P1;f;yIQ<q-Vm}>7Q~PP4O@jX2&@dIpoVoOf1@w
z%l9(31VobfoghL{GxjvI>y?c~;dih4K`w7Xq5#pAgJdS=%erA;7R`D@d;z-}*?#Ul
zyN?gY9pR5PVuN=cCt>=b%dXMW6FXJ97O{gPTHRfpIo1coAxu#=?sXSE|2>xeC~Yw&
zM$w!mNYj?Q?`Y!s<YkyAgnKwq!o3O^CYKzlu!^So3nNhLD8r62wroQM0WxthC}S@i
zb^!lbnBFWzo(%`4;1;VuZsO+mI_B<Y9%;<Nl{QA|_pJB)YX2F{qbMIM?v{t?1c7g=
zJ>T>0t7H9JhcDgiK41TUqWdltOHX6~4)Pg8MNgH>$u`vczVITWPDo-4`K&#4>yF{l
zJ)g8B4Yg#_8$b|}4sFx)714s`Ub4V0mJTRA^X9u+steGJ0N;G_dcMN6KnZapY9wve
z3dY<cdeo(UyV!nVKf^Q*FQdN~H?L~{!8TY0lYy~3lRnqllkpYOP${a}{M8hDzZjn2
z#Y~(m<FEqxN|j=yfDAcrt+HFQpGy3c$0E4h9D~iwGFDF)Jg6^1jk8tN?za#n&KOXe
zW!Ww(dI~VZk3roP9y&2XKdl}2Jw$t68)@qI<;n&BAVi95w@;=ysKGM+^E#ouP@^^J
z9C=PdEQpLO!ZjnZr(^Us-h<iJDJTFd*JvWrbHL?Ev}?B!T=oQhcJb53ckk0pIbI$5
zd)@W`WZOM59QVCzgx{|LL=FXC(+nup@}Ykfc^qap@Br$MXD#5Xq3K?_E=X(pX&>au
z-E^L&%EH2cP_<ViGNgbowH|Y}ZDelx{R;Gc$e_iARwc=wk1WU?L`GY5*ZX^^f(JK(
z8;zaTn7k5dmC3{)sL1L(sxCv+lgvv&R5B^ogl?#&$PzdGHI8xF9LusnIoIc5i>eZf
zKaZyk$f}o)V8E?9Uv0HC7xu!qp0-n1r8`^2i?>K4V^3S4R3coRXZo=)sUwL=$Qa;_
ztI4`6BFi>s_aaVnYP%HhySrG?YPjytIV3~|3*!lC{>Il<;$?e^?7-aeOFr2};Xknp
zm?3bg-}H#(JHk=-Un^799R(W?#N3@;qpInJ01RthOuLxkC9Gvya2zQj-Zuk8DjsId
z!2}`2qT88+oQ?gOrF|QrrnAl@TQk?ND#Q3r7^qO|Xp2tGb_coRniIWyLbE%oFvpdh
zAv*i6#_7H^(Bfv(NLGy^FO=B0`rW)4ACo4#u#9xVk~|PM6n{gpLSX(z%g+5)v$ZV+
zsOe*ebv?ge{a&ge7fTUQp~1#Vr%)=6a_Elk`_a~;WjaUBWnOT)r$4DGi#}*(aI&f&
zoJQr6cu4#yZD^U%0G7B^*Y;1ko8#Vv^>h~HZcic@yN46F%6JI=qJUanEV{G*0M-KK
zCVMq)lGJ1e6D;ovH(CTH-Nd;DuMV341k||lQe8KuBRF7y-Zrv&u|NhLKyO(%hHE8B
zGb7#P@ZRaGJQvw7)c9+o3o**r!8_+fnmvJ!GkHiX(HwV+hVPOM>k5I2wIZ!1+SHWy
z?}6ZeQ2cRHsd%-7!l<(V)r{_89E`O^|H1Adu*2#LJ3Jw@HQ20p6_YF!J)-aPmt<LA
z&ta88&IxGxbM?(U;zh158Wx$x!{42m9C4h0$BW5%!lieP_FH6eiz_<avhstTT-J#d
zCC|*`T9&BwIvUzgQwnJ>$+f6kFb*m5W$q%Yfd&TVI76S68K{Me_i9yL`OgfR470S*
z+$Rluo0=2_4IyWOzZUJm@K%2fX)t)w?gLU9(pUlIie@qO0D&<Hw%@le*IzXg`)C~k
zv$!CePlTi|YS-*`JRbL+Yklm@0DgQw82kFf-x+A&rv9!}1izR^;3l%B6o=M?S^^l|
zv%HOj=N+=@y1YJJqzEOnn=?xoPj3S4G}ogK#i%u+EG5B#4>u^>gMnnDGqqlY>Uy3g
zr?r4qLyrxP2wneo1gNTI1Z3&(P-AO;<8K~R1BQtDm=Go;3K?HiIV6$le(i`&8hQS4
z*Z<i~p~0{KX7tqVOsdc!V{vtV)Y68gk5r?YWUIObTx!2?OPMNL==1BB_5an>pLp_N
z3Dinqx-OHV-gG#2rMj-6Lt(n7%<BNz)8YbI_<h&SRKB{k<tIFG#X|22$~v_~gF{!7
z(|sY7f8jb9E#aYHb`118$0@I;bE3g}A4?>>rW2c1ytF1v#>H#PP`dR~^mztT=oFam
zstnc}{tmp}-!b>m!O&nLjRXEUSt~Xf(qCOhIHe_8e~6%ByBQhP(^^dM$xf}HMBxDj
zp6*#pjW~XmX?ac#mO1Wi<K_ZYTjHsr!ok@<Qk+sJdk6ft?@r~?`UX1#5Uxyljq3Lq
z&~=?!xxiR}&=2x#?$p=0vsJ|}&t@z}Mbgioshh7G>Xp<b*Vnjqr$xR+9xvjv{M6Ik
zpH}zjJI=Yi*%-<g5nQR(@|=%zIHCl&{97#NYvM4fvqj*1Un<1U{CbuS?s`Wp%hX<b
z707TXX}IBeXi~ztUIT0`cAYL>1yGt);44;8YKnoaawWrvbk0w_!s%@Yy3<{$-7?Y~
zt$ht>)sGi?0Vh9UIPrrZD&DvoToVje1q>-;&`WVD!t^L(%HsRS1PY?Rbu0s+<f*8k
zv9+UN12LZ{^iLSE7ZYr8(NgNo*}@3BTrTf`#|s}=nu}2^czct{<>6dH!vi*4L_Y}R
z!lCawy=>48`}J!f#)%C5{FQ8P4fh86trzi1@1(05Q@Vr#0L?Y!PdXL~--ksF;l6pA
zmt@Co9Kl(SQhpRcUJZ+eH7|L-uAkL+O_On*{dO8KD3@}$V7=m0#*!|MGV8Y8D9;lZ
zf0=1$Z?#NfGwM4Y%fE&mQ{pb2LGG%f*Pe4rG|uad&Hc#FFi+g7ladPeth4*5^pa*l
z&A>8LkelQt1}OvV17+*)Z!l}%?MCDGvHnyILG&_UMB%qT>0I3~)oD#AlZ)y}WbyJ@
z_>9J*e&f}~)!%P9x09rnwnKo;)xaB2u3@XT#+suS7zRnB@>UN79bi&826G0Th?KrQ
z?%61}-Fhu`)CIZCR(2mve3B9OYud6Kqz70fB*uP3+(+Mrur#6)ghDOUYl}6;b?|QV
z+!bf1Kn0TFvE}s2aleMCz0l!9*!IuAUQeFo{&B}{9m}eRg_31@$P-7}5-6Uxby_TT
z^4}qXU5di$q~}74Q!o1M4=%{`ri!R+N254U{+rehl_QnaZM!(ElWeU)Ya(i4&lONi
z`@!>Obdq2Vz2RYf!SW7cTXby~=XJ@3)OzzXQh`;Ac_Ok5L1cv|I~x7F!B_>v>rJ;>
z%H%t7E989ejmdAZa@uZFX7cS*isK%C4xP97+f<(su*qL7t*Y&SS))Jho}j9aP^(zP
zY*R|=rysEfuK)>Cl=xAPf5lJt>>hxyqW`F|A!}6DtFaSmXm`}}%q_gLcj>)tSl2)e
z6N4?>p&!KCXtx~SSuT4mdKZ~t^#>>2Kxa1JKZ#C*ER+b^d+hWFS^B$@gWK4u&GBp*
z3}ibc*(G9e+BpR)faa7e>oc8A$6Y>er$4kuWM3T~5$g$U#VJqO+8K#={0iZ45?ByN
z>H^8}QE;rrdyrZqRXgPVQvyNV$^Y^3H>Ca`<9Jsxz`*b$NB&=B@?rm4Qs5uJe(+CY
zg#6(12mhK<|FlS$58yud=wN}te}M1-;s;0{9Di`~0on(zA8oCFt*w8)PL-S(9E1_?
zN(n%ke5~=tD^bbD^U}iCeWeluM?d(O`j`3-l>dqYOK6%(Xh7(N@$Ka35dT)<=gEIT
z{tJwf9j8EEao{$HUmx=R^F*IME)vFx_XPKhX9kA^;U_;&gWjOM|84WblAC8i!bNi+
z5b6KBxt8pI3CaS*J68|YmJLO2%~y!;)w4QOloy#iGw+#%tF7L$xD{hnIZ6fxsw;c_
zX_FNaZ`*hGo`&=MRNzDyzzAnY<5?qbWizv_8lB1`K3gN=2#h>y+4Y6Br1j9PC<xU^
za9*b#*1ZK*m3*0I@VlGDNyDzwS>yCyEmZ6?Vw;|>*@*;7Sx;=y1f#C^5>R%r^o@fj
zpEDUzkG=_?65&pWg(+gHWMx_&J5OL;*E&<sXc%(AE74yl+VxcQRA7e=z4;=PqXqe!
ze)W=L3V5MPhAX5>to|Aq`wq{fHoF(Tsks?agS~eewO+Z(mZ0xW>0{@89mc0S5YhM$
zbL@cOJskzyj<&vO%fs^WAGt+ngiRzKPgdsngX@%HB4#E}jxCAw`0xxv=}y7opfBTD
z3db(t6LAm;p%qRSbYYu#gS}-|=A&@>;$X;o#XA&kb<U@b@$8qAHsWkMwEoE^(wz6i
zBvWIXE*g>7Wu?iyXJLkmkT>6CL5RV-N)(*DBzprwcyuHyNd<gbhT!b<uTb>q28*4C
zvJjt2&3bvuP}9TNVK9!0?oq)bm+!yZEHfj&gY_?9HYEkfS=`w9d=He^^t(tts=@k9
z))Zya8!1&W6&DoaSxY*7@!Nx+5p0>-b~sNwp4jS+1E**=Bg{vNvlB`B%NVYH!dvg<
z*>n<cD{the{o3q%wHqRbKC43#eXx@%BL8J%Zmcw2<lH&r8^)ndfv6RA(N!(}uk0(m
z6m_^cjn?N^x{O%sB0OPvX9U9wrv;?*!g%Is6;dZ=q9r3g^F8d=MH?oQXv;$l(C}!w
zPB86L<1at?MkzfHieZ&BUt*i1-JOJS1yO2%sV+gJ(Y%>?PyD6}YhW^r`l6vcYs`Ya
zkIdGy+KIij!ZeL^ao2s;Oc*EV937VQ7Z24^V!ufPerQ((uXzM!4O|%gIXgnBo>tot
z^ekzQdSg(U(1B1Zir@=t>$-g-I1NcnJ-7}yZyuEMYDKJ^9Sx#DTnX~a=_SjR;=(YX
za<Hqm(rAKuGc5kOOHxfw!*UCXeY?P^RhV1<*mMUune<bAh6H2NX<yz-T^NZ&Taw9K
zRp!I4H0`Y4+TEt){Z&hA6j4kgi8t=n-uHF)sM8j=^rb+gF8p+q=hK8Ayk@wEP|U08
z-*NYn8tJzVvX+TNo?wAJ2rleI^Qj<UuiN4j?FTY9?RNxIEQ6Xpqtoa^@Y{Hg<ioup
z*j<MS!d497*!X31v@dEi8<O@iLP8HX__)IP!nEb6R=YhL$K#|;8u`yHFGkbS1*uOz
z{972)?&8s~1^7rX>Zb)9t=Q>kq^}hsk-Czs@P5_2Vv{7?>I|fmn04v*Z=8JwA~TOk
zLLU0104G)U5<Opyol0S$w^O;F1dI>($umJ9`6j~n9X&)}3iAi^KdUaoO7kr79>JB^
zbM&g8&;sK4l}yX6YD0w~Ow2pJQM7VzJ2RHylG>h`T979=%AP7grtDjd@Wwo>;~c7t
ziPy_E23>)|YLT3o30><ROO9v(au88EU$>ZYaNhPGT9@Kqp$mtpv6eUvc9y8Jtp<mI
z6$`cnD3<uCk!T4-r65A6d#HMSBbO^=YB~97ZB7Q_c*2Y*xjB6g^>jg8iu!7zKgWb?
z-s!_E`O9E5iGHsj_r^GrC-YYVW7eZ?GFs@0)(iB(lf>3Wi$6KVW>upAPUYF%hW_Gy
zIVH&_%|v$6j#Q@{?ilmygyM?J0`0N~9vvr04D4ryVO`f*`<>I`YCO<}s%gDN^kD>_
z^XD|mSRrw_yR8;o!h%Y7ancsUeN096YWr3yx}IAhdqF5CyS$Ke<mbSMw4pHGG7Rr?
zR@|PN=Gmd3YN}i#{4Q}|{F?7s!5*~Xl-|z=r^|TT<ua*RImYl1;S^oiutrj`ay)fz
z&3Q%{mpicVsUWg8;}<!aXFf>5)fA#RiW;>rHz*ZcG+5%NRP^#3LeuxQ`_|c>wIizt
z<EmH?Jf`AuVfg;~qYVsDF;!va3p8+Rw6piK0P51EdbkuYDm{QmT~=%kSsdkzS7K%q
z{p650)Ety=y^oE9my->RmGuyc8;f2z-4E>A6TY;O;tiC;ZH3?JlskOtb`414bzuz0
zW!y%6Vm)nq5Pk!=HWOg9kH2Xq$>y+@2G%dT^8``Fc-n60RdM{##K-9=-W#SHOKPHX
z^~C$J+@J~e5|4qWQuZx$pJ5$!)(0qskfPHI6EqDY{*w65j6y~M=!M`lvpvWaAqYuf
z*q}5?L-{L<Ga;LNGG!NnlclS~UMCc*Hbhc+I+^JNF86n7dj$7B%bldL-ifxLggrhf
zwLe<~;qWw-8}nMqkmALP%(q<jihNg`+rprZk2eNEO9?cu4|XQQ7=~D&4A+8H{()S`
zMBIO-xq>(cm}vq=snnnYFqUoHUW1yc6g18-jBq##MmL+=RB}?%DdwMiP5lY5O%^AS
zieN9jH#*(mD`vFnPyR;qXl#LDvyiOgui`JPr)fh(SB)$0$S=V{;_O;lt5H##t8_v}
z+P{YlR0A2>MT4d(G#|ZE@&K16<I;_xm$c$nUMRIeLdgj=))aT;T$&8kKIV^2NXzh=
zVP?x26rVLUgpa<n){qVihnd~cu!;8W+NA7hB1z#Ap0O&mv5VH$mK7aR{H*`2v~#oe
z+7qlm`SsIX!#&6EIw?TecnTV-Ppf=8O$p0c6KE+ct1CVDjd{w>=3hPpoz*guKsh;%
zEwJ1Xyx^z18w6>SG^zS-KbH7F>5?R03+N4Mq7}B823zqNPxp)4l})Ro)<hBZD1{~7
zd4IacSL`n}VMZ;B-x1SJP{TKoNvlRohn|*yW?~yS^n7#MeA-C*6D*{;93q2{Ffh8$
z2=tz%9v4hH(a<;fuSzL-MoPt5jvU)7;J?cA8YC=|o+_8c@yJhd@JncaWt*B8fsPIv
zS{&0h#fpa{yX?tmI2NLYg!n|cc~JvRa?JXpGu9%#%YS#6JJV61rMU#JcB#wIV@SB+
z3GO_Z!7+f@hBPQ<g{}X7_i7$oFB1tU0qzXOH!|GPxUm+P!fiz|`A8obr==$Zr@CL%
zC)BG7PI!;b9O6#%D#&S??u}zGTUaosn6nz4Vs_9a8@G_{)4$MijU?@HU2+XGOY`Y`
zYwIOt(RgiHqW4@ci-ghI*>2vn{+z6|36(w{h5_a5!`C?0iUESGkhmCO52LDs1X_IC
zW;%mV%k%q#cfP}|^ii>^KE9%&PmTp!Y53lThr3fFW@>9M=nj(f%Y}|MxF0V=Kl3Q^
zxg!mr(T;W=Q-<X3mJ<->OQp)Kac8J3?krGRj)HDYrS?&k3c1MIA1ijneuHy-he(ZG
ziF&uJgLGRJ#p$=&*=V`{e0wbF1ZcS!X$Aa^uEfo<DpZ6dSf{*Q)z<i=M}rU`8TyW%
zE-IU1+!~`O1;xmVP>CS=&{&3pFWHoFsM}@&PTQoTv}JTs(!U=#g-o}d%a?}Wc2$T;
z(4s%n)=4&Zd-o8Ucr1#lStpxU1O>S)P{}{|><!Tq5{B>1Zb)a{S}AWI1Tb%2YE=A|
z<$|4%R`;9^+)T;OXn1R28Pi7HX@1jd+Nu`cwSW|OziP$cSx~^iqe1QRb>LHBpRUzK
z@~Zk}t!pr0hTB=mN18h9qDv`2w&?$B{#UIs0<95p30H-mWqua}jQqLX(<)AfM4(VX
zO7mdu<4@x4{l9P`OJ_BGW`IDs>iNyyQad!ZC{svAY~#JdR!gx(F>CbzdL^-S!qIQF
z!}P57FAVEq)scAkMTzD;Fbwys#B5c?*zD_>k5p{mbveY03aniZN=KpFEj3SNfL&_k
ztHOIp_jCQ|o?2m&V3De>T+Uz?o)YQpONfZ1M}NQ4TPE@qJwjq<NFWw9J#3F$4AqxA
zaWyOzXL;Ri=g3c0WU-_;rA;>}KKLe~1wx-eDD@9y>im=F?+f$(Th65~JcUfgNL!1G
z&3Zp~K1JdJ@=c^7<lVOctu_6{ml$`7n_*OYBwFpp{jha{Q%Rmuk7^h53<|;|f|xP;
z8(RlYEG1;@rUYNJnE~n<n?!mksKjbcJRVMq1>2~~q8ca5%2?L>ql(p+-N#=w>m1ko
zh^EWfDJ|RPIt><+zmJ@wR&DpBrbF`KG&7dqxP~{#B3AM-^WBPxv1o-aZ?pTvA%J+U
zWOffy?my2D=AojTvQ9T9yhycL!^sq`$@OJQlTO`!{*J4~1%Q?ME53T|!(GQO4~k>V
z9<n8CMdF~(Pia__HM_~421P7+`Jq5XOU~CUM>k%MTw?{Yzz8wES6x<-ehBM>vj9^S
z6I9;?TH=tIgs^ZuWQw*limPnxQiQ(Wk{C7JXbVT@e@gK2)xzHtAbk5|O<m8FX-D5m
z1({4v$Px}nje&L!!5~h49WrzQ0?B*9+oi~}nF@r0_VdVWv2}l>S21tyL%;#N&sX7#
z64W^R^&94Dgg4r*ABJ^-N^?r9JU)6VrGryak$qy4u^qA5ijH%w<;>Qfz6>@<9Pywn
z+SQv0qSgS_q%qKod7^Qbo$vacOJ!7Jj}^G1)h(O=DKN>fceSjgj?-~+LmCW(BhD)U
zN~$XYZ=$+Tj1r%J2tmN7b6H?hmmx^mb?bb^+KDF&kn>&KT6kmASYBJ#QSG8}MyUcn
zv-;u+YVSxl1%AKJ<U27`VLJD~ikBO!YrIH~{6JUNE&Gwr!jzc=_9cSusOOLL*>^XI
zwZKiCOrYUcw#S*=y}<=inTmZlnxlaa)5x2nVC5ASw8FOwogHx5W=y2$;xfHpN51(6
zZf-H_3lw_y6#Sb!W9CUs>L1lNKPI~kljP;IjnY($*%aT^ju$^$D9vBN|CYZASlM`e
zi0}7qF<BmJ+F>lg+BImWa5$@;FVU;7Ek}^7Z3e!VrjZmXh)JwA;q@ggwg*MZOj)^3
z($IMq(MEI%!L#tZZdr&g7R)or%8lF*YxeAqb({yhASs?Pg0%aZrstuH-_8+Fk_tK+
zi=nQvhIdAwj}`FDm(o(+Qnlx0@L@e77o%o_m`I^O$D;>52T??5i_&I0eEPF%S6LgD
zlz{5z`iO3<frP(b3#Twf^OBdFOGJPJ(Xq!NhE#a)&aNEoo&t*`%f;W_or_bRHpAwT
z6z*Bk31sj?V!x(lKN+G|vPZgO$}yidxENNXu!Qoqeh1e><B(szBADEzNGoKOv8^3D
zPGu9*W!(H6c?F>`So@6AG?^7e46Br6asgbX4(M#&jJ&dkf`=_x4kJT(E;dI`CGy;K
z#y#1OXpEuej+KaKb_|7`;R!<BEzQo*p;w28kP`|l6o(3`rtc213HKuLMj(t-<~L*C
zmxiO>zcV`$7clIPZKYmY8S0g|cVheHCnJUB%D7xBL$P?=?_whyEtcjoB`03dTmW6l
zksK~b{1gKgN4vk!WcZGCL{~mVYaVb)YP=_E`Z(0?lR|IA7pX>J_K~-wvyWa(4+$WZ
z5fQIUd8J*vo*vZie5Qi-;_($Ho4cna-dScv7j4Z)dgeLw?}bT<O&l^>ul+IDzhRWb
z$AVy$O)N35&AVTiB~TL76Dq?BQwJ>8Q``8t<AS#XG=AIlD;5KAIqi76vp?S33SYh9
zw(K1G+&=z<jb{Ej@}8hNoXXaWyv{*ImWLCpF?_~6r4OurB!3cOd=@&&O5v#`pF~DE
zx2z}_A_d=9arr{WF@@^B?sAkaN(_r)zVarE{u-ml5GTrlR}sl-22Qw3DFPS?f7%O$
z=8;`7%}{0~hK<R#K+v^8qD@Au|5MEBen7S<^3|amthP!zMy!Rvwy7!$Q<?--T$<^t
zG*)BRp3C*<jBYVZE6;>YZ057CLxlnTfZcj|#j0v^_Rw};UgJLalCtBEzUDg@N!cIp
zh@18vfx2i<bh6zPP*uLOgD$}O-!M+tr+E$r?S<DR`U5p|tJ14w`S+<4qIAus1&lk;
zHq&rDy+Lp5o&g(d?O)?$ZMt|=!b;S(R^@b9SyfRk3b++_5XWF2hxIg4+8{OtzR*g1
zo#5j22rsGBfO7v%7jl>a%%Yt~6z9vtL%)UWSbrfk>Ard(qBTDh*9bXV<MGue<N>I{
zxOUV8{XFQtmEINfvex7;+Hp+^(CkZRJJD%z;I;@%1^**Ib^kB<DgGJ!4cr^9?wKkL
z1Ug9ezW|}dm(Y+y{L{9Q$4^1bs{cPC+vCSw{)ue&AAG1`|6~74WCNKb-<^Q~NYjrL
sr~lU4lBdr>XaAR)hVdUY?IY)(|8LCx?bjx`Wfmm#Pcv)01a-szAOC0PUH||9


From 7979b437152015571dac84ac94a98422301dc4f6 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 18 May 2024 09:20:13 -0700
Subject: [PATCH 2/5] --Funcionalidad 109. cancelcion con pagos

---
 App_Code/ClsClientes.vb |  3 +-
 App_Code/Modelos.vb     | 80 ++++++++++++++++++++++++++++++++++++-----
 Ventas/Ventas.aspx.vb   | 14 +++++---
 3 files changed, 83 insertions(+), 14 deletions(-)

diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index 0ae7b54da..b991a40a3 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -1338,13 +1338,14 @@ Public Class ClsClientes
         Return Retorno
     End Function
 
-    Public Function GetVentasRemisionesPagos(CveCliente As Integer, Ventas As String) As Boolean
+    Public Function GetVentasRemisionesPagos(CveCliente As Integer, Ventas As String, Optional TipoDocto As String = "Rem") As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasRemisionesPagos")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@Ventas", SqlDbType.VarChar).Value = Ventas
+            .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
         End With
 
         Try
diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index a97e3fa58..b37795a61 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -3031,9 +3031,67 @@ Namespace Modelos
         Private Function ProcesoPrepolizas(ObjFactura As Factura, ByRef ObjConta As ClsContabilidad, CveIE As Integer, TmpDTDetalle As DataTable,
                                            Optional ValorMultiplicador As Integer = 1, ByRef Optional ObjBancos As ClsBancos = Nothing, ByRef Optional ObjVentas As ClsVentas = Nothing, ByRef Optional ObjEventos As ClsOIEventos = Nothing,
                                            Optional ByRef DtRemisionesRelacionadas As DataTable = Nothing, Optional SeCancelaRemisionProceso As Boolean = False, Optional CancelarRemisiones As Boolean = False, Optional ListaRemisionesCancelar As List(Of Integer) = Nothing,
-                                           Optional CveEstatusRefacturacion As Integer = 0, Optional ByRef ObjInventario As ClsInventarios = Nothing, Optional FechaCancelacion As DateTime = MinFecha) As Boolean
+                                           Optional CveEstatusRefacturacion As Integer = 0, Optional ByRef ObjInventario As ClsInventarios = Nothing, Optional FechaCancelacion As DateTime = MinFecha, Optional ObjClientes As ClsClientes = Nothing,
+                                           Optional AplicaCancelacionConPagos As Boolean = False) As Boolean
             Dim ErrorPrepoliza As Boolean = False
             Try
+
+                If ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso AplicaCancelacionConPagos AndAlso ValorMultiplicador = -1 Then
+                    Dim DtPagosVenta As DataTable = Nothing
+
+                    If ObjClientes IsNot Nothing Then
+                        If ObjClientes.GetVentasRemisionesPagos(CveCliente, Me.CveVenta.ToString(), ObjFactura.TipoDocto) Then
+                            DtPagosVenta = ObjClientes.DtResultados.Copy()
+                        Else
+                            ErrorPrepoliza = True
+                        End If
+                    Else
+                        ErrorPrepoliza = True
+                    End If
+
+                    'CANCELAR PAGO DE INGRESO
+                    If Not ErrorPrepoliza AndAlso DtPagosVenta IsNot Nothing Then
+
+                        Dim VentaActual As New ClsPaginas.Venta(ObjFactura, UsuarioActual)
+
+                        For Each DrPago As DataRow In DtPagosVenta.Rows
+
+                            'SI ES PAGO DE BANCOS, CANCELAR EL IE
+                            If DrPago("TipoPago").ToString() = "B" Then
+                                ErrorPrepoliza = ObjBancos.CancelarBancos_IE(UsuarioActual.CveUsuario, DrPago("CveIE").ToString().ToEntero(), False, -1, -1, Now) <= 0
+                            Else
+                                'RESTAR SALDOS APLICADOS
+                                Dim Importe As Decimal = DrPago("Importe").ToString().ToDecimal() * -1
+
+                                Dim Pago As New ClsPaginas.VentaPago
+                                Pago.Fecha = Now
+                                Pago.FechaDocumentoRelacionado = DrPago("FechaDocumento").ToString().ToDate
+                                Pago.ImportePagoVenta = Importe
+                                Pago.ImportePago = Importe
+                                Pago.CveIE = DrPago("CveIE").ToString().ToEntero()
+                                Pago.CveMonedaPago = DrPago("CveMoneda").ToString().ToEntero()
+                                Pago.TCPago = DrPago("TipoCambio").ToString().ToDecimal()
+                                Pago.AplicaTraslado = False
+                                Pago.Referencia = DrPago("Folio").ToString()
+                                Pago.CveVentaAmortizacion = DrPago("CveVenta").ToString().ToEntero()
+                                Pago.TipoPago = DrPago("TipoPago").ToString()
+                                Pago.CveClientePago = ObjFactura.CveCliente
+
+                                ErrorPrepoliza = ClsPaginas.AplicaPrePolizaPagoVenta(VentaActual, Pago, ObjFactura.CvePrePoliza, ObjConta, AplicarConceptoAplicacion:=True)
+                            End If
+
+                            If ErrorPrepoliza Then
+                                Exit For
+                            End If
+                        Next
+                    End If
+
+
+                    If ErrorPrepoliza Then
+                        Return ErrorPrepoliza
+                    End If
+                End If
+
                 Dim DT As DataTable
                 Dim CvePlantilaPoliza As Integer
                 Dim PorcentajeAmortizacion As Decimal = 0
@@ -4206,6 +4264,7 @@ Namespace Modelos
                 'REGRESA SALDO A LAS REMISIONES QUE SE FACTURARON EN EL INGRESO QUE SE ESTA CANCELANDO
                 'SE DEBE DE EXCLUIR CUANDO ES REFACTURACIÓN
                 If ObjFactura.TipoDocto = "Ing" And ValorMultiplicador = -1 AndAlso CveEstatusRefacturacion = 0 AndAlso Not SeCancelaRemisionProceso AndAlso DtRemisionesRelacionadas IsNot Nothing Then ' se debe de excluir cuando es refacturación
+
                     For Each Dr As DataRow In DtRemisionesRelacionadas.Rows
 
                         Dim DebeCancelar As Boolean = CancelarRemisiones AndAlso ListaRemisionesCancelar.Any(Function(CveRemision) CveRemision = Dr("CveVenta").ToString.ToEntero())
@@ -5427,7 +5486,7 @@ Namespace Modelos
         ''' <param name="FechaCancelacion"></param>
         ''' <param name="AcuseCancelacion"></param>
         ''' <returns></returns>
-        Public Function EjecutarCancelacionPendiente(CveEstatus As Integer, FechaCancelacion As DateTime, AcuseCancelacion As String, Optional ValidarSAT As Boolean = True) As MCancelacionVentaMensaje
+        Public Function EjecutarCancelacionPendiente(CveEstatus As Integer, FechaCancelacion As DateTime, AcuseCancelacion As String, Optional ValidarSAT As Boolean = True, Optional AplicaCancelacionConPagos As Boolean = False) As MCancelacionVentaMensaje
             Dim ListaRemisionesCancelar As New List(Of Integer)
             Dim ObjVentas As New ClsVentas()
             If ObjVentas.GetRemisionesXCancelar(Me.CveVenta) Then
@@ -5437,7 +5496,7 @@ Namespace Modelos
             End If
             ObjVentas.Dispose()
 
-            Return CancelarVenta(Me, Me.UsuarioActual, RealizarDevolucionAlmacen:=Me.RealizarDevolucionAlmacen, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveEstatusFacturaAsignado:=CveEstatus, FechaCancelacion:=FechaCancelacion.ToString("dd/MM/yyyy hh:mm:ss"), AcuseCancelacion:=AcuseCancelacion, CveMotivoCancelacion:=Me.CveMotivoCancelacion, MotivoCancelacion:=Me.MotivoCancelacion, ValidarSAT:=ValidarSAT)
+            Return CancelarVenta(Me, Me.UsuarioActual, RealizarDevolucionAlmacen:=Me.RealizarDevolucionAlmacen, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveEstatusFacturaAsignado:=CveEstatus, FechaCancelacion:=FechaCancelacion.ToString("dd/MM/yyyy hh:mm:ss"), AcuseCancelacion:=AcuseCancelacion, CveMotivoCancelacion:=Me.CveMotivoCancelacion, MotivoCancelacion:=Me.MotivoCancelacion, ValidarSAT:=ValidarSAT, AplicaCancelacionConPagos:=AplicaCancelacionConPagos)
         End Function
         ''' <summary>
         ''' Cancela la factura para poder realizar la refacturacion
@@ -5452,15 +5511,16 @@ Namespace Modelos
         ''' <param name="RealizarDevolucionAlmacen"></param>
         ''' <param name="ListaRemisionesCancelar"></param>
         ''' <returns></returns>
-        Public Function CancelarFactura(RealizarDevolucionAlmacen As Boolean, Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveMotivoCancelacion As Integer = -1, Optional Motivo As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0, Optional CancelarBoletos As Boolean = False) As MCancelacionVentaMensaje
+        Public Function CancelarFactura(RealizarDevolucionAlmacen As Boolean, Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveMotivoCancelacion As Integer = -1, Optional Motivo As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0, Optional CancelarBoletos As Boolean = False, Optional AplicaCancelacionConPagos As Boolean = False) As MCancelacionVentaMensaje
             'Comprobante emitido con errores sin relación
-            Return CancelarVenta(Me, Me.UsuarioActual, RealizarDevolucionAlmacen:=RealizarDevolucionAlmacen, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, CveEstadoCancelacion:=CveEstadoCancelacion, CancelarBoletos:=CancelarBoletos)
+            Return CancelarVenta(Me, Me.UsuarioActual, RealizarDevolucionAlmacen:=RealizarDevolucionAlmacen, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveMotivoCancelacion:=CveMotivoCancelacion, MotivoCancelacion:=Motivo, CveEstadoCancelacion:=CveEstadoCancelacion, CancelarBoletos:=CancelarBoletos, AplicaCancelacionConPagos:=AplicaCancelacionConPagos)
         End Function
 
         Private Function CancelarVenta(ObjFactura As Modelos.Factura, UsuarioActual As Usuario, Optional EsRefacturacion As Boolean = False, Optional RealizarDevolucionAlmacen As Boolean = False,
                                       Optional ListaRemisionesCancelar As List(Of Integer) = Nothing, Optional CveEstatusFacturaAsignado As Integer = -1, Optional FechaCancelacion As String = "-1",
                                       Optional AcuseCancelacion As String = "", Optional CveMotivoCancelacion As Integer = -1, Optional MotivoCancelacion As String = "",
-                                      Optional FolioSustitucion As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0, Optional CancelarBoletos As Boolean = False) As MCancelacionVentaMensaje
+                                      Optional FolioSustitucion As String = "", Optional ValidarSAT As Boolean = True, Optional CveEstadoCancelacion As Integer = 0,
+                                      Optional CancelarBoletos As Boolean = False, Optional AplicaCancelacionConPagos As Boolean = False) As MCancelacionVentaMensaje
             Dim Retorno As New MCancelacionVentaMensaje()
             Dim ErrorList As New List(Of String)
 
@@ -5519,7 +5579,7 @@ Namespace Modelos
             End If
 
             'VALIDA QUE LA FACTURA NO TENGA PAGOS
-            If Not AplicaRefacturacionConPagos AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso ObjFactura.Pagado > 0 Then
+            If Not AplicaRefacturacionConPagos AndAlso Not AplicaCancelacionConPagos AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso ObjFactura.Pagado > 0 Then
                 Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene pagos vinculados."
                 Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
 
@@ -5922,6 +5982,7 @@ Namespace Modelos
             Dim ObjContrato As New ClsContratos(ObjVentas.IniciaTransacSQL())
             Dim ObjEventos As New ClsOIEventos(ObjVentas.IniciaTransacSQL())
             Dim ObjAcum As New ClsAcumuladores(ObjVentas.IniciaTransacSQL())
+            Dim ObjClientes As New ClsClientes(ObjVentas.IniciaTransacSQL())
 
             Try
                 If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then
@@ -5933,7 +5994,7 @@ Namespace Modelos
                 End If
 
                 'CUANDO LA CANCELACION ESTA EN PROCESO NO DEBE REALIZAR NADA DE ESTE PROCESO
-                If Not AplicaRefacturacionConPagos AndAlso ((((ObjFactura.Saldo > 0 AndAlso (CveEstatus > 0 AndAlso Not CveEstatus.Contiene(20, 23))) OrElse (ObjFactura.Total = 0 AndAlso UsuarioActual.CveEmpresa.Contiene(72) AndAlso ObjFactura.TipoDocto.Contiene("Ing"))) AndAlso CveEstatus.Contiene(4, 5)) OrElse (CvePlantillaPoliza = 7 AndAlso (CveEstatus > 0 AndAlso Not CveEstatus.Contiene(20, 23)))) Then
+                If Not AplicaRefacturacionConPagos AndAlso (((((ObjFactura.Saldo > 0 OrElse AplicaCancelacionConPagos) AndAlso (CveEstatus > 0 AndAlso Not CveEstatus.Contiene(20, 23))) OrElse (ObjFactura.Total = 0 AndAlso UsuarioActual.CveEmpresa.Contiene(72) AndAlso ObjFactura.TipoDocto.Contiene("Ing"))) AndAlso CveEstatus.Contiene(4, 5)) OrElse (CvePlantillaPoliza = 7 AndAlso (CveEstatus > 0 AndAlso Not CveEstatus.Contiene(20, 23)))) Then
 
                     'CUANDO SE CANCELA, LA PÓLIZA DEBE DE SER DE DIARIO
                     CvePrePoliza = ObjConta.AddPrePolizas("Modelos/CancelarDocumento", CvePlantillaPoliza, ObjFactura.Total, ObjFactura.Total, ObjFactura.CveMoneda, CancelacionFecha, ObjFactura.Cliente.Nombre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3, TipoContable:=ObjFactura.TipoContable)
@@ -5957,7 +6018,8 @@ Namespace Modelos
                     'CANCELA PREPOLIZA
                     If Not ErrorCancelar Then
                         ErrorCancelar = ProcesoPrepolizas(ObjFactura, ObjConta, -1, ObjFactura.DtDetalle, -1, ObjBancos, ObjVentas, ObjEventos, DtRemisionesRelacionadas:=DtRemisionesRelacionadas, SeCancelaRemisionProceso:=SeCancelaRemisionProceso,
-                                                          CancelarRemisiones:=CancelarRemisiones, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveEstatusRefacturacion:=CveEstatusRefacturacion, ObjInventario:=ObjInventario, FechaCancelacion:=CancelacionFecha)
+                                                          CancelarRemisiones:=CancelarRemisiones, ListaRemisionesCancelar:=ListaRemisionesCancelar, CveEstatusRefacturacion:=CveEstatusRefacturacion, ObjInventario:=ObjInventario, FechaCancelacion:=CancelacionFecha,
+                                                          ObjClientes:=ObjClientes, AplicaCancelacionConPagos:=AplicaCancelacionConPagos)
                         MensajeError = "Ocurrió un error al generar la prepoliza de cancelación."
                     End If
 
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index b3ccd8f77..70d2e2c57 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5072,7 +5072,7 @@ Partial Class Ventas
                                     '    End If
                                     'End If
                                     'si utiliza cortes, y cajas, no permitir cancelar de días anteriores
-                                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso DbRowVenta("Fecha").ToString.ToDate.ToShortDateString.ToDate < Now.ToShortDateString.ToDate Then
+                                    If UsuarioActual.CveRol <> 1 AndAlso UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso DbRowVenta("Fecha").ToString.ToDate.ToShortDateString.ToDate < Now.ToShortDateString.ToDate Then
                                         LbCancelarDocumento.Visible = False
                                     End If
                                 End If
@@ -23473,8 +23473,8 @@ Partial Class Ventas
         '    DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND  (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
         'End If
 
-        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-            DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0}", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 195 Then
+            DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta = 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
         Else
             DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
         End If
@@ -25595,7 +25595,13 @@ Partial Class Ventas
                         ChkDevAlm.Checked = True
                     End If
 
-                    resp = ObjFacturaCancelacion.CancelarFactura(ChkDevAlm.Checked, ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion)
+                    Dim AplicaCancelacionConPagos As Boolean = False
+
+                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso Not EsRefacturacion AndAlso ObjFactura.Pagado > 0 Then
+                        AplicaCancelacionConPagos = True
+                    End If
+
+                    resp = ObjFacturaCancelacion.CancelarFactura(ChkDevAlm.Checked, ListaRemisionesCancelar, CveMotivoCancelacion:=DdlMotivoCancelacion.SelectedValue.ToEntero(), Motivo:=TxtMotivoCancelacion.Text.Trim(), CveEstadoCancelacion:=Me.CveEstadoCancelacion, AplicaCancelacionConPagos:=AplicaCancelacionConPagos)
                     strMensaje.Append(resp.Mensaje)
                     Dim DtBonificaciones As DataTable = Nothing
 

From 991a1b05488710820f7e14ac7507c97295f3f1d0 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Sat, 18 May 2024 09:56:35 -0700
Subject: [PATCH 3/5] Cat Folios Garantia acualizar Area

---
 Acumuladores/CatFoliosGarantia.aspx.vb     |  8 ++-
 App_Code/ClsAcumuladores.vb                |  3 +-
 Empresas/186/Formatos/TrasladoAngeles.rdlc | 70 +++++++++++-----------
 Inventarios/EntregaAlmacen.aspx.vb         | 18 +++++-
 Ventas/ProductosServicios.aspx             |  6 +-
 5 files changed, 61 insertions(+), 44 deletions(-)

diff --git a/Acumuladores/CatFoliosGarantia.aspx.vb b/Acumuladores/CatFoliosGarantia.aspx.vb
index 5f6459bd9..e2b64d68d 100644
--- a/Acumuladores/CatFoliosGarantia.aspx.vb
+++ b/Acumuladores/CatFoliosGarantia.aspx.vb
@@ -131,7 +131,7 @@ Partial Class Acumuladores_CatFoliosGarantia
             End If
         Else
             If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, DdlEstatusEditar.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero,
-                                            DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero) Then
+                                            DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero, DdlArea.SelectedValue.ToEntero) Then
 
                 TxtFolioGarantia.Text = ""
                 DdlEstatusEditar.SelectedValueExist("1")
@@ -197,8 +197,10 @@ Partial Class Acumuladores_CatFoliosGarantia
         DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
         DdlSubProyectos.DataBind()
         DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
-
+        DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
+
+        DdlArea.SelectedValueExist(GvRow.DataKey("Area"))
+
         BtnAgregarFolioGarantiaModal.Text = "Actualizar"
 
         UpModalFolioGarantia.Update()
diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb
index 120c6bcdb..10a56ca64 100644
--- a/App_Code/ClsAcumuladores.vb
+++ b/App_Code/ClsAcumuladores.vb
@@ -543,7 +543,7 @@ Public Class ClsAcumuladores
         Return Retorno
     End Function
 
-    Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer) As Boolean
+    Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer, Area As Integer) As Boolean
         Dim Retorno As Boolean = False
         'Data = New DataTable
 
@@ -558,6 +558,7 @@ Public Class ClsAcumuladores
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio
             .Add("@Limite", SqlDbType.Int).Value = Limite
+            .Add("@Area", SqlDbType.Int).Value = Area
 
         End With
 
diff --git a/Empresas/186/Formatos/TrasladoAngeles.rdlc b/Empresas/186/Formatos/TrasladoAngeles.rdlc
index 5879f7fec..d42c8d3da 100644
--- a/Empresas/186/Formatos/TrasladoAngeles.rdlc
+++ b/Empresas/186/Formatos/TrasladoAngeles.rdlc
@@ -780,7 +780,6 @@
                             <PaddingTop>=IIf(rownumber(nothing) = 1, "2pt", "0pt")</PaddingTop>
                           </Style>
                         </Textbox>
-                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -1588,7 +1587,7 @@
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.33542cm</Height>
+                  <Height>0.2825cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -1972,7 +1971,7 @@
             <DataSetName>DsInventarios</DataSetName>
             <Top>0.14111cm</Top>
             <Left>0.10068cm</Left>
-            <Height>3.1562cm</Height>
+            <Height>3.10328cm</Height>
             <Width>25.45761cm</Width>
             <Style>
               <Border>
@@ -2048,6 +2047,18 @@
               <PaddingBottom>2pt</PaddingBottom>
             </Style>
           </Textbox>
+          <Line Name="Line4">
+            <Top>4.79214cm</Top>
+            <Left>0.10068cm</Left>
+            <Height>0cm</Height>
+            <Width>25.72414cm</Width>
+            <ZIndex>2</ZIndex>
+            <Style>
+              <Border>
+                <Style>Solid</Style>
+              </Border>
+            </Style>
+          </Line>
         </ReportItems>
         <Height>1.88667in</Height>
         <Style />
@@ -2055,7 +2066,7 @@
       <Width>10.19535in</Width>
       <Page>
         <PageHeader>
-          <Height>4.44499cm</Height>
+          <Height>4.55082cm</Height>
           <PrintOnFirstPage>true</PrintOnFirstPage>
           <PrintOnLastPage>true</PrintOnLastPage>
           <ReportItems>
@@ -2544,7 +2555,7 @@ Municipio y/o Delegación:  </Value>
               <rd:DefaultName>Textbox7</rd:DefaultName>
               <Top>2.32101cm</Top>
               <Left>0.13678cm</Left>
-              <Height>2.12398cm</Height>
+              <Height>2.05342cm</Height>
               <Width>20.93288cm</Width>
               <ZIndex>9</ZIndex>
               <Style>
@@ -2565,7 +2576,7 @@ Municipio y/o Delegación:  </Value>
           </Style>
         </PageHeader>
         <PageFooter>
-          <Height>3.8269cm</Height>
+          <Height>2.5569cm</Height>
           <PrintOnFirstPage>true</PrintOnFirstPage>
           <PrintOnLastPage>true</PrintOnLastPage>
           <ReportItems>
@@ -2588,7 +2599,7 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>1.37766cm</Top>
+              <Top>0.74266cm</Top>
               <Left>5.68986cm</Left>
               <Height>0.50243cm</Height>
               <Width>5.79375cm</Width>
@@ -2624,7 +2635,7 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>1.37766cm</Top>
+              <Top>0.74266cm</Top>
               <Left>14.40467cm</Left>
               <Height>0.50243cm</Height>
               <Width>5.78664cm</Width>
@@ -2675,9 +2686,9 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>1.66375cm</Top>
+              <Top>1.02875cm</Top>
               <Left>5.69781cm</Left>
-              <Height>1.2cm</Height>
+              <Height>0.82958cm</Height>
               <Width>5.78664cm</Width>
               <ZIndex>2</ZIndex>
               <Visibility>
@@ -2726,9 +2737,9 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>1.6632cm</Top>
+              <Top>1.0282cm</Top>
               <Left>14.41177cm</Left>
-              <Height>1.2cm</Height>
+              <Height>0.82958cm</Height>
               <Width>5.78664cm</Width>
               <ZIndex>3</ZIndex>
               <Visibility>
@@ -2763,7 +2774,7 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox22</rd:DefaultName>
-              <Top>0.07331cm</Top>
+              <Top>0.04156cm</Top>
               <Left>5.69781cm</Left>
               <Height>0.6cm</Height>
               <Width>5.78664cm</Width>
@@ -2800,7 +2811,7 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox22</rd:DefaultName>
-              <Top>0.07331cm</Top>
+              <Top>0.04156cm</Top>
               <Left>14.41177cm</Left>
               <Height>0.6cm</Height>
               <Width>5.78664cm</Width>
@@ -2835,7 +2846,7 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>0.45106cm</Top>
+              <Top>0.41931cm</Top>
               <Left>10.04017cm</Left>
               <Height>0.63528cm</Height>
               <Width>5.78664cm</Width>
@@ -2886,9 +2897,9 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox21</rd:DefaultName>
-              <Top>1.6632cm</Top>
+              <Top>1.0282cm</Top>
               <Left>10.04727cm</Left>
-              <Height>1.2cm</Height>
+              <Height>0.82958cm</Height>
               <Width>5.78664cm</Width>
               <ZIndex>7</ZIndex>
               <Visibility>
@@ -2923,7 +2934,7 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox22</rd:DefaultName>
-              <Top>0.07331cm</Top>
+              <Top>0.04156cm</Top>
               <Left>10.04727cm</Left>
               <Height>0.6cm</Height>
               <Width>5.78664cm</Width>
@@ -2971,7 +2982,7 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox29</rd:DefaultName>
-              <Top>3.40709cm</Top>
+              <Top>2.13709cm</Top>
               <Left>0.10068cm</Left>
               <Height>0.41981cm</Height>
               <Width>5.78083cm</Width>
@@ -3009,7 +3020,7 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox31</rd:DefaultName>
-              <Top>3.40709cm</Top>
+              <Top>2.13709cm</Top>
               <Left>11.33129cm</Left>
               <Height>0.41981cm</Height>
               <Width>5.13762cm</Width>
@@ -3035,23 +3046,12 @@ Municipio y/o Delegación:  </Value>
                 </Border>
               </Style>
             </Line>
-            <Line Name="Line4">
-              <Left>0.13678cm</Left>
-              <Height>0cm</Height>
-              <Width>25.72414cm</Width>
-              <ZIndex>12</ZIndex>
-              <Style>
-                <Border>
-                  <Style>Solid</Style>
-                </Border>
-              </Style>
-            </Line>
             <Line Name="Line6">
-              <Top>3.26597cm</Top>
+              <Top>1.99597cm</Top>
               <Left>0.10068cm</Left>
               <Height>0cm</Height>
               <Width>25.76024cm</Width>
-              <ZIndex>13</ZIndex>
+              <ZIndex>12</ZIndex>
               <Style>
                 <Border>
                   <Style>Solid</Style>
@@ -3077,11 +3077,11 @@ Municipio y/o Delegación:  </Value>
                 </Paragraph>
               </Paragraphs>
               <rd:DefaultName>Textbox10</rd:DefaultName>
-              <Top>3.40709cm</Top>
+              <Top>2.13709cm</Top>
               <Left>23.00537cm</Left>
               <Height>0.41981cm</Height>
               <Width>2.55292cm</Width>
-              <ZIndex>14</ZIndex>
+              <ZIndex>13</ZIndex>
               <Style>
                 <Border>
                   <Style>None</Style>
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index be8f99da8..cdb3ea74c 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2258,8 +2258,22 @@ Partial Class Inventarios_EntregaAlmacen
                 If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero(), TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                     If ObjInventario.DtResultados.Rows.Count > 0 Then
                         TieneErrorExistencia = True
-                        For Each Dr As DataRow In ObjInventario.DtResultados.Rows
-                            TextoError.AppendFormat("<b> - {0}</b> Existencia: {1:#,##0.##} <br/>", Dr("CodigoPS"), Dr("Existencia"))
+                        For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+
+                            Dim SerieLoteCaducidad As String = ","
+                            If Dr("Serie").ToString.Trim.Length > 0 AndAlso Dr("Serie").ToString.Trim <> "-1" Then
+                                SerieLoteCaducidad = $" Serie: { Dr("Serie").ToString.Trim}"
+                            End If
+                            If Dr("Lote").ToString.Trim.Length > 0 AndAlso Dr("Lote").ToString.Trim <> "-1" Then
+                                SerieLoteCaducidad = $"{SerieLoteCaducidad} Lote: {Dr("Lote").ToString.Trim}"
+                            End If
+                            If Dr("FechaCaducidad").ToString.Trim.Length > 0 AndAlso Dr("FechaCaducidad").ToString.Trim <> "-1" Then
+                                SerieLoteCaducidad = $"{SerieLoteCaducidad} Caducidad: { Dr("FechaCaducidad").ToString.Trim.ToDate.ToString("dd/MM/yyyy")}"
+                            End If
+
+                            TextoError.AppendFormat("<b> - {0}</b> Existencia: {1:#,##0.##} {2}<br/>", Dr("CodigoPS"), Dr("Existencia"), If(SerieLoteCaducidad <> ",", SerieLoteCaducidad, ""))
+
+
                         Next
                     End If
                 Else
diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx
index 3f136ba72..554b8974f 100644
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -2106,20 +2106,20 @@
                                   <asp:DropDownList ID="DdlEquivalenciaUM" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true"  CausesValidation="true" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida" Width="206px">                                
                                 </asp:DropDownList>
                                 <label for="<%= DdlEquivalenciaUM.ClientID.ToString()%>">Unidad de Medida:</label>                                                              
-                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlEquivalenciaUM" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad de medida''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEliminarPS"></asp:RequiredFieldValidator>
+                                    <asp:RequiredFieldValidator ID="RequiredFieldValidator4" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlEquivalenciaUM" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad de medida''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarEquivalencia"></asp:RequiredFieldValidator>
                                   <i></i>
                             </div>
                             <div class="form-group form-md-line-input input-iconright">                                
                                 <asp:TextBox ID="TxtCantidadEquivalencia" runat="server"   Width="60"  CausesValidation="true" MaxLength="10"></asp:TextBox>
                                  <label for="<%= TxtCantidadEquivalencia.ClientID.ToString()%>">Cantidad:</label>   
-                                <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDescripcion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripcion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpEliminarPS"></asp:RequiredFieldValidator>
+                                <asp:RequiredFieldValidator ID="RequiredFieldValidator3" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtDescripcion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripcion''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAgregarEquivalencia"></asp:RequiredFieldValidator>
                                 <i></i>
                             </div>
                          
                     <div class="modal-footer">
                         <asp:UpdatePanel ID="UpdatePanel5" runat="server" UpdateMode="Conditional">
                             <ContentTemplate>
-                                <asp:LinkButton ID="LnkAgregarEquivalencia" runat="server" CssClass="btn btn-primary" OnClick="LnkAgregarEquivalencia_Click"> Guardar</asp:LinkButton>
+                                <asp:LinkButton ID="LnkAgregarEquivalencia" runat="server" CssClass="btn btn-primary" OnClick="LnkAgregarEquivalencia_Click" ValidationGroup="GrpAgregarEquivalencia" > Guardar</asp:LinkButton>
                                 <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
                             </ContentTemplate>
                         </asp:UpdatePanel>

From 2b73107c94bfd97a18ff2954176d271cb255c7c0 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Sat, 18 May 2024 12:58:12 -0700
Subject: [PATCH 4/5] 2024-05-18 SMS Electrica

---
 Inventarios/EntregaAlmacen.aspx.vb |  2 +-
 Ventas/Ventas.aspx                 |  4 ++--
 Ventas/Ventas.aspx.vb              | 25 ++++++++++++++++++-------
 3 files changed, 21 insertions(+), 10 deletions(-)

diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index cdb3ea74c..cea689a17 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -695,7 +695,7 @@ Partial Class Inventarios_EntregaAlmacen
                     TipoMovimiento = If(TipoDocto.Contiene({"Rem", "Ped", "Ing", "Ped", "PeC", "Ant"}) And (EsDevolucionVenta = 0 Or CveVentaAD > 0), 1, 2)
 
                     If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso TipoDocto.Contiene("Ped", "Ing") Then
-                        TxtObservaciones.Text = $"Dr. {drE("Medico").ToString}{vbCrLf}Cx. {drE("Procedimiento").ToString}{vbCrLf}F.  Cirugía {drE("FechaEjecucion").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm")}{vbCrLf}H. {drE("Sucursal").ToString}{vbCrLf}"
+                        TxtObservaciones.Text = $"Dr. {drE("Medico").ToString}{vbCrLf}Cx. {drE("Procedimiento").ToString}{vbCrLf}F.  Cirugía {drE("FechaParaSurtir").ToString.ToDateTime.ToString("dd/MM/yyyy HH:mm")}{vbCrLf}H. {drE("Sucursal").ToString}{vbCrLf}"
                         TxtObservaciones.Rows = 4
                     End If
 
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 53090e7fb..a2e1f750a 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -631,10 +631,10 @@
                                       <asp:TextBox ID="TxtFolioRemision" runat="server"   Style="width: 130px" MaxLength="20" Enabled="false"></asp:TextBox>
                                   </td>
                                   <td runat="server" id="Td10" >
-                                      
+                                     <b>Tipo de Venta:</b> 
                                   </td>
                                   <td runat="server">
-                                      
+                                      <asp:Label runat="server" ID="LblTipoVenta"></asp:Label>
                                   </td>
                               </tr>
                         </table>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 70d2e2c57..c3cf705b1 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6173,6 +6173,10 @@ Partial Class Ventas
                             TxtPaciente.Enabled = False
                             TxtEpisodio.Enabled = False
 
+                            TrVentasMedicas4.Visible = True
+                            TxtFolioRemision.Text = DbRowVenta("Alfa1").ToString
+
+                            LblTipoVenta.Text = DbRowVenta("TipoVenta").ToString
 
                             If DbRowVenta("FechaParaSurtir").ToString().ToDate() > DateTime.MinValue Then
                                 TrVentasMedicas2.Visible = True
@@ -6181,12 +6185,9 @@ Partial Class Ventas
 
                                 TxtFechaOS.Text = DbRowVenta("FechaParaSurtir").ToString().ToDateTime().ToString("yyyy-MM-dd HH:mm").Replace(" ", "T")
                             End If
+
                         End If
 
-                        If DdlTipoDocto.SelectedValue.Contiene("Ing", "Rem") Then
-                            TrVentasMedicas4.Visible = True
-                            TxtFolioRemision.Text = DbRowVenta("Alfa1").ToString
-                        End If
                     End If
                 End If
             End Using
@@ -8612,6 +8613,9 @@ Partial Class Ventas
                 'If UsuarioActual.CveEmpresa = 119 Then
                 '    e.Row.FCTextBox("TxtDescuento").Enabled = False
                 'End If
+
+
+
             Else
                 'MODO NORMAL
 
@@ -8760,11 +8764,13 @@ Partial Class Ventas
         End If
 
         If EsVentaMedica Then
+
             GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = False
 
-            If DdlTipoComprobante.SelectedValue = "Cot" Then
+            If DdlTipoComprobante.SelectedValue = "Cot" Or RBLTipoVenta.SelectedValue.ToEntero = 1 Then
                 GvPS.Rows(e.NewEditIndex).FCTextBox("TxtPrecio").Enabled = True
             End If
+
         End If
 
         If CveCicloComercial > 0 Then
@@ -17676,7 +17682,7 @@ Partial Class Ventas
 
                 If EsVentaMedica Then
                     TxtPrecio.Enabled = False
-                    If UsuarioActual.CveUsuario = 3986 Then
+                    If UsuarioActual.CveUsuario = 3986 Or RBLTipoVenta.SelectedValue.ToEntero = 1 Then
                         TxtPrecio.Enabled = True
                     End If
 
@@ -22799,8 +22805,9 @@ Partial Class Ventas
             End If
         End If
 
+        TxtAtencionA.Enabled = True
 
-
+        UpCliente.Update()
         UPPVentas.Update()
         UpPS.Update()
         UpCliente.Update()
@@ -37785,6 +37792,10 @@ Partial Class Ventas
             AsignaAlmacenWS()
             'CargaPS(-1, DdlPS)
         End If
+        If RBLTipoVenta.SelectedValue.Contiene("1") Then
+            TxtPrecio.Enabled = True
+            UpPS.Update()
+        End If
 
         RegistraScript("$('#DvModalTipoVenta').modal('hide');")
         UpCliente.Update()

From b920bd444c3a58b5d569242f57badbfc2f3c286d Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 18 May 2024 23:16:48 -0700
Subject: [PATCH 5/5] --Facturacion de remisiones  en cobranza

---
 App_Code/Modelos.vb       |   9 +-
 Ventas/PVCobranza.aspx.vb | 177 +++++++++++++++++++++++++++++++++++---
 Ventas/Ventas.aspx.vb     |   2 +-
 3 files changed, 173 insertions(+), 15 deletions(-)

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index b37795a61..776036e64 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -654,6 +654,7 @@ Namespace Modelos
             End If
         End Sub
         Public Class MMensajeFactura
+            Public Property Factura As Modelos.Factura
             Sub New()
                 CveVenta = -1
                 LigaCliente = ""
@@ -1097,7 +1098,7 @@ Namespace Modelos
                                     End If
 
                                     'MENSAJE PRINCIPAL
-                                    MensajeAlert.AppendFormat(String.Format("<br/>La {0}: <b>{1}</b>  se generó correctamente.<br/><br/>", Me.TipoDocumento, Me.SerieFolio))
+                                    MensajeAlert.AppendFormat(String.Format("<br/>La {0}: <b>{1}</b>  se generó correctamente.<br/><br/>", If(Me.TipoDocumento = "Ingresos", "Factura", Me.TipoDocumento), Me.SerieFolio))
 
 
                                     ' DESCARGA XML - SI SE TIMBRA MANDA CORREO CON FACTURA
@@ -1131,8 +1132,10 @@ Namespace Modelos
                                     End If
 
                                     'ERROR DE NO TIMBRADO
-                                    If Not SeTimbro And (Me.TipoDocto = "Ing" Or Me.TipoDocto.Contiene("Egs", "Dev") Or Me.TipoDocto = "Ant") Then
-                                        MensajeAlert.AppendFormat("La factura no se pudo timbrar.</b> Por favor intentelo de nuevo a traves del boton Emitir.")
+                                    If Timbrar Then
+                                        If Not SeTimbro And (Me.TipoDocto = "Ing" Or Me.TipoDocto.Contiene("Egs", "Dev") Or Me.TipoDocto = "Ant") Then
+                                            MensajeAlert.AppendFormat("La factura no se pudo timbrar.</b> Por favor intentelo de nuevo a traves del boton Emitir.")
+                                        End If
                                     End If
 
                                     'ERROR DE NO TIMBRADO NC
diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb
index c42948839..60866a433 100644
--- a/Ventas/PVCobranza.aspx.vb
+++ b/Ventas/PVCobranza.aspx.vb
@@ -397,7 +397,7 @@ Partial Class Ventas_PVCobranza
         If DbRowVenta IsNot Nothing Then
             Dim VentaActual As New Venta(UsuarioActual)
             VentaActual.CveVenta = CveVenta
-
+            VentaActual.TipoDocto = DbRowVenta("TipoDocto").ToString
             VentaActual.Fecha = DbRowVenta("Fecha").ToString.ToDate
             VentaActual.CveCliente = DbRowVenta("CveCliente").ToString.ToEntero
             VentaActual.CveMoneda = DbRowVenta("CveMoneda").ToString.ToEntero
@@ -422,10 +422,30 @@ Partial Class Ventas_PVCobranza
             Dim SaldoTotalInicial As Decimal = DbRowVenta("Saldo").ToString.ToDecimal
             Dim PagoAplicado As Decimal = 0
 
-            Dim ObjConta As New ClsContabilidad
-            Dim ObjIE As New ClsBancos(ObjConta.IniciaTransacSQL())
-            Dim ObjVentas2 As New ClsVentas(ObjConta.IniciaTransacSQL())
+            Dim ObjVentas2 As New ClsVentas()
+            Dim ObjIE As New ClsBancos(ObjVentas2.IniciaTransacSQL())
+            Dim ObjConta As New ClsContabilidad(ObjVentas2.IniciaTransacSQL())
+            Dim ObjClientes As New ClsClientes(ObjVentas2.IniciaTransacSQL())
+
+            Dim respFactura As Modelos.Factura.MMensajeFactura = Nothing
+
             Try
+                'FACTURAR LA REMISION PARA HACER EL PAGO
+                If UsuarioActual.CveEmpresa = 193 AndAlso VentaActual.TipoDocto = "Rem" Then
+                    respFactura = GenerarFactura(VentaActual, ObjVentas2, ObjClientes)
+
+                    If respFactura Is Nothing Then
+                        MsgError = "Ocurrío un error al generar la factura"
+                    ElseIf (respFactura IsNot Nothing AndAlso respFactura.Mensajes.Count > 0) AndAlso respFactura.TieneError Then
+                        MsgError = respFactura.Mensajes(0)
+                    End If
+
+                    'REALIZAR EL PAGO EN LA FACTURA
+                    If respFactura IsNot Nothing AndAlso Not respFactura.TieneError Then
+                        CveVenta = respFactura.CveVenta
+                    End If
+                End If
+
                 CvePrePoliza = ObjConta.AddPrePolizas("PVCobranza", 11, 0, 0, 1, Fecha, $"Pago {VentaActual.SerieFolio}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
 
                 If CvePrePoliza > 0 Then
@@ -487,21 +507,41 @@ Partial Class Ventas_PVCobranza
             End Try
 
             If MsgError = "" Then
-                ObjConta.Commit()
-                Alert($"Pago Registrado correctamente.<br/><br/> <a href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1&TICKET=1&REGENERAR=1", CveVenta))}"" class='Texto'>Imprimir ticket</a>", TipoMensaje.MsgInformacion)
+                ObjVentas2.Commit()
+
+                'SI SE GENERO FACTURA DE INGRESO, TIMBRARLA DESPUES DE REALIZAR EL PAGO
+                If respFactura IsNot Nothing Then
+                    If Not respFactura.Factura.TimbrarFactura() Then
+                        Alert("La factura no se pudo timbrar", TipoMensaje.MsgAdvertencia)
+                    End If
+                End If
+
+                Dim msBuild As New StringBuilder()
+
+                If respFactura IsNot Nothing Then
+                    msBuild.Append($"Pago Registrado correctamente.")
+                    For Each m In respFactura.Mensajes
+                        msBuild.AppendFormat("<br/> {0}", m)
+                    Next
+                Else
+                    msBuild.Append($"Pago Registrado correctamente.<br/><br/> <a href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1&TICKET=1&REGENERAR=1", CveVenta))}"" class='Texto'>Imprimir ticket</a>")
+                End If
+
+                Alert(msBuild.ToString(), TipoMensaje.MsgInformacion)
             Else
-                ObjConta.RollBack()
+                ObjVentas2.RollBack()
                 Alert(MsgError, TipoMensaje.MsgError)
             End If
 
+            ObjVentas2.Dispose()
             ObjConta.Dispose()
             ObjIE.Dispose()
-            ObjVentas2.Dispose()
+            ObjClientes.Dispose()
 
             If MsgError = "" Then
                 Try
                     If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-                        ImpresionDirectaPDF(HdnCveVenta.Value.ToEntero)
+                        ImpresionDirectaPDF(CveVenta)
                     End If
 
                     PnlContado.Visible = False
@@ -517,6 +557,113 @@ Partial Class Ventas_PVCobranza
 
     End Sub
 
+    Private Function GenerarFactura(ByRef VentaRemision As Venta, ByRef ObjVentas As ClsVentas, ByRef ObjClientes As ClsClientes) As Modelos.Factura.MMensajeFactura
+        Dim Retorno As Modelos.Factura.MMensajeFactura = Nothing
+
+        Dim DtRemisiones As New DataTable
+        DtRemisiones.Columns.Add(New DataColumn("CveVenta", GetType(Integer)))
+        DtRemisiones.Columns.Add(New DataColumn("SerieFolio", GetType(String)))
+
+        DtRemisiones.Rows.Add({VentaRemision.CveVenta, VentaRemision.SerieFolio})
+
+        Dim RemisionesLista As New List(Of Integer)
+        RemisionesLista.Add(VentaRemision.CveVenta)
+
+        Dim DtRemisionesPS As New DataTable()
+        Dim DtPagosFacturaGlobal As New DataTable()
+
+        If ObjClientes.GetVentasRemisionesTotales(VentaRemision.CveCliente, VentaRemision.CveVenta.ToString(), 1) Then
+            DtRemisionesPS = ObjClientes.DtResultados.Copy()
+        End If
+
+        Dim ObjFactura = Modelos.Factura.CrearVentaNueva(UsuarioActual, VentaRemision.CveSubProyecto, VentaRemision.CveCliente, VentaRemision.CveMoneda, "Ing")
+
+        ObjFactura.RemisionesLista = RemisionesLista
+        ObjFactura.DtRemisionesPS = DtRemisionesPS
+        ObjFactura.DtRemisiones = DtRemisiones
+
+        For Each Dr As DataRow In ObjFactura.DtRemisionesPS.Rows
+            ObjFactura.AgregarPS(Dr("CvePS").ToString().ToEntero(), Dr("Cantidad").ToString().ToDecimal(), Dr("PU").ToString().ToDecimal(), Dr("Descuento").ToString().ToDecimal, Dr("Obs").ToString(), CveUM:=Dr("CveUM").ToString().ToEntero(),
+                                 CveProyecto:=Dr("CveProyecto").ToString().ToEntero(), CveSubProyecto:=Dr("CveSubProyecto").ToString().ToEntero(), CveVentaDetallePadre:=Dr("CveVentaDetalle").ToString().ToEntero(), CveVentaDetalleRemision:=Dr("CveVentaDetalle").ToString().ToEntero(),
+                                 PorcentajeIVA:=Dr("PorcentajeIVA").ToString().ToDecimal())
+        Next
+
+        ObjFactura.GenerarSalidaAlmacen = True
+        ObjFactura.DtInventario = ObjFactura.DtDetalle.FiltraParametros("CveTipoPS = 2").Copy()
+        ObjFactura.CveAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveTipoAlmacen = 1 AND CveSubProyecto = {VentaRemision.CveSubProyecto}").ToString().ToEntero()
+
+        ObjFactura.CalculaTotales()
+        ObjFactura.PreparaTimbre()
+
+        Dim SbAlert As New StringBuilder()
+
+        Try
+            Retorno = ObjFactura.EmitirFactura(False, Transac:=ObjVentas.IniciaTransacSQL(), Modulo:="Cobranza/GuardarVenta")
+            Retorno.Factura = ObjFactura
+
+            If Retorno IsNot Nothing AndAlso Retorno.CveVenta > 0 Then
+                For Each msg In Retorno.Mensajes
+                    SbAlert.AppendFormat("{0} <br/>", msg)
+                Next
+
+                SbAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF Factura</a></li></ul><br/>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", Retorno.CveVenta)))
+            Else
+                SbAlert.Append("Ocurrió un error al generar la factura")
+            End If
+        Catch ex As Exception
+            SbAlert.Append("Ocurrió un error al generar el documento")
+            GuardaLog(ex.ToString())
+        End Try
+
+        If Retorno IsNot Nothing AndAlso Retorno.Mensajes IsNot Nothing AndAlso Retorno.Mensajes.Count > 0 Then
+            Retorno.Mensajes.Clear()
+            Retorno.Mensajes.Add(SbAlert.ToString())
+
+            If Not Retorno.TieneError Then
+                'CONVERTIR LA REMISION EN OBJETO DE FACTURA DE INGRESO, PARA HACER EL PAGO EN LA FACTURA
+                VentaRemision = Nothing
+
+                If ObjVentas.GetVenta(Retorno.CveVenta, UsuarioActual.CveEmpresa) Then
+                    Dim DbRowVenta = ObjVentas.DtResultados.Copy().FiltroPrimero("")
+
+                    If DbRowVenta IsNot Nothing Then
+                        Dim VentaActual As New Venta(UsuarioActual)
+                        VentaActual.CveVenta = Retorno.CveVenta
+                        VentaActual.TipoDocto = DbRowVenta("TipoDocto").ToString
+                        VentaActual.Fecha = DbRowVenta("Fecha").ToString.ToDate
+                        VentaActual.CveCliente = DbRowVenta("CveCliente").ToString.ToEntero
+                        VentaActual.CveMoneda = DbRowVenta("CveMoneda").ToString.ToEntero
+                        VentaActual.SerieFolio = DbRowVenta("SerieFolio").ToString
+                        VentaActual.ClienteNombre = DbRowVenta("ClienteNombre").ToString
+                        VentaActual.TC = DbRowVenta("TipoCambio").ToString.ToDecimal
+                        VentaActual.Total = DbRowVenta("Total").ToString.ToDecimal
+                        VentaActual.IVA = DbRowVenta("IVA").ToString.ToDecimal
+                        VentaActual.IEPS = DbRowVenta("IEPS").ToString.ToDecimal
+                        VentaActual.RetIVA = DbRowVenta("RetIVA").ToString.ToDecimal
+                        VentaActual.RetISR = DbRowVenta("RetISR").ToString.ToDecimal
+
+                        VentaActual.PorcentajeIVA = DbRowVenta("PorcentajeIVA").ToString.ToDecimal
+                        VentaActual.UsuarioActual = UsuarioActual
+                        VentaActual.CveSubProyecto = DbRowVenta("CveSubProyecto").ToString.ToEntero
+
+                        VentaRemision = VentaActual
+                    End If
+
+                End If
+
+            End If
+        Else
+            Retorno = New Modelos.Factura.MMensajeFactura()
+            Retorno.TieneError = True
+            If SbAlert.Length = 0 Then
+                SbAlert.Append("Ocurrió un error al generar la factura")
+            End If
+            Retorno.Mensajes.Add(SbAlert.ToString())
+        End If
+
+        Return Retorno
+    End Function
+
     Private Function RegistraIE(Metodo As Integer, CveBancoCuenta As Integer, ImportePago As Decimal, Fecha As Date, CvePrePoliza As Integer, VentaActual As Venta, ByRef ObjIE As ClsBancos, ByRef ObjConta As ClsContabilidad, ByRef ObjVentas As ClsVentas) As String
         Dim Retorno As String = ""
         Dim CveIEPago As Integer = 0
@@ -755,17 +902,25 @@ Partial Class Ventas_PVCobranza
 
         Dim ExistePDF As Boolean = False
         Dim ArchivoPDF As String = ""
+
+        Dim AplicaTicket As Boolean = ObjFactura.CveEmpresa.Contiene(190, 192)
+
         If ObjFactura.TipoDocto = "Ing" Then
-            ArchivoPDF = String.Format("{0}/PDF/{1}/{2}_Ticket.pdf", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
+            If AplicaTicket Then
+                ArchivoPDF = String.Format("{0}/PDF/{1}/{2}_Ticket.pdf", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
+            Else
+                ArchivoPDF = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
+            End If
         Else
             ArchivoPDF = String.Format("{0}/PDF/{1}/{2}.pdf", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
         End If
+
         If File.Exists(ArchivoPDF) AndAlso ObjFactura.TipoDocto = "Rem" Then
             ExistePDF = True
         Else
             'REGENERAR EL PDF
             Try
-                GenerarPDFVenta(CveVenta, AplicaPagare:="1", GuardarPDF:=True, RegenerarPDF:=True, DescargarArchivo:=False, EsTicket:=True)
+                GenerarPDFVenta(CveVenta, AplicaPagare:="1", GuardarPDF:=True, RegenerarPDF:=True, DescargarArchivo:=False, EsTicket:=AplicaTicket)
                 If File.Exists(ArchivoPDF) Then
                     ExistePDF = True
                 End If
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 70d2e2c57..21f4ce9a4 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -25597,7 +25597,7 @@ Partial Class Ventas
 
                     Dim AplicaCancelacionConPagos As Boolean = False
 
-                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso Not EsRefacturacion AndAlso ObjFactura.Pagado > 0 Then
+                    If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso Not EsRefacturacion AndAlso ObjFactura.Pagado > 0 Then
                         AplicaCancelacionConPagos = True
                     End If