88 lines
2.9 KiB
VB.net
88 lines
2.9 KiB
VB.net
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
|
|
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 |