From 06d856bcff8e4d6bfafcd706112366d6e3882f07 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 26 Jun 2020 16:40:01 -0700 Subject: [PATCH] nominas y personal --- App_Code/ClsNominas.vb | 27 + App_Code/ClsRH.vb | 78 ++- App_Code/DtDatos.xsd | 7 + App_Code/DtDatos.xss | 6 +- .../Grales/Formatos/RepIVAAcreditable2.rpt | Bin 131072 -> 131072 bytes Nomina/Nomina2.aspx | 226 +++++- Nomina/Nomina2.aspx.cs | 412 ++++++++++- RH/CatPersonal.aspx | 78 ++- RH/CatPersonal.aspx.vb | 63 ++ RH/Personal.aspx | 293 +++++--- RH/Personal.aspx.vb | 650 ++++++++++-------- vwd.webinfo | 4 + 12 files changed, 1427 insertions(+), 417 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 54ee9c7b4..f82e8f176 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -1940,6 +1940,33 @@ Public Class ClsNominas Return Retorno End Function + Public Function GetNominaEmpleadoSimulador(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, SalarioDiario As Decimal) As Boolean + Dim retorno As Boolean = False + Try + DTSet = New DataSet() + DataAdapter("PA_Nom_NominaEmpleadoSimulador", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveTurno", SqlDbType.Int).Value = CveTurno + .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo + .Add("@Agrupador", SqlDbType.VarChar).Value = Agrupador + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@SalarioDiario", SqlDbType.Decimal).Value = SalarioDiario + End With + + + SqlAdapter.Fill(DTSet) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al Realizar el calculo de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al Realizar el calculo de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function Public Function GetNominaEmpleado(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer) As Boolean Dim retorno As Boolean = False Try diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 998375e3e..40f8cfaa0 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -1953,16 +1953,86 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo OnError("Ocurrió un error al intentar guardar los cambios en el Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + Return Retorno + End Function + + Public Function UpdateSalarioImss(CvePersonal As Integer, CveEmpresa As Integer, SDI As Double, SalarioDiarioSS As Double) As Boolean + Dim Retorno As Boolean = False + SqlDataAdapter("PA_RH_PersonalUpdateSalarioImss") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@SDI", SqlDbType.Money).Value = SDI + .Add("@SalarioDiarioSS", SqlDbType.Money).Value = SalarioDiarioSS + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error al intentar guardar los cambios en el Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + Public Function UpdateSalarios(CvePersonal As Integer, CveEmpresa As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, SalarioDiarioPago As Double) As Boolean + Dim Retorno As Boolean = False + SqlDataAdapter("PA_RH_PersonalUpdateSalarios") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@SalarioDiarioPago", SqlDbType.Money).Value = SalarioDiarioPago + .Add("@SalarioDiario", SqlDbType.Money).Value = SalarioDiario + .Add("@SDI", SqlDbType.Money).Value = SDI + .Add("@SalarioDiarioSS", SqlDbType.Money).Value = SalarioDiarioSS + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error al intentar guardar los cambios en el Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + + + Public Function UpdateRFCValidado(RFC As String, CveEmpresa As Integer, RFCValidadoisok As Boolean) As Boolean + Dim Retorno As Boolean = False + SqlDataAdapter("PA_RH_PersonalUpdateRFCValidado") + With SqlAdapter.SelectCommand.Parameters + .Add("@RFC", SqlDbType.VarChar).Value = RFC + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@isOk", SqlDbType.Bit).Value = RFCValidadoisok + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error al intentar guardar los cambios en el Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + Public Function Updateestemporal(CvePersonal As Integer, CveEmpresa As Integer, estemporal As Boolean) As Boolean + Dim Retorno As Boolean = False + SqlDataAdapter("PA_RH_PersonalUpdateesTemporal") + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@isOk", SqlDbType.Bit).Value = estemporal + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error al intentar guardar los cambios en el Personal.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try Return Retorno End Function - Public Function UpdatePersonalMasivo(CveTurno As Integer, CveSubProyecto As Integer, CveSupervisor As Integer, SalarioDiario As Double, SDI As Double, SalarioDiarioSS As Double, CvePersonal As Integer, CveEmpresa As Integer) As Boolean - Dim Retorno As Boolean = False - 'Data = New DataTable - + Dim Retorno As Boolean = False + SqlDataAdapter("PA_RH_PersonalUpdateMasivo") With SqlAdapter.SelectCommand.Parameters .Add("@CveTurno", SqlDbType.Int).Value = CveTurno diff --git a/App_Code/DtDatos.xsd b/App_Code/DtDatos.xsd index f354dcef4..6fc0806ae 100644 --- a/App_Code/DtDatos.xsd +++ b/App_Code/DtDatos.xsd @@ -264,6 +264,13 @@ + + + + + + + diff --git a/App_Code/DtDatos.xss b/App_Code/DtDatos.xss index 6f4a11dac..a6c00f6b5 100644 --- a/App_Code/DtDatos.xss +++ b/App_Code/DtDatos.xss @@ -4,7 +4,7 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + @@ -13,11 +13,11 @@ - + - + diff --git a/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt b/Empresas/Grales/Formatos/RepIVAAcreditable2.rpt index 76a5aadc4e7571490fba3d02c3f5397f6b1b8642..30d7dba84b2799592c134ac67b1258902ff59de9 100644 GIT binary patch delta 11448 zcmZ9yb8IF~)Ue&Vwr$(Ct*yAc zlgwX}%rz4j2pbp(TaOA3Y@>$)|KakRo)bLIwwIq?^YddNcjftp{-;2ZiOQ6n29{D= z80AfoFCw4F=q*wJA!vV-A8>uuCq?=)zR9$a2Wq;Ggtxv^6ytx_)a_Fb3^MmR-A52+ z{zV!yc9Hbf`=_f;3LCeWHjYkyQI;kw<7^LnRH56>vOM|YdQ4UbXcYjFi^Wb)?bfD( zIy-e&T6#8dw-IwYtzRGXw?)Slg9ye4Ln=t3O6USDr{_$aO@1;NkY3n+ZHg)^dmRFh zV0X#yg~mzo>DVK%LKhgsvxk8yBjq?`gJ{ky>H60KyQfPwur$SVfi9Xz zOeKmbIqvMbSm4rv5NSftRh!4>@-w2q6^f zsT6BfEYKfXf#(R3-Obhffy}bt2K7Pkpc?R;aweap)w#}SDoP;fjuh~kOXt-ftIa$$ zQXp3B-bzISWDM#$MGRj*hm;^%^bgyE{TUqj3xoV~I)89d#E1BHo zU5Ae9ASZN>dQUJlWDzQ@j^bVa3h@UYJ-sG04Ex64ENR^2DyAGRu@+~G8~KaDe8k=D zh~Dvi;D&$4?#a!|)fnNeHOTRj+TqV9>|iG412?}1@%J35p!Umei24)-=eSMnJ5-I2 zy8@ENfkf|j6+{mh+#Cuaxa_0nGippXbQL{-Bs?K}?lMG`=hMRd!=}NAID@AT|IbTB zf~b*3$oXj|Bg#AysX9+(8%^qneR@CaNHAU`AlI8ShQP8GY`Eo?W8z31?n2Hj18DhIAHi>Z37)BC^!4TPh~$+A z5T4azQ-biUod;XP+9SI-+D0mNNXjzJlG}sdX`Lp0Xnn*Sb+n)TBOP{?g-(A^afK%> z@N!}Sovjv8xE0gBD8Y;B^P!ZeUXKz7K?`=YRqNAR|>j@Bxz*ptfWj4`UE!1 zF4MhoRF#wds=ttlu*}u}{nJRXb-GhrVDIqFakpVbo9u|XElfQoT?yms+${6u@1#8m z^BbvQW2C>ELm-XNO`mN`Xlbr72CB977z@@@H*U6~(QH!ZuSjHn7rnHg4&>_aSKz&^ zT*u!wo?Q!Pl;p|c{I=lYG$EUPAvct+TR(fSp?*h&{nBeI-b`YVm#mhr0>HrF!N9;UzliWf(k~)?k@1U&U*!EF@)sq)i1J0nFQR@?j!EC_nzlP)gbV(%s z@fAss16(p_7Y;TV9u-J61^@$q8ExazUNPHM2_QEbcU`h9uB!hkoo;$`$@hxyl1*lchUsOQ7>VExWO}2ELx9%!H?oXI^)5JfQ(34P z?R((YcN`YZIgZ5tf{KA}9jft1btM8P{NJN$O8rLL&`H6GQ3;R|7d8(d0?Jrc7FLs& z-kp-^x9<=b7(K0j_c@!io8jeOU;N^`i`9pN0{)>scl62tz)66DPVhi+I~}($8xtw<^8oG*nG>**#mvLRh>u~G3wC4i z3{dL*0BS+WLuo#5Myck)a7x?v^u!8|k@VX@2U*<==t&1(Q;X7kr$^7p7lu18RJigg zz8NkRK$?cJtf;n~T zsDI5aov>pL5cTexg5PMtStn~Eb8!qFX_z@-Xo0_(yaSMoSd~izt_W$MO^`WQFo8nz z(u13?Bcv!n7lw(y!21#Y10=7fa%l*^B&$&8&NG3?LxTm;vXl`*C} z#(M{nes{iT4oFvLzlPOv1q?g#n~r*S8R5J7e9B*qwIAo*_V>n>x(H2F-U3+*=x(Wd42Q6)xLUs4V*mK#jY9=) zQ~cwi^c5C^Xi{+7@H|4=`p<;$LXtrRGIXkDp;2VB&5kUVYmO5Mt{M)eeW!QW_Km4S|sR)RfeHfhWca%0x9Ojs-N;4SlY=5~ih zM80Yr;%#6G+#{zu{M+v$RT4ra+&uw8Ctl0ViLQUVYLOtp&0O(SEi(twwGcbzYphm9 zCvXy%Pi7XVb;A*e5)3}aTOq$&HeJ?~zMT)PPyYRF#Q99Mc)h>BLrv}QAP~%;P6wP{ zUul6fqIPKr-=#-bV@4@_!+o^nJIQ-575IqQRv(qMU6;`F1h`e52U+RA9BX`H$D6O+ zn>X+)?>tF0q44&VGcO{X@%PWSG+lO2W;mLFR)lHcCkj(;kkYorTMoj5M+qaKR2&V` z`|=#_d8F}Y{NEt#K>@?|F;3}usKEE(*5xa?Q`m@-;nkIIggWEWT(4Ww@#+&`5H961 zxUwZQD{QfM&v5P+I;pL_2;p*sEqjWF} zuJnDafPqI7jH>Oku3btFY3c)FD04^>K2JPbFH8F01FLNV&xnSH*Q+{@gutyG2$?9M zEQ>Q>p5>Zgn;`R)wzck$kWMsFFLm)tceca|C5AvgzClS{7!cp}ffp<7STX~1r3qKn zudTIlDMFtz^(EGHA}VD2J-pOB)ZlGOuZ>q^Aby$cL5mBVsw*}7x!0d7y0@e*=hRs9 zj%H{DbtCgrhQI#b6Q$~Ew1D7Fn2n=2GdO`wBj8+%LwHv5s(Di^qeG#5#u*0J^>Y%a&p?F8YFJG zH>Eito*=b@-P2r;{$S zhMGy~s`seq$_Vm)2CWR@cpnNlMPyYo%E;KTx=ij|W&YZEkv|GX2W)dw06y z07X`N`7onRW3G8)f7(ig;`_ijdeg=CFAWvPkp{E9 z=>8pk8*w4ST2dfz$os9SiMr|=hwb5!YwcZ@M!<(nu7l%{3uRgPTYYFc`~^!a*Lk&T zBOGH1W_T69Ec^NL4kP3{^ys>!V8OmNV#=9s3HxqJ1vUtWF`~EZ&&Y=)3F;GWNIc{E zbBKP`;?g|%5MSfx1KK&GUtn^NW~O`tm9`;=hF@?JD=UyurvDlLxZY%IUnpMoXY{{> zKOW7P-bz~nkheyiKT2-~4u7%O-yFhd>PAdS2C=W9$vDI>`NE!_)*N>e2_jr>FtBGI z4R4^Iph5K0MV|QerhcY$0&^S1ni;T9{LhmR#32jVnrY zGfW=J1rll{lx^qK*Oz|7-)L$FVS0=y6SX3?tJ9EbLo41ePFkBepLAZhcX%SFt7Q)) zE^SNMNE4v&Q*G3{Guct0P?HF9UR4TXv+S3X8%liBt1B5XHFT zVRJ9VCFmd9yZZ65ChphZ*@cNld|O0D|Z z4!THiDuhq%MP+nyFmUiu#I%M-ycM#_AfFapbvVnb!a*8C*G*v) z`9$ex#oXmKqK;*BTTU3MFMjRsxEPIiTN1V25WPZyhURxbV7rh*BULUBU7s7_3kX2N z2NJ~!1ge^Hkj=QeJ~88bHp4_z{7BfzXJ=DswQoRO5O$OXJ!~XU+`@+5MDajhKNVQ~ z#DUG45kqWC#U`TZnj^(+GBlaAxT^jj_FfGeEfV)T48u#8Y;p*AGf)byhk74W><5Dm zdyfG(_@;~TD6Hh~f-DkyVy5jvIX8(<(EZ~*80d#ChJ)BZ+Xk$yC|+ah+pe?o%-tc~ ztIXD@Gw7R{$hTLxLwei^HZ#qYJbI&+*xt(U9TC;KkYvH^MSy@x#4~pKNFm?e4H#y* z#51~3UeTF&olW=Py0F<8fS=%s;dy&=-!M0~uAy=*^1Tto-}O6rw-(EP?}G@x6r{Di z0Cy#Ca6d2G)|y$MC96D5}F^9X0N6(%NRY1s-&XSE=r~=pWFx) zCZNhF&*)wra8uQCkG#u6hE@}5BIP7(pu>j)&no!9RJa&SJMsHxhv-`Tk9S(9uj%J$ zI2~FFjXAUXxFTO3T{2D(8n*W{91`2~CQ!)n#pH-e1w7MX%vTOAY%ePtjjpWb@Fc!% z=NG-5lx*YkmP{H#S^^b7-;t?`(ILR6CKA=K&U5b_QN!&I0%8RnZ;MO;S{wwQ>rn~Lt`EYXSV7H1S>}vYR#Nu^kL0)R zlLRyhlh)+KMvsp|3-E0AW~_TNswf6hW9=+o6l7PnA=S$WT)2iHUa&?4y~pcYes*l~ zn0;ADLso%H{>g`sV<$FLvDhlVi`0JI=197PG3t34AsnF5`JCUL2KRu8B(?xkR_E*B zyBAZ;eN)k4cDh&XhI0ZMc`=0H+-KCP-|VR`(UdF%bu`y^j)_EDDE{c3lu<^VdI%@e z{1v9-E0KQLmg>NXAbQCGEQ^rlJ=r-V@WPl4^Nh&}+6@P`$}M*8Ux8utz6otdDa)fA zpQcgK6FERX!TnSxoZM4;|K$yxOvbu35eDtp$Dc8&eJ5|Lpx&Kx8r{+dDRTIz~?4&+UGT3UAX6y?QG#wRrUv@rjxA zxmW|H;3jEy0}DWDaV)-+(K3&NtB?%0TR2K$!!}UU;w&4Nn;$k7xy7hLrC1ESPTc?G z5z?9#DI!00DhZ`txL`m`5EY+@Bmpjn$MhWb<1a>;4_pA#Lke^0>%G9VA=HMB6CDm~ zDRR47(+VaWu>%P?XIcdL9JSH<%A%P)*O3*}6DI>e(NH&9s{1^5#`jbLfG? z9UaIzllz@yayI}s$er8~xqxB)>k7UMs8{=spgZzlfGNnG0the$JyJ*jPMi2ByTGBo ze_hu3L8>$gAbxtpCKVb*aKw+#&(Htt!0}gxRM53m&;e*mL9>*QkpFc+tCR(>{}m=* z?eyJi0BMqwNqYYRU>5cN71C`5ivUtU+6BNK$pmcke>Ma0wWvScdlmo$M<7XmodpB{ z2GYIf06tfci;9Tjv4&0N{#dhm5oXi44x}&0`o)<+n$-415ihxx^nX?tT!r zL%+>We|v$MP#N$~GKJ(Q`-DOie=^h|pEN`tlY<;Xe#T{|8htU3z)Snd zSG}Nk2R`y+!ET=vbiDpk!K=-~^uZbMwbK|pIV-NoP^WC0F}U`ZaIQ@O*X?S!?W3s=j_$>REH@qKRcF!sL8MUja}$7A*H_B|Ya=Bfd4 zgSbghj5t2r&ELb!jU*A6=Pr8)U<%n}VPPopyKvOEG%RDm!_jH^Y({EkK|+#cyOBek zQ;rYz+3y2NN9dL`C4G{UT)=J~dDX0TJNqzaF#MXQ4E7TEc4XxIR#V@h*eGm{tE9Gq zBc{wWv|O8MQd#IvDLvl$zvAWEjSPl*O|YWsE-wVh{!Z&3XyizJuRD!`ERx_BN2`i9 zjnGDRDZa@N2ydGBfaqzJSo#pzfY8|c3$F>v_fVQ(0Z-S?>HxPOc_1=QPWM8OATpuB zD3N~WowGosv7fD{&p`}|5%L%c&BqeM$6GSd5;JokRWiW~1LdqUyRqej{q=Bjjb9{L z_Y)&_(L^RCcfZA2HGRrz6|96Qrfqm`Ah2!mw4qx?fyL;XP=IcTVK~J(Gl78abagJ)+R7fNMgpi}b>H?w{u+r#ADx3oi%DVS9(%l9^(>OlJzr@ZI-!lY%%upp3= zxxrfuM*X5lw`z7XaH3pr*@ogG>mi~QfKcj&iPbBxu&&_b2;5#J+;$gh0L&w& z{_zdpNxL=kG;nC4W|0P>{(?Y~t~XxuySsKC!z4lgzxC0St%6#n0Q`^PDXEdU->NSY z>IW`Cr6^^dsYwC$<*(RnGqAg1QpT(csr0rLuuh(8?6>_qVBwsDZ4UE|OEJ9??cnBm zqd#;qq4!&qRPv&UVr&PKDpj3Viyx~EDaoz6I?=|0jDgJ`30!4R!<+6!K3DLA$L?ep z097*9x-~;EigNEjuxFUFTPmK+4nI3N_qwMu^AkTBQ#!l~N|?_C#ediFlaTVshxR@O zI6QA$DzZm)EQ)bgmaxZ}QONF-_QnrocJ5j)ah6-@7T<3?k9NeplPcuuyfY_;a9Om7 zd6J1Q{sHw|e7-sP$OlTX{H7SzbT;SMh?c!b1(ev9BU_2QU~=0!*O`gw0Jox_P(UN|`ngBH9prQi{g08S8BnXEMWYGG(Ro5cB%{aDb zOUPZ^#7!L5oLjrtOg1yuA)IEBEU|k0jrZMc!=430b*{syRb7kSDM#MRWtbVxeuC

