TABELA;Lista de Precos ABCFARMA;sys_tbbrow; 6; 0;20;79;padrao;;;;
:SKEL
VARIAVEL w_colsep=" "+chr(179)
:TBMT
  7;tb_del(D_ob);DEL-DELeta ;
 13;doget(D_ob);Enter-Edita ;
 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 ;
 70;tb_filter(d_ob);F-Filtra ;
 61;doget(D_ob,,.t.);=-Repete_Edicao ;
 90;doget(D_ob,,.t.);Z-Repete_Edicao ;
 92;doget(D_ob,,.t.);Z-Repete_Edicao ;
:TBFI
abc;right(MED_ABC,3);P;@S3;3;;
Laboratorio;LAB_NOM;C;@S30; 25;;
Descricao;MED_DES;C;@S45; 30;;
Apresentacao;MED_APR;C;@S35; 35;;
Principio;MED_Princi;C;@S30; 30;;
Pr Cons;MED_PCO1;N;9999.99;7;;
DtVigenc;MED_DTVIG;D;;8;;
Pr Fabr;MED_PLA1;N;9999.99;  7;;
Pr Frac;MED_fra1;N;9999.99;7;;
Gen;MED_GENE;C;xxx;  3;;
Margem;if(MED_PCO1>0,(MED_PCO1-MED_PLA1)/MED_PCO1*100,"");P;999.99%;7;N;
+-N;if(MED_NEGPOS="SIM","+",if(MED_NEGPOS="NAO".and.MED_NEUTRO<>"SIM","-","N") );C;xxx;  3;;
*;MED_CTR;C;x;1;;
Cod Lab;MED_LAB;C;@S6;6;;
Pr Frac;MED_FRA1;N;9999.99;7;;
Und;MED_UNI;N;999;3;;
IPI Comp;MED_IPI;N;999.99;7;;
Cod Barra;MED_BARRA;N;9999999999999; 13;;
