SE_ILHAP;Ilhas de Estoque;sys_tbbrow; 3; 0;23;79;se_ilhap;;
:SKEL
VARIAVEL zbPcod := {|nPcod| se_prod->(dbseek(nPcod)), se_prod->pdesc }
VARIAVEL Z_NIL := SE_ILHAP->( ABRA("0NOIDX",r_siga,"se_prod","se_prod","seip_c","pcod") )
COMANDO SAIDA Z_NIL := IF(SELECT("SE_PROD")>0, Se_Prod->( DbCloseArea() ),"")
:TBMT
 13;Se_Prod->(se_doget(D_ob));Enter-Altera_Saldo ;
 69;Se_Prod->(ext_screen(pcod,pdatabal));E-Extrato ;
 73;lst_alias(D_OB);I-Imprime ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 70;tb_filter(d_ob);F-Filtra ;
:TBFI
Produto;PCOD;N;999999;  6;;
Descricao;eval(zbPcod,pcod);P;@s30;30;N;
Ilha;ILHA;N;999;  3;;
Saldo_Ilha;peatual;N;999999.999;10;N;
SaldoGlobal;Se_prod->peatual;P;999999.999;10;N;
Data_Cad;PDATACAD;99.99.9999;;  8;;
