$TITULO Cadastramento VT eletronico TRI
$INDICEF NOME
$FILTROF SITUACAO=0
$GRUPO01 GERAL
$CABGRU01 I001,F869,M"X","0300"
$CORPO I001,F025,M"X",[F19]
$CORPO I026,F125,M"X",[F3]
$CORPO I126,F127,M"X",{SUBS(DTOS(FUNCIO->NASCIMENTO),7,2)}  //Dia Nascimento
$CORPO I128,F128,M"X","/"
$CORPO I129,F130,M"X",{SUBS(DTOS(FUNCIO->NASCIMENTO),5,2)}  //Mes Nascimento
$CORPO I131,F131,M"X","/"
$CORPO I132,F135,M"X",{SUBS(DTOS(FUNCIO->NASCIMENTO),1,4)}  //Ano Nascimento
$CORPO I136,F165,M"X"," "
$CORPO I166,F214,M"X",[F129]
$CORPO I215,F224,M"9","0"
$CORPO I225,F237,M"X","0"
$CORPO I238,F239,M"X",[F7]
$CORPO I240,F439,M"X",[F4]
$CORPO I440,F454,M"X","0000"
$CORPO I455,F504,M"X"," "
$CORPO I505,F604,M"X",[F127]
$CORPO I605,F704,M"X",[F6]
$CORPO I705,F712,M"X",[F5]
$CORPO I713,F727,M"X"," "
$CORPO I728,F827,M"X"," "
$CORPO I828,F829,M"X"," "
$CORPO I830,F859,M"X"," "
$CORPO I860,F860,M"X",[F10]
$CORPO I861,F863,M"9","000"
$CORPO I864,F866,M"9","000"
$CORPO I867,F869,M"9","000"