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 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("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("Vencimiento", datos.Factura.FechaVencimiento))
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("IEPS", datos.Factura.IEPS))
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("IVA", 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)))
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
Dim Row = DtDatos.NewRow()
Row("Cantidad") = PS.Cantidad
@@ -91,12 +107,24 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
Row("PU") = PS.PU
Row("IVA") = PS.IVA
Row("IEPS") = PS.IEPS
Row("Descuento") = PS.Descuento
Row("Total") = (PS.Cantidad * PS.PU) + PS.IVA + PS.IEPS
DtDatos.Rows.Add(Row)
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("DsImpuestos", DtImpuestos))
ImprimirbytesPDF(context, StreamPDF(context, Formato, ListaDS, Parametros), "Factura")
End If
@@ -337,6 +365,7 @@ Public Class GenerarPDFFactura : Implements IHttpHandler
Public Property Cliente As ClienteWS
Public Property Empresa As EmpresaWS
Public Property Timbrado As DatosSATWS
Public Property API_SALI As Boolean
End Class

13
Contabilidad/LibroDiario.aspx.vb
View File

@@ -51,11 +51,12 @@ Partial Class Contabilidad_LibroDiario
InicializaValores()
If UsuarioActual.Empresa.UsaAC Then
BtnConsultar.Enabled = True
Else
Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError)
End If
BtnConsultar.Enabled = True
'If UsuarioActual.Empresa.UsaAC Then
' BtnConsultar.Enabled = True
'Else
' Alert("La empresa no usa Armonización Contable", TipoMensaje.MsgError)
'End If
End If
End Sub
@@ -212,7 +213,6 @@ Partial Class Contabilidad_LibroDiario
#Region " IMPRIMIR "
#End Region
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)
@@ -245,5 +245,6 @@ Partial Class Contabilidad_LibroDiario
ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroDiario.rpt"), DtDatos, lista, "LibroDiario", Formato), "LibroDiario", Formato)
End Sub
#End Region
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">
<Columns>
<asp:BoundField HeaderText="Fecha" DataField="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
<asp:BoundField HeaderText="Tipo" DataField="TipoPoliza" />
<asp:BoundField HeaderText="Poliza" DataField="FolioPoliza" />
<asp:BoundField HeaderText="Tipo" DataField="TipoPol" />
<asp:BoundField HeaderText="Poliza" DataField="Folio" />
<asp:BoundField HeaderText="Concepto" DataField="Concepto" />
<asp:BoundField HeaderText="Cuenta" DataField="Codigo" />
<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
If e.Row.RowType = DataControlRowType.DataRow Then
''CABECERA
'If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 1 Then
' e.Row.Font.Bold = True
' e.Row.Cells(4).Text = ""
' e.Row.Cells(5).Text = ""
' e.Row.Cells(6).Text = ""
' e.Row.Cells(7).Text = ""
' e.Row.Cells(8).Text = ""
' e.Row.CssClass = "SubTotales" '
'End If
'CABECERA
If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 1 Then
e.Row.Font.Bold = True
e.Row.Cells(4).Text = ""
e.Row.Cells(4).Visible = False
e.Row.Cells(5).Text = ""
e.Row.Cells(5).Visible = False
e.Row.Cells(6).Text = ""
e.Row.Cells(6).Visible = False
e.Row.Cells(7).Text = ""
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
If e.Row.DBCampo("Codigo") <> "" Then
If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 2 Then
e.Row.Cells(0).Text = ""
e.Row.Cells(1).Text = ""
e.Row.Cells(2).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
'SUBTOTAL
If e.Row.DBCampo("Codigo") = "" Then
If e.Row.DBCampo("TipoRenglon").ToString.ToEntero = 3 Then
e.Row.Font.Bold = True
e.Row.Cells(0).Text = ""
e.Row.Cells(1).Text = ""
@@ -141,4 +148,39 @@ Partial Class Contabilidad2_RepLibroDiario
End If
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

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>
</TablixColumn>
<TablixColumn>
<Width>2.38704cm</Width>
<Width>1.66778cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.96454cm</Width>
<Width>6.13244cm</Width>
</TablixColumn>
<TablixColumn>
<Width>4.68704cm</Width>
<Width>2.12058cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.88704cm</Width>
@@ -550,7 +550,7 @@
<Top>0.14111cm</Top>
<Left>0.01325cm</Left>
<Height>0.84438cm</Height>
<Width>20.68675cm</Width>
<Width>20.56895cm</Width>
<Style>
<Border>
<Style>None</Style>
@@ -564,7 +564,7 @@
<Width>8.23098in</Width>
<Page>
<PageHeader>
<Height>3.71891cm</Height>
<Height>3.99542cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage>
<PrintOnLastPage>true</PrintOnLastPage>
<ReportItems>
@@ -609,7 +609,7 @@
<Paragraph>
<TextRuns>
<TextRun>
<Value>REPORTE DE PAQUETERÍAS GUÍAS</Value>
<Value>Reporte de Envíos</Value>
<Style>
<FontSize>10.5pt</FontSize>
<FontWeight>Bold</FontWeight>
@@ -665,288 +665,40 @@
</Border>
</Style>
</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">
<Top>3.625cm</Top>
<Top>3.9425cm</Top>
<Height>0cm</Height>
<Width>20.90669cm</Width>
<ZIndex>4</ZIndex>
<ZIndex>3</ZIndex>
<Style>
<Border>
<Style>Solid</Style>
</Border>
</Style>
</Line>
<Textbox Name="Textbox38">
<Textbox Name="Filtros">
<CanGrow>true</CanGrow>
<KeepTogether>true</KeepTogether>
<Paragraphs>
<Paragraph>
<TextRuns>
<TextRun>
<Value>Estatus:</Value>
<Value>=Parameters!Filtros.Value</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!Estatus.Value</Value>
<MarkupType>HTML</MarkupType>
<Style>
<FontSize>9.5pt</FontSize>
<FontSize>8pt</FontSize>
</Style>
</TextRun>
</TextRuns>
<Style />
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox15</rd:DefaultName>
<Top>2.3cm</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>
<rd:DefaultName>Filtros</rd:DefaultName>
<Top>2.58974cm</Top>
<Left>0.01325cm</Left>
<Height>0.5cm</Height>
<Width>6.6cm</Width>
<ZIndex>7</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>
<Height>0.97042cm</Height>
<Width>20.56895cm</Width>
<ZIndex>4</ZIndex>
<Style>
<Border>
<Style>None</Style>
@@ -1338,6 +1090,24 @@
<AllowBlank>true</AllowBlank>
<Prompt>ReportParameter1</Prompt>
</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>
<rd:ReportUnitType>Cm</rd:ReportUnitType>
<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)
{
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();
}
else
{
DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1", "Nombre");
DdlUsuarios.DataBind();
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("FechaFin", FechaFinal));
//@params.Add(new ReportParameter("FechaIngInicio", FechaIngInicio));
//@params.Add(new ReportParameter("FechaIngFin", FechIngaFinal));
@params.Add(new ReportParameter("FechaIngInicio", FechaIngInicio));
@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("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));
if (Imagen.Exists)

892
Inventarios/EntregaAlmacen.aspx.vb
View File

File diff suppressed because it is too large Load Diff

2
Inventarios/RepNotasSinAlmacen.aspx
View File

@@ -139,7 +139,7 @@
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</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">
<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>

11
Inventarios/RepNotasSinAlmacen.aspx.vb
View File

@@ -93,12 +93,13 @@ Partial Class RepNotasSinAlmacen
'DdlSucursal.DataSource = GlobalDTSucursales(UsuarioActual.CveEmpresa)
'DdlSucursal.DataBind()
DdlSubProyecto.Items.Clear()
DdlSubProyecto.SelectedValue = Nothing
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
DdlSubProyecto.DataBind()
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
'DdlSubProyecto.Items.Clear()
'DdlSubProyecto.SelectedValue = Nothing
'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
Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click