Como faço esse calculo?

Discussão em 'Progress 4GL' iniciado por luizclairrodrigues, Julho 19, 2012.

  1. luizclairrodrigues

    luizclairrodrigues Membro Participativo

    Bom dia pessoal !
    Eu preciso fazer esse calculo usando accum total by assim antes só não sei como fazer não da certo
    Obrigado.

    ASSIGN porcentagem = (hr-trabalhadas / (accum total by tt-movto.hr-trabalhadas) + (accum total by tt-movto.hr-paradas)) * 100
    ASSIGN porcentagem = (hr-paradas / (accum total by tt-movto.hr-trabalhadas) + (accum total by tt-movto.hr-paradas)) * 100

    /*****************************************************************************************************************************************/

    Aqui é final do programa que mostra detalhado.

    down with frame f-linha-tec.
    accumulate tt-movto.hr-trabalhadas (total by tt-movto.cd-equipe by tt-movto.cd-tecnico /* by tt-movto.data */)
    tt-movto.hr-paradas (total by tt-movto.cd-equipe by tt-movto.cd-tecnico /* by tt-movto.data */)
    tt-movto.quantidade (total by tt-movto.cd-equipe by tt-movto.cd-tecnico /* by tt-movto.data */)
    tt-movto.total-horimetro (total by tt-movto.cd-equipe by tt-movto.cd-tecnico /* by tt-movto.data */)
    tt-movto.total-km (total by tt-movto.cd-equipe by tt-movto.cd-tecnico /* by tt-movto.data */).


    /*-- Totais por Tecnico ------------------------------------------*/

    IF last-of(tt-movto.cd-tecnico) THEN DO:
    /*PUT "|---------------------------------------------------Indicadores Gerenciais Tecnico-----------------------------------------------------|" AT 01 SKIP (01).*/

    put "Total Técnico." at 16
    (accum total by tt-movto.cd-tecnico tt-movto.hr-trabalhadas) format "->>>>>9.9999" TO 48
    (ACCUM TOTAL BY tt-movto.cd-tecnico tt-movto.quantidade) FORMAT ">>>9" TO 59
    (accum total by tt-movto.cd-tecnico tt-movto.hr-paradas) format "->>>>>9.9999" TO 122 SKIP (01).
    /*porcentagem = (hr-trabalhadas / (accum total by tt-movto.hr-trabalhadas) + (accum total by tt-movto.hr-paradas)) * 100.*/

    ASSIGN Tot-trabalhadas = (accum total by tt-movto.cd-tecnico tt-movto.hr-trabalhadas)
    hr-disponivel = ((accum total by tt-movto.cd-tecnico tt-movto.hr-trabalhadas) + (accum total by tt-movto.cd-tecnico tt-movto.hr-paradas))
    utiliz-Equipe = ((accum total by tt-movto.cd-tecnico tt-movto.hr-trabalhadas) / hr-disponivel) * 100
    plano-prod = tempo-padrao * ( utiliz-Equipe / 100)
    producao-hora = ((ACCUM TOTAL BY tt-movto.cd-tecnico tt-movto.quantidade) / Tot-trabalhadas)
    eficiencia = (producao-hora / tempo-padrao-total) * 100
    produtividade = (eficiencia * utiliz-Equipe) / 100
    producao-m3 = (accum total by tt-movto.cd-tecnico tt-movto.quantidade) * volume-m3
    producao-ton = producao-m3 * ton-m3
    ton-hora = producao-ton / (accum total by tt-movto.cd-tecnico tt-movto.hr-trabalhadas)
    /*porcentagem = (de-horas-tra / (tt-movto.hr-trabalhadas + tt-movto.hr-paradas)) * 100*/.


    IF LAST-OF (tt-movto.cd-tecnico) THEN DO:
    PUT
    SKIP (1)
    "% Utilização:" AT 02 utiliz-Equipe AT 25 "Horas Disponíveis:" AT 45 hr-disponivel AT 71 "Produção(M3):" AT 90 producao-m3 AT 110
    "TOTAL-Horimetro:" AT 02 (ACCUM TOTAL BY tt-movto.cd-tecnico tt-movto.total-horimetro) AT 23 "Volume/Árvore(M3):" AT 45 volume-m3 AT 71 "Produção(Ton):" AT 90 producao-ton AT 110
    "TOTAL-KM:" AT 02 (accum total by tt-movto.cd-tecnico tt-movto.total-km) AT 23 "Ton/M3.." AT 45 ton-m3 AT 70 "Produção(Ton)/Hora:" AT 90 ton-hora AT 110
    "% Produtividade: " AT 02 produtividade AT 25 SKIP(1).
    END.
    ASSIGN tempo-padrao-total = 0.
    END.
  2. eduardo.leite

    eduardo.leite Equipe de Suporte Moderador Equipe de Suporte

Compartilhe esta Página