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

-

Browse Source
This commit is contained in:
rrene
2021-12-11 16:57:19 -07:00
parent 1e02a1874d 90d3d47d0b
commit b07a1d8e5c
14 changed files with 528 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Compras/PopUpVerFactura.aspx.vb
View File

@@ -940,6 +940,7 @@ Partial Class PopUpVerFactura
Dim PlacaVM As String = ""
Dim AnioModeloVM As String = ""
'TIMBRADO
@@ -980,7 +981,10 @@ Partial Class PopUpVerFactura
DtUbicaciones.Columns.Add(New DataColumn("Nombre", GetType(String)))
DtUbicaciones.Columns.Add(New DataColumn("FechaHoraSalida", GetType(DateTime)))
DtUbicaciones.Columns.Add(New DataColumn("Direccion", GetType(String)))
DtUbicaciones.Columns.Add(New DataColumn("TipoUbicacion", GetType(String)))
Dim DtMercancias As New DataTable()
DtMercancias.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
DtMercancias.Columns.Add(New DataColumn("UnidadMedida", GetType(String)))
@@ -1151,6 +1155,8 @@ Partial Class PopUpVerFactura
Row("Direccion") = String.Format("{0} Col.{1},{2},{3}. CP {4}", calle, Colonia, Municipio, Estado, CP)
End If
DtUbicaciones.Rows.Add(Row)
Next
@@ -1226,6 +1232,9 @@ Partial Class PopUpVerFactura
params.Add(New ReportParameter("SubTotal", SubTotal.ToString()))
params.Add(New ReportParameter("Descuentos", Descuentos.ToString()))
params.Add(New ReportParameter("Total", Total.ToString()))
' [@CertificadoContribuyente]
'[@CadenaOriginal]
@@ -1290,7 +1299,7 @@ Partial Class PopUpVerFactura
Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, Parametros("EXT").ToString, Parametros("TIPODOCTO").ToString, Parametros("FOLIO").ToString, Exten)
Dim Archivo As New System.IO.FileInfo(Path)
Dim cvetimbre As Integer = Parametros("CVETIMBRE").ToString.ToEntero
If Archivo.Exists Then
DescargarArchivoPDFTraslado(Archivo, Path)
Else
@@ -1302,8 +1311,8 @@ Partial Class PopUpVerFactura
If Archivo.Exists Then
DescargarArchivoPDFTraslado(Archivo, Path)
End If
End If
End If
End If
End If
Archivo = Nothing
End If
End Sub
@@ -1321,9 +1330,9 @@ Partial Class PopUpVerFactura
Private Sub GeneraPDFFactura(ObjFactura As Modelos.Factura)
Try
' Dim objFactura = CreaObjetosTraslado(CveMovimiento)
If objFactura IsNot Nothing Then
PdfFactura(objFactura)
objFactura.Dispose()
If ObjFactura IsNot Nothing Then
PdfFactura(ObjFactura)
ObjFactura.Dispose()
End If
Catch ex As Exception
OnError("Ocurrió un error al generar el PDF", ex)

15
Compras/RepComprasAF.aspx
View File

@@ -92,6 +92,7 @@
<asp:ListItem Text="Activo Fijo SubTipo" Value="8"></asp:ListItem>
<asp:ListItem Text="Producto" Value="9"></asp:ListItem>
<asp:ListItem Text="Clasificación" Value="10"></asp:ListItem>
<asp:ListItem Text="Clasificación2" Value="11"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
@@ -147,12 +148,21 @@
</div>
</div>
<div class="row">
<div class="col-md-1">Clasificación:</div>
<div class="col-md-2">
<asp:DropDownList ID="DdlClasificacion" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="95%">
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
</div>
<div class="col-md-1">Clasificación 2:</div>
<div class="col-md-2">
<asp:DropDownList ID="DdlClasificacion2" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="95%">
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1">Producto Servicio:</div>
<div class="col-md-2">
@@ -167,7 +177,8 @@
<div class="col-md-8">
<asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvDatos" runat="server" data-sort="true" DataKeyNames="GPO,Cantidad,Total,Moneda" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros con los filtros especificados" ToolTip="Listado de Ventas" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
<asp:GridView ID="GvDatos" runat="server" data-sort="true" DataKeyNames="GPO,Cantidad,Total,Moneda" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros con los filtros especificados"
ToolTip="Listado de Ventas" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
<Columns>
<asp:TemplateField HeaderText="Grupo">
<ItemTemplate>

