Copia um um registro do cabeçalho para toda a tabela

[Ribeiro]

Quanto faço a leitura do script abaixo:

Veja que consigo trazer o Pedido mas ele faz parte do cabeçalho e gostaria de copiar 

ele para o campo pedido igual no modelo da planilha abaixo:

Seque qvw e a planilha do excel (exemplo)

Alguma dica?

Como eu gostaria que ficasse assim:

O pedido fosse copia para toda a tabela

CodigoProduto	Quantidade	Pedido
5318787000	1	479617
5319116800	1	479617
5319675000	1	479617
5319775006	1	479617
		479617

Script Abaixo:

SET vPath = 'C:\Geral\pedidos';

/*

Procurando por arquivos para execução manual.

*/

sub QVWDir(Root)

FOR each vExt in 'xls'

FOR each vFoundFile in filelist( '$(Root)' & '\*.'& '$(vExt)' )

Trace >> Arquivo Encontrado: $(vFoundFile);

TESTE:

LOAD
num(@2) as CodigoProduto,
@3 as Pedido,
@4 as Tamanho,


@7 as Quantidade

FROM
'$(vFoundFile)'
(biff, no labels, table is RelatorioPedido$, filters(
Remove(Row, Pos(Top, 1)),
Remove(Row, Pos(Top, 2)),
Remove(Row, Pos(Top, 2)),
Remove(Row, Pos(Top, 51))
));

STORE TESTE INTO C:\Geral\pedidos\qvd\TESTE.QVD(QVD);

NEXT vFoundFile;

NEXT vExt;

FOR each Dir in dirlist( '$(Root)' & '\*' )

call QVWDir('$(Dir)')

NEXT Dir;

end sub

Call QVWDir('$(vPath)');

[Ribeiro · Accepted solution]

Acho que resolvi.

Load
num(Pedido) as PedidoDigitado

Resident TESTE;