'Nome       : BscVnd_Cmp.std
'Tipo       : LST
'Data       : 2014/02/21
'Versao     : 1.0
'Descricao  : BSC - Vendedores/Comparacao

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0   ____/__/__ --------------------------------------------------
'Versao base


'==============================================================================
#DEF - Definicao global do documento
'==============================================================================
Caracteres invalidos             [CarInv]=#
##


'==============================================================================
#ESP - Campos especificos
'==============================================================================
Zoom para preview             [PrvZoom]=1.0
'Opcoes para impressora WIN   [PrWinOpc]=[ORI=P]
'Opcoes para impressora WIN   [PrWinOpc]=[ORI=L]
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=ENT
Nome                       [DocNom]=VND,Vendedores
Vias                       [DocVia]=Original

'formato
Saida/Impressora           [DocPrt]=PAG_W

'Linhas por pagina          [DocLpg]=120
'Linhas por pagina          [DocLpg]=110
Linhas por pagina          [DocLpg]=160

Colunas por linha          [DocCol]=78
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=

'funcoes de listagem
Funcao do documento         [FxDOC]=Ent
Listar cabecalho            [FxCAB]=Ent_Cab
Listar linhas               [FxLIN]=Ent_Lin,0; Pag,0; Grp,0; Ind,0; Sbt,0; Tot,0
Listar fim                  [FxFIM]=Ent_Fim
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
Tipo     = MemTxt$(1)                  'titulo
Pag      = Doc_CntPag                  'contador de paginas
DataExt  = FrmVal$(Sig_DtHoje,45,0)    'data por extenso

'variaveis a listar
'- (40) ------------------------------>'Comentario
##


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
'- +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
'- (13) --->'Comentario
'- (25) --------------->'Comentario
'- (28) ------------------>'Comentario
'- (40) ------------------------------>'Comentario
'- (43) --------------------------------->'Comentario
'- (46) ------------------------------------>'Comentario
'- (49) --------------------------------------->'Comentario
'- (52) ------------------------------------------>'Comentario
'- (55) --------------------------------------------->'Comentario
'- (58) ------------------------------------------------>'Comentario
'- (61) --------------------------------------------------->'Comentario
'- (64) ------------------------------------------------------>'Comentario
'- (67) --------------------------------------------------------->'Comentario
'- (70) ------------------------------------------------------------>'Comentario


'=============================================================================
'- Inicializacao -------------------------------------------------------------
'=============================================================================
Sub FxIni 'funcao de inicializacao
'msgbox "","FxIni",docOri$

call Com_Prp                                       'preparar opcoes comuns
call Com_Prp_Opc                                   'preparar - opcoes
call DocOri                                        'inicializar orientacao
end sub


Sub DocOri 'inicializar orientacao
'pagOri$ = "P"                                      'orientacao da pagina - Portrait
pagOri$ = "L"                                      'orientacao da pagina - Landscape

'res = VBS_PrpExe("")                               'preparar
'res = VBS_PrpAsp(pagOri$)                          'preparar pagina
call DocOri_Exe                                    'inicializar orientacao
end sub


Sub DocOri_Frc 'inicializar orientacao/forcar
pagOri$ = "L+F"                                    'orientacao da pagina - Landscape
call DocOri_Exe                                    'inicializar orientacao
end sub


Sub DocOri_Exe 'inicializar orientacao
res = VBS_PrpExe("")                               'preparar
res = VBS_PrpAsp(pagOri$)                          'preparar pagina
end sub


'=============================================================================
'- [DOC.COM] - Funcoes comuns do documento -----------------------------------
'=============================================================================
Sub DocCom_PrpVarIndGrp 'preparar valores para grupo de indicadores
vPe2  = vAno                                                  'periodo final
vPe1  = vPe2 - 1                                              'periodo inicial

vIn1$ = "[IDE=DocVto.V][IND=DocVto][ENT.T=VND]    [ENT.C=" + vEntCod$ + "]"     'indicador de valor (corrente)
vIn2$ = "[IDE=DocVto.R][IND=DocVto][ENT.T=VND#RNK][ENT.C=" + vEntCod$ + "]"     'indicador de ranking
vIn3$ = "[IDE=ComTot.V][IND=ComTot][ENT.T=VND]    [ENT.C=" + vEntCod$ + "]"     'indicador de comissao total
'vIn4$ = "[IDE=ComRec.V][IND=ComRec][ENT.T=VND]    [ENT.C=" + vEntCod$ + "]"     'indicador de comissao dos documentos
vIn4$ = "[IDE=ComRec.V][IND=ComDoc][ENT.T=VND]    [ENT.C=" + vEntCod$ + "]"     'indicador de comissao dos documentos

res = BscGrpIni("")                                'inicializar grupo de indicadores
res = BscGrpPerReg(vPe1, vPe2)                     'registar periodo
res = BscGrpPerCon("N")                            'consultar numero de periodos

res = BscGrpIndReg(vIn1$)                          'registar indicador
res = BscGrpIndReg(vIn2$)                          'registar indicador
res = BscGrpIndReg(vIn3$)                          'registar indicador
res = BscGrpIndReg(vIn4$)                          'registar indicador

res = BscGrpCalc("")                               'calcular grupo de indicadores
call DocCom_PrpVarIndGrpPer                        'preparar valores para grupo de indicadores/periodo

'msgbox "","IND/GRP",vPe2
end sub


Sub DocCom_PrpVarIndGrpPer 'preparar valores para grupo de indicadores/periodo
'msgbox "","GRP/PER",vAno
res     = BscGrpIndUsa(2, vAno)                    'activar indicador
vRnk    = BscDocIndCon(perUsa, "PV")               'valor realizado - ranking
'msgbox "","GRP/RNK",vRnk

res     = BscGrpIndUsa(3, vAno)                    'activar indicador
vCmvTot = BscDocIndCon(perUsa, "PV")               'valor de comisao total

res     = BscGrpIndUsa(4, vAno)                    'activar indicador
vCmvDoc = BscDocIndCon(perUsa, "PV")               'valor de comisao dos documentos

res     = BscGrpIndUsa(1, vAno)                    'activar indicador
end sub


Sub Com_Gra_PagIni 'inicializar pagina
'msgbox "","COM/GRA","PAG - INI"

comCabTit$ = lstTit$                               'titulo

call Com_Grf_Cab                                   'listar cabecalho
call Com_Gra_Env                                   'listar envolvente

