ALIAS VB_FPOP
OUTROARQ sccrcli
OUTROARQ vb_pcomp vb_pcomp COMPRADOR
OUTROARQ SE_PROD SEIP_DC6 PDIC6

VARIAVEL Z_AAMM = ""
VARIAVEL Z_DE = CTOD( "01."+SUBSTR(DTOC(S_DATUAL),4) ) 
VARIAVEL Z_ATE = S_DATUAL 
VARIAVEL Z_TOTVEND = 0
VARIAVEL zDiasTratamento = 0

T10,10,18,79,Parametros 
T2,2,Data Inicial ......:,10,Z_DE,99.99.9999 
T3,2,Data Final ........:,10,Z_ATE,99.99.9999
T5,2,Listo os com compras com quantos dias de Tratamento ?,4,zDiasTratamento,9999


COMANDO ANTES Z_AAMM = SubStr( Dtos(z_Ate), 3, 4)
COMANDO ANTES ZNIL = SetAliasAaMm(Z_AAMM)
COMANDO ANTES ZNIL = Abra( '0NOIDX', r_Siga, WSE_PSIM, 'se_psim', Wse_psim_p, 'fnumped')
COMANDO ANTES ZNIL = Abra( '0NOIDX', r_Siga, WSF_FAT, 'sf_fat', WSF_FAT_P, 'fnumped')
COMANDO ANTES ZNIL = DBSELECTAREA('VB_FPOP')
COMANDO ANTES ZNIL = xDbCopyTo('tmp\FPOP', 'fpop', {|| FDATAEMI>=Z_dE  .AND. FDATAEMI<=Z_ATE .and. FCONFIRMAD='S' .and. POSOLOGIA>0})
COMANDO ANTES ZNIL = VB_FPOP->(DbCloseArea())
// COMANDO ANTES ZNIL = Abra( '0NOIDX', r_Siga, 'tmp\FPOP', 'vb_fpop', 'FPOP', 'Dtos(FDATAEMI+mqatend*APLICACOES/POSOLOGIA)+PACIENTE+autoriza')
COMANDO ANTES ZNIL = Abra( '0NOIDX', r_Siga, 'tmp\FPOP', 'vb_fpop')
COMANDO ANTES ZNIL = dbCreateIndex( ("tmp\fpop"), "Dtos(FDATAEMI+mqatend*APLICACOES/POSOLOGIA)+PACIENTE+autoriza", {|| Dtos(FDATAEMI+mqatend*APLICACOES/POSOLOGIA)+PACIENTE+autoriza}, .T. )
COMANDO ANTES ZNIL = VB_FPOP->(DbGoTop())

Filtro FDATAEMI>=Z_dE  .AND. FDATAEMI<=Z_ATE .and. FCONFIRMAD='S' .and. POSOLOGIA>0

COMANDO DURANTE ZPDIC6 = PDIC6
COMANDO DURANTE SE_PROD->(DBSEEK(ZPDIC6 ))
COMANDO DURANTE ZPDESC = SE_PROD->PDESC

COMANDO DURANTE ZFNUMPED = FNUMPED
COMANDO DURANTE sf_fat->(DBSEEK(ZFNUMPED))
COMANDO DURANTE se_psim->(DBSEEK(ZFNUMPED))
COMANDO DURANTE zComprador = se_psim->comprador
COMANDO DURANTE vb_pcomp->(DBSEEK(zComprador))
COMANDO DURANTE ZCodCli = if(vb_pcomp->cr_cod_cli>0,vb_pcomp->cr_cod_cli,0)
COMANDO DURANTE zNil = if(ZCodCli>0, Sccrcli->(DbGoto(ZCodCli)),0)
COMANDO DURANTE zFone = if(ZCodCli>0 .and. .not. empty(Sccrcli->cr_fone), Sccrcli->cr_fone,vb_pcomp->cr_fone)
COMANDO DURANTE ZCRM = se_psim->CRM
COMANDO DURANTE Z_TOTVEND = Z_TOTVEND + psubsidio*mqatend
COMANDO DURANTE zDias = mqatend*APLICACOES/POSOLOGIA
COMANDO DURANTE zDtProx = FDATAEMI+zDias

CPosVenda Farmacia Popular, Emitida em [s_datual] as [time()]         Pag [pag 999]     Periodo: [z_DE] ate [z_ATE] 
C[Repl("-",132)] 
CProxComp Paciente                  Pedido DtEmis   CodCli Fone/Comprador
*99.99.99 xxxxxxxxxxxxxxxxxxxxxxxxx 999999 99.99.99 999999 xxxxxxxxxxxxxxxxxxxxxxxxx
C.        Emissao  Cxs Apl Pos Dias  Produto
*         99.99.99 999 999 999 9999  xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

C[Repl("=",132)]
FILTROIMP zDtProx-FDATAEMI >= zDiasTratamento
D[zDtProx] [paciente @s25] [FNUMPED 999999] [zCodCli 999999] [zFone] [zComprador @s25]
FILTROIMP zDtProx-FDATAEMI >= zDiasTratamento
D.        [FDATAEMI] [mqatend 999] [APLICACOES*mqatend 999] [POSOLOGIA 999] [zDias 9999]dd [ZPDESC @S30] 
FILTROIMP zDtProx-FDATAEMI >= zDiasTratamento
D

COMANDO DEPOIS se_psim->(DbCloseArea())
COMANDO DEPOIS sf_fat->(DbCloseArea())
