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

Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Rakcsle Supertramp
2020-08-11 08:59:15 -07:00
parent eca126a861 f521827331
commit 3185f3eb88
10 changed files with 593 additions and 744 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Ashx/GenerarPDFFactura.ashx
View File

@@ -44,7 +44,13 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
Dim ListaDS = New List(Of ReportDataSource) Dim ListaDS = New List(Of ReportDataSource)
Dim Parametros As New List(Of ReportParameter) Dim Parametros As New List(Of ReportParameter)
Dim Formato = ModExtensiones.DirectorioBaseEmpresas + "Empresas/Grales/ReporteAPI.rdlc" Dim Formato As String = ""
If datos.API_SALI Then
Formato = ModExtensiones.DirectorioBaseEmpresas + "Empresas/Grales/ReporteAPISali.rdlc"
Else
Formato = ModExtensiones.DirectorioBaseEmpresas + "Empresas/Grales/ReporteAPI.rdlc"
End If
Parametros.Add(New ReportParameter("Empresa", datos.Empresa.Empresa)) Parametros.Add(New ReportParameter("Empresa", datos.Empresa.Empresa))
Parametros.Add(New ReportParameter("RFC", datos.Empresa.RFC)) Parametros.Add(New ReportParameter("RFC", datos.Empresa.RFC))
@@ -69,6 +75,7 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
Parametros.Add(New ReportParameter("UsoCFDI", datos.Factura.UsoCFDI)) Parametros.Add(New ReportParameter("UsoCFDI", datos.Factura.UsoCFDI))
Parametros.Add(New ReportParameter("Vencimiento", datos.Factura.FechaVencimiento)) Parametros.Add(New ReportParameter("Vencimiento", datos.Factura.FechaVencimiento))
Parametros.Add(New ReportParameter("SubTotal", datos.Factura.SubTotal)) Parametros.Add(New ReportParameter("SubTotal", datos.Factura.SubTotal))
Parametros.Add(New ReportParameter("Descuentos", datos.Factura.Descuentos))
Parametros.Add(New ReportParameter("IVA", datos.Factura.IVA)) Parametros.Add(New ReportParameter("IVA", datos.Factura.IVA))
Parametros.Add(New ReportParameter("IEPS", datos.Factura.IEPS)) Parametros.Add(New ReportParameter("IEPS", datos.Factura.IEPS))
Parametros.Add(New ReportParameter("Total", datos.Factura.Total)) Parametros.Add(New ReportParameter("Total", datos.Factura.Total))
@@ -81,8 +88,17 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
DtDatos.Columns.Add(New DataColumn("PU", GetType(Decimal))) DtDatos.Columns.Add(New DataColumn("PU", GetType(Decimal)))
DtDatos.Columns.Add(New DataColumn("IVA", GetType(Decimal))) DtDatos.Columns.Add(New DataColumn("IVA", GetType(Decimal)))
DtDatos.Columns.Add(New DataColumn("IEPS", GetType(Decimal))) DtDatos.Columns.Add(New DataColumn("IEPS", GetType(Decimal)))
DtDatos.Columns.Add(New DataColumn("Descuento", GetType(Decimal)))
DtDatos.Columns.Add(New DataColumn("Total", GetType(Decimal))) DtDatos.Columns.Add(New DataColumn("Total", GetType(Decimal)))
Dim DtImpuestos As New DataTable
DtImpuestos.Columns.Add(New DataColumn("Impuesto", GetType(String)))
DtImpuestos.Columns.Add(New DataColumn("Tipo", GetType(String)))
DtImpuestos.Columns.Add(New DataColumn("Base", GetType(Decimal)))
DtImpuestos.Columns.Add(New DataColumn("TipoFactor", GetType(String)))
DtImpuestos.Columns.Add(New DataColumn("TasaOCuota", GetType(String)))
DtImpuestos.Columns.Add(New DataColumn("Importe", GetType(Decimal)))
For Each PS In datos.Factura.ListaProductos For Each PS In datos.Factura.ListaProductos
Dim Row = DtDatos.NewRow() Dim Row = DtDatos.NewRow()
Row("Cantidad") = PS.Cantidad Row("Cantidad") = PS.Cantidad
@@ -91,12 +107,24 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
Row("PU") = PS.PU Row("PU") = PS.PU
Row("IVA") = PS.IVA Row("IVA") = PS.IVA
Row("IEPS") = PS.IEPS Row("IEPS") = PS.IEPS
Row("Descuento") = PS.Descuento
Row("Total") = (PS.Cantidad * PS.PU) + PS.IVA + PS.IEPS Row("Total") = (PS.Cantidad * PS.PU) + PS.IVA + PS.IEPS
DtDatos.Rows.Add(Row) DtDatos.Rows.Add(Row)
Next Next
Dim RowImpuesto = DtImpuestos.NewRow()
RowImpuesto("Impuesto") = "IVA"
RowImpuesto("Tipo") = "Traslado"
RowImpuesto("Base") = datos.Factura.SubTotal
RowImpuesto("TipoFactor") = "Tasa"
RowImpuesto("TasaOCuota") = "16%"
RowImpuesto("Importe") = datos.Factura.IVA
DtImpuestos.Rows.Add(RowImpuesto)
ListaDS.Add(New ReportDataSource("DsProductos", DtDatos)) ListaDS.Add(New ReportDataSource("DsProductos", DtDatos))
ListaDS.Add(New ReportDataSource("DsImpuestos", DtImpuestos))
ImprimirbytesPDF(context, StreamPDF(context, Formato, ListaDS, Parametros), "Factura") ImprimirbytesPDF(context, StreamPDF(context, Formato, ListaDS, Parametros), "Factura")
End If End If
@@ -337,6 +365,7 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
Public Property Cliente As ClienteWS Public Property Cliente As ClienteWS
Public Property Empresa As EmpresaWS Public Property Empresa As EmpresaWS
Public Property Timbrado As DatosSATWS Public Property Timbrado As DatosSATWS
Public Property API_SALI As Boolean
End Class End Class

