OUTROARQ SCCPFOR

VARIAVEL Z_TP  = 0
VARIAVEL Z_TU  = 0
VARIAVEL Z_TPF = 0
VARIAVEL Z_REF = "    "
VARIAVEL Z_fORN = 0
VARIAVEL Z_TPCUSTO = 0
VARIAVEL Z_SEMMARKUP = 0
VARIAVEL Z_ESTIMADOS = 0
VARIAVEL Z_ZERADOS = 0

OUTROARQ SE_GPRE SE_GPRE GRUPO

COMANDO DURANTE ZNIL = IF(PVLUVEN3=0, REGLOCK(), 0) 
COMANDO DURANTE ZNIL = IF(PVLUVEN3=0, PUT_VAR("PVLUVEN3",PVLUVENDA*.70), 0) 
COMANDO DURANTE FABRICA = PVLUVEN3

COMANDO DURANTE Z_TP  = Z_TP + 1
COMANDO DURANTE Z_TU  = Z_TU + PEATUAL
COMANDO DURANTE Z_TPF = Z_TPF + PEATUAL*PVLUVENDA
COMANDO DURANTE Z_ZERADOS   = Z_ZERADOS + IF(PEATUAL<=0,1,0)
COMANDO DURANTE Z_PRUNCST   = PEATUAL*fabrica
COMANDO DURANTE Z_TPCUSTO   = Z_TPCUSTO + Z_PRUNCST
COMANDO DURANTE Z_SEMMARKUP = Z_SEMMARKUP + 1

COMANDO DEPOIS Z_DESCONTO = IF(Z_TPF>0,Z_TPCUSTO/Z_TPF,0) * 100
COMANDO DEPOIS SCCPFOR->( DbGoto( Z_FORN ))

T10,10,15,70,Parametros
T2,2,Referencia:,4,z_ref,!!!!
T3,2,Fornecedor:,3,z_forn,999

FILTRO PEATUAL > 0
FILTRO (Z_REF="    ".OR.LEFT(PREF,4)=z_ref).and.(z_Forn=0.or.pprinCforn=z_forn)

*ULTPAG [Empresa]
ULTPAG [Sistema]
ULTPAG
ULTPAG
ULTPAG Posicao Sintetica do Estoque, em [date()], as [time()]
FILTROIMP Z_FORN>0
ULTPAG *** Totais Apenas do Fornecedor [z_forn 999]-[sccpfor->cp_fantasi]
ULTPAG
ULTPAG Numero de Produtos Distintos: [z_tp @E 999,999,999]
ULTPAG Numero de Volumes...........: [z_tu @E 999,999,999]
ULTPAG Valor a Preco de Venda......: [z_tpf @E 999,999,999.99]
ULTPAG Valor a Preco de Custo......: [z_tpCUSTO @E 999,999,999.99]
FILTROIMP Z_DESCONTO>0
ULTPAG Margem Bruta de Descontos...:        [100-Z_DESCONTO 999.99]%
FILTROIMP Z_DESCONTO>0
ULTPAG Markup Global Medio.........:        [(100-z_desconto)/z_desconto*100 999.99]%
ULTPAG Produtos Zerados............: [z_zerados @E 999,999,999]
FILTROIMP Z_TP>0
ULTPAG Nivel de Servico............:      [100-z_zerados/z_tp*100 @e 999.99]%
ULTPAG
ULTPAG Giro             Prods Faltas    Nser  PrVenda     Custo  Margem
ULTPAG ----------------- ---- ------ -------  -------- -------- -------
VARIAVEL Z_NPD = 0
VARIAVEL Z_NPDF = 0
VARIAVEL Z_PVD = 0
VARIAVEL Z_PCD = 0
VARIAVEL Z_NSD = 0
VARIAVEL Z_NPS = 0
VARIAVEL Z_NPSF = 0
VARIAVEL Z_PVS = 0
VARIAVEL Z_PCS = 0
VARIAVEL Z_NSS = 0
VARIAVEL Z_NPQ = 0
VARIAVEL Z_NPQF = 0
VARIAVEL Z_PVQ = 0
VARIAVEL Z_PCQ = 0
VARIAVEL Z_NSQ = 0
VARIAVEL Z_NPM = 0
VARIAVEL Z_NPMF = 0
VARIAVEL Z_PVM = 0
VARIAVEL Z_PCM = 0
VARIAVEL Z_NSM = 0
VARIAVEL Z_NPB = 0
VARIAVEL Z_NPBF = 0
VARIAVEL Z_PVB = 0
VARIAVEL Z_PCB = 0
VARIAVEL Z_NSB = 0
VARIAVEL Z_NPT = 0
VARIAVEL Z_NPTF = 0
VARIAVEL Z_PVT = 0
VARIAVEL Z_PCT = 0
VARIAVEL Z_NST = 0
VARIAVEL Z_NPx = 0
VARIAVEL Z_NPxF = 0
VARIAVEL Z_PVx = 0
VARIAVEL Z_PCx = 0
VARIAVEL Z_NSx = 0
VARIAVEL Z_NPZ = 0
VARIAVEL Z_NPZF = 0
VARIAVEL Z_PVZ = 0
VARIAVEL Z_PCZ = 0
VARIAVEL Z_NSZ = 0

