VB_FPOP;Autorizacoes F.Popular;sys_tbbrow; 3; 0;23;79;padrao;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
COMANDO ANTES ZNIL = (OrdSetFocus(0), DbGoBottom(), DbSkip(-8))
:TBMT
  7;fPopular("ESTORNA",D_ob);DEL-Estorna_Item ;
 32;fPopular("VENDA_ESTORNA",D_ob);Barra-Estorna_Cupom ;
 13;doget(D_ob);Enter-Edita ;
 73;lst_alias(D_OB);I-Imprime ;
 70;tb_filter(d_ob);F-Filtra ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 84;tb_locate(D_oB);T-Busca_Trecho ;
 76;tb_locate(D_oB);L-Busca_Iniciais ;
 67;tb_locate(D_oB);C-Repete_Busca ;
 79;tb_index(D_OB);O-Ordena ;
 61;doget(D_ob,,.t.);=-Repete_Edicao ;
 22;tb_insert(D_OB);Ins-Inclui ;
 65;tb_update(D_OB);A-Altera ;
 82;fPopular("RETIFICA_DESCRICOES",D_ob);R-Descricoes ;
:TBFI
DtEmiss;FDATAEMI;D;;  8;;
Paciente;PACIENTE;C;@S40; 20;;
Medicamento;PDESC;C;@S40; 20;;
DtReceita;MDATARECEI;D;;8;;
QtPed;MQUANT;N;99999;  5;;
QtAut;MQATEND;N;99999;  5;;
Estorno;MQestorno;N;99999;  5;;
s;FCONFIRMAD;C;x;  1;;
Subsidio;PSUBSIDIO;N;99999.99; 10;;
Pr.Venda;PVLUVENDA;N;99999.99; 10;;
Autorizacao;AUTORIZA;C;@S19; 19;;
CPF;CPF;C;@S11; 11;;
DifPaciente;PDIFPACIEN;N;99999999.99;11;;
Cod.Barras;PDIC6;N;99999999999999; 14;;
Posologia;POSOLOGIA;N;9999;9;;
Aplicacoes;APLICACOES;N;9999;10;;
CRM;CRM;C;@S10; 10;;
CRM_CRO;CRM_CRO;C;@S5;7;;
UFCRM;UFCRM;C;xx;5;;
nSolic;fNumPBM;N;9999999;7;;
cSol;INAUTSOLIC;C;xxxx;  4;;
cAut;INAUTMEDIC;C;xxxx;  4;;
NF;FNUM;N;9999999999; 10;;
UnidApresentacao;DSUNIDAPRE;C;@S20; 20;;