$TITULO Relatorio de Demitidos CCusto
$ENTRADA C.Custo(Branco=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.(DAFASTAMEN>=D1.AND.DAFASTAMEN<=D2).AND.SITUACAO>60
$INDICEF NOME
$INDICE F2
$CONDENSA
REM $SUBGRUPO CCUSTO,PAGINA
$$XTOT++
$$YTOT++
$RODAP
$RODAP    Funcionarios Demitidos: [XTOT,-XTOT]
$RODAP
$CABEC
$CABEC [E                                   ]           R E L A T O R I O    D E    D E M I T I D O S                   [D         ]  [P   ]
$CABEC                                                                   
$CABEC Codigo  Nome                             C.Custo                     Cargo                   Demissao   Homologacao    Rescisao Cod.
$CORPO [F1   ] [F3                            ] [U2                       ] [C2                   ] [F66     ] [F68     ][M9804,+YSAL] [F65]
$TOTAL  Total de Demitidos: [YTOT,-YTOT]                                                                      Total de Valores: [YSAL,-YSAL]