AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2022-05-02 18:44:05 -07:00
parent 7d3ee86dac
commit 6f6a0a5dbe
5 changed files with 43 additions and 190 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
App_Code/ClsPaginas.vb
View File

@@ -6356,20 +6356,6 @@ Public Class ClsPaginas
Try Try
bytes = bytes bytes = bytes
'Response.Clear()
'Response.ContentType = "application/pdf"
'Response.Cache.SetCacheability(HttpCacheability.Private)
'Response.Expires = -1
'Response.Buffer = True
''Uncomment to handle the file as attachment
'Response.AddHeader("Content-Disposition", String.Format("inline; filename={0}.{1}", NombreArchivo, If(Formato = "PDF", "pdf", "xls")))
''Response.BinaryWrite(bytes)
'bytes = Nothing
'Response.End()
Response.Buffer = True Response.Buffer = True
Response.Clear() Response.Clear()
If Formato = "PDF" Then If Formato = "PDF" Then
@@ -6380,9 +6366,9 @@ Public Class ClsPaginas
Response.AddHeader("content-disposition", String.Format("{0}; filename={1}.{2}", Content_Disposition, NombreArchivo, If(Formato = "PDF", "pdf", "xls"))) Response.AddHeader("content-disposition", String.Format("{0}; filename={1}.{2}", Content_Disposition, NombreArchivo, If(Formato = "PDF", "pdf", "xls")))
Response.BinaryWrite(bytes) ' create the file Response.BinaryWrite(bytes) ' create the file
Response.Flush() ' send it to the client to download Response.Flush() ' send it to the client to download
bytes = Nothing
HttpContext.Current.Response.SuppressContent = True HttpContext.Current.Response.SuppressContent = True
HttpContext.Current.ApplicationInstance.CompleteRequest() HttpContext.Current.ApplicationInstance.CompleteRequest()
bytes = Nothing
'HttpContext.Current.Response.End() 'HttpContext.Current.Response.End()
Catch ex As Exception Catch ex As Exception

15
Compras/PopUpVerFactura.aspx.vb
View File

