VB_PAC;Pacientes SNGPC;sys_tbbrow; 8;2;20;78;padrao;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
:TBFI
CPF/RG;CR_RG;C;@S14; 14;;
Paciente;PACIENTE;C;@s30; 30;;
Fones;Cr_Fone;C;@s30; 30;;
Sexo;pac_sexo;C;x;4;S;
Idade em Meses/Anos;if(val(pac_idade)>0,lTrim(Str(pac_idade,5))+" "+if(PAC_unidid="M","Meses",if(PAC_unidid="A","Anos",""))," ?");C;@S11; 11;N;
Cod Cliente;CR_COD_CLI;N;99999; 11;;
Idade;pac_idade;N;9999;4;S;
M/A ?;PAC_unidid;C;X;5;S;
Cod Cliente;CR_COD_CLI;N;99999; 11;;