^``rjVrt`A#ax~xr?y%uja@|U>^^c(DWzLz~I~c)s)C)&JgD6{ras< z;}FM$Nrd=S@D+TSQy2fY3_6kiJ|z&1dOaY=Yb5$fPTRp0{q2H3y%HTzasKptoB!^=KzENf4o=22GGuv?vRLJw ztxS6NHxw&k?q&vdY;gv11B_Jvsl>mN;+Ogy^bfvo!8es$$0Lk(RO&J2Qqz}>X3Mx! zcx1t;;+(n0m z?%LLJc+5=qClDH@WiODa9JnCx(^%6rGPH4e^y`P}+tr{+s+Qc9)NRF>j!4u-59CD$ znJjneGU)7a62c;NtlAEK?KK01yAyt%)!^e^C!g#zyWlO*i}dw# zoPkpg(CbR+TtMo!73Uy7rw`|ih*g^tp|Cb^w^>Kn=Q|-jDWzU@}V> z>%SZI&=-Jfr7POht?+e+Yap-h@b@W{pF=$aD*gH(X~yb1PvP+E)-0{XzAdKRnP>!yiz1F(+?ky>o`!IsWOGF`(r9>cdEsVT@G{duSe8@j^_3rwd#yZ$t0!EPa`oW zZ6ykB@-MO_x?24`#!67O)-4Nn~HO;wXGM~&Ed9hs{u zjV0u##b9LFg};i~F#2s0Zh%^C5IH`^;lPpTW_ykO{oe>+EN^W@0eNw~==T`E91dMle}S?y>R*9~YPEs@0{w&?Pgf(mrDHPFdx z3c@7nhjZQ1UIry4Fy-5(BhtO#6#@+`Xf={ngu>Tl-MIMJbRKn-W;uT%I{mTNFbyIS zI9Twwlp6y~9GQ-#yX5a}SP(}*NR`-VksVfh*@HBn(oFQG?=dLU$XzVliwV@kLSTbl z;ir)JH6xr8Xxvuln5#q1r}15ruAsG?rKR`UuCU!76p>$DKQXsW^u(B|OE$x?Qsz?Z z$c03#fR!;#yKDl?qSKH6Fwax$NE|S)dFK@RsKhz*T4Ch zeJ|)jeGmovgLbSzu96Ig4ThFvKi1^|vPtb%*esN7Vt9cSd}6RwFBL2z)?Aui*h}u1 z9NO>Nr)Q{0-Id&k+V+I+U2(B_nS^9`nVW}63-$mYmGrO9(y?4ZflERBqW1g%51y!* zeaZ*mw7;k^JKgvq;%$p0vNlrH))2Q$oz;U1n@^Gn1@+FF(ozx4f-&P2;z=P!U8&A~ z(YZ$)l8Mk_DmatBfL7FQpmH;)_{t>YCqZxzME)V{v84z)PuI}eML4PxdM<)d zqEIH=R$16&o{0$Iq}Wt?@iESi?0r8KUR6)vBl8sG%XLF}uaWkO^z92app{M3ec?cm zMP3qB5OE1=Z9$$ns>&Wwk~Dc>KX_Wx^t&XZ+*WdhL1Q^zjJ>Ly05Q4ERrS+2Tq%00 zO>ZCKyOt2^QNQ!Z68M9O);J0&4o_DJu4GkThm#4EctAUyfj@UTaEnALU+^COeIOY~ z;o$!24U?lQ<&gHE{|9BU_mj+d*-@dLj&KL;Z-@(qn@PO%iQko8qpc6}PG4JX%96q~ z$S<(Q9gU_qDt81?x2jeNmGUnpdVe$98{!JQ*GsQ~19j>dzV;IQhbCR=7}7==qnFwp zr?F!?SkfoHW3_(RUftdZGIQpE)7uO1fYCCRL+~%b=mugm1BSU9Z*K4%M8>GzMdkgj z3}HzJw|iP6 z&>LrMO<@+@ugATDJaKW3VA_V%^%%)D*D%4Yz`IJ)D+KnW0>U-swN@JQ0o4;{jzDKe zhK7=F2yX`6`0qX(N-`2UJDCXq&{fk~VU{+sCw$kN8VaFJKb#Yg!9!WHvlu4nWRIka zt9%Wl9q7WVOpo>c4{NFSqs2~@zz@4-eD>q!%$|zBdbvm`~8Q?T7@+{23C^!Cb;}(fp8HMsR=Rq*B1l8f`IBjoWT8{Bl&Ck zeMX16Iw%`}(QLClD^@KgaJUxM ze&G=!g@Y@z?N`Rw6VrtdLNKh{V&4~8Mkl1-dze2t6 z$kKM*hY`M+huVUepcB*IaYa+w8p?Isx{!#%-Q4s_eE=rlj5u-+>43D47m^-|b6{}4 zs$#x|Dv4&05Ss@$Hm^a@yaH%-Wv`v`>Q0!_x%KJvE${V|bS_UbfS z{ISPHU$FACO8m=g%s@xKc>S@^$^&v#6#B?Yp^<=PnXk9LYQ4ojXtAeya!PX%)NLIZ7;)?50%?E}YluaKPAGD4msL@!mu3E{m|!I7Bp*bvu& zmOb)2*j9XCP9YBVP|M()PWLf58)xV0jDOz&uvSxbrO`%-bubzp?M^1+$FdOthbhl= ztV@r+d6;iNpQxvMDW=fuCG?VIp-ON^a9zS&38L& zb>ph{>wXu@zOiM=W;-6rlq>R5aOyuL$KGID9au4=FrX@Q_-bSpXT-N~>%c^xYe)Y!4;XP6cj z@~|cAJz^40fq%ob*KcU|#m)flb0s#O;yNNS)36rolrniH4)Q~s!Gw8SbIdagE$80y z7dH}`6i|P1!^abl9q`Q-o89eGD;`1_F-uSR?ZP`|Zr1AG+(2by(vqfP5u1!eI?iC( z+L#Lg><|s};RIHsEc6X!<9Q{f72Nlhol4^$=#7^LObNM9pQqtE@mU^u$F-f}BAT)FpBu?79)m-F> z-2(4BcWO~r=o-iV*c2+dwCu&LPlc(%N&eIJVOsR(X-S5S{;l^Dbn9%Dwu9Z+8U_<5 z=GB~@t{8zO-7TM549%jP&)JE;7y-5#hiEi#$Z=Z4{^IsRX&*AexYT$jSoC|)6>QZQ z7&3XpZ7iEEkRAZA5fd;yrhB;U{e2dg#3*$OFrWF+NPDlGJ8a4iP5}}5uNj4GJCNSx zwKoxCT9S-YTvFpaysVe(ReY+WBj$Y#8G@EZ@(&hE^*-X>Y*5R6#hp((pQ^GDr*QOBkxg)aw<(O0UxA;<3}nnZ1VoRKiabF zI?s2~63Vg}(IG=+NnXz_r#$$V=n^`DKsr|+#C>a?&+mk6^6nj$!sG*2yuC6?k#8Rh zaK`pGC%$jL@|i^|Ne@8Mv?bL zS9#RR;!wnn_3b8;f#m3xH~NpR5D;M)k3B_T%JaGr$7Q~MtLh|jED-zWxDq_xMPIN2 zFCXj2%vYp=cHxMBJO3FY7QkaToQ-Fp3DQ`4#jE~<5Mz%dyQwf4(zf+2)*MW4SOh%& zr(BUqm$v?oauvl(_xW zAq??q_Ro)B`46qGwWJu6FSeksGO$k~p5#du@=jJ(u4o{<_0MO{!pb%>S0zX@Ur!z8 z=;{e(;`M!H>OCOQ><5h)1^y-tf+4h_HIYeqR(8HxM0GlZ>;r@QZVbRLdXDBeb>}?) zdGHO}i2HKm^L@*AwjJ+~c?>^jKwh`NpZs$t?DWX2dvK30%{CXisaIfr!EW7T93tgM z0+Vb5^5GdntA*iuhS4v3kUjC?mVhvbowPzB)u9y(w@#Q6b@O><&+$``Y==&v%fRay zSO0_^PFUeJ@dRq-e9CSkFe{yYntMm|4GLi^Hy8QMH~a`8%}#q{@kb!=N>$x}dt+cRH9U9qvY3%W1bC4qph>vp);vp_w^sg`2BqAs6}}%AfrF58+v2#XdqPn-*o(W} z{#YANVyleDL04!&0~wn3Z1nPMOgrE6anc+&c!}EvK@KMpR00kzc-gy-{DgRRz6?SM zQDBATkibn#r+;jufk&^SjL=t`EunW|)m8u^Q=XS5ZQXyA+S3pCX;lJl*M~UqmjMRC zeC;5NTyU5eM1f`Qxi=`c&n{d-I0b(!w+SiQc>30hlx_>IR7{&Kg;k3TzEU3*(8Ew? z?Kw>bal9$SZK)srkNa)~EF!$Yk4y%Y;>w25bl@BtTRq+2L_~soU0d6GZ%_k+V6HD8>a@D_bO`us9EYsRq076ny2H+j640M8#)>qNCi`sO}*#{D2 zwZN5cD!~i9>J?U3m&&3v<9B`NUN8fzo{`t%IWW3A@yr~ zw1*)-16~=zq8H>^nol{G>=miHmznJJ^q0Y+Na7J|aKc ztNFuqcs2(&hiBsMJN8kK81LH#-R=6D4}QqUt};i%xY1vjYHxqr9Bs>1v5dQzPe-xMfe=?W}dWL#aVa&Yk4}#Cq9|lS;;g~75wYSZ<1bj7!r$((Z?cnPB|b3(H-pgw4w8{5Si$b2)u|H0 z-qHutuu&BL`8)bg{IH3`Vq#~vA9hg^(K*RYf$>lBk=&`s6I}#A@s%E?{trn>LL zXGtaoG6BsY@Te7RJ2N_Sl%bl8i(7|a@(nZDa;+0#)9ga8l|$as>vUg zTQ{xLE=NNOxi)b>XS#ehn48PW8BVSL-BOGMn*Dd2pvL#+bQp)m10MloE-*wqQi=um z4QAwl9HL^yGncI+{Du?pNPu^Z{W=@ied@9leQ`*Sffaf~gI4KL(e!(52`Nxy$)d2M zMT8oO>W34Zt(A7^kdyQ&N!>LdVp9M@W1=)zrq!9+sdf8l>h z`0E*TJ}2%amTC!?k^+wkq&x?J0l+llA{sFo#Cap)6}^uX8w*CA2!T)rG<>|kfuTo~I6rKPyl7GzF2&@fV7}XA>aU>^1doiOCoR6vQZAf})+&lm$^AIqy#_ID`>a z^$h4foSag;Dc(c^>E;`$i<+1Hgy?v2J0T8J6|kDF@}*Sy4D2a@gu>4)q2Xs{?cqXk z@t-dH#GvB`#NQUcJeCNZJHK*n?NX8%NGz;a_sN2C_fR|J;EYO z`$`X~Qfui}jEfZ@wBu|cA$12`BspgTxQPTtPnNtA_p5~AXuRbbxNqakFib+6eYsnT zr_P?-Z~(0!Ba9!XW-vrz;k6PWFZX)@u*K41D3t%~6mHL!mQ{W7`mh<(?(Lk&YGqSk z{F4v28*}?EC-dJ?t7w##k_k>$M7FKYHnT7ip&Ccz>9w!!9yI4g`DosI zELTSJgC4XgZB#il%s%v8BccieFz{3Rgq|!O6~bUO?)~aF^x8O*o?^lL`L6@dk;1AP zmv}$PPpLmZX8IM&jFH^Jy6`A5)lLZQ_T?p;b&*n@66+>?Az7ws26h!ZK~!%slJEiT zxeel>cJTtiVB9o9c^+-`zK7Hb$Xu&&-~J__k;~CN;;{D(H+T8gt}l<xa$Jo-?O-$AHS`?@Z8%-tCTx#x_2SqDgo~*5wq219GFHd+RkVd)Ql& z9zXb_DIjlh(qdPqe@8>c8ye07zC*{F_lEiIxJ#ocX|lcUNOpID(sVGjv<%iU52n~% zV0KQ>oE4GvHc=7h>yJ9v1|YF<)g3?*kDdv@%a>JJN_d>WT8^@(nB(f4=dKzj8%BMj z3&Swkplzn>%NOTOnV*$&jMp5hD0EKipdt#YFa*`6s0#m}8ZwXP%6G8@0i}zMe>ze{ z0iLelSJID`>+%)FOC-P+d26!XQn7f2+*xNW_(x;Y4=~$b_(aUBtcx@@)EOFlZy-YlEMwd z)T4N{<&y}lN%N4ytL@5M@u6mDU?^YnPfgY2h4b466S`q#@FE{w?Go0dGLIP6qK4a2+I#cy7-bV)we!nMN7pZayAKF zK8Cy=4W%)I_gO_v_O=;$_jyUEl`*IY@TXKv`WTnqkTcjq@Ab-t(wwUgAOA%H8s;!C zrHenhB(Ml|oS~5VjKD^xXxG^xV>v)M^F!jbNdUg-ka2=WZK^gUj+0_Ju%{c?>!e%Q~6s+SP%^n}2}1xZT7yv&C>(pl$gyLDN$3#GZqe+RR`M zb@_5{Qc;lBf>?~;Mw=hLb}1OBRJTszv~EH%*H`l6^N6g&s+$$gTQ_Lsbq30>)2v61 z{WM-ZFfdL8j-D>B2G()9@MUcgK~+eUA|2g{7w$mc+@3y=sN^JKO>-qQ5gh%N=XZH6 zu5Jn!#UA(c_@e`qR11 z<~Nw#yuf`_3IKebG?#sTb?$MOq^*P?wDv=-OzKb1L>`CHO4d*9IVzbLG8NcJCJki* zgAd)4v5qD}8;2QlbG{6qdH-&6aWAQUr%u!6&ar!e)mW!3i|w9aLC=F^f3XvtN9`X; z3(+HXwieo&kkc^~Lf%$_OmvAu7=!01|F(t0*g|Se2+C}MVE?#ZWCJBJ5(4{L!iBu9 zZtvuar|+;oeMgS(9;8#ZOv=5ce=V`<609{b43CtiI~pl&3Cd;xOR8$_&l%F$5d|+O z$Ghx$HWP-8=6;V7PzKyE3Zph%5C-3aJI=f}n}xZw! zJUZBL4(`6}`$~7Fj8D@%Uwr)MO9l^CRq|LMdMG;nB1kJjddXGIW9L8M{ z`8V@X7w6&_O#Wg{1n?dEX)Mw-H_q07o)nJ3rq$9)eklKOKfPg_;w`te=g{5K5`=!V zjJ1y+9f@M|udgn?z{rj}*L)NDtE=d_5n%<4ryPW!&=n`N`$fof%*Yi_amL=t`>rZy z+xd9(jN$qC{Lf6U4AK zi>%Rp8G|n@o0cWYG>>$u{!ZGiE+ba@HbMIE^!C*A`aR@a44V#N0X_5*j0d^Jr`%GL zA}?x8XzcV5W<)Z4vaBC;H_^#viK?G!x$wxZW{Q*S*MyVqy{2F@zV3QZho+Yr;bH&K zfqs_?d~9FRc$2Xz0hku8=0SLPYmhL9rcrFUjmX#f)$m*M!d+3gusL#iP=wM3)3e5h zG_E5N<(Y1y-9;HDM3atkZjO^Z>AZ)9bx{g%^iY<020T4dNSuto+@j=bYO>`^62Kke8C?tWE^@Uu@_T$EhwV9o6GlO}G0jQ_i6t?*L z&Qsw_MPlhprq%O2V*8DY3I_Vf4&liJJ^0_TB0p}oO?eI zK1<#+Bk<{7$qOi%3}7z-p3q1OcKqHWIrh-NXHmyS#h*GwI+yO;XWnAtS7GH`RKzQ> zFh}B;aOqII>%6wJE!u8@{WI&sW4>KRMzWTP^2rwjvlMyw5C)z$tB6oti$w>9qU0aHB`Qk%0(mKrV zp~k}<)8?&^?2@=KIyO3;IPYj^;=~75Dh#u}yk{w4;5v4j956+b&CP9CIJ9;iXzK8j zIOnelEbZkBnsCV9E^gr-m{@GaZ+5D(;8YQUYb42{K!^Ni&Y}`FMWN$*s`cyB6{dw94|wo&hc=TMVtQvL z+g6oaAK|Bri>-I8=$I*?=;MOQfY8yYiD!lOo2RCW2l*|889ki1xZL}$I>g4D-`ZGC zX9P;Y9D4ZGdi5IF3Q+_IeY;i5T8hzoXw%lI z*UNCuRth$Rwq`Q~daCFcgJkq`VV;M+oB;7Is7n;W4diUcGDj!T-Y$AA$Fx{Yh}GWmDsaGq@7g)?*_A418!dBr z?>bp3EOMDWbxVUAGq6pq98yr~ydCg*iM&${shSp-iNV=K^Jxx)y8E@%73|EejOX>f zraw6xZ*)uW=e$<))<4!rp6MIB5AwrxVC~7>2_uArTL$Fi`k^%M7 zS@Iwh=Z+-q|8A8;1%5Zev}5CRge5HZd%sS6#G|ekiL5QZ!m~v(LWm_D z=l>;lk&qKe&(@K;G~g_x?RL}M{-e(5micf~wcJ%iVPORLXJ=idD5b;k^W4s!zJwBo zR$1JeE!!$)f@39si8~ECrBpeV=K`JRc~5vwiPxhx*GM;(<=4<^SP`l*IEC1qhF|s` zk>Diw$JtIvIh;j3oby^HZ&B?ITQ$=?ciw2*SowsB*gA#w6MVTu;83Vcf`*3$`$FUz zaM9ntpeYUVgOe&hh1?y$mFhw6gv{!<^0iL?1_+n@$JAT$5P)&22L%vdnEF5=1~_Tr zqwEBSGWlA(zon|s$fbUxM{H82kq1ZoZ`(ip%E#yDXJ{o|Yb70kwhZ#Wx6~!dBB=iw zqs)L=KxncvWX1x(9;wK2>wivy_-~2N^jQD^!83?6Ul#y@fbmS9MF0>M<3H2zRjtBH zfIdLR9AFOh|2NXDyK?|iK&ml~FmN}x`F9LlSOMMD5={7}P)G2Jsm74h8S>(W>1WU7 zJ5qMW&o$IgD+2Gk#}@zAHkL-Pd;HEt#a7?!Qxh!@)q&1mqR8e?E{e=*-{o;{-brSV%BmCLw+kw{v!uz-RFbc%hHNum9 z#xID4QD*xUvtGTu)Lmcik*_0>AGn+1jy z2!V?HtXD~E~@XX77(vrePs_n!}Phv zpg(lyk@gmFKbxQ^>Hs>$SKBpnzC6DW&%p!C#sX4-}Y@gBd_yv2S}jWO9npsZ>8LsCiyo7 zM!M=m9g1AGC!QZ*0u*NuZ3 z{jAiZ5qFCN=ZIN~EG)$;6nR(`D~*8fAJ>i)>q~P%zSqdacc?-Z_mz^|?{zX8Q`f~! ziSD9vqb$i${PicztQWtK<#$l{^aP@ecDzU?c<9`xNtMV~L7Fy>(*=w8qtT9}YIiV! z=j*sQktbHi!aypgRnEGC0=|;<{V2%HV+hIwH)RaT+wUF|um|=}s_2%WO`oP*da*yn zy<5}+H1Dv^<9W-~jKmEwR0HXG!jK}|%;W5RO1%07;vVx1=!75zeHm^zrKmi)eH%Bp z4G7ndVIlc|1{fCl!HD-(y^(*ipJ%#{-h<_piNLc4!VouzbPzCl4Z)uD??J!i|=r-&Lu!n;vJ z*VuUo*}2u;cik?+?t(T(qoE6=)ZOamu-Zix0;|J6mRG;AyPXhu3#0FybV)9k%E$HgJDRPY ze|9k6%M^eRWwf(DiEI-JRKO<=C%&WunoQBX$(u>6A9+(y#5NF(n&%pd<(LLl+EE?d zZBqd5ELs>h@XqPU0IXk>9iDF*0g zmd_J^o;gp3uQyX~CJ=*qDJVz*X4(4dbTMgYXtWGD{hBEMxU;Jm4xWG?HWDTZJu1UU zeo9`{?ce1%rIT4w-IYa?!njlC`Gsix*xC0=lU~ClI4NXKw(oI9nSoL`vKI)O^gQKi z+Q3jNq6Oqh_3wn_+9y<|0pP6XD2l#MxK>u?(yELHcNmh~rr9dRvRG6EDZQMuL^1GQ$>;fL5{zwOsKj4c ze-=3MCoQ9S`L#Xqykfy)nz02e=x#GgPXdWb3exS@uKWMI2tJsL*$<1pumT+c@K zGDHMJ-RE(gTghKr2(YyDY_;=Xe&fvLS=mvK3D^Cr6||PeY(a=K;AcxLT^!2Hb)OlU z7vvw&x9cdem;OEYNmH!4=mXav=h?l7^gcH(_>H-LGE5KJQHE9TUip9kUDCd7kQg|m zcFnfu*@jH;rSd*Bm{S)w0s?B7E3*O7_?G+1W)HU-OP^t0f%f%QIHD_!+00C|uo7e|3ESxlNOG~Mp$lrRdO_FkO+u*wKle_4 zd(PJ3GnX(m_TFd5k)zd!bdwW+;{vDcC2qUZ$ajBEUDEO{X?C5(t|N3)acH`L!4q~+ zGzz9To<4j8=uR5t%Cfd9FmA+%p{hGoC{BjRjD3d$qRUZ-TmPaD%E7RJi|{-qvVZZc z1ZNB;ufUfn`&Qn*sj%&%wY65&qgk;`U zG285G;#{!U?4mcIX=bp05nGB^W;p>e{1NtB5Y3+2o?0-UAlg_(9&^~~e;})T5r#o! z;9VUmrR>#@>Fdjammx=^>B|4}!P$Pm4^MGn+9?7Pol_q@+5++TsUx{doS! zXL2}UN;5L@WM{1@qv)vRTczS_O4Yslmyg?sA_hgj61% z-rgYN&3{UuAWiQ~q_G@4!ow4GXGsW%NMaYwq;G;NM``&UB9uC3luLYjDobBOX)D`C zmEs|G2N#N!G#7K($aV*26=CR_SqD$K3fx6P#jc@{u=%==eNWXvF@PFMvdC5etK;XV3&AQ03Jp`eWih7@ z0p<4Kcij{x{PQW$n0Hw~CW2km@Vd8rzjlJNgKb+2fphr1An$MUSc-yw!g|Ve@M9Uc4Dw zh?P-(%-Ev3Lgj~?`0~BQZ{k^)(pRNkp)#l4<8LrPkaJ6*%Dk4!?a4cn(*+FqkgfbG z)xW8jt!OxNaWm{7Tji((j*-11pYfkOk_MjhAxHx3mZbW-3W4hGGl$&~BAXGk)mBx~ z;Qx%rvCn20o#?}qxwMv+6FTryqupi{gsrdAnH&;7ETCKU{#|1niLo8$2({9mWnX^n zBYkf`{!7q1rG$j(ZJp7M(Tq`ZBuaEBw69l;d6Ku@^o{{rfsx%FHyJK*aO)Jbb$l15 zbc<}Wl%F!28hazcNy_fZ_e!l)ZV;*-Vg%YCU^=)dkQ>Q^$p*KICcS8H>cWc{A)g;F z4St}k_dQG2?+itBF|3^IAeXymTTa21<17?dWL?2J>)FlX`OUtvspRg8&{>Ms=h9KU z{~~GnG;h%QO3hl4NVz+w!wD zm2>rqjj_K394UrHA=xd6&^0ZdS;!PP`nPEe;1xqQaWW{Iu70eJ=O1(TZS!b)_WbR- zBChGClR$WJaneZ2FS6cmNZtpL!>>X3Sn;3IeqA!>4-8&9Orx6+5hs0WV!fP(n|a1y zsQqHMuB98w9kC%38@<)meM50v{m6Rb)%hH;%qHWW3gL+n=epWRPaJ;{0nSih(4#D| z{xs#Nr?RCGx=oA)!=N*1BcD$(gP1jeUY$ie!LWUwM@wzWJyC!7m0?dSF*jxW$}aB~ zp5A!rEy%VSRyG2#px9<*8qX`gsJ@V+{})VTL0jJ#ay=c|&J!PBwzEJ_H z1HN}8f|Z0rrHGVuy5!!Vk}(BXO@t-5xSs~oa`w^uUAr6ntAZ2QNVu>{D#p^)ySJ@cS7AFTQ zEu;m^8y&JUB)uodeV2k>y3%7-e{)Z1WmG9o8THq z7ZB;vrY?LoK zA*ZF)Oy3X1C#@B@5<=NlTTk{T9OS%CeB%@HU6oq=MZ)_z_RRqMSR) zL5(ouIwcUb5UYnhk*Jo8D_bA&i=|@q1L%UoCzbJZFpph!Gs6VbP3BB|-(TEauD&&_ z(PLM6wP3j9V;A#hF+bpXK9c=Rm=?Ul!k6w$AH);jxuMiuB!6l`|%>1~yIjRvX?$&5ui|8#UF~ zSqcjkyt=$NZ0dpo8(Bw-WODJ`t~a zBZODJVz2{t%YjqtIoipM09iIMb*c-OO7~vSa_I%c*6wL;B|Suxo}$&;+N1XK7cGZD zF5&FR7R^&oK2qP{mR_K|@et$k zoE?@aZ;85WKiM)_f`X_9q09{SG%cPr;@U!oh)y&@+Hg-bHhxtX78d6QH~A)lBCvjb zjHCib2em{s=nz=n^v_@m;HwqRfG#)e6yUfb=R-ZCDDK?!wwjK0T_|X2lq#_`F#Ax& z0zbh&$pnr|aIk|46+6h)bQ5eBeVXu}os=hBL`BGG}I z-d5<2Dphg%uf$zn7v6zj$O&Fo+o)ZljtYUg<)umO-~o4MuD6Xzii{saEHvB?Z(71U znn4BjiC0fUaWHZPZwXL`RWAB?=H5oymLIwdqw;U1ACo-l(5+^y&msJ(%Ur0&e5}Ap z;Wcb0)-1*B8lZ!F6)KfE$^k1X8&V299iD|HjO(Xa5sTW}=*#J1i$D-N6|RtxQpJ6= z!$Vm#g@qt)n(&+!Z08E_QjyW;KJITnzARp1|LjPp9BS9LxKKdj=6$hnU?qj!yi}xU z{qa$yc+LjxR^W-F_f&hzdzJte`y?=Hmh0*ugWhC+I{mz3g!Si#+fl#PRjxm#nVJnL zE)Q>?nsrrQ-Y?lUNdGdm73!{$PI~V(G4z(CS*h;%19g_rdurOa96PV zn^WZht|>oSFW)4A@1Xgo?7>nL#os^6p2(WX@STIDz9hU3yJ5_MBo;%q@$&0ye>KdO z;m(U{te-efY2`##aXu1|g&Dr1LNcA>1qQ^Sya^a3CTHcR+;WiKv)YLVCF5Gzo&dIh|I8>d*u?Jtno%&kOy4gh z`af#);(ygB0HgKg5>Nqvef`p-UuN|)v+^2{1UPBs`wQp<2bg3&+ya15re8zX|7U3{ n=I#K1|Mjt0|Knr7=Kt~k#Vj-V8i0}PY~CvT2 Ir a asistencia +

  • + Nomina tabular +
    • +
  • + Simulador +
    • +
  • + Cargar archivoSua +
    • +
  • + Descargar Archivos sua +
    • + @@ -212,7 +225,7 @@
    - @@ -380,6 +393,70 @@ + + @@ -1283,13 +1292,11 @@ -
    - - +
    @@ -1300,28 +1307,28 @@
    - +
    - +
    - + @@ -1555,81 +1562,81 @@
    -
    -
    -
    - - Fonacot -
    -
    - -
    -
    -
    - -
    -
    -
    -
    -
    -
    -
    - - +
    +
    +
    + + Fonacot +
    +
    + +
    +
    +
    + +
    -
    -
    - - +
    +
    +
    +
    + + +
    +
    +
    +
    + + +
    +
    -
    -
    -
    -
    -
    - +
    +
    +
    + - - - - - + + + + + +
    +
    +
    +
    + + +
    +
    -
    -
    -
    - - +
    +
    +
    + + + + + +
    +
    + + + +
    +
    +
    +
    + +
    +
    +
    + +
    -
    -
    -
    - - - - - -
    -
    - - - -
    -
    -
    -
    - -
    -
    -
    - -
    -
    -
    -
    @@ -4538,6 +4545,104 @@
    + + + + + + @@ -4605,7 +4710,7 @@ let strcurp = ""; if (!iscalculandocurp) { - alertatoast(6, "Se esta calculando la CURP favor de esperar un momento!","",7); + alertatoast(6, "Se esta calculando la CURP favor de esperar un momento!", "", 7); iscalculandocurp = true let paterno; @@ -4621,14 +4726,14 @@ let estado; <%= String.Format("estado=$('#{0} option:selected').text();", DdlEstados.ClientID) %> - estado= abreviacion[estados.indexOf(estado.toLowerCase())] + estado = abreviacion[estados.indexOf(estado.toLowerCase())] //abc = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; //random09a = Math.floor(Math.random() * (9 - 1 + 1)) + 1; //random09b = Math.floor(Math.random() * (9 - 1 + 1)) + 1; //randomAZ = Math.floor(Math.random() * (26 - 0 + 1)) + 0; ano = Number(FechaNacimiento.slice(6, 10)); - let dteNacimiento =ano.toString().slice(2) + FechaNacimiento.slice(3, 5) + FechaNacimiento.slice(0, 2) - strcurp =fnCalculaCURP(nombre.toUpperCase(), paterno.toUpperCase(), materno.toUpperCase(), dteNacimiento, genero, estado) + let dteNacimiento = ano.toString().slice(2) + FechaNacimiento.slice(3, 5) + FechaNacimiento.slice(0, 2) + strcurp = fnCalculaCURP(nombre.toUpperCase(), paterno.toUpperCase(), materno.toUpperCase(), dteNacimiento, genero, estado) /*old*//* let codve1array = (ano < 2000 ? numeric01 : abc); @@ -4668,13 +4773,13 @@ if (msg.length > 0) { <%= String.Format(" $('#{0}').val(msg);", TxtCURP.ClientID) %> } else { - alertatoast(8, "No se pudo obtener la CURP","",7) + alertatoast(8, "No se pudo obtener la CURP", "", 7) } iscalculandocurp = false; }, error: function (msg) { console.log("error:" + JSON.stringify(msg)); - alertatoast(7, "No se pudo obtener la CURP","",7); + alertatoast(7, "No se pudo obtener la CURP", "", 7); iscalculandocurp = false; } }); @@ -4707,16 +4812,16 @@ return true; //Validado } - function generarRFC() { + function generarRFC() { - alertatoast(6, "Se esta calculando el RFC favor de esperar un momento!","",7); + alertatoast(6, "Se esta calculando el RFC favor de esperar un momento!", "", 7); let ap_paterno; <%= String.Format("ap_paterno=$('#{0}').val();", TxtAPaterno.ClientID) %> let ap_materno; <%= String.Format("ap_materno=$('#{0}').val();", TxtAMaterno.ClientID) %> let nombre; <%= String.Format("nombre=$('#{0}').val();", TxtNombres.ClientID) %> let FechaNacimiento; <%= String.Format("FechaNacimiento=$('#{0}').val();", TxtFechaNacimiento.ClientID) %> ano = Number(FechaNacimiento.slice(6, 10)); - var rfc = ano.toString().slice(2) + FechaNacimiento.slice(3, 5) + FechaNacimiento.slice(0, 2); + var rfc = ano.toString().slice(2) + FechaNacimiento.slice(3, 5) + FechaNacimiento.slice(0, 2); var dteNacimiento = rfc; //FILTRA ACENTOS @@ -4760,9 +4865,9 @@ function ValidaRFC() { if (rfcValidoJS(<%= String.Format("$('#{0}').val()", TxtRFC.ClientID) %>)) { - alertatoast(5, "RFC valido!","",7); + alertatoast(5, "RFC valido!", "", 7); } else { - alertatoast(8, "RFC invalido!","",7) + alertatoast(8, "RFC invalido!", "", 7) } } function rfcValidoJS(rfc, aceptarGenerico = true) { @@ -4811,21 +4916,21 @@ success: function (msg) { console.log(msg) if (msg.length > 0) { - alertatoast(5, "CURP valida!","",7); + alertatoast(5, "CURP valida!", "", 7); } else { - alertatoast(8, "CURP invalida!","",7) + alertatoast(8, "CURP invalida!", "", 7) } iscalculandocurp = false; }, error: function (msg) { console.log("error:" + JSON.stringify(msg)); - alertatoast(7, "No se pudo validar la CURP","",7); + alertatoast(7, "No se pudo validar la CURP", "", 7); iscalculandocurp = false; } }); } - + function RFCDigitoVerificador(rfc) { var rfcsuma = []; var nv = 0; @@ -5401,7 +5506,7 @@ } - + function fnCalculaCURP(pstNombre, pstPaterno, pstMaterno, dfecha, pstSexo, pnuCveEntidad) { pstCURP = ""; diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index a0ce17f20..7ebb6d419 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -56,7 +56,7 @@ Partial Class RH_Personal If ViewState("NombreCompleto") Is Nothing Then Return "" Else - Return ViewState("NombreCompleto").ToString + Return ViewState("NombreCompleto").ToString() End If End Get Set(value As String) @@ -68,7 +68,7 @@ Partial Class RH_Personal If ViewState("CredencialElector") Is Nothing Then Return "-1" Else - Return ViewState("CredencialElector").ToString + Return ViewState("CredencialElector").ToString() End If End Get Set(value As String) @@ -80,7 +80,7 @@ Partial Class RH_Personal If ViewState("Documentacion") Is Nothing Then Return "-1" Else - Return ViewState("Documentacion").ToString + Return ViewState("Documentacion").ToString() End If End Get Set(value As String) @@ -128,7 +128,7 @@ Partial Class RH_Personal If ViewState("FechaLimite") Is Nothing Then Return Date.Now.AddDays(15) Else - Return ViewState("FechaLimite").ToString.ToDate + Return ViewState("FechaLimite").ToString().ToDate End If End Get Set(value As Date) @@ -153,7 +153,7 @@ Partial Class RH_Personal If ViewState("ObservacionDocumentacion") Is Nothing Then Return "" Else - Return ViewState("ObservacionDocumentacion").ToString + Return ViewState("ObservacionDocumentacion").ToString() End If End Get Set(value As String) @@ -165,7 +165,7 @@ Partial Class RH_Personal If ViewState("AdjuntoDocumentacion") Is Nothing Then Return "" Else - Return ViewState("AdjuntoDocumentacion").ToString + Return ViewState("AdjuntoDocumentacion").ToString() End If End Get Set(value As String) @@ -177,7 +177,7 @@ Partial Class RH_Personal If ViewState("CvePersonal") Is Nothing Then Return -1 Else - Return ViewState("CvePersonal").ToString.ToEntero + Return ViewState("CvePersonal").ToString().ToEntero End If End Get End Property @@ -191,12 +191,12 @@ Partial Class RH_Personal End Property Private ReadOnly Property SendMail As String Get - Return ViewState("SendMail").ToString + Return ViewState("SendMail").ToString() End Get End Property Private ReadOnly Property SendMailPassword As String Get - Return ViewState("SendMailPassword").ToString + Return ViewState("SendMailPassword").ToString() End Get End Property @@ -205,7 +205,7 @@ Partial Class RH_Personal If ViewState("CveUniforme") Is Nothing Then Return -1 Else - Return ViewState("CveUniforme").ToString.ToEntero + Return ViewState("CveUniforme").ToString().ToEntero End If End Get End Property @@ -247,7 +247,7 @@ Partial Class RH_Personal If ViewState("CvePersonalEstatusInicial") Is Nothing Then Return -1 Else - Return ViewState("CvePersonalEstatusInicial").ToString.ToEntero + Return ViewState("CvePersonalEstatusInicial").ToString().ToEntero End If End Get Set(value As Integer) @@ -428,7 +428,7 @@ Partial Class RH_Personal If ViewState("VacSupervisorNombre") Is Nothing Then Return "" Else - Return ViewState("VacSupervisorNombre").ToString + Return ViewState("VacSupervisorNombre").ToString() End If End Get Set(value As String) @@ -441,7 +441,7 @@ Partial Class RH_Personal If ViewState("VacSupervisorCorreo") Is Nothing Then Return "" Else - Return ViewState("VacSupervisorCorreo").ToString + Return ViewState("VacSupervisorCorreo").ToString() End If End Get Set(value As String) @@ -454,7 +454,7 @@ Partial Class RH_Personal If ViewState("VacCveSupervisor") Is Nothing Then Return -1 Else - Return ViewState("VacCveSupervisor").ToString.ToEntero + Return ViewState("VacCveSupervisor").ToString().ToEntero End If End Get Set(value As Integer) @@ -524,7 +524,7 @@ Partial Class RH_Personal If ViewState("CvePermiso") Is Nothing Then Return -1 Else - Return ViewState("CvePermiso").ToString.ToEntero + Return ViewState("CvePermiso").ToString().ToEntero End If End Get Set(value As Integer) @@ -806,7 +806,7 @@ Partial Class RH_Personal If Request("CvePersonal") IsNot Nothing AndAlso IsNumeric(Request("CvePersonal")) AndAlso Request("CvePersonal").ToEntero > 0 Then ViewState("CvePersonal") = Request("CvePersonal") - 'CvePersonal = ViewState("CvePersonal").ToString.ToEntero + 'CvePersonal = ViewState("CvePersonal").ToString().ToEntero CargaDatos() CargaDocumentacionFirmaDecontratos() 'LnkAddLicencias.Visible = True @@ -928,9 +928,9 @@ Partial Class RH_Personal If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then Dim DTSub As DataTable = GlobalDTSubProyectos(-1, Request("CveSubProyecto").ToEntero) 'Cambiame If DTSub.Rows.Count > 0 Then - Dim DTProy As DataTable = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("CveProyecto = " & DTSub.Rows(0)("CveProyecto").ToString) + Dim DTProy As DataTable = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("CveProyecto = " & DTSub.Rows(0)("CveProyecto").ToString()) If DTProy.Rows.Count > 0 Then - DdlProyectoAsistenciaC.SelectedValue = DTProy.Rows(0)("CveProyecto").ToString + DdlProyectoAsistenciaC.SelectedValue = DTProy.Rows(0)("CveProyecto").ToString() DdlProyectoAsistenciaA_SelectedIndexChanged(Me, New EventArgs) DdlSubProyectoAsistenciasC.SelectedValue = Request("CveSubProyecto") End If @@ -1149,7 +1149,7 @@ Partial Class RH_Personal ' If UsuarioActual.CveSucursal = -1 Then ' DdlSucursal.Items.Insert(0, New ListItem("Seleccione", "-1")) ' Else - ' DdlSucursal.SelectedValue = UsuarioActual.CveSucursal.ToString + ' DdlSucursal.SelectedValue = UsuarioActual.CveSucursal.ToString() ' End If 'End Sub @@ -1311,6 +1311,9 @@ Partial Class RH_Personal If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then If ObjPersonal.DtResultados.Rows.Count > 0 Then + ChkEstemporal.Checked = ObjPersonal.DtResultados.Rows(0)("esTemporal").ToString() = "1" + CHKRFCValidado.Checked = ObjPersonal.DtResultados.Rows(0)("RFCValidado").ToString() = "1" + 'Carga Datos Personales LtlPersonal.Text = ObjPersonal.NombreCompleto NombreCompleto = ObjPersonal.NombreCompleto @@ -1320,9 +1323,9 @@ Partial Class RH_Personal TxtNombres.Text = ObjPersonal.Nombres TxtCorreo.Text = ObjPersonal.Correo TxtCodigo.Text = ObjPersonal.Codigo - DdlEscolaridad.SelectedValue = ObjPersonal.CveEscolaridad.ToString - DdlEstadoCivil.SelectedValueExist(ObjPersonal.CveEstadoCivil.ToString) - DdlGenero.SelectedValue = ObjPersonal.CveGenero.ToString + DdlEscolaridad.SelectedValue = ObjPersonal.CveEscolaridad.ToString() + DdlEstadoCivil.SelectedValueExist(ObjPersonal.CveEstadoCivil.ToString()) + DdlGenero.SelectedValue = ObjPersonal.CveGenero.ToString() TxtFechaNacimiento.Text = ObjPersonal.FechaNacimiento.ToShortDateString TxtRFC.Text = ObjPersonal.RFC TxtCURP.Text = ObjPersonal.CURP @@ -1332,14 +1335,14 @@ Partial Class RH_Personal TxtNumExt.Text = ObjPersonal.NumExt TxtNumInt.Text = ObjPersonal.NumInt TxtColonia.Text = ObjPersonal.Colonia - DdlEstados.SelectedValueExist(ObjPersonal.CveEstado.ToString) + DdlEstados.SelectedValueExist(ObjPersonal.CveEstado.ToString()) TxtCP.Text = ObjPersonal.CP TxtColonia.Text = ObjPersonal.Colonia TxtCiudad.Text = ObjPersonal.Ciudad TxtEstado.Text = ObjPersonal.Estado TxtTelefono.Text = ObjPersonal.Telefono TxtCelular.Text = ObjPersonal.Celular - TxtLugarNacimiento.Text = ObjPersonal.LugarNacimiento.ToString + TxtLugarNacimiento.Text = ObjPersonal.LugarNacimiento.ToString() TxtNombrePadre.Text = ObjPersonal.NombrePadre TxtNombreMadre.Text = ObjPersonal.NombreMadre Session("FileUpload") = ObjPersonal.URL @@ -1389,70 +1392,74 @@ Partial Class RH_Personal 'Carga RH TxtFechaInicioContrato.Text = ObjPersonal.FechaInicioContrato.ToShortDateString TxtFechaFinContrato.Text = If(ObjPersonal.FechaFinContrato.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaFinContrato.ToShortDateString) - DdlTipoContrato.SelectedValue = ObjPersonal.CveTipoContrato.ToString - DdlTurno.SelectedValue = ObjPersonal.CveTurno.ToString - DdlJornada.SelectedValue = ObjPersonal.CveJornada.ToString - DdlDepartamento.SelectedValue = ObjPersonal.CveDepartamento.ToString + DdlTipoContrato.SelectedValue = ObjPersonal.CveTipoContrato.ToString() + DdlTurno.SelectedValue = ObjPersonal.CveTurno.ToString() + DdlJornada.SelectedValue = ObjPersonal.CveJornada.ToString() + DdlDepartamento.SelectedValue = ObjPersonal.CveDepartamento.ToString() DdlSubproyectoZona.SelectedValueExist(ObjPersonal.CveSubproyectoZona) DDLUsuarioNomina.SelectedValueExist(ObjPersonal.CveUsuarioNomina) - 'DdlViaticos.SelectedValue = ObjPersonal.IdCtaContViaticos.ToString + 'DdlViaticos.SelectedValue = ObjPersonal.IdCtaContViaticos.ToString() 'For i As Integer = DdlDepartamento.Items.Count - 1 To 1 Step -1 - ' If DdlDepartamento.Items(i).Value.Contains(ObjPersonal.CveDepartamento.ToString) Then + ' If DdlDepartamento.Items(i).Value.Contains(ObjPersonal.CveDepartamento.ToString()) Then ' DdlDepartamento.Items(i).Selected = True ' Exit For ' End If 'Next - DdlPuesto.SelectedValue = ObjPersonal.CvePuesto.ToString - DdlRuta.SelectedValue = ObjPersonal.CveRuta.ToString - DdlMotivoBaja.SelectedValue = ObjPersonal.CveMotivoBaja.ToString + DdlPuesto.SelectedValue = ObjPersonal.CvePuesto.ToString() + DdlRuta.SelectedValue = ObjPersonal.CveRuta.ToString() + DdlMotivoBaja.SelectedValue = ObjPersonal.CveMotivoBaja.ToString() TxtFechaBaja.Text = If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString) If ObjPersonal.DtResultados IsNot Nothing AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then - TxtFechaActivo.Text = If(ObjPersonal.DtResultados.Rows(0)("FechaActivo").ToString.Length > 0, ObjPersonal.DtResultados.Rows(0)("FechaActivo").ToString.ToDate.ToString("dd/MM/yyyy"), ObjPersonal.DtResultados.Rows(0)("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")) - TxtFechaReingreso.Text = If(ObjPersonal.DtResultados.Rows(0)("FechaReingreso").ToString.Length > 0, ObjPersonal.DtResultados.Rows(0)("FechaReingreso").ToString.ToDate.ToString("dd/MM/yyyy"), "") + TxtFechaActivo.Text = If(ObjPersonal.DtResultados.Rows(0)("FechaActivo").ToString().Length > 0, ObjPersonal.DtResultados.Rows(0)("FechaActivo").ToString().ToDate.ToString("dd/MM/yyyy"), ObjPersonal.DtResultados.Rows(0)("FechaIng").ToString().ToDate.ToString("dd/MM/yyyy")) + TxtFechaReingreso.Text = If(ObjPersonal.DtResultados.Rows(0)("FechaReingreso").ToString().Length > 0, ObjPersonal.DtResultados.Rows(0)("FechaReingreso").ToString().ToDate.ToString("dd/MM/yyyy"), "") End If - DdlEstatusPersonal.SelectedValue = ObjPersonal.CveEstatusPersonal.ToString + DdlEstatusPersonal.SelectedValue = ObjPersonal.CveEstatusPersonal.ToString() MostrarOcultarFechasEstatus() CvePersonalEstatusInicial = ObjPersonal.CveEstatusPersonal - ViewState("CveEstatusOriginal") = ObjPersonal.CveEstatusPersonal.ToString + ViewState("CveEstatusOriginal") = ObjPersonal.CveEstatusPersonal.ToString() 'Asignación If ObjPersonal.CveCliente <> -1 Then - DdlClienteAsignado.Items.Insert(1, New ListItem(ObjPersonal.Cliente, ObjPersonal.CveCliente.ToString)) - DdlClienteAsignado.SelectedValue = ObjPersonal.CveCliente.ToString + DdlClienteAsignado.Items.Insert(1, New ListItem(ObjPersonal.Cliente, ObjPersonal.CveCliente.ToString())) + DdlClienteAsignado.SelectedValue = ObjPersonal.CveCliente.ToString() Else - DdlClienteAsignado.SelectedValue = ObjPersonal.CveCliente.ToString + DdlClienteAsignado.SelectedValue = ObjPersonal.CveCliente.ToString() End If - DdlProyectoAsignado.SelectedValue = ObjPersonal.CveProyecto.ToString + DdlProyectoAsignado.SelectedValue = ObjPersonal.CveProyecto.ToString() If ObjPersonal.CveProyecto <> -1 Then DdlProyectoAsignado_SelectedIndexChanged(Me, New System.EventArgs()) - DdlSubProyectoAsignado.SelectedValue = ObjPersonal.CveSubProyecto.ToString - DdlSupervisor.SelectedValue = ObjPersonal.CveSupervisor.ToString + DdlSubProyectoAsignado.SelectedValue = ObjPersonal.CveSubProyecto.ToString() + DdlSupervisor.SelectedValue = ObjPersonal.CveSupervisor.ToString() 'Carga Nómina TxtFechaIngreso.Text = ObjPersonal.FechaIngreso.ToShortDateString - DdlTipoPeriodo.SelectedValue = ObjPersonal.CveTipoPeriodo.ToString + DdlTipoPeriodo.SelectedValue = ObjPersonal.CveTipoPeriodo.ToString() TxtNumeroSS.Text = ObjPersonal.NumeroSS ChkSeInscribioSS.Checked = ObjPersonal.SeInscribioSS - TxtSalarioDiarioPago.Text = ObjPersonal.SalarioDiarioPago.ToString - TxtSalarioDiario.Text = ObjPersonal.SalarioDiario.ToString - TxtSDI.Text = ObjPersonal.SDI.ToString - TxtSalarioCotizado.Text = ObjPersonal.SalarioDiarioSS.ToString - TxtBono.Text = ObjPersonal.Bono.ToString - TxtNumDiasAguinaldo.Text = ObjPersonal.NumDiasAguinaldo.ToString - TxtPorPrimaVacacional.Text = ObjPersonal.PorPrimaVacacional.ToString - DdlMetodoPago.SelectedValue = ObjPersonal.CveMetodoPago.ToString + TxtSalarioDiarioPago.Text = ObjPersonal.SalarioDiarioPago.ToString() + TxtSalarioDiario.Text = ObjPersonal.SalarioDiario.ToString() + TxtSDI.Text = ObjPersonal.SDI.ToString() + TxtSalarioCotizado.Text = ObjPersonal.SalarioDiarioSS.ToString() + TxtFISalariodiarioImss.Text = ObjPersonal.SalarioDiarioSS.ToString() + TxtBono.Text = ObjPersonal.Bono.ToString() + TxtNumDiasAguinaldo.Text = ObjPersonal.NumDiasAguinaldo.ToString() + TxtFIAguinaldo.Text = ObjPersonal.NumDiasAguinaldo.ToString() + TxtPorPrimaVacacional.Text = ObjPersonal.PorPrimaVacacional.ToString() + TxtFIPrimaVacacional.Text = ObjPersonal.PorPrimaVacacional.ToString() + + DdlMetodoPago.SelectedValue = ObjPersonal.CveMetodoPago.ToString() TxtBancoNumCuenta.Text = ObjPersonal.BancoNumCuenta TxtCLABE.Text = ObjPersonal.CLABE - DdlSupervisorOrganigrama.SelectedValueExist(If(ObjPersonal.CvePersonalPadre = ObjPersonal.CvePersonal, "0", If(ObjPersonal.CvePersonalPadre.ToString = "0", "-1", ObjPersonal.CvePersonalPadre.ToString))) + DdlSupervisorOrganigrama.SelectedValueExist(If(ObjPersonal.CvePersonalPadre = ObjPersonal.CvePersonal, "0", If(ObjPersonal.CvePersonalPadre.ToString() = "0", "-1", ObjPersonal.CvePersonalPadre.ToString()))) - DdlRegimenContratacion.SelectedValue = ObjPersonal.CveSATRegimenContratacion.ToString - DdlBanco.SelectedValue = If(ObjPersonal.CveSATBanco = 0, "-1", ObjPersonal.CveSATBanco.ToString) - DdlRiesgoPuesto.SelectedValue = ObjPersonal.CveSATRiesgoPuesto.ToString + DdlRegimenContratacion.SelectedValue = ObjPersonal.CveSATRegimenContratacion.ToString() + DdlBanco.SelectedValue = If(ObjPersonal.CveSATBanco = 0, "-1", ObjPersonal.CveSATBanco.ToString()) + DdlRiesgoPuesto.SelectedValue = ObjPersonal.CveSATRiesgoPuesto.ToString() 'Carga Incidencias BtnConsultarAsistencia_Click(Me, New System.EventArgs) @@ -1487,8 +1494,8 @@ Partial Class RH_Personal DdlViaticos.Attributes.Add("onclick", "CargaCuentas(1);") DdlPrestamos.Attributes.Add("onclick", "CargaCuentas(2);") - If ObjPersonal.IdCtaContPersonal > 0 Then DdlViaticos.Items.Add(New ListItem(ObjPersonal.CtaContPersonal, ObjPersonal.IdCtaContPersonal.ToString)) : DdlViaticos.SelectedValue = ObjPersonal.IdCtaContPersonal.ToString - If ObjPersonal.IdCtaContPrestamos > 0 Then DdlPrestamos.Items.Add(New ListItem(ObjPersonal.CtaContPrestamos, ObjPersonal.IdCtaContPrestamos.ToString)) : DdlPrestamos.SelectedValue = ObjPersonal.IdCtaContPrestamos.ToString + If ObjPersonal.IdCtaContPersonal > 0 Then DdlViaticos.Items.Add(New ListItem(ObjPersonal.CtaContPersonal, ObjPersonal.IdCtaContPersonal.ToString())) : DdlViaticos.SelectedValue = ObjPersonal.IdCtaContPersonal.ToString() + If ObjPersonal.IdCtaContPrestamos > 0 Then DdlPrestamos.Items.Add(New ListItem(ObjPersonal.CtaContPrestamos, ObjPersonal.IdCtaContPrestamos.ToString())) : DdlPrestamos.SelectedValue = ObjPersonal.IdCtaContPrestamos.ToString() End If @@ -1557,9 +1564,9 @@ Partial Class RH_Personal Dim ObjCuentasDeposito As New ClsGenerales(ObjPersonal.IniciaTransacSQL()) Dim ObjAF As New ClsAF(ObjPersonal.IniciaTransacSQL()) - Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\RH\" & ViewState("Archivo").ToString) + Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\RH\" & ViewState("Archivo").ToString()) Dim URL As String = CvePersonal & Extension - Dim Ruta = String.Format("{0}Empresas\{1}\Temp\RH\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, ViewState("Archivo").ToString) + Dim Ruta = String.Format("{0}Empresas\{1}\Temp\RH\{2}", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa, ViewState("Archivo").ToString()) Dim Archivo As New System.IO.FileInfo(Ruta) @@ -1628,7 +1635,7 @@ Partial Class RH_Personal If TempDTCuentasBancos.Rows.Count > 0 Then For Each row As DataRow In TempDTCuentasBancos.Rows - If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, "", UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=row("BBVAAlias").ToString) Then + If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString(), row("Plaza").ToString(), row("Sucursal").ToString(), row("Cuenta").ToString(), row("CLABE").ToString(), row("CIE").ToString(), row("SWIFT").ToString(), row("Referencia").ToString(), "", UsuarioActual.CveUsuario, row("CveMoneda").ToString().ToEntero, CvePersonal:=CvePersonal, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=row("BBVAAlias").ToString()) Then TieneError = True Exit For End If @@ -1700,7 +1707,7 @@ Partial Class RH_Personal End If Mensaje = "Los cambios se guardaron correctamente." - 'If ViewState("CveEstatusOriginal").ToString <> DdlEstatusPersonal.SelectedValue Then + 'If ViewState("CveEstatusOriginal").ToString() <> DdlEstatusPersonal.SelectedValue Then ' 'Manda Mail con bajas 'End If @@ -1815,12 +1822,12 @@ Partial Class RH_Personal ' 'ReemplazaTexto(objSelection, "{CP}", TxtCP.Text.Trim) ' 'ReemplazaTexto(objSelection, "{CIUDAD}", TxtCiudad.Text.Trim) ' 'ReemplazaTexto(objSelection, "{ESTADO}", TxtEstado.Text.Trim) - ' 'ReemplazaTexto(objSelection, "{DIA_INICIA_CONTRATO}", TxtFechaInicioContrato.Text.ToDate.Day.ToString) + ' 'ReemplazaTexto(objSelection, "{DIA_INICIA_CONTRATO}", TxtFechaInicioContrato.Text.ToDate.Day.ToString()) ' 'ReemplazaTexto(objSelection, "{MES_INICIA_CONTRATO}", MonthName(TxtFechaInicioContrato.Text.ToDate.Month).ToUpper) - ' 'ReemplazaTexto(objSelection, "{ANIO_INICIA_CONTRATO}", TxtFechaInicioContrato.Text.ToDate.Year.ToString) - ' 'ReemplazaTexto(objSelection, "{DIA_FIN_CONTRATO}", TxtFechaFinContrato.Text.ToDate.Day.ToString) + ' 'ReemplazaTexto(objSelection, "{ANIO_INICIA_CONTRATO}", TxtFechaInicioContrato.Text.ToDate.Year.ToString()) + ' 'ReemplazaTexto(objSelection, "{DIA_FIN_CONTRATO}", TxtFechaFinContrato.Text.ToDate.Day.ToString()) ' 'ReemplazaTexto(objSelection, "{MES_FIN_CONTRATO}", MonthName(TxtFechaFinContrato.Text.ToDate.Month).ToUpper) - ' 'ReemplazaTexto(objSelection, "{ANIO_FIN_CONTRATO}", TxtFechaFinContrato.Text.ToDate.Year.ToString) + ' 'ReemplazaTexto(objSelection, "{ANIO_FIN_CONTRATO}", TxtFechaFinContrato.Text.ToDate.Year.ToString()) ' 'objSelection.InsertBreak(Type:=wdPageBreak) ' 'GuardaLog("Termina de reemplazo de variables") @@ -1831,7 +1838,7 @@ Partial Class RH_Personal ' End If ' ArchivoPath = ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & UsuarioActual.CveUsuario & ".doc" - ' oWordDoc.SaveAs(ArchivoPath.ToString) + ' oWordDoc.SaveAs(ArchivoPath.ToString()) ' oWordDoc.Close() ' Else ' Alert("No se pudo generar el archivo", TipoMensaje.MsgError) @@ -2006,7 +2013,7 @@ Partial Class RH_Personal DdlTipoBuzonCalidad.SelectedValueExist(GvRow.DataKey("CveTipoBuzon")) ChkSeAtendio.Visible = True - ChkSeAtendio.Checked = If(GvRow.DataKey("SeAtendioChk").ToString.ToEntero = 1, True, False) + ChkSeAtendio.Checked = If(GvRow.DataKey("SeAtendioChk").ToString().ToEntero = 1, True, False) TxtFechaBuzonCalidad.Text = GvRow.DataKey("FechaQueja").ToDate.ToString("dd/MM/yyyy") TxtBuzonDescriptcion.Text = GvRow.DataKey("Descripcion") @@ -2042,7 +2049,7 @@ Partial Class RH_Personal If ViewState("CvePersonalBuzon") Is Nothing Then Return -1 Else - Return ViewState("CvePersonalBuzon").ToString.ToEntero + Return ViewState("CvePersonalBuzon").ToString().ToEntero End If End Get Set(value As Integer) @@ -2090,7 +2097,7 @@ Partial Class RH_Personal Cuerpo.AppendLine($"
    ") - Correo.SendMail(EmpresaNotificaciones, TxtMailBuzonCalidad.Text.Trim, Asunto, Body:=Cuerpo.ToString) + Correo.SendMail(EmpresaNotificaciones, TxtMailBuzonCalidad.Text.Trim, Asunto, Body:=Cuerpo.ToString()) End If @@ -2209,7 +2216,7 @@ Partial Class RH_Personal ' Dim Observaciones As String = DirectCast(GvBuzonCalidad.Rows(e.RowIndex).FindControl("TxtObs"), TextBox).Text.Trim ' Dim SeAtendio As Boolean = GvBuzonCalidad.Rows(e.RowIndex).FCCheckBox("ChkEstado").Checked - ' Dim CveBuzonCalidad As Integer = GvBuzonCalidad.DataKeys(e.RowIndex).Value.ToString.ToEntero + ' Dim CveBuzonCalidad As Integer = GvBuzonCalidad.DataKeys(e.RowIndex).Value.ToString().ToEntero ' If ObjBuzonCalidad.UpdateBuzonCalidad(SeAtendio, Observaciones, CveBuzonCalidad, UsuarioActual.CveUsuario) Then ' GvBuzonCalidad.EditIndex = -1 @@ -2660,9 +2667,9 @@ Partial Class RH_Personal e.Row.Cells(3).Width = Unit.Pixel(500) End If - If e.Row.DBCampo("Archivo").ToString <> "" Then + If e.Row.DBCampo("Archivo").ToString() <> "" Then e.Row.FCLinkButton("LinkArchivo").Visible = True - e.Row.FCLinkButton("LinkArchivo").CommandArgument = String.Format("OI\{0}", e.Row.DBCampo("Archivo").ToString) + e.Row.FCLinkButton("LinkArchivo").CommandArgument = String.Format("OI\{0}", e.Row.DBCampo("Archivo").ToString()) ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("LinkArchivo")) 'Registro un evento Postbacktrigger, que recargue toda la pagina para que funcione End If @@ -2684,7 +2691,7 @@ Partial Class RH_Personal If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal) Then If filemove <> "" Then - filemove.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("Empresas\{0}\OI", UsuarioActual.CveEmpresa)) + filemove.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString()), String.Format("Empresas\{0}\OI", UsuarioActual.CveEmpresa)) End If GvEB.DataSource = ObjEventoBitacora.DtResultados @@ -2893,7 +2900,7 @@ Partial Class RH_Personal End If LimpiaCuentasBancarias() - CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString) + CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString()) If CvePersonal > 0 Then CargaGvBitacora() @@ -2927,7 +2934,7 @@ Partial Class RH_Personal End If ObjCuentasBancos.Dispose() - CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString) + CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString()) End Sub #Region "GRIDVIEW - CUENTAS BANCARIAS" @@ -2966,11 +2973,11 @@ Partial Class RH_Personal End Sub Protected Sub GvBancosCuentas_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvBancosCuentas.RowEditing GvBancosCuentas.EditIndex = e.NewEditIndex - CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString) + CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString()) End Sub Protected Sub GvBancosCuentas_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvBancosCuentas.RowCancelingEdit GvBancosCuentas.EditIndex = -1 - CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString) + CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString()) End Sub Protected Sub GvBancosCuentas_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvBancosCuentas.RowUpdating Dim NombreBanco = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNombreBanco").Text.Trim @@ -2981,7 +2988,7 @@ Partial Class RH_Personal Dim NumeroCuenta = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtNumeroCuenta").Text.Trim Dim ConvenioCIE = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtConvenioCIE").Text.Trim Dim Referencia = GvBancosCuentas.Rows(e.RowIndex).FCTextBox("TxtReferencia").Text.Trim - Dim CveMoneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedValue.ToString.ToEntero + Dim CveMoneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedValue.ToString().ToEntero Dim Estatus = GvBancosCuentas.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked Dim Moneda = GvBancosCuentas.Rows(e.RowIndex).FCDropDownList("DdlMoneda").SelectedItem.Text @@ -3037,14 +3044,14 @@ Partial Class RH_Personal End If Dim ObjCuentasBancos As New ClsGenerales If CvePersonal > 0 Then - If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias) Then + If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString().ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda, CveUsuarioModifico:=UsuarioActual.CveUsuario, BBVAAlias:=BBVAAlias) Then DTCuentasBancos.Clear() DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal))) Alert("Cuenta actualizada con exito.", TipoMensaje.MsgInformacion) End If Else - Dim index = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString.ToEntero - 1 + Dim index = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString().ToEntero - 1 Dim Row As DataRow = TempDTCuentasBancos.Rows(index) Row("BancoNombre") = NombreBanco Row("Sucursal") = NumeroSucursal @@ -3061,25 +3068,25 @@ Partial Class RH_Personal ObjCuentasBancos.Dispose() GvBancosCuentas.EditIndex = -1 - CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString) + CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString()) CargaGvBitacora() End Sub Protected Sub GvBancosCuentas_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvBancosCuentas.RowDeleting Dim ObjCuentasBancos As New ClsGenerales If CvePersonal > 0 Then - If ObjCuentasBancos.RemoveCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString.ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + If ObjCuentasBancos.RemoveCuentasDepositos(GvBancosCuentas.DataKeys(e.RowIndex)("CveCuentaDeposito").ToString().ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then DTCuentasBancos.Clear() DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CvePersonal = {0}", CvePersonal))) Alert("Cuenta Bancaria borrada con exito.", TipoMensaje.MsgInformacion) End If Else - Dim index = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString.ToEntero - 1 + Dim index = GvBancosCuentas.Rows(e.RowIndex).DataKey("CveCuentaDeposito").ToString().ToEntero - 1 TempDTCuentasBancos.Rows.RemoveAt(index) End If - CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString) + CargaGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString()) ObjCuentasBancos.Dispose() CargaGvBitacora() End Sub @@ -3096,20 +3103,20 @@ Partial Class RH_Personal Const OrdenInicial As String = "" Dim Arg(2) As String - Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c) + Arg = CType(sender, LinkButton).CommandArgument().ToString().Split(";"c) Campo = Arg(0) gvi = Arg(1).ToEntero Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal) Campo = Campo.Substring(0, Campo.Length - 1) - If ViewState(String.Format("O{0}", Campo, gvi)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo, gvi)).ToString = String.Format("{0} DESC", Campo) Then + If ViewState(String.Format("O{0}", Campo, gvi)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo, gvi)).ToString() = String.Format("{0} DESC", Campo) Then ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo) Literal.Text = String.Format("") Else ViewState(String.Format("O{0}", Campo, gvi)) = String.Format("{0} DESC", Campo) Literal.Text = String.Format("") End If - Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo, gvi)).ToString + Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo, gvi)).ToString() ViewState("Orden") = Orden CargaGrid(Orden, gvi) End Sub @@ -3214,17 +3221,17 @@ Partial Class RH_Personal params.Add(New ReportParameter("FechaFin", If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString))) params.Add(New ReportParameter("CuentaContable", DdlViaticos.SelectedItem.Text)) params.Add(New ReportParameter("FechaIngreso", ObjPersonal.FechaIngreso.ToShortDateString)) - params.Add(New ReportParameter("TipoPeriodo", ObjPersonal.CveTipoPeriodo.ToString)) + params.Add(New ReportParameter("TipoPeriodo", ObjPersonal.CveTipoPeriodo.ToString())) params.Add(New ReportParameter("RegimenContratacion", ObjPersonal.RegimenContratacion)) params.Add(New ReportParameter("RiesgoPuesto", DdlRiesgoPuesto.SelectedItem.Text)) params.Add(New ReportParameter("NoSeguroSocial", ObjPersonal.NumeroSS)) params.Add(New ReportParameter("InscribioSeguro", If(ObjPersonal.SeInscribioSS, "Si", "No"))) - params.Add(New ReportParameter("SDD", ObjPersonal.SalarioDiario.ToString)) - params.Add(New ReportParameter("SDI", ObjPersonal.SDI.ToString)) - params.Add(New ReportParameter("SalarioIMSS", ObjPersonal.SalarioDiarioSS.ToString)) - params.Add(New ReportParameter("Bono", ObjPersonal.Bono.ToString)) - params.Add(New ReportParameter("DiasAguinaldo", ObjPersonal.NumDiasAguinaldo.ToString)) - params.Add(New ReportParameter("PrimaVacacional", ObjPersonal.PorPrimaVacacional.ToString)) + params.Add(New ReportParameter("SDD", ObjPersonal.SalarioDiario.ToString())) + params.Add(New ReportParameter("SDI", ObjPersonal.SDI.ToString())) + params.Add(New ReportParameter("SalarioIMSS", ObjPersonal.SalarioDiarioSS.ToString())) + params.Add(New ReportParameter("Bono", ObjPersonal.Bono.ToString())) + params.Add(New ReportParameter("DiasAguinaldo", ObjPersonal.NumDiasAguinaldo.ToString())) + params.Add(New ReportParameter("PrimaVacacional", ObjPersonal.PorPrimaVacacional.ToString())) params.Add(New ReportParameter("MetodoPago", If(DdlMetodoPago.SelectedValue = "-1", "", DdlMetodoPago.SelectedItem.Text))) params.Add(New ReportParameter("Banco", If(DdlBanco.SelectedValue = "-1", "", DdlBanco.SelectedItem.Text))) params.Add(New ReportParameter("NoCuenta", ObjPersonal.BancoNumCuenta)) @@ -3308,17 +3315,17 @@ Partial Class RH_Personal params.Add(New ReportParameter("FechaFin", If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString))) params.Add(New ReportParameter("CuentaContable", DdlViaticos.SelectedItem.Text)) params.Add(New ReportParameter("FechaIngreso", ObjPersonal.FechaIngreso.ToShortDateString)) - params.Add(New ReportParameter("TipoPeriodo", ObjPersonal.CveTipoPeriodo.ToString)) + params.Add(New ReportParameter("TipoPeriodo", ObjPersonal.CveTipoPeriodo.ToString())) params.Add(New ReportParameter("RegimenContratacion", ObjPersonal.RegimenContratacion)) params.Add(New ReportParameter("RiesgoPuesto", DdlRiesgoPuesto.SelectedItem.Text)) params.Add(New ReportParameter("NoSeguroSocial", ObjPersonal.NumeroSS)) params.Add(New ReportParameter("InscribioSeguro", If(ObjPersonal.SeInscribioSS, "Si", "No"))) - params.Add(New ReportParameter("SDD", ObjPersonal.SalarioDiario.ToString)) - params.Add(New ReportParameter("SDI", ObjPersonal.SDI.ToString)) - params.Add(New ReportParameter("SalarioIMSS", ObjPersonal.SalarioDiarioSS.ToString)) - params.Add(New ReportParameter("Bono", ObjPersonal.Bono.ToString)) - params.Add(New ReportParameter("DiasAguinaldo", ObjPersonal.NumDiasAguinaldo.ToString)) - params.Add(New ReportParameter("PrimaVacacional", ObjPersonal.PorPrimaVacacional.ToString)) + params.Add(New ReportParameter("SDD", ObjPersonal.SalarioDiario.ToString())) + params.Add(New ReportParameter("SDI", ObjPersonal.SDI.ToString())) + params.Add(New ReportParameter("SalarioIMSS", ObjPersonal.SalarioDiarioSS.ToString())) + params.Add(New ReportParameter("Bono", ObjPersonal.Bono.ToString())) + params.Add(New ReportParameter("DiasAguinaldo", ObjPersonal.NumDiasAguinaldo.ToString())) + params.Add(New ReportParameter("PrimaVacacional", ObjPersonal.PorPrimaVacacional.ToString())) params.Add(New ReportParameter("MetodoPago", If(DdlMetodoPago.SelectedValue = "-1", "", DdlMetodoPago.SelectedItem.Text))) params.Add(New ReportParameter("Banco", If(DdlBanco.SelectedValue = "-1", "", DdlBanco.SelectedItem.Text))) params.Add(New ReportParameter("NoCuenta", ObjPersonal.BancoNumCuenta)) @@ -3330,7 +3337,7 @@ Partial Class RH_Personal edad = edad - 1 End If - params.Add(New ReportParameter("Edad", edad.ToString)) + params.Add(New ReportParameter("Edad", edad.ToString())) @@ -3399,8 +3406,8 @@ Partial Class RH_Personal Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Empleado", LtlPersonal.Text.ToString)) - params.Add(New ReportParameter("Saldo", LblSaldoGxC.Text.ToString)) + params.Add(New ReportParameter("Empleado", LtlPersonal.Text.ToString())) + params.Add(New ReportParameter("Saldo", LblSaldoGxC.Text.ToString())) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) @@ -3422,21 +3429,21 @@ Partial Class RH_Personal If DTGastosPorCheque.Rows.Count > 0 Then For Each Row As DataRow In DTGastosPorCheque.Rows - Dim FolioPago As String = Row("FolioPago").ToString + Dim FolioPago As String = Row("FolioPago").ToString() Row("FolioPago") = "" - If Row("CveCompra").ToString = "" And Row("CveIE").ToString <> "" Then + If Row("CveCompra").ToString() = "" And Row("CveIE").ToString() <> "" Then Row("FechaVencimiento") = Row("FechaDocumento") Row("FolioPago") = FolioPago End If - If Row("FolioPago").ToString <> "" Then + If Row("FolioPago").ToString() <> "" Then Row("SerieFolio") = "" End If Next Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Empleado", LtlPersonal.Text.ToString)) + params.Add(New ReportParameter("Empleado", LtlPersonal.Text.ToString())) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) @@ -3494,10 +3501,10 @@ Partial Class RH_Personal Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim chkEstatus As CheckBox - CveDocumentacionElectronica = GvRow.DataKey("CveDocumentacionElectronica").ToString.ToEntero - CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToString.ToEntero + CveDocumentacionElectronica = GvRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero + CveDocumentacion = GvRow.DataKey("CveDocumentacion").ToString().ToEntero Documentacion = GvRow.DataKey("Documentacion") - AdjuntoDocumentacion = GvRow.DataKey("Adjunto").ToString + AdjuntoDocumentacion = GvRow.DataKey("Adjunto").ToString() chkEstatus = GvRow.FCCheckBox("chkEstatus") @@ -3522,24 +3529,24 @@ Partial Class RH_Personal For Each dRow As GridViewRow In GvDocumentosFirma.Rows - Dim _CveDocumentacion As Integer = dRow.DataKey("CveDocumentacion").ToString.ToEntero + Dim _CveDocumentacion As Integer = dRow.DataKey("CveDocumentacion").ToString().ToEntero Dim _Adjunto As String = dRow.DataKey("Adjunto") 'Dim _Documentacion As String = dRow.DataKey("Documentacion") - Dim _CveDocumentacionElectronica As Integer = dRow.DataKey("CveDocumentacionElectronica").ToString.ToEntero + Dim _CveDocumentacionElectronica As Integer = dRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero Dim _txtObservaciones As TextBox = dRow.FCTextBox("TxtObservaciones") Dim _TxtFechaLimite As TextBox = dRow.FCTextBox("TxtFechaLimite") Dim _TxtFechaVigencia As TextBox = dRow.FCTextBox("TxtFechaVigencia") Dim chkEstatus As CheckBox = dRow.FCCheckBox("chkEstatus") Dim _estatus As Integer - _estatus = If(dRow.DataKey("Estatus").ToString.ToUpper = "TRUE", 1, 0) + _estatus = If(dRow.DataKey("Estatus").ToString().ToUpper = "TRUE", 1, 0) Dim _FechaVigencia As Date Dim _FechaLimite As Date - Dim DiasLimite As Integer = dRow.DataKey("DiasLimite").ToString.ToEntero - Dim AplicaDiasLimite As Boolean = If(dRow.DataKey("AplicaDiasLimite").ToString = "1", True, False) - Dim AplicaFechaVencimiento As Boolean = If(dRow.DataKey("AplicaFechaVencimiento").ToString = "1", True, False) + Dim DiasLimite As Integer = dRow.DataKey("DiasLimite").ToString().ToEntero + Dim AplicaDiasLimite As Boolean = If(dRow.DataKey("AplicaDiasLimite").ToString() = "1", True, False) + Dim AplicaFechaVencimiento As Boolean = If(dRow.DataKey("AplicaFechaVencimiento").ToString() = "1", True, False) If _TxtFechaVigencia.Text.Length = 10 Then _FechaVigencia = _TxtFechaVigencia.Text.ToDate @@ -3655,9 +3662,9 @@ Partial Class RH_Personal Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim activo As Boolean = False - Dim _CveDocumentacionElectronica As Integer = GvRow.DataKey("CveDocumentacionElectronica").ToString.ToEntero - Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString.ToEntero - Dim _Adjunto As String = GvRow.DataKey("Adjunto").ToString + Dim _CveDocumentacionElectronica As Integer = GvRow.DataKey("CveDocumentacionElectronica").ToString().ToEntero + Dim _CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString().ToEntero + Dim _Adjunto As String = GvRow.DataKey("Adjunto").ToString() Dim _fechaLimite As Date = GvRow.FCTextBox("TxtFechaLimite").Text.ToDate Dim obserbaciones As String = DirectCast(GvRow.FindControl("TxtObservaciones"), TextBox).Text @@ -3691,26 +3698,26 @@ Partial Class RH_Personal If e.Row.RowType = DataControlRowType.DataRow Then - Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString + Dim Adjunto As String = e.Row.DBCampo("Adjunto").ToString() Dim ImgDownLoadFormato As LinkButton = e.Row.FCLinkButton("ImgDownLoadFormato") Dim ImgDownLoad As Literal = e.Row.FCLiteral("ImgDownLoad") Dim ImgRequired As Literal = e.Row.FCLiteral("ImgRequired") Dim txtFechaLimite As TextBox = e.Row.FCTextBox("TxtFechaLimite") Dim requerido As Boolean = If(e.Row.DBCampo("Requerido").ToUpper = "TRUE", True, False) Dim chkEstatus As CheckBox = e.Row.FCCheckBox("chkEstatus") - Dim documentacionFormato As String = e.Row.DBCampo("DocumentacionFormato").ToString - Dim Documentacion As String = e.Row.DBCampo("Documentacion").ToString - Dim _CveDocumentacion As Integer = e.Row.DBCampo("CveDocumentacion").ToString.ToEntero - Dim separado As Char() = ".".ToString.ToCharArray + Dim documentacionFormato As String = e.Row.DBCampo("DocumentacionFormato").ToString() + Dim Documentacion As String = e.Row.DBCampo("Documentacion").ToString() + Dim _CveDocumentacion As Integer = e.Row.DBCampo("CveDocumentacion").ToString().ToEntero + Dim separado As Char() = ".".ToString().ToCharArray Dim array() As String = Adjunto.Split(separado) Dim extencion As String = "" Dim existeAdjunto As Boolean = False Dim TxtFechaVigencia As TextBox = e.Row.FCTextBox("TxtFechaVigencia") ' FechaVigencia - Dim DiasLimite As Integer = e.Row.DataKey("DiasLimite").ToString.ToEntero - Dim AplicaDiasLimite As Boolean = If(e.Row.DataKey("AplicaDiasLimite").ToString = "1", True, False) - Dim AplicaFechaVencimiento As Boolean = If(e.Row.DataKey("AplicaFechaVencimiento").ToString = "1", True, False) + Dim DiasLimite As Integer = e.Row.DataKey("DiasLimite").ToString().ToEntero + Dim AplicaDiasLimite As Boolean = If(e.Row.DataKey("AplicaDiasLimite").ToString() = "1", True, False) + Dim AplicaFechaVencimiento As Boolean = If(e.Row.DataKey("AplicaFechaVencimiento").ToString() = "1", True, False) txtFechaLimite.Visible = If(AplicaDiasLimite, True, False) TxtFechaVigencia.Visible = If(AplicaFechaVencimiento, True, False) @@ -3723,7 +3730,7 @@ Partial Class RH_Personal extencion = array(array.Length - 1) End If - If e.Row.DBCampo("Estatus").ToString.ToEntero = 1 Then + If e.Row.DBCampo("Estatus").ToString().ToEntero = 1 Then chkEstatus.Checked = True Else chkEstatus.Checked = False @@ -3736,7 +3743,7 @@ Partial Class RH_Personal ImgDownLoadFormato.Visible = True End If - txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString.ToDate.ToString("dd/MM/yyyy") + txtFechaLimite.Text = e.Row.DBCampo("FechaLimite").ToString().ToDate.ToString("dd/MM/yyyy") If Adjunto.Trim.Length > 0 Then @@ -3771,7 +3778,7 @@ Partial Class RH_Personal Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString.ToEntero + Dim CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToString().ToEntero Dim DocumentacionFormato As String = CveDocumentacion & "_" & GvRow.DataKey("DocumentacionFormato") DescarFormato(DocumentacionFormato) @@ -3794,7 +3801,7 @@ Partial Class RH_Personal Dim objDoc As New clsGemBoxDocument(pathDesti) Dim objRH As New ClsRH - Dim FechaActual As String = Now.Day.ToString("0#") & " de " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString & " del " & Now.Year.ToString() + Dim FechaActual As String = Now.Day.ToString("0#") & " de " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & Now.Year.ToString() objDoc.SustituirTags(objRH.GetDatosTagsDocumentos(CvePersonal, UsuarioActual.CveEmpresa)) @@ -3826,20 +3833,20 @@ Partial Class RH_Personal If objRH.PersonalReclutamientoGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then - ListaTagsDocumentost.Add(New TagsDocumentos("{Nombres}", objRH.DtResultados(0)("Nombres").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Nombres}", objRH.DtResultados(0)("Nombres").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{APaterno}", objRH.DtResultados(0)("APaterno").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{APaterno}", objRH.DtResultados(0)("APaterno").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{AMaterno}", objRH.DtResultados(0)("AMaterno").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{AMaterno}", objRH.DtResultados(0)("AMaterno").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{RFC}", objRH.DtResultados(0)("RFC").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{RFC}", objRH.DtResultados(0)("RFC").ToString())) @@ -3848,105 +3855,105 @@ Partial Class RH_Personal - ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", objRH.DtResultados(0)("Estatura").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", objRH.DtResultados(0)("Estatura").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", objRH.DtResultados(0)("Peso").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", objRH.DtResultados(0)("Peso").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", objRH.DtResultados(0)("LugarNacimiento").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", objRH.DtResultados(0)("LugarNacimiento").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", objRH.DtResultados(0)("Edad").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", objRH.DtResultados(0)("Edad").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", objRH.DtResultados(0)("NombreTelEmergencia").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", objRH.DtResultados(0)("NombreTelEmergencia").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", objRH.DtResultados(0)("TipoSangre").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", objRH.DtResultados(0)("TipoSangre").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{Vivienda}", objRH.DtResultados(0)("Vivienda").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Vivienda}", objRH.DtResultados(0)("Vivienda").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{ViviendaDueno}", objRH.DtResultados(0)("ViviendaDueno").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{ViviendaDueno}", objRH.DtResultados(0)("ViviendaDueno").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{CreditoInfonavit}", objRH.DtResultados(0)("CreditoInfonavit").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{CreditoInfonavit}", objRH.DtResultados(0)("CreditoInfonavit").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{RentaMensual}", objRH.DtResultados(0)("RentaMensual").ToString.ToDecimal.ToString("###,###,###.00"))) + ListaTagsDocumentost.Add(New TagsDocumentos("{RentaMensual}", objRH.DtResultados(0)("RentaMensual").ToString().ToDecimal.ToString("###,###,###.00"))) - ListaTagsDocumentost.Add(New TagsDocumentos("{TransportePublico}", objRH.DtResultados(0)("TransportePublico").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{TransportePublico}", objRH.DtResultados(0)("TransportePublico").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormente}", objRH.DtResultados(0)("TrabajadoAnteriormente").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormente}", objRH.DtResultados(0)("TrabajadoAnteriormente").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormenteObservaciones}", objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormenteObservaciones}", objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{ParientesEmpresa}", objRH.DtResultados(0)("ParientesEmpresa").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{ParientesEmpresa}", objRH.DtResultados(0)("ParientesEmpresa").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelito}", objRH.DtResultados(0)("AcusadoDelito").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelito}", objRH.DtResultados(0)("AcusadoDelito").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", objRH.DtResultados(0)("AcusadoDelitoObservaciones").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", objRH.DtResultados(0)("AcusadoDelitoObservaciones").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", objRH.DtResultados(0)("Calle").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", objRH.DtResultados(0)("Calle").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", objRH.DtResultados(0)("Colonia").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", objRH.DtResultados(0)("Colonia").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", objRH.DtResultados(0)("CP").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", objRH.DtResultados(0)("CP").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", objRH.DtResultados(0)("Telefono").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", objRH.DtResultados(0)("Telefono").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", objRH.DtResultados(0)("Celular").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", objRH.DtResultados(0)("Celular").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", objRH.DtResultados(0)("Correo").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", objRH.DtResultados(0)("Correo").ToString())) 'If Not IsDBNull(objRH.DtResultados(0)("CveSucursal")) Then @@ -3956,45 +3963,45 @@ Partial Class RH_Personal - ListaTagsDocumentost.Add(New TagsDocumentos("{NumeroSS}", objRH.DtResultados(0)("NumeroSS").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{NumeroSS}", objRH.DtResultados(0)("NumeroSS").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{Licencia}", objRH.DtResultados(0)("Licencia").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Licencia}", objRH.DtResultados(0)("Licencia").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{CartillaMilitar}", objRH.DtResultados(0)("CartillaMilitar").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{CartillaMilitar}", objRH.DtResultados(0)("CartillaMilitar").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{CURP}", objRH.DtResultados(0)("CURP").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{CURP}", objRH.DtResultados(0)("CURP").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{AutorizaAntidoping}", objRH.DtResultados(0)("AutorizaAntidoping").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{AutorizaAntidoping}", objRH.DtResultados(0)("AutorizaAntidoping").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{Observaciones}", objRH.DtResultados(0)("Observaciones").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Observaciones}", objRH.DtResultados(0)("Observaciones").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString())) - ListaTagsDocumentost.Add(New TagsDocumentos("{FechaIngreso}", objRH.DtResultados(0)("FechaIngreso").ToString.ToDate.ToShortDateString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{FechaIngreso}", objRH.DtResultados(0)("FechaIngreso").ToString().ToDate.ToShortDateString)) - ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString.ToDate.ToShortDateString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString().ToDate.ToShortDateString)) - ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", objRH.DtResultados(0)("Puesto").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", objRH.DtResultados(0)("Puesto").ToString())) ListaTagsDocumentost.Add(New TagsDocumentos("{CUIP}", "")) ListaTagsDocumentost.Add(New TagsDocumentos("{Denominacion}", "")) - ListaTagsDocumentost.Add(New TagsDocumentos("{FechaNacimiento}", objRH.DtResultados(0)("FechaNacimiento").ToString.ToDate.ToString("dd/MM/yyyy"))) + ListaTagsDocumentost.Add(New TagsDocumentos("{FechaNacimiento}", objRH.DtResultados(0)("FechaNacimiento").ToString().ToDate.ToString("dd/MM/yyyy"))) Dim fechaActual As String = " " & Now.Day & " del mes " & Now.Month & " del año " & Now.Year @@ -4029,117 +4036,117 @@ Partial Class RH_Personal ' If objRH.PersonalReclutamientoGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then ' If Not IsDBNull(objRH.DtResultados(0)("Nombres")) Then - ' ListaTagsDocumentost.Add(New TagsDocumentos("{Nombres}", objRH.DtResultados(0)("Nombres").ToString)) + ' ListaTagsDocumentost.Add(New TagsDocumentos("{Nombres}", objRH.DtResultados(0)("Nombres").ToString())) ' End If ' If Not objRH.DtResultados(0)("APaterno") Is Nothing Then - ' ListaTagsDocumentost.Add(New TagsDocumentos("{APaterno}", objRH.DtResultados(0)("APaterno").ToString)) + ' ListaTagsDocumentost.Add(New TagsDocumentos("{APaterno}", objRH.DtResultados(0)("APaterno").ToString())) ' End If ' If Not objRH.DtResultados(0)("AMaterno") Is Nothing Then - ' ListaTagsDocumentost.Add(New TagsDocumentos("{AMaterno}", objRH.DtResultados(0)("AMaterno").ToString)) + ' ListaTagsDocumentost.Add(New TagsDocumentos("{AMaterno}", objRH.DtResultados(0)("AMaterno").ToString())) ' End If ' If Not objRH.DtResultados(0)("NombreCompleto") Is Nothing Then - ' ListaTagsDocumentost.Add(New TagsDocumentos("{NombreCompleto}", objRH.DtResultados(0)("NombreCompleto").ToString)) + ' ListaTagsDocumentost.Add(New TagsDocumentos("{NombreCompleto}", objRH.DtResultados(0)("NombreCompleto").ToString())) ' End If ' If Not IsDBNull(objRH.DtResultados(0)("Estatura")) Then - ' ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", objRH.DtResultados(0)("Estatura").ToString)) + ' ListaTagsDocumentost.Add(New TagsDocumentos("{Estatura}", objRH.DtResultados(0)("Estatura").ToString())) ' End If ' If Not IsDBNull(objRH.DtResultados(0)("Peso")) Then - ' ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", objRH.DtResultados(0)("Peso").ToString)) + ' ListaTagsDocumentost.Add(New TagsDocumentos("{Peso}", objRH.DtResultados(0)("Peso").ToString())) ' End If ' If Not IsDBNull(objRH.DtResultados(0)("LugarNacimiento")) Then - ' ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", objRH.DtResultados(0)("LugarNacimiento").ToString)) + ' ListaTagsDocumentost.Add(New TagsDocumentos("{LugarNacimiento}", objRH.DtResultados(0)("LugarNacimiento").ToString())) ' End If ' If Not IsDBNull(objRH.DtResultados(0)("Edad")) Then - ' ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", objRH.DtResultados(0)("Edad").ToString)) + ' ListaTagsDocumentost.Add(New TagsDocumentos("{Edad}", objRH.DtResultados(0)("Edad").ToString())) ' End If ' If Not IsDBNull(objRH.DtResultados(0)("NombreTelEmergencia")) Then - ' ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", objRH.DtResultados(0)("NombreTelEmergencia").ToString)) + ' ListaTagsDocumentost.Add(New TagsDocumentos("{NombreTelEmergencia}", objRH.DtResultados(0)("NombreTelEmergencia").ToString())) ' End If ' If Not IsDBNull(objRH.DtResultados(0)("TipoSangre")) Then - ' ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", objRH.DtResultados(0)("TipoSangre").ToString)) + ' ListaTagsDocumentost.Add(New TagsDocumentos("{TipoSangre}", objRH.DtResultados(0)("TipoSangre").ToString())) ' End If - ' If Not IsDBNull(objRH.DtResultados(0)("Vivienda")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Vivienda}", objRH.DtResultados(0)("Vivienda").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("Vivienda")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Vivienda}", objRH.DtResultados(0)("Vivienda").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("ViviendaDueno")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{ViviendaDueno}", objRH.DtResultados(0)("ViviendaDueno").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("ViviendaDueno")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{ViviendaDueno}", objRH.DtResultados(0)("ViviendaDueno").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("CreditoInfonavit")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CreditoInfonavit}", objRH.DtResultados(0)("CreditoInfonavit").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("CreditoInfonavit")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CreditoInfonavit}", objRH.DtResultados(0)("CreditoInfonavit").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("RentaMensual")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{RentaMensual}", objRH.DtResultados(0)("RentaMensual").ToString.ToDecimal.ToString("###,###,###.00"))) + ' If Not IsDBNull(objRH.DtResultados(0)("RentaMensual")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{RentaMensual}", objRH.DtResultados(0)("RentaMensual").ToString().ToDecimal.ToString("###,###,###.00"))) - ' If Not IsDBNull(objRH.DtResultados(0)("TransportePublico")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TransportePublico}", objRH.DtResultados(0)("TransportePublico").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("TransportePublico")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TransportePublico}", objRH.DtResultados(0)("TransportePublico").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("TrabajadoAnteriormente")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormente}", objRH.DtResultados(0)("TrabajadoAnteriormente").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("TrabajadoAnteriormente")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormente}", objRH.DtResultados(0)("TrabajadoAnteriormente").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormenteObservaciones}", objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{TrabajadoAnteriormenteObservaciones}", objRH.DtResultados(0)("TrabajadoAnteriormenteObservaciones").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("ParientesEmpresa")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{ParientesEmpresa}", objRH.DtResultados(0)("ParientesEmpresa").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("ParientesEmpresa")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{ParientesEmpresa}", objRH.DtResultados(0)("ParientesEmpresa").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("AcusadoDelito")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelito}", objRH.DtResultados(0)("AcusadoDelito").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("AcusadoDelito")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelito}", objRH.DtResultados(0)("AcusadoDelito").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("AcusadoDelitoObservaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", objRH.DtResultados(0)("AcusadoDelitoObservaciones").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("AcusadoDelitoObservaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AcusadoDelitoObservaciones}", objRH.DtResultados(0)("AcusadoDelitoObservaciones").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("Direccion")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("Direccion")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Direccion}", objRH.DtResultados(0)("Direccion").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("Calle")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", objRH.DtResultados(0)("Calle").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("Calle")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Calle}", objRH.DtResultados(0)("Calle").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("Colonia")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", objRH.DtResultados(0)("Colonia").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("Colonia")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Colonia}", objRH.DtResultados(0)("Colonia").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("CP")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", objRH.DtResultados(0)("CP").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("CP")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CP}", objRH.DtResultados(0)("CP").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("Telefono")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", objRH.DtResultados(0)("Telefono").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("Telefono")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Telefono}", objRH.DtResultados(0)("Telefono").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("Celular")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", objRH.DtResultados(0)("Celular").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("Celular")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Celular}", objRH.DtResultados(0)("Celular").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("Correo")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", objRH.DtResultados(0)("Correo").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("Correo")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Correo}", objRH.DtResultados(0)("Correo").ToString())) ' If Not IsDBNull(objRH.DtResultados(0)("CveSucursal")) Then ' ' ListaTagsDocumentost.Add(New TagsDocumentos("{CveSucursal}", DDLSucursal4.Text)) ' End If - ' If Not IsDBNull(objRH.DtResultados(0)("NumeroSS")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{NumeroSS}", objRH.DtResultados(0)("NumeroSS").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("NumeroSS")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{NumeroSS}", objRH.DtResultados(0)("NumeroSS").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("Licencia")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Licencia}", objRH.DtResultados(0)("Licencia").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("Licencia")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Licencia}", objRH.DtResultados(0)("Licencia").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("CartillaMilitar")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CartillaMilitar}", objRH.DtResultados(0)("CartillaMilitar").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("CartillaMilitar")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CartillaMilitar}", objRH.DtResultados(0)("CartillaMilitar").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("CURP")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CURP}", objRH.DtResultados(0)("CURP").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("CURP")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CURP}", objRH.DtResultados(0)("CURP").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("AutorizaAntidoping")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AutorizaAntidoping}", objRH.DtResultados(0)("AutorizaAntidoping").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("AutorizaAntidoping")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{AutorizaAntidoping}", objRH.DtResultados(0)("AutorizaAntidoping").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("Observaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Observaciones}", objRH.DtResultados(0)("Observaciones").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("Observaciones")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Observaciones}", objRH.DtResultados(0)("Observaciones").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("CredencialElector")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CredencialElector}", objRH.DtResultados(0)("CredencialElector").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("CredencialElector")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{CredencialElector}", objRH.DtResultados(0)("CredencialElector").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("Sucursal")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Sucursal}", objRH.DtResultados(0)("Sucursal").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("Sucursal")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Sucursal}", objRH.DtResultados(0)("Sucursal").ToString())) - ' If Not IsDBNull(objRH.DtResultados(0)("Puesto")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", objRH.DtResultados(0)("Puesto").ToString)) + ' If Not IsDBNull(objRH.DtResultados(0)("Puesto")) Then ListaTagsDocumentost.Add(New TagsDocumentos("{Puesto}", objRH.DtResultados(0)("Puesto").ToString())) ' 'If Not IsDBNull(objRH.DtResultados(0)("InformacionFidedigno")) Then chkFidedigna4.Checked = objRH.DtResultados(0)("InformacionFidedigno") - ' ListaTagsDocumentost.Add(New TagsDocumentos("{InformacionFidedigno}", objRH.DtResultados(0)("InformacionFidedigno").ToString)) + ' ListaTagsDocumentost.Add(New TagsDocumentos("{InformacionFidedigno}", objRH.DtResultados(0)("InformacionFidedigno").ToString())) ' End If ' If Not IsDBNull(objRH.DtResultados(0)("FechaNacimiento")) Then - ' ListaTagsDocumentost.Add(New TagsDocumentos("{InformacionFidedigno}", objRH.DtResultados(0)("FechaNacimiento").ToString.ToDate.ToString("dd/MM/yyyy"))) + ' ListaTagsDocumentost.Add(New TagsDocumentos("{InformacionFidedigno}", objRH.DtResultados(0)("FechaNacimiento").ToString().ToDate.ToString("dd/MM/yyyy"))) ' End If @@ -4165,11 +4172,11 @@ Partial Class RH_Personal Protected Sub LBCancelar_Click(sender As Object, e As EventArgs) - Dim FolioFiscal = CType(sender, LinkButton).CommandArgument.ToString + Dim FolioFiscal = CType(sender, LinkButton).CommandArgument.ToString() Dim gvr As GridViewRow = CType(CType(sender, LinkButton).BindingContainer, GridViewRow) - Dim CveNomina As Integer = gvr.DataKey("CveNomina").ToString.ToEntero - Dim Total As Decimal = gvr.DataKey("Total").ToString.ToDecimal - Dim RFCReceptor As String = gvr.DataKey("RFC").ToString + Dim CveNomina As Integer = gvr.DataKey("CveNomina").ToString().ToEntero + Dim Total As Decimal = gvr.DataKey("Total").ToString().ToDecimal + Dim RFCReceptor As String = gvr.DataKey("RFC").ToString() Dim Obj As New Timbrado @@ -4195,7 +4202,7 @@ Partial Class RH_Personal GvVacaciones.DataSource = objRH.DtResultados If objRH.DtResultados.Rows.Count > 0 Then - VacFolioActual = objRH.DtResultados.Compute("Max(Folio)", String.Empty).ToString.ToEntero + VacFolioActual = objRH.DtResultados.Compute("Max(Folio)", String.Empty).ToString().ToEntero Else VacFolioActual = 0 End If @@ -4215,7 +4222,7 @@ Partial Class RH_Personal If e.Row.RowType = DataControlRowType.DataRow Then - Dim _Estatus As Boolean = Boolean.Parse(e.Row.DBCampo("Estatus").ToString) + Dim _Estatus As Boolean = Boolean.Parse(e.Row.DBCampo("Estatus").ToString()) Dim _Documento As String = e.Row.DataKey("Documento") Dim _CveAutoriza As Integer = e.Row.DataKey("CveAutoriza").ToEntero() Dim RutaDocuemntoAutorizacion As String = String.Format("{0}Personal\{1}\Vacaciones\{2}", UsuarioActual.Empresa.Ruta, CvePersonal, _Documento) @@ -4259,7 +4266,7 @@ Partial Class RH_Personal End If Next For Each GvRow As GridViewRow In GvVacaciones.Rows - 'Dim _Estatus As Boolean = Boolean.Parse(GvRow.DataKey("Estatus").ToString) + 'Dim _Estatus As Boolean = Boolean.Parse(GvRow.DataKey("Estatus").ToString()) 'Dim _Documento As String = GvRow.DataKey("Documento") 'Dim _CveAutoriza As Integer = GvRow.DataKey("CveAutoriza").ToEntero 'Dim RutaDocuemntoAutorizacion As String = String.Format("{0}Personal\{1}\Vacaciones\{2}", UsuarioActual.Empresa.Ruta, CvePersonal, _Documento) @@ -4292,17 +4299,17 @@ Partial Class RH_Personal If objRH.VacacionesResumenGet(CvePersonal, UsuarioActual.Empresa.CveEmpresa) Then If objRH.DtResultados.Rows.Count > 0 Then - VacInicioPeriodo = objRH.DtResultados(0)("InicioPeriodo").ToString.ToDate - VacFinPeriodo = objRH.DtResultados(0)("FinPeriodo").ToString.ToDate - VacAnios = objRH.DtResultados(0)("Anios").ToString.ToEntero - VacDias = objRH.DtResultados(0)("Dias").ToString.ToEntero - VacDiasUsados = objRH.DtResultados(0)("DiasUsados").ToString.ToEntero - VacDiasCancelados = objRH.DtResultados(0)("DiasCancelados").ToString.ToEntero - VacDiasDisponibles = objRH.DtResultados(0)("DiasDisponibles").ToString.ToEntero + VacInicioPeriodo = objRH.DtResultados(0)("InicioPeriodo").ToString().ToDate + VacFinPeriodo = objRH.DtResultados(0)("FinPeriodo").ToString().ToDate + VacAnios = objRH.DtResultados(0)("Anios").ToString().ToEntero + VacDias = objRH.DtResultados(0)("Dias").ToString().ToEntero + VacDiasUsados = objRH.DtResultados(0)("DiasUsados").ToString().ToEntero + VacDiasCancelados = objRH.DtResultados(0)("DiasCancelados").ToString().ToEntero + VacDiasDisponibles = objRH.DtResultados(0)("DiasDisponibles").ToString().ToEntero GvVacacionesResumen.DataSource = objRH.DtResultados - VacSupervisorNombre = objRH.DtResultados(0)("SupervisorNombre").ToString - VacSupervisorCorreo = objRH.DtResultados(0)("SupervisorCorreo").ToString - VacCveSupervisor = objRH.DtResultados(0)("SupervisorCorreo").ToString.ToEntero + VacSupervisorNombre = objRH.DtResultados(0)("SupervisorNombre").ToString() + VacSupervisorCorreo = objRH.DtResultados(0)("SupervisorCorreo").ToString() + VacCveSupervisor = objRH.DtResultados(0)("SupervisorCorreo").ToString().ToEntero Else VacInicioPeriodo = Now @@ -4361,7 +4368,7 @@ Partial Class RH_Personal ' Dim fInicio As Date = TxtFechaInicioVac.Text.ToDate ' Dim fFin As Date = TxtFechaFinVac.Text.ToDate ' Dim ErrorSolicitud As Boolean = True - ' Dim DiasSolicitados As Integer = (fFin - fInicio).TotalDays.ToString.ToEntero + ' Dim DiasSolicitados As Integer = (fFin - fInicio).TotalDays.ToString().ToEntero ' If fInicio < fFin Or fInicio = fFin Then @@ -4456,7 +4463,7 @@ Partial Class RH_Personal ' Dim objDoc As New clsGemBoxDocument(pathDesti) - ' Dim FechaActual As String = Now.Day.ToString("0#") & " de " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString & " del " & Now.Year.ToString() + ' Dim FechaActual As String = Now.Day.ToString("0#") & " de " & CultureInfo.CurrentCulture.DateTimeFormat.GetMonthName(1).ToString() & " del " & Now.Year.ToString() @@ -4572,10 +4579,10 @@ Partial Class RH_Personal CvePersonalVacaciones = GvRow.DataKey("CvePersonalVacaciones").ToEntero 'ChkEstatusDiaVacacion.Checked = Boolean.Parse(GvRow.DataKey("Estatus")) - VacFolio = GvRow.DataKey("Folio").ToString.ToEntero + VacFolio = GvRow.DataKey("Folio").ToString().ToEntero - TxtFechaDiaVacacion.Text = GvRow.DataKey("FechaInicio").ToString.ToDate.ToString("dd/MM/yyyy") - TxtFechaDiaVacacionFin.Text = GvRow.DataKey("FechaFin").ToString.ToDate.ToString("dd/MM/yyyy") + TxtFechaDiaVacacion.Text = GvRow.DataKey("FechaInicio").ToString().ToDate.ToString("dd/MM/yyyy") + TxtFechaDiaVacacionFin.Text = GvRow.DataKey("FechaFin").ToString().ToDate.ToString("dd/MM/yyyy") UpModalEditarDiaVacacion.Update() RegistraScript("$('#divEditarDiaVacacion').modal({ backdrop: 'static', keyboard: false});") @@ -4801,8 +4808,8 @@ Partial Class RH_Personal objRH.Dispose() objEdoc.Dispose() - _CveDocumentacion = DTVacaciones(0)("CveDocumentacion").ToString.ToEntero - _DocumentacionFormato = DTVacaciones(0)("DocumentacionFormato").ToString + _CveDocumentacion = DTVacaciones(0)("CveDocumentacion").ToString().ToEntero + _DocumentacionFormato = DTVacaciones(0)("DocumentacionFormato").ToString() _PathDocumento = UsuarioActual.Empresa.Ruta & "Formatos\" & _CveDocumentacion & "_" & _DocumentacionFormato If File.Exists(_PathDocumento) Then @@ -4814,11 +4821,11 @@ Partial Class RH_Personal ListaTags.AddRange(GetDatosTagsVacaciones(_Folio).ToArray) For Each dRow As DataRow In DtVacacionesFolio.Rows - FechasVacaciones = FechasVacaciones & dRow("Fecha").ToString.ToDate.ToString("dd/MM/yyyy") & vbLf + FechasVacaciones = FechasVacaciones & dRow("Fecha").ToString().ToDate.ToString("dd/MM/yyyy") & vbLf Next ListaTags.Add(New TagsDocumentos("{FechasVacaciones}", FechasVacaciones)) - ListaTags.Add(New TagsDocumentos("{Folio}", _Folio.ToString)) + ListaTags.Add(New TagsDocumentos("{Folio}", _Folio.ToString())) objGemDocument.SustituirTags(ListaTags) @@ -4850,9 +4857,9 @@ Partial Class RH_Personal If objRH.DtResultados.Rows.Count > 0 Then - ListaTags.Add(New TagsDocumentos("{Anios}", VacAnios.ToString)) - ListaTags.Add(New TagsDocumentos("{DiasUsados}", VacDiasUsados.ToString)) - ListaTags.Add(New TagsDocumentos("{DiasDisponibles}", VacDiasDisponibles.ToString)) + ListaTags.Add(New TagsDocumentos("{Anios}", VacAnios.ToString())) + ListaTags.Add(New TagsDocumentos("{DiasUsados}", VacDiasUsados.ToString())) + ListaTags.Add(New TagsDocumentos("{DiasDisponibles}", VacDiasDisponibles.ToString())) If Not IsDBNull(objRH.DtResultados(0)("InicioVac")) Then ListaTags.Add(New TagsDocumentos("{InicioVac}", objRH.DtResultados(0)("InicioVac").ToString().ToDate.ToString("dd/MM/yyyy"))) @@ -5073,14 +5080,14 @@ Partial Class RH_Personal Dim rowInfo As DataRow = UniformesInfo.Rows(index) - CveAlmacenUniforme = rowInfo.Item("CveAlmacen").ToString.ToEntero - DescripcionUniforme = rowInfo.Item("CodigoPS").ToString - PU = rowInfo.Item("PU").ToString.ToDecimal + CveAlmacenUniforme = rowInfo.Item("CveAlmacen").ToString().ToEntero + DescripcionUniforme = rowInfo.Item("CodigoPS").ToString() + PU = rowInfo.Item("PU").ToString().ToDecimal - CveUM = rowInfo.Item("CveUM").ToString.ToEntero - CvePS = rowInfo.Item("CvePS").ToString.ToEntero - CveMovimientoUniforme = rowInfo.Item("CveMovimiento").ToString.ToEntero - CveMovimientoDetalleUniforme = rowInfo.Item("CveMovimientoDetalle").ToString.ToEntero + CveUM = rowInfo.Item("CveUM").ToString().ToEntero + CvePS = rowInfo.Item("CvePS").ToString().ToEntero + CveMovimientoUniforme = rowInfo.Item("CveMovimiento").ToString().ToEntero + CveMovimientoDetalleUniforme = rowInfo.Item("CveMovimientoDetalle").ToString().ToEntero RegistraScript(String.Format("$('#{0}').modal();", "ModalUniforme")) End Sub @@ -5141,9 +5148,9 @@ Partial Class RH_Personal End If If filemove <> "" Then - filemove.FilesMove(CvePersonal.ToString, String.Format("Empresas\{0}\RH\Personal\", UsuarioActual.CveEmpresa)) + filemove.FilesMove(CvePersonal.ToString(), String.Format("Empresas\{0}\RH\Personal\", UsuarioActual.CveEmpresa)) End If - ViewState("Archivo") = String.Format("{0}.{1}", CvePersonal.ToString, FileExtension) + ViewState("Archivo") = String.Format("{0}.{1}", CvePersonal.ToString(), FileExtension) Next If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & "." & FileExtension) Then Dim LogoRutaFisica As String = String.Format("Empresas\{0}\RH\Personal\{1}.{2}", UsuarioActual.CveEmpresa, CvePersonal, FileExtension) @@ -5161,7 +5168,7 @@ Partial Class RH_Personal Public Sub CargaPermisos() Dim ObjRH As New ClsRH - Dim CvePersonal As Integer = If(IsNumeric(Request("CvePersonal")), Request("CvePersonal").ToString.ToEntero, -1) + Dim CvePersonal As Integer = If(IsNumeric(Request("CvePersonal")), Request("CvePersonal").ToString().ToEntero, -1) If ObjRH.ChecadorPermisosGet(-1, "-1", CvePersonal, Now.AddMonths(-3), Now.AddMonths(2), -1, -1, UsuarioActual.CveEmpresa) Then GvPermisos.DataSource = ObjRH.DtResultados Else @@ -5233,14 +5240,14 @@ Partial Class RH_Personal Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - CvePermiso = GvRow.DataKey("CvePermiso").ToString.ToEntero - TxtPermisoDescripcion.Text = GvRow.DataKey("Descripcion").ToString - TxtFechaInicioPer.Text = GvRow.DataKey("FechaInicio").ToString - TxtFechaFinPer.Text = GvRow.DataKey("FechaFin").ToString + CvePermiso = GvRow.DataKey("CvePermiso").ToString().ToEntero + TxtPermisoDescripcion.Text = GvRow.DataKey("Descripcion").ToString() + TxtFechaInicioPer.Text = GvRow.DataKey("FechaInicio").ToString() + TxtFechaFinPer.Text = GvRow.DataKey("FechaFin").ToString() - If GvRow.DataKey("HoraEntrada").ToString.Length > 0 Then + If GvRow.DataKey("HoraEntrada").ToString().Length > 0 Then Try - TxtHoraEntrada.Text = TimeSpan.Parse(GvRow.DataKey("HoraEntrada").ToString).ToString("hh:mm:ss") + TxtHoraEntrada.Text = TimeSpan.Parse(GvRow.DataKey("HoraEntrada").ToString()).ToString("hh:mm:ss") Catch ex As Exception TxtHoraEntrada.Text = "" End Try @@ -5249,9 +5256,9 @@ Partial Class RH_Personal End If - If GvRow.DataKey("HoraSalida").ToString.Length > 0 Then + If GvRow.DataKey("HoraSalida").ToString().Length > 0 Then Try - TxtHoraSalida.Text = TimeSpan.Parse(GvRow.DataKey("HoraSalida").ToString).ToString("hh:mm:ss") + TxtHoraSalida.Text = TimeSpan.Parse(GvRow.DataKey("HoraSalida").ToString()).ToString("hh:mm:ss") Catch ex As Exception TxtHoraSalida.Text = "" End Try @@ -5261,8 +5268,8 @@ Partial Class RH_Personal BtnPermiso.Text = "Actualizar" - ChkGoceSueldo.Checked = Boolean.Parse(GvRow.DataKey("GoceSueldo").ToString) - ChkEstatusPermiso.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString) + ChkGoceSueldo.Checked = Boolean.Parse(GvRow.DataKey("GoceSueldo").ToString()) + ChkEstatusPermiso.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString()) UpModalPermisos.Update() RegistraScript("$('#DvPermisos').modal({ backdrop: 'static', keyboard: false});") @@ -5296,14 +5303,14 @@ Partial Class RH_Personal 'Protected Sub BtnCargarArchivo_Click(sender As Object, e As System.EventArgs) Handles BtnCargarArchivo.Click ' Preguntar si existe en temporales - ' If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString) Then - ' Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString) + ' If Session("FileUpload").ToString() <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString()) Then + ' Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString()) ' If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal") Then Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal") ' If File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) Then ' File.Delete(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) - ' File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString, ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) + ' File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString(), ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) ' Else - ' File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString, ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) + ' File.Move(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\Temp\" & Session("FileUpload").ToString(), ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & CvePersonal & Extension) ' End If ' Else @@ -5320,8 +5327,8 @@ Partial Class RH_Personal - ' If Session("FileUpload").ToString <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\" & Session("FileUpload").ToString) Then - ' Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal" & Session("FileUpload").ToString) + ' If Session("FileUpload").ToString() <> String.Empty AndAlso File.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\" & Session("FileUpload").ToString()) Then + ' Dim Extension As String = Path.GetExtension(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal" & Session("FileUpload").ToString()) ' If Not Directory.Exists(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal") Then Directory.CreateDirectory(ModExtensiones.DirectorioBaseEmpresas + "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal") ' Session("FileUpload") = "" @@ -5366,7 +5373,7 @@ Partial Class RH_Personal Dim Liga As String = $"/Compras/Compras.aspx?CveCompra={e.Row.DBCampo("CveCompra")}" If e.Row.DBCampo("Orden") = "1" Then - e.Row.Cells(0).Text = String.Format("{2}", "Texto", Liga, e.Row.DBCampo("SerieFolio").ToString) + e.Row.Cells(0).Text = String.Format("{2}", "Texto", Liga, e.Row.DBCampo("SerieFolio").ToString()) Else e.Row.BackColor = Drawing.Color.LightGray End If @@ -5424,12 +5431,12 @@ Partial Class RH_Personal If gvr.DataKey("SeTimbro") = "True" Then Dim NombreComercial = UsuarioActual.Empresa.Empresa - Dim SerieFolio = gvr.DataKey("SerieFolio").ToString - Dim Destinatario = gvr.DataKey("Correo").ToString - Dim Personal = gvr.DataKey("Nombre").ToString - Dim fechai = gvr.DataKey("FechaInicio").ToString.ToDate.ToShortDateString - Dim fechaf = gvr.DataKey("FechaFin").ToString.ToDate.ToShortDateString - Dim cvePeriodo = gvr.DataKey("CvePeriodo").ToString.ToEntero + Dim SerieFolio = gvr.DataKey("SerieFolio").ToString() + Dim Destinatario = gvr.DataKey("Correo").ToString() + Dim Personal = gvr.DataKey("Nombre").ToString() + Dim fechai = gvr.DataKey("FechaInicio").ToString().ToDate.ToShortDateString + Dim fechaf = gvr.DataKey("FechaFin").ToString().ToDate.ToShortDateString + Dim cvePeriodo = gvr.DataKey("CvePeriodo").ToString().ToEntero If UsuarioActual.CveRol = 1 Then Alert("Parametros:" + NombreComercial + " " + SerieFolio + " " + Destinatario + " " + Personal + " " + fechai + " " + fechaf) @@ -5483,13 +5490,13 @@ Partial Class RH_Personal If ListaAdjuntos.Count > 0 Then - If Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString, Archivos:=ListaAdjuntos) Then + If Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString(), Archivos:=ListaAdjuntos) Then Alert("Correo enviado existosamente a " & Destinatario) Else Alert("Se presento un error al enviar el correo a " & Destinatario) End If Else - If Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString) Then + If Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString()) Then Alert("Correo enviado existosamente a " & Destinatario) Else Alert("Se presento un error al adjuntar comprobantes") @@ -5633,7 +5640,7 @@ Partial Class RH_Personal TxtFechaExpLicencia.Text = GvRow.DataKey("FechaExpedicion") TxtFechaVencLicencia.Text = GvRow.DataKey("FechaVencimiento") - ChkModalLicenciaEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString) + ChkModalLicenciaEstatus.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString()) UpAddLicencias.Update() UpLicencias.Update() @@ -5769,29 +5776,29 @@ Partial Class RH_Personal If UsuarioActual.CveEmpresa.Contiene(72) Then Dim SBDomicilioSucursal As New StringBuilder() - Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("") + Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString().ToEntero, Estatus:=1).FiltroPrimero("") If DRSucursal IsNot Nothing Then Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado")) Dim DomicilioSucursal As String = "" SBDomicilioSucursal.AppendFormat("{0}", DRSucursal("Calle")) - If DRSucursal("NoExt").ToString.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", DRSucursal("NoExt").ToString.ToEntero) - If DRSucursal("NoInt").ToString.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", DRSucursal("NoInt").ToString.ToEntero) - If DRSucursal("Colonia").ToString.Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", DRSucursal("Colonia").ToString) - If DRSucursal("CP").ToString.ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", DRSucursal("CP").ToString) + If DRSucursal("NoExt").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(" No.Ext: {0}", DRSucursal("NoExt").ToString().ToEntero) + If DRSucursal("NoInt").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", No.Int: {0}", DRSucursal("NoInt").ToString().ToEntero) + If DRSucursal("Colonia").ToString().Length > 0 Then SBDomicilioSucursal.AppendFormat(", Col: {0}", DRSucursal("Colonia").ToString()) + If DRSucursal("CP").ToString().ToEntero > 0 Then SBDomicilioSucursal.AppendFormat(", CP: {0}", DRSucursal("CP").ToString()) If CiudadSucursal.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", CiudadSucursal) - If DRSucursal("Pais").ToString.Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", DRSucursal("Pais").ToString) + If DRSucursal("Pais").ToString().Length > 0 Then SBDomicilioSucursal.AppendFormat(", {0}", DRSucursal("Pais").ToString()) End If - params.Add(New ReportParameter("NombreResponsable", dr("NombreCompleto").ToString)) - params.Add(New ReportParameter("RFC", dr("RFC").ToString)) - params.Add(New ReportParameter("Puesto", dr("Puesto").ToString)) - params.Add(New ReportParameter("Departamento", dr("Departamento").ToString)) - params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString)) - params.Add(New ReportParameter("Telefono", dr("Celular").ToString)) - params.Add(New ReportParameter("DireccionSucursal", SBDomicilioSucursal.ToString)) - params.Add(New ReportParameter("PuestoUsuarioActual", dr("PuestoUsuarioImprimio").ToString)) + params.Add(New ReportParameter("NombreResponsable", dr("NombreCompleto").ToString())) + params.Add(New ReportParameter("RFC", dr("RFC").ToString())) + params.Add(New ReportParameter("Puesto", dr("Puesto").ToString())) + params.Add(New ReportParameter("Departamento", dr("Departamento").ToString())) + params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString())) + params.Add(New ReportParameter("Telefono", dr("Celular").ToString())) + params.Add(New ReportParameter("DireccionSucursal", SBDomicilioSucursal.ToString())) + params.Add(New ReportParameter("PuestoUsuarioActual", dr("PuestoUsuarioImprimio").ToString())) End If params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) @@ -5914,7 +5921,7 @@ Partial Class RH_Personal DTFamiliares(IndexActual)("Observaciones") = TxtObservacionesFamiliar.Text.Trim DTFamiliares(IndexActual)("Beneficiario") = ChkBeneficiario.Checked - If DTFamiliares(IndexActual)("CveFamiliar").ToString = "-1" Then + If DTFamiliares(IndexActual)("CveFamiliar").ToString() = "-1" Then DTFamiliares(IndexActual)("Accion") = "2" Else DTFamiliares(IndexActual)("Accion") = "1" @@ -5965,7 +5972,7 @@ Partial Class RH_Personal Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim activo As Boolean = True - CveFamiliar = GvRow.DataKey("CveFamiliar").ToString.ToEntero + CveFamiliar = GvRow.DataKey("CveFamiliar").ToString().ToEntero ActualizarFamiliar = True IndexActual = GvRow.RowIndex @@ -5979,7 +5986,7 @@ Partial Class RH_Personal TxtOcupacionFamiliar4.Text = GvRow.DataKey("Ocupacion") TxtTelefonoFamiliar.Text = GvRow.DataKey("Telefono") TxtObservacionesFamiliar.Text = GvRow.DataKey("Observaciones") - ChkBeneficiario.Checked = Boolean.Parse(GvRow.DataKey("Beneficiario").ToString) + ChkBeneficiario.Checked = Boolean.Parse(GvRow.DataKey("Beneficiario").ToString()) UpModalFamiliar.Update() RegistraScript("$('#divAgregarFamiliar').modal({ backdrop: 'static', keyboard: false});") @@ -5994,7 +6001,7 @@ Partial Class RH_Personal Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) IndexActual = GvRow.RowIndex Dim activo As Boolean = False - Dim CveFamiliar As Integer = GvRow.DataKey("CveFamiliar").ToString.ToEntero + Dim CveFamiliar As Integer = GvRow.DataKey("CveFamiliar").ToString().ToEntero If CveFamiliar > 0 Then @@ -6029,41 +6036,41 @@ Partial Class RH_Personal - If dRow("Accion").ToString = "1" Then 'Actualiza + If dRow("Accion").ToString() = "1" Then 'Actualiza Dim Beneficiario As Integer = -1 - If Boolean.Parse(dRow("Beneficiario").ToString) Then + If Boolean.Parse(dRow("Beneficiario").ToString()) Then Beneficiario = 1 Else Beneficiario = 0 End If - objRH.PersonalFamiliaresUpdate(dRow("CveFamiliar").ToString.ToEntero, CvePersonal, dRow("CveParentesco").ToString.ToEntero, dRow("Nombre").ToString, dRow("Domicilio").ToString, dRow("Edad").ToString.ToEntero, dRow("Ocupacion").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, dRow("Telefono").ToString, If(dRow("Observaciones").ToString.Trim = "", "-1", dRow("Observaciones").ToString.Trim), Beneficiario) + objRH.PersonalFamiliaresUpdate(dRow("CveFamiliar").ToString().ToEntero, CvePersonal, dRow("CveParentesco").ToString().ToEntero, dRow("Nombre").ToString(), dRow("Domicilio").ToString(), dRow("Edad").ToString().ToEntero, dRow("Ocupacion").ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, dRow("Telefono").ToString(), If(dRow("Observaciones").ToString().Trim = "", "-1", dRow("Observaciones").ToString().Trim), Beneficiario) End If - If dRow("Accion").ToString = "2" Then 'Inserta + If dRow("Accion").ToString() = "2" Then 'Inserta - Dim Beneficiario As Boolean = Boolean.Parse(dRow("Beneficiario").ToString) + Dim Beneficiario As Boolean = Boolean.Parse(dRow("Beneficiario").ToString()) - objRH.PersonalFamiliaresAdd(CvePersonal, dRow("CveParentesco").ToString.ToEntero, dRow("Nombre").ToString, dRow("Domicilio").ToString, dRow("Edad").ToString.ToEntero, dRow("Ocupacion").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, dRow("Telefono").ToString, If(dRow("Observaciones").ToString.Trim = "", "-1", dRow("Observaciones").ToString.Trim), Beneficiario) + objRH.PersonalFamiliaresAdd(CvePersonal, dRow("CveParentesco").ToString().ToEntero, dRow("Nombre").ToString(), dRow("Domicilio").ToString(), dRow("Edad").ToString().ToEntero, dRow("Ocupacion").ToString(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, dRow("Telefono").ToString(), If(dRow("Observaciones").ToString().Trim = "", "-1", dRow("Observaciones").ToString().Trim), Beneficiario) End If - If dRow("CveParentesco").ToString.ToEntero = 1 Then + If dRow("CveParentesco").ToString().ToEntero = 1 Then ValPadre = True End If - If dRow("CveParentesco").ToString.ToEntero = 2 Then + If dRow("CveParentesco").ToString().ToEntero = 2 Then ValMadre = True End If - If dRow("Accion").ToString = "3" Then 'Borra - objRH.PersonalFamiliaresRemove(dRow("CveFamiliar").ToString.ToEntero, -1) + If dRow("Accion").ToString() = "3" Then 'Borra + objRH.PersonalFamiliaresRemove(dRow("CveFamiliar").ToString().ToEntero, -1) End If Next @@ -6108,4 +6115,43 @@ Partial Class RH_Personal Alert("Se actualizo el calculo de fonacot") End If End Sub + Protected Sub LnkCalcularFactor_Click(sender As Object, e As EventArgs) + If TxtFIAguinaldo.Text = "0" Or TxtFIAguinaldo.Text = "" Then + TxtFIAguinaldo.Text = "15" + End If + If TxtFIPrimaVacacional.Text = "0" Or TxtFIPrimaVacacional.Text = "" Then + TxtFIPrimaVacacional.Text = "25" + End If + RegistraScript("$('#DmodalFactordeIntegraccion').modal()") + UpFactordeintegracion.Update() + End Sub + Protected Sub LnkCalcularFactordeintegracion_Click(sender As Object, e As EventArgs) + Dim SD As Decimal = TxtFISalariodiarioImss.Text.ToDecimal() + Dim primav As Decimal = TxtFIPrimaVacacional.Text.ToDecimal() + Dim DiasVacaciones As Decimal = TxtFIDiasVacaciones.Text.ToDecimal() + Dim diasaguinaldo As Decimal = TxtFIAguinaldo.Text.ToDecimal() + Dim FI As Decimal = (365 + diasaguinaldo + DiasVacaciones + (DiasVacaciones * (primav / 100))) / 365 + Dim SDI As Decimal = (SD * FI) + TxtFactordeIntegracion.Text = FI.ToString() + TxtFISalarioDiarioIntegrado.Text = String.Format("{0:###0.########}", SDI) + UpFactordeintegracion.Update() + Alert(String.Format(" salario diario integreado {0:###0.########}", SDI)) + End Sub + Protected Sub LnkCalcularFactordeintegracionyguardar_Click(sender As Object, e As EventArgs) + LnkCalcularFactordeintegracion_Click(Nothing, Nothing) + + Using ObjPersonal As ClsRH = New ClsRH() + If ObjPersonal.UpdateSalarioImss(CvePersonal, UsuarioActual.CveEmpresa, TxtFISalarioDiarioIntegrado.Text.ToDouble(), TxtFISalariodiarioImss.Text.ToDouble) Then + Alert("Se ha actualizado el salario diario integreado") + End If + End Using + End Sub + Protected Sub ChkEstemporal_CheckedChanged(sender As Object, e As EventArgs) + + Using ObjPersonal As ClsRH = New ClsRH() + If ObjPersonal.Updateestemporal(CvePersonal, UsuarioActual.CveEmpresa, ChkEstemporal.Checked) Then + Alert("Se ha actualizado el usuario", TipoMensaje.ToastInformacion) + End If + End Using + End Sub End Class diff --git a/vwd.webinfo b/vwd.webinfo index 7b35128de..a2d171c0b 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -66,6 +66,10 @@ + + + +