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 
VARIAVEL z_pfgcontrol = " " 
VARIAVEL Z_DIVISao    = "    " 
VARIAVEL z_crm = spac(6) 
VARIAVEL z_lab = 0 
 
T6,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 
T6,2,Divisao Psicotropicos:,1,z_pfgcontrol,x 
T7,2,Divisao de Produtos  :,4,z_divisao,9999 
T8,2,Laboratorio........  :,4,z_lab,9999 
T9,2,CRM do Medico......  :,6,z_crm,99999! 
 
COMANDO ANTES DbGoBottom() 
COMANDO DEPOIS Z_MOVE = "MOVE"+Z_AAMM 
COMANDO DEPOIS Z_PSIM = "PSIM"+Z_AAMM 
 
ARQUIVO (Z_PSIM) 
OUTROARQ SE_PROD SEIP_C PCOD 
OUTROARQ SCCPFOR 
OUTROARQ VB_CRM vb_crmc crm 
 
COMANDO DURANTEAF ZPCOD = PCOD 
COMANDO DURANTEAF SE_PROD->(DBSEEK(ZPCOD)) 
COMANDO DURANTE Zean = STRZERO(SE_PROD->PDIC6, 13) 
COMANDO DURANTEAF ZCRM = crm 
COMANDO DURANTEAF VB_CRM->(DBSEEK(ZCRM)) 
 
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 
FILTRO z_lab=0 .or. Z_LAB = se_prod->pprincforn 
FILTRO z_crm=spac(6) .or. Z_crm = zcrm 
COMANDO DURANTE ZPDESC = SE_PROD->PDESC 
 
ARQTMP RECEITAS [ZPCOD 99999] [ZPDESC @S25] [MDATA] [FNUMPED 999999] [MQUANT 9999][CRM]   [MEDICO] [PACIENTE]    [COMPRADOR] 
 
ARQUIVO RECEITAS 
INDEX TEMP0101 ZPDESC 
 
VARIAVEL ZNPROD = 0 
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   Cupom  Quant  CRM  MEDICO                          Paciente 
C[repl("=",132)] 
 
#D[ZPCOD 99999] [ZPDESC @S25] [MDATA] [FNUMPED 999999][MQUANT 9999]  [CRM]  [MEDICO][PACIENTE][COMPRADOR @s12] 
D[ZPCOD 99999] [ZPDESC @S25] [MDATA] [FNUMPED 999999][MQUANT 9999]  [CRM]  [MEDICO][PACIENTE] [zean] [uf] 
 
ULTPAG[repl("-",132)] 
            ULTPAG PRODUTOS LISTADOS:                         [ZNPROD @e 999,999] 
ULTPAG[repl("=",132)] 
 
 