SE_MOVNF;Movimentos do Produto;sys_tbbrow; 3;0;20;79;se_movxp;;
:SKEL
VARIAVEL Z_BLOCK={|x_prd|se_prod->(dbseek(x_prd)),Str(x_prd,5)+" "+se_prod->pdesc }
COMANDO ANTES ABRA ("0RO", R_SIGA,"SE_PROD","SE_PROD","SEIP_C","PCOD")
COMANDO DEPOIS SE_PROD->( DbCloseArea() )
:TBMT
 13;doget(D_ob);Enter-Edita ;
 73;lst_alias(D_OB);I-Imprime ;
 80;tb_pesq(D_OB);P-Pesquisa ;
 84;tb_locate(D_oB);T-Busca_Trecho ;
 76;tb_locate(D_oB);L-Busca_Iniciais ;
 67;tb_locate(D_oB);C-Repete_Busca ;
 79;tb_index(D_OB);O-Ordena ;
 70;tb_filter(d_ob);F-Filtra ;
 69;tb_filter(d_ob,"Exp");E-Filtra_Expressao ;
 61;doget(D_ob,,.t.);=-Repete_Edicao ;
  7;tb_del(D_ob);DEL-DELeta ;
:TBFI
Nf;Mfnum;N;999999;6;S;
Cli;McodForc;N;999999;6;S;
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;
Cfop;pCfop;N;9999;4;S;
CodPrd;pCod;N;999999;6;S;
CST_icm;cst_icms;C;999;3;S;
Baseicms;mBaseIcms;N;999999.99;9;S;
TxIcms;mTaxaIcms;N;99.99;6;S;
ValorIcm;mTotIcms;N;999999.99;9;S;
Pedido;fNumPed;N;999999;6;S;