FILTROIMP Z_NPD>0
ULTPAG Venda Diaria....: [z_npd 9999]  [z_npdf 9999]  [z_nsd 999.99]%  [z_pvd 9999,999] [z_pcd 9999,999]  [IF(Z_PVD>0,1-Z_PCD/Z_PVD,0)*100 999.99]%
FILTROIMP Z_NPS>0
ULTPAG Venda Semanal...: [z_nps 9999]  [z_npsf 9999]  [z_nss 999.99]%  [z_pvs 9999,999] [z_pcs 9999,999]  [IF(Z_PVS>0,1-Z_PCS/Z_PVS,0)*100 999.99]%
FILTROIMP Z_NPQ>0
ULTPAG Venda Quinzenal.: [z_npq 9999]  [z_npqf 9999]  [z_nsq 999.99]%  [z_pvq 9999,999] [z_pcq 9999,999]  [IF(Z_PVQ>0,1-Z_PCQ/Z_PVQ,0)*100 999.99]%
FILTROIMP Z_NPM>0
ULTPAG Venda Mensal....: [z_npm 9999]  [z_npmf 9999]  [z_nsm 999.99]%  [z_pvm 9999,999] [z_pcm 9999,999]  [IF(Z_PVM>0,1-Z_PCM/Z_PVM,0)*100 999.99]%
FILTROIMP Z_NPB>0
ULTPAG Venda Bimestral.: [z_npb 9999]  [z_npbf 9999]  [z_nsb 999.99]%  [z_pvb 9999,999] [z_pcb 9999,999]  [IF(Z_PVB>0,1-Z_PCB/Z_PVB,0)*100 999.99]%
FILTROIMP Z_NPT>0
ULTPAG Venda Trimestral: [z_npt 9999]  [z_nptf 9999]  [z_nst 999.99]%  [z_pvt 9999,999] [z_pct 9999,999]  [IF(Z_PVT>0,1-Z_PCT/Z_PVT,0)*100 999.99]%
FILTROIMP Z_NPx>0
ULTPAG Venda Quadrimest: [z_npx 9999]  [z_npxf 9999]  [z_nsx 999.99]%  [z_pvx 9999,999] [z_pcx 9999,999]  [IF(Z_PVx>0,1-Z_PCx/Z_PVx,0)*100 999.99]%
FILTROIMP Z_NPZ>0
ULTPAG Baixo giro......: [z_npz 9999]  [z_npzf 9999]  [z_nsz 999.99]%  [z_pvz 9999,999] [z_pcz 9999,999]  [IF(Z_PVZ>0,1-Z_PCZ/Z_PVZ,0)*100 999.99]%

COMANDO DURANTE Z_NPD = Z_NPD +   IF(PABCFISICA="D",1,0)
COMANDO DURANTE Z_NPDF = Z_NPDF + IF(PABCFISICA="D".AND.PEATUAL=0,1,0)
COMANDO DURANTE Z_PVD = Z_PVD +   IF(PABCFISICA="D",PEATUAL*PVLUVENDA,0)
COMANDO DURANTE Z_PCD = Z_PCD +   IF(PABCFISICA="D",Z_PRUNCST,0)
COMANDO DEPOIS  Z_NSD = Z_NSD +   IF(Z_NPD>0,100-Z_NPDF/Z_NPD*100,0)

COMANDO DURANTE Z_NPS = Z_NPS + IF(PABCFISICA="S",1,0)
COMANDO DURANTE Z_NPSF= Z_NPSF+ IF(PABCFISICA="S".AND.PEATUAL=0,1,0)
COMANDO DURANTE Z_PVS = Z_PVS + IF(PABCFISICA="S",PEATUAL*PVLUVENDA,0)
COMANDO DURANTE Z_PCS = Z_PCS + IF(PABCFISICA="S",Z_PRUNCST,0)
COMANDO DEPOIS  Z_NSS = Z_NSS + IF(Z_NPS>0,100-Z_NPSF/Z_NPS*100,0)