DocPagNum = DocPagNum + 1                          'contar pagina
call Com_Grf_NpgDoc                                'numero de pagina

vCntLin = 0                                        'limpar contador de linhas
call DocLinPos                                     'posicionar linha
end sub


'=============================================================================
'- [ENT] - Listagem de entidades ---------------------------------------------
'=============================================================================
Sub Ent_DocIni 'inicializar
'msgbox "","IMG.DBA",imgDba$

res = VBS_OpcReg("IMG.DBA", imgDba$)               'registar directorio de imagens
res = VBS_BscPrpOpc("")                            'preparar opcoes

'call DocOri                                        'inicializar orientacao
call DocOri_Frc                                    'inicializar orientacao/forcar

'diversos
pagTip$ = ""                                       'tipo de pagina
'tmp = CntLin("FRC", 0)                             'limpar contador de linhas (MM)
end sub


Sub x1_Ent_Cab 'cabecalho
'call DocOri                                        'inicializar orientacao
'call Com_Grf_Cab                                   'listar cabecalho
call Com_Gra_PagIni 'inicializar pagina
end sub


Sub z_Ent_Cab 'cabecalho
msgbox "","ENT - CAB (A)",Doc_CntLin

call Com_Grf_Cab                                   'listar cabecalho
'msgbox "","ENT - CAB (B)",Doc_CntLin
'tmp = CntLin("FRC", 0)                             'limpar contador de linhas (MM)

'   res = VBS_DpgFx("PAG")                          'executar funcao

msgbox "","ENT - CAB (X)",Doc_CntLin
end sub


Sub Ent_Cab 'cabecalho
'msgbox "","ENT - PAG",Doc_CntLin
call Com_Prp_Per                                   'preparar periodo/data

tpeCod$    = VarCom$("TPE_COD")                    'tipo de entidade - codigo
tpeDes$    = VarCom$("TPE_DES")                    'tipo de entidade - descricao
indDes$    = VarCom$("IND_DES")                    'indicador - descricao

comCabTit$ = tpeDes$ + " - " + indDes$             'titulo - Zona DOC
call Com_Grf_Cab                                   'listar cabecalho
res = VBS_DocRegOpc("ANO", vAno)                   'registar ano do documento

'msgbox "","ENT - PAG",Doc_CntLin

'call Com_Dbg_Zon                                   '#DBG# - envolvente de zonas

if pagTip$ = "RES" then                            'pagina tipo resumo ?
   res = VBS_DpgFx("PAG")                          'executar funcao
   'call Res_Grp                                    'linha - grupo
end if

if pagTip$ = "RES.GRA" then                        'pagina tipo resumo/grafico ?
   res = VBS_DpgFx("PAG")                          'executar funcao
   'tmp = CntLin("FRC", 2)                          'contar linhas (MM)
end if
'tmp = CntLin("FRC", 2)                             'contar linhas (MM)

'diversos
vEntTip$ = VarCom$("ENT_TIP")                      'tipo da entidade
vEntCod$ = VarCom$("ENT_COD")                      'codigo da entidade

vIndUsa$ = VarCom$("IND_USA")                      'indicador a usar

'tmp$=vEntTip$ + " - " + vEntCod$
'msgbox "",vIndUsa$,tmp$

res = BscDocPrpEnt(vEntTip$, vEntCod$)             'preparar entidade
res = BscDocIndPrp(vIndUsa$)                       'preparar indicador

'dados
anoUsa  = vAno                                     'ano a usar
perUsa  = vMes                                     'usar periodo corrente
res = BscDocPrpPer(anoUsa)                         'preparar periodo
end sub


Sub Ent_Fim 'terminar
if pagTip$ = "RES" then                            'pagina tipo resumo ?
   py2Ajt = resDimLi                               'ajuste da posicao Y2
   call ResSup_Env                                 'listar envolvente
end if

call Com_Grf_Fim                                   'listar grafico
end sub


Sub Ent_Lin 'linha - indefinida
call PrpVar_Lin                                    'preparar variaveis para linha

'dados da linha indefinida
uLinXxxTip$   = VarCom$("LIN_TIP")                 'tipo
uLinXxxDes$   = VarCom$("LIN_DES")                 'descricao
uLinXxxAbv$   = VarCom$("LIN_ABV")                 'abreviatura
end sub


Sub Ent_LinPag 'linha - pagina
tmp = CntLin("INC", 1)                         'contar linhas (MM)
tmp = CntLin("FRC", 0)                             'contar linhas (MM)


call PrpVar_Lin                                    'preparar variaveis para linha

'dados da linha
uLinPagDes$   = VarCom$("PAG_DES")                 'descricao
uLinPagAbv$   = VarCom$("PAG_ABV")                 'abreviatura
uLinPagAsp$   = VarCom$("PAG_ASP")                 'aspecto

'executar
res = VBS_DpgIni(uLinPagAsp$)                      'inicializar tipo de pagina
res = VBS_DpgFx("PAG")                             'executar funcao
end sub


Sub Ent_LinGrp 'linha - grupo
call PrpVar_Lin                                    'preparar variaveis para linha

dLin = 10                                          'dimensao da linha
tmp = CntLin("MIN", dLin)                          'minimo de linhas (MM)

'dados da linha
uLinGrpDes$   = VarCom$("GRP_DES")                 'descricao
uLinGrpAbv$   = VarCom$("GRP_ABV")                 'abreviatura
uLinGrpAsp$   = VarCom$("GRP_ASP")                 'aspecto

'executar
res = VBS_DpgFx("GRP")                             'executar funcao
end sub


Sub Ent_LinInd 'linha - indicador
call PrpVar_Lin                                    'preparar variaveis para linha

'dados da linha
uLinIndDes$   = VarCom$("IND_DES")                 'descricao
uLinIndAbv$   = VarCom$("IND_ABV")                 'abreviatura
uLinIndUsa$   = VarCom$("IND_USA")                 'indicador

'executar
res = VBS_DpgFx("IND")                             'executar funcao
end sub


Sub Ent_LinSbt 'linha - subtotal
call PrpVar_Lin                                    'preparar variaveis para linha

'dados da linha
uLinSbtDes$   = VarCom$("SBT_DES")                 'descricao
uLinSbtAbv$   = VarCom$("SBT_ABV")                 'abreviatura
uLinSbtAsp$   = VarCom$("SBT_ASP")                 'aspecto

'executar
res = VBS_DpgFx("SBT")                             'executar funcao
end sub


