LoteDocTransformacionCabecera.cs

using sage.ew.db;
using sage.ew.global;
using sage.ew.interficies;
using sage.ew.ewbase;
using System;
using System.Collections.Generic;
using System.Data;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace sage.ew.lote.Clases
{
    public class LoteDocTransformacionCabecera : Lote, IFabricacionExtendidas //IFabricacionExtendidasCabecera
    {
        #region Constructor

        public LoteDocTransformacionCabecera()
        {
            _lDocEntrada = false;
        }

        public LoteDocTransformacionCabecera(string tcLote, IDocLineaFabricacion toLinea = null)
        {
            _lDocEntrada = false;
        }

        #endregion Constructor

        public decimal _Previstas { get; set; } = 0;

        protected override void _ComprobarBloqueos()
        {
            _ReadOnly = _ReadOnly || _oDocLin._Solo_Lectura;
        }

        protected override bool _Es_Documento_Fabricacion()
        {
            return true;
        }

        protected override void _Consultar_Lotes_Documento()
        {
            string lcSql = string.Empty;

            // Consultem els lots asociats al document
            lcSql = "SELECT EMPRESA,space(2) as LETRA,NUMERO,FECHA,ARTICULO, 0 AS LINIA,LOTE,UNIDADES, " +
                            " PERIODO,ALMACEN,CADUCIDAD,UBICA,FECHA2,PESO, " +
                            " TALLA,COLOR,ASI, " +
                            " UNIDADES AS UNIASIG, 0.00000000000 AS UNI2, PESO AS PESASIG, 0.00000000000 AS PES2, " +
                            " cast(1 as bit) as SEL, cast(0 as bit) as AJENO, cast(0 as bit) as REGULA, space(80) as ORIGEN, 0.00000000000 AS COSTE " +
                    "FROM " + DB.SQLDatabase("LOTES", "LTCTRAN") + " " +
                    " WHERE PERIODO = " + DB.SQLString(_cPeriodo) + " " +
                        " AND EMPRESA = " + DB.SQLString(_oDocLin._Empresa) +
                        " AND NUMERO  = " + DB.SQLString(_oDocLin._Numero);

            DB.SQLExec(lcSql, ref _oDataTable);
        }

        protected override void _Consultar_Stock_Disponible(ref DataTable tdtStockLote)
        {
            string lcSql = string.Empty;

            string lcOn = EW_GLOBAL._Consolida("a.EMPRESA", true, false);  // 99489

            // Consultem el Stock disponible de l'article
            lcSql = "SELECT a.LOTE, a.CADUCIDAD, a.UNIDADES, a.PESO, a.UBICA, a.TALLA, a.COLOR, " +
                        " 0.00000000000 AS UNIASIG,0.00000000000 AS PESASIG, 0.00000000000 AS UNI2, 0.00000000000 AS PES2, space(20) as ASI, " +
                        " cast(0 as bit) as SEL, cast(0 as bit) as AJENO, cast(0 as bit) as REGULA, space(80) as ORIGEN, 0.00000000000 AS COSTE " +
                    "FROM " + DB.SQLDatabase("LOTES", "STOCKLOTES") + " a " +
                        " LEFT JOIN " + DB.SQLDatabase("LOTES", "LTCTRAN") + " b " +
                                " ON " + lcOn +   // 99489
                                " AND a.ALMACEN = b.ALMACEN " +
                                " AND a.ARTICULO = b.ARTICULO " +
                                " AND a.LOTE = b.LOTE " +
                                " AND a.UBICA = b.UBICA " +
                                " AND a.TALLA = b.TALLA " +
                                " AND a.COLOR = b.COLOR " +
                                " AND b.NUMERO = " + DB.SQLString(_oDocLin._Numero) +
                        " WHERE " + lcOn + // 99489
                        " AND a.TALLA = " + DB.SQLString(_oDocLin._Talla) +
                        " AND a.COLOR = " + DB.SQLString(_oDocLin._Color) +
                        " AND a.ARTICULO  = " + DB.SQLString(_oDocLin._Articulo) +
                        " AND a.ALMACEN = " + DB.SQLString(_oDocLin._Almacen) +
                        " AND a.FECHA   <= " + DB.SQLString(_oDocLin._Fecha) +
                        " AND b.LOTE = null " +
                        " AND b.UBICA = null ";

            DB.SQLExec(lcSql, ref tdtStockLote);
        }

        public override bool _Desactivar_Control_Stock()
        {
            return _oLotesConfig._SinMov_Ltctran;
        }

        protected override void _DeleteLinDocStockLotes(LinVenDetLotes toDetCodigo)
        {
            if (_oLotesConfig._Mostrar_Rendimiento)
            {
                DataTable table = new DataTable();

                string lcSqlPrevistas = "SELECT PREVISTAS FROM " + DB.SQLDatabase("LOTES", "LTCTRAN") + "  " +
                                        " WHERE PERIODO = " + DB.SQLString(_cPeriodo) + " " +
                                            " AND EMPRESA = " + DB.SQLString(_oDocLin._Empresa) + " " +
                                            " AND NUMERO = " + DB.SQLString(_oDocLin._Numero) + " " +
                                            " AND LOTE = " + DB.SQLString(toDetCodigo._Codigo) + " " +
                                            " AND UBICA = " + DB.SQLString(toDetCodigo._Ubicacion) + " " +
                                            " AND TALLA = " + DB.SQLString(toDetCodigo._Talla) + " " +
                                            " AND COLOR = " + DB.SQLString(toDetCodigo._Color) + " ";

                //Executo la consulta
                DB.SQLExec(lcSqlPrevistas, ref table);

                if (table != null && table.Rows.Count > 0)
                {
                    _Previstas = Convert.ToDecimal(table.Rows[0]["PREVISTAS"]);
                }
                else
                {
                    _Previstas = toDetCodigo._Unidades;
                }
            }

            string lcSql = " AND PERIODO = " + DB.SQLString(_cPeriodo) + " " +
                            " AND EMPRESA = " + DB.SQLString(_oDocLin._Empresa) + " " +
                            " AND NUMERO = " + DB.SQLString(_oDocLin._Numero) + " " +
                            " AND LOTE = " + DB.SQLString(toDetCodigo._Codigo) + " " +
                            " AND UBICA = " + DB.SQLString(toDetCodigo._Ubicacion) + " " +
                            " AND TALLA = " + DB.SQLString(toDetCodigo._Talla) + " " +
                            " AND COLOR = " + DB.SQLString(toDetCodigo._Color) + " ";

            _dOldCreated = Convert.ToDateTime(DB.SQLValor("LTCTRAN", "1=1 " + lcSql + " AND '' ", "", "CREATED", "LOTES"));

            // Taula LOTES!LTCTRAN
            lcSql = "DELETE FROM " + DB.SQLDatabase("LOTES", "LTCTRAN") + " WHERE 1=1 " + lcSql;

            //Executo la consulta
            DB.SQLExec(lcSql);
        }

        protected override void _InsertLinDocStockLotes(LinVenDetLotes toDetCodigo)
        {
            string lcSql = string.Empty;

            lcSql = "INSERT INTO " + DB.SQLDatabase("LOTES", "LTCTRAN") + "  " +
                            "(EMPRESA,NUMERO,FECHA,ARTICULO,LOTE,UNIDADES,PREVISTAS,ACABADO,PERIODO,ALMACEN,CADUCIDAD,UBICA,FECHA2,PESO,TALLA,COLOR,ASI" +
                            (_dOldCreated == DateTime.MinValue ? "" : ",CREATED") +
                            ") " +
                    "VALUES (" +
                            DB.SQLString(_oDocLin._Empresa) + ", " +
                            DB.SQLString(_oDocLin._Numero) + ", " +
                            DB.SQLString(_oDocLin._Fecha) + ", " +
                            DB.SQLString(_oDocLin._Articulo) + ", " +
                            DB.SQLString(toDetCodigo._Codigo) + ", " +
                            DB.SQLString(toDetCodigo._Unidades) + ", " +
                            DB.SQLString(_Previstas) + ", " +
                            DB.SQLString(false) + ", " +
                            DB.SQLString(_cPeriodo) + ", " +
                            DB.SQLString(_oDocLin._Almacen) + ", " +
                            DB.SQLString(toDetCodigo._Caducidad) + ", " +
                            DB.SQLString(toDetCodigo._Ubicacion) + ", " +
                            DB.SQLString(DateTime.Now) + ", " +
                            DB.SQLString(toDetCodigo._Peso) + ", " +
                            DB.SQLString(_oDocLin._Talla) + ", " +
                            DB.SQLString(_oDocLin._Color) + ", " +
                            DB.SQLString(toDetCodigo._Asi) + " " +
                            (_dOldCreated == DateTime.MinValue ? "" : ", " + DB.SQLString(_dOldCreated)) +
                            ") ";

            DB.SQLExec(lcSql);
        }

        protected override string _Obtener_Nombre_Articulo()
        {
            return _oDocLin._NombreArticulo;
        }

        public bool _ObtenerCosteLinea(IDocLineaFabricacion toLinea)
        {
            //No se prevee que se necesite este método
            return false;
        }

        public bool _OperacionesDeCierre(IDocLineaFabricacion toLinea, bool deshacerCierre = false)
        {
            if (_oLotesConfig._Coste_Lote)
            {
                if (deshacerCierre)
                {

                }
                else //Operaciones de cierre
                {
                    //Actualizar coste
                    _oDocLin = toLinea;
                    _Coste_Cargar_Datos();
                    _Coste_Actualitzar_Datos();
                }
            }
            return true;
        }

        protected override bool _Autocreacion()
        {
            return _oLotesConfig._Crear_Transformacion;
        }

        protected override DataTable _Coste_Obtener_Datos(string lcConsulta)
        {
            DataTable ldtCosteLote = new DataTable();

            DB.SQLExec("SELECT ARTICULO,LOTE" + lcConsulta + " FROM " + DB.SQLDatabase("LOTES", "LTCTRAN") +
                    " WHERE PERIODO = " + DB.SQLString(_cPeriodo) + " " +
                        " AND EMPRESA   = " + DB.SQLString(_oDocLin._Empresa) +
                        " AND NUMERO    = " + DB.SQLString(_oDocLin._Numero) +
                        " AND LOTE!='' ", ref ldtCosteLote);

            return ldtCosteLote;
        }

        protected override void _Coste_Actualizar_Lote(string lcAsi)
        {
            DB.SQLExec(" Update " + DB.SQLDatabase("LOTES", "LTCTRAN") +
                        " Set Asi = " + DB.SQLString(lcAsi) +
                    " WHERE PERIODO = " + DB.SQLString(_cPeriodo) + " " +
                        " AND EMPRESA   = " + DB.SQLString(_oDocLin._Empresa) +
                        " AND NUMERO    = " + DB.SQLString(_oDocLin._Numero) +
                        " And asi = '' ");
        }

        #region IStockExtRegulari

        protected override void _Preparar_UpdateSilent_Unidades(decimal tnValor, ref Dictionary<String, Object> toDic)
        {
            toDic.Add("SALIDA", tnValor);
        }

        protected override void _Preparar_UpdateSilent_Peso(decimal tnValor, ref Dictionary<String, Object> toDic)
        {
            toDic.Add("PESO", tnValor);
        }


        protected override void _Preparar_UpdateSilent_Cajas(decimal tnValor, ref Dictionary<string, object> toDic)
        {
            // En los traspaso de depositos, no tiene que modificar las cajas.
        }


        public bool _Delete(IDocLineaFabricacion toLinea)
        {
            DataTable ldtOldDades = new DataTable();
            string lcSql = "";
            bool llCamposAdicionales = Convert.ToBoolean(EW_GLOBAL._GetVariable("wl_mcampos2"));

            // Taula LOTES!LTCPROD
            lcSql = "SELECT DISTINCT ASI, ARTICULO, ALMACEN, TALLA, COLOR " + (llCamposAdicionales ? ", LOTE" : "") +
                            " FROM " + DB.SQLDatabase("LOTES", "LTCTRAN") + "  " +
                            " WHERE PERIODO = " + DB.SQLString(_cPeriodo) + " " +
                            " AND EMPRESA = " + DB.SQLString(toLinea._Empresa) + " " +
                            " AND NUMERO = " + DB.SQLString(toLinea._Numero);

            //Executo la consulta
            if (!DB.SQLExec(lcSql, ref ldtOldDades))
                return false;

            lcSql = "Delete From " + DB.SQLDatabase("LOTES", "LTCTRAN") +
                    " Where empresa = " + DB.SQLString(toLinea._Empresa) +
                    " And numero = " + DB.SQLString(toLinea._Numero) +
                    " And periodo = " + DB.SQLString(_cPeriodo);

            if (!DB.SQLExec(lcSql))
                return false;


            string lcArticulo = string.Empty;
            string lcAlmacen = string.Empty;
            string lcTalla = string.Empty;
            string lcColor = string.Empty;

            if (ldtOldDades.Rows.Count > 0)
            {
                foreach (DataRow ldr in ldtOldDades.Rows)
                {
                    lcArticulo = ldr["ARTICULO"].ToString().Trim();
                    lcAlmacen = ldr["ALMACEN"].ToString().Trim();
                    lcTalla = ldr["TALLA"].ToString().Trim();
                    lcColor = ldr["COLOR"].ToString().Trim();

                    if (_oLotesConfig._Coste_Lote)
                    {
                        lcSql = "DELETE " + DB.SQLDatabase("LOTES", "COSTELOT") + " WHERE ASI = " + DB.SQLString(ldr["asi"]) + " ";
                        DB.SQLExec(lcSql);
                    }

                    // Campos adicionales de los lotes
                    if (llCamposAdicionales)
                    {
                        // Comprobar si la pareja Articulo-Lote se utiliza en otros documentos
                        DataTable ldtStockPartidas = _Stocklote_Tabla(lcArticulo, ldr["LOTE"].ToString().Trim(), "", lcTalla, lcColor);
                        if (ldtStockPartidas.Rows.Count == 0)
                        {
                            string tcCodigoTmp = lcArticulo.PadRight(Convert.ToInt32(EW_GLOBAL._GetLenCampo(global.Diccionarios.KeyDiccionarioLenCampos.wn_articulo))) + ldr["LOTE"].ToString().Trim();

                            ListCamposAdicionales ListCamposAdicionales = new ListCamposAdicionales(ListCamposAdicionales.TipoDocumento.Lotes, tcCodigoTmp);
                            ListCamposAdicionales._Load();
                            ListCamposAdicionales._Delete();
                        }
                    }


                    _Refrescar_Stocks(lcArticulo, lcAlmacen, lcTalla, lcColor);    // Valors anteriors
                }
            }

            // si els valors son identics, no m'ho cal tornar a fer.
            if (lcArticulo != toLinea._Articulo.Trim() || lcAlmacen != toLinea._Almacen.Trim() || lcTalla != toLinea._Talla.Trim() || lcColor != toLinea._Color.Trim())
                _Refrescar_Stocks(toLinea._Articulo, toLinea._Almacen, toLinea._Talla, toLinea._Color);


            return true;
        }

        public bool _Delete(string tcLote, IDocumentLinea toLinea)
        {
            return true;
        }

        public bool _Show(object toPadre, IDocumentLinea toLinea, bool tlReadOnly = false)
        {
            return true;
        }

        public bool _Show(IDocLineaFabricacion toLinea, eCampoDocumentLinea teCampo, object toValue, ref string tcMensajeError)
        {
            bool llGestionEspecial = false;

            switch (teCampo)
            {
                case eCampoDocumentLinea.Unidades:
                case eCampoDocumentLinea.Peso:
                case eCampoDocumentLinea.Cajas:
                case eCampoDocumentLinea.Talla:
                case eCampoDocumentLinea.Color:

                    // Control especial para saber si el documento se consulta de sólo lectura (PE-90431)
                    if (toValue == null) _ReadOnly = true;

                    if (!_ReadOnly)
                    {
                        if (((Sage.ES.S50.Fabricacion.Negocio.Documentos.AlbaranTransformacion)toLinea)._Validar_Solo_Lectura()) _ReadOnly = true;
                    }

                    // Si el objecte toValue es false, vol dir que venim des del botó
                    if ((toValue is bool && (bool)toValue == false) || _ReadOnly)  // PE-90431
                        _Iniciar_Asignacion_Lotes(toLinea, false);
                    else
                        _Iniciar_Asignacion_Lotes(toLinea, true);

                    tcMensajeError = _Error_Message;
                    llGestionEspecial = true;
                    break;

                default:
                    break;
            }

            return llGestionEspecial;
        }

        public bool _Update(IDocLineaFabricacion toLinea)
        {
            string lcSql = "Update " + DB.SQLDatabase("LOTES", "LTCTRAN") +
                            " Set acabado = " + DB.SQLString(toLinea._Acabado) + ", fecha = " + DB.SQLString(toLinea._Fecha) +
                            " Where empresa = " + DB.SQLString(toLinea._Empresa) +
                            " And numero = " + DB.SQLString(toLinea._Numero) +
                            " And periodo = " + DB.SQLString(_cPeriodo);

            DB.SQLExec(lcSql);

            _Refrescar_Stocks(toLinea._Articulo, toLinea._Almacen, toLinea._Talla, toLinea._Color);

            return true;
        }

        protected override void _Preparar_UpdateSilent_Coste(decimal tnValor, ref Dictionary<String, Object> toDic)
        {
            toDic.Add("COSTEUNIT", tnValor);
        }

        public bool _Obtener_Detalle(IDocLineaFabricacion toLinea, ref DataTable tdtResultados)
        {
            bool llOk = false;
            string lcSql = String.Empty;

            lcSql = "SELECT LOTE AS CODIGO, UNIDADES, PESO " +
                    "FROM " + DB.SQLDatabase("LOTES", "LTCTRAN") + " " +
                    "WHERE EMPRESA = " + DB.SQLString(toLinea._Empresa) +
                    " AND NUMERO  = " + DB.SQLString(toLinea._Numero) +
                    " AND PERIODO = " + DB.SQLString(_cPeriodo);
            llOk = DB.SQLExec(lcSql, ref tdtResultados);

            return llOk;
        }

        public bool _Operacion_Permitida(IDocLineaFabricacion toLinea, eCampoDocumentLinea teCampo, object toValue, ref string tcMensajeRespuesta)
        {
            bool llCondicion = false;

            // 103484
            llCondicion = llCondicion || teCampo == eCampoDocumentLinea.Articulo && !String.IsNullOrWhiteSpace(toLinea._Articulo) && String.Compare(toLinea._Articulo, (string)toValue) != 0;
            llCondicion = llCondicion || teCampo == eCampoDocumentLinea.Talla && !String.IsNullOrWhiteSpace(toLinea._Talla) && String.Compare(toLinea._Talla, (string)toValue) != 0;
            llCondicion = llCondicion || teCampo == eCampoDocumentLinea.Color && !String.IsNullOrWhiteSpace(toLinea._Color) && String.Compare(toLinea._Color, (string)toValue) != 0;
            llCondicion = llCondicion && toLinea._Unidades > 0;
            // fi 103484


            //Sin restricciones específicas => Operaciones permitidas
            if (llCondicion)
            {
                string lcDef = Convert.ToString(EW_GLOBAL._GetVariable("wc_deflote"));

                tcMensajeRespuesta = "No se puede modificar el artículo de la cabecera, porque existen unidades asignadas.";
                return false;
            }

            return true;
        }

        public bool _Se_Puede_Borrar(IDocLineaFabricacion toLinea)
        {
            return true;
        }

        public bool _SePuedeAbrir(IDocLineaFabricacion toLinea, bool hayFormulario = false)
        {
            return true;
        }

        #endregion IStockExtRegulari
    }

    public class _Asignar_Articulos_LoteDocTransformacion_Behaviour : IValidadorLote
    {
        private string _cPeriodo = Convert.ToString(EW_GLOBAL._GetVariable("wc_any"));

        public _Asignar_Articulos_LoteDocTransformacion_Behaviour()
        {

        }


        public bool _Asignar_Articulos_Lote(sage.ew.lote.Clases.Lote toLote, IDocumentLinea toLinea)
        {
            DataTable table = new DataTable();

            int lnlinea = (toLinea._LineaReal < 0 ? toLinea._LineaReal * (-1) : toLinea._LineaReal);

            DB.SQLExec(" SELECT 1 FROM " + DB.SQLDatabase("LOTES", "LTCTRAN") + "  " +
                        " WHERE PERIODO = " + DB.SQLString(_cPeriodo) +
                            " AND EMPRESA = " + DB.SQLString(toLinea._Empresa) +
                            " AND NUMERO = " + DB.SQLString(toLinea._Numero) +
                            " AND LINIA = " + DB.SQLString(lnlinea) +
                            " AND LOTE = " + DB.SQLString(toLote._Lote) +
                            " AND UBICA = " + DB.SQLString("") +
                            " AND TALLA = " + DB.SQLString(toLinea._Talla) +
                            " AND COLOR = " + DB.SQLString(toLinea._Color), ref table);

            if (table.Rows.Count == 0)
            {
                DB.SQLExec("INSERT INTO " + DB.SQLDatabase("LOTES", "LTCTRAN") + "  " +
                            "(EMPRESA,NUMERO,FECHA,ARTICULO,LINIA,LOTE,UNIDADES,PERIODO,ALMACEN,CADUCIDAD,UBICA,FECHA2,PESO,TALLA,COLOR,ASI) " +
                    "VALUES (" +
                            DB.SQLString(toLinea._Empresa) + ", " +
                            DB.SQLString(toLinea._Numero) + ", " +
                            DB.SQLString(toLinea._Fecha) + ", " +
                            DB.SQLString(toLote._Articulo) + ", " +
                            DB.SQLString(lnlinea) + ", " +
                            DB.SQLString(toLote._Lote) + ", " +
                            DB.SQLString(toLote._Unidades) + ", " +
                            DB.SQLString(_cPeriodo) + ", " +
                            DB.SQLString(toLinea._Almacen) + ", " +
                            DB.SQLString(toLote._Caducidad) + ", " +
                            DB.SQLString(toLote._Ubicacion) + ", " +
                            DB.SQLString(DateTime.Now) + ", " +
                            DB.SQLString(toLote._Peso) + ", " +
                            DB.SQLString(toLinea._Talla) + ", " +
                            DB.SQLString(toLinea._Color) + ", " +
                            DB.SQLString(toLote._Asi) + ") ");
            }

            return true;
        }
    }
}