Fabricacion.cs

using System;
using System.Collections.Generic;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using sage.ew.db;
using sage.ew.ewbase;
using sage.ew.formul;
using sage.ew.functions;
using sage.ew.global;
using sage.ew.interficies;
using sage.ew.objetos;
using Sage.ES.S50.Addons;
using Sage.ES.S50.AddonsVirtuales.Clases;
using Sage.ES.S50.Fabricacion;

namespace Sage.ES.S50.AddonsVirtuales
{
    public partial class Fabricacion : ModuloVirtual
    {
        #region VARIABLES PRIVADAS

        private string _NombreVariable = "WL_PROTRAN";

        private _ExtensionMante _oExtensionManteEmpresa;
        private S50.Fabricacion.Negocio.Clases.fabricacionConfig _oConfiguracion;

        private bool _lConPartes = Convert.ToBoolean(EW_GLOBAL._GetVariable("wl_PCostes"));

        #endregion VARIABLES PRIVADAS

        #region PROPIEDADES


        public S50.Fabricacion.Negocio.Clases.fabricacionConfig _Configuracion
        {
            get
            {
                if (_oConfiguracion == null)
                    _oConfiguracion = new S50.Fabricacion.Negocio.Clases.fabricacionConfig(); // No es necesario realizar un _Load, luego se realiza en el momento de cargar la empresa

                return _oConfiguracion;
            }
        }

        public override string Firma { get; set; }

        public bool _BajaSuscripcion
        {
            get { return LICENCIAS._BajaSuscripcion("FABRICA"); }
        }

        #endregion PROPIEDADES

        #region CONSTRUCTORES

        public Fabricacion()
        {
            // Tarea 169200
            // NOTA: Aunque el campo PCOSTES por la tabla tenga el valor por defecto “.T.” internamente se debe tratar con una variable global y para la versión 50.7700 estará desactivada. 
            // A partir de versiones posteriores ya funcionará según el valor de la configuración del add - on.En la configuración de empresa se dejará invisible este campo.
            string _lcEmpresa = EW_GLOBAL._GetVariable("wc_empresa").ToString().Trim();
            bool showPCostes = Convert.ToBoolean(DB.SQLValor("empresa", "codigo", _lcEmpresa, "pcostes", "GESTION"));


            EW_GLOBAL.ValorEnClave_VarGlob("wl_PCostes", showPCostes);

            // Asignar los tipos para la configuración del módulo
            Id = 30;
            Nombre = "FABRICA";
            Revision = 1;
            Nombre2 = "Fabricación";
            Activo = true;
            Libreria = "Sage.50";
            Clase = "Fabricacion";
            Visible = Convert.ToBoolean(EW_GLOBAL._GetVariable(_NombreVariable)) && !_EsAsesorSoloConta();
            Instalado = true;
            Tipo = 2;
            Solucion = 2;
            SmallProf = 0;
            Descripcion = "Gestión de procesos de producción, transformación y partes de coste";
            Observaciones = "Permite el uso de componentes, imputación de costes, control de estados, actualización de costes, cálculos de consumo y ratios, y listados para seguimiento y análisis.";

            _UrlAyudaAddon = "https://sage50c.sage.es/help50c/Content/ADDONS/Fabricacion/guia-uso-addon-fabricacion.htm";

            UserControlConfigType = typeof(S50.Fabricacion.Visual.UserControls.EmpresaPaginaModulosFabricacion);
            ModuloConfigType = typeof(S50.Fabricacion.Negocio.Clases.fabricacionConfig);
        }



        #endregion CONSTRUCTORES

        #region MÉTODOS PROTECTED OVERRIDE

        protected override bool Condition()
        {
            return Convert.ToBoolean(EW_GLOBAL._GetVariable(_NombreVariable)) && !_EsAsesorSoloConta();
        }

        #endregion MÉTODOS PROTECTED OVERRIDE

        #region MÉTODOS PÚBLICOS OVERRIDE


