SE_MOVNF;("Lancamentos no Ano e Mes:"+se_saldo->anomes);skip_blk(x); 9;0;20;79;se_movxp;;
:SKEL
VARIAVEL Z_BLOCK={|x_prd|se_prod->(dbseek(x_prd)),Str(x_prd,5)+" "+se_prod->pdesc }
VARIAVEL w_chave    = se_saldo->pcod
VARIAVEL w_mensagem = "Sem mais Lancamentos da NF"
VARIAVEL w_block    = {|| w_chave <> pcod }
VARIAVEL w_colsep = " "+chr(179)
VARIAVEL Z_AAMM = SE_SALDO->anomes
COMANDO ANTES Z_NIL = dbSetFilter( {|| substr(dtos(mdata),3,4)=Z_AAMM}, 'substr(dtos(mdata),3,4)=Z_AAMM' )
COMANDO ANTES DbSeek(w_chave)
//Acesso;rec_del();P;X99999;  6;;
:TBMT
 13;doget(D_ob);Enter-Edita ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 79;tb_index(D_OB);O-Ordena ;
 73;lst_alias(D_OB);I-Imprime ;
 70;tb_filter(d_ob);F-Filtra ;
 69;tb_filter(d_ob,"Exp");E-Filtra_Expressao;
 67;tb_locate(D_OB);C-Continua_Busca ;
 84;tb_locate(D_OB);T-Busca_Trecho ;
 76;tb_locate(D_OB);L-Busca_Iniciais ;
:TBFI
Apresentacao;eval(z_block,pcod);C;@s30;30;N;
Quant x Valor;Str(MQUANT,4)+" "+Str(Mvalor,9,2);C;@S14;14;N;
Data;MfgEs+" "+Dtoc(MDATA);C;@s10;10;N;
PrUnit;Pvlu;N;9999.999;8;N;
Icms;Ftoticms;N;9999.999;8;N;
Pis;Fpis;N;9999.999;8;N;
Cofins;Fcofins;N;9999.999;8;N;
Frete;Ffrete;N;9999.999;8;N;
NumPed x Nf;Str(FNUMPED,6)+Str(Mfnum,6);C;@s13;13;;