Sub Ent_LinTot 'linha - total
call PrpVar_Lin                                    'preparar variaveis para linha

'dados da linha
uLinTotDes$   = VarCom$("TOT_DES")                 'descricao
uLinTotAbv$   = VarCom$("TOT_ABV")                 'abreviatura
uLinTotAsp$   = VarCom$("TOT_ASP")                 'aspecto

'executar
res = VBS_DpgFx("TOT")                             'executar funcao
end sub


'==============================================================================
'- [RES] - Resumo -------------------------------------------------------------
'==============================================================================
Sub Res_Pag 'linha - pagina
'msgbox "","RES","PAG"
'msgbox "","RES - PAG",Doc_CntLin

res = VBS_PagRes_ZonPrp("")                        'preparar
res = VBS_PagRes_GraIni("")                        'inicializar grafico

pagTip$ = "RES"                                    'pagina tipo resumo
resDimLi =  5.0                                    'altura da linha de resumo

'listar
call DocLinPos                                     'posicionar linha

ide$ = uLinPagDes$                                 'identificacao

dyIde = VBS_IdeZon("P", ide$)                      'identificar pagina
tmp = CntLin("INC", dyIde)                         'contar linhas (MM)
linDb = dyIde                                      'linhas - dimensao base

'msgbox "","RES - PAG/1",Doc_CntLin
'tmp = CntLin("FRC", 2)                             'contar linhas (MM)
'msgbox "","RES - PAG/2",Doc_CntLin
end sub


Sub x_Res_Pag 'linha - pagina
'msgbox "","RES","PAG"
'msgbox "","RES - PAG",Doc_CntLin

res = VBS_PagRes_ZonPrp("")                        'preparar
res = VBS_PagRes_GraIni("")                        'inicializar grafico

pagTip$ = "RES"                                    'pagina tipo resumo
resDimLi =  5.0                                    'altura da linha de resumo

'listar
call DocLinPos                                     'posicionar linha

ide$ = uLinPagDes$                                 'identificacao

dyIde = VBS_IdeZon("P", ide$)                      'identificar pagina
tmp = CntLin("INC", dyIde)                         'contar linhas (MM)
linDb = dyIde                                      'linhas - dimensao base

'msgbox "","RES - PAG/1",Doc_CntLin
'tmp = CntLin("FRC", 2)                             'contar linhas (MM)
'msgbox "","RES - PAG/2",Doc_CntLin
end sub


Sub Res_Grp 'linha - grupo
'msgbox "","RES","GRP"

'tmp = CntLin("FRC", 2)                             'contar linhas (MM)
call DocLinPos                                     'posicionar linha
resY1 = linPos                                     'inicio da zona de resumo

indCnt = 0                                         'contador de indicadores
dyCab = VBS_PagRes_LstCab("")                      'listar cabecalho

'listar
tmp = CntLin("INC", dyCab)                         'contar linhas (MM)
end sub


Sub Res_Ind 'linha - indicador
anoUsa  = vAno                                     'ano a usar
perUsa  = vMes                                     'usar periodo corrente

vEntTip$ = VarCom$("ENT_TIP")                      'tipo da entidade
vEntCod$ = VarCom$("ENT_COD")                      'codigo da entidade
vEntIde$ = VarCom$("ENT_DES")                      'descricao
vEntAbv$ = VarCom$("ENT_ABV")                      'descricao abreviada

vIndUsa$ = VarCom$("IND_USA")                      'indicador a usar
vIndDes$ = vEntCod$ + " - " + vEntIde$             'descricao

'msgbox "","RES/IND",vIndUsa$

'dados
res = BscDocPrpEnt(vEntTip$, vEntCod$)             'preparar entidade
res = BscDocIndPrp(vIndUsa$)                       'preparar indicador
res = BscDocPrpPer(anoUsa)                         'preparar periodo


'valores
call DocCom_PrpVarIndGrp                           'preparar valores para grupo de indicadores
call Com_Var_IndPerExe                             'preparar valores para indicador/periodo
call Com_Var_DsvPer                                'preparar valores para desvio do periodo
call Com_Var_Cmv                                   'preparar valores para comissao de venda

'res      = BscClaPonPrp("OBJ.PON", pecPon)         'preparar classificacao para pontos
'pecCla$  = BscClaPonCon$("RC")                     'resumo de classificcao

pmaEvo = BscDocIndCon(perUsa, "EVO-PMA.PV")

'listar
dLin = resDimLi                                    'dimensao da linha
call DocLinPos                                     'posicionar linha

indCnt = indCnt + 1                                'contar indicador
nli = indCnt                                       'numero da linha

'msgbox "","PON",pecPon

res = VBS_PagRes_RegVco(01, vIndDes$)              'registar valor da coluna 1

res = VBS_PagRes_RegVco(02, cmvTot)                'registar valor da coluna 2
res = VBS_PagRes_RegVco(03, cmvDoc)                'registar valor da coluna 3
res = VBS_PagRes_RegVco(04, cmvPco)                'registar valor da coluna 4

res = VBS_PagRes_RegVco(05, pmaVlu)                'registar valor da coluna 5
res = VBS_PagRes_RegVco(06, dsvPma$)               'registar valor da coluna 6
res = VBS_PagRes_RegVco(07, pmaEvo)                'registar valor da coluna 7

res = VBS_PagRes_RegVco(08, pecObj)                'registar valor da coluna 8
res = VBS_PagRes_RegVco(09, pecVlu)                'registar valor da coluna 9

'res = VBS_PagRes_RegVco(10, pecPon)                'registar valor da coluna 10
res = VBS_PagRes_RegVco(10, pecCla$)               'registar valor da coluna 10

res = VBS_PagRes_RegVco(11, pecPon)                'registar valor da coluna 11
res = VBS_PagRes_RegVco(12, vRnk)                  'registar valor da coluna 12

res = VBS_PagRes_RegOpc("LIN.DIM.Y", dLin)         'registar valor para opcao
res = VBS_PagRes_LstLin(nli, 1)                    'listar linha

'call DocLinPos                                     'posicionar linha
tmp = CntLin("INC", dLin)                          'contar linhas (MM)

'- grafico -
vMax = 5                                           'numero de maximo
usa = 1                                             'assume usar
if vRnk > vMax then                                 'ranking invalido ?
   usa = 0                                          'nao usar
end if
if vRnk < 1 then                                    'ranking invalido ?
   usa = 0                                          'nao usar
end if

'msgbox "",vEntIde$,usa

