From 0b155c3904c05d912e1d76000c442ed0e3475e3e Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Wed, 25 Mar 2020 00:45:53 -0700 Subject: [PATCH 1/3] LibreriaRDLC --- Bin/ADSReportLib.dll | Bin 0 -> 6656 bytes Bin/ADSReportLib.pdb | Bin 0 -> 13824 bytes 2 files changed, 0 insertions(+), 0 deletions(-) create mode 100644 Bin/ADSReportLib.dll create mode 100644 Bin/ADSReportLib.pdb diff --git a/Bin/ADSReportLib.dll b/Bin/ADSReportLib.dll new file mode 100644 index 0000000000000000000000000000000000000000..d1edd2a163033d63d796a6c4267c1177f5de4a65 GIT binary patch literal 6656 zcmeHLYiu0V6+Scj@Me>2;th5l#4ve4lR%cWV;+GJY-gQh!FG(-adr3aZp96;j2YN>B;ozoH?(1?z!il` zo!KxxWw}PhkwwQW89B3DmY$InhEpvYR@q1$$QUJ=7m4M|qnm4{M+b?9v;e&vId(_A zwRdQvu~bVE#lZ>t-05z-4Lp5#h*m0G_x)xD`>)CzAoyGY)b{|Z^1u16k<3Eb47&#y z=_7iK195ISOtcKV_bww^f3ED)XoD!yB9DOH-$ExmG2?;$d^-SSs;@P_L8)R89Zoo| zlLMuE>jT0aJr7Sy>4WzPN7xdI>?<9{!?xDoX(@d~11+RNZ{oP3ux~nr$lgdax12~* z+TVkgI@?t;-!ixMHuuG@H%446ih1IqKcnF^6 zB6`tf5eIlBATI&oz)nS8%39k2I%NWI3z9!7F(G}k5s9RUD&Lp-4Y&EeIxT$&bUqPS z{e;`YHFp4@rGd=#16nP!I8Ud063N8n$t!!V1i`rnIEDP)bPv&+c%Q=D-<0tjt6X$h zUe4iMv~}5Z3iKDphAd` znjVl7%aC>i7m24L%j*xz;fA6EcoSU_U>Pq;ztbobru~>QVcMeoD!78K3o(CGI~fSm z&lUW(f|u#c`Mbi;Q+QF~yR>(MVOpo)eTp*>t^}g=z2Irs#8MoJQc>aOQI(?fpu%@5 z{7d@jP>g;_8SsBXtUsda9t)jDt$V{P{aTo%_X7{pMhtJ1z7b&j5?T#^zM?bdN8m*1 zB4zn1SPoNvFby~Y$fZv~9y85YNzVr-=~~9|`*QdXfM2CQ(x|~oUs&@RdZW=RK1I{| zpF!>3pk#D&a2!^T)Tm@=ik8#K2K6DWpzr!rbNGEh&>5c|;`1DFh zr#5nw=1vT@PH!uljB8Xu3TSj#@$Xgmx3Dg}7Sxa{+~2i;QQ8W)lDZY#sbIf?X$5ao z@MZ-~zz(t$ewTtL0mC$_;E5W1Hq?Rsg`s(Z_5~Q`!VJHo;CqVmn9?~GUPou?PnZdB zQ6#`{1pKqKA$%crg4cpcY!zqqYr!`{`>=mqgSO7n`#M7&lb4}01^&Y%=?$gx27RF4 zLrb(J;rr+VDh3{ePCfKqGu^M$79)ACP83O8|92z zfogkbjr&_Vi`+O@FVm<)yV7OLvrOB%TkOtGPWDVDDLq)OmV{$wZE?7p`g5Ko%Ru%> z+ZJ^qJ!H8an7f8$zG{ozl$musQA(r_)UlN5nbe=kjERbLydf(~B{wG>8%RyJY0ypV z6J_C8IqJ{nX;-G2byTfUN9Kgxxp=o*lQmR@DaEG4rBiI!BsT>Y}~yV?sDCg1u0*W!ABZQ;Uj96|+3stTR?Edk8AG ziFUGP@o$((8XNwKJW zuXF~@+!XSr;0Sk0+4t2)O>at>Z6O!Q&;!{!k^M+_Vb4qJMBcW2ucqYDTcj*utUO2B z2g7~NQb1E zZ-gi%3Kq|BG@(KVCsQ(q`Cayg&B{R4^I9aMIIDOyUS3RFIl-nEYmO?k#}=kj8?G^d zymn|Dmx3BPCd$ll{a3@C=8PVkh70@6avsy~+!p-dkVi2m(7l>;!V*V8?5*1NxKnk} z5HBp#J~xr`B%JXVp_FA7%hL6%oLgtr@-vYx!=S8Wgu}gCAg-?m4LPS_bCGd*eQG8B zWdUi+dEqLz2g|%l@W47{(@vMnA_R>I;L=e)&(ZY4RZhjE-@$RQK303Ja=w;OP3GVX z_q@sW9ATDR8n$wdbY;Oy_@RMYi9;fb%wI(4N3$tsYo=B9U2S9*ycAvw<>$0Nwrtn* zXxMbzDbpU9Me6!CB$_*DmFeimC- zM~Y1H@QmZhV%HOdbNcc$<#E0{MoBu3;}cUvPuZ()`2EHe*FTmI-}wHot>-9cXj&v- zkQM^c-p*uAX$!-G1vWyY$71Wb;oIAk@wvw%Kfe36iM74&oQ#~j|MoL;bEh8(gya2q z(s3iC#bSO>eBX7|kjeGa3QdOzU5i^xbj5;Oz>jFPJO2fIL>|{W4>@LKM3x6T1yQ&mHX=Et|K+Q%D_AR^xEn*gcG2JYyI=$sXLlwraFFyR)~ux6sqGy&LcC zy~#py`&H(S{PyI|TtQq>$oF2}je%Q+!%sJ^SNP#T+&uTxzq4@r>%opd9KjuYER)I@ zeXn;u{dT_pfsI|SJ}~&?#at_O^=)tvXBF(aE~7YzIHohpsGn0{dH1)RVceiCqy#(<^qrELUs8gQ@w)s21@ z{Od>lxtv?z;=ix+2@2xv&y^YjuM{2)R!zcghT9acUuk>+D&Q8wWwWX^4yg&Q3puZL z7NqsBL_Y|A6Gk=oH)}f|Gdtk4GpFnLa(yC>`O}i

