VARIAVEL Z_AAMM = right( str(year(date()),4), 2) + strzero( month(date()) ,2) 
VARIAVEL Z_PSIM = "" 
VARIAVEL Z_MOVE = "" 
VARIAVEL LST_TP = 999
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_numreceita = int(seconds())
#VARIAVEL w_crm = spac(6)
#VARIAVEL w_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......  :,4,z_crm,99999!

COMANDO ANTES SetPrc( 0,0)
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
OUTROARQ VB_PAC VB_PAC PACIENTE

VARIAVEL ZNPROD = 0

COMANDO ANTES DBSETORDER(0)
COMANDO ANTES DBGOTOP()
*#-COMANDO ANTES s_arq_prn = (r_siga+"rel\ine"+z_aamm+".txt")
COMANDO ANTES znil = Set(24,"")
COMANDO ANTES zHandleInestra = Fcreate(s_arq_prn)
 
COMANDO DURANTEAF ZPCOD = PCOD 
COMANDO DURANTEAF SE_PROD->(DBSEEK(ZPCOD)) 
COMANDO DURANTEAF ZCRM = crm
COMANDO DURANTEAF ZPAC = PACIENTE
COMANDO DURANTEAF VB_CRM->(DBSEEK(ZCRM))
COMANDO DURANTEAF VB_PAC->(DBSEEK(ZPAC))

FILTRO SE_PROD->PDIC6>0
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 ZNPROD = ZNPROD + 1
COMANDO DURANTE z_numreceita = z_numreceita+1
COMANDO DURANTE ZCPFINESTRA = IF( val(vb_pac->cr_rg)>0, val(vb_pac->cr_rg), z_numreceita)
COMANDO DURANTE ZPDESC = SE_PROD->PDESC
COMANDO DURANTE Zv1  = strzero(day(mdata), 2)
COMANDO DURANTE Zv2  = strzero(month(mdata), 2)
COMANDO DURANTE Zv3  = strzero(year(mdata), 4)
COMANDO DURANTE ZV4  = strzero( ZCPFINESTRA , 12)
*- COMANDO DURANTE ZV4  = strzero( 0 , 12)
COMANDO DURANTE ZV5  = strzero( 0 , 6)
COMANDO DURANTE Zean = STRZERO(SE_PROD->PDIC6, 13)
COMANDO DURANTE ZQTD = STRZERO(MQUANT,4)
COMANDO DURANTE Zspc = spac(44)
COMANDO DURANTE Zseq = STRZERO(znprod,6)
COMANDO DURANTE ZUF  = upper( VB_CRM->uf )
COMANDO DURANTE ZSTRING = "0108401713000179"+zv1+"/"+zv2+"/"+zv3+zv4+zv5+zv1+"/"+zv2+"/"+zv3+"0000"+zCRM+"1"+zuf+zean+zqtd+"00"+ZSPC+ZSEQ
* D0108401713000179[zv1]/[zv2]/[zv3][zv4][zv5][zv1]/[zv2]/[zv3]0000[zCRM]1[zuf][zean][zqtd]00[ZSPC][ZSEQ]
COMANDO DURANTE FWRITE(zHandleInestra,zstring+chr(13)+chr(10) )
COMANDO DEPOIS FCLOSE(zHandleInestra)