if usa = 1 then                                    'juntar serie a grafico ?
    res = VBS_PagRes_GraSer(anoUsa, vEntIde$)      'juntar serie
end if
end sub


Sub Res_Sbt 'linha - subtotal
'nada a executar
end sub


Sub Res_Tot 'linha - total
dLin =  5.0                                        'dimensao da linha

'listar
call DocLinPos                                     'posicionar linha
call ResSup_Env                                    'listar envolvente


'- grafico -
pagTip$ = "RES.GRA"                                'tipo resumo/grafico ?

'vRes = CntDocCon("LDI")                            'linhas disponiveis
'msgbox "","LIN/DIS",vRes

dMin = 70 + 5.0                                    'espaco minimo
tmp = CntLin("MIN", dMin)                          'minimo de linhas (MM)
tmp = CntLin("INC", -10)                           'contar linhas (MM)
call DocLinPos                                     'posicionar linha
res = VBS_PagRes_GraLst("")                        'listar grafico

'terminar
call Com_PagFim                                    'forcar fim de pagina

pagTip$ = "IND"                                    'pagina tipo individual
end sub


'------------------------------------------------------------------------------
'- SUP - Funcoes de suporte ---------------------------------------------------
'------------------------------------------------------------------------------
Sub ResSup_Env 'listar envolvente
'call DocLinPos                                     'posicionar linha
call DocLinPba                                     'posicionar linha base

dy  = linDim - linDb                               'altura
py1 = yCab1 + linDb                                'posicao Y1
py2 = py1 + dy + 0.5                               'posicao Y2

py2 = py2 + py2Ajt                                 'ajustar posicao Y2

px1 = pagX1                                        'posicao X1
px2 = pagX2                                        'posicao X2

'msgbox "",Doc_CntLin,linDim

res = VBS_ZonEnv("C", px1, py1, px2, py2)          'envolvente de zona
py2Ajt = 0                                         'anular ajuste da posicao Y2
end sub


'==============================================================================
'- [IND] - Individual ---------------------------------------------------------
'==============================================================================
Sub Ind_Pag 'linha - pagina
res = VBS_PagInd_ZonPrp("")                        'preparar

pagTip$ = "IND"                                    'pagina tipo individual

vEntTip$ = VarCom$("ENT_TIP")                      'tipo da entidade
vEntCod$ = VarCom$("ENT_COD")                      'codigo da entidade
vEntIde$ = VarCom$("ENT_DES")                      'descricao

vIndDes$ = vEntCod$ + " - " + vEntIde$             'descricao

'listar
call DocLinPos                                     'posicionar linha

ide$ = vIndDes$                                    'identificacao
dyIde = VBS_IdeZon("P", ide$)                      'identificar pagina
tmp = CntLin("INC", dyIde)                         'contar linhas (MM)
linDb = dyIde                                      'linhas - dimensao base
'- (52) ------------------------------------------>'Comentario

acmPon = 0                                         'acumulador de pontos

'grafico
res = VBS_PagInd_GraIni("")                        'inicializar grafico
end sub


Sub Ind_Grp 'linha - grupo
indCnt = 0                                         'contador de indicadores

'listar
'tmp = CntLin("MIN", 10)                           'minimo de linhas (MM)
call DocLinPos                                     'posicionar linha
resY1 = linPos                                     'inicio da zona de resumo

'listar
anoUsa  = vAno                                     'ano a usar
perUsa  = vMes                                     'usar periodo corrente
res = BscDocPrpPer(anoUsa)                         'preparar periodo

vCla$ = BscDocIndCon$(perUsa, "USA.CLA")           'modo de classificacao

pmaIde$ = BscDocIndCon$(perUsa, "IDP_PMA.DES")     'identificacao do periodo
paaIde$ = BscDocIndCon$(perUsa, "IDP_PAA.DES")     'identificacao do periodo
pecIde$ = BscDocIndCon$(perUsa, "IDP_PEC.DES")     'identificacao do periodo

'listar
res = VBS_PagInd_Prp("")                           'preparar
res = VBS_PagInd_RegOpc("ImgDba", imgDba$)         'registar directorio de imagens
dyCab = VBS_PagInd_LstCab("")                      'listar cabecalho

res = VBS_AspVtx("N")                              'aspecto para texto

tmp = CntLin("INC", dyCab)                         'contar linhas (MM)
acmDy = acmDy + dyCab                              'acumulador de dimensao Y
end sub


Sub Ind_Ind 'linha - indicador
vIndUsa$ = VarCom$("ENT_IND")                      'indicador a usar
res = BscDocIndPrp(vIndUsa$)                       'preparar indicador

minPon = VarCom$("ENT_OBJ.ACM")                    'objectivo

vEntTip$ = VarCom$("ENT_TIP")                      'tipo da entidade
vEntCod$ = VarCom$("ENT_COD")                      'codigo da entidade

res = BscDocPrpEnt(vEntTip$, vEntCod$)             'preparar entidade
res = BscDocIndPrp(vIndUsa$)                       'preparar indicador
call DocCom_PrpVarIndGrp                           'preparar valores para grupo de indicadores

indCnt = indCnt + 1                                'contar indicador
dLin = 10                                          'dimensao da linha

'dados da linha
uLinIndDes$   = VarCom$("IND_DES")                 'descricao
uLinIndAbv$   = VarCom$("IND_ABV")                 'abreviatura
uLinIndUsa$   = VarCom$("IND_USA")                 'indicador

res = BscDocPrpEnt("", "")                         'preparar entidade

'dados
anoUsa  = vAno                                     'ano a usar
res = BscDocPrpPer(anoUsa)                         'preparar periodo

for i = 1 to 12
nli     = i                                        'numero da linha
perUsa  = i                                        'usar periodo corrente

call DocCom_PrpVarIndGrpPer                        'preparar valores para grupo de indicadores/periodo
call Com_Var_IndPerExe                             'preparar valores para inicador/periodo
call Com_Var_DsvPer                                'preparar valores para desvio do periodo
call Com_Var_Cmv                                   'preparar valores para comissao de venda

'listar
call DocLinPos                                     'posicionar linha

cmpAaDvp = BscDsv("%S", indRea, indVmePer)         'ano anterior - desvio/valor
cmpAaDvv = BscDsv("%S", indRea, indVmePer)         'ano anterior - desvio/%
cmpAaEvo = BscDsv("E",  indRea, indVmePer)         'ano anterior - evolucao