13
Contabilidad/LibroDiario.aspx.vb
View File

@@ -51,11 +51,12 @@ Partial Class Contabilidad_LibroDiario
InicializaValores() InicializaValores()
If UsuarioActual.Empresa.UsaAC Then BtnConsultar.Enabled = True
BtnConsultar.Enabled = True 'If UsuarioActual.Empresa.UsaAC Then
Else ' BtnConsultar.Enabled = True
Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError) 'Else
End If ' Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError)
'End If
End If End If
End Sub End Sub
@@ -212,7 +213,6 @@ Partial Class Contabilidad_LibroDiario
#Region " IMPRIMIR " #Region " IMPRIMIR "
#End Region
Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click
'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate) 'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate) 'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
@@ -245,5 +245,6 @@ Partial Class Contabilidad_LibroDiario
ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroDiario.rpt"), DtDatos, lista, "LibroDiario", Formato), "LibroDiario", Formato) ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroDiario.rpt"), DtDatos, lista, "LibroDiario", Formato), "LibroDiario", Formato)
End Sub End Sub
#End Region
End Class End Class

4
Contabilidad2/RepLibroDiario.aspx
View File

@@ -83,8 +83,8 @@
<asp:GridView ID="GvDatos" CssClass="table table-striped table-hover Widthall" GridLines="None" AutoGenerateColumns="False" runat="server"> <asp:GridView ID="GvDatos" CssClass="table table-striped table-hover Widthall" GridLines="None" AutoGenerateColumns="False" runat="server">
<Columns> <Columns>
<asp:BoundField HeaderText="Fecha" DataField="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" /> <asp:BoundField HeaderText="Fecha" DataField="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
<asp:BoundField HeaderText="Tipo" DataField="TipoPoliza" /> <asp:BoundField HeaderText="Tipo" DataField="TipoPol" />
<asp:BoundField HeaderText="Poliza" DataField="FolioPoliza" /> <asp:BoundField HeaderText="Poliza" DataField="Folio" />
<asp:BoundField HeaderText="Concepto" DataField="Concepto" /> <asp:BoundField HeaderText="Concepto" DataField="Concepto" />
<asp:BoundField HeaderText="Cuenta" DataField="Codigo" /> <asp:BoundField HeaderText="Cuenta" DataField="Codigo" />
<asp:BoundField HeaderText="Nombre" DataField="Nombre" /> <asp:BoundField HeaderText="Nombre" DataField="Nombre" />

