diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 926d626e3..8675d287e 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -5903,6 +5903,164 @@ Public Class ClsInventarios End Function #End Region + + +#Region "VIGENCIA COMPUESTOS" + + + Public Function AddCompuestosVigencia(CveCompuesto As Integer, CveProveedor As Integer, RegistroRSCO As String, FechaVigencia As Date, VigenciaIndeterminada As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_CompuestosVigenciaAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@RegistroRSCO", SqlDbType.VarChar).Value = RegistroRSCO + .Add("@FechaVigencia", SqlDbType.Date).Value = FechaVigencia + .Add("@VigenciaIndeterminada", SqlDbType.Bit).Value = VigenciaIndeterminada + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("IX_Inv_CveCompuestoCveProveedorFechaVigneciaCveEmpresa") Then + Alert($"Ya existe un RSCO con los datos especificados (proveedor, compuesto, Fecha de vigencia).", TipoMensaje.MsgAdvertencia) + ElseIf Ex1.Message.Contains("UNIX_Inv_RegistroRSCO") Then + Alert($"El RSCO {RegistroRSCO} ya se encuentra registrado.", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar la vigencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar la vigencia.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function UpdateCompuestosVigencia(CveCompuestoVigencia As Integer, CveCompuesto As Integer, CveProveedor As Integer, RegistroRSCO As String, FechaVigencia As Date, VigenciaIndeterminada As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_CompuestosVigenciaUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompuestoVigencia", SqlDbType.Int).Value = CveCompuestoVigencia + .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@RegistroRSCO", SqlDbType.VarChar).Value = RegistroRSCO + .Add("@FechaVigencia", SqlDbType.Date).Value = FechaVigencia + .Add("@VigenciaIndeterminada", SqlDbType.Bit).Value = VigenciaIndeterminada + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("IX_Inv_CveCompuestoCveProveedorFechaVigneciaCveEmpresa") Then + Alert($"Ya existe un RSCO con los datos especificados (proveedor, compuesto, Fecha de vigencia).", TipoMensaje.MsgAdvertencia) + ElseIf Ex1.Message.Contains("UNIX_Inv_RegistroRSCO") Then + Alert($"El RSCO {RegistroRSCO} ya se encuentra registrado.", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al actualizar la vigencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al actualizar el RSCO.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function RemoveCompuestosVigencia(CveCompuestoVigencia As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_CompuestosVigenciaRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompuestoVigencia", SqlDbType.Int).Value = CveCompuestoVigencia + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al eliminar el RSCO.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + + Catch ex As Exception + OnError("Ocurrió un error al eliminar el RSCO.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function GetCompuestosVigencia(CveCompuesto As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, VigenciaIndeterminada As Boolean, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_CompuestosVigenciaGet") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@VigenciaIndeterminada", SqlDbType.Int).Value = VigenciaIndeterminada + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al obtener los RSCO", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener los RSCO.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + + Public Function RepCompuestosVigencia(CveCompuesto As Integer, CveProveedor As Integer, FechaI As Date, FechaF As Date, VigenciaIndeterminada As Boolean, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_CompuestosVigenciaRep") + + With SqlAdapter.SelectCommand.Parameters + + .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto + .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@VigenciaIndeterminada", SqlDbType.Int).Value = VigenciaIndeterminada + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al obtener los RSCO", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener los RSCO.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + +#End Region + #Region " IDisposable Support " ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index b7cf23d3c..452aab6f8 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -5603,6 +5603,8 @@ Public Class ClsPaginas PaginaDict.Add("/Contabilidad/OCDetalleAlmacen.aspx".ToUpper(), -1) PaginaDict.Add("/Agropecuaria/CierreCultivo.aspx".ToUpper(), 1326) + PaginaDict.Add("/Inventarios/RegRSCO.aspx".ToUpper(), 1327) + PaginaDict.Add("/Inventarios/RepRSCO.aspx".ToUpper(), 1328) PaginaDict.Add("/testApi.aspx".ToUpper(), -1) diff --git a/Inventarios/RegRSCO.aspx b/Inventarios/RegRSCO.aspx new file mode 100644 index 000000000..443e08081 --- /dev/null +++ b/Inventarios/RegRSCO.aspx @@ -0,0 +1,187 @@ +<%@ Page Title="Reg RSCO" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RegRSCO.aspx.vb" Inherits="Inventarios_RegRSCO" EnableEventValidation="false" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + + + + + + + Reg RSCO + + + + + + +
  • + +
    • +     +     +     + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Inventarios/RegRSCO.aspx.vb b/Inventarios/RegRSCO.aspx.vb new file mode 100644 index 000000000..c55676cf8 --- /dev/null +++ b/Inventarios/RegRSCO.aspx.vb @@ -0,0 +1,232 @@ +Imports Extensiones +Partial Class Inventarios_RegRSCO + Inherits ClsPaginas + + Private Property CveCompuestoVigencia As Integer + Get + + If ViewState("CveCompuestoVigencia") Is Nothing Then + Return -1 + Else + Return ViewState("CveCompuestoVigencia").ToString().ToEntero() + End If + End Get + Set(ByVal value As Integer) + ViewState("CveCompuestoVigencia") = value + End Set + End Property + + Private Sub Inventarios_RegRSCO_Load(sender As Object, e As EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + CargaCombos() + + CargaDatos() + End If + End Sub + + + + + + + Public Sub CargaDatos() + + + Dim ObjInventarios As New ClsInventarios + + If ObjInventarios.GetCompuestosVigencia(-1, -1, MinFecha, MaxFecha, 1, UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = ObjInventarios.DtResultados + Else + GvDatos.DataSource = Nothing + End If + + ObjInventarios.Dispose() + GvDatos.DataBind() + UpDatos.Update() + + + End Sub + + Private Sub CargaCombos() + + + DdlProveedores.setEsWebService(True) + DdlProveedores.Attributes.Add("data-metodo", "getproveedores") + DdlProveedores.SelectedText = "Seleccione Uno" + DdlProveedores.SelectedValue = "-1" + + + Dim ObjPS As New ClsProductosServicios + + If ObjPS.GetCompuestosActivos(UsuarioActual.CveEmpresa) Then + DdlCompuesto.DataSource = ObjPS.DtResultados + Else + DdlCompuesto.DataSource = Nothing + End If + + ObjPS.Dispose() + DdlCompuesto.DataBind() + DdlCompuesto.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) + + + + UpModalRSCO.Update() + + End Sub + + Private Sub LimpiarModalDivAgregarRSCO() + CveCompuestoVigencia = -1 + + BtnAgregarRSCO.Text = "Agregar" + + DdlProveedores.txtValue.Value = "-1" + DdlProveedores.txtText.Value = "" + + DdlCompuesto.SelectedValueExist(-1) + + TxtFechaVigencia.Text = "" + TxtRegistroRSCO.Text = "" + ChkFechaIndeterminada.Checked = False + + LtlTituloModal.Text = "Agregar RSCO" + + DivModalContinuarAgregando.Visible = True + ChkModalContinuarAgregando.Checked = True + + UpModalRSCO.Update() + End Sub + + Protected Sub LnkAgregarRSCO_Click(sender As Object, e As EventArgs) + + LimpiarModalDivAgregarRSCO() + RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarRSCO")) + + End Sub + + Protected Sub LnkEditar_Click(sender As Object, e As EventArgs) + + BtnAgregarRSCO.Text = "Actualizar" + Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) + + CveCompuestoVigencia = GvRow.DataKey("CveCompuestoVigencia").ToEntero() + + + + DdlProveedores.txtValue.Value = GvRow.DataKey("CveProveedor") + DdlProveedores.txtText.Value = GvRow.DataKey("NombreComercial") + + + DdlCompuesto.SelectedValueExist(GvRow.DataKey("CveCompuesto")) + TxtFechaVigencia.Text = GvRow.DataKey("FechaVigencia").ToDate.ToString("dd/MM/yyyy") + TxtRegistroRSCO.Text = GvRow.DataKey("RegistroRSCO") + ChkFechaIndeterminada.Checked = Boolean.Parse(GvRow.DataKey("VigenciaIndeterminada")) + + LtlTituloModal.Text = "Actualizar RSCO" + + DivModalContinuarAgregando.Visible = False + ChkModalContinuarAgregando.Checked = False + + + If ChkFechaIndeterminada.Checked Then + DvFechaVijencia.Visible = False + TxtFechaVigencia.Text = "01/01/1900" + Else + DvFechaVijencia.Visible = True + End If + + + + + UpModalRSCO.Update() + + RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarRSCO")) + End Sub + + Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs) + + Dim ErrorAlElimiar As Boolean = False + + Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow) + + Dim CveCompuestoVigenciaEliminar = GvRow.DataKey("CveCompuestoVigencia").ToEntero() + + Using ObjInventarios As New ClsInventarios + + If (ObjInventarios.RemoveCompuestosVigencia(CveCompuestoVigenciaEliminar, UsuarioActual.CveEmpresa)) Then + + RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarRSCO")) + Alert("RSCO Eliminado Correctamente.") + Else + ErrorAlElimiar = True + End If + End Using + + + If Not ErrorAlElimiar Then + GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing + CargaDatos() + End If + + End Sub + + Protected Sub BtnAgregarRSCO_Click(sender As Object, e As EventArgs) + + Dim ErrorPrceso As Boolean = False + + + If DdlProveedores.SelectedValue.ToEntero <= 0 Then + Alert("Debe de seleccionar un proveedor.") + Exit Sub + End If + + Using ObjInventarios As New ClsInventarios + + If CveCompuestoVigencia <= 0 Then + If ObjInventarios.AddCompuestosVigencia(DdlCompuesto.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero, TxtRegistroRSCO.Text, TxtFechaVigencia.Text.ToDate, ChkFechaIndeterminada.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + Alert("RSCO agregado correctamente") + Else + ErrorPrceso = True + End If + Else + If ObjInventarios.UpdateCompuestosVigencia(CveCompuestoVigencia, DdlCompuesto.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero, TxtRegistroRSCO.Text, TxtFechaVigencia.Text.ToDate, ChkFechaIndeterminada.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + Alert("RSCO actualizado correctamente") + Else + ErrorPrceso = True + End If + End If + End Using + + + If Not ErrorPrceso Then + GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing + CargaDatos() + + If Not ChkModalContinuarAgregando.Checked Then + RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarRSCO")) + Else + LimpiarModalDivAgregarRSCO() + End If + + UpDatos.Update() + End If + + + + End Sub + + + + Protected Sub ChkFechaIndeterminada_CheckedChanged(sender As Object, e As EventArgs) + + If ChkFechaIndeterminada.Checked Then + DvFechaVijencia.Visible = False + TxtFechaVigencia.Text = "01/01/1900" + Else + DvFechaVijencia.Visible = True + TxtFechaVigencia.Text = "" + End If + + UpModalRSCO.Update() + + End Sub +End Class diff --git a/Inventarios/RepRSCO.aspx b/Inventarios/RepRSCO.aspx new file mode 100644 index 000000000..c7a13b4d0 --- /dev/null +++ b/Inventarios/RepRSCO.aspx @@ -0,0 +1,154 @@ +<%@ Page Title="Rep RSCO" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepRSCO.aspx.vb" Inherits="Inventarios_RepRSCO" EnableEventValidation="false" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + + + + + + + Rep RSCO + + + + + + +
  • + +
    • +     + + + +     +     + + + + + + + + +
    +
    +
    + + +
    +
    +
    +
    Proveedor:
    +
    + +
    +
    Compuesto:
    +
    + + +
    + +
    + Fecha Inicio: +
    +
    +
    + + + + +
    + + + + + + +
    +
    + Fecha Fin: + +
    +
    +
    + + + + +
    + + + + + + +
    + + + + +
    +
    +
    + +
    +     +     +
    + + + + + + + + + + + + + + + + + + + + + + + + <%-- + + + + + --%> + + + + + + + + + + + + + +     + + + diff --git a/Inventarios/RepRSCO.aspx.vb b/Inventarios/RepRSCO.aspx.vb new file mode 100644 index 000000000..ddd0ca648 --- /dev/null +++ b/Inventarios/RepRSCO.aspx.vb @@ -0,0 +1,150 @@ +Imports System.Data +Imports Extensiones +Imports Microsoft.Reporting.WebForms + +Partial Class Inventarios_RepRSCO + Inherits ClsPaginas + + Private Property DTDatos As DataTable + Get + + If ViewState("DTDatos") Is Nothing Then + + ViewState("DTDatos") = New DataTable + End If + + Return DirectCast(ViewState("DTDatos"), DataTable) + + End Get + Set(ByVal value As DataTable) + ViewState("DTDatos") = value + End Set + End Property + + Private Sub Inventarios_RepRSCO_Load(sender As Object, e As EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + CargaCombos() + + End If + End Sub + + + Public Sub CargaDatos() + + + Dim ObjInventarios As New ClsInventarios + + LnkDescargaExcel.Visible = False + + If ObjInventarios.RepCompuestosVigencia(DdlCompuesto.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, 1, UsuarioActual.CveEmpresa) Then + + DTDatos = ObjInventarios.DtResultados + GvDatos.DataSource = DTDatos + If DTDatos IsNot Nothing AndAlso DTDatos.Rows.Count > 0 Then + LnkDescargaExcel.Visible = True + UpAcciones.Update() + End If + Else + GvDatos.DataSource = Nothing + End If + + ObjInventarios.Dispose() + GvDatos.DataBind() + UpDatos.Update() + + + End Sub + + Private Sub CargaCombos() + + + DdlProveedores.setEsWebService(True) + DdlProveedores.Attributes.Add("data-metodo", "getproveedores") + DdlProveedores.SelectedText = "Todos" + DdlProveedores.SelectedValue = "-1" + + + Dim ObjPS As New ClsProductosServicios + + If ObjPS.GetCompuestosActivos(UsuarioActual.CveEmpresa) Then + DdlCompuesto.DataSource = ObjPS.DtResultados + Else + DdlCompuesto.DataSource = Nothing + End If + + ObjPS.Dispose() + DdlCompuesto.DataBind() + DdlCompuesto.Items.Insert(0, New ListItem("Todos", "-1")) + + + txtFechaF.Text = Now.ToString("dd/MM/yyyy") + txtFechaI.Text = txtFechaF.Text.ToDate.AddMonths(-2).ToString("dd/MM/yyyy") + + + + End Sub + + + + + + + Protected Sub LnkDescargaExcel_Click(sender As Object, e As EventArgs) + ImprimirReporte("EXCEL") + End Sub + + + Private Sub ImprimirReporte(Optional Formato As String = "PDF") + + Dim ObjTareas As New ClsOIEventos + Dim params As New List(Of ReportParameter) + + 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 FechaI, FechaF As String + FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text) + FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text) + + + params.Add(New ReportParameter("Filtros", FiltrosUsados())) + 'params.Add(New ReportParameter("GPO", DdlGrupo.SelectedItem.Text)) + params.Add(New ReportParameter("Titulo", "Reporte RSCO")) + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("FechaInicio", FechaI)) + params.Add(New ReportParameter("FechaFin", FechaF)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) + + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + ImprimirPDF("Empresas\Grales\Formatos\RepRSCO.rdlc", DTDatos, params, "RepRSCO" & Now.ToString("yyyyMMddmmss"), Formato:=Formato) + + End Sub + + Private Function FiltrosUsados() As String + Dim Filtros As String = "" + + If DdlProveedores.SelectedValue.ToEntero > 0 Then + Filtros = $"Proveedor: {DdlProveedores.txtText.Value}, " + End If + + If DdlCompuesto.SelectedValue.ToEntero > 0 Then + Filtros = Filtros & $"Compuesto: {DdlProveedores.txtText.Value}, " + End If + + + Filtros = Filtros & $"Fecha Inicio: {txtFechaI.Text}, Fecha Fin: {txtFechaF.Text}" + + Return Filtros + + End Function + + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) + CargaDatos() + End Sub +End Class