SE_PSIM;Vendas de Produtos de Receituario;sys_tbbrow; 5; 0;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 Z_BLK_FAT = {|| xsf_fat:=sf_fat, sf_fat:="FAT"+Substr(Dtos(mdata),3,4), CIBROW("SE_MOVRO",FNUMPED,"SE_MOVRO"), se_mov:=xse_mov }
VARIAVEL zBlkFat = {||zs1:=select(),SetAliasAaMm(Substr(Dtos(mdata),3,4)), abra("0",r_siga,wSf_Fat,"SF_FATRC",wSf_Fat_p,"FNUMPED"),brow_db("SF_FATRC",.T.),dbCloseArea(),DbSelectArea(zs1)}
COMANDO ANTES ZALIASPSIM=ALIAS()
COMANDO ANTES znil = dbSetFilter( _CreateBlock('mfges="S"'), 'mfges="S"' )
COMANDO ANTES znil = dbgoTop()
COMANDO ANTES Z_NIL = ABRA("0",R_SIGA,"VB_CRM","VB_CRM","VB_CRMC","CRM")
COMANDO ANTES Z_NIL = ABRA("0RO",r_siga,"se_prod","Se_prod","seip_c","pcod")
COMANDO DEPOIS Z_NIL = VB_CRM->( DBCLOSEAREA() )
COMANDO DEPOIS Z_NIL = Se_Prod->(DbCloseArea())
*- 21;tb_del(D_ob);Ctrl+U-DELeta ;
:TBMT
 13;DoGet(D_oB);Enter-Edita ;
 65;tb_update(D_OB);A-Altera ;
  7;psidel(D_oB);Del-Exclui ;
 80;tb_pesq(d_ob);P-Pesquisa ;
 79;tb_index(d_ob);O-Ordena ;
 70;tb_filter(d_ob);F-Filtra ;
 73;lst_alias(D_OB);I-Imprime ;
 32;eval(zBlkFat);Barra-Adiciona_Produtos_do_Cupom ;
:TBFI
*;mfges;C;x;1;N;
Paciente;paciente;C;@S!30;30;N;
Descricao;Eval(z_blk,pcod);P;@S30;24;N;
Quant;MQUANT;N;999999;6;N;
Posol;Posologia;N;999;3;N;
Data;mdata;D;;8;N;
Medico;medico;C;@S!30;30;N;
CRM;CRM;C;99999!;6;N;
CodProd;PCOD;N;99999;6;N;
Cupom;FNUMPED;N;999999;6;N;
Acesso;rec_del();P;X99999;6;N;