cmpPaDvp = BscDsv("%S", indAcm, indVmeAcm)         'periodo anterior - desvio/valor
cmpPaDvv = BscDsv("%S", indRea, indVmePer)         'periodo anterior - desvio/%
cmpPaEvo = BscDsv("E",  indAcm, indVmeAcm)         'periodo anterior - evolucao

asp$  = "V|(%)"                                    'aspecto
vc03$ = VBS_FrmDsv$(asp$, paaDvv, paaDvp)          'desvio a usar
vc06$ = VBS_FrmDsv$(asp$, pmaDvv, pmaDvp)          'desvio a usar

asp$  = "V"                                        'aspecto
vc03$ = VBS_FrmDsv$(asp$, paaDvv, paaDvp)          'desvio a usar
vc06$ = VBS_FrmDsv$(asp$, pmaDvv, pmaDvp)          'desvio a usar

res = VBS_PagInd_RegOpc("TMS.PC", pecTms$)         'registar time stamp - periodo corrente
res = VBS_PagInd_RegOpc("TMS.PA", pmaTms$)         'registar time stamp - periodo anterior
res = VBS_PagInd_RegOpc("TMS.AA", paaTms$)         'registar time stamp - ano anterior
linV = 1                                           'assume linha com valores
if pecTms$ = "" then                               'periodo nao usado ?
   linV = 0                                        'usar linha sem valores
end if

'listar
res = VBS_PagInd_RegVco(01, perIde$)               'registar valor da coluna 1
res = VBS_PagInd_RegVco(02, paaVlu)                'registar valor da coluna 2
res = VBS_PagInd_RegVco(03, vc03$)                 'registar valor da coluna 3
res = VBS_PagInd_RegVco(04, paaEvo)                'registar valor da coluna 4
res = VBS_PagInd_RegVco(05, pmaVlu)                'registar valor da coluna 5
res = VBS_PagInd_RegVco(06, vc06$)                 'registar valor da coluna 6
res = VBS_PagInd_RegVco(07, pmaEvo)                'registar valor da coluna 7

res = VBS_PagInd_RegVco(08, cmvTot)                'registar valor da coluna 8
res = VBS_PagInd_RegVco(09, cmvDoc)                'registar valor da coluna 9
res = VBS_PagInd_RegVco(10, cmvPco)                'registar valor da coluna 10

res = VBS_PagInd_RegVco(11, pecObj)                'registar valor da coluna 11
res = VBS_PagInd_RegVco(12, pecVlu)                'registar valor da coluna 12
res = VBS_PagInd_RegVco(13, pecPon)                'registar valor da coluna 13
res = VBS_PagInd_RegVco(14, pecPon)                'registar valor da coluna 14

dLin = 5.0                                         'dimensao da linha
res = VBS_PagInd_RegOpc("LIN.DIM.Y", dLin)         'registar valor para opcao
res = VBS_PagInd_LstLin(nli, linV)                 'listar linha

tmp = CntLin("INC", dLin)                          'contar linhas (MM)
acmDy = acmDy + dLin                               'acumulador de dimensao Y
next

'- grafico -
res = VBS_PagInd_GraSer(anoUsa, "OBJ")             'grafico - objectivos do ano
res = VBS_PagInd_GraSer(anoUsa, "ANT")             'grafico - nova serie - ano anterior
res = VBS_PagInd_GraSer(anoUsa, "ANO")             'grafico - nova serie - ano corrente
end sub


Sub Ind_Sbt 'linha - subtotal
'nada a executar
end sub


Sub Ind_Tot 'linha - total
dLin =  5.0                                        'dimensao da linha
'tmp = CntLin("MIN", dLin)                         'minimo de linhas (MM)

'listar
call DocLinPos                                     'posicionar linha

dyVto = VBS_PagInd_LstVto(acmPon)                  'listar total
tmp = CntLin("INC", dyVto)                         'contar linhas (MM)

call DocLinPos                                     'posicionar linha

'envolvente
call DocLinPba                                     'posicionar linha

dy  = linDim - linDb                               'altura
py1 = yCab1 + linDb                                'posicao Y1
py2 = py1 + dy + 0.5                               'posicao Y2

px1 = pagX1                                        'posicao X1
px2 = pagX2                                        'posicao X2

res = VBS_ZonEnv("C", px1, py1, px2, py2)          'envolvente de zona

'dados
tmp = CntLin("INC", 2)                             'contar linhas (MM)
call DocLinPos                                     'posicionar linha

res = VBS_DimZon(180, 0, "PAG.X2", 0)              'dimensao de zona
res = VBS_ZonResPon("ZON", acmPon, minPon)         'zona de resumo de pontos

'- grafico -
res = VBS_PagInd_GraLst("")                        'listar grafico

'terminar
call IndAdi                                        'informacao adicional
call Com_PagFim                                    'forcar fim de pagina
end sub


'------------------------------------------------------------------------------
'- SUP - Funcoes de suporte ---------------------------------------------------
'------------------------------------------------------------------------------
Sub IndAdi 'informacao adicional
'call DocLinPos                                     'posicionar linha
'- (52) ------------------------------------------>'Comentario
perUsa  = vMes                                     'usar periodo corrente
'call DocCom_PrpVarRnkVme                           'preparar valores do ranking medio
'call DocCom_PrpVarRnkPer                           'preparar valores do ranking para periodo

call Com_Var_RnkPer                                'preparar valores do ranking para periodo corrente
call Com_Var_RnkVme                                'preparar valores do ranking medio

'listar
dx =  80.0                                         'dimensao X
dY =  30.0                                         'dimensao Y

px = pbaX + pagX2 - dx - 1.0                       'posicao base X
py = 150                                           'posicao base Y
PrWIN AJT_B, px, py                                'activar posicao base

x1 =  0.0                                          'posicao X1
y1 =  0.0                                          'posicao Y
x2 = dx                                            'posicao X2
y2 = dy                                            'posicao Y2

PrWIN GR_CX, x1, y1, x2, y2, 2                     'envolvente da zona
PrWIN GR_CX, x1, 10, x2, 10, 2                     'linha de separacao

ide$    = "Informação adicional"                   'identificacao da zona

PrWIN FON, 12, 1                                   'activar fonte
PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_AHV, 5, x1, y1, x2, 10,ide$               'listar identificacao
PrWin FON, "BOLD-"                                 'desactivar bold
PrWIN FON, 10, 1                                   'activar fonte