14
Compras/RepComprasAF.aspx.vb
View File

@@ -90,6 +90,9 @@ Partial Class Compras_RepComprasAF
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
DdlClasificacion.DataBind()
DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
DdlClasificacion2.DataBind()
DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
DdlActivoFijo.DataBind()
@@ -154,10 +157,12 @@ Partial Class Compras_RepComprasAF
Else
TCEspecifico = -1
End If
If ObjCompras.GetRepComprasAF(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlMonedas.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero,
DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico,
DdlClasificacion.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, DdlTipoActivoFijo.SelectedValue.ToEntero, DdlSubTipoActivoFijo.SelectedValue.ToEntero,
CvePS, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
CvePS, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero) Then
DTDatos = ObjCompras.DtResultados
GvDatos.DataSource = ObjCompras.DtResultados
Else
@@ -187,7 +192,7 @@ Partial Class Compras_RepComprasAF
If CvePS = "" Or CvePS = "0" Then
CvePS = "-1"
End If
Dim Liga As String = $"/Compras/RepComprasAFDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={ e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&CveProveedor={ e.Row.DBCampo("CveProveedor")}&CveActivoFijo={e.Row.DBCampo("CveActivoFijo")}&CveTipoActivoFijo={e.Row.DBCampo("CveTipoActivoFijo")}&CveSubTipoActivoFijo={e.Row.DBCampo("CveSubTipoActivoFijo")}&CveProyecto={ DdlProyecto.SelectedValue}&CveSubProyecto={DdlSubProyecto.SelectedValue}&CvePS={CvePS}&CveClasificacion={e.Row.DBCampo("CveClasificacion")}&CveMoneda={ e.Row.DBCampo("CveMoneda")}&FechaI={FechaI}&FechaF={FechaF}&PS={PS}"
Dim Liga As String = $"/Compras/RepComprasAFDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={ e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&CveProveedor={ e.Row.DBCampo("CveProveedor")}&CveActivoFijo={e.Row.DBCampo("CveActivoFijo")}&CveTipoActivoFijo={e.Row.DBCampo("CveTipoActivoFijo")}&CveSubTipoActivoFijo={e.Row.DBCampo("CveSubTipoActivoFijo")}&CveProyecto={ DdlProyecto.SelectedValue}&CveSubProyecto={DdlSubProyecto.SelectedValue}&CvePS={CvePS}&CveClasificacion={e.Row.DBCampo("CveClasificacion")}&CveMoneda={ e.Row.DBCampo("CveMoneda")}&FechaI={FechaI}&FechaF={FechaF}&PS={PS}&CveClasificacion2={e.Row.DBCampo("CveClasificacion2")}"
If e.Row.DBCampo("Orden") = "1" Then
e.Row.Cells(0).Text = String.Format("<a class='{0}' target='_blank' href='{1}'>{2}</a>", "Texto", Liga, e.Row.DataKey("GPO").ToString)
Else
@@ -285,6 +290,11 @@ Partial Class Compras_RepComprasAF
If DdlClasificacion.SelectedIndex > 0 Then
ListaFiltros.Add("Clasificación: " & DdlClasificacion.SelectedItem.Text)
End If
If DdlClasificacion2.SelectedIndex > 0 Then
ListaFiltros.Add("Clasificación: " & DdlClasificacion2.SelectedItem.Text)
End If
For Each s As String In ListaFiltros
If Contador > 0 Then
filtro = filtro & ", " & s

52
Compras/RepComprasAFDetalle.aspx
View File

