SP_MOVF;Produtos da Selecao;sys_tbbrow; 8;0;21;79;sp_movf;;
:SKEL
VARIAVEL w_colsep = " "+chr(179)
VARIAVEL z_blkfor = {|x_for| sccpfor->(dbgoto(x_for)), if( empty(sccpfor->cp_fantasia), sccpfor->cp_nome, sccpfor->cp_fantasia)}
COMANDO ANTES Z_NIL = ABRA("0RO",r_siga,"sccpfor","sccpfor")
COMANDO DEPOIS Z_NIL = Sccpfor->(DbCloseArea() )
:TBMT
 80;tb_pesq(D_OB);P-Pesquisa ;
:TBFI
NumPed;Pfnumped;N;999999;6;N;
Tipo;Ptipo;C;xxxxx; 5;N;
Desc;PDESC;C;@S20;20;N;
Pend;unid_fech-mqatend;N;9999;4;N;
PrCusto;Pvluven3;N;@E 9999.99;7;S;
%Desc;if(p2desconto>0,p2desconto,pdesconto);N;@E 999.99%;7;S;
PrTotal;Pvluven3*(unid_fech-mqatend)*(1-if(p2desconto>0,p2desconto,pdesconto)/100);N;@E 999,999;7;S;
PrevCheg;PfDataChe;D;99.99.99;8;N;
Cod;PCOD;N;99999;5;N;
Recb;mqatend;N;9999;4;S;
Marca;Pref;C;@S15;15;N;
Forn;str(pffor,4)+"-"+eval(z_blkfor,Pffor);C;@S15; 20;N;