        public override object _GetListaPrevia(string tcClass, Type oTipoObjeto, string tcPantalla)
        {
            switch (tcClass)
            {
                case "Sage.ES.S50.Fabricacion.Visual.Forms.frmAlbaranProduccion":
                    return new Sage.ES.S50.Fabricacion.Visual.UserControls.ListasPreviasDocsAlbaranProduccion(tcClass, oTipoObjeto, tcPantalla);
                case "Sage.ES.S50.Fabricacion.Visual.Forms.frmAlbaranTransformacion":
                    return new Sage.ES.S50.Fabricacion.Visual.UserControls.ListasPreviasDocsAlbaranTransformacion(tcClass, oTipoObjeto, tcPantalla);
                default:
                    return null;
            }
        }

        

        public override IBrowserPropiedadesExtendidas _BindBrowser(string browsertabla)
        {
            return base._BindBrowser(browsertabla);
        }

        public override object _Extension(string _key, sage.ew.interficies.IMante _mantePrincipal)
        {
            // Ya se ha definido una extensión del mantenimiento de empresa para la configuración del módulo.
            // Se instancia en la base y se recoge en loInstancia.
            // La clase de negocio es classConfig.cs y la parte visual usercontrolConfig.cs.

            object loInstancia = base._Extension(_key, _mantePrincipal);

            _key = _key.ToLower().Trim();

            switch (_key)
            {

                case "produc":
                    {
                        if (_lConPartes)
                            loInstancia = new S50.Fabricacion.Negocio.Mantes.ExtensionProduccionPartes(_mantePrincipal);
                    }
                    break;

                case "transform":
                    {
                        if (_lConPartes)
                            loInstancia = new S50.Fabricacion.Negocio.Mantes.ExtensionTransformacionPartes(_mantePrincipal);
                    }
                    break;

                default:
                    break;
            }

            return loInstancia;
        }

        public override object _ExtensionManteTRel(string _key, sage.ew.interficies.IManteTRel _manteTRelPrincipal, int _ordenAddon)
        {
            object loInstancia = null;

            _key = _key.ToLower().Trim();

            switch (_key)
            {
                default:
                    break;
            }

            return loInstancia;
        }

        public override void _BindForm(string _nombreForm, IFormBase _formBase)
        {
            base._BindForm(_nombreForm, _formBase);

            _nombreForm = _nombreForm.ToLower().Trim();

            // Puede que el formulario sea el FormMante base. En ese caso, utilizamos el nombre de _Pantalla
            if (_nombreForm == "formmante")
            {
                _nombreForm = _formBase._Pantalla.ToLower().Trim();
            }

            switch (_nombreForm)
            {
                case "frmalbaranproduccion":
                    S50.Fabricacion.Negocio.Mantes.FormExtensionProduccionPartes formmanteext_producPartes = new S50.Fabricacion.Negocio.Mantes.FormExtensionProduccionPartes((FormBaseDocumento)_formBase, this);
                    break;

                case "frmalbarantransformacion":
                    S50.Fabricacion.Negocio.Mantes.FormExtensionTransformacionPartes formmanteext_transPartes = new S50.Fabricacion.Negocio.Mantes.FormExtensionTransformacionPartes((FormBaseDocumento)_formBase, this);
                    break;
                default:
                    break;
            }
        }

        public override bool _Load()
        {
            // Utilizamos la variable del antiguo módulo de producción, para la nueva funcionalidad en el detalle de la producción
            EW_GLOBAL.ValorEnClave_VarGlob("wl_ewproduc", true);

            //if (_GetVariable())
            //{
            //    Insertar_Registro_Tabla_Programs();
            //}

            //_ActualizarCamposProduccion();

            //Nuevo bug 170388. Quitar del _load cuando salga la 7710 y dejar solo en el _install y en el _update
            //var configFabrica = new Sage.ES.S50.Fabricacion.Negocio.Clases.fabricacionConfig();
            //configFabrica._CreateDefaultTemplates();

            return base._Load();
        }

        public override bool _Unload()
        {
            return base._Unload();
        }

