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.
Progress – Totvs 12
