diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 87658bb11..92975bdfe 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -4184,9 +4184,6 @@ Public Class ClsGenerales Return Retorno End Function - - - Public Function GetFolioFechaCancelacion(CveEmpresa As Integer, Tipo As Integer) As Boolean Dim Retorno As Boolean = False @@ -4207,6 +4204,197 @@ Public Class ClsGenerales End Function +#Region "C I T R I C O S" + Public Function GetTipoOrganicos(Optional CveEmpresa As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_TipoOrganicosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Catálogo de Tipos de Orgánicos de Productos y Servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function AddTipoOrganico(TipoOrganico As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Gral_TipoOrganicosAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@TipoOrganico", SqlDbType.VarChar).Value = TipoOrganico + .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("Número: 2627;") Then + Alert("Ya existe un Tipo de Orgánico con el mismo nombre: " & TipoOrganico & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al Guardar el Tipo de Orgánico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al Guardar el Tipo de Orgánico", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function UpdateTipoOrganico(TipoOrganico As String, Estatus As Boolean, CveTipoOrganico As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Gral_TipoOrganicosUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@TipoOrganico", SqlDbType.VarChar).Value = TipoOrganico + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@CveTipoOrganico", SqlDbType.Int).Value = CveTipoOrganico + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe un Tipo de Orgánico con el mismo nombre: " & TipoOrganico & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar los cambios en el Tipo de Orgánico", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar los cambios en el Tipo de Orgánico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function RemoveTipoOrganico(CveTipoOrganico As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Gral_TipoOrganicosRemove") + + SqlAdapter.SelectCommand.Parameters.Add("@CveTipoOrganico", SqlDbType.Int).Value = CveTipoOrganico + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 547;") Then + Alert("El Tipo de Orgánico no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al eliminar el Tipo de Orgánico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + Me.OnError("Ocurrió un error al eliminar el Tipo de Orgánico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetEmpacados(Optional CveEmpresa As Integer = -1) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_EmpacadosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Catálogo de Empacados de Productos y Servicios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function AddEmpacado(TipoEmpacado As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Gral_EmpacadosAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@TipoEmpacado", SqlDbType.VarChar).Value = TipoEmpacado + .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("Número: 2627;") Then + Alert("Ya existe un Empacado con el mismo nombre: " & TipoEmpacado & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar el Empacado.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar el Empacado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function UpdateEmpacado(TipoEmpacado As String, Estatus As Boolean, CveTipoEmpacado As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Gral_EmpacadosUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@TipoEmpacado", SqlDbType.VarChar).Value = TipoEmpacado + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@CveTipoEmpacado", SqlDbType.Int).Value = CveTipoEmpacado + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 2627;") Then + Alert("Ya existe un Empacado con el mismo nombre: " & TipoEmpacado & ".", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al guardar los cambios en el Empacado", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + OnError("Ocurrió un error al guardar los cambios en el Empacado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function RemoveEmpacado(CveTipoEmpacado As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Gral_EmpacadosRemove") + + SqlAdapter.SelectCommand.Parameters.Add("@CveTipoEmpacado", SqlDbType.Int).Value = CveTipoEmpacado + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + If Ex1.Message.Contains("Número: 547;") Then + Alert("El Empacado no se pudo eliminar porque está siendo usado por un registro.", TipoMensaje.MsgAdvertencia) + Else + Me.OnError("Ocurrió un error al eliminar el Empacado.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End If + Catch ex As Exception + Me.OnError("Ocurrió un error al eliminar el Empacado.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function +#End Region + #Region "IDisposable Support" diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 8d378ccd0..a6c62f462 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -417,7 +417,7 @@ Public Class ClsProductosServicios Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False, Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0, - Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False) As Integer + Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_ProductosServiciosAdd") @@ -513,6 +513,10 @@ Public Class ClsProductosServicios .Add("@FechaVigenciaRSCO", SqlDbType.Date).Value = FechaVigenciaRSCO .Add("@VigenciaIndeterminadaRSCO", SqlDbType.Bit).Value = VigenciaIndeterminadaRSCO + 'Nuevo MLopez 18/11/2022 + .Add("@CveTipoEmpacado", SqlDbType.Int).Value = CveTipoEmpacado + .Add("@CveTipoOrganico", SqlDbType.Int).Value = CveTipoOrganico + End With Try @@ -661,7 +665,7 @@ Public Class ClsProductosServicios Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1, Optional EsOutSourcing As Boolean = False, Optional AplicaSerie As Boolean = False, Optional AplicaLote As Boolean = False, Optional AplicaCaducidad As Boolean = False, Optional AplicaSeccion As Boolean = False, Optional TiempoCaducidad As Integer = -1, Optional CvePSAdicionalVigencia As Integer = -1, Optional PrecioLibre As Boolean = False, Optional CveMaterialPeligroso As Integer = -1, Optional CveEmbalaje As Integer = -1, Optional PesoKg As Decimal = -1, Optional Dimensiones As String = "", Optional CveObjetoImpuesto As Integer = 0, - Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False) As Boolean + Optional RegistroRSCO As String = "-1", Optional FechaVigenciaRSCO As Date = MinFecha, Optional VigenciaIndeterminadaRSCO As Boolean = False, Optional CveTipoEmpacado As Integer = -1, Optional CveTipoOrganico As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -757,6 +761,10 @@ Public Class ClsProductosServicios .Add("@FechaVigenciaRSCO", SqlDbType.Date).Value = FechaVigenciaRSCO .Add("@VigenciaIndeterminadaRSCO", SqlDbType.Bit).Value = VigenciaIndeterminadaRSCO + 'Nuevo MLopez 18/11/2022 + .Add("@CveTipoEmpacado", SqlDbType.Int).Value = CveTipoOrganico + .Add("@CveTipoOrganico", SqlDbType.Int).Value = CveTipoEmpacado + End With Try diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 3eabe9555..a5b9acafb 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -385,6 +385,7 @@ +
@@ -434,6 +435,7 @@
+
@@ -495,6 +497,45 @@
+ +
+
+
+
+
+ + Cítricos +
+
+
+
+
+
+
+
+
+
+ + + + + +
+
+ + + + + +
+
+ +
+
+
+
+
+ diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 747a5f751..60bd5cf7a 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -397,6 +397,12 @@ Partial Class ProductosyServicios CvePSAdicional = -1 + 'Nueva funcionalidad MLopez: 18/11/2022 -- Empresa Citrícola + If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then + DivCitricos.Visible = True + CargaPanelCitricos() + End If + End Sub 'Private Sub CargaPSAdicional(Objeto As ADServerControl.Dropdownlost) @@ -431,6 +437,22 @@ Partial Class ProductosyServicios End Sub + Private Sub CargaPanelCitricos() + Dim ObjGral As New ClsGenerales() + If ObjGral.GetEmpacados(UsuarioActual.CveEmpresa) Then + DdlEmpacado.DataSource = ObjGral.DtResultados.Copy() + End If + If ObjGral.GetTipoOrganicos(UsuarioActual.CveEmpresa) Then + DdlTipoOrganico.DataSource = ObjGral.DtResultados.Copy() + End If + ObjGral.Dispose() + + DdlEmpacado.DataBind() + DdlTipoOrganico.DataBind() + + End Sub + + Private Sub MuestraPanel(Optional AfterPageLoad As Boolean = False) If AfterPageLoad Then RegistraScript("window.onload = function MuestraPanel() { document.getElementById(""C_BtnMostrarPanel"").click(); }") @@ -1588,7 +1610,7 @@ Partial Class ProductosyServicios Dim ObjAliasAdd As New ClsProductosServicios Dim TieneError = False - If ObjAliasAdd.AddPSAlias(TxtAlias.Text.ToString, CvePS, False, UsuarioActual.CveUsuario) Then + If ObjAliasAdd.AddPSAlias(TxtAlias.Text.ToString, CvePS, False, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then CargarAlias() UPGVAlias.Update() Alert("Alias " + TxtAlias.Text + " agregado.", TipoMensaje.MsgInformacion)