68
Contabilidad2/RepLibroDiario.aspx.vb
View File

@@ -90,28 +90,35 @@ Partial Class Contabilidad2_RepLibroDiario
Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
'CABECERA
''CABECERA If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 1 Then
'If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 1 Then e.Row.Font.Bold = True
' e.Row.Font.Bold = True e.Row.Cells(4).Text = ""
' e.Row.Cells(4).Text = "" e.Row.Cells(4).Visible = False
' e.Row.Cells(5).Text = "" e.Row.Cells(5).Text = ""
' e.Row.Cells(6).Text = "" e.Row.Cells(5).Visible = False
' e.Row.Cells(7).Text = "" e.Row.Cells(6).Text = ""
' e.Row.Cells(8).Text = "" e.Row.Cells(6).Visible = False
' e.Row.CssClass = "SubTotales" ' e.Row.Cells(7).Text = ""
'End If e.Row.Cells(7).Visible = False
e.Row.Cells(8).Text = ""
e.Row.Cells(8).Visible = False
e.Row.Cells(3).ColumnSpan = 6
e.Row.CssClass = "SubTotales" '
End If
'DETALLE 'DETALLE
If e.Row.DBCampo("Codigo") <> "" Then If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 2 Then
e.Row.Cells(0).Text = "" e.Row.Cells(0).Text = ""
e.Row.Cells(1).Text = "" e.Row.Cells(1).Text = ""
e.Row.Cells(2).Text = "" e.Row.Cells(2).Text = ""
e.Row.Cells(3).Text = "" e.Row.Cells(3).Text = ""
e.Row.Cells(7).Text = If(e.Row.Cells(7).Text.ToEntero() > 0, e.Row.Cells(7).Text, "")
e.Row.Cells(8).Text = If(e.Row.Cells(8).Text.ToEntero() > 0, e.Row.Cells(8).Text, "")
End If End If
'SUBTOTAL 'SUBTOTAL
If e.Row.DBCampo("Codigo") = "" Then If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 3 Then
e.Row.Font.Bold = True e.Row.Font.Bold = True
e.Row.Cells(0).Text = "" e.Row.Cells(0).Text = ""
e.Row.Cells(1).Text = "" e.Row.Cells(1).Text = ""
@@ -141,4 +148,39 @@ Partial Class Contabilidad2_RepLibroDiario
End If End If
End Sub End Sub
#Region " IMPRIMIR "
Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click
'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
'DtDatos = DtDatos
ImprimirReporte()
End Sub
Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
'DtDatos = DtDatos
ImprimirReporte("EXCEL")
End Sub
Private Sub ImprimirReporte(Optional Formato As String = "PDF")
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
Dim lista = New List(Of CrystalParametro)
lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
lista.Add(New CrystalParametro("FechaInicio", FechaInicio.ToString("dd/MM/yyyy")))
lista.Add(New CrystalParametro("FechaFin", FechaFin.ToString("dd/MM/yyyy")))
lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
If Imagen.Exists Then
lista.Add(New CrystalParametro("LogoPath", logouri))
Else
lista.Add(New CrystalParametro("LogoPath", ""))
End If
ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroDiario.rpt"), DtDatos, lista, "LibroDiario", Formato), "LibroDiario", Formato)
End Sub
#End Region
End Class End Class

BIN
Empresas/Grales/Formatos/LibroDiario.rpt
View File

Binary file not shown.

298
Empresas/Grales/Formatos/RepPaqueteriasGuias.rdlc
View File