        public override bool _Update()
        {
            // Utilizamos la variable del antiguo módulo de producción, para la nueva funcionalidad en el detalle de la producción
            EW_GLOBAL.ValorEnClave_VarGlob("wl_ewproduc", true);

            if (_GetVariable())
            {
                Insertar_Registro_Tabla_Programs();
            }

            _ActualizarCamposProduccion();
            _ActualizarSeccion();

            //Nuevo bug 170388. Quitar del _load cuando salga la 7710 y dejar solo en el _install y en el _update
            //var configFabrica = new Sage.ES.S50.Fabricacion.Negocio.Clases.fabricacionConfig();
            //configFabrica._CreateDefaultTemplates();

            return base._Update();
        }

        public override bool _Desinstalar(TipoExecute tcExecute)
        {
            // Si desactivamos trabajar con fabricación ...
            bool llOk = true;

            if (llOk = base._Desinstalar(tcExecute))
            {
                if (tcExecute == TipoExecute.After)
                {
                    // Eliminar registro de GESTION!PROGRAMS para que no muestre el menú FABRICACIÓN
                    string lcSql = "DELETE FROM " + DB.SQLDatabase("GESTION", "PROGRAMS") + " WHERE UPPER(NOMBRE)='FABRICACIÓN'";
                    DB.SQLExec(lcSql);

                    llOk = _SetVariable(false);
                }
            }

            return llOk;
        }

        public override bool _Instalar(TipoExecute tcExecute)
        {
            // Activamos trabajar con fabricación ...
            bool llOk = true;

            if (llOk = base._Instalar(tcExecute))
            {
                if (tcExecute == TipoExecute.After)
                {
                    Insertar_Registro_Tabla_Programs();

                    //Nuevo bug 170388. Quitar del _load cuando salga la 7710 y dejar solo en el _install y en el _update
                    var configFabrica = new Sage.ES.S50.Fabricacion.Negocio.Clases.fabricacionConfig();
                    configFabrica._CreateDefaultTemplates();

                    _SetVariable(true);
                }
            }

            return llOk;
        }

        public override bool GetActivoGrupos(List<string> tlstGrupos)
        {
            DataTable ldtTemp = new DataTable();

            // Montar instrucción sql para consultar a los grupos
            String lcSql = "";
            foreach (string lcGrupo in tlstGrupos)
            {
                // Obtener modulos del grupo actual
                string lcComunes = "COMU" + lcGrupo;
                lcSql += !string.IsNullOrWhiteSpace(lcSql) ? " UNION " : "";
                lcSql += $@"
                         SELECT codigo FROM {DB.SQLDatabase("COMUNES", "OPCFLAG")} o 
                            LEFT JOIN { DB.SQLDatabase("COMUNES", "OPCEMP")} c ON o.codigo = c.tipo_opc
                            WHERE lower(o.VARIABLE) = { DB.SQLString(_NombreVariable.ToLower())} and c.estado = { DB.SQLTrue()} ";
            }

            if (!string.IsNullOrWhiteSpace(lcSql))
                DB.SQLExec(lcSql, ref ldtTemp);

            bool llOk = (ldtTemp != null && ldtTemp.Rows.Count > 0);

            FUNCTIONS._DisposeDatatable(ldtTemp);

            return llOk;
        }

        public override bool _Apertura(string tcEjerAnt, string tcEjerActual)
        {
            return base._Apertura(tcEjerAnt, tcEjerActual);
        }

        #endregion MÉTODOS PÚBLICOS OVERRIDE

        #region MÉTODOS PRIVADOS