COMANDO DURANTE Z_NPQ = Z_NPQ + IF(PABCFISICA="Q",1,0)
COMANDO DURANTE Z_NPQF= Z_NPQF+ IF(PABCFISICA="Q".AND.PEATUAL=0,1,0)
COMANDO DURANTE Z_PVQ = Z_PVQ + IF(PABCFISICA="Q",PEATUAL*PVLUVENDA,0)
COMANDO DURANTE Z_PCQ = Z_PCQ + IF(PABCFISICA="Q",Z_PRUNCST,0)
COMANDO DEPOIS  Z_NSQ = Z_NSQ + IF(Z_NPQ>0,100-Z_NPQF/Z_NPQ*100,0)

COMANDO DURANTE Z_NPM = Z_NPM + IF(PABCFISICA="M",1,0)
COMANDO DURANTE Z_NPMF= Z_NPMF+ IF(PABCFISICA="M".AND.PEATUAL=0,1,0)
COMANDO DURANTE Z_PVM = Z_PVM + IF(PABCFISICA="M",PEATUAL*PVLUVENDA,0)
COMANDO DURANTE Z_PCM = Z_PCM + IF(PABCFISICA="M",Z_PRUNCST,0)
COMANDO DEPOIS  Z_NSM = Z_NSM + IF(Z_NPM>0,100-Z_NPMF/Z_NPM*100,0)

COMANDO DURANTE Z_NPB = Z_NPB + IF(PABCFISICA="B",1,0)
COMANDO DURANTE Z_NPBF= Z_NPBF+ IF(PABCFISICA="B".AND.PEATUAL=0,1,0)
COMANDO DURANTE Z_PVB = Z_PVB + IF(PABCFISICA="B",PEATUAL*PVLUVENDA,0)
COMANDO DURANTE Z_PCB = Z_PCB + IF(PABCFISICA="B",Z_PRUNCST,0)
COMANDO DEPOIS  Z_NSB = Z_NSB + IF(Z_NPB>0,100-Z_NPBF/Z_NPB*100,0)

COMANDO DURANTE Z_NPT = Z_NPT + IF(PABCFISICA="T",1,0)
COMANDO DURANTE Z_NPTF= Z_NPTF+ IF(PABCFISICA="T".AND.PEATUAL=0,1,0)
COMANDO DURANTE Z_PVT = Z_PVT + IF(PABCFISICA="T",PEATUAL*PVLUVENDA,0)
COMANDO DURANTE Z_PCT = Z_PCT + IF(PABCFISICA="T",Z_PRUNCST,0)
COMANDO DEPOIS  Z_NST = Z_NST + IF(Z_NPT>0,100-Z_NPTF/Z_NPT*100,0)

COMANDO DURANTE Z_NPx = Z_NPx + IF(PABCFISICA="X",1,0)
COMANDO DURANTE Z_NPxF= Z_NPxF+ IF(PABCFISICA="X".AND.PEATUAL=0,1,0)
COMANDO DURANTE Z_PVx = Z_PVx + IF(PABCFISICA="X",PEATUAL*PVLUVENDA,0)
COMANDO DURANTE Z_PCx = Z_PCx + IF(PABCFISICA="X",Z_PRUNCST,0)
COMANDO DEPOIS  Z_NSx = Z_NSx + IF(Z_NPx>0,100-Z_NPxF/Z_NPx*100,0)

COMANDO DURANTE Z_NPZ = Z_NPZ + IF(!PABCFISICA$"DSQMBTX",1,0)
COMANDO DURANTE Z_NPZF= Z_NPZF+ IF(!PABCFISICA$"DSQMBTX".AND.PEATUAL=0,1,0)
COMANDO DURANTE Z_PVZ = Z_PVZ + IF(!PABCFISICA$"DSQMBTX",PEATUAL*PVLUVENDA,0)
COMANDO DURANTE Z_PCZ = Z_PCZ + IF(!PABCFISICA$"DSQMBTX",Z_PRUNCST,0)
COMANDO DEPOIS  Z_NSZ = Z_NSZ + IF(Z_NPQ>0,100-Z_NPQF/Z_NPQ*100,0)

*ULTPAG Valor dos Genericos.........: [z_bos @E 999,999,999.99]
*ULTPAG Valor Liquido do Estoque....: [z_tpfab-z_bos/2 @E 999,999,999.99]
*LTPAG Venda Diaria....: 9999 9999   999.99%  9999,999 9999,999