diff --git a/Inventarios/ReconstruirCostos.aspx b/Inventarios/ReconstruirCostos.aspx new file mode 100644 index 000000000..715d99527 --- /dev/null +++ b/Inventarios/ReconstruirCostos.aspx @@ -0,0 +1,92 @@ +<%@ Page Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ReconstruirCostos.aspx.vb" Inherits="Inventario_ReconstruirCostos" %> + + + + + + + + + + + +   + + + + <%--
  • + Imprimir +
    • --%> +     + + + + + +
    +
    +
    + +
    +
    +
    + <%--Filtros--%> + +
    + + + +
    + + +
    + + + +
    +
    +
    +
    +
    +     +     + +
    +
    + + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + +
    + + + + + + + + + + + + + + + + +
    +     +     + + + +     + + + + + diff --git a/Inventarios/ReconstruirCostos.aspx.vb b/Inventarios/ReconstruirCostos.aspx.vb new file mode 100644 index 000000000..45fcd50fd --- /dev/null +++ b/Inventarios/ReconstruirCostos.aspx.vb @@ -0,0 +1,64 @@ +Option Explicit On +Option Strict On + +Imports Extensiones +Imports System.Data +Partial Class Inventario_ReconstruirCostos + Inherits ClsPaginas + + Private Property FacturasCheckadas As Integer + Get + Return ViewState("FacturasCheckadas").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("FacturasCheckadas") = value + End Set + End Property + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not IsPostBack Then + CargaClasificaciones() + CargaMarcas() + End If + End Sub + Private Sub CargaClasificaciones() + + If UsuarioActual.Empresa.UsaAC Then + DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion") + Else + DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion") + End If + DdlClasificacion.DataBind() + End Sub + + Private Sub CargaMarcas() + + Dim ObjPS As New ClsProductosServicios + + If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then + DdlMarca.DataSource = ObjPS.DtResultados + DdlMarca.DataBind() + + End If + ObjPS.Dispose() + End Sub + Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click + CargaDatos() + End Sub + + Private Sub CargaDatos() + + + Dim ObjPS As New ClsProductosServicios + ObjPS.GetPS(-1, DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveMarca:=DdlMarca.SelectedValue.ToEntero) + If ObjPS.DtResultados.Rows.Count > 0 Then + GvProdcutos.DataSource = ObjPS.DtResultados + GvProdcutos.DataBind() + UpGvProductos.Update() + End If + ObjPS.Dispose() + End Sub + + + +End Class \ No newline at end of file