From 79938f7a4df0ff76cfd1423599637a4f21ea1606 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 7 Jul 2022 17:50:24 -0700 Subject: [PATCH] Ajustes RSCO, pasa a prudctos servicios, ajustes en reporte apuntando a productos servcios, se quita modulo RegRSCO --- App_Code/ClsInventarios.vb | 122 ---------------- App_Code/ClsPaginas.vb | 2 +- Compras/Importaciones.aspx | 2 +- Inventarios/Fletes.aspx | 4 +- Inventarios/Fletes.aspx.vb | 2 +- Inventarios/RegRSCO.aspx | 187 ------------------------ Inventarios/RegRSCO.aspx.vb | 232 ------------------------------ Inventarios/RepRSCO.aspx | 16 +-- Ventas/ProductosServicios.aspx | 120 ++++++++++------ Ventas/ProductosServicios.aspx.vb | 2 +- 10 files changed, 84 insertions(+), 605 deletions(-) delete mode 100644 Inventarios/RegRSCO.aspx delete mode 100644 Inventarios/RegRSCO.aspx.vb diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index f0a6541c5..04f11c855 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -5957,128 +5957,6 @@ Public Class ClsInventarios #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 diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index af839dd38..f5cbbb076 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -5603,7 +5603,7 @@ 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) diff --git a/Compras/Importaciones.aspx b/Compras/Importaciones.aspx index 49b1e34cf..99aae4ddf 100644 --- a/Compras/Importaciones.aspx +++ b/Compras/Importaciones.aspx @@ -11,7 +11,7 @@
  • + data-toggle="confirmation" data-popout="true" data-original-title="¿Cerrar Importación?" data-btn-ok-label="si" Visible="false" />
    • diff --git a/Inventarios/Fletes.aspx b/Inventarios/Fletes.aspx index 1c6c4aa71..87233410c 100644 --- a/Inventarios/Fletes.aspx +++ b/Inventarios/Fletes.aspx @@ -15,8 +15,8 @@ PDF
  • - +
    • diff --git a/Inventarios/Fletes.aspx.vb b/Inventarios/Fletes.aspx.vb index f9522884b..102919c2f 100644 --- a/Inventarios/Fletes.aspx.vb +++ b/Inventarios/Fletes.aspx.vb @@ -449,7 +449,7 @@ Partial Class Compras_Fletes Dim ObjInv As New ClsInventarios If ObjInv.UpdateFleteCierre(CveFlete, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then - Alert("Flete cerrado correctamente.", TipoMensaje.MsgInformacion, $" location.href = ""./Fletes.aspx?CveFlete={CveFlete}"" ") + Alert("Costo Indirecto cerrado correctamente.", TipoMensaje.MsgInformacion, $" location.href = ""./Fletes.aspx?CveFlete={CveFlete}"" ") End If ObjInv.Dispose() diff --git a/Inventarios/RegRSCO.aspx b/Inventarios/RegRSCO.aspx deleted file mode 100644 index 443e08081..000000000 --- a/Inventarios/RegRSCO.aspx +++ /dev/null @@ -1,187 +0,0 @@ -<%@ 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 deleted file mode 100644 index c55676cf8..000000000 --- a/Inventarios/RegRSCO.aspx.vb +++ /dev/null @@ -1,232 +0,0 @@ -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 index c7a13b4d0..d272cef28 100644 --- a/Inventarios/RepRSCO.aspx +++ b/Inventarios/RepRSCO.aspx @@ -115,26 +115,20 @@ + - - - + - + - <%-- - - - - - --%> + diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 85a05dc7a..f45019d1f 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -250,13 +250,7 @@ -
    - - - - - -
    +
    <%----%> @@ -264,54 +258,86 @@
    +
    +
    -
    -
    -
    -
    - - - <%----%> - -
    - - -
    - -
    - -
    - - +
    + + + + +
    +
    +
    +
    + +
    + + + <%----%> + +
    + +
    +
    + +
    + + +
    + +
    +
    + +
    + + + + + + + + + + <%----%> + + + <%----%> + + + + +
    + + +
    + + + +
    + + + + + + + + + + + + -
    - - - - - - - - - - <%----%> - - - <%----%> - - - - -
    + diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index e6eb4aafe..09ca91d2b 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -1035,7 +1035,7 @@ Partial Class ProductosyServicios Else TxtRegistroRSCO.Text = "" - TxtFechaVigenciaRSCO.Text = "01/01/1900" + TxtFechaVigenciaRSCO.Text = "" ChkFechaIndeterminadaRSCO.Checked = False End If