        private void Insertar_Registro_Tabla_Programs()
        {
            string lcSql = string.Empty;
            DataTable ldtPrograms = new DataTable();
            DB.SQLExec("select * from " + DB.SQLDatabase("GESTION", "PROGRAMS") + " WHERE UPPER(NOMBRE)='FABRICACIÓN'", ref ldtPrograms);
            if (ldtPrograms.Rows.Count == 0)
            {
                // Si no encuentro el registro de FABRICACIÓN en la tabla PROGRAMS lo inserto.
                DB.SQLExec("select max(numero) as max from " + DB.SQLDatabase("GESTION", "PROGRAMS"), ref ldtPrograms);
                Int64 lnNum = Convert.ToInt64(ldtPrograms.Rows[0]["max"]) + 1;

                lcSql = "INSERT INTO " + DB.SQLDatabase("GESTION", "PROGRAMS") + " (Nombre,Comando,numero,Exe) " +
                        "VALUES ('Fabricación','FPRINCIPAL.MMENU.CANVIARMENUS(" + lnNum.ToString().Trim() + ",''FABRICACION'',''FABRICACION'',''FABRICACION.hlp'')'," + lnNum.ToString().Trim() + ",'')";
                DB.SQLExec(lcSql);
            }
        }

        private bool _SetVariable(bool tlActivar)
        {
            if (EW_GLOBAL._Empresa._SetOpcEmp("10009", tlActivar))
            {
                EW_GLOBAL.ValorEnClave_VarGlob(_NombreVariable, tlActivar);
                EW_GLOBAL.ValorEnClave_VarGlob("wl_ewproduc", tlActivar);
                return true;
            }

            return false;
        }

        private bool _GetVariable()
        {
            return Convert.ToBoolean(EW_GLOBAL._GetVariable(_NombreVariable)) && !_EsAsesorSoloConta();            
        }

        private bool _EsAsesorSoloConta()
        {
            int lnAsesorContable = Convert.ToInt32(EW_GLOBAL._GetVariable("wn_AsesorContable"));

            if (lnAsesorContable > 0 || EW_GLOBAL._Solucion <= 1)
                return true;
            else
                return false;
        }

        private void _ActualizarSeccion()
        {
            string lcSql = $@"UPDATE {DB.SQLDatabase("GESTION","tipo_cost")} SET seccion = LTRIM(seccion)";

            DB.SQLExec(lcSql);
        }