@@ -343,7 +343,7 @@ Partial Class PopUpVerFactura
lrds.Add(rds) lrds.Add(rds)
'"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Manifesto") ImprimirPDF("GPS/EmbarqueManifiesto.rdlc", lrds, params, "Manifesto", Content_Disposition:="Inline")
End Sub End Sub
Private Sub imprimirManifiestoRemision(cveEmbarqueManifiesto As Integer) Private Sub imprimirManifiestoRemision(cveEmbarqueManifiesto As Integer)
@@ -373,6 +373,7 @@ Partial Class PopUpVerFactura
Dim TotalDlls As String = "" Dim TotalDlls As String = ""
Dim Cliente As String = "" Dim Cliente As String = ""
Dim Direccion As String = "" Dim Direccion As String = ""
Dim BinsPrecio As String = ""
@@ -403,6 +404,7 @@ Partial Class PopUpVerFactura
CAJASDECARTON = String.Format("{0:N0}", row("CAJASDECARTON")) CAJASDECARTON = String.Format("{0:N0}", row("CAJASDECARTON"))
RPC = String.Format("{0:N0}", row("RPC")) RPC = String.Format("{0:N0}", row("RPC"))
BINSDECARTON = String.Format("{0:N0}", row("BINSDECARTON")) BINSDECARTON = String.Format("{0:N0}", row("BINSDECARTON"))
BinsPrecio = String.Format("{0:N0}", row("BINSDECARTON").ToString().ToDecimal() * 5)
TotalDlls = String.Format("{0:N0}", row("TotalDlls")) TotalDlls = String.Format("{0:N0}", row("TotalDlls"))
@@ -482,6 +484,8 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("CAJASDECARTON", CAJASDECARTON)) params.Add(New ReportParameter("CAJASDECARTON", CAJASDECARTON))
params.Add(New ReportParameter("RPC", RPC)) params.Add(New ReportParameter("RPC", RPC))
params.Add(New ReportParameter("BINSDECARTON", BINSDECARTON)) params.Add(New ReportParameter("BINSDECARTON", BINSDECARTON))
params.Add(New ReportParameter("BinsPrecio", BinsPrecio))
params.Add(New ReportParameter("TotalDlls", TotalDlls)) params.Add(New ReportParameter("TotalDlls", TotalDlls))
@@ -493,7 +497,7 @@ Partial Class PopUpVerFactura
lrds.Add(rds) lrds.Add(rds)
'"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión") ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión", Content_Disposition:="Inline")
End Sub End Sub
@@ -521,6 +525,7 @@ Partial Class PopUpVerFactura
Dim CAJASDECARTON As String = "" Dim CAJASDECARTON As String = ""
Dim RPC As String = "" Dim RPC As String = ""
Dim BINSDECARTON As String = "" Dim BINSDECARTON As String = ""
Dim BinsPrecio As String = ""
Dim TotalDlls As String = "" Dim TotalDlls As String = ""
Dim Cliente As String = "" Dim Cliente As String = ""
Dim Direccion As String = "" Dim Direccion As String = ""
@@ -659,7 +664,7 @@ Partial Class PopUpVerFactura
'GuardaLogFacturacion($"Ruta XML {ArchivoXML}") 'GuardaLogFacturacion($"Ruta XML {ArchivoXML}")
'ResultadoMail = 3 'ResultadoMail = 3
End If End If
ImprimirPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte", Content_Disposition:="inline") ImprimirPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte", Content_Disposition:="Inline")
End Sub End Sub
@@ -728,7 +733,7 @@ Partial Class PopUpVerFactura
'endimg 'endimg
'"Empresas/Grales/Formatos/EquiposGPS.rdlc" '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
'"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
ImprimirPDF("GPS/PalletEtiqueta2.rdlc", lrds, params, "Pallet") ImprimirPDF("GPS/PalletEtiqueta2.rdlc", lrds, params, "Pallet", Content_Disposition:="Inline")
End Sub End Sub
Private Sub imprimirpallet(cvePallet As Integer) Private Sub imprimirpallet(cvePallet As Integer)
Dim Envase As String = "" Dim Envase As String = ""
@@ -825,7 +830,7 @@ Partial Class PopUpVerFactura
'If CvetypeImpresion = 2 Then 'If CvetypeImpresion = 2 Then
' ruta = "GPS/PalletEtiqueta_2.rdlc" ' ruta = "GPS/PalletEtiqueta_2.rdlc"
'End If 'End If
ImprimirPDF(ruta, lrds, params, "Pallet Caja") ImprimirPDF(ruta, lrds, params, "Pallet Caja", Content_Disposition:="Inline")
End Sub End Sub
#Region "U S U A R I O - T O K E N" #Region "U S U A R I O - T O K E N"

12
GPS/EmbarqueManifiestoRemision.rdlc
View File

@@ -541,7 +541,6 @@
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan> <ColSpan>2</ColSpan>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell /> <TablixCell />
@@ -2081,7 +2080,7 @@ Hermosillo, Sonora, Mexico
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>$1.00</Value> <Value>$5.00</Value>
<Style /> <Style />
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -2132,7 +2131,7 @@ Hermosillo, Sonora, Mexico
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>=Parameters!BINSDECARTON.Value</Value> <Value>=Parameters!BinsPrecio.Value</Value>
<Style /> <Style />
</TextRun> </TextRun>
</TextRuns> </TextRuns>
@@ -2341,6 +2340,7 @@ Hermosillo, Sonora, Mexico
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<rd:Selected>true</rd:Selected>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
</TablixCells> </TablixCells>
@@ -2866,6 +2866,12 @@ Hermosillo, Sonora, Mexico
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="BinsPrecio">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<EmbeddedImages> <EmbeddedImages>
<EmbeddedImage Name="logojam"> <EmbeddedImage Name="logojam">

186
GPS/PalletEtiqueta2.rdlc
View File

