outroarq se_prod seip_c pcod 
outroarq sccpfor 
 
filtro day(datatrn) = 0 
 
*---------------------------------------- 
* vai para o registro do fornecedor 
*---------------------------------------- 
comando durante zPfFor = pffor 
comando durante zCpNome = sccpfor->cp_nome 
comando durante sccpfor->(DbGoto(zPfFor)) 
 
*---------------------------------------- 
* pesquisa produto com codigo pcod 
*---------------------------------------- 
comando durante zpcod = pcod 
comando durante se_prod->(DbSeek(zpcod)) 
comando durante zpdesc = se_prod->pdesc 
 
CProdutos de Entradas nao Transmitidos de [zde] a [zate] 
C==================================================================== 
DCodigo     RegMs   Descricao                          Qtde  Lote 
D[pcod 999999] [pregms] [zpdesc @S25]  [mquant 9999]   [plote] 
DData.Ent      NumeroNF   CnpjFornecedor 
D[pfdatache]  [PFNUM]    [CP_CGC][pffor] [zCpNome] 
d--------------------------------------------------------------------- 
ultpag 
 
 
 