btEstadoPedidos.cs

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

using sage.ew.objetos;
using sage.ew.netvfp;
using sage.ew.interficies;

namespace sage.ew.docsven
{
    [System.Drawing.ToolboxBitmap(typeof(System.Windows.Forms.Button))]
    public partial class btEstadoPedidos : ewbutton, IObjetoDocumento
    {
        // Propietats públiques
        public dynamic _Documento
        {
            get { return _oDocumento; }
            set { _oDocumento = value; }
        }
        private dynamic _oDocumento = null;

        //private dynamic _oDocLinea = null;
        public dynamic _DocLinea;
        //{
        //    get { return _oDocLinea; }
        //    set { _oDocLinea = value; }
        //}

        public btEstadoPedidos()
        {
            // Si no es treballa amb estados de pedidos, ocultem el botó
            if (global.EW_GLOBAL._EdicionPerfiles == false && !Convert.ToBoolean(global.EW_GLOBAL._GetVariable("wl_estadoped")))
            {
                this.Visible = false;
                return;
            }

            InitializeComponent();
        }

        private void btEstadoPedidos_Click(object sender, EventArgs e)
        {
            string lcEmpresa = "", lcNumero = "", lcLetra = "", lcAccio = "", lcCliente = "";

            // Hi ha d'haver document
            if (_Documento == null)
                return;
            // Comprobar que tengamos documento
            if (string.IsNullOrWhiteSpace(this._Documento._Numero) || string.IsNullOrWhiteSpace(this._Documento._Cabecera._Cliente))
            {
                _Documento._MessageBox("Para acceder a esta opción es necesario tener un documento en pantalla.", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, DialogResult.OK);
                return;
            }

            if (this._Documento._Lineas.Count == 0)
            {
                _Documento._MessageBox("Para acceder a esta opción es necesario seleccionar una línea del documento.", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, DialogResult.OK);
                return;
            }

            // PE-79033. He de buscar la línia actual per passar-la a la funció de Eurowin
            dynamic loLinia = ((docsven.UserControls.gridArtDocVenta)this.FindForm().Controls["gridArtDocVenta"])._Grid.CurrentRow.DataBoundItem;
            if (loLinia == null)
                return;

            // Guardem
            _Documento._Save();

            lcEmpresa = _Documento._Empresa;
            lcLetra = _Documento._Letra.PadRight(2);
            lcNumero = _Documento._Numero.PadRight(10);
            lcAccio = "Thisform.Estado_del_Pedido(.F.,.T.," + loLinia._Linea.ToString() + ")";  // PE-79033. Afegim la línia als paràmetres

            // Obrim la pantalla de pedidos de venta de l'Eurowin a la posició 2000, 2000
            object[] loParametros = new object[4] 
            { 
                lcLetra+lcNumero,
                lcCliente,
                lcAccio,
                "NOSHOW"    // PE-78809. No ha de ser visible a Fox
            };
            NETVFP._Abrir_Formulario_VFP("PEDIVEN", loParametros);

            // PE-79344. Descarreguem el document actual
            _Documento._DescargarDatos();

            // Refresquem
            _Documento._Load(lcEmpresa, lcNumero, lcLetra);

            _Documento._MessageBox("Se han comprobado el estado de la línea.", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, DialogResult.OK);
            
        }
    }
}