@@ -40,16 +40,16 @@
<TablixBody> <TablixBody>
<TablixColumns> <TablixColumns>
<TablixColumn> <TablixColumn>
<Width>2.20952cm</Width> <Width>2.81806cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>1.99728cm</Width> <Width>2.93411cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>1.99728cm</Width> <Width>2.28832cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>3.44561cm</Width> <Width>2.65186cm</Width>
</TablixColumn> </TablixColumn>
</TablixColumns> </TablixColumns>
<TablixRows> <TablixRows>
@@ -224,39 +224,11 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan> <ColSpan>3</ColSpan>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell /> <TablixCell />
<TablixCell> <TablixCell />
<CellContents>
<Textbox Name="Textbox388">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style />
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox388</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells> </TablixCells>
</TablixRow> </TablixRow>
<TablixRow> <TablixRow>
@@ -323,39 +295,11 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan> <ColSpan>3</ColSpan>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell /> <TablixCell />
<TablixCell> <TablixCell />
<CellContents>
<Textbox Name="Textbox384">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style />
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox384</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells> </TablixCells>
</TablixRow> </TablixRow>
<TablixRow> <TablixRow>
@@ -422,39 +366,11 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan> <ColSpan>3</ColSpan>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell /> <TablixCell />
<TablixCell> <TablixCell />
<CellContents>
<Textbox Name="Textbox380">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style />
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox380</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells> </TablixCells>
</TablixRow> </TablixRow>
<TablixRow> <TablixRow>
@@ -522,39 +438,11 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan> <ColSpan>3</ColSpan>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell /> <TablixCell />
<TablixCell> <TablixCell />
<CellContents>
<Textbox Name="Textbox376">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style />
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox376</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells> </TablixCells>
</TablixRow> </TablixRow>
<TablixRow> <TablixRow>
@@ -621,39 +509,11 @@
<PaddingBottom>2pt</PaddingBottom> <PaddingBottom>2pt</PaddingBottom>
</Style> </Style>
</Textbox> </Textbox>
<ColSpan>2</ColSpan> <ColSpan>3</ColSpan>
</CellContents> </CellContents>
</TablixCell> </TablixCell>
<TablixCell /> <TablixCell />
<TablixCell> <TablixCell />
<CellContents>
<Textbox Name="Textbox372">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value />
<Style />
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox372</rd:DefaultName>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
</CellContents>
</TablixCell>
</TablixCells> </TablixCells>
</TablixRow> </TablixRow>
<TablixRow> <TablixRow>
@@ -1354,12 +1214,11 @@
</TablixCells> </TablixCells>
</TablixRow> </TablixRow>
<TablixRow> <TablixRow>
<Height>0.38833cm</Height> <Height>0.45921cm</Height>
<TablixCells> <TablixCells>
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="Textbox75"> <Textbox Name="Textbox75">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Paragraphs> <Paragraphs>
<Paragraph> <Paragraph>
@@ -1390,7 +1249,6 @@
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="Textbox76"> <Textbox Name="Textbox76">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Paragraphs> <Paragraphs>
<Paragraph> <Paragraph>
@@ -2011,7 +1869,6 @@
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="Textbox95"> <Textbox Name="Textbox95">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Paragraphs> <Paragraphs>
<Paragraph> <Paragraph>
@@ -2042,7 +1899,6 @@
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="Textbox96"> <Textbox Name="Textbox96">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Paragraphs> <Paragraphs>
<Paragraph> <Paragraph>
@@ -2663,7 +2519,6 @@
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="Textbox115"> <Textbox Name="Textbox115">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Paragraphs> <Paragraphs>
<Paragraph> <Paragraph>
@@ -2694,7 +2549,6 @@
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="Textbox116"> <Textbox Name="Textbox116">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Paragraphs> <Paragraphs>
<Paragraph> <Paragraph>
@@ -3315,7 +3169,6 @@
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="Textbox17"> <Textbox Name="Textbox17">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Paragraphs> <Paragraphs>
<Paragraph> <Paragraph>
@@ -3346,7 +3199,6 @@
<TablixCell> <TablixCell>
<CellContents> <CellContents>
<Textbox Name="Textbox18"> <Textbox Name="Textbox18">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Paragraphs> <Paragraphs>
<Paragraph> <Paragraph>
@@ -3754,8 +3606,8 @@
</TablixRowHierarchy> </TablixRowHierarchy>
<Top>0.0762cm</Top> <Top>0.0762cm</Top>
<Left>0.10266cm</Left> <Left>0.10266cm</Left>
<Height>12.50875cm</Height> <Height>12.57959cm</Height>
<Width>9.64969cm</Width> <Width>10.69235cm</Width>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -3763,10 +3615,10 @@
</Style> </Style>
</Tablix> </Tablix>
</ReportItems> </ReportItems>
<Height>4.95471in</Height> <Height>5.09718in</Height>
<Style /> <Style />
</Body> </Body>
<Width>3.97917in</Width> <Width>4.25in</Width>
<Page> <Page>
<PageHeight>29.7cm</PageHeight> <PageHeight>29.7cm</PageHeight>
<PageWidth>21cm</PageWidth> <PageWidth>21cm</PageWidth>

4
vwd.webinfo
View File

@@ -474,6 +474,10 @@