SF_FAT;Relacao de Vendas;sys_tbbrow; 6;3;18;79;x;;
:SKEL
VARIAVEL Z_BLOCK = {|x_cli| sccrcli->(dbgoto(x_cli)), sccrcli->cr_nome }
COMANDO ANTES zAreaOrig = Select()
COMANDO ANTES zFgCliClosed = (Select("SCCRCLI")=0)
COMANDO ANTES zNil = if(zFgCliClosed, (ABRA("0NOIDX",r_siga,"sccrcli","sccrcli"), dbselectArea(zAreaOrig)), "")
COMANDO DEPOIS Z_NIL = if(zFgCliClosed,Sccrcli->(DbCloseArea()),"")
:TBMT
 13;psq_enter();Enter-Confirma Campo;
 80;tb_pesq(D_OB);P-Pesquisa ;
 32;CIBROW("SE_MOVRO",FNUMPED,"SE_MOVRO");Barra-Produtos ;
 79;tb_index(D_OB);O-Ordena ;
 70;tb_filter(d_ob);F-Filtra ;
:TBFI
NF;fnum;N;999999;6;N;
DtEmis;fdataemi;D;;8;N;
Valor;Fval;N;@E 999,999.99; 10;N;
CFOP;fCodOp;N;9.9999;5;N;
Cli;fCli;N;999999;6;N;
Razao Social;;P;@s25;25;N;
Vend;fVendedor;N;9999;4;N;
Pedido;fnumped;N;999999;  6;N;