pxI =  1.0                                         'posicao X - identificacao
pxV = 40.0                                         'posicao X - valor

pyV  = 11                                          'posicao Y do valor
ide$ = "Posição no Ranking: "                      'identificacao do valor
PrWIN TX_N, pxI, pyV,ide$                          'listar identificacao
PrWIN TX_N, pxV, pyV,rnkPecVmx$                    'listar valor

pyV  = pyV + 5                                     'posicao Y
ide$ = "Ranking Médio do ano: "                    'identificacao do valor
PrWIN TX_N, pxI, pyV,ide$                          'listar identificacao
PrWIN TX_N, pxV, pyV,rnkAnoVmx$                    'listar informacao

pyV  = pyV + 5                                     'posicao Y
ide$ = "Ranking Médio ano ant.:"                   'identificacao do valor
PrWIN TX_N, pxI, pyV,ide$                          'listar identificacao
PrWIN TX_N, pxV, pyV,rnkAnaVmx$                    'listar informacao
end sub

##


'==============================================================================
#VBS - VB Script
'==============================================================================
'- +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
'- (13) --->'Comentario
'- (25) --------------->'Comentario
'- (28) ------------------>'Comentario
'- (40) ------------------------------>'Comentario
'- (43) --------------------------------->'Comentario
'- (46) ------------------------------------>'Comentario
'- (49) --------------------------------------->'Comentario
'- (52) ------------------------------------------>'Comentario
'- (55) --------------------------------------------->'Comentario
'- (58) ------------------------------------------------>'Comentario
'- (61) --------------------------------------------------->'Comentario


'- variaveis globais ----------------------------------------------------------
Dim obRes                                          'acesso a classe
Dim obZon                                          'acesso a classe

Dim obGra                                          'acesso a classe


'------------------------------------------------------------------------------
'#SUP - Funcoes de suporte
'------------------------------------------------------------------------------
Function BscPrpOpc(arg) 'preparar opcoes
'arg        - argumento (nao usado)

with DocAsp
'- (52) ------------------------------------------>'Comentario
res = .OpcReg("FxConInd", "BscDocIndCon")          'registar opcao
end with

'terminar
res = 1                                            'resultado
BscPrpOpc = res                                    'devolver resultado
end function


'==============================================================================
'= RES = Pagina de resumo =====================================================
'==============================================================================
'------------------------------------------------------------------------------
'#PRP - Preparar/Terminar
'------------------------------------------------------------------------------
Function PagRes_ZonPrp(arg) 'preparar
'arg        - argumento (nao usado)

'msgbox "PagRes - PRP"

Idc01 = "Vendedor"

Idc02 = "Com. Tot."
Idc03 = "Com. Usa"
Idc04 = "%Com"

Idc05 = "Valor"
Idc06 = "Desvio"
Idc07 = "Ev"

Idc08 = "Objectivo"
Idc09 = "Valor"
Idc10 = "Class."
Idc11 = "Pon"
Idc12 = "Rnk"

Idc0204 = "Comissão de Venda"
Idc0507 = "Periodo Anterior"
Idc0812 = "Periodo"

dimV = 24.0                                        'dimensao para valor
dimD = 23.0                                        'dimensao para desvio
dimE =  7.0                                        'dimensao para evolucao
dimC = 12.0                                        'dimensao para classificacao

res = ZonPrp("")                            'preparar zona
with obzon
vOri = .Ori_Prp("L")                               'inicializar orientacao

'opcoes
'res = .Zon_RegOpc("XXX", "")                      'registar opcao

'colunas
'asp = "B-10"                                                'aspecto

'- (61) --------------------------------------------------->'Comentario
res = .Zon_RegNco(12)                                       'registar numero de colunas
res = .Zon_RegCoPrp("-")                                    'registar coluna - preparar

res = .Zon_RegCoSeg("3", dimC, Idc12, "T", "9.0")           'registar coluna - por dimensao
res = .Zon_RegCoSeg("3", dimC, Idc11, "T", "9.2")           'registar coluna - por dimensao

'res = .Zon_RegCoSeg("3", dimC, Idc10, "IMG.PON", "")        'registar coluna - por dimensao
'res = .Zon_RegCoSeg("3", dimC, Idc10, "IMG.CLT", "")        'registar coluna - por dimensao
res = .Zon_RegCoSeg("3", dimC, Idc10, "IMG.PO2", "")        'registar coluna - por dimensao

res = .Zon_RegCoSeg("3", dimV, Idc09, "T", 10.2)            'registar coluna - por dimensao
res = .Zon_RegCoSeg("3", dimV, Idc08, "T", 10.2)            'registar coluna - por dimensao

res = .Zon_RegCoSeg("3", dimE, Idc07, "IMG.EVO", "")        'registar coluna - por dimensao
res = .Zon_RegCoSeg("3", dimD, Idc06, "", "")               'registar coluna - por dimensao
res = .Zon_RegCoSeg("3", dimV, Idc05, "T", 10.2)            'registar coluna - por dimensao

res = .Zon_RegCoSeg("3", dimV, Idc04, "%T", 10.2)           'registar coluna - por dimensao
res = .Zon_RegCoSeg("3", dimV, Idc03, "T", 10.2)            'registar coluna - por dimensao
res = .Zon_RegCoSeg("3", dimV, Idc02, "T", 10.2)            'registar coluna - por dimensao

res = .Zon_RegCoSeg("1:3", 0   , Idc01, "", "")             'registar coluna - por dimensao

'zona de colunas
'- (52) ------------------------------------------>'Comentario
res = .Zon_RegZc("1:2", 2,  4, Idc0204)            'registar zona de colunas
res = .Zon_RegZc("1:2", 5,  7, Idc0507)            'registar zona de colunas
res = .Zon_RegZc("1:2", 8, 12, Idc0812)            'registar zona de colunas
end with

'terminar
res = 1                                            'resultado
PagRes_ZonPrp = res                                'devolver resultado
end function


Function PagRes_RegOpc(ide, vop) 'registar valor para opcao
'ide        - identificador
'vop        - valor

with obzon
res = .Zon_RegOpc(ide, vop)                        'registar opcao
end with

'terminar
PagRes_RegOpc = res                                'devolver resultado
end function


Function PagRes_RegVco(co, vco) 'registar valor para columa
'co         - coluna
'vco        - valor para coluna

with obzon
'- (52) ------------------------------------------>'Comentario
res = .Zon_RegVco(co, vco)                         'registar valor de coluna
end with

