$TITULO Relatorio de Admitidos CCusto
$ENTRADA C.Custo (Brancos=Todos):.<C-05-XCUS-CCUSTO>
$ENTRADA Data Inicial:............<D-08-D1>
$ENTRADA Data Final:..............<D-08-D2>
$FILTROF IF(EMPTY(XCUS),CCUSTO#XCUS,CCUSTO=ALLTRIM(XCUS)).AND.(ADMISSAO>=D1.AND.ADMISSAO<=D2)
$INDICEF NOME
$CONDENSA
REM $SUBGRUPO CCUSTO,PAGINA
$$XTOT++
$$YTOT++
$RODAP
$RODAP    Funcionarios Admitidos:[XTOT,-XTOT]
$RODAP
$CABEC
$CABEC [E                                                 ]                                                        [D        ] [P   ]
$CABEC
$CABEC                              R E L A T O R I O   D E   A D M I T I D O S
$CABEC                                                                   
$CABEC Codigo  Nome                                      C.Custo                     Cargo                       Admissao     Salario
$CORPO [F1   ] [F3                                     ] [U2                        ][C2                       ] [F21     ] [F44    ]
$RODAP
$TOTAL   TOTAL DE FUNCIONARIOS ADMITIDOS:[YTOT,-YTOT]