 
VARIAVEL Z_AAMM = right( str(year(date()),4), 2) + strzero( month(date()) ,2) 
VARIAVEL Z_PSIM = "" 
VARIAVEL Z_MOVE = "" 
VARIAVEL LST_TP = 58 
VARIAVEL TOTUNI = 0 
VARIAVEL ZNPROD = 0 
VARIAVEL Z_dE=CTOD( "01. "+SUBSTR(DTOC(S_DATUAL),4) ) 
VARIAVEL Z_ATE=S_DATUAL 
 
T10,10,18,60,Parametros 
T2,2,Ano e Mes (AaMm):,4,z_aamm,9999 
T3,2,Data Inicial....:,5,Z_De,99.99.9999 
T4,2,Data Final......:,6,Z_ATE,99.99.9999 
COMANDO ANTES DbGoBottom() 
COMANDO DEPOIS Z_MOVE = "MOVE"+Z_AAMM 
COMANDO DEPOIS Z_PSIM = "PSIM"+Z_AAMM 
7 
ARQUIVO SE_PROD SEIP_N PDESC 
OUTROARQ (Z_PSIM) ("temp0101") pcod 
OUTROARQ (z_MOVE) z_MOVE+".c" pcod 
OUTROARQ SCCPFOR 
 
FILTRO PFGCONTROL <> " " 
 
COMANDO DURANTE ZPCOD = PCOD 
COMANDO DURANTE ZPDESC = PDESC 
COMANDO DURANTE ZFGIMPRIMIU = .F. 
 
COMANDO DURANTE Z_PSIM->(DBSEEK(ZPCOD)) 
COMANDO DURANTE Z_MOVE->(DBSEEK(ZPCOD)) 
 
C[chr(15)][Empresa]          Data [Date()]    Hora [Time()] 
CRelatorio de Entradas de Controlados                            Pag [Pag 9999] 
C[repl("-",132)] 
CE   Cod   Descricao               Data     N.Fisc   Quant  E.Atual       Fornecedor 
C[repl("-",132)] 
 
 
SUBLIST Z_MOVE 
VARIAVEL ZFgDeveImprimirLinhaBranca = .f. 
REPITA ENQUANTO PCOD=ZPCOD 
FILTRO MFGES="E" .AND. MFNUM>0 
FILTRO MDATA>=Z_DE .AND. MDATA<=Z_ATE 
COMANDO DURANTE ZFgDeveImprimirLinhaBranca = .NOT. ZFGIMPRIMIU 
COMANDO DURANTE ZFORN=MCODFORC 
COMANDO DURANTE SCCPFOR->(DBGOTO(ZFORN)) 
COMANDO DURANTE ZNPROD = ZNPROD + IF(.NOT.ZFGIMPRIMIU,1,0) 
COMANDO DURANTE ZFGIMPRIMIU = .T. 
 
 
C[chr(15)][Empresa]          Data [Date()]    Hora [Time()] 
CRelatório de Entradas de Controlados                                 Pag [Pag 9999] 
C[repl("-",132)] 
CE   Cod   Descricao               Data     N.Fisc   Quant  E.Atual       Fornecedor 
C[repl("=",132)] 
 
FILTROIMP ZFgDeveImprimirLinhaBranca 
D 
 
DE [ZPCOD 99999] [ZPDESC @S25] [MDATA] [MFNUM 999999] [MQUANT 9999]   [se_prod->peatual 9999]        [SCCPFOR->cp_NOME] 
FIM SUBLIST 
 
ULTPAG[repl("-",132)] 
ULTPAG PRODUTOS LISTADOS:                            [ZNPROD @e 999,999] 
ULTPAG[repl("=",132)] 
 
 
 