@@ -12,13 +12,13 @@
<Width>2.2618cm</Width> <Width>2.2618cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.38704cm</Width> <Width>1.66778cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.96454cm</Width> <Width>6.13244cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>4.68704cm</Width> <Width>2.12058cm</Width>
</TablixColumn> </TablixColumn>
<TablixColumn> <TablixColumn>
<Width>2.88704cm</Width> <Width>2.88704cm</Width>
@@ -550,7 +550,7 @@
<Top>0.14111cm</Top> <Top>0.14111cm</Top>
<Left>0.01325cm</Left> <Left>0.01325cm</Left>
<Height>0.84438cm</Height> <Height>0.84438cm</Height>
<Width>20.68675cm</Width> <Width>20.56895cm</Width>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -564,7 +564,7 @@
<Width>8.23098in</Width> <Width>8.23098in</Width>
<Page> <Page>
<PageHeader> <PageHeader>
<Height>3.71891cm</Height> <Height>3.99542cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage> <PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage> <PrintOnLastPage>true</PrintOnLastPage>
<ReportItems> <ReportItems>
@@ -609,7 +609,7 @@
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>REPORTE DE PAQUETERÍAS GUÍAS</Value> <Value>Reporte de Envíos</Value>
<Style> <Style>
<FontSize>10.5pt</FontSize> <FontSize>10.5pt</FontSize>
<FontWeight>Bold</FontWeight> <FontWeight>Bold</FontWeight>
@@ -665,288 +665,40 @@
</Border> </Border>
</Style> </Style>
</Image> </Image>
<Textbox Name="Textbox37">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Sucursal:</Value>
<MarkupType>HTML</MarkupType>
<Style>
<FontSize>9.5pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<MarkupType>HTML</MarkupType>
<Style>
<FontSize>9.5pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!Sucursal.Value</Value>
<MarkupType>HTML</MarkupType>
<Style>
<FontSize>9.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox15</rd:DefaultName>
<Top>2.3cm</Top>
<Left>0.01325cm</Left>
<Height>0.5cm</Height>
<Width>6.6cm</Width>
<ZIndex>3</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Line Name="Line1"> <Line Name="Line1">
<Top>3.625cm</Top> <Top>3.9425cm</Top>
<Height>0cm</Height> <Height>0cm</Height>
<Width>20.90669cm</Width> <Width>20.90669cm</Width>
<ZIndex>4</ZIndex> <ZIndex>3</ZIndex>
<Style> <Style>
<Border> <Border>
<Style>Solid</Style> <Style>Solid</Style>
</Border> </Border>
</Style> </Style>
</Line> </Line>
<Textbox Name="Textbox38"> <Textbox Name="Filtros">
<CanGrow>true</CanGrow> <CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether> <KeepTogether>true</KeepTogether>
<Paragraphs> <Paragraphs>
<Paragraph> <Paragraph>
<TextRuns> <TextRuns>
<TextRun> <TextRun>
<Value>Estatus:</Value> <Value>=Parameters!Filtros.Value</Value>
<MarkupType>HTML</MarkupType> <MarkupType>HTML</MarkupType>
<Style> <Style>
<FontSize>9.5pt</FontSize> <FontSize>8pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<MarkupType>HTML</MarkupType>
<Style>
<FontSize>9.5pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!Estatus.Value</Value>
<MarkupType>HTML</MarkupType>
<Style>
<FontSize>9.5pt</FontSize>
</Style> </Style>
</TextRun> </TextRun>
</TextRuns> </TextRuns>
<Style /> <Style />
</Paragraph> </Paragraph>
</Paragraphs> </Paragraphs>
<rd:DefaultName>Textbox15</rd:DefaultName> <rd:DefaultName>Filtros</rd:DefaultName>
<Top>2.3cm</Top> <Top>2.58974cm</Top>
<Left>6.78964cm</Left>
<Height>0.5cm</Height>
<Width>6.4cm</Width>
<ZIndex>5</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox39">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Paquetería:</Value>
<MarkupType>HTML</MarkupType>
<Style>
<FontSize>9.5pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<MarkupType>HTML</MarkupType>
<Style>
<FontSize>9.5pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!Paqueteria.Value</Value>
<MarkupType>HTML</MarkupType>
<Style>
<FontSize>9.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox15</rd:DefaultName>
<Top>2.3cm</Top>
<Left>13.3cm</Left>
<Height>0.5cm</Height>
<Width>7.4cm</Width>
<ZIndex>6</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox40">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Fecha Inicial:</Value>
<MarkupType>HTML</MarkupType>
<Style>
<FontSize>9.5pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<MarkupType>HTML</MarkupType>
<Style>
<FontSize>9.5pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!FechaInicio.Value</Value>
<MarkupType>HTML</MarkupType>
<Style>
<FontSize>9.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox15</rd:DefaultName>
<Top>2.9cm</Top>
<Left>0.01325cm</Left> <Left>0.01325cm</Left>
<Height>0.5cm</Height> <Height>0.97042cm</Height>
<Width>6.6cm</Width> <Width>20.56895cm</Width>
<ZIndex>7</ZIndex> <ZIndex>4</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox41">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Fecha Final:</Value>
<MarkupType>HTML</MarkupType>
<Style>
<FontSize>9.5pt</FontSize>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value xml:space="preserve"> </Value>
<MarkupType>HTML</MarkupType>
<Style>
<FontSize>9.5pt</FontSize>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!FechaFin.Value</Value>
<MarkupType>HTML</MarkupType>
<Style>
<FontSize>9.5pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox15</rd:DefaultName>
<Top>2.9cm</Top>
<Left>6.78964cm</Left>
<Height>0.5cm</Height>
<Width>6.4cm</Width>
<ZIndex>8</ZIndex>
<Style>
<Border>
<Style>None</Style>
</Border>
<PaddingLeft>2pt</PaddingLeft>
<PaddingRight>2pt</PaddingRight>
<PaddingTop>2pt</PaddingTop>
<PaddingBottom>2pt</PaddingBottom>
</Style>
</Textbox>
<Textbox Name="Textbox5">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Usuario Entrego: </Value>
<Style>
<FontWeight>Bold</FontWeight>
</Style>
</TextRun>
<TextRun>
<Value>=Parameters!FiltroUsuario.Value</Value>
<Style>
<FontWeight>Normal</FontWeight>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox5</rd:DefaultName>
<Top>2.9cm</Top>
<Left>13.3cm</Left>
<Height>0.5cm</Height>
<Width>7.4cm</Width>
<ZIndex>9</ZIndex>
<Visibility>
<Hidden>=Parameters!FiltroUsuario.Value Like ""</Hidden>
</Visibility>
<Style> <Style>
<Border> <Border>
<Style>None</Style> <Style>None</Style>
@@ -1338,6 +1090,24 @@
<AllowBlank>true</AllowBlank> <AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt> <Prompt>ReportParameter1</Prompt>
</ReportParameter> </ReportParameter>
<ReportParameter Name="FiltroTipoPaqueteria">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="Orden">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
<ReportParameter Name="EntregasDirectas">
<DataType>String</DataType>
<Nullable>true</Nullable>
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</ReportParameter>
</ReportParameters> </ReportParameters>
<rd:ReportUnitType>Cm</rd:ReportUnitType> <rd:ReportUnitType>Cm</rd:ReportUnitType>
<rd:ReportID>1d5d9525-4bdd-4783-9df6-cce93069c30f</rd:ReportID> <rd:ReportID>1d5d9525-4bdd-4783-9df6-cce93069c30f</rd:ReportID>