kTT|)PRPYgQIkf7Yr(nUQobsbG&(D7JG=s~zR33IqupcT%zm% literal 0 HcmV?d00001 diff --git a/Bin/ADSReportLib.pdb b/Bin/ADSReportLib.pdb new file mode 100644 index 0000000000000000000000000000000000000000..9b46fdb6d3bcc1f3cbd0d1cab728f97fadb0e46d GIT binary patch literal 13824 zcmeHNTWnNC7@kw=(v}uj)Pg8vgP=vq?o!&KtpcT`QfNgfifE@5pc)9KyW63=xpx;tG=3g#Jjgs3~k(B^v)M+H@tcB=O4U# zSE>B8w_be2+jqqK*&TRMC~5obROOtJZST+QcY|`_{7` zU4LW!nN7jh5A#In(gcaXDg87zI6<22HuEwgaPIeWzjNph(N9Z5S5r%8G?lgoLMbNO zqrJ&cawn6U>?ab*Gzto2S_fmX&B?)3S}8vjwRhM_e>f#Xq@gPmNg2;b#MwjvhVxjlJ4)a05uQq{be7k>(-P@W-4qzV;Wz^~1$t_0A&!zp%iCD}Ir=y8@ z%73pNx0BJZnB|bSgwi3H<8CTz?{C{E&eLg+#-F5)({8iKfK{&34pv9qO8Q1?yU)`*n+c z7;r2NVM2RqOPMbZ@lf;f;^$d|?*Fjv|1I!us1*JGUe_(|&Ml&qz1`h4 z-N8$mYk$J|UR{BOo|t{A3}w4?`79wamZC2%ni^D|QioC9nE-URFb z;`?W2D-hpAGkliK2bPN4MTMva*MR++mjjoA>%aj~irtUxih)B!)B{}UHp^rF=yQN)y z){gB_YtxeZFAY&W$3W6O&~Fv%W!tE$)}JNJy3E(zfOs(GyTEFlSlP9Qc_*F*lQ6y+ zjzKdJ^Fp)&>3$6_3H+bnzGR>?8X}Lc1hk?#l6Gz6Z?y>;)eHe+@nXrco7m zHMk#~0UrQ=4R+u67@)~Zywjaq8u){AW*sIW=DD0>J2hg8$UOE&iP&=_E{1@zsK$f3 z{G`SvUCtK@>K)X0SmSRduk~Nm_?#{e={&LpX*~G_#$0F)Ds1nQZFi_&kSuJk`hJ0t zqrl2!w=PHNl}qMzS2-@u`5#rD6OWPdp?viivhj*b##0zoUXD^e1Gp!1|HN}c?tzVFad*3cF=kh-Ad*C7Pw_uk>kH9Rkh(`^$XPJIaFfLDDjwdz9`%OnOV? z&S|taHcF;#aHy!%Hv6QFeo=Agt8%T6!^eEBkHa_W$b0E<*eSWTtIgTP#<5d!ZHL3% zZMwc=(r)aR0n@7ON^#$M@ZdmNtpx_+MLEiwM#-}q7b+RvRlGpe!a z$3R-69iknvQ##6aCd$Vm^K2MP?v_vd2n6q%_9N_P8shp%pFF)jCU2hH^?X2@or+Y(=KJai`bKIggj-u z8!-0*PL(1YdMc;@EfZ_Lzn37cBvVG@eU0)~__JQ2|NnXs9s;;jf4nW;mk@z?XaE<# zfmAXa=(j_-aPEyI!jG$hzG%!&1^&~od>-AO1|W$?R7RdRdX$lHi_F`zY}DQVQe#vK z(R2uX;NxH%BSivpiAXvI&VakXRp4Sw<`a-}4HW}%WR>q^j6T-~_XaZ}*h}On@Q$q< n%sqv5%>eVv$ Date: Wed, 25 Mar 2020 00:46:18 -0700 Subject: [PATCH 2/3] --- App_Code/ClsPaginas.vb | 59 ++++++++++++++++++++++++++++++++++-------- 1 file changed, 48 insertions(+), 11 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 251ad2993..1189f9541 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1753,7 +1753,7 @@ Public Class ClsPaginas If CveEstatus > 0 Then Str.AppendFormat("AND CveEstatus = {0}", CveEstatus) Dim Dv As New DataView(DirectCast(Application("GlobalDTAlmacenUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) - GlobalDTAlmacenUsuarios = Dv.ToTable + GlobalDTAlmacenUsuarios = Dv.ToTable Dv.Dispose() @@ -5086,30 +5086,66 @@ Public Class ClsPaginas lrds.Add(rds) Return StreamPDF(RutaReporte, lrds, Parametros, NombreArchivo, Formato, MR) End Function + 'Public Function StreamPDF(RutaReporte As String, DataSource As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional MR As ReportViewer = Nothing) As Byte() + ' 'limpio ReportViwer + ' Dim sw As New System.Diagnostics.Stopwatch() + ' sw.Start() + + ' If IsNothing(MR) Then MR = New ReportViewer + ' Dim Bytes As Byte() = Nothing + ' Try + ' ' MasterReporteador.LocalReport.DataSources.Clear() + ' For Each RDS As ReportDataSource In DataSource + ' MR.LocalReport.DataSources.Add(RDS) + ' Next + + ' MR.LocalReport.ReportPath = RutaReporte + ' MR.ProcessingMode = ProcessingMode.Local + ' MR.LocalReport.EnableExternalImages = True + ' MR.LocalReport.SetParameters(Parametros) + ' MR.LocalReport.Refresh() + ' Dim Warnings As Warning() = Nothing + ' Dim StreamIds As String() = Nothing + ' Dim MimeType As String = Nothing + ' Dim Encoding As String = Nothing + ' Dim Extension As String = Nothing + ' Bytes = MR.LocalReport.Render(Formato, Nothing, MimeType, Encoding, Extension, StreamIds, Warnings) + ' Catch ex As Microsoft.Reporting.WebForms.ScriptManagerNotFoundException + ' GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, 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"))} - Ruta {RutaReporte}") + ' 'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017 + ' 'GuardaLog($"Error: {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}") + ' Catch ex As Exception + ' GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, 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"))} - Ruta {RutaReporte}") + ' 'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017 + ' 'GuardaLog($"Error {ex.InnerException.Message} | Descripcion: {If(ex.InnerException.InnerException IsNot Nothing, ex.InnerException.InnerException.Message, "Sin descripcion")} - Ruta {RutaReporte}") + ' End Try + + ' sw.Stop() + ' If sw.Elapsed.TotalSeconds > 10 Then + ' GuardaLog($"Reporte:{RutaReporte} | Tiempo Renderizado Milisegundos: {sw.ElapsedMilliseconds},Total Segundos: {sw.Elapsed.TotalSeconds} ") + ' End If + + ' Return Bytes + 'End Function + Public Function StreamPDF(RutaReporte As String, DataSource As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional MR As ReportViewer = Nothing) As Byte() 'limpio ReportViwer Dim sw As New System.Diagnostics.Stopwatch() sw.Start() - If IsNothing(MR) Then MR = New ReportViewer Dim Bytes As Byte() = Nothing Try - ' MasterReporteador.LocalReport.DataSources.Clear() + Dim fllreport As New ADSReportLib.FullTrustReportviewer() + fllreport.Initialize("DisplayName", RutaReporte, Parametros, New List(Of String()), True) For Each RDS As ReportDataSource In DataSource - MR.LocalReport.DataSources.Add(RDS) + fllreport.AddDataSources(RDS) Next - - MR.LocalReport.ReportPath = RutaReporte - MR.ProcessingMode = ProcessingMode.Local - MR.LocalReport.EnableExternalImages = True - MR.LocalReport.SetParameters(Parametros) - MR.LocalReport.Refresh() Dim Warnings As Warning() = Nothing Dim StreamIds As String() = Nothing Dim MimeType As String = Nothing Dim Encoding As String = Nothing Dim Extension As String = Nothing - Bytes = MR.LocalReport.Render(Formato, Nothing, MimeType, Encoding, Extension, StreamIds, Warnings) + Bytes = fllreport.Render(Formato, Nothing, MimeType, Encoding, Extension, StreamIds, Warnings) Catch ex As Microsoft.Reporting.WebForms.ScriptManagerNotFoundException GuardaLog($"Error: { If(ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, 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"))} - Ruta {RutaReporte}") 'HAY QUE VALIDAR QUE LOS OBJETOS QUE SE USAN PARA GUARDAR LOG EXISTEN!!! IPP 14 AGOSTO 2017 @@ -5127,6 +5163,7 @@ Public Class ClsPaginas Return Bytes End Function + Public Function ImprimirPDFCrystal(RutaReporte As String, DataSource As DataTable, Parametros As List(Of CrystalParametro), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional MR As ReportDocument = Nothing) As Byte() 'limpio ReportViwer Dim sw As New System.Diagnostics.Stopwatch() From 332e31d5a0f5a304c8dcd41d13d67630a07903b4 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 25 Mar 2020 09:41:57 -0700 Subject: [PATCH 3/3] Validacion de salida de almacen --- Ventas/Ventas.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 93b3b113b..82a92f023 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6724,7 +6724,7 @@ Partial Class Ventas End If End If - If GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 AndAlso ddlAlmacen.SelectedValue.ToEntero() <= 0 Then + If DivAlmacen.Visible AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Dev") AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 AndAlso ddlAlmacen.SelectedValue.ToEntero() <= 0 Then Alert("Tiene que seleccionar un almacén para la salida de almacén", TipoMensaje.MsgAdvertencia) Exit Sub End If @@ -11010,7 +11010,7 @@ Partial Class Ventas Next End If - If GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then + If DivAlmacen.Visible AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then Dim Filtro As String = "" Select Case factura.TipoDocto