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

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)