18
General/RepPaqueteriasGuias.aspx.cs
View File

@@ -285,12 +285,12 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
{ {
if (UsuarioActual.CveRol == 1339) if (UsuarioActual.CveRol == 1339)
{ {
DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveRol = {0}", UsuarioActual.CveRol)); DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveRol = {0} AND Estatus = 1", UsuarioActual.CveRol), "Nombre");
DdlUsuarios.DataBind(); DdlUsuarios.DataBind();
} }
else else
{ {
DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa); DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "Nombre");
DdlUsuarios.DataBind(); DdlUsuarios.DataBind();
DdlUsuarios.Items.Insert(0, new ListItem("Todos ", "-1")); DdlUsuarios.Items.Insert(0, new ListItem("Todos ", "-1"));
} }
@@ -877,14 +877,20 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas
@params.Add(new ReportParameter("FechaInicio", FechaInicio)); @params.Add(new ReportParameter("FechaInicio", FechaInicio));
@params.Add(new ReportParameter("FechaFin", FechaFinal)); @params.Add(new ReportParameter("FechaFin", FechaFinal));
//@params.Add(new ReportParameter("FechaIngInicio", FechaIngInicio)); @params.Add(new ReportParameter("FechaIngInicio", FechaIngInicio));
//@params.Add(new ReportParameter("FechaIngFin", FechIngaFinal)); @params.Add(new ReportParameter("FechaIngFin", FechIngaFinal));
@params.Add(new ReportParameter("Orden", DdlFiltro.SelectedItem.Text));
@params.Add(new ReportParameter("EntregasDirectas", (ChkLote.Checked?"Solo entregas directas":"Entregas directas y por paquetería")));
@params.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)); @params.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre));
@params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString())); @params.Add(new ReportParameter("FechaImpresion", DateTime.Now.ToShortDateString()));
@params.Add(new ReportParameter("Filtros", String.Format(" <b>Sucursal: </b>{0}&emsp;&emsp;<b>Estatus: </b>{1}&emsp;&emsp;<b>Paquetería: </b>{2}<br/><b>Fecha Inicio: </b>{3}&emsp;&emsp;<b>Fecha Fin: </b>{4}", Sucursal, Estatus, Paqueteria, FechaInicio, FechaFinal))); string Usuario = DdlUsuarios.SelectedValue == "-1" ? "No especificado" : DdlUsuarios.SelectedItem.Text;
string FechasIngF = TxtFechaFinalIngreso.Text.Length > 0 ? string.Format("&emsp; &emsp;< b > F.I.Ingreso: </ b >{0}", TxtFechaFinalIngreso.Text) : "";
string FechasIngI = TxtFechaInicialIngreso.Text.Length > 0 ? string.Format("&emsp; &emsp;< b > F.I.Ingreso: </ b >{0}", TxtFechaInicialIngreso.Text) : "";
@params.Add(new ReportParameter("Filtros", String.Format(" <b>Sucursal: </b>{0}&emsp;&emsp;<b>Estatus: </b>{1}&emsp;&emsp;<b>Paquetería: </b>{2}&emsp;&emsp;<b>Tipo: </b>{3}<br/><b>Fecha Inicio: </b>{4}&emsp;&emsp;<b>Fecha Fin: </b>{5}{6}{7}&emsp;&emsp;<b>Usuario Entregó: </b>{8}&emsp;&emsp;<b>Entregas: </b>{9}", Sucursal, Estatus, Paqueteria, DdlTipo.SelectedItem.Text, FechaInicio, FechaFinal, FechasIngI, FechasIngF, Usuario, (ChkLote.Checked ? "Solo entregas directas" : "Entregas directas y por paquetería"))));
@params.Add(new ReportParameter("FiltroTipoPaqueteria", DdlTipo.SelectedItem.Text));
string Usuario = DdlUsuarios.SelectedValue == "-1" ? "" : DdlUsuarios.SelectedItem.Text;
@params.Add(new ReportParameter("FiltroUsuario", Usuario)); @params.Add(new ReportParameter("FiltroUsuario", Usuario));
if (Imagen.Exists) if (Imagen.Exists)

