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
        End If
        ObjPS.Dispose()
        DdlMarca.DataBind()
    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
    Private Sub BtnReconstruir_Click(sender As Object, e As EventArgs) Handles BtnReconstruir.Click
        Dim objInv As New ClsInventarios
        Dim TieneError As Boolean = False
        Dim Producto As String = ""

        For Each Gvr As GridViewRow In GvProdcutos.Rows
            If Gvr.FCCheckBox("ChkProducto").Checked Then
                Dim CvePS As Integer = Gvr.DataKey("CvePS").ToEntero
                If Not objInv.ReconstruirCostos(CvePS, UsuarioActual.CveEmpresa) Then
                    TieneError = True
                    Producto += String.Format("{0} <br/>", Gvr.DataKey("PS").ToString)

                End If
            End If
        Next

        If TieneError Then
            Alert(String.Format("Error al reconstruir los costos en los siguientes productos: {0}", Producto), TipoMensaje.MsgError)
        Else
            Alert("Se realizo el cambio correctamente", TipoMensaje.MsgConfirmacion)

        End If

        objInv.Dispose()
    End Sub


End Class