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

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"
 
 

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

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>

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)