btDescuentosTotal.cs

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Windows.Forms;

using sage.ew.objetos;
using sage.ew.formul;
using sage.ew.global;
using sage.ew.netvfp;
using sage.ew.empresa;
using sage.ew.functions;
using sage.ew.ewbase;
using sage.ew.interficies;
using sage.ew.docsven;
using sage.ew.global.Diccionarios;

namespace sage.ew.docventatpv.Clases
{
    public class btDescuentosTotal : ewbutton, IObjetoDocumento
    {
        #region PROPIEDADES

        private dynamic _oDocLinea = null;
        private dynamic _oDocumento;

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

        public dynamic _Documento
        {
            get { return this._oDocumento; }
            set { this._oDocumento = value; }
        }

        public docsven.UserControls.gridArtDocVenta _GridArt
        {
            get { return _oGridArt; }
            set { _oGridArt = value; }
        }
        private docsven.UserControls.gridArtDocVenta _oGridArt;

        #endregion PROPIEDADES

        public btDescuentosTotal()
        {
            // Asociamos el texto del botón
            this.Text = "Descuentos totales";
            this.Image = sage.ew.images.Properties.Resources.total_discount;
            this.Click += new EventHandler(btDescuentosTotal_Click);
        }

        void btDescuentosTotal_Click(object sender, EventArgs e)
        {
            bool llMateixaMoneda = false;

            decimal lnDescuento = 0; //fDESCOM_TPV.TAN_APLICAT
            bool llNota = false;        // fDESCOM_TPV.chNota.Value
            bool llTipoDescuen = false; // fDESCOM_TPV.opgTipoDescuen.Value==1
            decimal lnValorDto = 0;     // fDESCOM_TPV.spDescuento.Value

            string lcTipoIva = string.Empty;
            decimal lnTeorico = 0;
            dynamic loLineaNueva = null;


            //Sino tengo documento acabo
            if (this._Documento == null) 
                return;

            //PE80955   
            if (!this._Documento._Botones._Validar_Documento())
                return;

            //Control de solo para tickets PE-85325
            if (_Documento._TipoDocumento != eTipoDocumento.Ticket)
            {
                _Documento._MessageBox("Solo aplicable a documentos tipo ticket.", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, DialogResult.None);
                return;
            }

            if (_Documento._Documento_CobradoOPagado())
            {
                _Documento._MessageBox("No es posible aplicar descuentos lineales, el documento está cobrado.", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, DialogResult.OK);
                return;
            }
            //fi pe80955

            dynamic loLineaActual = null;
            if (_oDocLinea != null)
            {
                loLineaActual = _oDocLinea;
                _oDocLinea = null; //Reinicio la variable
            }
            else
                loLineaActual = _oDocumento._Lineas[_oGridArt._Grid.CurrentRow.Index];
            
            // busquem index per saber quina es la linia
            int lnIndice = this._oGridArt._Grid.CurrentRow.Index;
            int lnLinia = this._oGridArt._Documento._Lineas[lnIndice]._Linea;

            foreach (ewDocVentaLinTPV loLinea in _Documento._Lineas)
            {
                if (!String.IsNullOrWhiteSpace(loLinea._TipoIva))
                {
                    lcTipoIva = loLinea._TipoIva;
                    break;
                }

            }

            //llNovaLinea = (this._gridArt._Grid.RowCount == lnLinia);

            string[] lcParams = new string[4];

            //Comrpobamos si se debe abrir el formulario en FOX o en .NET
            if (this.__Abrir_Formulario_En() <= 1)
            {
                //FOX
                object[] loParametros = new object[4] 
                { 
                    this._Documento._Numero,                             // Numero
                    this._Documento._Letra,                              // Letra
                    this._Documento._Pie._TotalDocumento,        // Total Documento
                    true                                                // Parametre especial
                };
                string lcValor = NETVFP._Ejecutar_Funcion_VFP("DESC_TOTAL_NET", loParametros);

                // S'ha de parsejar, el valor retornat
                if (String.IsNullOrEmpty(lcValor))
                    return;

                lcParams = lcValor.Split('#');
                if (lcParams.Length != 4)
                    return;

                // 81731
                string lcSeparator = Convert.ToString(EW_GLOBAL._GetVariable("wc_separator"));
                string lcPoint = Convert.ToString(EW_GLOBAL._GetVariable("wc_point"));
                // fi 81731

                lnDescuento = Convert.ToDecimal(lcParams[0].Replace(lcSeparator, lcPoint));
                llNota = Convert.ToBoolean(lcParams[1] == "true");
                llTipoDescuen = Convert.ToBoolean(lcParams[2] == "true");
                lnValorDto = Convert.ToDecimal(lcParams[3].Replace(lcSeparator, lcPoint));
            }
            else
            {
                //.NET
                sage.ew.tpv.Forms.frmDescuentoTotal form = new sage.ew.tpv.Forms.frmDescuentoTotal();
                //Total del documento
                form._TotalDocumento = this._Documento._Pie._TotalDocumento;
                //Tipo de descuento
                form._TipoDescuento = 1;
                form._ShowDialog(); //Bug 114218 Cambiar .ShowDialog() por ._ShowDialog()

                //Mostramos el formulario
                if (form.DialogResult == System.Windows.Forms.DialogResult.OK)
                {
                    //Recogemos los resultados
                    lnDescuento = form._TotalDescuento;
                    llNota = form._AnadirNota;
                    //Tipo de descuento
                    if (form._TipoDescuento == 1)
                    {
                        llTipoDescuen = true; //Descuento por cantidad
                        lnValorDto = form._DtoImporte;
                    }
                    else
                    {
                        llTipoDescuen = false; //Descuento por tanto por ciento
                        lnValorDto = form._DtoTPC;
                    }
                }
                else
                {
                    //Cancelo
                    return;
                }
            }

            string lcDivisa = _Documento._Cabecera._Divisa;
            string lcMoneda = Convert.ToString(EW_GLOBAL._GetVariable("wc_moneda"));
            string lcMascara = Convert.ToString(EW_GLOBAL._GetVariable("wc_mascaramon"));

            llMateixaMoneda = (lcDivisa == lcMoneda);

            
            if (llTipoDescuen)
                //Dto. por cantidad
                lnTeorico = this._Documento._Pie._TotalDocumento - lnDescuento;
            else
                //Dto. por %
                lnDescuento = lnValorDto;


            decimal lnTotalTicket = this._Documento._Pie._TotalDocumento;
            int lnActual = 0;

            if (llTipoDescuen)
            {
                // Intentamos ir descontando hasta cuadrar **
                while (lnDescuento != 0 && lnActual < 4)
                {
                    lnActual++;
                    _Aplicar_Dto_Diferencia(lnTotalTicket,lnDescuento,llTipoDescuen);

                    // Revisamos si ya hemos descontado suficiente
                    lnTotalTicket = _Documento._Pie._TotalDocumento;
                    
                    lnDescuento = (lnTotalTicket - lnTeorico);
                    
                    // Diferencia tan pequeña que hay que quadrar
                    if (Math.Abs(lnDescuento) <= Convert.ToDecimal(0.01))
                        break;
                }
        

        
                // Si hay descuadre, corregimos aplicando la diferencia entre % con/sin redondeo
                // ya sé que es un poco patillero pero no encuentro ninguna solución alternativa
                // si alguien tiene una idea de cómo hacerlo mejor...
                if (lnDescuento != 0)
                {
                    // añadir la dif. como línea nueva **
                    _Documento._MessageBox("Se ha detectado una diferencia por aplicación de descuento por importe de " + 
                                            Convert.ToString(this._Documento._Cabecera._oDivisa._MascaraImporte.Redondeo(lnValorDto)) + System.Environment.NewLine  + 
                                            "Se creará una línea de descuento adicional para cuadrar el importe total del ticket.", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, DialogResult.OK);
            
                        
                    lnDescuento = lnDescuento * (-1);
                    
                    // Añadir línea dto. por diferencia
                    loLineaNueva = this._Documento._AddLinea();
                    

                    loLineaNueva._Cuenta = Convert.ToString(EW_GLOBAL._GetVariable("wc_vcta_dol"));
                    if (String.IsNullOrWhiteSpace(lcTipoIva))
                        lcTipoIva = Convert.ToString(EW_GLOBAL._GetVariable("wc_viva_dol"));

                    loLineaNueva._TipoIva = lcTipoIva;


                    
            
            
                    // El dto. siempre será con iva inc.
                    if (llMateixaMoneda)
                    {
                        loLineaNueva._PrecioIva = lnDescuento;
                        loLineaNueva._PrecioDivisaIva = lnDescuento;
                    }
                    else
                    {
                        // Dto. en divisa
                        loLineaNueva._PrecioDivisaIva = lnDescuento;
                        loLineaNueva._PrecioIva = Divisa._Conversion_En_Divisa(lnDescuento,lcDivisa,lcMoneda,lcMascara,_Documento._Cambio);
                    }
                
                    if (_Documento._Cabecera._IvaInc)
                    {
                        
                        decimal lnIva = Convert.ToDecimal(sage.ew.db.DB.SQLValor("TIPO_IVA","CODIGO", lcTipoIva, "iva"));
                        decimal lnRecargo = Convert.ToDecimal(sage.ew.db.DB.SQLValor("TIPO_IVA","CODIGO", lcTipoIva, "recarg"));
                        decimal lnDto = this._Documento._Cabecera._oDivisa._MascaraImporte.Redondeo(lnDescuento * 100 / (100+(lnIva + lnRecargo)));

                        if (llMateixaMoneda)
                        {
                            loLineaNueva._Precio = lnDto;
                            loLineaNueva._PrecioDivisa = lnDto;
                        }
                        else
                        {
                            // en divisa
                            loLineaNueva._PrecioDivisa = lnDto;
                            loLineaNueva._PrecioIva = Divisa._Conversion_En_Divisa(lnDto,lcDivisa,lcMoneda,lcMascara,_Documento._Cambio);
                        }
                    }
                
            
                    loLineaNueva._Coste = lnDescuento;
                    loLineaNueva._Unidades = 1;
                    loLineaNueva._Definicion = "Descuento total";
                    loLineaNueva._Escandal = "INTERNAL"; //CCR 117972 - marquem la linia pq no l'ha compti com article
                
                    loLineaNueva._Recalcular_Importe();
                    loLineaNueva._Save();
                }
            }
            else
            {
                // Si es por %, solo hay que aplicar una vez
                _Aplicar_Dto_Diferencia(lnTotalTicket,lnDescuento,llTipoDescuen);
            }
    
            // afegeixo una nota pel descompte
            if (llNota)
            {

                loLineaNueva = _Documento._AddLinea();
        
                if (llTipoDescuen)
                {
                    //per quantitat
                    //REPLACE DEFINICION WITH "DESCUENTO TOTAL "+ALLTRIM(TRANSFORMAR(fDesc_TOTAL.spDescuento.Value,THISFORM.Divisa.Mascara_Importe))+" "+UPPER(THISFORM.Divisa.cmbMoneda.Value)
                    //loLineaNueva._Definicion = "DESCUENTO TOTAL " + Convert.ToString(this._Documento._Cabecera._oDivisa._MascaraImporte.Redondeo(lnValorDto));
                    // 85320
                    lnValorDto = this._Documento._Cabecera._oDivisa._MascaraImporte.Redondeo(lnValorDto);
                    loLineaNueva._Definicion = "DESCUENTO TOTAL " + lnValorDto.ToString(this._Documento._Cabecera._oDivisa._MascaraImporte._Mascara_Net) + " " + this._Documento._Cabecera._oDivisa._Nombre;
                    // fi 85320
                }
                else
                {
                    // per %
                    //REPLACE DEFINICION WITH "DESCUENTO TOTAL "+ALLTRIM(TRANSFORMAR(fDesc_TOTAL.spDescuento.Value,wc_Tpc))+" %"
                    
                    
                    ewMascara loMascaraDto = new ewMascara(ew.global.EW_GLOBAL._GetMascara(KeyDiccionarioMascara.wc_tpc));
                    //loLineaNueva._Definicion = "DESCUENTO TOTAL " + lnValorDto.ToString(loMascaraDto._Mascara_Net) + " % ";
                    // 85320
                    lnValorDto = loMascaraDto.Redondeo(lnValorDto);
                    loLineaNueva._Definicion = "DESCUENTO TOTAL " + lnValorDto.ToString(loMascaraDto._Mascara_Net) + " % ";
                    // fi 85320
                }

                // Marco que és la descripció del descompte
                loLineaNueva._Tipo = 10;
                loLineaNueva._Save();
            }
            
            

            //Thisform.Situarse_Linea(nLinea)
            //THISFORM.Actualizar_IVA()
        }