'if co = 11 then
'   tmp = "RES/CO/11:" & res
'   msgbox tmp
'end if

'terminar
PagRes_RegVco = res                                'devolver resultado
end function


'------------------------------------------------------------------------------
'#LST - Funcoes para listar
'------------------------------------------------------------------------------
Function PagRes_LstCab(arg) 'cabecalho
'arg        - argumento (nao usado)

'msgbox "Listar CAB"

with obzon
'- (52) ------------------------------------------>'Comentario
res = .LstCab("")                                  'listar
end with

'terminar
PagRes_LstCab = res                                'devolver resultado
end function


Function PagRes_LstLin(nli, tip) 'linha
'nli        - numero da linha
'tip        - tipo da linha

with obzon
'- (52) ------------------------------------------>'Comentario
if tip = 1 then                                    'linha com valores ?
   res = .LstLin(nli)                              'listar
else
   res = .LstZli(nli)                              'listar
   res = .LstVli(nli, 1, "")                       'listar periodo
end if
end with

'terminar
PagRes_LstLin = res                                'devolver resultado
end function


Function PagRes_LstVto(vto) 'valor total
'vto        - valor total

dyLin = 5                                          'dimensao da linha

'listar
ide1 = "Total"                                    'identificacao
ide2 = FrmNum("T" , 10.2, vto)                    'pontos

'asp = "B-10"
'res = ZonFun(asp, "C", c13, py1, c10, py2, ide1)  'zona com fundo
'res = ZonFun(asp, "C", c14, py1, cFi, py2, ide2)  'zona com fundo
'res = AspVtx("N-10")                              'aspecto para texto

'with obRes
with obzon
asp = "B-10"
'- (52) ------------------------------------------>'Comentario
res = .Zon_RegOpc("LIN.DIM.Y", dyLin)              'registar opcao
res = .LstVco(asp, 13, ide1)                       'listar valor de coluna
res = .LstVco(asp, 14, ide2)                       'listar valor de coluna
end with
res = AspVtx("N-10")                               'aspecto para texto

'terminar
'- (52) ------------------------------------------>'Comentario
res = dyLin                                        'resultado
PagRes_LstVto = res                                'devolver resultado
end function


'------------------------------------------------------------------------------
'#GRA - Funcoes para grafico
'------------------------------------------------------------------------------
Function PagRes_GraIni(arg) 'inicializar grafico
'arg        - argumento (nao usado)

'msgbox "Listar RES/GRA-INI"

tit = "TOP 5"                                      'titulo
rpe = ""                                           'informacao de rodape

res = ZonPrp("GRA")                            'preparar zona
with obGra
.GRA_Ini                                           'inicializar
.GRA_PrpPer "ANO"                                  'preparar periodo

res = .OpcReg("GRA.TIT", tit)                      'registar titulo
res = .OpcReg("GRA.RPE", rpe)                      'registar rodape
end with

'terminar
PagRes_GraIni = res                                'devolver resultado
end function


Function PagRes_GraSer(ano, ide) 'juntar serie
'ano        - ano
'ide        - identificacao

'msgbox "Listar RES/GRA-SER"

with obGra
res = .SerAnoIde(ano, ide)                         'juntar serie
end with

'terminar
PagRes_GraSer = res                                'devolver resultado
end function


Function PagRes_GraLst(arg) 'listar grafico
'arg        - argumento (nao usado)

'msgbox "Listar RES/GRA"

'grafico
dxPix = 1000                                        'dimensao X - pixel
dyPix =  270                                        'dimensao Y - pixel
vOpc = ""                                           'opcoes
'vOpc = "[STK=S][100%=N][3D=N]"                      'opcoes

'envonvente
'dxEnv = pagX2                                       'dimensao X - mm
dxEnv = "PAG.X2"                                    'dimensao X - mm
dyEnv = 70                                          'dimensao Y - mm

'listar
with obGra
'res = .LstZon("COL", dxPix, dyPix, vOpc)           'listar grafico
res = .LstZon("LIN", dxPix, dyPix, vOpc)           'listar grafico
'- (52) ------------------------------------------>'Comentario
res = .LstEnv("", dxEnv, dyEnv)                    'listar envolvente
end with

'terminar
PagRes_GraLst = res                                'devolver resultado
end function


'==============================================================================
'= IND = Pagina individual ====================================================
'==============================================================================
'------------------------------------------------------------------------------
'#PRP - Preparar/Terminar
'------------------------------------------------------------------------------
Function PagInd_ZonPrp(arg) 'preparar
'arg        - argumento (nao usado)

Idc01 = "Periodo"

Idc02 = "Valor"
Idc03 = "Desvio"
Idc04 = "Ev"

Idc05 = "Valor"
Idc06 = "Desvio"
Idc07 = "Ev"

Idc08 = "Com. Tot."
Idc09 = "Com. Usa"
Idc10 = "%Com"

Idc11 = "Objectivo"
Idc12 = "Valor"
Idc13 = "Class."
Idc14 = "Pon"

Idc0204 = "Periodo Homólogo|Ano Anterior"
Idc0507 = "Periodo Anterior"
Idc0810 = "Comissão de Venda"
Idc1114 = "Periodo"

dimV = 24.0                                        'dimensao para valor
dimD = 23.0                                        'dimensao para desvio
dimE =  7.0                                        'dimensao para evolucao
dimC = 12.0                                        'dimensao para classificacao

res = ZonPrp("")                            'preparar zona
with obZon
vOri = .Ori_Prp("L")                               'inicializar orientacao

'opcoes
'res = .Zon_RegOpc("XXX", "")                      'registar opcao

'colunas
'asp = "B-10"                                                'aspecto

'- (61) --------------------------------------------------->'Comentario
res = .Zon_RegNco(14)                                       'registar numero de colunas
res = .Zon_RegCoPrp("-")                                    'registar coluna - preparar
res = .Zon_RegCoSeg("3", dimC, Idc14, "T", "9.2")           'registar coluna - por dimensao
res = .Zon_RegCoSeg("3", dimC, Idc13, "IMG.PON", "")        'registar coluna - por dimensao
res = .Zon_RegCoSeg("3", dimV, Idc12, "T", 10.2)            'registar coluna - por dimensao
res = .Zon_RegCoSeg("3", dimV, Idc11, "T", 10.2)            'registar coluna - por dimensao

