TABELA;Lista de Precos ABCFARMA;sys_tbbrow;10; 0;22;79;padrao;;eval(z_blkPpo);
:SKEL
VARIAVEL Z_XTELA = SAVESCREEN(3,0,9,79)
VARIAVEL z_xblk =            "Z_COR := SetColor('R/W'),"
VARIAVEL z_xblk = z_xblk + "Scroll(3,0,9,79,0),DispBox(3,0,9,79),"
VARIAVEL z_xblk = z_xblk + 'DevPos(4,2), DevOut("Descricao...:"),'
VARIAVEL z_xblk = z_xblk + 'DevPos(4,16), DevOut(med_des),'
VARIAVEL z_xblk = z_xblk + 'DevPos(4,65), DevOut(MED_GENE),'
VARIAVEL z_xblk = z_xblk + 'DevPos(5,2), DevOut("Apresentacao:"),'
VARIAVEL z_xblk = z_xblk + 'DevPos(5,16), DevOut(med_apr),'
VARIAVEL z_xblk = z_xblk + 'DevPos(6,2), DevOut("Princ.Ativo.:"),'
VARIAVEL z_xblk = z_xblk + 'DevPos(6,16), DevOut(med_PRINCI),'
VARIAVEL z_xblk = z_xblk + 'DevPos(7,45), DevOut("Preco Venda       Preco Frac"),'
VARIAVEL z_xblk = z_xblk + 'DevPos(8,44), DevOut(med_pco1),'
VARIAVEL z_xblk = z_xblk + 'DevPos(8,61), DevOut(med_fra1),'
VARIAVEL z_xblk = z_xblk + "SetColor(Z_COR)"
VARIAVEL z_blkPpo = _CreateBlock( z_xblk )
VARIAVEL z_xblk = ""
COMANDO DEPOIS Z_NIL = RESTSCREEN(3,0,9,79,Z_XTELA)
:TBMT
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
:TBFI
Descricao;MED_DES;C;@S45; 20;;
Apresentacao;MED_APR;C;@S45; 25;;
Pr Cons;MED_PCO1;N;9999.99;  7;;
Laboratorio;LAB_NOM;C;@S15; 15;;
Pr Fabr;MED_PLA1;N;9999.99;  7;;
Margem;(MED_PCO1-MED_PLA1)/MED_PCO1*100;C;999.99%;7;N;
+-N;if(MED_NEGPOS="SIM","+",if(MED_NEGPOS="NAO".and.MED_NEUTRO<>"SIM","-","N") );C;xxx;  3;;
Cod ABCF;MED_ABC;C;@S9;  9;;
*;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;;
DtVigenc;MED_DTVIG;D;;8;;
L;if(EXP_13,"S","N");L;;1;;
Cod Barra;MED_BARRA;N;9999999999999; 13;;
Gen;MED_GENE;C;xxx;  3;;
Princ.Ativo;MED_princi;C;@s40; 40;;
