From 44dd59c023c51a16a482bad7e590022f343a0105 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 26 Nov 2022 13:50:02 -0700 Subject: [PATCH 1/8] -- que genere el log al consultar --- Ashx/E119.ashx | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx index 782584b41..3bcda13fb 100644 --- a/Ashx/E119.ashx +++ b/Ashx/E119.ashx @@ -196,6 +196,8 @@ Public Class E119 : Implements IHttpHandler TieneError = True End If End Using + Dim Msg As String = "Consultado día: " & Fecha.ToShortDateString + Msg.GuardaLogAD("LogE119") Else RespuestaError.message = "la fecha no es leida correctamente" TieneError = True From 5d597d32ce56943caf39237f64c07f8e39b01cd4 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Wed, 30 Nov 2022 06:31:14 -0700 Subject: [PATCH 2/8] --- App_Code/ClsRH.vb | 7 +++-- General/CONTRATO.doc | Bin 0 -> 48128 bytes Nomina/Nomina.aspx.cs | 3 ++ RH/Personal.aspx | 7 +++++ RH/Personal.aspx.vb | 64 +++++++++++++++++++++++++++++++++++++++++- 5 files changed, 78 insertions(+), 3 deletions(-) create mode 100644 General/CONTRATO.doc diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index b6ee28d2f..5fb4804f3 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -2452,7 +2452,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function - Public Function UpPersonalAltas(CvePersonal As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean, ValIndemnizacion As Boolean, ValSeparacionunica As Boolean, ValPrimadeantiguedad As Boolean) As Boolean + Public Function UpPersonalAltas(CvePersonal As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean, ValIndemnizacion As Boolean, ValSeparacionunica As Boolean, ValPrimadeantiguedad As Boolean, Optional Observaciones As String = "") As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_RH_PersonalAltasUp") @@ -2466,6 +2466,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@ValIndemnizacion", SqlDbType.Bit).Value = If(ValIndemnizacion, 1, 0) .Add("@ValSeparacionunica", SqlDbType.Bit).Value = If(ValSeparacionunica, 1, 0) .Add("@ValPrimadeantiguedad", SqlDbType.Bit).Value = If(ValPrimadeantiguedad, 1, 0) + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones End With Try SqlAdapter.Fill(Data) @@ -7397,7 +7398,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno End Function - Public Function estatusPersonalUp(Fecha As DateTime, CvePersonal As Integer, CveEstatusPersonal As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean + Public Function estatusPersonalUp(Fecha As DateTime, CvePersonal As Integer, CveEstatusPersonal As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional CveMotivoBaja As Integer = -1, Optional Observaciones As String = "") As Boolean Dim Retorno As Boolean = False Data = New DataTable SqlDataAdapter("PA_RH_EstatusPersonalUp") @@ -7407,6 +7408,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@CveEstatusPersonal", SqlDbType.Int).Value = CveEstatusPersonal .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveMotivoBaja", SqlDbType.Int).Value = CveMotivoBaja ' + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones End With Try SqlAdapter.Fill(Data) diff --git a/General/CONTRATO.doc b/General/CONTRATO.doc new file mode 100644 index 0000000000000000000000000000000000000000..47e90f754e6281748ec48a56ab31adea29cd949b GIT binary patch literal 48128 zcmeHw2YeJ&-|nOmN+3W8RTx4L)R00+B1N(!3nZkGLY1=FEXl^rZrG9#BLV_aR0vfN z0SgEMQbiD@tAI!^f|L-NC^Zm3RLFh)XG%7kT|nP^@8|oO$?w@YGiT3#r`mD_(21+FdL&UNCd zx^mpDI$Mc}90$%~^WeB&+H+h@E;TbXbJ_f5^V!*QKUH0QxUc~nxBLF)48o-s%4Ksd zBpg;-X=yF_$WdClU;|5RLn~;beWH($miC!A?uk>!v8N_q#@<`Fg#8i|DDk^^pS`^q z`TF`C=Vx`@%4ayvjFwNwdD@<|AJag%&UW7h4+#ZN_n5;KmcpIW8N= zNw~ir6=1Uw9jI!mx2a7Y9on{MA+96(ti!$r_EfI*Cec;eOZ}Fvq2rr4$iRI>(hg08 z9NYa?l>ZvCY|F7dCi+-!QaRS=o+d5z^GW6X-SQo^K`Kw8lO%83o-3Hq+2y1x`_lPN z4LR-;6eis#mD><>AilhgeGv8}f3!*0_4E~vi*SDqlG3r1FXaB`zf!qUNo&Dml1HlN zBK8uUrM*umRuJW6{<_esaEKqjozwFSYlt?j4m!wz(e+N&^_Fj^KwIR|mi3Q7X58J_V{q#K$Ek zDw5-QWglf+a*85`k5uwF(@hZ_&nGAn6?}X*{6s2~m5H%Yaf(O<-=9y2Pvn!Ml(7l% zRvGdByfTiDQFMz>R3`C?9*I#A@iB@dToJ=ZC~&Pm-#bOgM<`>IR3ep;5{JDaFes96BTh0QArW;d}4fTJg?}lh*7X=l2TA+;`Ru%iW(dl zm8gtJMu|O?amqxY6EO-tPT3d2t_2QM?FWAVq%nhyAVDu9-ZQQ#Rl+g zL#Q<54Twi)ts23uk55V_+VVX?-1wxZm>3XA0Ww9QJSsAtPfCeUCPno@0=-14M;!44 zT*LiIARg$Qh{O!gFF}!<7#}xN#ZKvC9NVkwB(^J!XQza4_~fGUYId9WfG^kz(=2BQPixnxL4q%tA~eIe%Hs6UUR zl%y0~)X~#3k_QL)7|bwCgGptIDKN3Dv2LsKTGuj8N+=CT)&*E1G}{b*fZ@QNtRLX)x+lI*rl5s||XS z)?}s{OuR-9F^f^eB@1%epI3llOk_ziB2r?K!G0na-xE@$h>02iI+A>dYQ^U#SyB^> zhCGcLy!1zV1=^@g+AOUp%ivFBAOh%BAO%{WO;e@uS(*{(q+aFEXQ}egGvsS<-k(p@ zWTU-knu_|b)1<3($kg%KMnkq%W2U}RlZm|MUyNB=J)^FUR~gM(wMAzL4yLknDn3S& z$9LDHX^dh4W}_-qm5Jt%@J2!fBcdSR-J#tO67+|(CAclAbs`xXC=1^!DvqgEnR@U^ z@sK7(0OX*pl^mdbqyg5F=cd!CvQ$PeP;JOE@EI!N8G4A;o76_FS)_{tq7XSuX1ZFf z&C%+HSZ)5i8*=ki#Rk(zo_@<{XE18hwR%P(x+FqtL51-+snL%lrt@irEXbn{Bs6QX zAW$F;Xo=P{11Z}TQhieL3f7?$>;a#s>=Bg&RTqUIDmE#J&rj?gF_QP^E4PXikQBnK z%1YJ#q8IE0xLZVwQ>iT)BMF5bNliB7o7f@Bs;K7B0^Tsp2+P7}lhq*wp$p5*izWvO zV}WurbuO>>W({eHDheZvQq)4QZupcmW=mz?zg?Uo(Ip_`4n+z5z(KAhi0%W5my;=)(SF5sN2bij>vdvnv zB@K5@=p&Je&w(Zy1Na13 zD~ryoCCetUmYRUlght_Z@J6dgOJVF@#Ua@ogb%R@S-L@Q6cJ=nVNu}_qv9gr!4dzE zR>4JE#XsaHn4gM~)RQ@KJ8H=%DPsBvZUy^9q)=l(TtGyCC+{ivu@pXuPa%&6%axEA z6$=9g`=yjbjkTF^6^uyJLe|vUJ9-e;UyfVQA zM@?k&Q34}DbbKQEs3anY0h;XpDmXB*@+#EBh{&1)CXj5KwCNV`n4Fgs?kSTHMn!c8 zDU&+>Wp4(Oh>;3Nl5Bva3ku2HBsmaPIohIEnJuuHnpa68CDIurEzMCuiA3Eb(SWEM zi`39C+1N7GPlHSv^iWtWYGHyy&W*XeGJPXORBLpaR0w}XZ^yhJ9Nu+ucqX1AzC6BN zDBm4TWo?b3>d|0ZADArpK&DmpscS%;CLU@eX_%FjFjX`YC`7F*vY0GLkcz=S8=>WJ zHl%%NpciYA3f5wTHVbBmnwCt09jio4Nk2#``b9xOlnA|JA-&|Hld(q_&tk_YF@EE_ zBQRtEYxk(cSV|!3L{Svbv3uA^!k>rKF^dWwk(fXevq)Z;77MD1&_Xh8u!(8LB0i1z zY6`NfY$B5}#%jS}3Q7&W(RC;Q0hg9sJj`dh0VWwq5>Pu*N&QeDBZ&<{y3;^J82K<| zRl(e-ElloUz%o>MDk8t$q_!B1BqpG(8RZM1lT~}HScB#u%*ZMNkqrTS1R^{QTnjqD z0!b(rq)gCXxxYNzzm>_t6{;MqiBUWN0D6*{D^Oiugh> z?+EhJkYqv*frDMw2~lkhI*4Ed(VxW(^X{ zVmc@p7+GM+k}-Ql<~I%6A;iHHimE6`CZhs#247|rObBAiY&ydfMhuHcN+G$R9+4iL z(NT*unII_~AP-KU3Q0jI7(~DrA(+%8Eqow+81)I{WzJXP3qMSoi8cw1u%|X82PR7@ z3(l$LEEOpfsf@%aLG*-C2029e@6$&MOsm_Oh|B&1Q(Tv0RW4=K@^My z${39DpbTWn3`V0Nof`bR9>j!=u^D1eVbn4~Ij9|A2MC9FfSQ2V)u^`UDP{ogiA*%o zO%@%GNrfR4BGEK0+i5}UbR#Nb#zQoZOs0(*vr(IBkysCdSVjyTNe<%?n8gMbX&Q{* zFh+w*#HblwHi~u~D~4rHcg7Ew1-A?Kpr12Jf|5I+kK>=Z*p6vtL*fb|4IVvV9Qh{;$)3k1i_e_q*$gs_Sx`Eiip`igmK@b&8Lcj-r zofv%O=U$s_EK@6(7t~TJV0A2}aDETiM3|Mu72q9TfxCAwIoZ?HtuZZ?Y z^mE`On2YO8mP|}DvFbr7(IHrO7%?8EO++a|moXC2!QC=`OYI`_m89$^SuZQU36IT& zK`M(G18|D>QH7Xq6#1$dffFQrDji5cmXcbYsuJRBst`_#c+R>YOc0QpU=n3eV|atW z8`8+;I8+F*MDM6pfwqi7BtzxwtuRSs)C@cRRYn;$xEJ+jTV>?h&+Icf+Ha}Ax(M+(T570 zOT#po5HU&duRw7UdwJpvG!QgHprF77GP)IqFKL=ok`6;E26<|Vx*cfc9dSrQTwom~ z;xO*p%8#9K4x5l7okI*DC@)ET8Uh(u5^`Tg9!0Soui*f@;Wkr}0?Slz+=x*#J& zEegLW6l3gUT@&pb^YP_!M5Bk|hyh|y2(zG*8p=Xc6eTqkx@{3!hjyl-Ni4F(K#n!m zs!haT)>gp{2wjl^6fw#{wHYc%5<)6cN|z0Y4 zj8kIaJWQQdk9jK!^r?}MbDHk;=P|-zEv+8I2Mlz*-A zt{XHgCv8w8OwOfge*v2*x~Bn=B>PMtzy>A{H1>ozXfPd!sxa_?Kh+vR4T*$m8zaT& zYp>ZXYW4WKS70S%c|vm`i5&X!Is5e2{YE8jPIKPFfX`=BFSu704}+Rb#9`Q=u+WH3N~7 z3L+_{I8W>h^8jU1zy=4xU^fPp=4cTLkW@qRL}?R34@e*Rk@Cg_WFf^cs@NbI0u2Qb z;wOZ%!l)Sw66MCDWEyj{X*39D9VWv>F^cW<7N0E4Si#GZEyhhW`AF)JF2pM2ZRMC7 zqffd9a~39AqGNNM*1AP=!>CT4!z=Ug%uh4_tHtb|6{Ur#Xrd%UR^kQb3Ynp!AOq|| zCosQ=_<+Y?H%Ew&sjRZu4hpZ)W~jO7F(}R;iV5>qf?;O;r*R8ST?qmTO)6u$JuQ;u zt4!lWfg%NxnU8>kLQM!f1@n?Jk-LYVK_D*)2U@A6H6+o|AjqK(iE|Rj6f}(q0qFyq z;x8vqnB1fJf3P2fK`4X4jRBW|T4Zfy!s{@3XQnWhT}NCKRf5QtO>-4AcgO22>10cY zcq-UOby+M)mXq<9I72ZsnP=G=K_D%{oEHhrFs#SG|I(U7IZI2@K&_(tV8-uYiI+8p z+JJRf8UoVXCR=`C({5taYi-(?Z$JRSJb*BWDx1mf$Sa-;VD=5_Y&4`{y2Hq)YEnTu z6pCS!7NIzsj+D(Mrun+zo&@TZ7^qOtLe0de5%vOX)u{~`cR&qFN>&t>OS%nYF~TrW zY@RI=3EC#q%3=}?%%Xv&<}8R8O=_%~ur6k)$nBA#z>JW^gfIaqjOo~7Hrb+o!0|u{J!A!7`3g&-6XCh%4J1|2Au97Q5KMd-!iCYj}TuVSCD7Igd19pMy z)?+y|7<^`d@GvZ`F$+#%5|a<6Z?NWA4#O!{jYfyu0KU7_S{4Yi=#TV3twQf4?C@b9C~blWF$)iVnjXHk%^+USW!rU zs6j3ufR7g24uwTLgz+KMKZ;>2U=>A2nTXbmkQ9iYR?o(X(&Pn-qFGhsv1bEdTZ}A> zrF9cTPOvK`ns9(aQR%5Cq6irRNerQ!znir*CyNa9F-=2i&c+^4l3pT7 z&`vVF;1XTN8cZ=3+5rGXVvV{ z8{Er37AkVd!QyV3M*T9qKuwAipMa^`e`Y2N2nL7Xf;BhD4Q0_ z#aXC4NUD|$sUV*Qeug5(`e_pdTjgRC3CsmrMIY2#bW}yo8{Pyo76uP9=amLdR8G`S%gRRlvmsg3nm9J14z=& z*2U1dPIL_nfcSKV^|XkI0$An>C`g4Qj3|QsiS#2AcZb%P1eIid3tgAz9>v)xTGlYq zY6deptQ2S;{HQ=3)&Xr67Ejgiv!XG{p@}hAOeks^Jv;_|kkwl-9c-xw^GukT>16xl z5#-Bueh03U*n>jz5bTisqbQUt3iJu1AJ`@KG>GhRn9T4>dMEgu^US1cs6zRfw-J&Fkr@h`{m*)<4l=CB;>?Yv5qCFwH^cRC?Hp0)I)}kv8xs zj{*;B5^jL|p-P0+b;O+F1Pj~(i>rl4qDbp|Vr34YKfJ#`CNtq=$QKfS^5ZO7SU--` zszypCg1JSyDL+?b|#J<%EwAHbJA%<5U;$yKp=o>gofXk%4AMV+<}cUGz5>82QN zxek?wJ)e;*&nwL&31aSAlnU~kIz9@IMqtGTBYPavEjXuV&x^9`GNa_rZ>8bSbrsl% z_$Ujr1sDNzWvd66*CKX7=*b-5$_Pslc@A9N)zeM+_*xMsNYC}4Zs-z;7JCfuZ&&H* z`Okk8`+uf|czWLnXa^_&9bg0|0V{#ef%U*H-~ez3cm!}&IW8Pf1G|AEz+K=Tz*XZo zSHKNO0EPgwfp>v5z*^wXYiF*V+5h#j{b%N#nUtHm|IDN_8Q8Eplbmda60PcGbgHwB z^U2tVmybGljERW$;o_s6x!!;Z>8zeUt|p*~PsW}XlIe<9OlqM6dbtafe1_ihv*pc~ zc$;GrpsEf20w%x=yjh3iCIH{z&7fVt_4*ul1L%V{zWM?yfV)6vys0!E*bOwmTRL~F z`C0DZXX~7D2jwm+cW}!3o^meAzhv0T>M;Wjl1}8Fre~tNlyz3 z#M@YQ&W~-qUOewqcD+-28VP{C>)H7Rq>Jl-t-$xdUf?Ql52%h>Y5-aw2Y3_M20K~z~*mGcC*7{ zDc5fA!9U^N$MDZb@D;YS;pBS9zMO8iUcnPRKG$xW>$+r8XMHlhd*%uk6kUr;@o;)P z7iAe(-{r((^?>p#^hCa!Xk1TFwq zfos4WpaggTJOodfy|J925Q$|g}Ha~m5YQ>ZlQxe(cNDPP{ zWxl^cA7yTlw{@Irmml)IWIP?;YgfYLd)v7F_LzI^OUaX>lqbrrEZ5Dnx4`9KM!5rE_aQrx&3>BB$?kc;>+9~cXa1EiSp zM&W_2t7%*C_5%ElT>bXjtM%*zept?s)vL?6Y}fk9)Uhi?a_-|L zLr>zboKJcT4%(V1#5s?tTW+6tw;c&?N%8wlpai%J{02B9hW7?SffPWB@B1M=0LTC` zfm|RTcmwzV_z?IASOhEvmIK8_MTd%a6t7z}Yy2XM#$vIgSTre0rIoHrN%WOQZax{} zsL8gkaz0sdJG7AVeffgN=1<7%<{)42G7j=(PCD{4Wp~>)y-ZH2ZH{xVHf~)pSC#?M z4%yx==R2UA+-`dkSf6-A;!fJG!85QYGEu`8>kC-1NDIV0F4oE!c!C$ZpH7`Lh>4v{%qc)d0X@H z4jj-P(Ds+agp>PA1EI&s!ISbG$Pu(gkV7%wj@HmTLOEG|>@}i1*}LYcW!3?2<@+7T zteo#acDUw5`-VUxpatLusw=;<@q}%D}agX^(bEKKVvlJF$bD zJ6`pAMQxRH!@JyjOzz`7lAx(|tR}eNkuh4KQG>1em+6B89?LDVr~e@m|0RA(e3SSh z(fgAY&~IQxOYj}o-G<}#06PMp=fI!Ai2Z@RZ4om9E!shrfH2^Wth-43dk&s*2I`VE zb&gpdlusi_ckyFWJ3f9+QNx^&E6fRDj;BSBkA+XMVFt!_zR2VGg2&ANke=j%ulaz) zed;%yRC;@W8_k2K-ft5&a1xkS2XORb#0J*J@21-K<;x$10_K2 z^GE|FK<*1j10_JNKhi)6kPG?B2P9eh9_drS8Q>yt1^5Lh0dgUO`M{?DX|a`ROKQ(f zm-{(t-#&R-V@Oj$}P*-~FSCS}5oCOB(Q)T)U%C*`qm#T;#ItMi27ce@Fk@ z6TP+p+W|?Jk0N~xI1bzaN`Sk-J>Wj@0N?^4aDX#V9e5Gw3FHF#Knai(gxC>K18IOB z$OZC&H-NDK{62H_g@yB{%rBf@I4XN+Hnu6*Q+i{9pf@U#d;h%YQANtiy${GR*oy|_ zyD7hd?UZxx>Qf(+Td(H*in(&llxrsrk)v-a8~G0WzYsM>`21|I47m;mk|F1db=Y=L z&L^p~(?+ft@!&_G1n36)9SNiWxj;Tp0{j6;_T2-vJr~FaW&ksR`M?5T6|frk64(N4 z1$F~_0Ld@hMcNlWLGlm9=g$`(CZ*hYcpcPm&YU>_+r2${^l*(mMRafu{*kC?OM)`_ zAwyUp7k4>2Z_i(n7pBOsLOHS|*}Y5V!;^H>t{lpDJCHQFZo3*H=h~CvX5^z=0wF*s zK>qqgpd-);=nV7*1_6TsBVYzBzzEa2~h-Tm&uwmw}&wUxBN@P2d(#4BQ4vfIomg0oV5UY$Z?=s14Ks>H-ac zUw{4eIJUjJ%5OM>?F*b-yL|1gT_4OwYP!`W(|1AIuvW$#ti9P=Zz)!kVl!Hd$6Oo%Zhl} zV~kwNb2is8%VYo27wz$z_)Pqic<6|K#5dyAO>2$(I|mo63;3Tuux`zNM;Z$>hz;eq zP~|7agkDdI8NIA^%?v&H8Mp$_w_g`pcYeP0!90ftr3ico$Gwt9 zy#ej(OJTY5?CzY$@gUB5#KZ4u*L#+8kMpk3VfXk7=c<`8jppio59QViajJjM1*7ug z9=NlV(6}twq%8SNS+f0cch1QTH?c%D7aga%=W_93_Hn9+6~P)Irt-|pq`8xAd;tgq zUIM~_Za@N%1SA7}fI+}eAPqmOBKp}7rxBy%RtmX303ft`pXM_{n&#ce?njib#$e!PVPa;p_AHqGG z;Kl_PWH@!qra-9K>cfHj>YZ`TSLHqSMW|p&DPP4Z>Y@Wk8XE?RU;hf^UTjV%7$9s3|Q=KE5R^C8$IPS(dxx{&6@8s+f z@BI|k=6^XYE4x=ofl3NgQlOFol@zF?KqUn#DNsp)N(xj`pppWW6!@o7psBkzR|iv> zBb;h+Rq#LG=npF?^jZ)%2Uzd~gt%kv=n2TdY|)e8sEn6zucN&G7w4Cvzf!qa$dS|1 zIotilr?|%Uo(#%T$Zf;%LEs#43xFtcUH}gS0pUObFcioJ zMgs+aqx-1b){vnSp!XGk$F+Z_oPYa$VW3?<;5Wbn^lSk10bU0RfDeGxz&79@Fd8@q z+yXf8(F@>#ARrv5%=`aG7khSvNA>a1E?ff88yM2l$u+BIRaZS=0?Ys|;bJ&$XmP1C z_BF8NMUO9Fm70s=44je6;#8at$HZbkJQC3WB|UL)TOA%{kT&tnCON+6me$diNkb7+|0&UE~pN6%RNBgK>8uWtBsPRkxXfq<( z3-2&{ahTP&kSg))+H*9ft0FLt*#?)FC6j{`^Sc3NxO0aHQQ!2;0c_`Dmg$cb}T)j~n#VgIZU(VLrN(-D#Ad+>l9~i+tMPVM2 zoR_UJ4GI{MrCTv=Z`{rxFXjE7e~!J>Ci?xg;T|o2d1KdUOsm{H`|cF=%mNX#B~~`b-+rs6l7d z;#zY`Hf{O3b?AiAQIp>f4k1k)iov!IgrjbY;$>Qrv;O)ojTrM_w|`6 zYp1*xGWdtM?WNvB?{>XX_s9>U295$nN=u>d<>!NufleV#>=99Jh*6_61qRUX zxTyy+cLvp%aC7|Tv4=+XKD@I*%bdW)1rdQCkK~G4kIL|Ee5&!)Q}Mgpt9|7$Zqd#A zpLTh)@~sC&Gk@lN-dpCr^L#|ty%|M0UAB&TW6$_SOImsi9FhIz$N8t$5BWOb(8rzk z1vg&Y^NXNab!tsK8UJNjf1wBbX3Y&K^>!*d}qNACJ0{unxR z<nkH&X2S;PApzKVG^pHgtcX_py1sJp22W?#U>4YywNU($H#Pd%G_>#r-? zRqygIBO2`a{GGamQM*mON47XtF#fakXZYjmUpUtMrvI72U;1Tsd8cV2n* zg=ecdhuLrZj*e6Ao*y|&c9GOFLT&1=%G)^0q_-l zbLnqmygjN79R19y9-3HV&5wPbe|Y`N+cn4UjjXml zXwlb8lGVMssmBiQ-~5~8&s*P*^UC^db^NxtKYshPq|4-SAs7@oVSk{baT&6#TM=2#LtfA7#}tYztnbR(#@kC*T1~b{evQ}xc7#y zu^j(#;H-wnIn9t~Hl4bAulvazjeifF9d1hu&KlGU4q8XDmBHm(S9V9Qn!D z;fnSb4=w(p!J5dGlh-$RrrlY$(awo}QRnw)C-=zk=zY4|%o<_E_j)!^oLk&l01|e z8TI{@s; zsaC6inBkAkEZ?wd$ox^IcZYP{nw?QtlreP2AAaBM=(KIg*$AJVPS5;VJbFm%N6nh2 zMql&$FuZEwS79Z&X=xwU`edSSm6emSI=ytcAoJyI`7_jSWe1+G8`Y#yv&c1Wr_WQhmj(4VrlmcMYD= z`^QgD{q{}w9h=829s63dq`hz7KN$JZiN$NDre-#Jt=691%C(`FBI^EFyH4k4QosK? zZuI!ZtBOjh6bw79FI;luM0aDj-!yz?UsT5UdriOdp8pZ2zIo{9n(nc)2ZRLnES$t?o};-R+AB5nsG<;E}m`aZK+zEw)78aT;;v^Smn2gRWH@9nrDLylpPd zUHEU_I?{TAv$?_c&52igk6YpV$;$Da1}`~%yHIl@cw^wyHjUoh7^rX`(%-$#SI^xU ze5$1O`jFPnpG^H=Z}#GWUTaPdnYi@)vTvV_`*PaIBR=}kH+E;fnmYaE6HaYPUOHB~ z^8T2b7yg{^?vy{y?JVh}|F+NCO{q)PJwNwaKuPHG?6(HRzEwQ>wLfEH8^=y>QNxn< zqWVlp`_L}$ly1GL?Q`Zp==>j+y?)`78O0y&-1tk{u${AN9ogf(uX;&`%yZK`UoAP& zYVeD98`h4_H%1pPI5@VM(}8x1`aZMXUohhQYt`m-zm+oU#S`0hjBlcCIJMmaw`sit zyFC{(;rlI#btcdKHDSbab%WX;-WzwOT70YGm#VK-rGL4?eO`Y}y`DZ-7iVs%IrjOv zAHH%ob@aQ-f7C^E$(Ua^VQt^$D&4RdC$bBc9;iQST1mh9Z(rs=jK8Por|a17be~^; zUO6Du>8NqlHkS=mrvBo&b%0ZCuQ&3VwEua`?WD`Uewn+zUDriR`Zhc=naf!HbM1r? zuO~50GvRgTN3`E?yQAN@sk2W%yJ*(b zcbbHq$!Xj4om&a-=|lU>T)eK=?pys=W z+eUkg$W7S4qM_G_hO=9(^?l@1?TG*N_Y5DKYiO=c{G|4KDcw21kSTtnjMYEoErz#{-VFU)8ALgjp%~Q=4mEY@zk(aOC^vmt}5RH)s9MuWR_9 zxc#c~?9dLO!57=F+mZfhe()vze$$z53k&*I4H}{E+T+;fNJY@ndh_}p^}cYa{R-nf z-LaL=+;JHke!Z=7$L`_!GtMuMYOSZyEVP@jR#3zV+Lj>XmEw8~)*pTM!?_momc_V!KXB8gZwlqEJ2|((KM8jf=HfD| z%}&sp(5rj_wsBwC-9ezIRTOA@qiq~jc4I>Xm{#$W5L;Q1-?k*%pr)*(EbTF!2vs&&R#RW^?T^rnugF1{IN zb9TqTK$99lC%(I9z~|MG$G#J4#-TAiFwLmSMZsCRz_vj_A%R&ct=^YUO%Lwkt1}1t z^5zjprM-ewYI<8b*Oty9mG%l!_?L6|peU{o6Ve&v3uokO+DT{HN!PTO&a{`#bdb(; zkj{iiXF`1W41DBt-8G2KKo|dI2qwz8-K=#-Vx|?6Y#|se5|zn#!W#2wtG$o(J#(99IjIW--`fp5+$J zh&qFA&D-&!@xy(~e#5z@#pnk5N9Rhp(W6Im_c8f~LY;3-$0oU02|lI!Z?#Okhni*BIoQcNx}jdLQ_GsYl;7)|N#aam(j_%l%k z8{HuZl5~z9n05t4-UZeG-(m{qATS8`X@Qxb?0jG~un{u&1;&TyadO!rJp0>iz<-pmVPSH^II8z?|Cn6arAQ4j!8Y8hAq}fR(^{pgqQM zU4S7Fwshc%A3mc39BPUF0S_TDRnXSMXybW6XjePb`d2{hq^&Plx&pWXbVjRs0po$r zD0wiD14uPpL|UTEWuy~9k?(-ZGIfYD<>AVXCCX49Z7YG#fxDoO8~CyjJR$4^4gti+ zQvex-5FiW)2L=L}z(imbunX7+><1127htXlSAjdg6$tbY(0(6q2)GIq11Z&@8~}ZS z=q`|g-uD5B8iYl_V&D^CIdC1IPvL}sGMxbW{LMIE8?Xb|3G4!Di9BtAy&o_YpEf7} zjy{XmCIR9dVFviO09XZl32XuO0N;z)i@h%>+yaoOF3F$^WbB^^LH1#}$Plnew@cX5 zM(>2um(J)7SNd83O%)p(*5~M(7W8$3($^C>`syOR33Y?-&(U|e=&i)}8xQ2@tvC8Q zPC{e5K{kXovSw0R+B-vr*hU^F+ZlE+oXi{*P=!l@ zM|=e^aJl%Uvt*8?O}L7#CYvu>ajP_>o$JxG07W@FySuo#x;eYJmIiR=29DsiLE_oQ zDncq5o|k5xO&raBYfvA}Khu1)3N=IRP>wU_hKIMEs<=D52|7zwyKEax$s{fh_oU)Z z9gf-su-dD;yE@b6uyzIJxV6mhQHDaGma7}6KX6T^21@RTm(iz&CyKv0O zid73ID}SGo0(w`y>*sJRW5(18Du2rXC?(-P*}!6P^XNLZH}T1XE2U{!`WB12*hR!Gqa1;)py8UfcFSu{R@G+nLVyUbCvGFKCrH}|$SRB-MxW|r+iCn# zYfDSvnaXV*STUoOCp{!v&!s`18*|ZIJZwS_PRWthq;OHtc3OQ=ARURL82rWKj1uP) za5fR)v!Yz7l?VUb6nF&hQjLu-%J;(whv&vGy!{|P!)y685AKCl>rRrojY9@vASPo4 z*pt4@0T9n|ivSYf)c{HCHvoC8g8;b~l1=hqxp!uoy0UEzA0%-ic0-)JaS|pcLlI7DlQ@K@ApppWW6sV*?B?T%eP)UJG3RF^{k^+?!sH8w81^&Az zK;v9#t(iu`G>)f{FpYa@t)ABDX>Fdy?=&{2aXPKZ)3~3;@-)t;HGCS+djt4)Z)|K% z<9=EP$8(V!9;9YZOw&60lb)K!GIxb1r}3O5dotP|`!>KMJX{lqeGm`~(6co3NMd`S z13>w-79R$@2y_HG0iA&^z)L_^ARJHt-GB%n5>Nu&fgS*r6NP;=&D* zH};7@5|9j}0DXYI0Odaf=#g_uOF;4;v(XcQ20ZCT&-l>W^hP}G_g6L_JYO$$hUQ`1 ztCBQv+&1>hNGYW7>vg?g20h>KGSZ{PvytpMJC%6!*LQe!MXsOP@iZj_&_yJ?*n+LT z5+I!UYri#7Kj{$Z%+uB%f@^#F3ib2_^^JHMD-wG(-kXrV6(Hn3`L_}3CyJBaK5hL} zY8VM6HaAEv)k;r=67QoR1;bdI=!_Z9VbWI?9B-}v2K{?daU%WQD)juXwI>Yqlii}e z)8@FPWjP6y6zg|_=F>B=+0bbEhQVLm>cDymH4DE_d%y8%FMNvY{!aZ;u_U`>mnye^ zCk33qeHS=*>b Modificar salario + +
  • + Contrato +
    • + + + diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index b77a4883e..08b0b90ee 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -847,7 +847,7 @@ Partial Class RH_Personal If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then pnlSalarioIMSS.Visible = False End If - ' + LnkContratoAgropecuaria.Visible = (UsuarioActual.CveEmpresa.Contiene(1, 158)) Using objno = New ClsNominas objno.GetConceptos() dtNomConceptos = objno.DtResultados @@ -7478,6 +7478,68 @@ Partial Class RH_Personal Alert("Se guardo correctamente", TipoMensaje.MsgInformacion) CargaDatos() End If + End Sub + + Protected Sub LnkContratoAgropecuaria_Click(sender As Object, e As EventArgs) + Dim RutaArchivo As String = "C:\Proyectos\SIGGIT\General\CONTRATO.doc" + + Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo) + + Dim ObjRH As New ClsRH + + If ObjRH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then + Dim Tags As New List(Of TagsDocumentos) + + Tags.Add(New TagsDocumentos("{NombreCompleto}", ObjRH.NombreCompleto)) + Tags.Add(New TagsDocumentos("{años}", (DateTime.Now.Year - ObjRH.FechaNacimiento.Year).ToString())) + Tags.Add(New TagsDocumentos("{SubProyecto}", DdlSubProyectoAsignado.SelectedItem.Text)) + Tags.Add(New TagsDocumentos("{EstadoCivil}", DdlEstadoCivil.SelectedItem.Text)) + + Tags.Add(New TagsDocumentos("{CiudadOrigen}", TxtCiudad.Text)) + Tags.Add(New TagsDocumentos("{RFC}", ObjRH.RFC)) + + Tags.Add(New TagsDocumentos("{NumeroDia}", String.Format("{0:dd}", ObjRH.FechaIngreso))) + Tags.Add(New TagsDocumentos("{MesLetra}", String.Format("{0:MMMM}", ObjRH.FechaIngreso))) + Tags.Add(New TagsDocumentos("{Ejercicio}", String.Format("{0:yyyy}", ObjRH.FechaIngreso))) + objGemBoxDocument.SustituirTags(Tags) + + End If + ObjRH.Dispose() + + + + + objGemBoxDocument.GuardarStreamPDF() + + + Dim objbyte = objGemBoxDocument.GetBytesDocumento + + + + + Try + Response.Buffer = True + Response.Clear() + Response.ContentType = "application/pdf" + Response.AddHeader("content-disposition", String.Format("{0}; filename={1}.{2}", "attachment", "Contrato.pdf", "pdf")) + Response.BinaryWrite(objbyte) ' create the file + Response.Flush() ' send it to the client to download + objbyte = Nothing + HttpContext.Current.Response.SuppressContent = True + HttpContext.Current.ApplicationInstance.CompleteRequest() + 'HttpContext.Current.Response.End() + Catch ex As Exception + + If UsuarioActual.CveRol = 1 Then + Alert($"Error: {ex.Message} | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))}", TipoMensaje.MsgAdvertencia) + Else + Alert("Ocurrió un error al generar la descarga. Favor de contactar a soporte tecnico cod:'IMPDFclspag'", TipoMensaje.MsgAdvertencia) + End If + End Try + + + + End Sub End Class From 95d5e901c6706707411069ce245921af96363727 Mon Sep 17 00:00:00 2001 From: MLopez Date: Wed, 30 Nov 2022 09:07:29 -0700 Subject: [PATCH 3/8] E172 Rep Indicador Resumen: Agregar tabla de Indicadores agrupada por Proveedor --- App_Code/ClsCGame.vb | 20 +++++++++ Compras/Compras.aspx.vb | 4 ++ General/RepIndicadorResumen.aspx | 63 ++++++++++++++++++++++++++++- General/RepIndicadorResumen.aspx.vb | 46 +++++++++++++++++++-- 4 files changed, 129 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsCGame.vb b/App_Code/ClsCGame.vb index ce78e577c..7622d3cae 100644 --- a/App_Code/ClsCGame.vb +++ b/App_Code/ClsCGame.vb @@ -3390,6 +3390,26 @@ Public Class ClsCGame End Function +#End Region + +#Region "INDICADORES" + + Public Function GetIndicadores(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Citrus_IndicadoresGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los indicadores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + #End Region #Region "IDisposable Support" diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 52b8f4eff..e7ae66cd7 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1,10 +1,14 @@ Option Explicit On Option Strict On +Imports System.Data +Imports System.Xml Imports System.Diagnostics Imports System.Globalization Imports System.IO Imports System.Threading.Tasks +Imports Newtonsoft.Json +Imports Extensiones Partial Class Compras_Compras diff --git a/General/RepIndicadorResumen.aspx b/General/RepIndicadorResumen.aspx index 150701480..1fb38f090 100644 --- a/General/RepIndicadorResumen.aspx +++ b/General/RepIndicadorResumen.aspx @@ -348,7 +348,7 @@ CssClass="table table-striped table-advance table-hover ScrollAD " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"> - + @@ -381,6 +381,66 @@ +
    +
    + + +
    +
    + + Indicadores por Proveedor +
    +
    +
    +
    +
    +
    + +
    +
    +
    + + + + + + + + + + + +
    +     +     +
    + + <%--
    + + +
    +
    + + Indicadores - Gráfica +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    +     +     +
    --%> +
    + @@ -435,6 +495,7 @@ AmCharts.makeChart("chartdiv_cxp192", { ...chartconfig, dataProvider: json["CxP192"] }); // Compras x Producto ProveedorClasificacion 192 AmCharts.makeChart("chartdiv_ccxc", { ...chartconfig, dataProvider: json["CCxC"] }); // Cuentas por Cobrar x Cliente AmCharts.makeChart("chartdiv_cpxp", { ...chartconfig, dataProvider: json["CPxP"] }); // Cuentas por Pagar x Proveedor + // AmCharts.makeChart("chartdiv_indicadores", { ...chartconfig, dataProvider: json["Indicadores"] }); // Indicadores por Proveedor document.getElementById('amChartsAttribution').style.visibility = 'visible'; } diff --git a/General/RepIndicadorResumen.aspx.vb b/General/RepIndicadorResumen.aspx.vb index 64dd89557..f25a5be80 100644 --- a/General/RepIndicadorResumen.aspx.vb +++ b/General/RepIndicadorResumen.aspx.vb @@ -77,6 +77,20 @@ Partial Class General_RepIndicadorResumen ViewState("CPxP") = value End Set End Property + Private Property Indicadores As DataTable + Get + + If ViewState("Indicadores") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("Indicadores"), DataTable) + End If + + End Get + Set(value As DataTable) + ViewState("Indicadores") = value + End Set + End Property Private Property DtColor As DataTable Get @@ -126,7 +140,8 @@ Partial Class General_RepIndicadorResumen Dim ObjVentas As New ClsVentas Dim ObjCompras As New ClsCompras - Dim ObjMovtos As New ClsMovimientos() + Dim ObjMovtos As New ClsMovimientos + Dim ObjCitrus As New ClsCGame If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), MinFecha, MaxFecha, -1, -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=1) Then @@ -177,17 +192,28 @@ Partial Class General_RepIndicadorResumen CPxP = Nothing End If + If ObjCitrus.GetIndicadores(UsuarioActual.CveEmpresa) Then + + Indicadores = ObjCitrus.DtResultados + GvIndicadores.DataSource = Indicadores + Else + GvIndicadores.DataSource = Nothing + Indicadores = Nothing + End If + ObjVentas.Dispose() ObjCompras.Dispose() ObjMovtos.Dispose() + ObjCitrus.Dispose() GvVxP.DataBind() GvCxP192.DataBind() GvCxP.DataBind() GvCCxC.DataBind() GvCPxP.DataBind() + GvIndicadores.DataBind() - ' Mostrar gráficos solo si hay datos en su respectiva tabla + 'Mostrar gráficos solo si hay datos en su respectiva tabla If GvVxP.Rows.Count > 0 Then UPGraficaVxP.Visible = True Else @@ -213,8 +239,13 @@ Partial Class General_RepIndicadorResumen Else UPGraficaCPxP.Visible = False End If + 'If GvIndicadores.Rows.Count > 0 Then + ' UPGraficaIndicadores.Visible = True + 'Else + ' UPGraficaIndicadores.Visible = False + 'End If - ' Si no había datos en ninguna tabla no cargar función de gráficos + 'Si no había datos en ninguna tabla no cargar función de gráficos If (GvVxP.Rows.Count = 0 AndAlso GvCxP.Rows.Count = 0 AndAlso GvCxP192.Rows.Count = 0 AndAlso GvCCxC.Rows.Count = 0 AndAlso GvCPxP.Rows.Count = 0) Then Exit Sub GraficasPastel() 'GraficasBarras() @@ -247,6 +278,13 @@ Partial Class General_RepIndicadorResumen End If End If End Sub + Protected Sub GvIndicadores_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvIndicadores.RowDataBound + 'If e.Row.RowType = DataControlRowType.DataRow Then + ' If e.Row.DBCampo("Orden") = "" Then + ' e.Row.CssClass = "Totales" + ' End If + 'End If + End Sub Private Sub CreaDataTableColor() DtColor = New DataTable DtColor.Columns.Add("Color") @@ -447,6 +485,8 @@ Partial Class General_RepIndicadorResumen Next Dim query_cpxp = From s In DtCPxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} + 'TODO: Indicadores x Proveedor -- Determinar qué poner en la gráfica con E172 + 'Serializar datos agrupándolos en su respectivo DataTable, todos en un solo JSON Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CxP = query_cxp, .CxP192 = query_cxp192, .CCxC = query_ccxc, .CPxP = query_cpxp}) 'Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CCxC = New String() {}}) From 2d83db0b82d799afc879e4a9cc07451850d1b880 Mon Sep 17 00:00:00 2001 From: MLopez Date: Wed, 30 Nov 2022 14:12:10 -0700 Subject: [PATCH 4/8] =?UTF-8?q?E172=20Rep=20Indicador=20Resumen:=20Afinar?= =?UTF-8?q?=20informaci=C3=B3n=20de=20las=20tablas=20-Los=20saldos=20y=20t?= =?UTF-8?q?otales=20ahora=20se=20muestran=20como=20campos=20de=20moneda=20?= =?UTF-8?q?para=20distinguirlos=20mejor=20de=20las=20cantidades=20-El=20ti?= =?UTF-8?q?po=20de=20moneda=20por=20entrada=20ahora=20se=20visualiza=20en?= =?UTF-8?q?=20las=20tablas=20-Las=20tablas=20ahora=20se=20ordenan=20por=20?= =?UTF-8?q?subtotal=20y=20moneda=20o=20saldo=20y=20moneda=20-Las=20gr?= =?UTF-8?q?=C3=A1ficas=20ahora=20solo=20grafican=20el=20Top=2025=20de=20ca?= =?UTF-8?q?da=20tabla?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Cambios en BD [SIG_Resp_MLR]: - Se modificó PA_Citrus_IndicadoresGet - +2 param: @FechaI @FechaF - Ahora filtra por CveTipoProveedor = 192 (Productor) - Se modificó PA_Vta_GetRepPS + columna Abreviatura, los totales usan la Abreviatura ahora en vez de Moneda --- App_Code/ClsCGame.vb | 4 +- General/RepIndicadorResumen.aspx | 33 +++++++----- General/RepIndicadorResumen.aspx.vb | 83 +++++++++++++++++++++++------ 3 files changed, 92 insertions(+), 28 deletions(-) diff --git a/App_Code/ClsCGame.vb b/App_Code/ClsCGame.vb index 7622d3cae..25c25c7a7 100644 --- a/App_Code/ClsCGame.vb +++ b/App_Code/ClsCGame.vb @@ -3394,11 +3394,13 @@ Public Class ClsCGame #Region "INDICADORES" - Public Function GetIndicadores(CveEmpresa As Integer) As Boolean + Public Function GetIndicadores(CveEmpresa As Integer, FechaI As Date, FechaF As Date) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Citrus_IndicadoresGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF End With Try SqlAdapter.Fill(Data) diff --git a/General/RepIndicadorResumen.aspx b/General/RepIndicadorResumen.aspx index 1fb38f090..bbe65bf2a 100644 --- a/General/RepIndicadorResumen.aspx +++ b/General/RepIndicadorResumen.aspx @@ -127,7 +127,8 @@ - + + @@ -183,9 +184,14 @@ - + + + <%-- + --%> @@ -239,7 +245,8 @@ - + + @@ -294,7 +301,8 @@ AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"> - + + @@ -349,7 +357,8 @@ AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"> - + + @@ -388,7 +397,7 @@
    - Indicadores por Proveedor + Indicadores por Proveedor Productor
    @@ -405,11 +414,11 @@ - - + + - - + +
    @@ -423,7 +432,7 @@
    - Indicadores - Gráfica + Indicadores por Proveedor Productor- Gráfica
    @@ -495,7 +504,7 @@ AmCharts.makeChart("chartdiv_cxp192", { ...chartconfig, dataProvider: json["CxP192"] }); // Compras x Producto ProveedorClasificacion 192 AmCharts.makeChart("chartdiv_ccxc", { ...chartconfig, dataProvider: json["CCxC"] }); // Cuentas por Cobrar x Cliente AmCharts.makeChart("chartdiv_cpxp", { ...chartconfig, dataProvider: json["CPxP"] }); // Cuentas por Pagar x Proveedor - // AmCharts.makeChart("chartdiv_indicadores", { ...chartconfig, dataProvider: json["Indicadores"] }); // Indicadores por Proveedor + // AmCharts.makeChart("chartdiv_indicadores", { ...chartconfig, dataProvider: json["Indicadores"] }); // Indicadores por Proveedor Productor document.getElementById('amChartsAttribution').style.visibility = 'visible'; } diff --git a/General/RepIndicadorResumen.aspx.vb b/General/RepIndicadorResumen.aspx.vb index f25a5be80..29e79f3e9 100644 --- a/General/RepIndicadorResumen.aspx.vb +++ b/General/RepIndicadorResumen.aspx.vb @@ -77,6 +77,22 @@ Partial Class General_RepIndicadorResumen ViewState("CPxP") = value End Set End Property +#If False Then + Private Property gv1 As DataTable + Get + + If ViewState("gv1") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("gv1"), DataTable) + End If + + End Get + Set(value As DataTable) + ViewState("gv1") = value + End Set + End Property +#End If Private Property Indicadores As DataTable Get @@ -146,6 +162,8 @@ Partial Class General_RepIndicadorResumen If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), MinFecha, MaxFecha, -1, -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=1) Then VxP = ObjVentas.DtResultados + VxP.DefaultView.Sort = "CveMoneda,SubTotal DESC" + VxP = VxP.DefaultView.ToTable GvVxP.DataSource = VxP Else GvVxP.DataSource = Nothing @@ -155,6 +173,8 @@ Partial Class General_RepIndicadorResumen If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1, UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then CxP192 = ObjCompras.DtResultados + CxP192.DefaultView.Sort = "CveMoneda,SubTotal DESC" + CxP192 = CxP192.DefaultView.ToTable GvCxP192.DataSource = CxP192 Else GvCxP192.DataSource = Nothing @@ -164,6 +184,8 @@ Partial Class General_RepIndicadorResumen If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1, UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=1) Then CxP = ObjCompras.DtResultados + CxP.DefaultView.Sort = "CveMoneda,SubTotal DESC" + CxP = CxP.DefaultView.ToTable GvCxP.DataSource = CxP Else GvCxP.DataSource = Nothing @@ -176,6 +198,8 @@ Partial Class General_RepIndicadorResumen "-1", "-1", "-1", FechaCorte:=FechaCorte.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then CCxC = ObjMovtos.DtResultados + CCxC.DefaultView.Sort = "CveMoneda,Saldo DESC" + CCxC = CCxC.DefaultView.ToTable GvCCxC.DataSource = CCxC Else GvCCxC.DataSource = Nothing @@ -186,15 +210,28 @@ Partial Class General_RepIndicadorResumen "-1", "-1", "-1", FechaCorte:=FechaCorte.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then CPxP = ObjMovtos.DtResultados + CPxP.DefaultView.Sort = "CveMoneda,Saldo DESC" + CPxP = CPxP.DefaultView.ToTable GvCPxP.DataSource = CPxP Else GvCPxP.DataSource = Nothing CPxP = Nothing End If - If ObjCitrus.GetIndicadores(UsuarioActual.CveEmpresa) Then + 'If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1, + ' UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then + ' gv1 = ObjCompras.DtResultados + ' GridView1.DataSource = gv1 + 'Else + ' GridView1.DataSource = Nothing + ' gv1 = Nothing + 'End If + + If ObjCitrus.GetIndicadores(UsuarioActual.CveEmpresa, TxtFechaI.Text, TxtFechaF.Text) Then Indicadores = ObjCitrus.DtResultados + Indicadores.DefaultView.Sort = "Saldo DESC" + Indicadores = Indicadores.DefaultView.ToTable GvIndicadores.DataSource = Indicadores Else GvIndicadores.DataSource = Nothing @@ -209,6 +246,7 @@ Partial Class General_RepIndicadorResumen GvVxP.DataBind() GvCxP192.DataBind() GvCxP.DataBind() + 'GridView1.DataBind() GvCCxC.DataBind() GvCPxP.DataBind() GvIndicadores.DataBind() @@ -259,8 +297,19 @@ Partial Class General_RepIndicadorResumen End Sub Protected Sub GvCxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("Orden") = "" Then + 'e.Row.Cells(0).Text = e.Row.DBCampo("Orden") + If e.Row.DBCampo("Orden") = "00ND" Then e.Row.CssClass = "Totales" + e.Row.Cells(0).Text = "Total " + e.Row.DBCampo("Abreviatura") + End If + End If + End Sub + Protected Sub GvCxP192_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP192.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + 'e.Row.Cells(0).Text = e.Row.DBCampo("Orden") + If e.Row.DBCampo("Orden") = "00ND" Then + e.Row.CssClass = "Totales" + e.Row.Cells(0).Text = "Total " + e.Row.DBCampo("Abreviatura") End If End If End Sub @@ -269,6 +318,8 @@ Partial Class General_RepIndicadorResumen If e.Row.DBCampo("Orden") = "" Then e.Row.CssClass = "Totales" End If + 'TODO: Sería mejor usar la Abreviatura de la tabla, pero habría que extender PA_Comp_RepCxP para incluir la columna Abreviatura + e.Row.Cells(2).Text = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {e.Row.DBCampo("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" End If End Sub Protected Sub GvCPxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCPxP.RowDataBound @@ -276,6 +327,8 @@ Partial Class General_RepIndicadorResumen If e.Row.DBCampo("Orden") = "" Then e.Row.CssClass = "Totales" End If + 'TODO: Sería mejor usar la Abreviatura de la tabla, pero habría que extender PA_Comp_RepCxP para incluir la columna Abreviatura + e.Row.Cells(2).Text = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {e.Row.DBCampo("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" End If End Sub Protected Sub GvIndicadores_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvIndicadores.RowDataBound @@ -377,7 +430,7 @@ Partial Class General_RepIndicadorResumen Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" Row("Valor") = Dr("SubTotal").ToString.FormatoNumero Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString - Row("Moneda") = Dr("Moneda").ToString + Row("Moneda") = Dr("Abreviatura").ToString DtVxP.Rows.Add(Row) RowColorIndex += 1 If RowColorIndex = 17 Then @@ -385,7 +438,7 @@ Partial Class General_RepIndicadorResumen End If End If Next - Dim query_vxp = From s In DtVxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} + Dim query_vxp = From s In DtVxP.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} 'Compras x Producto TipoProveedor=1 DtCxP.Reset() @@ -395,13 +448,13 @@ Partial Class General_RepIndicadorResumen DtCxP.Columns.Add("Moneda") RowColorIndex = 0 For Each Dr As DataRow In CxP.Rows - If Not Dr("Orden").ToString = "" Then + If Not Dr("Orden").ToString = "00ND" Then Dim Row As DataRow = Nothing Row = DtCxP.NewRow() Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" Row("Valor") = Dr("SubTotal").ToString.FormatoNumero Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString - Row("Moneda") = Dr("Moneda").ToString + Row("Moneda") = Dr("Abreviatura").ToString DtCxP.Rows.Add(Row) RowColorIndex += 1 If RowColorIndex = 17 Then @@ -409,7 +462,7 @@ Partial Class General_RepIndicadorResumen End If End If Next - Dim query_cxp = From s In DtCxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} + Dim query_cxp = From s In DtCxP.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} 'Compras x Producto ProveedorClasificacion=192 DtCxP192.Reset() @@ -419,13 +472,13 @@ Partial Class General_RepIndicadorResumen DtCxP192.Columns.Add("Moneda") RowColorIndex = 0 For Each Dr As DataRow In CxP192.Rows - If Not Dr("Orden").ToString = "" Then + If Not Dr("Orden").ToString = "00ND" Then Dim Row As DataRow = Nothing Row = DtCxP192.NewRow() Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" Row("Valor") = Dr("SubTotal").ToString.FormatoNumero Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString - Row("Moneda") = Dr("Moneda").ToString + Row("Moneda") = Dr("Abreviatura").ToString DtCxP192.Rows.Add(Row) RowColorIndex += 1 If RowColorIndex = 17 Then @@ -433,7 +486,7 @@ Partial Class General_RepIndicadorResumen End If End If Next - Dim query_cxp192 = From s In DtCxP192.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} + Dim query_cxp192 = From s In DtCxP192.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} 'Alert(Newtonsoft.Json.JsonConvert.SerializeObject(CCxC.Rows)) @@ -451,7 +504,7 @@ Partial Class General_RepIndicadorResumen Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" Row("Valor") = Dr("Saldo").ToString.FormatoNumero Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString - Row("Moneda") = Dr("Moneda").ToString + Row("Moneda") = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" DtCCxC.Rows.Add(Row) RowColorIndex += 1 If RowColorIndex = 17 Then @@ -459,7 +512,7 @@ Partial Class General_RepIndicadorResumen End If End If Next - Dim query_ccxc = From s In DtCCxC.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} + Dim query_ccxc = From s In DtCCxC.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} 'Cuentas por pagar x Proveedor DtCPxP.Reset() @@ -475,7 +528,7 @@ Partial Class General_RepIndicadorResumen Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" Row("Valor") = Dr("Saldo").ToString.FormatoNumero Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString - Row("Moneda") = Dr("Moneda").ToString + Row("Moneda") = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" DtCPxP.Rows.Add(Row) RowColorIndex += 1 If RowColorIndex = 17 Then @@ -483,11 +536,11 @@ Partial Class General_RepIndicadorResumen End If End If Next - Dim query_cpxp = From s In DtCPxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} + Dim query_cpxp = From s In DtCPxP.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} 'TODO: Indicadores x Proveedor -- Determinar qué poner en la gráfica con E172 - 'Serializar datos agrupándolos en su respectivo DataTable, todos en un solo JSON + 'Serializar datos agrupándolos por su respectivo DataTable, todos en un solo JSON Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CxP = query_cxp, .CxP192 = query_cxp192, .CCxC = query_ccxc, .CPxP = query_cpxp}) 'Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CCxC = New String() {}}) 'Alert(json) From 10ffcd0cee19de3bc570b9ddc087ad6c8d24b96a Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 30 Nov 2022 18:34:18 -0700 Subject: [PATCH 5/8] -- ws polizavirtual --- Ventas/Ventas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index c60c002ed..049dfe8cf 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -33452,7 +33452,7 @@ Partial Class Ventas End If ObjFactura.SetSubProyecto() - 'EnviarPolizaVentaWS(obj, CvePolizaVirtual, ObjFactura.SubProyecto.Acum_PortalUsuario, ObjFactura.SubProyecto.Acum_PortalContrasena) + EnviarPolizaVentaWS(obj, CvePolizaVirtual, ObjFactura.SubProyecto.Acum_PortalUsuario, ObjFactura.SubProyecto.Acum_PortalContrasena) End If Next From 643c0b71f6da33f41863e00a775708bb75b7271f Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 30 Nov 2022 18:34:40 -0700 Subject: [PATCH 6/8] tipomovto pago concepto 21 --- App_Code/ClsPaginas.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index aed6a7b25..51ad3ab9e 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9800,13 +9800,13 @@ Public Class ClsPaginas Dim Ret As New ConceptosRetenciones If Pago.CveMonedaPago > 1 Then 'Agregamos la Extranjera - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 266, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, 266, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True Else 'Agregamos Nacional - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True End If From 4024b09f86a07c1b71ea6d518ba2ef47bae90f1b Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Thu, 1 Dec 2022 12:13:20 -0700 Subject: [PATCH 7/8] Entradas Salidas Mrt --- Empresas/Grales/Formatos/EntradaSalida.mrt | 677 +++++++++++++++++++++ 1 file changed, 677 insertions(+) create mode 100644 Empresas/Grales/Formatos/EntradaSalida.mrt diff --git a/Empresas/Grales/Formatos/EntradaSalida.mrt b/Empresas/Grales/Formatos/EntradaSalida.mrt new file mode 100644 index 000000000..7ed95f52d --- /dev/null +++ b/Empresas/Grales/Formatos/EntradaSalida.mrt @@ -0,0 +1,677 @@ + + + + + + + + DsInventarios + + Codigo,System.String + PS,System.String + UnidadMedida,System.String + PU,System.Decimal + Cantidad,System.Decimal + Total,System.Decimal + Descuento,System.Decimal + CodigoAF,System.String + Almacen,System.String + Lote,System.String + Batch,System.String + SerieLote,System.String + + + 9f26b214e5b34695ab9f7508c6bb98f2 + DsInventarios + Datos.DsInventarios + + + + + + + ReportParameters,Empresa,Empresa,ReportParameter1,System.String,,False,False,True,False + ReportParameters,Almacen,Almacen,ReportParameter1,System.String,,False,False,True,False + ReportParameters,Folio,Folio,ReportParameter1,System.String,,False,False,True,False + ReportParameters,Concepto,Concepto,ReportParameter1,System.String,,False,False,True,False + ReportParameters,Fecha,Fecha,ReportParameter1,System.String,,False,False,True,False + ReportParameters,FechaImpresion,FechaImpresion,ReportParameter1,System.String,,False,False,True,False + ReportParameters,Descuentos,Descuentos,ReportParameter1,System.String,,False,False,True,False + ReportParameters,IVA,IVA,ReportParameter1,System.String,,False,False,True,False + ReportParameters,Total,Total,ReportParameter1,System.String,,False,False,True,False + ReportParameters,NombreRecibio,NombreRecibio,ReportParameter1,System.String,,False,False,True,False + ReportParameters,NombreEntrego,NombreEntrego,ReportParameter1,System.String,,False,False,True,False + ReportParameters,LogoPath,LogoPath,ReportParameter1,System.String,,False,False,True,False + ReportParameters,FacturaProveedor,FacturaProveedor,ReportParameter1,System.String,,False,False,True,False + ReportParameters,Observaciones,Observaciones,ReportParameter1,System.String,,False,False,True,False + ReportParameters,FacturadoA,FacturadoA,ReportParameter1,System.String,,False,False,True,False + ReportParameters,UsuarioImprimio,UsuarioImprimio,ReportParameter1,System.String,,False,False,True,False + ReportParameters,DomicilioFiscal,DomicilioFiscal,ReportParameter1,System.String,,False,False,True,False + + + EngineV2 + + dd46217c7a274120b98e67b7fdbf8a1e + + + + None;Black;2;Solid;False;4;Black + Transparent + + + None;Black;1;None;False;4;Black + Transparent + 0,0,20,4.11 + + + True + Transparent + True + 4.37,0.43,9.11,1.55 + + + Arial,12,Bold + True + True + 2,2,2,2 + Textbox34 + + + {Empresa}<br/> +{Concepto} + Black + ,,,,WordWrap=True,A=0 + Wysiwyg + Expression + + + True + Transparent + 0.2,0.32,3.43,1.66 + + + 68, 114, 196 + {LogoPath} + True + 2,2,2,2 + Logo + + + True + + + Transparent + True + 2.43,2.34,9.54,0.6 + + + Enabled,FacturaProveedor_x0020__x0021__x003D__x0020__x0022__x0022_ + + Arial,10 + True + 2,2,2,2 + Textbox15 + + + {FacturaProveedor} + Black + + + Transparent + 2.43,3.09,9.54,0.6 + + + Enabled,FacturadoA_x0020__x0021__x003D__x0020__x0022__x0022_ + + Arial,10 + True + 2,2,2,2 + Textbox18 + + + {FacturadoA} + Black + + + Transparent + True + 0.27,3.1,2.12,0.6 + + + Enabled,FacturadoA_x0020__x0021__x003D__x0020__x0022__x0022_ + + Arial,10,Bold + True + 2,2,2,2 + Textbox16 + + + Proveedor: + Black + + + Transparent + True + 0.26,2.34,2.13,0.6 + + False + + Enabled,FacturaProveedor_x0020__x0021__x003D__x0020__x0022__x0022_ + + Arial,10,Bold + True + 2,2,2,2 + Textbox20 + + + Factura: + Black + + + Transparent + True + 13.63,0.35,2.07,0.89 + + + Arial,16,Bold + Right + True + 2,2,2,2 + Textbox3 + + + Folio: + Black + + + Transparent + True + 15.7,0.31,2.57,0.93 + + + Arial,16,Bold + True + 2,2,2,2 + Textbox31 + + + {Folio} + [255:0:0] + + + Transparent + True + 12.65,3.1,1.81,0.6 + + + Arial,10,Bold + True + 2,2,2,2 + Textbox4 + + + Fecha: + Black + + + Transparent + 14.46,2.34,3.9,0.6 + + + Arial,8 + True + 2,2,2,2 + Textbox10 + + + {Almacen} + Black + + + Transparent + True + 14.46,3.1,3.9,0.6 + + + Arial,8 + True + 2,2,2,2 + Textbox32 + + + {Fecha} + Black + + d + + + + Transparent + True + 12.65,2.34,1.81,0.6 + + + Arial,10,Bold + True + 2,2,2,2 + Textbox21 + + + Almacén: + Black + + + + + PageHeaderBand1 + + + + + None;Black;1;None;False;4;Black + Transparent + 0,26.48,20,2.22 + + + Transparent + True + 1.74,0.47,5.96,0.6 + + + Arial,10 + Center + True + 2,2,2,2 + Textbox35 + + + {NombreRecibio} + Black + + + Transparent + True + 11.8,0.43,5.96,0.6 + + + Arial,10 + Center + True + 2,2,2,2 + Textbox36 + + + {Almacen} + Black + + + Transparent + True + 11.96,1.49,2.91,0.6 + + + Arial,9,Bold + Right + True + 2,2,2,2 + Textbox8 + + + Fecha Impresion: + Black + + + Transparent + True + 14.87,1.49,2.89,0.6 + + + Arial,10 + True + 2,2,2,2 + Textbox37 + + + {FechaImpresion} + Black + + d + + + + 2.22,0.29,4.95,0.0254 + Black + + + Black + + + True + Line6 + + + + Black + + + + 12.2,0.29,4.95,0.0254 + Black + + + Black + + + True + Line7 + + + + Black + + + + + + PageFooterBand1 + + + + + Transparent + True + True + 0,4.11,20,2.69 + + + Transparent + True + 0.02,0.18,20,1.51 + + + Transparent + + 0,0,20,0.42 + + + Adv[0:0:0];1;Solid;[0:0:0];1;Solid;Black;1;None;Black;1;None;False;4;Black + [255:255:255] + True + 0,0,1.14,0.42 + + + Arial,8,Bold + True + 2,2,2,2 + Textbox7 + + + Cant. + Black + + + Adv[0:0:0];1;Solid;[0:0:0];1;Solid;Black;1;None;Black;1;None;False;4;Black + [255:255:255] + True + 1.14,0,3.15,0.42 + + + Arial,8,Bold + True + 2,2,2,2 + Textbox9 + + + Código + Black + + + Adv[0:0:0];1;Solid;[0:0:0];1;Solid;Black;1;None;Black;1;None;False;4;Black + [255:255:255] + True + 4.29,0,11.27,0.42 + + + Arial,8,Bold + True + 2,2,2,2 + Textbox11 + + + Descripción + Black + + + Adv[0:0:0];1;Solid;[0:0:0];1;Solid;Black;1;None;Black;1;None;False;4;Black + [255:255:255] + True + 15.56,0,2.7,0.42 + + + Enabled,DsInventarios.SerieLote_x0021__x003D__x0020__x0022__x0022_ + + Arial,8,Bold + True + 2,2,2,2 + Textbox6 + + + Serie + Black + + + Adv[0:0:0];1;Solid;[0:0:0];1;Solid;Black;1;None;Black;1;None;False;4;Black + [255:255:255] + True + 18.26,0,1.74,0.42 + + + Enabled,DsInventarios.Lote_x0021__x003D__x0020__x0022__x0022_ + + Arial,8,Bold + True + 2,2,2,2 + Textbox5 + + + Lote + Black + + + + DsInventarios + + + True + DataBand2 + + + + + + Transparent + + 0,0.42,20,0.69 + + + Transparent + True + 0,0,1.14,0.69 + + + Arial,8 + Right + True + 2,2,2,2 + Cantidad + + + {DsInventarios.Cantidad} + Black + + 0;(0) + + + + Transparent + True + 1.14,0,3.15,0.69 + + + Arial,8 + True + 2,2,2,2 + Codigo + + + {DsInventarios.Codigo} + Black + + + Transparent + True + 4.29,0,11.27,0.69 + + + Arial,8 + True + 2,2,2,2 + PS + + + {DsInventarios.PS} + Black + + + Transparent + True + 15.56,0,2.7,0.69 + + + Enabled,DsInventarios.SerieLote_x0021__x003D__x0020__x0022__x0022_ + + Arial,8 + True + 2,2,2,2 + SerieLote + + + {DsInventarios.SerieLote} + Black + + + Transparent + True + 18.26,0,1.74,0.69 + + + Enabled,DsInventarios.Lote_x0021__x003D__x0020__x0022__x0022_ + + Arial,8 + True + 2,2,2,2 + Lote + + + {DsInventarios.Lote} + Black + + + + DsInventarios + + + True + DataBand3 + + + + + + + + True + Tablix2 + + + + + Transparent + True + 0.06,1.79,11.37,0.6 + + + Arial,8 + True + 2,2,2,2 + Textbox2 + + + {Observaciones} + Black + + + + 1 + + + MainBand + + + + + + + + c751c4d57273461888e484933acfb628 + 0.5,0.5,0.5,0.5 + Page1 + 29.7 + 21 + + + + + System.Dll + System.Drawing.Dll + System.Windows.Forms.Dll + System.Data.Dll + System.Xml.Dll + Stimulsoft.Controls.Dll + Stimulsoft.Base.Dll + Stimulsoft.Report.Dll + + Report + 10/13/2022 7:15:28 PM + 10/13/2022 4:49:14 PM + C:\inetpub\wwwSIGGIT\Empresas\Grales\Formatos\EntradaSalida.mrt + fbf73b9709d54158a65b0723556fde8e + Report + Centimeters + 2022.1.6.0 + + CSharp + + \ No newline at end of file From f786c6863fe0ebfb3e7031fda9bd5ec0bd2c39c8 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Thu, 1 Dec 2022 12:14:03 -0700 Subject: [PATCH 8/8] Compras carga xml caractestes especiales, Formato Cotizacion 140 v4.0 --- Compras/Compras.aspx.vb | 109 +- Empresas/140/Formatos/Cotizacion.rdlc | 3446 +++++++++++++------------ Empresas/140/Formatos/Factura.rdlc | 342 +-- 3 files changed, 1997 insertions(+), 1900 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 52b8f4eff..6708a078a 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1,10 +1,23 @@ Option Explicit On Option Strict On +'Imports System.Diagnostics +'Imports System.Globalization +'Imports System.IO +'Imports System.Threading.Tasks +'Imports ADSNetLibrary.SIGAPI.Helpers +'Imports Extensiones +'Imports Stimulsoft.Base + +Imports System.Activities +Imports System.Data Imports System.Diagnostics Imports System.Globalization Imports System.IO Imports System.Threading.Tasks +Imports System.Xml +Imports Extensiones +Imports Newtonsoft.Json Partial Class Compras_Compras @@ -1765,7 +1778,7 @@ Partial Class Compras_Compras If Validada And Not EnListadoEFOS Then Try - XMLDoc.LoadXml(File.ReadAllText(Archivo).Replace("<br>", "").Replace("<", "")) + XMLDoc.LoadXml(File.ReadAllText(Archivo).Replace("<br>", "").Replace("<", "").Replace("o;?", "")) Catch ex As Exception Try Dim oReader = New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1")) @@ -8304,7 +8317,7 @@ Partial Class Compras_Compras Dim IndicePrimero As Integer = 0 For Each dRow As DataRow In TmpDT.Rows - If Boolean.Parse(dRow("AplicaIEPS").ToString) And dRow("IEPSPS").ToString.ToDecimal > 0 Then + If dRow("IEPSPS").ToString.ToDecimal > 0 Then IndicePrimero = IndiceContador Exit For End If @@ -8312,11 +8325,8 @@ Partial Class Compras_Compras Next If DiferenciaIEPSPS.RoundAD(2) <> 0 Then - - TmpDT.Rows(IndicePrimero)("IEPSPS") = TmpDT.Rows(IndicePrimero)("IEPSPS").ToString.ToDecimal + DiferenciaIEPSPS TmpDT.AcceptChanges() - End If @@ -8571,23 +8581,34 @@ Partial Class Compras_Compras PorcentajePago = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal / TxtTotal.Text.ToDecimal - Dim ImporteAntMNComision As Decimal = (ImporteAnt + ImporComisionAnticipo) - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimientoCompra, (ImporteAnt + ImporComisionAnticipo), "", CveConceptoCompra, "", TxtFechaPago.Text.ToDate, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMNComision, ImporteME:=If(TipoCambioAnt = 1, 0, (ImporteAnt + ImporComisionAnticipo)), TipoCambio:=TipoCambioAnt, CveSubProyecto:=CveSubProyectoAnticipo) Then - ErrorMovtosCxP = 1 + + 'Se comento por que ya se aplica el pago en AplicaPrePolizaPagoCompra + 'Dim ImporteAntMNComision As Decimal = (ImporteAnt + ImporComisionAnticipo) + 'If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimientoCompra, (ImporteAnt + ImporComisionAnticipo), "", CveConceptoCompra, "", TxtFechaPago.Text.ToDate, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMNComision, ImporteME:=If(TipoCambioAnt = 1, 0, (ImporteAnt + ImporComisionAnticipo)), TipoCambio:=TipoCambioAnt, CveSubProyecto:=CveSubProyectoAnticipo) Then + ' ErrorMovtosCxP = 1 + 'End If + + + If gvr.DataKey("TipoDocto").Contiene("Egsc") Then + CompraActual.IdCtaContableAnticipoProv = IdCtaContable + End If + + If gvr.DataKey("TipoDocto").Contiene("DD") Then + CompraActual.IdCtaContableProv = IdCtaContable End If If CveMonedaAnticipo > 1 Then - Dim ImporteAntMN As Decimal = TipoCambioAnt * ImporteAnt - ImporteAnt - If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimientoCompra, ImporteAntMN, "", CveConceptoCompraComplementaria, "", TxtFechaPago.Text.ToDate, IdCtaContableComp, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMN, ImporteME:=If(TipoCambioAnt = 1, 0, ImporteAnt), TipoCambio:=TipoCambioAnt, CveSubProyecto:=CveSubProyectoAnticipo) Then - ErrorMovtosCxP = 1 + Dim ImporteAntMN As Decimal = TipoCambioAnt * ImporteAnt - ImporteAnt + If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaNueva, TipoMovimientoCompra, ImporteAntMN, "", CveConceptoCompraComplementaria, "", TxtFechaPago.Text.ToDate, IdCtaContableComp, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMN, ImporteME:=If(TipoCambioAnt = 1, 0, ImporteAnt), TipoCambio:=TipoCambioAnt, CveSubProyecto:=CveSubProyectoAnticipo) Then + ErrorMovtosCxP = 1 + End If End If - End If - Pago.CveIE = CveIE - Pago.CveCompraAmortizacion = CveCompraNC - AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaNueva, ObjConta) + Pago.CveIE = CveIE + Pago.CveCompraAmortizacion = CveCompraNC + AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaNueva, ObjConta) + End If End If - End If Next @@ -9783,12 +9804,38 @@ Partial Class Compras_Compras #Region "CargaXML" Private Function ValorXML(n As XmlNode, Campo As String, Optional Retorno As String = "") As String - Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0) - If o Is Nothing Then - Return Retorno + + If UsuarioActual.CveRol = 1 Then + + Try + + Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0) + If o Is Nothing Then + Return Retorno + Else + Return o.Value + End If + + Catch ex As Exception + + Alert($"Error al leer valor nodo campo:{Campo}") + + Return "" + End Try + Else - Return o.Value + + Dim o As XmlNode = n.Attributes.Cast(Of XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0) + If o Is Nothing Then + Return Retorno + Else + Return o.Value + End If + End If + + + End Function Private Sub CargaComprobanteXML(XMLDoc As XmlDocument) @@ -12242,8 +12289,30 @@ Partial Class Compras_Compras End Sub Protected Sub BtnContado_Click(sender As Object, e As EventArgs) + TxtRembolsoNumero.Text = TxtNumeroReembolso.Text + + If RBLContado.SelectedValue.ToEntero = 6 Then ' Caja chica + DdlFuncionarioEmpleado.SelectedValueExist(-1) + DdlCuentaCajaChicaReembolso.SelectedValueExist(-1) + TxtDocumentoImporteFE.Text = "" + TextBox3.Text = "" + ViewState("CvePersonal") = -1 + End If + + If RBLContado.SelectedValue.ToEntero = 2 Then ' viaticos personal + DdlTipoTransaccionCaja.SelectedValueExist(-1) + DdlCuentaCaja.SelectedValueExist(-1) + TxtDocumentoFolioCaja.Text = "" + TxtDocumentoImporteCaja.Text = "" + TxtDocumentoObservacionesCaja.Text = "" + ViewState("CveCajaChica") = -1 + End If + + UpContado.Update() + RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal")) + End Sub Protected Sub RblRembolso_SelectedIndexChanged(sender As Object, e As EventArgs) diff --git a/Empresas/140/Formatos/Cotizacion.rdlc b/Empresas/140/Formatos/Cotizacion.rdlc index a1e70d57d..542612f69 100644 --- a/Empresas/140/Formatos/Cotizacion.rdlc +++ b/Empresas/140/Formatos/Cotizacion.rdlc @@ -1,1719 +1,5 @@ - - - - - true - true - - - - - Cliente: - - - - =Parameters!ClienteNombre.Value - - - - - - - - - Dirección: - - - - =Parameters!ClienteDireccion.Value - - - - - - - - - RFC: - - - - =Parameters!ClienteRFC.Value - - - - - - - - - Atención A: - - - - =Parameters!ClienteContacto.Value - - - - - - - Textbox2 - 0.05159in - 4.32145cm - 0.99993in - 3.6362in - - - 2pt - 2pt - 2pt - 2pt - - - - Embedded - Logo - Fit - 0.05159in - 0.0375in - 0.99993in - 1.60289in - 1 - - - - - - true - true - - - - - Domicilio fiscal: - - - - - - - - - - - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - - - - - - Cotización - - - - - - - - - - - - - Serie: - - - - =Parameters!Serie.Value - - - - Folio: - - - - =Parameters!Folio.Value - - - - - - - - - Fecha: - - - - - - - - = Parameters!Fecha.Value - - - - - - - - - - - - - Forma de pago: - - - - =Parameters!FormaPago.Value - - - - - - - - - Método de pago: - - - - =Parameters!MetodoPago.Value - - - - - - - - - Cuenta: - - - - =IIF(Parameters!NumCta.Value="0" Orelse Parameters!NumCta.Value="","No Identificado",Parameters!NumCta.Value) - - - - - - - Textbox4 - 0.05159in - 5.39311in - 1.27833in - 2.8593in - 3 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Expedido en - - - - : - - - - - - - - - =Parameters!DomicilioSucursal.Value - - - - - - - - - BBD021220APA - - - - - - - - - - - - - - - - - - Vendedor: - - - - =Parameters!VendedorNombre.Value - - - - - - - Textbox40 - 3.51387cm - 13.72673cm - 2.47332cm - 7.26261cm - 4 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 0.75572in - - - 0.58129in - - - 0.79461in - - - 2.38421in - - - 0.78125in - - - 0.63048in - - - 0.55487in - - - 0.62063in - - - 1.11998in - - - - - 0.19645in - - - - - true - true - - - - - CANT - - - - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - UNIDAD - - - - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - CODIGO - - - - - - - Textbox29 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - DESCRIPCIÓN - - - - - - - Textbox17 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - PU - - - - - - - Textbox1 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - %DESC - - - - - - - Textbox21 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - IEPS - - - - - - - Textbox23 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - IVA - - - - - - - Textbox8 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - TOTAL - - - - - - - Textbox1 - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.14436in - - - - - true - true - - - - - =Fields!Cantidad.Value - - - - - - - Cantidad1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!UM.Value - - - - - - - UM - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Codigo.Value - - - - - - - Codigo - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PS.Value & " " & Fields!Obs.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!PU.Value - - - - - - - PU1 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Descuento.Value - - - - - - - Descuento - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!IEPS.Value - - - - - - - IEPS - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!IVA.Value - - - - - - - IVA - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =(Fields!Cantidad.Value * Fields!PU.Value) - Fields!Descuento.Value - - - - - - - TiempoEntrega - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - DsOC - 2.45577in - 0.04048in - 0.34081in - 8.22304in - 5 - - - - - - true - true - - - - - - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - #3a4173 - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =UCase(Parameters!ImporteLetra.Value) - - - - - - - ImporteLetra - 3.25108in - 1.038in - 0.18861in - 7.22552in - 8 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - 2.99824cm - - - - - 0.48004cm - - - - - true - true - - - - - =Fields!Importe.Value - - - - - - - Importe - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - =Fields!ImpuestoLocal.Value - - - - 2.93858cm - - - true - true - - - - - =IIF(Fields!ImpuestoLocal.Value = "Total",UCase(Fields!ImpuestoLocal.Value),Fields!ImpuestoLocal.Value) - - - - - - White - 2pt - 2pt - 2pt - 2pt - - - - - - - - DataSet1 - 7.4511cm - 15.05252cm - 0.48004cm - 5.93682cm - 9 - - - - - - true - true - - - - - Sin más por el momento, se despide su seguro proveedor - - - - Textbox2 - 12.55395cm - 3.49882cm - 0.57354cm - 12.91587cm - 10 - - - 2pt - 2pt - 2pt - 2pt - - - - 14.00062cm - 7.56391cm - 0cm - 5.675cm - 11 - - - - - - true - true - - - - - =Parameters!VendedorNombre.Value - - - - Textbox3 - 14.07117cm - 7.56391cm - 0.6cm - 5.675cm - 12 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Observaciones de crédito: - - - - =Parameters!Observaciones.Value - - - - - - - =Parameters!FormaEntrega.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - 14.80346cm - - - - - - - - =Today - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 27.94cm - 21.59cm - 0cm - 0cm - 0.5cm - 0.5cm - 1.27cm - + + + =Parameters!ClienteNombre.Value + + + + + + + + + Dirección: + + + + =Parameters!ClienteDireccion.Value + + + + + + + + + RFC: + + + + =Parameters!ClienteRFC.Value + + + + + + + + + Atención A: + + + + =Parameters!ClienteContacto.Value + + + + + + + Textbox2 + 0.05159in + 4.32145cm + 0.99993in + 3.6362in + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo + Fit + 0.05159in + 0.0375in + 0.99993in + 1.60289in + 1 + + + + + + true + true + + + + + Domicilio fiscal: + + + + + + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + + + + + + Cotización + + + + + + + + + + + + + Serie: + + + + =Parameters!Serie.Value + + + + Folio: + + + + =Parameters!Folio.Value + + + + + + + + + Fecha: + + + + + + + + = Parameters!Fecha.Value + + + + + + + + + + + + + Forma de pago: + + + + =Parameters!FormaPago.Value + + + + + + + + + Método de pago: + + + + =Parameters!MetodoPago.Value + + + + + + + + + Cuenta: + + + + =IIF(Parameters!NumCta.Value="0" Orelse Parameters!NumCta.Value="","No Identificado",Parameters!NumCta.Value) + + + + + + + Textbox4 + 0.05159in + 5.39311in + 1.27833in + 2.8593in + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Expedido en + + + + : + + + + + + + + + =Parameters!DomicilioSucursal.Value + + + + + + + + + BBD021220APA + + + + + + + + + + + + + + + + + + Vendedor: + + + + =Parameters!VendedorNombre.Value + + + + + + + Textbox40 + 3.51387cm + 13.72673cm + 2.47332cm + 7.26261cm + 4 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 0.75572in + + + 0.58129in + + + 0.79461in + + + 2.38421in + + + 0.78125in + + + 0.63048in + + + 0.55487in + + + 0.62063in + + + 1.11998in + + + + + 0.19645in + + + + + true + true + + + + + CANT + + + + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + UNIDAD + + + + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CODIGO + + + + + + + Textbox29 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + DESCRIPCIÓN + + + + + + + Textbox17 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + PU + + + + + + + Textbox1 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + %DESC + + + + + + + Textbox21 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + IEPS + + + + + + + Textbox23 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + IVA + + + + + + + Textbox8 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + TOTAL + + + + + + + Textbox1 + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.14436in + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!UM.Value + + + + + + + UM + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PS.Value & " " & Fields!Obs.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!PU.Value + + + + + + + PU1 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Descuento.Value + + + + + + + Descuento + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!IEPS.Value + + + + + + + IEPS + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!IVA.Value + + + + + + + IVA + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =(Fields!Cantidad.Value * Fields!PU.Value) - Fields!Descuento.Value + + + + + + + TiempoEntrega + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsOC + 2.45577in + 0.04048in + 0.34081in + 8.22304in + 5 + + + + + + true + true + + + + + + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + #3a4173 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =UCase(Parameters!ImporteLetra.Value) + + + + + + + ImporteLetra + 3.25108in + 1.038in + 0.18861in + 7.22552in + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 2.99824cm + + + + + 0.48004cm + + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + =Fields!ImpuestoLocal.Value + + + + 2.93858cm + + + true + true + + + + + =IIF(Fields!ImpuestoLocal.Value = "Total",UCase(Fields!ImpuestoLocal.Value),Fields!ImpuestoLocal.Value) + + + + + + White + 2pt + 2pt + 2pt + 2pt + + + + + + + + DataSet1 + 7.4511cm + 15.05252cm + 0.48004cm + 5.93682cm + 9 + + + + + + true + true + + + + + Sin más por el momento, se despide su seguro proveedor + + + + Textbox2 + 12.55395cm + 3.49882cm + 0.57354cm + 12.91587cm + 10 + + + 2pt + 2pt + 2pt + 2pt + + + + 14.00062cm + 7.56391cm + 0cm + 5.675cm + 11 + + + + + + true + true + + + + + =Parameters!VendedorNombre.Value + + + + Textbox3 + 14.07117cm + 7.56391cm + 0.6cm + 5.675cm + 12 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Observaciones de crédito: + + + + =Parameters!Observaciones.Value + + + + + + + =Parameters!FormaEntrega.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 14.80346cm + + + + + + + + =Today + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 27.94cm + 21.59cm + 0cm + 0cm + 0.5cm + 0.5cm + 1.27cm + @@ -26,7 +26,7 @@ Cliente: @@ -34,21 +34,21 @@ =Parameters!ClienteCodigo.Value - =Parameters!ClienteNombre.Value @@ -62,7 +62,7 @@ RFC: @@ -70,7 +70,7 @@ =Parameters!ClienteRFC.Value @@ -85,7 +85,7 @@ Calle: @@ -93,7 +93,7 @@ @@ -101,7 +101,7 @@ =Parameters!ClienteCalle.Value & IIF(Parameters!ClienteNoExt.Value <> "", " No.Ext: " & Parameters!ClienteNoExt.Value & iif(Parameters!ClienteNoInt.Value <> ""," No.Int: " & Parameters!ClienteNoInt.Value,""),iif(Parameters!ClienteNoInt.Value <> ""," No.Int: " & Parameters!ClienteNoInt.Value,"")) @@ -116,7 +116,7 @@ Colonia: @@ -124,7 +124,7 @@ @@ -132,7 +132,7 @@ =Parameters!ClienteColonia.Value @@ -147,7 +147,7 @@ Ciudad: @@ -155,7 +155,7 @@ =Parameters!ClienteCiudad.Value @@ -163,7 +163,7 @@ @@ -171,7 +171,7 @@ Estado: @@ -179,7 +179,7 @@ @@ -187,7 +187,7 @@ =Parameters!ClienteEstado.Value @@ -202,7 +202,7 @@ Municipio y/o Delegación: @@ -210,7 +210,7 @@ =Parameters!ClienteMunicipio.Value @@ -218,7 +218,7 @@ @@ -233,7 +233,7 @@ Pais: @@ -241,7 +241,7 @@ =Parameters!ClientePais.Value @@ -249,7 +249,7 @@ @@ -257,7 +257,7 @@ CP: @@ -265,7 +265,7 @@ @@ -273,7 +273,7 @@ =Parameters!ClienteCP.Value @@ -310,7 +310,7 @@ "Este documento es una representación impresa de un CFDI" @@ -325,7 +325,7 @@ Folio fiscal: @@ -333,7 +333,7 @@ =Parameters!FolioFiscal.Value @@ -346,7 +346,7 @@ Fecha y hora de certificación: @@ -354,7 +354,7 @@ =Parameters!FechaCertificacion.Value @@ -362,7 +362,7 @@ Número de serie del Certificado de Sello Digital: @@ -370,7 +370,7 @@ =Parameters!CertificadoContribuyente.Value @@ -383,7 +383,7 @@ Sello digital del CFDI: Número de serie del Certificado de Sello Digital del SAT: @@ -391,7 +391,7 @@ =Parameters!SerieCertificadoSAT.Value @@ -404,7 +404,7 @@ =Parameters!SelloCFDI.Value @@ -417,7 +417,7 @@ @@ -430,7 +430,7 @@ Cadena original del complemento de certificación digital del SAT: @@ -443,7 +443,7 @@ =Parameters!CadenaOriginal.Value @@ -456,7 +456,7 @@ @@ -469,7 +469,7 @@ Sello digital del SAT: @@ -482,7 +482,7 @@ =Parameters!SelloSAT.Value @@ -542,7 +542,7 @@ Domicilio fiscal: @@ -555,7 +555,7 @@ Tamaulipas S/N @@ -568,7 +568,7 @@ C.P. 83190 Col. San Benito @@ -581,7 +581,7 @@ Hermosillo, Son. México. @@ -615,7 +615,7 @@ = IIF(Parameters!Tipo.Value = "INGRESO","FACTURA","NOTA DE CRÉDITO") @@ -630,7 +630,7 @@ @@ -638,7 +638,7 @@ Serie: @@ -654,7 +654,7 @@ @@ -662,7 +662,7 @@ Folio: @@ -685,7 +685,7 @@ Fecha: @@ -693,7 +693,7 @@ @@ -701,7 +701,7 @@ =Format(Cdate(Parameters!Fecha.Value),"dd/MM/yyyy") @@ -725,7 +725,7 @@ @@ -733,7 +733,7 @@ =Parameters!MonedaAbreviatura.Value @@ -748,7 +748,7 @@ Vencimiento @@ -756,7 +756,7 @@ : @@ -764,7 +764,7 @@ =Parameters!Vencimiento.Value @@ -772,7 +772,7 @@ @@ -787,7 +787,7 @@ Forma de pago: @@ -795,7 +795,7 @@ =Parameters!FormaPago.Value @@ -810,7 +810,7 @@ Método de pago: @@ -818,7 +818,7 @@ =Parameters!MetodoPago.Value @@ -833,7 +833,7 @@ Uso CFDI: @@ -841,7 +841,7 @@ =Parameters!UsoCFDI.Value @@ -856,7 +856,7 @@ Régimen fiscal: @@ -864,7 +864,7 @@ Regimen General de Ley Personas Morales @@ -872,7 +872,7 @@ @@ -908,7 +908,7 @@ Expedido en @@ -916,7 +916,7 @@ : @@ -931,7 +931,7 @@ =Parameters!DomicilioSucursal.Value @@ -946,7 +946,7 @@ BBD021220APA @@ -961,7 +961,7 @@ @@ -976,7 +976,7 @@ Vendedor: @@ -984,7 +984,7 @@ =Parameters!VendedorNombre.Value @@ -1054,7 +1054,7 @@ CANT @@ -1426,7 +1426,7 @@ =Fields!SATClaveProdServ.Value @@ -1461,7 +1461,7 @@ =Fields!PS.Value & " " & Fields!Obs.Value @@ -1494,7 +1494,7 @@ =Fields!PU.Value @@ -1835,7 +1835,7 @@ =Parameters!Observaciones.Value @@ -1881,7 +1881,7 @@ =Fields!Importe.Value @@ -1984,7 +1984,7 @@ CFDI Relacionados @@ -2057,7 +2057,7 @@ =Parameters!TipoRelacionTexto.Value @@ -2112,7 +2112,7 @@ Folio @@ -2297,7 +2297,7 @@ =Fields!Fecha.Value @@ -2332,7 +2332,7 @@ =Fields!Importe.Value @@ -2367,7 +2367,7 @@ =Fields!FolioFiscal.Value @@ -2429,9 +2429,9 @@ - VERSION 3.3 + VERSION 4.0 @@ -2502,7 +2502,7 @@ IMPUESTO @@ -2653,7 +2653,7 @@ =Fields!tasa.Value @@ -2688,7 +2688,7 @@ =Fields!Importe.Value @@ -2770,7 +2770,7 @@ TODA DEVOLUCIÓN NO REALIZADA EL DÍA DE LA COMPRA CAUSARÁ EL 10% DE CARGO" @@ -2925,7 +2925,7 @@ Nombre @@ -2961,7 +2961,7 @@ Recibí Producto @@ -3071,14 +3071,14 @@ =Parameters!Serie.Value @@ -3086,7 +3086,7 @@ @@ -3103,7 +3103,7 @@ =Parameters!Folio.Value @@ -3152,7 +3152,7 @@ @@ -3160,7 +3160,7 @@ Cliente: @@ -3168,7 +3168,7 @@ =Parameters!ClienteCodigo.Value @@ -3176,7 +3176,7 @@ - @@ -3184,7 +3184,7 @@ =Parameters!ClienteNombre.Value @@ -3192,7 +3192,7 @@ - @@ -3200,7 +3200,7 @@ =Parameters!ClienteRFC.Value @@ -3215,7 +3215,7 @@ Domicilio: @@ -3223,7 +3223,7 @@ =Parameters!ClienteDireccion.Value @@ -3231,7 +3231,7 @@ , @@ -3239,7 +3239,7 @@ =Parameters!ClienteCiudad.Value @@ -3247,7 +3247,7 @@ , @@ -3255,7 +3255,7 @@ =Parameters!ClienteEstado.Value @@ -3303,7 +3303,7 @@ POR ESTE @@ -3388,7 +3388,7 @@ *** @@ -3546,7 +3546,7 @@ Obligado =Parameters!FechaImpresion.Value @@ -3681,7 +3681,7 @@ ="Página " & Globals.PageNumber & " de " & Globals.TotalPages @@ -4566,6 +4566,18 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 +