SE_REF;Saldos por Referencias;sys_tbbrow; 5; 5;20;75;padrao;;
:SKEL
* VARIAVEL Z_F1 = 'DbSetFilter({||peatual>0},"peatual>0")'
:TBMT
 13;if(Peatual>0,Cibrow("SE_REFLJ",,"SE_REFL0"),Mensagem("O Saldo da ref "+alltrim(pref)+" esta Zerado...",1));Enter-Lojas ;
 80;tb_pesq(D_OB);P-Pesquisa Chave;
 73;lst_alias(D_OB);I-Imprime ;
 93;disp_sdse(pref,"R");]-Demanda ;
 79;tb_index(D_OB);O-Ordena ;
 67;tb_locate(D_OB);C-Continua ;
 84;tb_locate(D_OB);T-Trecho ;
 76;tb_locate(D_OB);L-Iniciais ;
:TBFI
Referencia;PREF;C;@S15; 15;;
Saldo;PEATUAL;N;999999;  6;;
Valor Tot;PVLUVENDA;N;9,999,999.99; 12;;
Itens;PITENS;N;9999;5;;