        private void _ActualizarCamposProduccion()
        {
            bool _llPeso = Convert.ToBoolean(EW_GLOBAL._GetVariable("wl_Peso"));

            DataTable data = new DataTable();
            DataTable datadetalle = new DataTable();
            Dictionary<string, object> articulo = new Dictionary<string, object>();


            decimal lnPorcentaje_Coste_Estructural = 0;

            decimal lnTotal_Componentes = 0M;
            decimal lnTotal_Coste_Estructural = 0M;
            decimal lnTotal_Coste = 0M;

            decimal lnCoste_Unitario_Componentes = 0M;
            decimal lnCoste_Unitario_Estructural = 0M;
            decimal lnCoste_Unitario = 0M;

            string lcSql = " Select empresa, numero, articulo, entrada, peso From " + DB.SQLDatabase("GESTION", "C_PROD") + " Where TotalCoste = 0 ";
            DB.SQLExec(lcSql, ref data);

            foreach (DataRow cabecera in data.Rows)
            {
                lcSql = " Select * From " + DB.SQLDatabase("GESTION", "D_PROD") +
                        " Where empresa = " + DB.SQLString(cabecera.Field<string>("empresa")) +
                        " And numero = " + DB.SQLString(cabecera.Field<string>("numero"));
                DB.SQLExec(lcSql, ref datadetalle);

                lnPorcentaje_Coste_Estructural = Convert.ToDecimal(DB.SQLValor("EMPRESA", "CODIGO", cabecera.Field<string>("empresa"), "PORESTRUP", "GESTION"));
                
                lnCoste_Unitario_Componentes = 0M;
                lnCoste_Unitario_Estructural = 0M;
                lnCoste_Unitario = 0M;

                lnTotal_Componentes = 0M;
                lnTotal_Coste_Estructural = 0M;
                lnTotal_Coste = 0M;

                foreach (DataRow detalle in datadetalle.Rows)
                {
                    // Si el articulo es una línea de escandallo del producto a producir y tiene seleccionado el campo: No actualizar coste principal, 
                    // esta línea no se tendrá en cuenta para el cálculo del coste de componentes.
                    string[] campos = new string[] { "ARTICULO", "COMPONENTE" };
                    string[] valores = new string[] { cabecera.Field<string>("articulo"), detalle.Field<string>("articulo") };

                    bool llNoActualizarCostePrincipal = Convert.ToBoolean(DB.SQLValor("ESCANDAL", campos, valores, "NOACTCOSTP", "GESTION"));
                    if (!llNoActualizarCostePrincipal)
                    {
                        articulo = DB.SQLREGValor("ARTICULO", "CODIGO", detalle.Field<string>("articulo"), "GESTION");

                        if (_llPeso && !string.IsNullOrWhiteSpace(Convert.ToString(articulo["peso"])) && Convert.ToString(articulo["peso"]) != "0")
                        {
                            // Si el artículo de la línea trabaja con peso, entonces tomar el valor d_prod.coste* d_prod.Peso
                            lnTotal_Componentes += detalle.Field<decimal>("Coste") * detalle.Field<decimal>("Peso");
                        }
                        else
                        {
                            // Si el artículo de la línea No trabaja peso, entonces tomar el valor d_prod.coste* d_prod.salida
                            lnTotal_Componentes += detalle.Field<decimal>("Coste") * detalle.Field<decimal>("Salida");
                        }
                    }
                }

                lnTotal_Coste_Estructural = lnTotal_Componentes * (lnPorcentaje_Coste_Estructural / 100);
                lnTotal_Coste = lnTotal_Componentes + lnTotal_Coste_Estructural;

                articulo = DB.SQLREGValor("ARTICULO", "CODIGO", cabecera.Field<string>("articulo"), "GESTION");

                if (_llPeso && !string.IsNullOrWhiteSpace(Convert.ToString(articulo["peso"])) && Convert.ToString(articulo["peso"]) != "0")
                {
                    if (cabecera.Field<decimal>("Peso") != 0)
                    {
                        // Si el articulo a producir trabaja con peso, dividir el resultado anterior por c_Prod.peso
                        lnCoste_Unitario_Componentes = lnTotal_Componentes / cabecera.Field<decimal>("Peso");


                        lnCoste_Unitario_Estructural = lnTotal_Coste_Estructural / cabecera.Field<decimal>("Peso");
                    }
                }
                else
                {
                    if (cabecera.Field<decimal>("Entrada") != 0)
                    {
                        // Si el articulo a producir trabaja sin peso, dividirlo por c_Prod.entrada
                        lnCoste_Unitario_Componentes = lnTotal_Componentes / cabecera.Field<decimal>("Entrada");


                        lnCoste_Unitario_Estructural = lnTotal_Coste_Estructural / cabecera.Field<decimal>("Entrada");
                    }
                }

                lnCoste_Unitario = lnCoste_Unitario_Componentes + lnCoste_Unitario_Estructural;

                lcSql = " UPDATE " + DB.SQLDatabase("GESTION","C_PROD") +
                        " SET PMCOM = " + DB.SQLString(lnCoste_Unitario) + ", " +
                            " Componunit = " + DB.SQLString(lnCoste_Unitario_Componentes) + ", " +
                            " Estrucunit = " + DB.SQLString(lnCoste_Unitario_Estructural) + ", " +
                            " Totalcoste = " + DB.SQLString(lnTotal_Coste) + ", " +
                            " Totalestru = " + DB.SQLString(lnTotal_Coste_Estructural) + ", " +
                            " Totalcompo = " + DB.SQLString(lnTotal_Componentes) + ", " +
                            " Porc_estru = " + DB.SQLString(lnPorcentaje_Coste_Estructural) + " " +
                        " Where empresa = " + DB.SQLString(cabecera.Field<string>("empresa")) +
                        " And numero = " + DB.SQLString(cabecera.Field<string>("numero"));
                DB.SQLExec(lcSql);
            }
        }

        #endregion MÉTODOS PRIVADOS
    }
}