SE_PROD;Produtos da Portaria;skip_blk(x); 8; 8;18;75;psiprod;;
:TBMT
 -6;psiport(D_oB,"7","ALL");F7-P27 ;
 -7;psiport(D_oB,"8","ALL");F8-P28 ;
  7;psiport(D_oB," ","ALL");Del-Limpa ;
13;se_doget(D_ob);Enter-Edita Campo;
13;CiBrow("SE_PSIML",pcod);Enter-Vendas_PSI ;
32;CiBrow("SE_MOVXP",pcod);Barra-Extrato ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 73;Lst_alias(D_OB);I-Imprime ;
:TBFI
Cod;PCOD;N;99999;  5;N;
Descricao;PDESC;C;@s30; 20;;
Portaria;if(pfgcontrol="7","P27",if(pfgcontrol="8","P28",if(pfgcontrol<>" ","?","")));C;@S3;  3;;
Livro;PSI_LIVRO;N;999; 3;;
Pagina;PSI_PAGINA;N;99; 2;;
Posicao;PSI_POSI;C;!!; 2;;
E Atual;PEATUAL;N;9999999;  7;;
