Windev21 Aulas,Estudos e Desenvolvimento: 02/23/15

segunda-feira, 23 de fevereiro de 2015

Windev - Table/ListBox/Combox/ Alterando Cor Texto e Fundo

Assistir Video Windev - Table/ListBox/ComboBox: Alterando cor do texto e fundo

Array Fixo - Calcular % Parcelas

Assistir Video Windev - Array Fixo: Calcular Parcelas

Eu tenho um campo que informo quantas parcelas tera. Exemplo 2.
Ai tenho de calcular para em cada parcela colocar 50%.
caso eu escolha 3, tenho de verificar, se vai ter diferena.
----------------------------------------------------------------------------------------------

Array Fixed - Calculate% Plots

I have a field to inform how many parcels will have. Example 2.
Ai have to calculate for each plot put 50%.
If I choose 3, I have to check if it will have difference.
----------------------------------------------------------------------------------------------

Matriz Fijo - Calcular% Parcelas

Tengo un campo para informar cuántas parcelas tendrán. Ejemplo 2.
Ai tiene que calcular para cada parcela puso 50%.
Si elijo 3, tengo que comprobar si tendrá diferencia.
----------------------------------------------------------------------------------------------

-------------------------------------------------------------------------------------------------------
IF EDT_Quantidade_parcelas=0 OR EDT_Quantidade_parcelas>10
    Info("Favor Digitar de 1 Até 10 Parcelas")
    SetFocus(EDT_Quantidade_parcelas)
ELSE
    EDT_percentual_1=0
    EDT_percentual_2=0
    EDT_percentual_3=0
    EDT_percentual_4=0
    EDT_percentual_5=0
    EDT_percentual_6=0
    EDT_percentual_7=0
    EDT_percentual_8=0
    EDT_percentual_9=0
    EDT_percentual_10=0
    _parcelaindividual is int = 0
    _soma_percentuais is currency = 0
    _diferenca is currency = 0
    _parcelaindividual=100/EDT_Quantidade_parcelas
    arr_Percentuais_condicao is array of 10 int
    FOR nInd=1 TO 10
        arr_Percentuais_condicao[nInd]=0
    END
    FOR nUmero_parcela = 1 TO EDT_Quantidade_parcelas
        arr_Percentuais_condicao[nUmero_parcela]=_parcelaindividual
    END

    FOR nUmero_parcela = 1 TO 10 // Pois coloquei Fixo //arr_Percentuais_condicao..Occurrence
        _soma_percentuais+=arr_Percentuais_condicao[nUmero_parcela]
    END
    IF _soma_percentuais=100
    ELSE
        IF _soma_percentuais>100
            _diferenca=_soma_percentuais-100
            arr_Percentuais_condicao[1]-=_diferenca
        ELSE
            _diferenca=100-_soma_percentuais
            arr_Percentuais_condicao[1]+=_diferenca
        END
    END
    FOR nUmero_parcela = 1 TO 10
        EDT_percentual_1=arr_Percentuais_condicao[1]
        EDT_percentual_2=arr_Percentuais_condicao[2]
        EDT_percentual_3=arr_Percentuais_condicao[3]
        EDT_percentual_4=arr_Percentuais_condicao[4]
        EDT_percentual_5=arr_Percentuais_condicao[5]
        EDT_percentual_6=arr_Percentuais_condicao[6]
        EDT_percentual_7=arr_Percentuais_condicao[7]
        EDT_percentual_8=arr_Percentuais_condicao[8]
        EDT_percentual_9=arr_Percentuais_condicao[9]
        EDT_percentual_10=arr_Percentuais_condicao[10]
    END
END

------------------------------------------------------------------------------------------------------