SE_MOVNF;Entradas de Produtos;sys_tbbrow; 3;0;20;79;se_movxp;;
:SKEL
VARIAVEL w_colsep = chr(179)
VARIAVEL w_headsep = chr(196)
VARIAVEL zNil = DbSetFilter( {||mfges="E"}, "mfges='E'" )
VARIAVEL zNil = DbGoBottom()
VARIAVEL zNil = DbSkip(-6)
VARIAVEL Z_BLOCK={|x_prd|se_prod->(dbseek(x_prd)),se_prod->pdesc }
VARIAVEL zbFant={|nForn|sccpfor->(dbgoto(nForn)),left(sccpfor->cp_fantasi,1)+Lower(Substr(sccpfor->cp_fantasi,2))}
COMANDO ANTES ABRA ("0NOIDX", R_SIGA,"SCCPFOR","SCCPFOR")
COMANDO ANTES ABRA ("0NOIDX", R_SIGA,"SE_PROD","SE_PROD","SEIP_C","PCOD")
COMANDO DEPOIS SE_PROD->( DbCloseArea() )
COMANDO DEPOIS SCCPFOR->( 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 ;
:TBFI
Impt?;imptsngpc;C;X;5;S;
Data;MDATA;D;99.99.9999;10;N;
Cod;pcod;N;999999;6;N;
Apresentacao;eval(z_block,pcod);C;@s30;15;N;
Quant;MQUANT;N;99999;5;N;
Nf;Mfnum;N;999999999;9;N;
Forn;McodForc;N;999999;6;N;
Fornecedor;eval(zbFant,mCodForc);C;@s30;15;N;
Valor;Mvalor;N;999999.99;9;N;