        private void _Aplicar_Dto_Diferencia(decimal tnTotalTicket, decimal tnDescuento, bool tlTipoDescuen)
        {
            decimal lnActual = 0;
            decimal lnTeorico = 0;
            bool llPositivo = false;
            decimal lnDto = 0;

            if (tnTotalTicket != 0 && tnDescuento != 0)
            {
                lnActual = _Documento._Pie._TotalDocumento;
    
                if (tlTipoDescuen)
                {
                    lnTeorico = (tnTotalTicket - tnDescuento);
                    llPositivo = (lnTeorico > 0);   
                
                    if (lnActual != 0)
                        lnDto = Math.Round((tnDescuento / lnActual)*100,2);
                    else
                        lnDto = 0;
                }
                else
                    lnDto = tnDescuento;
            
                // Fem un recorregut per les linies
                foreach (ewDocVentaLinTPV loLinea in _Documento._Lineas)
                {
                    if (!String.IsNullOrWhiteSpace(loLinea._TipoIva) && loLinea._Importe != 0)
                    {
                        if (loLinea._Dto1 == 0)
                            loLinea._Dto1 = lnDto;
                        else
                            loLinea._Dto1 = loLinea._Dto1 + lnDto;

                        loLinea._Recalcular_Importe();

                        lnActual = _Documento._Pie._TotalDocumento;

                        if (tlTipoDescuen && lnActual == lnTeorico)
                            break;
                    }
                }
            }
        }
    }
}