2
Inventarios/RepNotasSinAlmacen.aspx
View File

@@ -139,7 +139,7 @@
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div>--%> </div>--%>
<div class="col-md-1 truncate" id="DivSubProyecto" runat="server" style="text-align: right!important;">Proyecto:</div> <div class="col-md-1 truncate" id="DivSubProyecto" runat="server" style="text-align: right!important;"><asp:Label runat="server" ID="LblSubProyecto" text="Proyecto" /></div>
<div class="col-md-1" id="DivSubProyecto2" runat="server"> <div class="col-md-1" id="DivSubProyecto2" runat="server">
<asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="150px"> <asp:DropDownList ID="DdlSubProyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="150px">
<asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="true" Text="Seleccione" Value="-1"></asp:ListItem>

11
Inventarios/RepNotasSinAlmacen.aspx.vb
View File

@@ -93,12 +93,13 @@ Partial Class RepNotasSinAlmacen
'DdlSucursal.DataSource = GlobalDTSucursales(UsuarioActual.CveEmpresa) 'DdlSucursal.DataSource = GlobalDTSucursales(UsuarioActual.CveEmpresa)
'DdlSucursal.DataBind() 'DdlSucursal.DataBind()
DdlSubProyecto.Items.Clear() CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
DdlSubProyecto.SelectedValue = Nothing 'DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1) 'DdlSubProyecto.SelectedValue = Nothing
DdlSubProyecto.DataBind() 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
'DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1")) 'DdlSubProyecto.Items.Insert(0, New ListItem("Sin SubProyecto Asignado", "-1"))
End Sub End Sub
Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click