From b145c8ec4545d600110be935e4ce59b9c4077359 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 4 Mar 2020 16:59:28 -0700 Subject: [PATCH 1/4] Validar cantidad para recibir por adelantado --- Compras/Compras.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 055ef4dc0..0867898eb 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -14661,7 +14661,7 @@ Partial Class Compras_Compras If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 And Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then Select Case DdlOCVinculaInv.SelectedValue.ToEntero Case 176 - DTOCGV = DTOCGV.FiltraParametros("(EstatusInventario IN (3,5) AND CveTipoPS = 2) OR CveTipoPS = 1") + DTOCGV = DTOCGV.FiltraParametros("((EstatusInventario IN (3,5) AND CveTipoPS = 2) OR CveTipoPS = 1) AND CantidadPorAdelantado > 0") Case 205 DTOCGV = DTOCGV.FiltraParametros("(EstatusInventario IN (1,2) AND CveTipoPS = 2) OR CveTipoPS = 1") End Select From aa41ccda3ef9a755c674a4525a6c30ba4050d6e3 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 4 Mar 2020 17:27:44 -0700 Subject: [PATCH 2/4] Bloquear fecha de compras para evitar edicion --- Compras/Compras.aspx.vb | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 0867898eb..5558e5e69 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1820,6 +1820,7 @@ Partial Class Compras_Compras 'PERMISO PARA MODIFICACIÓN DE FECHA AUN CON FACTURA TxtFecha.Enabled = UsuarioActual.TienePermisoProceso(216) ImgFecha.Enabled = UsuarioActual.TienePermisoProceso(216) + CEFecha.Enabled = UsuarioActual.TienePermisoProceso(216) TxtSubTotal.Enabled = False TxtDescuento.Enabled = False @@ -2758,7 +2759,11 @@ Partial Class Compras_Compras LbAgregar.Enabled = False TxtSerie.Enabled = False TxtFolio.Enabled = False + TxtFecha.Enabled = False + ImgFecha.Enabled = False + CEFecha.Enabled = False + DdlProveedor.Enabled = False DdlProveedorSucursal.Enabled = False DdlEstatus.Enabled = False From ecd290189b81dba6278c238e7e4f2fbe4f4dba2c Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 4 Mar 2020 17:45:39 -0700 Subject: [PATCH 3/4] Folio fiscal en formato de facturas para clientes --- .../FormatoClientes-Facturas.xlsx | Bin 9749 -> 10046 bytes 1 file changed, 0 insertions(+), 0 deletions(-) diff --git a/Empresas/Grales/SaldosIniciales/FormatoClientes-Facturas.xlsx b/Empresas/Grales/SaldosIniciales/FormatoClientes-Facturas.xlsx index 7ae092f2562945766f76d3c5b426dbac9b04e914..16ad9acae1ec3a010039c2f86acfbd84c3ac4653 100644 GIT binary patch delta 3855 zcmZ9Pc{tQv8^>pck+BZhGGmFEvW=KTw(KKW3Q<&c*|*4&u_k3#DoV

