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"
VARIAVEL Z_CLTERAPEUTICA=SPAC(30) 
T6,10,19,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! 
T10,2,Classe Terapeutica.  :,20,z_clterapEUTICA,@s30 
 
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 (Z_PSIM) 
OUTROARQ SE_PROD SEIP_C PCOD 
OUTROARQ (Z_MOVE)
OUTROARQ SCCPFAB
OUTROARQ VB_CRM vb_crmc crm 
OUTROARQ VB_PAC VB_PAC PACIENTE 
OUTROARQ VB_PCOMP VB_PCOMP COMPRADOR
OUTROARQ DELIVERY
 
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 DURANTEAF ZPCOD = PCOD 
COMANDO DURANTEAF ZCRM  = crm 
COMANDO DURANTEAF ZPAC  = PACIENTE 
COMANDO DURANTEAF Zcomp = comprador
COMANDO DURANTEAF Zrecn = mrecno

COMANDO DURANTEAF SE_PROD->(DbSeeK(ZPCOD)) 
COMANDO DURANTEAF VB_CRM->(DbSeeK(ZCRM)) 
COMANDO DURANTEAF VB_PAC->(DbSeeK(ZPAC)) 
COMANDO DURANTEAF VB_PCOMP->(DbSeeK(Zcomp)) 
COMANDO DURANTEAF Z_MOVE->(dbgoto(zrecn))
 
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 sccpfab->(DbGoto( se_prod->pprincforn ))
COMANDO DURANTE ZNPROD = ZNPROD + 1 
COMANDO DURANTE z_numreceita = z_numreceita+1 
*- -------------------------------------------------------
*- Dados do Paciente
*- -------------------------------------------------------
COMANDO DURANTE Z1Nome = vb_pac->paciente
COMANDO DURANTE Z1rua  = vb_pac->cr_rua
COMANDO DURANTE Z1Bai  = vb_pac->cr_bairro
COMANDO DURANTE Z1Cid  = vb_pac->cr_cidade
COMANDO DURANTE Z1Cep  = vb_pac->cr_cep
COMANDO DURANTE Z1cpf  = vb_pac->cr_rg
*- -------------------------------------------------------
*- Dados do Comprador 
*- -------------------------------------------------------
COMANDO DURANTE Z2Nome = vb_pcomp->comprador
COMANDO DURANTE Z2rua  = vb_pcomp->cr_rua
COMANDO DURANTE Z2Bai  = vb_pcomp->cr_bairro
COMANDO DURANTE Z2Cid  = vb_pcomp->cr_cidade
COMANDO DURANTE Z2cpf  = vb_pcomp->cr_rg
*- -------------------------------------------------------
*- Dados do Medico
*- -------------------------------------------------------
COMANDO DURANTE Z3Crm   = vb_crm->crm
COMANDO DURANTE Z3Nome  = vb_crm->medico
COMANDO DURANTE Z3Rua   = vb_crm->rua
COMANDO DURANTE Z3Bai   = vb_crm->bairro
COMANDO DURANTE Z3Cep   = vb_crm->cep
COMANDO DURANTE Z3Cid   = vb_crm->cidade
COMANDO DURANTE Z3especialidade = vb_crm->especialid
COMANDO DURANTE Z3uf   = vb_crm->uf
COMANDO DURANTE Z3cpf  = vb_crm->cr_cgc
*- -------------------------------------------------------
*- Dados da quantidade vendida
*- -------------------------------------------------------
COMANDO DURANTE Z4prdLab       = StrZero( se_prod->pprincforn , 4)
COMANDO DURANTE Z4pdesc        = pad(SE_PROD->PDESC, 35)
COMANDO DURANTE Z4prdPrecVenda = StrZero( z_move->pvluvenda * 100, 12)
COMANDO DURANTE Z4prdCodBarras = STRZERO(SE_PROD->PDIC6, 13) 
COMANDO DURANTE Z4prdSaldo     = STRZERO(SE_PROD->Peatual, 6) 
COMANDO DURANTE Z4data         = mdata
COMANDO DURANTE Z4data_ddmmaa  = Dtoc(mdata)
COMANDO DURANTE Z4data_dd      = strzero(day(mdata), 2) 
COMANDO DURANTE Z4data_mm      = strzero(month(mdata), 2) 
COMANDO DURANTE Z4data_aaaa    = strzero(year(mdata), 4) 
COMANDO DURANTE Z4QuantVenda   = StrZero( mquant , 6)
COMANDO DURANTE Z4ValorVenda   = StrZero( z_move->mvalor *100, 12)
COMANDO DURANTE Z4posologia    = StrZero( posologia, 2)
COMANDO DURANTE Z4NumPedido    = StrZero( fnumped, 6)
*- -------------------------------------------------------
comando durante delivery->(appendblank())
comando durante delivery->(put_var("pcod",     zPcod))
comando durante delivery->(put_var("fnumped",  z4numPedido))
comando durante delivery->(put_var("labcod",   z4prdlab))
comando durante delivery->(put_var("pdesc",    z4pdesc))
comando durante delivery->(put_var("mdata",    z4data))
comando durante delivery->(put_var("crm",      zcrm))
comando durante delivery->(put_var("crmnome",  z3nome))
comando durante delivery->(put_var("paciente", zpac))
comando durante delivery->(put_var("comprador",zcomp))
comando durante delivery->(put_var("peatual",   se_prod->peatual))
comando durante delivery->(put_var("mquant",   val(z4quantvenda)))
comando durante delivery->(put_var("mvalor",   val(z4valorvenda)/100))
comando durante delivery->(put_var("pvluvenda", z_move->pvluvenda))
comando durante delivery->(put_var("posologia",val(z4posologia)))
*- -------------------------------------------------------
*-COMANDO ANTES zHandleInestra = Fcreate(s_arq_prn) 
*- -------------------------------------------------------
*- Montagem da Linha a Imprimir
*- -------------------------------------------------------
*-comando durante zlinha = Z4numPedido + z4data_DdMmAa 
*-comando durante zlinha = zlinha + z4prdCodBarras + z4pdesc
*-comando durante zlinha = zlinha + Z1Nome+Z1rua+Z1Bai+Z1Cid+z1Cep+Z1cpf 
*-comando durante zlinha = zlinha + Z2Nome+Z2rua+Z2Bai+Z2Cid+Z2cpf 
*-comando durante zlinha = zlinha + Z3Nome+Z3rua+Z3Bai+Z3Cid+z3Cep
*- -------------------------------------------------------
*-COMANDO DURANTE FWRITE(zHandleInestra,zlinha+chr(13)+chr(10) ) 
*-COMANDO DURANTE ZLINHA = ""
*-COMANDO DEPOIS FCLOSE(zHandleInestra) 
*-COMANDO DEPOIS ALERT("Foi alimentado o arquivo delivery.dbf",,"w/b")
