VARIAVEL zBlkCGC = _createblock('xcgc:=strtran(xcgc,"."),xcgc:=strtran(xcgc,"/"),xcgc:=strtran(xcgc,"-"),xcgc:=strtran(xcgc," "),padl(xcgc,14,"0")' , {'xcgc'} ) 
 
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 ZLINHA = ""
VARIAVEL z_crm = spac(6) 
VARIAVEL z_lab = if(type("zlab")<>"U",zlab,0 )
VARIAVEL delivery = "delivery"
 
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 
 
COMANDO ANTES SetPrc( 0,0) 
COMANDO ANTES DbGoBottom() 
COMANDO ANTES ZNIL = __copyfile( "delivery.str", "delivery.dbf")
COMANDO DEPOIS Z_MOVE = "MOVE"+Z_AAMM 
COMANDO DEPOIS Z_PSIM = "PSIM"+Z_AAMM 


ARQUIVO SE_PROD SEIP_N PDESC
OUTROARQ SCCPFAB 
OUTROARQ DELIVERY
 
COMANDO ANTES znil = Set(24,"") 

FILTRO se_prod->PRECEITA="S"
FILTRO SE_PROD->PDIC6>0 
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 

COMANDO DURANTE sccpfab->(DbGoto( se_prod->pprincforn ))
COMANDO DURANTE ZNPROD = ZNPROD + 1 
COMANDO DURANTE z_numreceita = z_numreceita+1 
*- -------------------------------------------------------
*- Dados dos produos   
*- -------------------------------------------------------
COMANDO DURANTE Z4prdLab       = StrZero( se_prod->pprincforn , 4)
COMANDO DURANTE Z4pdesc        = pad(SE_PROD->PDESC, 35)
COMANDO DURANTE Z4prdPrecVenda = StrZero( pvluvenda * 100, 12)
COMANDO DURANTE Z4prdCodBarras = STRZERO(SE_PROD->PDIC6, 13) 
COMANDO DURANTE Z4prdSaldo     = STRZERO(SE_PROD->Peatual, 6) 
*- -------------------------------------------------------
 
COMANDO ANTES zFileGenexis = Fcreate(s_arq_prn) 
 
COMANDO DURANTE znil = if(znprod<=1, FWRITE(zFileGenexis, "H"+pad("CADPROD",10)+dtos(date())+chr(13)+chr(10) ), 0) 
COMANDO DURANTE znil = if(znprod<=1, FWRITE(zFileGenexis, "I"+ padr("08401713000179",18," ") +chr(13)+chr(10) ), 0) 
 
COMANDO DURANTE zcnpjfab = padr( eval(zBlkCGC, sccpfab->cp_cgc) , 18, ' ')
COMANDO DURANTE zstr = "V"+zcnpjfab+ pad( sccpfab->cp_nome, 30) 
COMANDO DURANTE zstr = zstr + padr ( se_prod->pcod,14,' ') 
COMANDO DURANTE zstr = zstr + if(se_prod->pitens>1,"1","0") 
COMANDO DURANTE zstr = zstr + padr ( se_prod->pdic6,14,' ') +"1" 
COMANDO DURANTE zstr = zstr + pad( se_prod->pdesc,100) 
COMANDO DURANTE zstr = zstr + pad( "MEDICAMENTOS",40) 
COMANDO DURANTE zstr = zstr + pad( " ",30) 
COMANDO DURANTE zstr = zstr + "A" 
COMANDO DURANTE zstr = zstr + StrZero( se_prod->pvluven3*100,12) 
COMANDO DURANTE zstr = zstr + pad( " ",15) 
COMANDO DURANTE zstr = zstr + pad( " ",8) 
 
COMANDO DURANTE FWRITE(zFileGenexis,zstr +chr(13)+chr(10) )
 
COMANDO DEPOIS FWRITE(zFileGenexis,"T" ) 
COMANDO DEPOIS FCLOSE(zFileGenexis) 
