From 44dd59c023c51a16a482bad7e590022f343a0105 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 26 Nov 2022 13:50:02 -0700 Subject: [PATCH 1/8] -- que genere el log al consultar --- Ashx/E119.ashx | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx index 782584b41..3bcda13fb 100644 --- a/Ashx/E119.ashx +++ b/Ashx/E119.ashx @@ -196,6 +196,8 @@ Public Class E119 : Implements IHttpHandler TieneError = True End If End Using + Dim Msg As String = "Consultado día: " & Fecha.ToShortDateString + Msg.GuardaLogAD("LogE119") Else RespuestaError.message = "la fecha no es leida correctamente" TieneError = True From be0df7906f1bbf32e1e91c06d1118e8ee6a1e3ac Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 29 Nov 2022 16:27:25 -0700 Subject: [PATCH 2/8] Correciones en ventas --- Ventas/Ventas.aspx.vb | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index c60c002ed..999ca0292 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -8657,10 +8657,10 @@ Partial Class Ventas Exit Sub End If - If Not LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDI.SelectedValue = "23" Then - Alert("El uso cfdi del cliente no puede ser 'S01 - Sin efectos fiscales' si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If + 'If Not LblRFC.Text.Trim().ToUpper().Contiene("XAXX010101000", "XEXX010101000") AndAlso DdlUsoCFDI.SelectedValue = "23" Then + ' Alert("El uso cfdi del cliente no puede ser 'S01 - Sin efectos fiscales' si no se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia) + ' Exit Sub + 'End If Dim EsPersonaMoral As Boolean = Me.TipoPersona Dim DtUsosCFDI = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente).FiltraParametros($"CveUsoCFDI = {DdlUsoCFDI.SelectedValue}") @@ -22787,6 +22787,8 @@ Partial Class Ventas DdlRegimenFiscalCliente.DataSource = GlobalDTRegimenesFiscales() DdlRegimenFiscalCliente.DataBind() + DdlRegimenFiscalCliente.Items.Insert(0, New ListItem("Seleccione", "-1")) + CargaComboCFDICliente() End If From cd146aa6e357bf7728befa650715ca15bdb1a29a Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 29 Nov 2022 16:36:13 -0700 Subject: [PATCH 3/8] Correcion en descarga de pdf --- Ventas/RepVentaDetalle.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index 1814ef1ff..5cb7340ca 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -985,7 +985,7 @@ Partial Class RepVentaDetalle Response.End() End Sub Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, CveUsuarioCreo As Integer) As Byte() - Dim Url = New Uri(String.Format("{0}Compras/PopUpVerFactura.aspx?P={1}", "http://localhost:85/", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))) + Dim Url = New Uri(String.Format("{0}Compras/PopUpVerFactura.aspx?P={1}", "https://sig.adssistemas.mx/", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta)))) Dim File As Byte() = Nothing Try Using httpClient = New HttpClient() From 5d597d32ce56943caf39237f64c07f8e39b01cd4 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Wed, 30 Nov 2022 06:31:14 -0700 Subject: [PATCH 4/8] --- App_Code/ClsRH.vb | 7 +++-- General/CONTRATO.doc | Bin 0 -> 48128 bytes Nomina/Nomina.aspx.cs | 3 ++ RH/Personal.aspx | 7 +++++ RH/Personal.aspx.vb | 64 +++++++++++++++++++++++++++++++++++++++++- 5 files changed, 78 insertions(+), 3 deletions(-) create mode 100644 General/CONTRATO.doc diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index b6ee28d2f..5fb4804f3 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -2452,7 +2452,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function - Public Function UpPersonalAltas(CvePersonal As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean, ValIndemnizacion As Boolean, ValSeparacionunica As Boolean, ValPrimadeantiguedad As Boolean) As Boolean + Public Function UpPersonalAltas(CvePersonal As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean, ValIndemnizacion As Boolean, ValSeparacionunica As Boolean, ValPrimadeantiguedad As Boolean, Optional Observaciones As String = "") As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_RH_PersonalAltasUp") @@ -2466,6 +2466,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@ValIndemnizacion", SqlDbType.Bit).Value = If(ValIndemnizacion, 1, 0) .Add("@ValSeparacionunica", SqlDbType.Bit).Value = If(ValSeparacionunica, 1, 0) .Add("@ValPrimadeantiguedad", SqlDbType.Bit).Value = If(ValPrimadeantiguedad, 1, 0) + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones End With Try SqlAdapter.Fill(Data) @@ -7397,7 +7398,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo End Try Return Retorno End Function - Public Function estatusPersonalUp(Fecha As DateTime, CvePersonal As Integer, CveEstatusPersonal As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean + Public Function estatusPersonalUp(Fecha As DateTime, CvePersonal As Integer, CveEstatusPersonal As Integer, CveEmpresa As Integer, CveUsuario As Integer, Optional CveMotivoBaja As Integer = -1, Optional Observaciones As String = "") As Boolean Dim Retorno As Boolean = False Data = New DataTable SqlDataAdapter("PA_RH_EstatusPersonalUp") @@ -7407,6 +7408,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@CveEstatusPersonal", SqlDbType.Int).Value = CveEstatusPersonal .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveMotivoBaja", SqlDbType.Int).Value = CveMotivoBaja ' + .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones End With Try SqlAdapter.Fill(Data) diff --git a/General/CONTRATO.doc b/General/CONTRATO.doc new file mode 100644 index 0000000000000000000000000000000000000000..47e90f754e6281748ec48a56ab31adea29cd949b GIT binary patch literal 48128 zcmeHw2YeJ&-|nOmN+3W8RTx4L)R00+B1N(!3nZkGLY1=FEXl^rZrG9#BLV_aR0vfN z0SgEMQbiD@tAI!^f|L-NC^Zm3RLFh)XG%7kT|nP^@8|oO$?w@YGiT3#r`mD_(21+FdL&UNCd zx^mpDI$Mc}90$%~^WeB&+H+h@E;TbXbJ_f5^V!*QKUH0QxUc~nxBLF)48o-s%4Ksd zBpg;-X=yF_$WdClU;|5RLn~;beWH($miC!A?uk>!v8N_q#@<`Fg#8i|DDk^^pS`^q z`TF`C=Vx`@%4ayvjFwNwdD@<|AJag%&UW7h4+#ZN_n5;KmcpIW8N= zNw~ir6=1Uw9jI!mx2a7Y9on{MA+96(ti!$r_EfI*Cec;eOZ}Fvq2rr4$iRI>(hg08 z9NYa?l>ZvCY|F7dCi+-!QaRS=o+d5z^GW6X-SQo^K`Kw8lO%83o-3Hq+2y1x`_lPN z4LR-;6eis#mD><>AilhgeGv8}f3!*0_4E~vi*SDqlG3r1FXaB`zf!qUNo&Dml1HlN zBK8uUrM*umRuJW6{<_esaEKqjozwFSYlt?j4m!wz(e+N&^_Fj^KwIR|mi3Q7X58J_V{q#K$Ek zDw5-QWglf+a*85`k5uwF(@hZ_&nGAn6?}X*{6s2~m5H%Yaf(O<-=9y2Pvn!Ml(7l% zRvGdByfTiDQFMz>R3`C?9*I#A@iB@dToJ=ZC~&Pm-#bOgM<`>IR3ep;5{JDaFes96BTh0QArW;d}4fTJg?}lh*7X=l2TA+;`Ru%iW(dl zm8gtJMu|O?amqxY6EO-tPT3d2t_2QM?FWAVq%nhyAVDu9-ZQQ#Rl+g zL#Q<54Twi)ts23uk55V_+VVX?-1wxZm>3XA0Ww9QJSsAtPfCeUCPno@0=-14M;!44 zT*LiIARg$Qh{O!gFF}!<7#}xN#ZKvC9NVkwB(^J!XQza4_~fGUYId9WfG^kz(=2BQPixnxL4q%tA~eIe%Hs6UUR zl%y0~)X~#3k_QL)7|bwCgGptIDKN3Dv2LsKTGuj8N+=CT)&*E1G}{b*fZ@QNtRLX)x+lI*rl5s||XS z)?}s{OuR-9F^f^eB@1%epI3llOk_ziB2r?K!G0na-xE@$h>02iI+A>dYQ^U#SyB^> zhCGcLy!1zV1=^@g+AOUp%ivFBAOh%BAO%{WO;e@uS(*{(q+aFEXQ}egGvsS<-k(p@ zWTU-knu_|b)1<3($kg%KMnkq%W2U}RlZm|MUyNB=J)^FUR~gM(wMAzL4yLknDn3S& z$9LDHX^dh4W}_-qm5Jt%@J2!fBcdSR-J#tO67+|(CAclAbs`xXC=1^!DvqgEnR@U^ z@sK7(0OX*pl^mdbqyg5F=cd!CvQ$PeP;JOE@EI!N8G4A;o76_FS)_{tq7XSuX1ZFf z&C%+HSZ)5i8*=ki#Rk(zo_@<{XE18hwR%P(x+FqtL51-+snL%lrt@irEXbn{Bs6QX zAW$F;Xo=P{11Z}TQhieL3f7?$>;a#s>=Bg&RTqUIDmE#J&rj?gF_QP^E4PXikQBnK z%1YJ#q8IE0xLZVwQ>iT)BMF5bNliB7o7f@Bs;K7B0^Tsp2+P7}lhq*wp$p5*izWvO zV}WurbuO>>W({eHDheZvQq)4QZupcmW=mz?zg?Uo(Ip_`4n+z5z(KAhi0%W5my;=)(SF5sN2bij>vdvnv zB@K5@=p&Je&w(Zy1Na13 zD~ryoCCetUmYRUlght_Z@J6dgOJVF@#Ua@ogb%R@S-L@Q6cJ=nVNu}_qv9gr!4dzE zR>4JE#XsaHn4gM~)RQ@KJ8H=%DPsBvZUy^9q)=l(TtGyCC+{ivu@pXuPa%&6%axEA z6$=9g`=yjbjkTF^6^uyJLe|vUJ9-e;UyfVQA zM@?k&Q34}DbbKQEs3anY0h;XpDmXB*@+#EBh{&1)CXj5KwCNV`n4Fgs?kSTHMn!c8 zDU&+>Wp4(Oh>;3Nl5Bva3ku2HBsmaPIohIEnJuuHnpa68CDIurEzMCuiA3Eb(SWEM zi`39C+1N7GPlHSv^iWtWYGHyy&W*XeGJPXORBLpaR0w}XZ^yhJ9Nu+ucqX1AzC6BN zDBm4TWo?b3>d|0ZADArpK&DmpscS%;CLU@eX_%FjFjX`YC`7F*vY0GLkcz=S8=>WJ zHl%%NpciYA3f5wTHVbBmnwCt09jio4Nk2#``b9xOlnA|JA-&|Hld(q_&tk_YF@EE_ zBQRtEYxk(cSV|!3L{Svbv3uA^!k>rKF^dWwk(fXevq)Z;77MD1&_Xh8u!(8LB0i1z zY6`NfY$B5}#%jS}3Q7&W(RC;Q0hg9sJj`dh0VWwq5>Pu*N&QeDBZ&<{y3;^J82K<| zRl(e-ElloUz%o>MDk8t$q_!B1BqpG(8RZM1lT~}HScB#u%*ZMNkqrTS1R^{QTnjqD z0!b(rq)gCXxxYNzzm>_t6{;MqiBUWN0D6*{D^Oiugh> z?+EhJkYqv*frDMw2~lkhI*4Ed(VxW(^X{ zVmc@p7+GM+k}-Ql<~I%6A;iHHimE6`CZhs#247|rObBAiY&ydfMhuHcN+G$R9+4iL z(NT*unII_~AP-KU3Q0jI7(~DrA(+%8Eqow+81)I{WzJXP3qMSoi8cw1u%|X82PR7@ z3(l$LEEOpfsf@%aLG*-C2029e@6$&MOsm_Oh|B&1Q(Tv0RW4=K@^My z${39DpbTWn3`V0Nof`bR9>j!=u^D1eVbn4~Ij9|A2MC9FfSQ2V)u^`UDP{ogiA*%o zO%@%GNrfR4BGEK0+i5}UbR#Nb#zQoZOs0(*vr(IBkysCdSVjyTNe<%?n8gMbX&Q{* zFh+w*#HblwHi~u~D~4rHcg7Ew1-A?Kpr12Jf|5I+kK>=Z*p6vtL*fb|4IVvV9Qh{;$)3k1i_e_q*$gs_Sx`Eiip`igmK@b&8Lcj-r zofv%O=U$s_EK@6(7t~TJV0A2}aDETiM3|Mu72q9TfxCAwIoZ?HtuZZ?Y z^mE`On2YO8mP|}DvFbr7(IHrO7%?8EO++a|moXC2!QC=`OYI`_m89$^SuZQU36IT& zK`M(G18|D>QH7Xq6#1$dffFQrDji5cmXcbYsuJRBst`_#c+R>YOc0QpU=n3eV|atW z8`8+;I8+F*MDM6pfwqi7BtzxwtuRSs)C@cRRYn;$xEJ+jTV>?h&+Icf+Ha}Ax(M+(T570 zOT#po5HU&duRw7UdwJpvG!QgHprF77GP)IqFKL=ok`6;E26<|Vx*cfc9dSrQTwom~ z;xO*p%8#9K4x5l7okI*DC@)ET8Uh(u5^`Tg9!0Soui*f@;Wkr}0?Slz+=x*#J& zEegLW6l3gUT@&pb^YP_!M5Bk|hyh|y2(zG*8p=Xc6eTqkx@{3!hjyl-Ni4F(K#n!m zs!haT)>gp{2wjl^6fw#{wHYc%5<)6cN|z0Y4 zj8kIaJWQQdk9jK!^r?}MbDHk;=P|-zEv+8I2Mlz*-A zt{XHgCv8w8OwOfge*v2*x~Bn=B>PMtzy>A{H1>ozXfPd!sxa_?Kh+vR4T*$m8zaT& zYp>ZXYW4WKS70S%c|vm`i5&X!Is5e2{YE8jPIKPFfX`=BFSu704}+Rb#9`Q=u+WH3N~7 z3L+_{I8W>h^8jU1zy=4xU^fPp=4cTLkW@qRL}?R34@e*Rk@Cg_WFf^cs@NbI0u2Qb z;wOZ%!l)Sw66MCDWEyj{X*39D9VWv>F^cW<7N0E4Si#GZEyhhW`AF)JF2pM2ZRMC7 zqffd9a~39AqGNNM*1AP=!>CT4!z=Ug%uh4_tHtb|6{Ur#Xrd%UR^kQb3Ynp!AOq|| zCosQ=_<+Y?H%Ew&sjRZu4hpZ)W~jO7F(}R;iV5>qf?;O;r*R8ST?qmTO)6u$JuQ;u zt4!lWfg%NxnU8>kLQM!f1@n?Jk-LYVK_D*)2U@A6H6+o|AjqK(iE|Rj6f}(q0qFyq z;x8vqnB1fJf3P2fK`4X4jRBW|T4Zfy!s{@3XQnWhT}NCKRf5QtO>-4AcgO22>10cY zcq-UOby+M)mXq<9I72ZsnP=G=K_D%{oEHhrFs#SG|I(U7IZI2@K&_(tV8-uYiI+8p z+JJRf8UoVXCR=`C({5taYi-(?Z$JRSJb*BWDx1mf$Sa-;VD=5_Y&4`{y2Hq)YEnTu z6pCS!7NIzsj+D(Mrun+zo&@TZ7^qOtLe0de5%vOX)u{~`cR&qFN>&t>OS%nYF~TrW zY@RI=3EC#q%3=}?%%Xv&<}8R8O=_%~ur6k)$nBA#z>JW^gfIaqjOo~7Hrb+o!0|u{J!A!7`3g&-6XCh%4J1|2Au97Q5KMd-!iCYj}TuVSCD7Igd19pMy z)?+y|7<^`d@GvZ`F$+#%5|a<6Z?NWA4#O!{jYfyu0KU7_S{4Yi=#TV3twQf4?C@b9C~blWF$)iVnjXHk%^+USW!rU zs6j3ufR7g24uwTLgz+KMKZ;>2U=>A2nTXbmkQ9iYR?o(X(&Pn-qFGhsv1bEdTZ}A> zrF9cTPOvK`ns9(aQR%5Cq6irRNerQ!znir*CyNa9F-=2i&c+^4l3pT7 z&`vVF;1XTN8cZ=3+5rGXVvV{ z8{Er37AkVd!QyV3M*T9qKuwAipMa^`e`Y2N2nL7Xf;BhD4Q0_ z#aXC4NUD|$sUV*Qeug5(`e_pdTjgRC3CsmrMIY2#bW}yo8{Pyo76uP9=amLdR8G`S%gRRlvmsg3nm9J14z=& z*2U1dPIL_nfcSKV^|XkI0$An>C`g4Qj3|QsiS#2AcZb%P1eIid3tgAz9>v)xTGlYq zY6deptQ2S;{HQ=3)&Xr67Ejgiv!XG{p@}hAOeks^Jv;_|kkwl-9c-xw^GukT>16xl z5#-Bueh03U*n>jz5bTisqbQUt3iJu1AJ`@KG>GhRn9T4>dMEgu^US1cs6zRfw-J&Fkr@h`{m*)<4l=CB;>?Yv5qCFwH^cRC?Hp0)I)}kv8xs zj{*;B5^jL|p-P0+b;O+F1Pj~(i>rl4qDbp|Vr34YKfJ#`CNtq=$QKfS^5ZO7SU--` zszypCg1JSyDL+?b|#J<%EwAHbJA%<5U;$yKp=o>gofXk%4AMV+<}cUGz5>82QN zxek?wJ)e;*&nwL&31aSAlnU~kIz9@IMqtGTBYPavEjXuV&x^9`GNa_rZ>8bSbrsl% z_$Ujr1sDNzWvd66*CKX7=*b-5$_Pslc@A9N)zeM+_*xMsNYC}4Zs-z;7JCfuZ&&H* z`Okk8`+uf|czWLnXa^_&9bg0|0V{#ef%U*H-~ez3cm!}&IW8Pf1G|AEz+K=Tz*XZo zSHKNO0EPgwfp>v5z*^wXYiF*V+5h#j{b%N#nUtHm|IDN_8Q8Eplbmda60PcGbgHwB z^U2tVmybGljERW$;o_s6x!!;Z>8zeUt|p*~PsW}XlIe<9OlqM6dbtafe1_ihv*pc~ zc$;GrpsEf20w%x=yjh3iCIH{z&7fVt_4*ul1L%V{zWM?yfV)6vys0!E*bOwmTRL~F z`C0DZXX~7D2jwm+cW}!3o^meAzhv0T>M;Wjl1}8Fre~tNlyz3 z#M@YQ&W~-qUOewqcD+-28VP{C>)H7Rq>Jl-t-$xdUf?Ql52%h>Y5-aw2Y3_M20K~z~*mGcC*7{ zDc5fA!9U^N$MDZb@D;YS;pBS9zMO8iUcnPRKG$xW>$+r8XMHlhd*%uk6kUr;@o;)P z7iAe(-{r((^?>p#^hCa!Xk1TFwq zfos4WpaggTJOodfy|J925Q$|g}Ha~m5YQ>ZlQxe(cNDPP{ zWxl^cA7yTlw{@Irmml)IWIP?;YgfYLd)v7F_LzI^OUaX>lqbrrEZ5Dnx4`9KM!5rE_aQrx&3>BB$?kc;>+9~cXa1EiSp zM&W_2t7%*C_5%ElT>bXjtM%*zept?s)vL?6Y}fk9)Uhi?a_-|L zLr>zboKJcT4%(V1#5s?tTW+6tw;c&?N%8wlpai%J{02B9hW7?SffPWB@B1M=0LTC` zfm|RTcmwzV_z?IASOhEvmIK8_MTd%a6t7z}Yy2XM#$vIgSTre0rIoHrN%WOQZax{} zsL8gkaz0sdJG7AVeffgN=1<7%<{)42G7j=(PCD{4Wp~>)y-ZH2ZH{xVHf~)pSC#?M z4%yx==R2UA+-`dkSf6-A;!fJG!85QYGEu`8>kC-1NDIV0F4oE!c!C$ZpH7`Lh>4v{%qc)d0X@H z4jj-P(Ds+agp>PA1EI&s!ISbG$Pu(gkV7%wj@HmTLOEG|>@}i1*}LYcW!3?2<@+7T zteo#acDUw5`-VUxpatLusw=;<@q}%D}agX^(bEKKVvlJF$bD zJ6`pAMQxRH!@JyjOzz`7lAx(|tR}eNkuh4KQG>1em+6B89?LDVr~e@m|0RA(e3SSh z(fgAY&~IQxOYj}o-G<}#06PMp=fI!Ai2Z@RZ4om9E!shrfH2^Wth-43dk&s*2I`VE zb&gpdlusi_ckyFWJ3f9+QNx^&E6fRDj;BSBkA+XMVFt!_zR2VGg2&ANke=j%ulaz) zed;%yRC;@W8_k2K-ft5&a1xkS2XORb#0J*J@21-K<;x$10_K2 z^GE|FK<*1j10_JNKhi)6kPG?B2P9eh9_drS8Q>yt1^5Lh0dgUO`M{?DX|a`ROKQ(f zm-{(t-#&R-V@Oj$}P*-~FSCS}5oCOB(Q)T)U%C*`qm#T;#ItMi27ce@Fk@ z6TP+p+W|?Jk0N~xI1bzaN`Sk-J>Wj@0N?^4aDX#V9e5Gw3FHF#Knai(gxC>K18IOB z$OZC&H-NDK{62H_g@yB{%rBf@I4XN+Hnu6*Q+i{9pf@U#d;h%YQANtiy${GR*oy|_ zyD7hd?UZxx>Qf(+Td(H*in(&llxrsrk)v-a8~G0WzYsM>`21|I47m;mk|F1db=Y=L z&L^p~(?+ft@!&_G1n36)9SNiWxj;Tp0{j6;_T2-vJr~FaW&ksR`M?5T6|frk64(N4 z1$F~_0Ld@hMcNlWLGlm9=g$`(CZ*hYcpcPm&YU>_+r2${^l*(mMRafu{*kC?OM)`_ zAwyUp7k4>2Z_i(n7pBOsLOHS|*}Y5V!;^H>t{lpDJCHQFZo3*H=h~CvX5^z=0wF*s zK>qqgpd-);=nV7*1_6TsBVYzBzzEa2~h-Tm&uwmw}&wUxBN@P2d(#4BQ4vfIomg0oV5UY$Z?=s14Ks>H-ac zUw{4eIJUjJ%5OM>?F*b-yL|1gT_4OwYP!`W(|1AIuvW$#ti9P=Zz)!kVl!Hd$6Oo%Zhl} zV~kwNb2is8%VYo27wz$z_)Pqic<6|K#5dyAO>2$(I|mo63;3Tuux`zNM;Z$>hz;eq zP~|7agkDdI8NIA^%?v&H8Mp$_w_g`pcYeP0!90ftr3ico$Gwt9 zy#ej(OJTY5?CzY$@gUB5#KZ4u*L#+8kMpk3VfXk7=c<`8jppio59QViajJjM1*7ug z9=NlV(6}twq%8SNS+f0cch1QTH?c%D7aga%=W_93_Hn9+6~P)Irt-|pq`8xAd;tgq zUIM~_Za@N%1SA7}fI+}eAPqmOBKp}7rxBy%RtmX303ft`pXM_{n&#ce?njib#$e!PVPa;p_AHqGG z;Kl_PWH@!qra-9K>cfHj>YZ`TSLHqSMW|p&DPP4Z>Y@Wk8XE?RU;hf^UTjV%7$9s3|Q=KE5R^C8$IPS(dxx{&6@8s+f z@BI|k=6^XYE4x=ofl3NgQlOFol@zF?KqUn#DNsp)N(xj`pppWW6!@o7psBkzR|iv> zBb;h+Rq#LG=npF?^jZ)%2Uzd~gt%kv=n2TdY|)e8sEn6zucN&G7w4Cvzf!qa$dS|1 zIotilr?|%Uo(#%T$Zf;%LEs#43xFtcUH}gS0pUObFcioJ zMgs+aqx-1b){vnSp!XGk$F+Z_oPYa$VW3?<;5Wbn^lSk10bU0RfDeGxz&79@Fd8@q z+yXf8(F@>#ARrv5%=`aG7khSvNA>a1E?ff88yM2l$u+BIRaZS=0?Ys|;bJ&$XmP1C z_BF8NMUO9Fm70s=44je6;#8at$HZbkJQC3WB|UL)TOA%{kT&tnCON+6me$diNkb7+|0&UE~pN6%RNBgK>8uWtBsPRkxXfq<( z3-2&{ahTP&kSg))+H*9ft0FLt*#?)FC6j{`^Sc3NxO0aHQQ!2;0c_`Dmg$cb}T)j~n#VgIZU(VLrN(-D#Ad+>l9~i+tMPVM2 zoR_UJ4GI{MrCTv=Z`{rxFXjE7e~!J>Ci?xg;T|o2d1KdUOsm{H`|cF=%mNX#B~~`b-+rs6l7d z;#zY`Hf{O3b?AiAQIp>f4k1k)iov!IgrjbY;$>Qrv;O)ojTrM_w|`6 zYp1*xGWdtM?WNvB?{>XX_s9>U295$nN=u>d<>!NufleV#>=99Jh*6_61qRUX zxTyy+cLvp%aC7|Tv4=+XKD@I*%bdW)1rdQCkK~G4kIL|Ee5&!)Q}Mgpt9|7$Zqd#A zpLTh)@~sC&Gk@lN-dpCr^L#|ty%|M0UAB&TW6$_SOImsi9FhIz$N8t$5BWOb(8rzk z1vg&Y^NXNab!tsK8UJNjf1wBbX3Y&K^>!*d}qNACJ0{unxR z<nkH&X2S;PApzKVG^pHgtcX_py1sJp22W?#U>4YywNU($H#Pd%G_>#r-? zRqygIBO2`a{GGamQM*mON47XtF#fakXZYjmUpUtMrvI72U;1Tsd8cV2n* zg=ecdhuLrZj*e6Ao*y|&c9GOFLT&1=%G)^0q_-l zbLnqmygjN79R19y9-3HV&5wPbe|Y`N+cn4UjjXml zXwlb8lGVMssmBiQ-~5~8&s*P*^UC^db^NxtKYshPq|4-SAs7@oVSk{baT&6#TM=2#LtfA7#}tYztnbR(#@kC*T1~b{evQ}xc7#y zu^j(#;H-wnIn9t~Hl4bAulvazjeifF9d1hu&KlGU4q8XDmBHm(S9V9Qn!D z;fnSb4=w(p!J5dGlh-$RrrlY$(awo}QRnw)C-=zk=zY4|%o<_E_j)!^oLk&l01|e z8TI{@s; zsaC6inBkAkEZ?wd$ox^IcZYP{nw?QtlreP2AAaBM=(KIg*$AJVPS5;VJbFm%N6nh2 zMql&$FuZEwS79Z&X=xwU`edSSm6emSI=ytcAoJyI`7_jSWe1+G8`Y#yv&c1Wr_WQhmj(4VrlmcMYD= z`^QgD{q{}w9h=829s63dq`hz7KN$JZiN$NDre-#Jt=691%C(`FBI^EFyH4k4QosK? zZuI!ZtBOjh6bw79FI;luM0aDj-!yz?UsT5UdriOdp8pZ2zIo{9n(nc)2ZRLnES$t?o};-R+AB5nsG<;E}m`aZK+zEw)78aT;;v^Smn2gRWH@9nrDLylpPd zUHEU_I?{TAv$?_c&52igk6YpV$;$Da1}`~%yHIl@cw^wyHjUoh7^rX`(%-$#SI^xU ze5$1O`jFPnpG^H=Z}#GWUTaPdnYi@)vTvV_`*PaIBR=}kH+E;fnmYaE6HaYPUOHB~ z^8T2b7yg{^?vy{y?JVh}|F+NCO{q)PJwNwaKuPHG?6(HRzEwQ>wLfEH8^=y>QNxn< zqWVlp`_L}$ly1GL?Q`Zp==>j+y?)`78O0y&-1tk{u${AN9ogf(uX;&`%yZK`UoAP& zYVeD98`h4_H%1pPI5@VM(}8x1`aZMXUohhQYt`m-zm+oU#S`0hjBlcCIJMmaw`sit zyFC{(;rlI#btcdKHDSbab%WX;-WzwOT70YGm#VK-rGL4?eO`Y}y`DZ-7iVs%IrjOv zAHH%ob@aQ-f7C^E$(Ua^VQt^$D&4RdC$bBc9;iQST1mh9Z(rs=jK8Por|a17be~^; zUO6Du>8NqlHkS=mrvBo&b%0ZCuQ&3VwEua`?WD`Uewn+zUDriR`Zhc=naf!HbM1r? zuO~50GvRgTN3`E?yQAN@sk2W%yJ*(b zcbbHq$!Xj4om&a-=|lU>T)eK=?pys=W z+eUkg$W7S4qM_G_hO=9(^?l@1?TG*N_Y5DKYiO=c{G|4KDcw21kSTtnjMYEoErz#{-VFU)8ALgjp%~Q=4mEY@zk(aOC^vmt}5RH)s9MuWR_9 zxc#c~?9dLO!57=F+mZfhe()vze$$z53k&*I4H}{E+T+;fNJY@ndh_}p^}cYa{R-nf z-LaL=+;JHke!Z=7$L`_!GtMuMYOSZyEVP@jR#3zV+Lj>XmEw8~)*pTM!?_momc_V!KXB8gZwlqEJ2|((KM8jf=HfD| z%}&sp(5rj_wsBwC-9ezIRTOA@qiq~jc4I>Xm{#$W5L;Q1-?k*%pr)*(EbTF!2vs&&R#RW^?T^rnugF1{IN zb9TqTK$99lC%(I9z~|MG$G#J4#-TAiFwLmSMZsCRz_vj_A%R&ct=^YUO%Lwkt1}1t z^5zjprM-ewYI<8b*Oty9mG%l!_?L6|peU{o6Ve&v3uokO+DT{HN!PTO&a{`#bdb(; zkj{iiXF`1W41DBt-8G2KKo|dI2qwz8-K=#-Vx|?6Y#|se5|zn#!W#2wtG$o(J#(99IjIW--`fp5+$J zh&qFA&D-&!@xy(~e#5z@#pnk5N9Rhp(W6Im_c8f~LY;3-$0oU02|lI!Z?#Okhni*BIoQcNx}jdLQ_GsYl;7)|N#aam(j_%l%k z8{HuZl5~z9n05t4-UZeG-(m{qATS8`X@Qxb?0jG~un{u&1;&TyadO!rJp0>iz<-pmVPSH^II8z?|Cn6arAQ4j!8Y8hAq}fR(^{pgqQM zU4S7Fwshc%A3mc39BPUF0S_TDRnXSMXybW6XjePb`d2{hq^&Plx&pWXbVjRs0po$r zD0wiD14uPpL|UTEWuy~9k?(-ZGIfYD<>AVXCCX49Z7YG#fxDoO8~CyjJR$4^4gti+ zQvex-5FiW)2L=L}z(imbunX7+><1127htXlSAjdg6$tbY(0(6q2)GIq11Z&@8~}ZS z=q`|g-uD5B8iYl_V&D^CIdC1IPvL}sGMxbW{LMIE8?Xb|3G4!Di9BtAy&o_YpEf7} zjy{XmCIR9dVFviO09XZl32XuO0N;z)i@h%>+yaoOF3F$^WbB^^LH1#}$Plnew@cX5 zM(>2um(J)7SNd83O%)p(*5~M(7W8$3($^C>`syOR33Y?-&(U|e=&i)}8xQ2@tvC8Q zPC{e5K{kXovSw0R+B-vr*hU^F+ZlE+oXi{*P=!l@ zM|=e^aJl%Uvt*8?O}L7#CYvu>ajP_>o$JxG07W@FySuo#x;eYJmIiR=29DsiLE_oQ zDncq5o|k5xO&raBYfvA}Khu1)3N=IRP>wU_hKIMEs<=D52|7zwyKEax$s{fh_oU)Z z9gf-su-dD;yE@b6uyzIJxV6mhQHDaGma7}6KX6T^21@RTm(iz&CyKv0O zid73ID}SGo0(w`y>*sJRW5(18Du2rXC?(-P*}!6P^XNLZH}T1XE2U{!`WB12*hR!Gqa1;)py8UfcFSu{R@G+nLVyUbCvGFKCrH}|$SRB-MxW|r+iCn# zYfDSvnaXV*STUoOCp{!v&!s`18*|ZIJZwS_PRWthq;OHtc3OQ=ARURL82rWKj1uP) za5fR)v!Yz7l?VUb6nF&hQjLu-%J;(whv&vGy!{|P!)y685AKCl>rRrojY9@vASPo4 z*pt4@0T9n|ivSYf)c{HCHvoC8g8;b~l1=hqxp!uoy0UEzA0%-ic0-)JaS|pcLlI7DlQ@K@ApppWW6sV*?B?T%eP)UJG3RF^{k^+?!sH8w81^&Az zK;v9#t(iu`G>)f{FpYa@t)ABDX>Fdy?=&{2aXPKZ)3~3;@-)t;HGCS+djt4)Z)|K% z<9=EP$8(V!9;9YZOw&60lb)K!GIxb1r}3O5dotP|`!>KMJX{lqeGm`~(6co3NMd`S z13>w-79R$@2y_HG0iA&^z)L_^ARJHt-GB%n5>Nu&fgS*r6NP;=&D* zH};7@5|9j}0DXYI0Odaf=#g_uOF;4;v(XcQ20ZCT&-l>W^hP}G_g6L_JYO$$hUQ`1 ztCBQv+&1>hNGYW7>vg?g20h>KGSZ{PvytpMJC%6!*LQe!MXsOP@iZj_&_yJ?*n+LT z5+I!UYri#7Kj{$Z%+uB%f@^#F3ib2_^^JHMD-wG(-kXrV6(Hn3`L_}3CyJBaK5hL} zY8VM6HaAEv)k;r=67QoR1;bdI=!_Z9VbWI?9B-}v2K{?daU%WQD)juXwI>Yqlii}e z)8@FPWjP6y6zg|_=F>B=+0bbEhQVLm>cDymH4DE_d%y8%FMNvY{!aZ;u_U`>mnye^ zCk33qeHS=*>b Modificar salario + +
  • + Contrato +
    • + + + diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index b77a4883e..08b0b90ee 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -847,7 +847,7 @@ Partial Class RH_Personal If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then pnlSalarioIMSS.Visible = False End If - ' + LnkContratoAgropecuaria.Visible = (UsuarioActual.CveEmpresa.Contiene(1, 158)) Using objno = New ClsNominas objno.GetConceptos() dtNomConceptos = objno.DtResultados @@ -7478,6 +7478,68 @@ Partial Class RH_Personal Alert("Se guardo correctamente", TipoMensaje.MsgInformacion) CargaDatos() End If + End Sub + + Protected Sub LnkContratoAgropecuaria_Click(sender As Object, e As EventArgs) + Dim RutaArchivo As String = "C:\Proyectos\SIGGIT\General\CONTRATO.doc" + + Dim objGemBoxDocument As New clsGemBoxDocument(RutaArchivo) + + Dim ObjRH As New ClsRH + + If ObjRH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then + Dim Tags As New List(Of TagsDocumentos) + + Tags.Add(New TagsDocumentos("{NombreCompleto}", ObjRH.NombreCompleto)) + Tags.Add(New TagsDocumentos("{años}", (DateTime.Now.Year - ObjRH.FechaNacimiento.Year).ToString())) + Tags.Add(New TagsDocumentos("{SubProyecto}", DdlSubProyectoAsignado.SelectedItem.Text)) + Tags.Add(New TagsDocumentos("{EstadoCivil}", DdlEstadoCivil.SelectedItem.Text)) + + Tags.Add(New TagsDocumentos("{CiudadOrigen}", TxtCiudad.Text)) + Tags.Add(New TagsDocumentos("{RFC}", ObjRH.RFC)) + + Tags.Add(New TagsDocumentos("{NumeroDia}", String.Format("{0:dd}", ObjRH.FechaIngreso))) + Tags.Add(New TagsDocumentos("{MesLetra}", String.Format("{0:MMMM}", ObjRH.FechaIngreso))) + Tags.Add(New TagsDocumentos("{Ejercicio}", String.Format("{0:yyyy}", ObjRH.FechaIngreso))) + objGemBoxDocument.SustituirTags(Tags) + + End If + ObjRH.Dispose() + + + + + objGemBoxDocument.GuardarStreamPDF() + + + Dim objbyte = objGemBoxDocument.GetBytesDocumento + + + + + Try + Response.Buffer = True + Response.Clear() + Response.ContentType = "application/pdf" + Response.AddHeader("content-disposition", String.Format("{0}; filename={1}.{2}", "attachment", "Contrato.pdf", "pdf")) + Response.BinaryWrite(objbyte) ' create the file + Response.Flush() ' send it to the client to download + objbyte = Nothing + HttpContext.Current.Response.SuppressContent = True + HttpContext.Current.ApplicationInstance.CompleteRequest() + 'HttpContext.Current.Response.End() + Catch ex As Exception + + If UsuarioActual.CveRol = 1 Then + Alert($"Error: {ex.Message} | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))}", TipoMensaje.MsgAdvertencia) + Else + Alert("Ocurrió un error al generar la descarga. Favor de contactar a soporte tecnico cod:'IMPDFclspag'", TipoMensaje.MsgAdvertencia) + End If + End Try + + + + End Sub End Class From 95d5e901c6706707411069ce245921af96363727 Mon Sep 17 00:00:00 2001 From: MLopez Date: Wed, 30 Nov 2022 09:07:29 -0700 Subject: [PATCH 5/8] E172 Rep Indicador Resumen: Agregar tabla de Indicadores agrupada por Proveedor --- App_Code/ClsCGame.vb | 20 +++++++++ Compras/Compras.aspx.vb | 4 ++ General/RepIndicadorResumen.aspx | 63 ++++++++++++++++++++++++++++- General/RepIndicadorResumen.aspx.vb | 46 +++++++++++++++++++-- 4 files changed, 129 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsCGame.vb b/App_Code/ClsCGame.vb index ce78e577c..7622d3cae 100644 --- a/App_Code/ClsCGame.vb +++ b/App_Code/ClsCGame.vb @@ -3390,6 +3390,26 @@ Public Class ClsCGame End Function +#End Region + +#Region "INDICADORES" + + Public Function GetIndicadores(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Citrus_IndicadoresGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los indicadores.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + End Function + + #End Region #Region "IDisposable Support" diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 52b8f4eff..e7ae66cd7 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1,10 +1,14 @@ Option Explicit On Option Strict On +Imports System.Data +Imports System.Xml Imports System.Diagnostics Imports System.Globalization Imports System.IO Imports System.Threading.Tasks +Imports Newtonsoft.Json +Imports Extensiones Partial Class Compras_Compras diff --git a/General/RepIndicadorResumen.aspx b/General/RepIndicadorResumen.aspx index 150701480..1fb38f090 100644 --- a/General/RepIndicadorResumen.aspx +++ b/General/RepIndicadorResumen.aspx @@ -348,7 +348,7 @@ CssClass="table table-striped table-advance table-hover ScrollAD " ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true" AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"> - + @@ -381,6 +381,66 @@ +
    +
    + + +
    +
    + + Indicadores por Proveedor +
    +
    +
    +
    +
    +
    + +
    +
    +
    + + + + + + + + + + + +
    +     +     +
    + + <%--
    + + +
    +
    + + Indicadores - Gráfica +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    +     +     +
    --%> +
    + @@ -435,6 +495,7 @@ AmCharts.makeChart("chartdiv_cxp192", { ...chartconfig, dataProvider: json["CxP192"] }); // Compras x Producto ProveedorClasificacion 192 AmCharts.makeChart("chartdiv_ccxc", { ...chartconfig, dataProvider: json["CCxC"] }); // Cuentas por Cobrar x Cliente AmCharts.makeChart("chartdiv_cpxp", { ...chartconfig, dataProvider: json["CPxP"] }); // Cuentas por Pagar x Proveedor + // AmCharts.makeChart("chartdiv_indicadores", { ...chartconfig, dataProvider: json["Indicadores"] }); // Indicadores por Proveedor document.getElementById('amChartsAttribution').style.visibility = 'visible'; } diff --git a/General/RepIndicadorResumen.aspx.vb b/General/RepIndicadorResumen.aspx.vb index 64dd89557..f25a5be80 100644 --- a/General/RepIndicadorResumen.aspx.vb +++ b/General/RepIndicadorResumen.aspx.vb @@ -77,6 +77,20 @@ Partial Class General_RepIndicadorResumen ViewState("CPxP") = value End Set End Property + Private Property Indicadores As DataTable + Get + + If ViewState("Indicadores") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("Indicadores"), DataTable) + End If + + End Get + Set(value As DataTable) + ViewState("Indicadores") = value + End Set + End Property Private Property DtColor As DataTable Get @@ -126,7 +140,8 @@ Partial Class General_RepIndicadorResumen Dim ObjVentas As New ClsVentas Dim ObjCompras As New ClsCompras - Dim ObjMovtos As New ClsMovimientos() + Dim ObjMovtos As New ClsMovimientos + Dim ObjCitrus As New ClsCGame If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), MinFecha, MaxFecha, -1, -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=1) Then @@ -177,17 +192,28 @@ Partial Class General_RepIndicadorResumen CPxP = Nothing End If + If ObjCitrus.GetIndicadores(UsuarioActual.CveEmpresa) Then + + Indicadores = ObjCitrus.DtResultados + GvIndicadores.DataSource = Indicadores + Else + GvIndicadores.DataSource = Nothing + Indicadores = Nothing + End If + ObjVentas.Dispose() ObjCompras.Dispose() ObjMovtos.Dispose() + ObjCitrus.Dispose() GvVxP.DataBind() GvCxP192.DataBind() GvCxP.DataBind() GvCCxC.DataBind() GvCPxP.DataBind() + GvIndicadores.DataBind() - ' Mostrar gráficos solo si hay datos en su respectiva tabla + 'Mostrar gráficos solo si hay datos en su respectiva tabla If GvVxP.Rows.Count > 0 Then UPGraficaVxP.Visible = True Else @@ -213,8 +239,13 @@ Partial Class General_RepIndicadorResumen Else UPGraficaCPxP.Visible = False End If + 'If GvIndicadores.Rows.Count > 0 Then + ' UPGraficaIndicadores.Visible = True + 'Else + ' UPGraficaIndicadores.Visible = False + 'End If - ' Si no había datos en ninguna tabla no cargar función de gráficos + 'Si no había datos en ninguna tabla no cargar función de gráficos If (GvVxP.Rows.Count = 0 AndAlso GvCxP.Rows.Count = 0 AndAlso GvCxP192.Rows.Count = 0 AndAlso GvCCxC.Rows.Count = 0 AndAlso GvCPxP.Rows.Count = 0) Then Exit Sub GraficasPastel() 'GraficasBarras() @@ -247,6 +278,13 @@ Partial Class General_RepIndicadorResumen End If End If End Sub + Protected Sub GvIndicadores_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvIndicadores.RowDataBound + 'If e.Row.RowType = DataControlRowType.DataRow Then + ' If e.Row.DBCampo("Orden") = "" Then + ' e.Row.CssClass = "Totales" + ' End If + 'End If + End Sub Private Sub CreaDataTableColor() DtColor = New DataTable DtColor.Columns.Add("Color") @@ -447,6 +485,8 @@ Partial Class General_RepIndicadorResumen Next Dim query_cpxp = From s In DtCPxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} + 'TODO: Indicadores x Proveedor -- Determinar qué poner en la gráfica con E172 + 'Serializar datos agrupándolos en su respectivo DataTable, todos en un solo JSON Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CxP = query_cxp, .CxP192 = query_cxp192, .CCxC = query_ccxc, .CPxP = query_cpxp}) 'Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CCxC = New String() {}}) From 2d83db0b82d799afc879e4a9cc07451850d1b880 Mon Sep 17 00:00:00 2001 From: MLopez Date: Wed, 30 Nov 2022 14:12:10 -0700 Subject: [PATCH 6/8] =?UTF-8?q?E172=20Rep=20Indicador=20Resumen:=20Afinar?= =?UTF-8?q?=20informaci=C3=B3n=20de=20las=20tablas=20-Los=20saldos=20y=20t?= =?UTF-8?q?otales=20ahora=20se=20muestran=20como=20campos=20de=20moneda=20?= =?UTF-8?q?para=20distinguirlos=20mejor=20de=20las=20cantidades=20-El=20ti?= =?UTF-8?q?po=20de=20moneda=20por=20entrada=20ahora=20se=20visualiza=20en?= =?UTF-8?q?=20las=20tablas=20-Las=20tablas=20ahora=20se=20ordenan=20por=20?= =?UTF-8?q?subtotal=20y=20moneda=20o=20saldo=20y=20moneda=20-Las=20gr?= =?UTF-8?q?=C3=A1ficas=20ahora=20solo=20grafican=20el=20Top=2025=20de=20ca?= =?UTF-8?q?da=20tabla?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Cambios en BD [SIG_Resp_MLR]: - Se modificó PA_Citrus_IndicadoresGet - +2 param: @FechaI @FechaF - Ahora filtra por CveTipoProveedor = 192 (Productor) - Se modificó PA_Vta_GetRepPS + columna Abreviatura, los totales usan la Abreviatura ahora en vez de Moneda --- App_Code/ClsCGame.vb | 4 +- General/RepIndicadorResumen.aspx | 33 +++++++----- General/RepIndicadorResumen.aspx.vb | 83 +++++++++++++++++++++++------ 3 files changed, 92 insertions(+), 28 deletions(-) diff --git a/App_Code/ClsCGame.vb b/App_Code/ClsCGame.vb index 7622d3cae..25c25c7a7 100644 --- a/App_Code/ClsCGame.vb +++ b/App_Code/ClsCGame.vb @@ -3394,11 +3394,13 @@ Public Class ClsCGame #Region "INDICADORES" - Public Function GetIndicadores(CveEmpresa As Integer) As Boolean + Public Function GetIndicadores(CveEmpresa As Integer, FechaI As Date, FechaF As Date) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Citrus_IndicadoresGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF End With Try SqlAdapter.Fill(Data) diff --git a/General/RepIndicadorResumen.aspx b/General/RepIndicadorResumen.aspx index 1fb38f090..bbe65bf2a 100644 --- a/General/RepIndicadorResumen.aspx +++ b/General/RepIndicadorResumen.aspx @@ -127,7 +127,8 @@ - + + @@ -183,9 +184,14 @@ - + + + <%-- + --%> @@ -239,7 +245,8 @@ - + + @@ -294,7 +301,8 @@ AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"> - + + @@ -349,7 +357,8 @@ AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False"> - + + @@ -388,7 +397,7 @@
    - Indicadores por Proveedor + Indicadores por Proveedor Productor
    @@ -405,11 +414,11 @@ - - + + - - + +
    @@ -423,7 +432,7 @@
    - Indicadores - Gráfica + Indicadores por Proveedor Productor- Gráfica
    @@ -495,7 +504,7 @@ AmCharts.makeChart("chartdiv_cxp192", { ...chartconfig, dataProvider: json["CxP192"] }); // Compras x Producto ProveedorClasificacion 192 AmCharts.makeChart("chartdiv_ccxc", { ...chartconfig, dataProvider: json["CCxC"] }); // Cuentas por Cobrar x Cliente AmCharts.makeChart("chartdiv_cpxp", { ...chartconfig, dataProvider: json["CPxP"] }); // Cuentas por Pagar x Proveedor - // AmCharts.makeChart("chartdiv_indicadores", { ...chartconfig, dataProvider: json["Indicadores"] }); // Indicadores por Proveedor + // AmCharts.makeChart("chartdiv_indicadores", { ...chartconfig, dataProvider: json["Indicadores"] }); // Indicadores por Proveedor Productor document.getElementById('amChartsAttribution').style.visibility = 'visible'; } diff --git a/General/RepIndicadorResumen.aspx.vb b/General/RepIndicadorResumen.aspx.vb index f25a5be80..29e79f3e9 100644 --- a/General/RepIndicadorResumen.aspx.vb +++ b/General/RepIndicadorResumen.aspx.vb @@ -77,6 +77,22 @@ Partial Class General_RepIndicadorResumen ViewState("CPxP") = value End Set End Property +#If False Then + Private Property gv1 As DataTable + Get + + If ViewState("gv1") Is Nothing Then + Return New DataTable + Else + Return DirectCast(ViewState("gv1"), DataTable) + End If + + End Get + Set(value As DataTable) + ViewState("gv1") = value + End Set + End Property +#End If Private Property Indicadores As DataTable Get @@ -146,6 +162,8 @@ Partial Class General_RepIndicadorResumen If ObjVentas.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), MinFecha, MaxFecha, -1, -1, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoCambio:=1) Then VxP = ObjVentas.DtResultados + VxP.DefaultView.Sort = "CveMoneda,SubTotal DESC" + VxP = VxP.DefaultView.ToTable GvVxP.DataSource = VxP Else GvVxP.DataSource = Nothing @@ -155,6 +173,8 @@ Partial Class General_RepIndicadorResumen If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1, UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then CxP192 = ObjCompras.DtResultados + CxP192.DefaultView.Sort = "CveMoneda,SubTotal DESC" + CxP192 = CxP192.DefaultView.ToTable GvCxP192.DataSource = CxP192 Else GvCxP192.DataSource = Nothing @@ -164,6 +184,8 @@ Partial Class General_RepIndicadorResumen If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1, UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveTipoProveedor:=1) Then CxP = ObjCompras.DtResultados + CxP.DefaultView.Sort = "CveMoneda,SubTotal DESC" + CxP = CxP.DefaultView.ToTable GvCxP.DataSource = CxP Else GvCxP.DataSource = Nothing @@ -176,6 +198,8 @@ Partial Class General_RepIndicadorResumen "-1", "-1", "-1", FechaCorte:=FechaCorte.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then CCxC = ObjMovtos.DtResultados + CCxC.DefaultView.Sort = "CveMoneda,Saldo DESC" + CCxC = CCxC.DefaultView.ToTable GvCCxC.DataSource = CCxC Else GvCCxC.DataSource = Nothing @@ -186,15 +210,28 @@ Partial Class General_RepIndicadorResumen "-1", "-1", "-1", FechaCorte:=FechaCorte.ToDate, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then CPxP = ObjMovtos.DtResultados + CPxP.DefaultView.Sort = "CveMoneda,Saldo DESC" + CPxP = CPxP.DefaultView.ToTable GvCPxP.DataSource = CPxP Else GvCPxP.DataSource = Nothing CPxP = Nothing End If - If ObjCitrus.GetIndicadores(UsuarioActual.CveEmpresa) Then + 'If ObjCompras.GetRepProductosServicios(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, TxtFechaI.Text.Trim(), TxtFechaF.Text.Trim(), -1, -1, -1, + ' UsuarioActual.CveEmpresa, 5, -1, -1, "-1", "-1", -1, TipoCambio:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveProveedorClasificacion:=192) Then + ' gv1 = ObjCompras.DtResultados + ' GridView1.DataSource = gv1 + 'Else + ' GridView1.DataSource = Nothing + ' gv1 = Nothing + 'End If + + If ObjCitrus.GetIndicadores(UsuarioActual.CveEmpresa, TxtFechaI.Text, TxtFechaF.Text) Then Indicadores = ObjCitrus.DtResultados + Indicadores.DefaultView.Sort = "Saldo DESC" + Indicadores = Indicadores.DefaultView.ToTable GvIndicadores.DataSource = Indicadores Else GvIndicadores.DataSource = Nothing @@ -209,6 +246,7 @@ Partial Class General_RepIndicadorResumen GvVxP.DataBind() GvCxP192.DataBind() GvCxP.DataBind() + 'GridView1.DataBind() GvCCxC.DataBind() GvCPxP.DataBind() GvIndicadores.DataBind() @@ -259,8 +297,19 @@ Partial Class General_RepIndicadorResumen End Sub Protected Sub GvCxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("Orden") = "" Then + 'e.Row.Cells(0).Text = e.Row.DBCampo("Orden") + If e.Row.DBCampo("Orden") = "00ND" Then e.Row.CssClass = "Totales" + e.Row.Cells(0).Text = "Total " + e.Row.DBCampo("Abreviatura") + End If + End If + End Sub + Protected Sub GvCxP192_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCxP192.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + 'e.Row.Cells(0).Text = e.Row.DBCampo("Orden") + If e.Row.DBCampo("Orden") = "00ND" Then + e.Row.CssClass = "Totales" + e.Row.Cells(0).Text = "Total " + e.Row.DBCampo("Abreviatura") End If End If End Sub @@ -269,6 +318,8 @@ Partial Class General_RepIndicadorResumen If e.Row.DBCampo("Orden") = "" Then e.Row.CssClass = "Totales" End If + 'TODO: Sería mejor usar la Abreviatura de la tabla, pero habría que extender PA_Comp_RepCxP para incluir la columna Abreviatura + e.Row.Cells(2).Text = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {e.Row.DBCampo("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" End If End Sub Protected Sub GvCPxP_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCPxP.RowDataBound @@ -276,6 +327,8 @@ Partial Class General_RepIndicadorResumen If e.Row.DBCampo("Orden") = "" Then e.Row.CssClass = "Totales" End If + 'TODO: Sería mejor usar la Abreviatura de la tabla, pero habría que extender PA_Comp_RepCxP para incluir la columna Abreviatura + e.Row.Cells(2).Text = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {e.Row.DBCampo("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" End If End Sub Protected Sub GvIndicadores_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvIndicadores.RowDataBound @@ -377,7 +430,7 @@ Partial Class General_RepIndicadorResumen Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" Row("Valor") = Dr("SubTotal").ToString.FormatoNumero Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString - Row("Moneda") = Dr("Moneda").ToString + Row("Moneda") = Dr("Abreviatura").ToString DtVxP.Rows.Add(Row) RowColorIndex += 1 If RowColorIndex = 17 Then @@ -385,7 +438,7 @@ Partial Class General_RepIndicadorResumen End If End If Next - Dim query_vxp = From s In DtVxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} + Dim query_vxp = From s In DtVxP.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} 'Compras x Producto TipoProveedor=1 DtCxP.Reset() @@ -395,13 +448,13 @@ Partial Class General_RepIndicadorResumen DtCxP.Columns.Add("Moneda") RowColorIndex = 0 For Each Dr As DataRow In CxP.Rows - If Not Dr("Orden").ToString = "" Then + If Not Dr("Orden").ToString = "00ND" Then Dim Row As DataRow = Nothing Row = DtCxP.NewRow() Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" Row("Valor") = Dr("SubTotal").ToString.FormatoNumero Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString - Row("Moneda") = Dr("Moneda").ToString + Row("Moneda") = Dr("Abreviatura").ToString DtCxP.Rows.Add(Row) RowColorIndex += 1 If RowColorIndex = 17 Then @@ -409,7 +462,7 @@ Partial Class General_RepIndicadorResumen End If End If Next - Dim query_cxp = From s In DtCxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} + Dim query_cxp = From s In DtCxP.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} 'Compras x Producto ProveedorClasificacion=192 DtCxP192.Reset() @@ -419,13 +472,13 @@ Partial Class General_RepIndicadorResumen DtCxP192.Columns.Add("Moneda") RowColorIndex = 0 For Each Dr As DataRow In CxP192.Rows - If Not Dr("Orden").ToString = "" Then + If Not Dr("Orden").ToString = "00ND" Then Dim Row As DataRow = Nothing Row = DtCxP192.NewRow() Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" Row("Valor") = Dr("SubTotal").ToString.FormatoNumero Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString - Row("Moneda") = Dr("Moneda").ToString + Row("Moneda") = Dr("Abreviatura").ToString DtCxP192.Rows.Add(Row) RowColorIndex += 1 If RowColorIndex = 17 Then @@ -433,7 +486,7 @@ Partial Class General_RepIndicadorResumen End If End If Next - Dim query_cxp192 = From s In DtCxP192.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} + Dim query_cxp192 = From s In DtCxP192.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} 'Alert(Newtonsoft.Json.JsonConvert.SerializeObject(CCxC.Rows)) @@ -451,7 +504,7 @@ Partial Class General_RepIndicadorResumen Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" Row("Valor") = Dr("Saldo").ToString.FormatoNumero Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString - Row("Moneda") = Dr("Moneda").ToString + Row("Moneda") = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" DtCCxC.Rows.Add(Row) RowColorIndex += 1 If RowColorIndex = 17 Then @@ -459,7 +512,7 @@ Partial Class General_RepIndicadorResumen End If End If Next - Dim query_ccxc = From s In DtCCxC.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} + Dim query_ccxc = From s In DtCCxC.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} 'Cuentas por pagar x Proveedor DtCPxP.Reset() @@ -475,7 +528,7 @@ Partial Class General_RepIndicadorResumen Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" Row("Valor") = Dr("Saldo").ToString.FormatoNumero Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString - Row("Moneda") = Dr("Moneda").ToString + Row("Moneda") = $"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}" DtCPxP.Rows.Add(Row) RowColorIndex += 1 If RowColorIndex = 17 Then @@ -483,11 +536,11 @@ Partial Class General_RepIndicadorResumen End If End If Next - Dim query_cpxp = From s In DtCPxP.AsEnumerable() Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} + Dim query_cpxp = From s In DtCPxP.AsEnumerable().Take(25) Select New With {.Texto = s("Texto").ToString(), .Valor = s("Valor").ToString().ToDouble(), .Color = s("Color").ToString(), .Moneda = s("Moneda").ToString()} 'TODO: Indicadores x Proveedor -- Determinar qué poner en la gráfica con E172 - 'Serializar datos agrupándolos en su respectivo DataTable, todos en un solo JSON + 'Serializar datos agrupándolos por su respectivo DataTable, todos en un solo JSON Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CxP = query_cxp, .CxP192 = query_cxp192, .CCxC = query_ccxc, .CPxP = query_cpxp}) 'Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(New With {.VxP = query_vxp, .CCxC = New String() {}}) 'Alert(json) From 10ffcd0cee19de3bc570b9ddc087ad6c8d24b96a Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 30 Nov 2022 18:34:18 -0700 Subject: [PATCH 7/8] -- ws polizavirtual --- Ventas/Ventas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index c60c002ed..049dfe8cf 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -33452,7 +33452,7 @@ Partial Class Ventas End If ObjFactura.SetSubProyecto() - 'EnviarPolizaVentaWS(obj, CvePolizaVirtual, ObjFactura.SubProyecto.Acum_PortalUsuario, ObjFactura.SubProyecto.Acum_PortalContrasena) + EnviarPolizaVentaWS(obj, CvePolizaVirtual, ObjFactura.SubProyecto.Acum_PortalUsuario, ObjFactura.SubProyecto.Acum_PortalContrasena) End If Next From 643c0b71f6da33f41863e00a775708bb75b7271f Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 30 Nov 2022 18:34:40 -0700 Subject: [PATCH 8/8] tipomovto pago concepto 21 --- App_Code/ClsPaginas.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index aed6a7b25..51ad3ab9e 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9800,13 +9800,13 @@ Public Class ClsPaginas Dim Ret As New ConceptosRetenciones If Pago.CveMonedaPago > 1 Then 'Agregamos la Extranjera - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 266, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, 266, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProvComplementaria, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True Else 'Agregamos Nacional - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 21, Pago.Referencia, Concepto, CompraActual.IdCtaContableAnticipoProv, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True End If