VARIAVEL LST_TP = 58 
VARIAVEL ZNPROD = 0 

VARIAVEL Z_dE  = CTOD( "01. "+SUBSTR(DTOC(S_DATUAL),4) ) 
VARIAVEL Z_ATE = S_DATUAL 
VARIAVEL z_pfgcontrol = " " 
VARIAVEL Z_DIVISao    = "    " 

T10,10,18,60,Parametros 
T2,2,Data Inicial....:,5,Z_De,99.99.9999 
T3,2,Data Final......:,6,Z_ATE,99.99.9999 
T4,2,Divisao Psicotropicos:,1,z_pfgcontrol,x 
T5,2,Divisao de Produtos  :,4,z_divisao,9999 
 
COMANDO DURANTEAF ZPCOD = PCOD 
COMANDO DURANTEAF SE_PROD->(DBSEEK(ZPCOD)) 
COMANDO DURANTE ZPDESC = SE_PROD->PDESC 

FILTRO MFGES="S" .AND. MDATA>=Z_DE .AND. MDATA<=Z_ATE 
FILTRO Z_dIVISAO="    ".OR.SE_PROD->PDIVISAO=Z_DIVISAO 
FILTRO z_pfgcontrol=" " .or. se_prod->pfgcontrol=z_pfgcontrol 

COMANDO DURANTE ZNPROD = ZNPROD + 1
C[chr(15)][Empresa]          Data [Date()]    Hora [Time()] 
CConferencia de Receituario                             Pag [Pag 9999] 
C[repl("-",132)] 
CCod      Descricao               Data    NF/Cup  Quant CRM    MEDICO                        Paciente                 COMPRADOR 
C[repl("=",132)] 
D[ZPCOD 99999] [ZPDESC @S25] [MDATA] [FNUMPED 999999] [MQUANT 9999]  [CRM][MEDICO][PACIENTE][COMPRADOR] 
 
ULTPAG[repl("-",132)] 
ULTPAG PRODUTOS LISTADOS:                          [ZNPROD @e 999,999] 
ULTPAG[repl("=",132)] 
 