SF_FAT;Relacao de Vendas;sys_tbbrow; 6;0;18;79;x;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL zfNumPed=0
VARIAVEL zmData=0
VARIAVEL zbCrNome = {|x_cli| sccrcli->(dbgoto(x_cli)), sccrcli->cr_nome }
VARIAVEL zbItensDoPedido = {||zfNumPed:=fNumPed,zmData:=fDataEmi, CIBROW(SE_MOV,,"SE_MOVRO")}
COMANDO ANTES Z_NIL = ABRA("0RO",r_siga,"sccrcli","sccrcli")
COMANDO DEPOIS Z_NIL = Sccrcli->(DbCloseArea() )
:TBMT
*  7;tb_del(d_ob);Del-Apaga ;
 13;eval(zbItensDoPedido);Enter-Produtos ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 65;DoGet(d_ob);A-Edita ;
 67;tb_locate(D_OB);C-Continua Busca;
 84;tb_locate(D_OB);T-Busca_Trecho ;
 76;tb_locate(D_oB);L-Iniciais ;
 70;tb_filter(d_ob);F-Filtra ;
 69;tb_filter(d_ob,"Exp");E-Filtra_Expressao;
:TBFI
Data;FDATAEMI;D;99.99.99;8;N;
Pedido;fnumped;N;999999;  6;N;
ValorLiq;if(Fval-FCredDevol>0,Fval-FCredDevol,0);N;@E 9,999.99; 8;N;
Desct;Fdesconto;N;@E 9,999.99; 8;N;
Cliente;if(fcli>0,Str(fcli,6)+":"+Eval(zbCrNome,fcli),"     "+if(ftipoven="1","dinheiro",if(ftipoven="2","cheque","cartao")));C;@s25;20;N;
V;FTIPOVEN;C;@s1;1;N;
Cli;Fcli;N;99999;5;S;
COO;fnumCOO;C;999999;  6;N;
Cx;SI_CAIXA;N;99;2;N;
Usu.;USUARIO;C;@s8;8;N;
CT;FCARTAO;N;999;3;S;
FechCx;SI_NumFech;N;999999;6;N;
ValorChe;Fval;N;@E 9,999.99;8;S;
Cred.Dev;FCredDevol;N;@E 9,999.99; 8;N;
Bco;Fbanco;N;999;3;S;
CH;FCHEQUE;N;999999;6;S;
BomPara;Fbompara;D;99.99.99;8;S;
TV;FTV;C;@s1;2;N;
VD;FVENDEDOR;N;99;2;N;
Prds+Unids;ftipoven+ftv+str(ftotprod,4)+str(ftotunid,4);C;@s11;11;N;
Emissao;left(dtoc(fdataemi),5)+" "+left(fhora,5);C;@s11;11;N;
I;FG_FAT;C;@s1;1;N;
v;FG_LIB;C;@s1;1;N;
Autorizacao;fnumcart;C;@s18;18;N;
