E172: Agregar Portlet Cítricos en Productos y Servicios (F267)

- Para nueva funcionalidad 267 Empresa Citrícola - BD: Nuevas tablas Gral_Empacados Gral_TipoOrganicos - BD: Nuevas columnas FK CveTipoEmpacado CveTipoOrganico en ProductosServicios - BD: Implementación CRUD PA_Gral_Empacados PA_Gral_TipoOrganicos - BD: Update CRUD PA_ProductosServicios
2022-11-18 16:41:25 -07:00
parent 8d29821630
commit 01e87f8890
4 changed files with 265 additions and 6 deletions
--- 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"


--- 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
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -385,6 +385,7 @@
                                        </ContentTemplate>
                                    </asp:UpdatePanel>
                                </div>
+
                                <div class="row">
                                    <div class="col-md-12" id="DivLlantas" runat="server" visible="false">
                                        <div class="portlet xspadding light bordered">
@@ -434,6 +435,7 @@
                                        </div>
                                    </div>
                                </div>
+
                                <div class="row">
                                    <asp:UpdatePanel ID="UpPSAdicionales" runat="server" UpdateMode="Conditional">
                                        <ContentTemplate>
@@ -495,6 +497,45 @@
                                        </ContentTemplate>
                                    </asp:UpdatePanel>
                                </div>
+
+                                <div class="row">
+                                    <div class="col-md-12" id="DivCitricos" runat="server" visible="false">
+                                        <div class="portlet xspadding light bordered">
+                                            <div class="portlet-title">
+                                                <div class="caption font-green">
+                                                    <i class="icon-briefcase font-green"></i>
+                                                    <span class="caption-subject bold uppercase">Cítricos</span>
+                                                </div>
+                                                <div class="actions">
+                                                    <div class="btn-group">
+                                                    </div>
+                                                </div>
+                                            </div>
+                                            <div class="portlet-body form">
+                                                <div class="row">
+                                                    <div class="col-md-12">
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <asp:DropDownList ID="DdlEmpacado" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Modelo" DataValueField="CveModelo" Height="22px">
+                                                                <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
+                                                            </asp:DropDownList>
+                                                            <label for="<%= DdlEmpacado.ClientID.ToString()%>">Empacado:</label>
+                                                            <i></i>
+                                                        </div>
+                                                        <div class="form-group form-md-line-input input-iconright">
+                                                            <asp:DropDownList ID="DdlTipoOrganico" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Medida" DataValueField="CveMedida" Height="22px">
+                                                                <asp:ListItem Text="Seleccione" Value="-1"></asp:ListItem>
+                                                            </asp:DropDownList>
+                                                            <label for="<%= DdlTipoOrganico.ClientID.ToString()%>">Tipo Orgánico:</label>
+                                                            <i></i>
+                                                        </div>
+                                                    </div>
+
+                                                </div>
+                                            </div>
+                                        </div>
+                                    </div>
+                                </div>
+
                            </div>
                        </div>
                    </ContentTemplate>
--- 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)