P#&biO|@-L(SPoZ^k4rnV(UzU%+aAh%}gT`D>H1nquM;I+!2-x<%Swcap>xr zhNoP=n_4RL3OT;>BD{jVmOjj%mCjP)rn)d;5Q;Hj6mm4+=uJQM+%C!#wGk#BeRC)+ zbCU##mha4b;H;W#h-zA>nh)>tPHJc(RI+XUn0@T#2;{8m!xbKwG_g0KElW;@)|vNf z?^n862US3`=al^gQe0sBZ9Xi1We=%prbjHD(-GDO1CBgpL;mQ{F9(8IujUqseV$GC z9*mfe2%2n1a3~ndWA6!>d1y6Fy8XN8uM;jQnk%)cp1P$CfH?o_7-IEw z8av&DC2m>}s?siuqU|TR_pG2-FRm-6#?Ws9&E5cVZ@@oPe>%~2;B)sNQZw13WnlS} z;zsUO(Oe^{ZTpCQ-$3>b?YP>Pe&qy*z`)Emz<^IBH|FMzT1DK* zy$uFs8QI-3y*&lZGrp>W1GAo!v>Rrn*ovVKzScU5erlswnwGCCD>|OnDw?nHdqjnu4t*kIO_2%^Vw(~?#rcet>2)V9K(Xn9)Fcw)XHQ0#O7glptZb+5P5 zL>UpWtzX&)f8fbYlg|*j|Om|==Bls01!&vT~&4x@OIi`3ZzZ2M0iM6ub zA|AYSd~%BI8!pKXYMJlyCIb!&afUL2uU6Q$j(sEW9)j_CG#u4qbmt)qShP(sHw_4s zM32wp;RkX|Z+VPKafBR0V71pU|4~`!I$vtqi^SC= zG2x%&_qKvtDO|Ypw-Q>2V*mo88=l0meG%rb4mw2^n0DZ%i7yZe&@&fkJ70BcBUyfZ4LM{485v)D$-&@ZzFz(*|{$L-icVMa9_SN;y8R=-ICp6!Wk zCpMc+jrZHUCo&E0jRfmBr#gGg!Vbb_IQOXL^cC+Fh0R<+g+CKAXznb z)eFXP>@@sPK&dN&Ed@f>j9R`TuAGXaO;<9+SoxOqd|6}7&C?*!7<*ICk-jS=5)nnf zN&kYa>BW>0WzRkBsvSi8gA-UjNwzXGBw1zs$Q$f%RbXN+@7*r&nR^iWax3WrL`U7wP6!CHdN_o8BE^l=^DQOXg zQ4{(sJ4o69V*rHV&2W-;lG2^@t@D8K>@EZoU2u|cWK(G##@eeRt>30#GW}~OvTET< zSS@36Zz0F0tHxr&CDxvW3x2f*pNs_`33u?w2-^t?D|%0@%SXLPoL*y9`j8Jzb8eA2 zi|aENBcyc%N_LVCrDPsdQof%S=utKj3#Zqi@D&i&$IA6kDZTy{4$1u5#=? z4@~iS7w=+8<+qmfVlemPJbdZT(XP9**Ie$q=lbo5)8;Xg8HcnkTHykFjqkY2$HXn%C=F z>uyYNovlx9Q61tk)BkSD&?N!Q|6Boj#c93T;=6Wm*GO1v_yXbUkCg26`-wyQ%3b(RT6-{ydPbjByUCCjv!C%U_xjJ1s8L@_s9H*+ z)0@Szn#3rAc1LjA?x>gT44ckxs#C?#-b#uRcK12Y0iH*UW%){3;1hqfP26ixU)>+IwLd@C%tT+!>d}SZRNUri%UIgg!WNuOT zf%7Wn+u~<7-d`m;5xZRz{3?q}H6i-WZz#RH5yQ70oK5gf&L7xM$8TeJI4db$Ip) z*P$K5M@uERUZ%&)Wwh22-uX7{`8)|$)jS#0ym5omVdj2Dyo&5^x7Bric@3iwBUyjP zU)+MzZR6RzK=Mt(_Sel!#{hQ7Hj}}un8b|t0-R)=`t-YqXAJR74!F(i`!y4n+0^ej z%SlT18(G!!UjoB-xZ8LW%5+$CilaM*!|gBzt5Lgm0%Pc+=_IYW%V1Di<>xj^Yptq< zPHzJnT^q*aL=-uT`Xs^{XmgSNVx`LPahBlZwTHSZr(G^JT@N~Nbxa$lp2V+hX(gN= z`Au1<=q4T^Zq3hic>Gl*yci0OCoyeRBlw{ZnBcXGExN}gyHlNu5CQ{+y3JA?kEWqi zjrPFonq1>6=+4&yq7Ok1eaSC|%)K4q#rUccc-`|9_#Ns$b z66qOKDYB(v~*OO8&w+>I-k%6xOeGcu13 z)?tR!mOk21km^4g?G<-05S>sv$W8R>8O>oPFHPN&<{hs~7^`_a`=j-j+xD-Ca$bg^ z$yl(McQ^KK=$n>Q#!}ir`Ag#WDbJtX7YCMWK_P$$#n*unhoowmDm{OE2^4nXlAf%l zifH+AGs&EUJ^kJ7GFd9~I;y>2CR=a%Z4>w5o!5DSkLRf9GbohPWp^?4s&-Z~?AlKK zITg)4=$~GsJqunftVRi*0Rv6$ z%)6OQ=_s-9^R8t3%W~w;k@82fhMRr{?F9tJGL;Q!#CP)wh7=yz=rhR6Tn|#>^|@l8 z_1Om@6J@ttpo=bkHpb)m+Rk<|w6kQskZ4MO*gI@xJY1Tu6&0y2R(05J`V z>!b*~rjxeYZnoG@faKjP4>%h&B%LL?HY~f5x38rf;N0kowTmi)%PAT(Cq@z)n%bH_ zURWMZY5rYnra_{H_7u<1G)D)k@s;P0nOP}uM^zS)vf(O~o{5)kQH51LyZO_8OwY66 z9=gj4b2*Co(c1&9B?p`t$(Goi@w@r{=Wp?!;+snA^@Qm!9gKcx>Uu%ZynX(*0KQ)+ znfYHoKfI?f2fj-fi65h5VL6tJzt;i`4+u*j|8c}15YOL-e*zvRd@c_!9)pG-djVdE zJu5yPg+~6r8~EqSDi{7MN&xx)8ud>Cz>B9vsY0p{cp?)T?{Z9O5SkZKgT#ySi%MM6 z1w$~$qDBXzKfZAq^f$N1Qpfhs8^=*SKi&*2jQrDo$;V*-vGeeMB`BW8uc3wLAgDjP F{{h7e?uGyW delta 3525 zcmZ9PcQ_mB7sq4P3aVm;8Zp}{wMR-y?A1^;s?0v&-4A94)b)=S_&g^5W-HTVUeK4Mlgep zQUo3l;RUd;XcWriI@FWi#e zGb8@0s~4)S)G)o+TM$ld7q9T0JW74m?tyI48f{Z8T7381W}VeuDseO?z0-Pal0+WvVKvT_AgRAU* zuKHRh>!m0m#(H8)({j`+<+TmP)>c|JjJM>RTR?Jww@j5k@~Z`tEOwQs^}8xdwDg*Z z9Nwg2yP_-?HW?oIG6L>j+V#^@2AZL+T{Mo`X=Z5k)EBJqP&H0f`wZK$iqkZqS&pdI zvIhze=!ZS~daj#lZ1foVoQ=6_b7xoI9x~^Ej1!H3xz+k%7A`f_$*z1tovxPm{0tjk zt^7$pN6A5+p11b=fHgG{g%##>E`XBY$E-+LgB!h`PQKd~)kt3f)w*xAG2pr>T9 z!8Bsepia()42%wy)2V&nD(KC1ul~wj>M!s>%5Mdodlm0y9E;4}t+~l{H~(?wpa?0i zH2U+>HQ_suvK?oV>5^yY^;}bfug%oiw&I5mv#2V=ELGTAk*U4umVsp^uyUXi=dzIo zxSpN8Ic|%1o(;raF7evp@JvQj8UTPBK-`kx!3L$6ne@tY;g0Pm-Tz6Hdd(EK!NVE7|;c{PUs5o0r3)36h6+C$#Kn*Ee~7tk>c2jN@D& zzW7%$YI}T}L#HD>lUG@+uI*dhqT-wHBJ^wgq#iTdu9Z;*y)x;{9f)6Sfh39M4?BM= z>@7@>%qR6p(U75ehtX8k8fMBx5pSh>Np(oBn5+Y9YNHw%J&)NC0CEDW?(tSJGtfgT zU7$k!IwhXX*gMIm>Z;P3pwc&&aZrX_aIox4DCaCNVrP~=b7}?LZB06H_ej_LwJSNh zqL--Hc_MaBTKnwpR4N_7(u9uwtOwO}Oyn*>S{mYQ2~Kh}2j(31l9e37hz1Kd6w@DX{NGcI&Oe0BGZUbr9Y0}QO4_?*NDt)^U@5<9eGWtIqoTlk;fqZ%bTzp zmElLwO%33|&3^WEgA8e=@7(py1TF?tn{PxrI&qcvV#}V#OXm zs%}c-mqoSrE2{P!pKc~xr%1ZCGd%Kj-Z3~w^TZ27V%dBz@Wkm7NA%GyWwOyR_`q)?ymx76}dE- zNq02JB*St6i>SZ`ApI(BaB`s9UZEj!!KCj&G$}SJ6mQs$*DbABkSB%{b?<4#MkVl% zIMu)_E;W%l@pAXq{H^Z#WoH`Jac9eqC8ed34B~Hzf*g>+TV=Jw!F?Mlz@s~U5{;&2 ztY2yKJ$6TnoVi6N-AGJrxW-&*L)TCt{ew)Utb|qQuwyd!lvs_V>Ws-RQW> z+4zc)-{O0#6wa-u(Ic7$M=&pr>0KIC_%;d+rhb@AIW60MVmL`J)Xn9~i=u^SG!k9%`}jeOWv`fDmu2 zfdYoL`(o9Cql21L`{8}jX;<$H2Mdx`6p=G-RiBfbcRxWN46a+T6j6@}jP~1&@MCjA zMZY~-YQw*_kM=vXM}^NQGH9Ze2!=7U}{Vv&QvNKVM!8X?(C zuQTcJtsdJN0e(TDO8mO&`67*_Vg3R0%dJp4^_`PVw$Hs&HTOlNI_C3nzZ6xvGSv5g zHiy6n*Eb3qFIC+HJwpYuenw*Jc>F)nMX1Uq#nfGy7eT#IUYzV2IhXV(V!?36LYC@f z+!SS|S!(la9P;X>$I3_~*Ydd(hfhy}ZXOqxbTcD1rVfQ@+w5CoxGK_0DGO=!Z5+-j z5-G+DzXI|zvN90-eUD%hV z@mma3-NA^Qy=ZmgSzMAMfv!7t$m&)HTgYA{3Z-W#iCV7ObRh-)aybP%U5{k-{ zFtl-k&}?+E95XZMse_Nik43B}X2x>g922Q{18EyoMhcD7bVlimX^5)}rhIwT1dUW= zyJBcLzo=xiV=)z-zBz{LP&6`Lw2)j6n#!$L7kuh^wA#z31!f-<-BOOi#yL%MSe*P` zXE|5RS5UfC<;GJ!-DHQ5D5%~pew$lUGFtPhq?z_`qvAyw%dhM9-XJ5b2QgSFTC&qU z09|sFwR+X|T*%;7Mh?j9TIzf+B$4c*TYqhA*kyl;`OXL?RTq}0d@42SisUwO zQ?Zd-H~v|B621$IGv$=sR&bWF$Xd<~IWexWLMf!Yx;!KH8L=5li9x*Itix%!s@Eb0 z-U9rwPan!oHIjobZWMOwtTjo`U(({jvsC8nqofT6;09E0d-&|`^1w!gyK|9tQ#FQ% z;N;n%k>ir29BW|^f48!tJli*V{|PwPwD6tMJ3&_AOccs%o4@fT_Z~~(MT)?kA$?54 z>NvtwtTkV&$w4Mh#5LJ!h&?r0C*fUl;vgsXSjFmE<)Ki0x#i5q&Nk>_Ip`pf!fBpt z>UuCW@|cnRxnNjy%HtUCiE8oWpAPMKy{nO9Weaq#2oW%$8qyMwV;D5sDe}jMC_N-^9 zszdvTji?~0daRRhJVd6MghFB@d`Iqj9r; E3(HYr#sB~S From 205efd715c4f98f69ced09b2300fc84d50b74883 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 4 Mar 2020 18:55:53 -0700 Subject: [PATCH 4/4] Personalizar columnas en reporte de compras y su detalle --- Compras/RepCompras.aspx | 1069 +++++++++++++++-------------- Compras/RepCompras.aspx.vb | 58 +- Compras/RepComprasDetalle.aspx | 991 ++++++++++++++------------ Compras/RepComprasDetalle.aspx.vb | 66 +- 4 files changed, 1190 insertions(+), 994 deletions(-) diff --git a/Compras/RepCompras.aspx b/Compras/RepCompras.aspx index 6e8dcf909..27dd1c5b4 100644 --- a/Compras/RepCompras.aspx +++ b/Compras/RepCompras.aspx @@ -1,137 +1,144 @@ -<%@ Page Title="Reporte de Compras" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepCompras.aspx.vb" Inherits="Compras_RepCompras" %> - - - - - - - - - - Reporte de Compras - - -

  • - PDF -
    • -
  • - Excel -
    • -
  • -
    Personalizar
    -
    • -
  • - Ver Dlls en pesos -
    • - + }*/ + + /* 29/05/2018 - ListBoxs */ + .select2 .select2-selection__rendered { + line-height: 1; + color: #111; + } + + .select2 .select2-selection--multiple { + box-sizing: border-box; + cursor: pointer; + display: block; + min-height: 20px; + user-select: none; + -webkit-user-select: none; + } + + .select2-container--default .select2-selection--multiple .select2-selection__choice { + margin-top: 10px; + } + + .select2-selection__rendered { + margin-top: 0px; + height: 25px; + } + + .select2-selection { + margin-top: 0px; + height: 31px; + } + + .select2-container--default.select2-container--focus .select2-selection--multiple { + border: none; + outline: 0; + } + + #chartdiv { + width: 100%; + height: 500px; + } + + + + + + Reporte de Compras + + +
  • + PDF +
    • +
  • + Excel +
    • +
  • - Ver Grafica + Personalizar
    • -     -     - - - -
    -
    -
    - - -
    -
    -
    -
    Proveedor:
    -
    - + +
  • + Ver Dlls en pesos +
    • + + +
  • + Ver Grafica +
    • +     +     + + + + +
    +
    +
    + + +
    +
    +
    +
    Proveedor:
    +
    + <%-- - --%> -
    -
    + --%> +
    +
    Fecha Inicio: -
    -
    -
    - - - - -
    - - - - - - -
    -
    + +
    +
    +
    + + + + +
    + + + + + + +
    +
    Fecha Fin: -
    -
    -
    - - - - -
    - - - - - - -
    -
    Grupo:
    -
    - + +
    +
    +
    + + + + +
    + + + + + + +
    +
    Grupo:
    +
    + <%-- @@ -143,443 +150,473 @@ - --%> - -
    -
    -
    -
    - +
    + -
    - - -
    - - - - - - + --%> + +
    +
    Tipo Docto:
    +
    + + + + + + + +
    +
    +
    +
    +     +     +
    + + + + + + Grupo - - - - - - - + + + + + + + + Cantidad - - - - - - - + + + + + + + + Sub Total - - - - - - - - + + + + + + + + + Descuento - - - - - - - - + + + + + + + + + Amortización - - - - - - - - + + + + + + + + + IVA - - - - - - - - + + + + + + + + + + IEPS + + + + + + + + + Ret. IVA - - - - - - - - + + + + + + + + + Ret. ISR - - - - - - - - + + + + + + + + + Total - - - - - - - - + + + + + + + + + Sub. Máximo - - - - - - - - + + + + + + + + + Sub. Promedio - - - - - - - - + + + + + + + + + Sub. Mínimo - - - - - - - - + + + + + + + + + Tot. Máximo - - - - - - - - + + + + + + + + + Tot. Promedio - - - - - - - - + + + + + + + + + Tot. Mínimo - - - - - - - + + + + + + + + <%-- - --%> - - - - - - - - - - - - - - - - - - - + + + + + +     + + + + + + + + - + + diff --git a/Compras/RepCompras.aspx.vb b/Compras/RepCompras.aspx.vb index 3173f899a..7b9864e11 100644 --- a/Compras/RepCompras.aspx.vb +++ b/Compras/RepCompras.aspx.vb @@ -130,7 +130,8 @@ Partial Class Compras_RepCompras DdlGrupo.Items.Add(New ListItem("Tipo Gasto", "15")) End Sub - Private Sub CargaCombos() + Private Sub CargaCombos() + txtFechaI.Text = $"01/01/{Now.Year}" 'CargaProveedores DdlProveedores.setEsWebService(True) DdlProveedores.Attributes.Add("data-metodo", "getproveedores") @@ -169,12 +170,9 @@ Partial Class Compras_RepCompras Private Sub ConfiguraEmpresa() - 'Dim ObjEmpresa As New ClsEmpresas() - 'If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then - If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(6).Visible = False - If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(7).Visible = False - 'End If - 'ObjEmpresa.Dispose() + ChkIVA.Checked = True + If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False + If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False End Sub Private Sub CargaSubProyecto() @@ -211,11 +209,13 @@ Partial Class Compras_RepCompras CargaDatos() ConfiguraEmpresa() UPDatos.Update() + UPPersonalizar.Update() End Sub Protected Sub BtnTipoCambio_Click(sender As Object, e As EventArgs) CargaDatos() ConfiguraEmpresa() UPDatos.Update() + UPPersonalizar.Update() End Sub Private Sub CargaDatos() Dim ObjCompras As New ClsCompras() @@ -304,61 +304,73 @@ Partial Class Compras_RepCompras If e.Row.DBCampo("AVG_Total").ToDouble = 0 Then e.Row.FCLiteral("LtlAVGTotal").Text = "" If e.Row.DBCampo("MIN_Total").ToDouble = 0 Then e.Row.FCLiteral("LtlMinTotal").Text = "" End If - End Sub - + End Sub + #End Region - + #Region "PERSONALIZAR" + + Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click + If ChkIVA.Checked Then + GvDatos.Columns(5).Visible = True + Else + GvDatos.Columns(5).Visible = False + End If - Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click - If ChkRetIVA.Checked Then + If ChkIEPS.Checked Then GvDatos.Columns(6).Visible = True Else GvDatos.Columns(6).Visible = False - End If - - If ChkRetISR.Checked Then + End If + + If ChkRetIVA.Checked Then GvDatos.Columns(7).Visible = True Else GvDatos.Columns(7).Visible = False End If - If ChkMinSub.Checked Then - GvDatos.Columns(9).Visible = True + If ChkRetISR.Checked Then + GvDatos.Columns(8).Visible = True Else - GvDatos.Columns(9).Visible = False + GvDatos.Columns(8).Visible = False End If - If ChkAVGSub.Checked Then + If ChkMinSub.Checked Then GvDatos.Columns(10).Visible = True Else GvDatos.Columns(10).Visible = False End If - If ChkMaxSub.Checked Then + If ChkAVGSub.Checked Then GvDatos.Columns(11).Visible = True Else GvDatos.Columns(11).Visible = False End If - If ChkMinTot.Checked Then + If ChkMaxSub.Checked Then GvDatos.Columns(12).Visible = True Else GvDatos.Columns(12).Visible = False End If - If ChkAvgTot.Checked Then + If ChkMinTot.Checked Then GvDatos.Columns(13).Visible = True Else GvDatos.Columns(13).Visible = False End If - If ChkMaxTot.Checked Then + If ChkAvgTot.Checked Then GvDatos.Columns(14).Visible = True Else GvDatos.Columns(14).Visible = False End If + If ChkMaxTot.Checked Then + GvDatos.Columns(15).Visible = True + Else + GvDatos.Columns(15).Visible = False + End If + UPDatos.Update() End Sub diff --git a/Compras/RepComprasDetalle.aspx b/Compras/RepComprasDetalle.aspx index f00545904..a2cbbff15 100644 --- a/Compras/RepComprasDetalle.aspx +++ b/Compras/RepComprasDetalle.aspx @@ -1,172 +1,183 @@ -<%@ Page Title="Reporte de Compras Clasificación" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComprasDetalle.aspx.vb" Inherits="Compras_RepComprasDetalle" %> - -<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> - - - <%----%> -
  • - Generar PDF -
    • -
  • +<%@ Page Title="Reporte de Compras Clasificación" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComprasDetalle.aspx.vb" Inherits="Compras_RepComprasDetalle" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + <%----%> +
  • + Generar PDF +
    • + +
  • Exportar Excel - -
    • -
  • + +
    • +
  • Imprimir Remesa - -
    • -
  • - Ver Dlls en pesos -
    • - - -
  • - Ver Grafica -
    • -     -     -     - - Reporte de Compras Detalle - - - - - - - - - - -
    -
    -
    - - -
    -
    -
    -
    Proveedor:
    -
    - + + + + +
  • + Personalizar +
    • +     +     +
  • + Ver Dlls en pesos +
    • + + +
  • + Ver Grafica +
    • +     +     + + + Reporte de Compras Detalle + + + + + + + + + + +
    +
    +
    + + +
    +
    +
    +
    Proveedor:
    +
    + <%-- - --%> -
    -
    + --%> +
    +
    Fecha Inicio: -
    -
    -
    - - - - -
    - - - - - - -
    -
    + +
    +
    +
    + + + + +
    + + + + + + +
    +
    Fecha Fin: -
    -
    -
    - - - - -
    - - - - - - -
    -
    Grupo:
    -
    - + +
    +
    +
    + + + + +
    + + + + + + +
    +
    Grupo:
    +
    + <%-- @@ -178,334 +189,408 @@ - --%> - -
    -
    -
    -
    - +
    + -
    - - -
    - - - - - - + --%> + +
    +
    Tipo Docto:
    +
    + + + + + + + +
    +
    +
    +
    +     +     +
    + + + + + + Fecha - - - - - - - + + + + + + + + Serie/Folio - - - - - - - + + + + + + + + Cant. - - - - - - - + + + + + + + + SubTotal - - - - - - - + + + + + + + + IVA - - - - - - - + + + + + + + + + IEPS + + + + + + + + Descuentos - - - - - - - + + + + + + + + Total - - - - - - - + + + + + + + + Moneda - - - - - - - - + + + + + + + + + Proveedor - - - - - - - + + + + + + + + Folio Inv - - - - - - - + + + + + + + + Fecha Movimiento - - - - - - - - - - - - - + + + + + + + + + + + + + +     + + + + + + + + + - + + diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb index ada9dcb43..db2c11126 100644 --- a/Compras/RepComprasDetalle.aspx.vb +++ b/Compras/RepComprasDetalle.aspx.vb @@ -159,6 +159,16 @@ Partial Class Compras_RepComprasDetalle End If DdlTipoProveedor.SelectedValueExist(CveTipoProveedor) DdlTipoDocto.SelectedValueExist(TipoDocto) + + ChkIVA.Checked = True + ChkIEPS.Checked = True + ChkDesc.Checked = True + ChkTotal.Checked = True + ChkAbre.Checked = True + ChkRazon.Checked = True + ChkFolio.Checked = True + ChkFecha.Checked = True + End Sub Private Sub CargaGrupo() @@ -582,11 +592,63 @@ Partial Class Compras_RepComprasDetalle Protected Sub DdlVer_SelectedIndexChanged(sender As Object, e As EventArgs) CambioGrafica() - End Sub - + End Sub + #End Region + + Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click + If ChkIVA.Checked Then + GvDatos.Columns(4).Visible = True + Else + GvDatos.Columns(4).Visible = False + End If + If ChkIEPS.Checked Then + GvDatos.Columns(5).Visible = True + Else + GvDatos.Columns(5).Visible = False + End If + + If ChkDesc.Checked Then + GvDatos.Columns(6).Visible = True + Else + GvDatos.Columns(6).Visible = False + End If + + If ChkTotal.Checked Then + GvDatos.Columns(7).Visible = True + Else + GvDatos.Columns(7).Visible = False + End If + If ChkAbre.Checked Then + GvDatos.Columns(8).Visible = True + Else + GvDatos.Columns(8).Visible = False + End If + If ChkRazon.Checked Then + GvDatos.Columns(9).Visible = True + Else + GvDatos.Columns(9).Visible = False + End If + + If ChkFolio.Checked Then + GvDatos.Columns(10).Visible = True + Else + GvDatos.Columns(10).Visible = False + End If + + If ChkFecha.Checked Then + GvDatos.Columns(11).Visible = True + Else + GvDatos.Columns(11).Visible = False + End If + + UPDatos.Update() + End Sub + + + End Class