SE_PSIM;Vendas de Produtos de Receituario;sys_tbbrow; 5; 1;16;79;psico;;
:SKEL
VARIAVEL Z_blk = { |x_pcod| Se_Prod->( DbSeek(x_pcod) ), se_prod->Pdesc}
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL zNil = DbSetFilter( {||mfges="S"}, "mfges='S'" )
VARIAVEL zNil = DbGoBottom()
VARIAVEL zNil = DbSkip(-6)
:TBMT
 13;DoGet(D_oB);Enter-Edita ;
 80;tb_pesq(d_ob);P-Pesquisa ;
 79;tb_index(d_ob);O-Ordena ;
 84;tb_locate(D_oB);T-Trecho ;
 76;tb_locate(D_oB);L-Iniciais ;
 67;tb_locate(D_oB);C-Repete_Busca ; 
:TBFI
Impt?;imptsngpc;C;X;5;S;
Data;mdata;D;;8;S;
Cupom;FNUMPED;N;9999999;7;N;
CodPrd;PCOD;N;99999;6;N;
Descricao;Eval(z_blk,pcod);P;@S30;18;N;
Quant;MQUANT;N;9999999;7;N;
Paciente;paciente;C;@S!28;18;N;
Posol;Posologia;N;999;3;N;
Medico;medico;C;@S!30;30;N;
CRM;CRM;C;99999!;6;N;
Acesso;rec_del();P;X99999;6;N;
l;mfges;C;!;1;S;
