VB_CRMVI;Visitacoes Efetuadas;sys_tbbrow; 3; 0;23;79;padrao;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL Z_BLOCK = {|x_crm| vb_crm->(dbseek(x_crm)), vb_crm->medico }
VARIAVEL Z_BLK = {|x_crm| vb_crm->especialidade }
COMANDO ANTES DbGoBottom()
COMANDO ANTES DbSkip(-8)
COMANDO ANTES Z_NIL = ABRA ("0",r_siga,"vb_crm","vb_crm","vb_crmc","crm")
COMANDO DEPOIS Z_NIL = IF(SELE("vb_crm")>0, vb_crm->( DbCloseArea() ),"")
:TBFI
CRM;CRM;C;@S10;10;;
Data;CR_DATA;D;;  8;;
Medico;eval(z_block,crm);C;@s20;20;N;
Especialidade;eval(z_blk,crm);C;@s15;15;N;
Observacoes;CR_OBS;C;@S16; 16;;
