SI_CALEN;Calendario Financeiro;sys_tbbrow; 6;5;20;75;si_calen;;
:SKEL
VARIAVEL zdiasem={||subs("DomingoSegundaTerca  Quarta Quinta Sexta  Sabado ",dow(DT_UTIL)*7-6,7)}
VARIAVEL znil=DiasUteisPeriodo()
:TBMT
 13;doget(D_ob);Enter-Edita ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
:TBFI
Data;DT_UTIL;D;; 8;;
DiaSem;eval(zdiasem);C;@s15; 15;N;
Feriado;Feriado;C;!;8;S;
Semana_do_Ano;NUMSEM52;N;99; 13;S;
Semana_no_Mes;NUMSEM5;N;9; 13;S;