@@ -190,6 +190,14 @@
</asp:DropDownList>
</div>
<div class="col-md-1">Clasificación 2:</div>
<div class="col-md-2">
<asp:DropDownList ID="DdlClasificacion2" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="95%">
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div>
<div class="col-md-1">Producto Servicio:</div>
<div class="col-md-2">
<ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" Width="95%" />
@@ -218,12 +226,23 @@
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
SubProyecto
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblSubProyecto" CssClass="ML Truncate" runat="server" Text='<%# Eval("SubProyecto") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
ActivoFijo
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblActivoFijo" CssClass="ML Truncate" runat="server" Text='<%# Eval("Descripcion") %>'></asp:Label>
<%--<asp:Label ID="LblActivoFijo" CssClass="ML Truncate" runat="server" Text='<%# Eval("Descripcion") %>'></asp:Label>--%>
<asp:Label ID="LblActivoFijo" CssClass="ML Truncate" runat="server" Text='<%# Eval("CodigoAF") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
@@ -245,6 +264,37 @@
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
Responsable
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblResponsable" runat="server" CssClass="ML Truncate" Text='<%# Eval("NombreCompleto") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
Horometro/Odometro
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblHorometroOdometro" runat="server" CssClass="ML Truncate" Text='<%# Eval("AFMedida") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>
Tipo Mantenimiento
</HeaderTemplate>
<ItemTemplate>
<asp:Label ID="LblAFTipoMantenimientoStr" runat="server" CssClass="ML Truncate" Text='<%# Eval("AFTipoMantenimientoStr") %>'></asp:Label>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField ItemStyle-HorizontalAlign="Left">
<HeaderTemplate>
Unidad de Medida

14
Compras/RepComprasAFDetalle.aspx.vb
View File

@@ -106,6 +106,7 @@ Partial Class Compras_RepComprasAFDetalle
DdlSubProyecto.SelectedValueExist(Request.QueryString("CveSubProyecto").ToString)
DdlProveedores.SelectedValueExist(Request.QueryString("CveProveedor").ToString)
DdlClasificacion.SelectedValueExist(Request.QueryString("CveClasificacion").ToString)
DdlClasificacion2.SelectedValueExist(Request.QueryString("CveClasificacion2").ToString)
If Request.QueryString("CvePS").ToString.Length > 0 Then
DdlPS.txtText.Value = Request.QueryString("PS").ToString
@@ -162,7 +163,7 @@ Partial Class Compras_RepComprasAFDetalle
End If
If UsuarioActual.CveEmpresa = 72 Then
GvDatos.Columns(2).Visible = True
GvDatos.Columns(3).Visible = True
End If
End If
@@ -185,6 +186,10 @@ Partial Class Compras_RepComprasAFDetalle
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
DdlClasificacion.DataBind()
DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
DdlClasificacion2.DataBind()
DdlClasificacion2.Items.Insert(0, New ListItem("Sin Clasificación", "-2"))
DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
DdlActivoFijo.DataBind()
DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -276,7 +281,7 @@ Partial Class Compras_RepComprasAFDetalle
If ObjCompras.GetRepComprasAFDetalle(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlMonedas.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1,
DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico,
DdlClasificacion.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, DdlTipoActivoFijo.SelectedValue.ToEntero, DdlSubTipoActivoFijo.SelectedValue.ToEntero,
CvePS, Anio.ToEntero, Mes.ToEntero, AnioMes, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
CvePS, Anio.ToEntero, Mes.ToEntero, AnioMes, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero) Then
DTDatos = ObjCompras.DtResultados
GvDatos.DataSource = ObjCompras.DtResultados
@@ -434,6 +439,11 @@ Partial Class Compras_RepComprasAFDetalle
ListaFiltros.Add("<b>Clasificación:</b> " & DdlClasificacion.SelectedItem.Text)
End If
If DdlClasificacion2.SelectedIndex > 0 Then
ListaFiltros.Add("<b>Clasificación 2:</b> " & DdlClasificacion2.SelectedItem.Text)
End If
For Each s As String In ListaFiltros
If Contador > 0 Then