SE_GENER;Nomes Genericos;sys_tbbrow; 7;0;20;79;padrao;;
:SKEL
COMANDO ANTES Z_NIL = ABRA("0RO",r_siga,"se_prod","Se_prod","seip_c","pcod")
COMANDO DURANTE Z_blk = { || Se_Prod->( DbSeek(Se_Gener->Pcod) ), se_prod->Pdesc}
COMANDO DEPOIS Z_NIL = Se_Prod->(DbCloseArea())
*Desc;eval(z_blk);C;@S35;35;;
:TBFI
Cod;PCOD;N;99999;  5;;
Marca;MARCA;C;@S!30; 30;;
Generico;GENERICO;C;@S!25; 25;;
Pr;PORTARIA;C;!!;  2;;
DCB;DCB;C;@S10;10;;