res = .Zon_RegCoSeg("3", dimV, Idc10, "T", 10.2)            'registar coluna - por dimensao
res = .Zon_RegCoSeg("3", dimV, Idc09, "T", 10.2)            'registar coluna - por dimensao
res = .Zon_RegCoSeg("3", dimV, Idc08, "T", 10.2)            'registar coluna - por dimensao

res = .Zon_RegCoSeg("3", dimE, Idc07, "IMG.EVO", "")        'registar coluna - por dimensao
res = .Zon_RegCoSeg("3", dimD, Idc06, "", "")               'registar coluna - por dimensao
res = .Zon_RegCoSeg("3", dimV, Idc05, "T", 10.2)            'registar coluna - por dimensao

res = .Zon_RegCoSeg("3", dimE, Idc04, "IMG.EVO", "")        'registar coluna - por dimensao
res = .Zon_RegCoSeg("3", dimD, Idc03, "", "")               'registar coluna - por dimensao
res = .Zon_RegCoSeg("3", dimV, Idc02, "T", 10.2)            'registar coluna - por dimensao

res = .Zon_RegCoSeg("1:3", 0 , Idc01, "", "")               'registar coluna - por dimensao

'zona de colunas
'- (52) ------------------------------------------>'Comentario
res = .Zon_RegZc("1:2", 2,  4, Idc0204)            'registar zona de colunas
res = .Zon_RegZc("1:2", 5,  7, Idc0507)            'registar zona de colunas
res = .Zon_RegZc("1:2", 8, 10, Idc0810)            'registar zona de colunas
res = .Zon_RegZc("1:2",11, 14, Idc1114)            'registar zona de colunas
end with

'terminar
res = 1                                            'resultado
PagInd_ZonPrp = res                                       'devolver resultado
end function


Function PagInd_RegOpc(ide, vop) 'registar valor para opcao
'ide        - identificador
'vop        - valor

with obZon
res = .Zon_RegOpc(ide, vop)                        'registar opcao
end with

'terminar
PagInd_RegOpc = res                                'devolver resultado
end function


Function PagInd_RegVco(co, vco) 'registar valor para columa
'co         - coluna
'vco        - valor para coluna

with obZon
'- (52) ------------------------------------------>'Comentario
res = .Zon_RegVco(co, vco)                         'registar valor de coluna
end with

'terminar
pagInd_RegVco = res                                'devolver resultado
end function


'------------------------------------------------------------------------------
'#LST - Funcoes para listar
'------------------------------------------------------------------------------
Function PagInd_LstCab(arg) 'cabecalho
'arg        - argumento (nao usado)

'msgbox "Listar CAB"

with obZon
'- (52) ------------------------------------------>'Comentario
res = .LstCab("")                                  'listar
end with

'terminar
pagInd_LstCab = res                                'devolver resultado
end function


Function PagInd_LstLin(nli, tip) 'linha
'nli        - numero da linha
'tip        - tipo da linha

with obZon
'- (52) ------------------------------------------>'Comentario
if tip = 1 then                                    'linha com valores ?
   res = .LstLin(nli)                              'listar
else
   res = .LstLinZco("N", nli,  1,  2)              'listar
   res = .LstLinZco("Z", nli,  3, 10)              'listar
   res = .LstLinZco("N", nli, 11, 11)              'listar
   res = .LstLinZco("Z", nli, 12, 14)              'listar
end if
end with

'terminar
pagInd_LstLin = res                                'devolver resultado
end function


Function PagInd_LstVto(vto) 'valor total
'vto        - valor total

dyLin = 5                                          'dimensao da linha

'listar
ide1 = "Total"                                    'identificacao
ide2 = FrmNum("T" , 10.2, vto)                    'pontos

with obZon
asp = "B-10"
'- (52) ------------------------------------------>'Comentario
res = .Zon_RegOpc("LIN.DIM.Y", dyLin)              'registar opcao
res = .LstVco(asp, 13, ide1)                       'listar valor de coluna
res = .LstVco(asp, 14, ide2)                       'listar valor de coluna
end with
res = AspVtx("N-10")                               'aspecto para texto

'terminar
'- (52) ------------------------------------------>'Comentario
res = dyLin                                        'resultado
pagInd_LstVto = res                                'devolver resultado
end function


'------------------------------------------------------------------------------
'#GRA - Funcoes para grafico
'------------------------------------------------------------------------------
Function PagInd_GraIni(arg) 'inicializar grafico
'arg        - argumento (nao usado)

'msgbox "Listar IND/GRA-INI"

tit = ""                                           'titulo
rpe = ""                                           'informacao de rodape

res = ZonPrp("GRA")                            'preparar zona
with obGra
.GRA_Ini                                           'inicializar
.GRA_PrpPer "ANO"                                  'preparar periodo

res = .OpcReg("GRA.TIT", tit)                      'registar titulo
res = .OpcReg("GRA.RPE", rpe)                      'registar rodape
end with

'terminar
PagInd_GraIni = res                                'devolver resultado
end function


Function PagInd_GraSer(ano, tpv) 'juntar serie
'ano        - ano
'tpv        - tipo de valorano

'msgbox "Listar IND/GRA-SER"

with obGra
select case tpv
case "ANO"              'dados do ano corrente
   res = .SerAnoCur(ano)                          'juntar serie

case "ANT"              'dados do ano anterior
   res = .SerAnoAnt(ano)                          'juntar serie

case "OBJ"              'obectivos do ano
   res = .SerAnoObj(ano)                          'juntar serie
end select
end with

'terminar
PagInd_GraSer = res                                'devolver resultado
end function


Function PagInd_GraLst(arg) 'listar grafico
'arg        - argumento (nao usado)

'msgbox "Listar IND/GRA"

'grafico
dxPix =  690                                       'dimensao X - pixel
dyPix =  270                                       'dimensao Y - pixel
vOpc = ""                                          'opcoes

'listar
with obGra
res = .LstZon("LIN", dxPix, dyPix, vOpc)           'listar grafico
'- (52) ------------------------------------------>'Comentario
end with

'terminar
PagInd_GraLst = res                                'devolver resultado
end function

##


'==============================================================================
#INC - Inclusao de funcionalidades
'==============================================================================
Funcoes - BSC/Comum - VBS             =[SIG_LST_DIR.BSC],BscCom_Vbs.inc
Funcoes - BSC/comum - Aspecto         =[SIG_LST_DIR.BSC],BscCom_Asp.inc

Funcoes - DOC/Comum - VBS             =[SIG_LST_DIR.BSC],DocAsp_Vbs.inc
##


