Progress – Totvs 12: Conferir tipo de mão de Obra – Integração HCM x Contabilidade

Progress – Totvs 12: Conferir tipo de mão de Obra – Integração HCM x Contabilidade

 

 

 

DEFINE VARIABLE l-entrou AS LOGICAL     NO-UNDO.

 

funcionario:

FOR EACH funcionario WHERE funcionario.dat_desligto_func = ?

    NO-LOCK.

    ASSIGN l-entrou = NO.

 

 

    FOR EACH encargo_social WHERE encargo_social.cdn_estab = funcionario.cdn_estab NO-LOCK.

        ASSIGN l-entrou = YES.

        FOR EACH cta_mdo_encargo OF encargo_social NO-LOCK.

            IF cta_mdo_encargo.cod_tip_mdo = funcionario.cod_tip_mdo THEN

                NEXT funcionario.

        END.

    END.

 

    IF l-entrou THEN

    DO:

        OUTPUT TO c:\maodeobraerrada.txt APPEND.

        PUT funcionario.cdn_estab ‘,’ funcionario.cdn_funciona ‘,’ funcionario.cod_tip_mdo SKIP .

        OUTPUT CLOSE.

    END.

END.

FDantas

Formado pela FPJ (Faculdade Politecnica de Jundiai), atualmente atuando como analista de sistemas. Trabalha há mais de 10 anos com analise, desenvolvimento e customização de sistemas desenvolvidos em Progress 4GL como Magnus, EMS e HCM. Atua também com desenvolvimento web, utilizando a ferramenta WebSpeed.

Você pode gostar...

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Unable to load the Are You a Human PlayThru™. Please contact the site owner to report the problem.