'Nome       : StaAcm.std
'Tipo       : LST
'Data       : 2006/09/25
'Versao     : 2.0a
'Descricao  : Estatistica Acumulada/Resumo

'==============================================================================
'#VER - Modificacoes
'==============================================================================
'- Versao : 2.0a  2006/09/25 -------------------------------------------------
'listagens graficas

'- Versao : 2.0   2006/04/28 -------------------------------------------------
'listagem para EXCEL

'- Versao : 1.2   2003/05/16 -------------------------------------------------
'variaveis com os limites usados na listagem (conta,artigo, vendedor,mes,trim.sem.)

'- Versao : 1.1   2002/12/12 -------------------------------------------------
'Apresentava incorrectamente os valores do mes 10

'- Versao : 1.0   2000/11/27 -------------------------------------------------
'Versao base


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
Tipo de dados              [TipDat]=ACM
##


'==============================================================================
#SQL - Comandos SQL
'==============================================================================
Base de dados           [BD]=EmpFic$("EMP","Cemp,Emp_Dat.mdb")
'Base de dados           [BD]=EmpFic$("EMP","Stc,Stc.mdb")
##


'==============================================================================
'Listagens normais ============================================================
'==============================================================================
'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=Acm_Ano
Nome                       [DocNom]=AcmAno,Resumo anual

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=220
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=Ano_Cab
Listar linhas               [FxLIN]=Ano_Lin; Grp,0; Sbt,0; Sep
Listar fim                  [FxFIM]=Ano_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=Acm_Sem
Nome                       [DocNom]=AcmSem,Semestral

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=Sem_Cab
Listar linhas               [FxLIN]=Sem_Lin; Grp,0; Sbt,0; Sep
Listar fim                  [FxFIM]=Sem_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=Acm_Tri
Nome                       [DocNom]=AcmTri,Trimestral

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=Tri_Cab
Listar linhas               [FxLIN]=Tri_Lin; Grp,0; Sbt,0; Sep
Listar fim                  [FxFIM]=Tri_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=Acm_Mes
Nome                       [DocNom]=AcmMes,Mensal

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=Mes_Cab
Listar linhas               [FxLIN]=Mes_Lin; Grp,0; Sbt,0; Sep
Listar fim                  [FxFIM]=Mes_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=Acm_Ano
Nome                       [DocNom]=MesAno,Mês/Ano

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=MesAno_Cab
Listar linhas               [FxLIN]=MesAno_Lin; Grp,0; Sbt,0; Sep
Listar fim                  [FxFIM]=MesAno_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=Acm_Ano
Nome                       [DocNom]=AcmTan,Total anual

'formato
Saida/Impressora           [DocPrt]=
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=Tan_Cab
Listar linhas               [FxLIN]=Tan_Lin; Grp,0; Sbt,0; Sep
Listar fim                  [FxFIM]=Tan_Fim
##


'==============================================================================
'= Listagens Gráficas =========================================================
'==============================================================================
'==============================================================================
'#DOC - Configuracao do documento
'==============================================================================
'Tipo                       [DocTip]=Acm_Ano
'Nome                       [DocNom]=AcmAno_G,Resumo anual (G)

''formato
''Saida/Impressora           [DocPrt]=PAG_W,
'Saida/Impressora           [DocPrt]=PAG_W,PRV
'Linhas por pagina          [DocLpg]=56
'Colunas por linha          [DocCol]=132
'Formato do papel           [DocPap]=72L
'Ajustar pagina             [DocApg]=0
'Especifico do documento    [DocEsp]=

''funcoes de listagem
'Listar cabecalho            [FxCAB]=AnoG_Cab
'Listar linhas               [FxLIN]=AnoG_Lin; Grp,0; Sbt,0; Sep
'Listar fim                  [FxFIM]=AnoG_Fim
'##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=Acm_Sem
Nome                       [DocNom]=AcmSem_G,Semestral (G)

'formato
Saida/Impressora           [DocPrt]=PAG_W,
Linhas por pagina          [DocLpg]=56
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=SemG_Cab
Listar linhas               [FxLIN]=SemG_Lin,0; Grp,0; Sbt,0; Sep,0
Listar fim                  [FxFIM]=SemG_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=Acm_Tri
Nome                       [DocNom]=AcmTri_G,Trimestral (G)

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=59
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=TriG_Cab
Listar linhas               [FxLIN]=TriG_Lin,0; Grp,0; Sbt,0; Sep,0
Listar fim                  [FxFIM]=TriG_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=Acm_Mes
Nome                       [DocNom]=AcmMes_G,Mensal (G)

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=59
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=MesG_Cab
Listar linhas               [FxLIN]=MesG_Lin,0; Grp,0; Sbt,0; Sep,0
Listar fim                  [FxFIM]=MesG_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=Acm_Ano
Nome                       [DocNom]=MesAno_G,Mês/Ano (G)

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=59
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=MesAnoG_Cab
Listar linhas               [FxLIN]=MesAnoG_Lin,0; Grp,0; Sbt,0; Sep,0
Listar fim                  [FxFIM]=MesAnoG_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=Acm_Ano
Nome                       [DocNom]=AcmTan_G,Total anual (G)

'formato
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=59
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=59L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=

'funcoes de listagem
Listar cabecalho            [FxCAB]=TanG_Cab
Listar linhas               [FxLIN]=TanG_Lin,0; Grp,0; Sbt,0; Sep,0
Listar fim                  [FxFIM]=TanG_Fim
##


'==============================================================================
'Listagens EXCEL (XLS) ========================================================
'==============================================================================
'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=Acm_Tri
Nome                       [DocNom]=AcmTri_XLS,Trimestral (XLS)

'formato
Saida/Impressora           [DocPrt]=NULA
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=

'funcoes de listagem
Base para documento         [FxDOC]=XlsAcmTri
Listar cabecalho            [FxCAB]=XlsAcmTri_Cab
Listar linhas               [FxLIN]=XlsAcmTri_Lin, 0; Grp,0; Sbt,0; Sep,0
Listar fim                  [FxFIM]=XlsAcmTri_Fim

Matriz auxiliar            [DocMat]=StaAcm.xls
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=Acm_Ano
Nome                       [DocNom]=AcmAno_XLS,Anual Discriminada (XLS)

'formato
Saida/Impressora           [DocPrt]=NULA
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=

'funcoes de listagem
Base para documento         [FxDOC]=XlsAcmAno
Listar cabecalho            [FxCAB]=XlsAcmAno_Cab
Listar linhas               [FxLIN]=XlsAcmAno_Lin, 0; Grp,0; Sbt,0; Sep,0
Listar fim                  [FxFIM]=XlsAcmAno_Fim

Matriz auxiliar            [DocMat]=StaAcmG.xls
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
'MemTxt$(1)    - titulo
'MemTxt$(2)    - identificacao da listagem

'limites da listagem
'MemTxt$(5)    - contas
'MemTxt$(6)    - artigos
'MemTxt$(7)    - vendedores
'MemTxt$(8)    - mes
'MemTxt$(9)    - trimestre
'MemTxt$(10)   - semestre

'MemTxt$(11)   - codigo 1
'MemTxt$(12)   - descricao 1
'MemTxt$(13)   - codigo 1 formatado

'MemTxt$(21)   - codigo 2
'MemTxt$(22)   - descricao 2
'MemTxt$(23)   - codigo 2 formatado

'MemTxt$(50)   - identificacao do mes corrente
'MemTxt$(51)   - identificacao do mes 01
'MemTxt$(52)   - identificacao do mes 02
'MemTxt$(53)   - identificacao do mes 03
'MemTxt$(54)   - identificacao do mes 04
'MemTxt$(55)   - identificacao do mes 05
'MemTxt$(56)   - identificacao do mes 06
'MemTxt$(57)   - identificacao do mes 07
'MemTxt$(58)   - identificacao do mes 08
'MemTxt$(59)   - identificacao do mes 09
'MemTxt$(60)   - identificacao do mes 10
'MemTxt$(61)   - identificacao do mes 11
'MemTxt$(62)   - identificacao do mes 12

'MemTxt$(70)   - identificacao do trimestre corrente
'MemTxt$(71)   - identificacao do trimestre 1
'MemTxt$(72)   - identificacao do trimestre 2
'MemTxt$(73)   - identificacao do trimestre 3
'MemTxt$(74)   - identificacao do trimestre 4

'MemTxt$(80)   - identificacao do semestre corrente
'MemTxt$(81)   - identificacao do semestre 1
'MemTxt$(82)   - identificacao do semestre 2

'quantidades por mes
'MemNum(10)    - mes corrente
'MemNum(11)    - mes 01 - Janeiro
'MemNum(12)    - mes 02 - Fevereiro
'MemNum(13)    - mes 03 - Marco
'MemNum(14)    - mes 04 - Abril
'MemNum(15)    - mes 05 - Maio
'MemNum(16)    - mes 06 - Junho
'MemNum(17)    - mes 07 - Julho
'MemNum(18)    - mes 08 - Agosto
'MemNum(19)    - mes 09 - Setembro
'MemNum(20)    - mes 10 - Outubro
'MemNum(21)    - mes 11 - Novembro
'MemNum(22)    - mes 12 - Dezembro

'quantidades agrupadas
'MemNum(30)    - trimestre corrente
'MemNum(31)    - trimestre 1
'MemNum(32)    - trimestre 2
'MemNum(33)    - trimestre 3
'MemNum(34)    - trimestre 4
'MemNum(35)    - semestre corrente
'MemNum(36)    - semestre 1
'MemNum(37)    - semestre 2
'MemNum(39)    - total dos meses

'valores por mes
'MemNum(40)    - mes corrente (mes da data)
'MemNum(41)    - mes 01 - Janeiro
'MemNum(42)    - mes 02 - Fevereiro
'MemNum(43)    - mes 03 - Marco
'MemNum(44)    - mes 04 - Abril
'MemNum(45)    - mes 05 - Maio
'MemNum(46)    - mes 06 - Junho
'MemNum(47)    - mes 07 - Julho
'MemNum(48)    - mes 08 - Agosto
'MemNum(49)    - mes 09 - Setembro
'MemNum(50)    - mes 10 - Outubro
'MemNum(51)    - mes 11 - Novembro
'MemNum(52)    - mes 12 - Dezembro

'valores agrupados
'MemNum(60)    - trimestre corrente
'MemNum(61)    - trimestre 1
'MemNum(62)    - trimestre 2
'MemNum(63)    - trimestre 3
'MemNum(64)    - trimestre 4
'MemNum(65)    - semestre corrente
'MemNum(66)    - semestre 1
'MemNum(67)    - semestre 2
'MemNum(69)    - total dos meses

Pag       = Doc_CntPag
DataExt   = FrmVal$(Sig_DtHoje,45,0)

LstTit    = MemTxt$(1)
LstIde    = MemTxt$(2)

'nome dos meses
Mes00     = MemTxt$(50)
Mes01     = MemTxt$(51)
Mes02     = MemTxt$(52)
Mes03     = MemTxt$(53)
Mes04     = MemTxt$(54)
Mes05     = MemTxt$(55)
Mes06     = MemTxt$(56)
Mes07     = MemTxt$(57)
Mes08     = MemTxt$(58)
Mes09     = MemTxt$(59)
Mes10     = MemTxt$(60)
Mes11     = MemTxt$(61)
Mes12     = MemTxt$(62)

'abreviatura dos meses (3 digitos)
m00       = left$(MemTxt$(50),3)
m01       = left$(MemTxt$(51),3)
m02       = left$(MemTxt$(52),3)
m03       = left$(MemTxt$(53),3)
m04       = left$(MemTxt$(54),3)
m05       = left$(MemTxt$(55),3)
m06       = left$(MemTxt$(56),3)
m07       = left$(MemTxt$(57),3)
m08       = left$(MemTxt$(58),3)
m09       = left$(MemTxt$(59),3)
m10       = left$(MemTxt$(60),3)
m11       = left$(MemTxt$(61),3)
m12       = left$(MemTxt$(62),3)

'identificacao dos trimestres
Tri00     = MemTxt$(70)
Tri01     = MemTxt$(71)
Tri02     = MemTxt$(72)
Tri03     = MemTxt$(73)
Tri04     = MemTxt$(74)

'identificacao dos semestres
Sem00     = MemTxt$(80)
Sem01     = MemTxt$(81)
Sem02     = MemTxt$(82)

'diversos
LinCod    = MemTxt$(21)
LinIde    = MemTxt$(22)
LinIde25  = left$(MemTxt$(22),25)                'nome com 25 digitos

LinIde2   = Cta_Ang_Nome2$
LinCov    = MemTxt$(23)


'- parciais ------------------------------------------------------------------
'quantidades por mes - formato normal
MQ00      = FrmNum$(7.0,MemNum(10))
MQ01      = FrmNum$(7.0,MemNum(11))
MQ02      = FrmNum$(7.0,MemNum(12))
MQ03      = FrmNum$(7.0,MemNum(13))
MQ04      = FrmNum$(7.0,MemNum(14))
MQ05      = FrmNum$(7.0,MemNum(15))
MQ06      = FrmNum$(7.0,MemNum(16))
MQ07      = FrmNum$(7.0,MemNum(17))
MQ08      = FrmNum$(7.0,MemNum(18))
MQ09      = FrmNum$(7.0,MemNum(19))
MQ10      = FrmNum$(7.0,MemNum(20))
MQ11      = FrmNum$(7.0,MemNum(21))
MQ12      = FrmNum$(7.0,MemNum(22))

'quantidades por mes - formato reduzido
MQ01r     = FrmNum$(6.0,MemNum(11))
MQ02r     = FrmNum$(6.0,MemNum(12))
MQ03r     = FrmNum$(6.0,MemNum(13))
MQ04r     = FrmNum$(6.0,MemNum(14))
MQ05r     = FrmNum$(6.0,MemNum(15))
MQ06r     = FrmNum$(6.0,MemNum(16))
MQ07r     = FrmNum$(6.0,MemNum(17))
MQ08r     = FrmNum$(6.0,MemNum(18))
MQ09r     = FrmNum$(6.0,MemNum(19))
MQ10r     = FrmNum$(6.0,MemNum(20))
MQ11r     = FrmNum$(6.0,MemNum(21))
MQ12r     = FrmNum$(6.0,MemNum(22))

'quantidades agrupadas - formato normal
MQT1      = FrmNum$(8.0,MemNum(31))
MQT2      = FrmNum$(8.0,MemNum(32))
MQT3      = FrmNum$(8.0,MemNum(33))
MQT4      = FrmNum$(8.0,MemNum(34))
MQS1      = FrmNum$(8.0,MemNum(36))
MQS2      = FrmNum$(8.0,MemNum(37))
MQTG      = FrmNum$(9.0,MemNum(39))

'quantidades agrupadas - formato reduzido
MQT1r     = FrmNum$(7.0,MemNum(31))
MQT2r     = FrmNum$(7.0,MemNum(32))
MQT3r     = FrmNum$(7.0,MemNum(33))
MQT4r     = FrmNum$(7.0,MemNum(34))
MQS1r     = FrmNum$(7.0,MemNum(36))
MQS2r     = FrmNum$(7.0,MemNum(37))
MQTGr     = FrmNum$(8.0,MemNum(39))

'valores por mes - formato normal
MV00      = FrmNum$(10.0,MemNum(40))
MV01      = FrmNum$(10.0,MemNum(41))
MV02      = FrmNum$(10.0,MemNum(42))
MV03      = FrmNum$(10.0,MemNum(43))
MV04      = FrmNum$(10.0,MemNum(44))
MV05      = FrmNum$(10.0,MemNum(45))
MV06      = FrmNum$(10.0,MemNum(46))
MV07      = FrmNum$(10.0,MemNum(47))
MV08      = FrmNum$(10.0,MemNum(48))
MV09      = FrmNum$(10.0,MemNum(49))
MV10      = FrmNum$(10.0,MemNum(50))
MV11      = FrmNum$(10.0,MemNum(51))
MV12      = FrmNum$(10.0,MemNum(52))

'valores por mes - formato reduzido
MV00r     = FrmNum$(9.0,MemNum(40))
MV01r     = FrmNum$(9.0,MemNum(41))
MV02r     = FrmNum$(9.0,MemNum(42))
MV03r     = FrmNum$(9.0,MemNum(43))
MV04r     = FrmNum$(9.0,MemNum(44))
MV05r     = FrmNum$(9.0,MemNum(45))
MV06r     = FrmNum$(9.0,MemNum(46))
MV07r     = FrmNum$(9.0,MemNum(47))
MV08r     = FrmNum$(9.0,MemNum(48))
MV09r     = FrmNum$(9.0,MemNum(49))
MV10r     = FrmNum$(9.0,MemNum(50))
MV11r     = FrmNum$(9.0,MemNum(51))
MV12r     = FrmNum$(9.0,MemNum(52))

'valores agrupados - formato normal
MVT0      = FrmNum$(14.0,MemNum(60))
MVT1      = FrmNum$(12.0,MemNum(61))
MVT2      = FrmNum$(12.0,MemNum(62))
MVT3      = FrmNum$(12.0,MemNum(63))
MVT4      = FrmNum$(12.0,MemNum(64))
MVS0      = FrmNum$(12.0,MemNum(65))
MVS1      = FrmNum$(12.0,MemNum(66))
MVS2      = FrmNum$(12.0,MemNum(67))
MVTG      = FrmNum$(14.0,MemNum(69))

'valores agrupados - formato reduzido
MVT0r     = FrmNum$(13.0,MemNum(60))
MVT1r     = FrmNum$(11.0,MemNum(61))
MVT2r     = FrmNum$(11.0,MemNum(62))
MVT3r     = FrmNum$(11.0,MemNum(63))
MVT4r     = FrmNum$(11.0,MemNum(64))
MVS0r     = FrmNum$(11.0,MemNum(66))
MVS1r     = FrmNum$(11.0,MemNum(66))
MVS2r     = FrmNum$(11.0,MemNum(67))
MVTGr     = FrmNum$(13.0,MemNum(69))


'- subtotais -----------------------------------------------------------------
'quantidades por mes - formato normal
SQ00      = FrmNum$(7.0,total(MQ00,1))
SQ01      = FrmNum$(7.0,total(MQ01,1))
SQ02      = FrmNum$(7.0,total(MQ02,1))
SQ03      = FrmNum$(7.0,total(MQ03,1))
SQ04      = FrmNum$(7.0,total(MQ04,1))
SQ05      = FrmNum$(7.0,total(MQ05,1))
SQ06      = FrmNum$(7.0,total(MQ06,1))
SQ07      = FrmNum$(7.0,total(MQ07,1))
SQ08      = FrmNum$(7.0,total(MQ08,1))
SQ09      = FrmNum$(7.0,total(MQ09,1))
SQ10      = FrmNum$(7.0,total(MQ10,1))
SQ11      = FrmNum$(7.0,total(MQ11,1))
SQ12      = FrmNum$(7.0,total(MQ12,1))

'quantidades por mes - formato reduzido
SQ00r     = FrmNum$(6.0,total(MQ00r,1))
SQ01r     = FrmNum$(6.0,total(MQ01r,1))
SQ02r     = FrmNum$(6.0,total(MQ02r,1))
SQ03r     = FrmNum$(6.0,total(MQ03r,1))
SQ04r     = FrmNum$(6.0,total(MQ04r,1))
SQ05r     = FrmNum$(6.0,total(MQ05r,1))
SQ06r     = FrmNum$(6.0,total(MQ06r,1))
SQ07r     = FrmNum$(6.0,total(MQ07r,1))
SQ08r     = FrmNum$(6.0,total(MQ08r,1))
SQ09r     = FrmNum$(6.0,total(MQ09r,1))
SQ10r     = FrmNum$(6.0,total(MQ10r,1))
SQ11r     = FrmNum$(6.0,total(MQ11r,1))
SQ12r     = FrmNum$(6.0,total(MQ12r,1))

'quantidades agrupadas - formato normal
SQT0      = FrmNum$(8.0,total(MQT0,1))
SQT1      = FrmNum$(8.0,total(MQT1,1))
SQT2      = FrmNum$(8.0,total(MQT2,1))
SQT3      = FrmNum$(8.0,total(MQT3,1))
SQT4      = FrmNum$(8.0,total(MQT4,1))
SQS0      = FrmNum$(8.0,total(MQS0,1))
SQS1      = FrmNum$(8.0,total(MQS1,1))
SQS2      = FrmNum$(8.0,total(MQS2,1))
SQTG      = FrmNum$(9.0,total(MQTG,1))

'quantidades agrupadas - formato reduzido
SQT0r     = FrmNum$(7.0,total(MQT0r,1))
SQT1r     = FrmNum$(7.0,total(MQT1r,1))
SQT2r     = FrmNum$(7.0,total(MQT2r,1))
SQT3r     = FrmNum$(7.0,total(MQT3r,1))
SQT4r     = FrmNum$(7.0,total(MQT4r,1))
SQS0r     = FrmNum$(7.0,total(MQS0r,1))
SQS1r     = FrmNum$(7.0,total(MQS1r,1))
SQS2r     = FrmNum$(7.0,total(MQS2r,1))
SQTGr     = FrmNum$(8.0,total(MQTGr,1))

'valores por mes - formato normal
SV00      = FrmNum$(10.0,total(MV00,1))
SV01      = FrmNum$(10.0,total(MV01,1))
SV02      = FrmNum$(10.0,total(MV02,1))
SV03      = FrmNum$(10.0,total(MV03,1))
SV04      = FrmNum$(10.0,total(MV04,1))
SV05      = FrmNum$(10.0,total(MV05,1))
SV06      = FrmNum$(10.0,total(MV06,1))
SV07      = FrmNum$(10.0,total(MV07,1))
SV08      = FrmNum$(10.0,total(MV08,1))
SV09      = FrmNum$(10.0,total(MV09,1))
SV10      = FrmNum$(10.0,total(MV10,1))
SV11      = FrmNum$(10.0,total(MV11,1))
SV12      = FrmNum$(10.0,total(MV12,1))

'valores por mes - formato reduzido
SV00r     = FrmNum$(9.0,total(MV00r,1))
SV01r     = FrmNum$(9.0,total(MV01r,1))
SV02r     = FrmNum$(9.0,total(MV02r,1))
SV03r     = FrmNum$(9.0,total(MV03r,1))
SV04r     = FrmNum$(9.0,total(MV04r,1))
SV05r     = FrmNum$(9.0,total(MV05r,1))
SV06r     = FrmNum$(9.0,total(MV06r,1))
SV07r     = FrmNum$(9.0,total(MV07r,1))
SV08r     = FrmNum$(9.0,total(MV08r,1))
SV09r     = FrmNum$(9.0,total(MV09r,1))
SV10r     = FrmNum$(9.0,total(MV10r,1))
SV11r     = FrmNum$(9.0,total(MV11r,1))
SV12r     = FrmNum$(9.0,total(MV12r,1))

'valores agrupados - formato normal
SVT0      = FrmNum$(12.0,total(MVT0,1))
SVT1      = FrmNum$(12.0,total(MVT1,1))
SVT2      = FrmNum$(12.0,total(MVT2,1))
SVT3      = FrmNum$(12.0,total(MVT3,1))
SVT4      = FrmNum$(12.0,total(MVT4,1))
SVS0      = FrmNum$(12.0,total(MVS0,1))
SVS1      = FrmNum$(12.0,total(MVS1,1))
SVS2      = FrmNum$(12.0,total(MVS2,1))
SVTG      = FrmNum$(14.0,total(MVTG,1))

'valores agrupados - formato reduzido
SVT0r     = FrmNum$(11.0,total(MVT0r,1))
SVT1r     = FrmNum$(11.0,total(MVT1r,1))
SVT2r     = FrmNum$(11.0,total(MVT2r,1))
SVT3r     = FrmNum$(11.0,total(MVT3r,1))
SVT4r     = FrmNum$(11.0,total(MVT4r,1))
SVS0r     = FrmNum$(11.0,total(MVS0r,1))
SVS1r     = FrmNum$(11.0,total(MVS1r,1))
SVS2r     = FrmNum$(11.0,total(MVS2r,1))
SVTGr     = FrmNum$(13.0,total(MVTGr,1))

'- totais --------------------------------------------------------------------
'quantidades por mes - formato normal
TQ00      = FrmNum$(7.0,total(MQ00,2))
TQ01      = FrmNum$(7.0,total(MQ01,2))
TQ02      = FrmNum$(7.0,total(MQ02,2))
TQ03      = FrmNum$(7.0,total(MQ03,2))
TQ04      = FrmNum$(7.0,total(MQ04,2))
TQ05      = FrmNum$(7.0,total(MQ05,2))
TQ06      = FrmNum$(7.0,total(MQ06,2))
TQ07      = FrmNum$(7.0,total(MQ07,2))
TQ08      = FrmNum$(7.0,total(MQ08,2))
TQ09      = FrmNum$(7.0,total(MQ09,2))
TQ10      = FrmNum$(7.0,total(MQ10,2))
TQ11      = FrmNum$(7.0,total(MQ11,2))
TQ12      = FrmNum$(7.0,total(MQ12,2))

'quantidades por mes - formato reduzido
TQ00r     = FrmNum$(6.0,total(MQ00r,2))
TQ01r     = FrmNum$(6.0,total(MQ01r,2))
TQ02r     = FrmNum$(6.0,total(MQ02r,2))
TQ03r     = FrmNum$(6.0,total(MQ03r,2))
TQ04r     = FrmNum$(6.0,total(MQ04r,2))
TQ05r     = FrmNum$(6.0,total(MQ05r,2))
TQ06r     = FrmNum$(6.0,total(MQ06r,2))
TQ07r     = FrmNum$(6.0,total(MQ07r,2))
TQ08r     = FrmNum$(6.0,total(MQ08r,2))
TQ09r     = FrmNum$(6.0,total(MQ09r,2))
TQ10r     = FrmNum$(6.0,total(MQ10r,2))
TQ11r     = FrmNum$(6.0,total(MQ11r,2))
TQ12r     = FrmNum$(6.0,total(MQ12r,2))

'quantidades agrupadas - formato normal
TQT0      = FrmNum$(8.0,total(MQT0,2))
TQT1      = FrmNum$(8.0,total(MQT1,2))
TQT2      = FrmNum$(8.0,total(MQT2,2))
TQT3      = FrmNum$(8.0,total(MQT3,2))
TQT4      = FrmNum$(8.0,total(MQT4,2))
TQT0      = FrmNum$(8.0,total(MQT0,2))
TQT1      = FrmNum$(8.0,total(MQT1,2))
TQS2      = FrmNum$(8.0,total(MQS2,2))
TQTG      = FrmNum$(9.0,total(MQTG,2))

'quantidades agrupadas - formato reduzido
TQT0r     = FrmNum$(7.0,total(MQT0r,2))
TQT1r     = FrmNum$(7.0,total(MQT1r,2))
TQT2r     = FrmNum$(7.0,total(MQT2r,2))
TQT3r     = FrmNum$(7.0,total(MQT3r,2))
TQT4r     = FrmNum$(7.0,total(MQT4r,2))
TQS0r     = FrmNum$(7.0,total(MQS0r,2))
TQS1r     = FrmNum$(7.0,total(MQS1r,2))
TQS2r     = FrmNum$(7.0,total(MQS2r,2))
TQTGr     = FrmNum$(8.0,total(MQTGr,2))

'valores por mes - formato normal
TV00      = FrmNum$(10.0,total(MV00,2))
TV01      = FrmNum$(10.0,total(MV01,2))
TV02      = FrmNum$(10.0,total(MV02,2))
TV03      = FrmNum$(10.0,total(MV03,2))
TV04      = FrmNum$(10.0,total(MV04,2))
TV05      = FrmNum$(10.0,total(MV05,2))
TV06      = FrmNum$(10.0,total(MV06,2))
TV07      = FrmNum$(10.0,total(MV07,2))
TV08      = FrmNum$(10.0,total(MV08,2))
TV09      = FrmNum$(10.0,total(MV09,2))
TV10      = FrmNum$(10.0,total(MV10,2))
TV11      = FrmNum$(10.0,total(MV11,2))
TV12      = FrmNum$(10.0,total(MV12,2))

'valores por mes - formato reduzido
TV00r     = FrmNum$(9.0,total(MV00r,2))
TV01r     = FrmNum$(9.0,total(MV01r,2))
TV02r     = FrmNum$(9.0,total(MV02r,2))
TV03r     = FrmNum$(9.0,total(MV03r,2))
TV04r     = FrmNum$(9.0,total(MV04r,2))
TV05r     = FrmNum$(9.0,total(MV05r,2))
TV06r     = FrmNum$(9.0,total(MV06r,2))
TV07r     = FrmNum$(9.0,total(MV07r,2))
TV08r     = FrmNum$(9.0,total(MV08r,2))
TV09r     = FrmNum$(9.0,total(MV09r,2))
TV10r     = FrmNum$(9.0,total(MV10r,2))
TV11r     = FrmNum$(9.0,total(MV11r,2))
TV12r     = FrmNum$(9.0,total(MV12r,2))

'valores agrupados - formato normal
TVT0      = FrmNum$(12.0,total(MVT0,2))
TVT1      = FrmNum$(12.0,total(MVT1,2))
TVT2      = FrmNum$(12.0,total(MVT2,2))
TVT3      = FrmNum$(12.0,total(MVT3,2))
TVT4      = FrmNum$(12.0,total(MVT4,2))
TVS0      = FrmNum$(12.0,total(MVS0,2))
TVS1      = FrmNum$(12.0,total(MVS1,2))
TVS2      = FrmNum$(12.0,total(MVS2,2))
TVTG      = FrmNum$(14.0,total(MVTG,2))

'valores agrupados - formato reduzido
TVT0r     = FrmNum$(11.0,total(MVT0r,2))
TVT1r     = FrmNum$(11.0,total(MVT1r,2))
TVT2r     = FrmNum$(11.0,total(MVT2r,2))
TVT3r     = FrmNum$(11.0,total(MVT3r,2))
TVT4r     = FrmNum$(11.0,total(MVT4r,2))
TVS0r     = FrmNum$(11.0,total(MVS0r,2))
TVS1r     = FrmNum$(11.0,total(MVS1r,2))
TVS2r     = FrmNum$(11.0,total(MVS2r,2))
TVTGr     = FrmNum$(13.0,total(MVTGr,2))
##


'==============================================================================
#INC - Variaveis comuns
'==============================================================================
Variaveis  comuns                 =[SIG_Dir.Div],LsComVar.std
##


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
SUB FxIni 'inicializacao base
cnt=0                                           'limpar contador
Call SigLstIni
end sub


SUB Lst_AJT
end sub


'-----------------------------------------------------------------------------
' Estatistica Anual
'-----------------------------------------------------------------------------
SUB Ano_CabIni 'inicializar documento
end sub


SUB Ano_Cab 'cabecalho
FxDiv LstIde,16CPI,0
print TxTit$("TT=16CPI, LD, PT=110C, TL=16CPI","Estatistica Anual")
print "Data : " FrmVal$(Sig_DtHoje,45,0);
print tab(200) "Folha No : " Doc_CntPag
?============================================================================================================================================================================================================================
?                                       1o Trimestre         Subtotal            2o Trimestre         Subtotal            3o Trimestre         Subtotal            4o Trimestre         Subtotal             Total Geral    #
?Codigo          Nome                 Jan    Fev    Mar   Quant.   Valor       Abr    Mai    Jun   Quant.   Valor       Jul    Ago    Set   Quant.   Valor       Out    Nov    Dez   Quant.   Valor       Quant.     Valor  #
?============================================================================================================================================================================================================================
'<2345678901234><2345678901234567><23456><23456><23456><234567><2345678901><23456><23456><23456><234567><2345678901><23456><23456><23456><234567><2345678901><23456><23456><23456><234567><2345678901><2345678><234567890123>
end sub


SUB Ano_Lin 'linha de valores
fx=CtaContaLer(MemTxt$(23))      'ler conta
?@LinCov        @LinIde2          @MQ01  @MQ02  @MQ03  @MQT1   @MVT1       @MQ04  @MQ05  @MQ06  @MQT2   @MVT2       @MQ07  @MQ08  @MQ09  @MQT3   @MVT3       @MQ10  @MQ11  @MQ12  @MQT4   @MVT4       @MQTG    @MVTG        #
End sub


SUB Ano_LinGrp 'titulo de grupo
nli=Doc_CntLin                                  'numero de linhas
tmp=CntLin("MIN",3)                             'minimo de linhas
tmp=CntLin("INC",1)                             'contar linha
print MemTxt$(13)+"  "+MemTxt$(12)              'identificar grupo
end sub


SUB Ano_LinSbt 'linha de subtotal
nrg=TotCnt("LinIde",1)                          'numero de registos
if nrg>1 then
?               Subtotal:         @SQ01  @SQ02  @SQ03  @SQT1   @SVT1       @SQ04  @SQ05  @SQ06  @SQT2   @SVT2       @SQ07  @SQ08  @SQ09  @SQT3   @SVT3       @SQ10  @SQ11  @SQ12  @SQT4   @SVT4       @SQTG    @SVTG        #
tmp=CntLin("INC",)                              'contar linhas
end if
?
tmp=CntLin("INC",1)                             'contar linhas
x=TotLpz(1)                                     'limpar totais
end sub


SUB Ano_LinSep 'linha de separacao
print
end sub


SUB Ano_FimAjt 'fim de pagina intermedia
nrg=TotCnt("LinCod",1)                          'numero de registos
print string$(220,"=")                          'separador

FxDiv LstPer,SP                                 'fim de pagina
'Print PrtCmd("[SP]");                          'fim de pagina
end sub


SUB Ano_Fim 'totais finais
print string$(220,"=")                          'separador
?               Total:            @TQ01  @TQ02  @TQ03  @TQT1   @TVT1       @TQ04  @TQ05  @TQ06  @TQT2   @TVT2       @TQ07  @TQ08  @TQ09  @TQT3   @TVT3       @TQ10  @TQ11  @TQ12  @TQT4   @TVT4       @TQTG    @TVTG        #
print string$(220,"=")                          'separador
FxDiv LstPer,SP                                 'fim de pagina
'Print PrtCmd("[SP]");                          'fim de pagina
end sub


'-----------------------------------------------------------------------------
' Estatitistica Semestral
'-----------------------------------------------------------------------------
SUB Sem_CabIni 'inicializar documento
end sub


SUB Sem_Cab 'cabecalho
FxDiv LstIde,16CPI,0
print TxTit$("TT=16CPI, LD, PT=66C, TL=16CPI","Estatistica Semestral")
print "Data : " FrmVal$(Sig_DtHoje,45,0);
print tab(200) "Folha No : " Doc_CntPag
?====================================================================================================================================
?                                     @Tri01              Subtotal          @Tri02              Subtotal          Total do Semestre #
?Codigo          Nome                @m01  @m02  @m03  Quant.   Valor      @m04  @m05  @m06  Quant.   Valor       Quant.      Valor #
?====================================================================================================================================
'<2345678901234><2345678901234567><2345><2345><2345><234567><2345678901><2345><2345><2345><234567><2345678901><2345678><234567890123>
end sub


SUB Sem_Lin 'linha de valores
?@LinCov        @LinIde           @MQ01r@MQ02r@MQ03r@MQT1   @MVT1       @MQ04r@MQ05r@MQ06r@MQT2   @MVT2       @MQTG    @MVTG        #
End sub


SUB Sem_LinGrp 'titulo de grupo
nli=Doc_CntLin                                  'numero de linhas
tmp=CntLin("MIN",3)                             'minimo de linhas
tmp=CntLin("INC",1)                             'contar linha
print MemTxt$(13)+"  "+MemTxt$(12)              'identificar grupo
end sub


SUB Sem_LinSbt 'linha de subtotal
nrg=TotCnt("LinIde",1)                          'numero de registos
if nrg>1 then
?               Subtotal:         @SQ01r@SQ02r@SQ03r@SQT1   @SVT1       @SQ04r@SQ05r@SQ06r@SQT2   @SVT2       @SQTG    @SVTG        #
tmp=CntLin("INC",)                              'contar linhas
end if
?
tmp=CntLin("INC",1)                             'contar linhas
x=TotLpz(1)                                     'limpar totais
end sub


SUB Sem_LinSep 'linha de separacao
print
end sub


SUB Sem_FimAjt 'fim de pagina intermedia
nrg=TotCnt("LinCod",1)                          'numero de registos
print string$(220,"=")                          'separador

FxDiv LstPer,SP                                 'fim de pagina
'Print PrtCmd("[SP]");                          'fim de pagina
end sub


SUB Sem_Fim 'totais finais
print string$(220,"=")                          'separador
?               Total:            @TQ01r@TQ02r@TQ03r@TQT1   @TVT1       @TQ04r@TQ05r@TQ06r@TQT2   @TVT2       @TQTG    @TVTG        #
print string$(220,"=")                          'separador
FxDiv LstPer,SP                                 'fim de pagina
'Print PrtCmd("[SP]");                          'fim de pagina
end sub


'-----------------------------------------------------------------------------
' Estatitistica Trimestral
'-----------------------------------------------------------------------------
SUB Tri_CabIni 'inicializar documento
end sub


SUB Tri_Cab 'cabecalho
FxDiv LstIde,16CPI,0
print TxTit$("TT=16CPI, LD, PT=66C, TL=16CPI","Estatistica Trimestral")
print "Data : " FrmVal$(Sig_DtHoje,45,0);
print tab(115) "Folha No : " Doc_CntPag
?====================================================================================================================================
?                                                  @Mes01                @Mes02                @Mes03              Total do trimestre
?Codigo          Nome                           Quant.     Valor      Quant.     Valor      Quant.     Valor       Quant.       Valor
?====================================================================================================================================
'<23456789012345><234567890123456789012345678><234567><234567890123><234567><234567890123><234567><234567890123><2345678><234567890123>
end sub


SUB Tri_Lin 'linha de valores
?@LinCov         @LinIde                      @MQ01   @MV01         @MQ02   @MV02         @MQ03   @MV03         @MQT1    @MVT1      #
End sub


SUB Tri_LinGrp 'titulo de grupo
nli=Doc_CntLin                                  'numero de linhas
tmp=CntLin("MIN",3)                             'minimo de linhas
tmp=CntLin("INC",1)                             'contar linha
print MemTxt$(13)+"  "+MemTxt$(12)              'identificar grupo

'msgbox "", "LIN GRP >"+ MemTxt$(13)+"  "+MemTxt$(12)+ "< "
end sub


SUB Tri_LinSbt 'linha de subtotal
nrg=TotCnt("LinIde",1)                          'numero de registos
if nrg>1 then
?               Subtotal:                     @SQ01   @SV01         @SQ02   @SV02         @SQ03   @SV03         @SQT1    @SVT1      #
tmp=CntLin("INC",)                              'contar linhas
end if
?
tmp=CntLin("INC",1)                             'contar linhas
x=TotLpz(1)                                     'limpar totais
end sub


SUB Tri_LinSep 'linha de separacao
print
end sub


SUB Tri_FimAjt 'fim de pagina intermedia
nrg=TotCnt("LinCod",1)                          'numero de registos
print string$(132,"=")                          'separador

FxDiv LstPer,SP                                 'fim de pagina
'Print PrtCmd("[SP]");                          'fim de pagina
end sub


SUB Tri_Fim 'totais finais
print string$(132,"=")                          'separador
?               Total:                        @TQ01   @TV01         @TQ02   @TV02         @TQ03   @TV03         @TQT1    @TVT1      #
print string$(132,"=")                          'separador
FxDiv LstPer,SP                                 'fim de pagina
'Print PrtCmd("[SP]");                          'fim de pagina
end sub


'-----------------------------------------------------------------------------
' Estatitistica Mensal
'-----------------------------------------------------------------------------
SUB Mes_CabIni 'inicializar documento
end sub


SUB Mes_Cab 'cabecalho
FxDiv LstIde,16CPI,0
print TxTit$("TT=10CPI, LD, PT=40C, TL=10CPI","Estatistica Mensal")
print "Data : " FrmVal$(Sig_DtHoje,45,0);
print tab(65) "Folha No : " Doc_CntPag
?================================================================================
?                                                                  @Mes01       #
?Codigo           Nome                                        Quant.      Valor #
?================================================================================
'<2345678901234> <23456789012345678901234567890>          <2345678><234567890123>
end sub


SUB Mes_Lin 'linha de valores
?@LinCov         @LinIde                                  @MQTG    @MVTG        #
End sub


SUB Mes_LinGrp 'titulo de grupo
nli=Doc_CntLin                                  'numero de linhas
tmp=CntLin("MIN",3)                             'minimo de linhas
tmp=CntLin("INC",1)                             'contar linha
print MemTxt$(13)+"  "+MemTxt$(12)              'identificar grupo
end sub


SUB Mes_LinSbt 'linha de subtotal
nrg=TotCnt("LinIde",1)                          'numero de registos
if nrg>1 then
?               Subtotal:                                 @SQTG    @SVTG        #
tmp=CntLin("INC",)                              'contar linhas
end if
?
tmp=CntLin("INC",1)                             'contar linhas
x=TotLpz(1)                                     'limpar totais
end sub


SUB Mes_LinSep 'linha de separacao
print
end sub


SUB Mes_FimAjt 'fim de pagina intermedia
nrg=TotCnt("LinCod",1)                          'numero de registos
print string$(80,"=")                           'separador

FxDiv LstPer,SP                                 'fim de pagina
'Print PrtCmd("[SP]");                          'fim de pagina
end sub


SUB Mes_Fim 'totais finais
print string$(80,"=")                           'separador
?               Total:                                    @TQTG    @TVTG        #
print string$(80,"=")                           'separador
FxDiv LstPer,SP                                 'fim de pagina
'Print PrtCmd("[SP]");                          'fim de pagina
end sub


'-----------------------------------------------------------------------------
' Estatitistica Mes/Ano
'-----------------------------------------------------------------------------
SUB MesAno_CabIni 'inicializar documento
end sub


SUB MesAno_Cab 'cabecalho
FxDiv LstIde,16CPI,0
print TxTit$("TT=10CPI, LD, PT=66C, TL=10CPI","Estatistica Mensal/Anual")
print "Data : " FrmVal$(Sig_DtHoje,45,0);
print tab(115) "Folha No : " Doc_CntPag
?====================================================================================================================================
?                                                                  @Mes00                 Valor do Ano                              #
?Codigo             Nome                                        Quant.      Valor        Quant.      Valor          Observações     #
?====================================================================================================================================
'<2345678901234>   <23456789012345678901234567890>          <2345678><234567890123>  <2345678><234567890123>                        #
end sub


SUB MesAno_Lin 'linha de valores
?@LinCov           @LinIde                                  @MQ00    @MV00           @MQTG    @MVTG                                 #
End sub


SUB MesAno_LinGrp 'titulo de grupo
nli=Doc_CntLin                                  'numero de linhas
tmp=CntLin("MIN",3)                             'minimo de linhas
tmp=CntLin("INC",1)                             'contar linha
print MemTxt$(13)+"  "+MemTxt$(12)              'identificar grupo
end sub


SUB MesAno_LinSbt 'linha de subtotal
nrg=TotCnt("LinIde",1)                          'numero de registos
if nrg>1 then
?                  Subtotal:                                @SQ00    @SV00           @SQTG    @SVTG                                 #
tmp=CntLin("INC",)                              'contar linhas
end if
?
tmp=CntLin("INC",1)                             'contar linhas
x=TotLpz(1)                                     'limpar totais
end sub


SUB MesAno_LinSep 'linha de separacao
print
end sub


SUB MesAno_FimAjt 'fim de pagina intermedia
nrg=TotCnt("LinCod",1)                          'numero de registos
print string$(132,"=")                          'separador

FxDiv LstPer,SP                                 'fim de pagina
'Print PrtCmd("[SP]");                          'fim de pagina
end sub


SUB MesAno_Fim 'totais finais
print string$(132,"=")                          'separador
?                  Total:                                   @TQ00    @TV00           @TQTG    @TVTG                                 #
print string$(132,"=")                          'separador
FxDiv LstPer,SP                                 'fim de pagina
'Print PrtCmd("[SP]");                          'fim de pagina
end sub


'-----------------------------------------------------------------------------
' Estatistica Totat Anual
'-----------------------------------------------------------------------------
SUB Tan_CabIni 'inicializar documento
end sub


SUB Tan_Cab 'cabecalho
FxDiv LstIde,16CPI,0
print TxTit$("TT=10CPI, LD, PT=40C, TL=10CPI","Estatistica Anual (total)")
print "Data : " FrmVal$(Sig_DtHoje,45,0);
print tab(65) "Folha No : " Doc_CntPag
?================================================================================
?Codigo           Nome                                        Quant.      Valor #
?================================================================================
end sub


SUB Tan_Lin 'linha de valores
?@LinCov         @LinIde                                  @MQTG    @MVTG        #
End sub


SUB Tan_LinGrp 'titulo de grupo
nli=Doc_CntLin                                  'numero de linhas
tmp=CntLin("MIN",3)                             'minimo de linhas
tmp=CntLin("INC",1)                             'contar linha
print MemTxt$(13)+"  "+MemTxt$(12)              'identificar grupo
end sub


SUB Tan_LinSbt 'linha de subtotal
nrg=TotCnt("LinIde",1)                          'numero de registos
if nrg>1 then
?               Subtotal:                                 @SQTG    @SVTG        #
tmp=CntLin("INC",)                              'contar linhas
end if
?
tmp=CntLin("INC",1)                             'contar linhas
x=TotLpz(1)                                     'limpar totais
end sub


SUB Tan_LinSep 'linha de separacao
print
end sub


SUB Tan_FimAjt 'fim de pagina intermedia
nrg=TotCnt("LinCod",1)                          'numero de registos
print string$(80,"=")                           'separador

FxDiv LstPer,SP                                 'fim de pagina
'Print PrtCmd("[SP]");                          'fim de pagina
end sub


SUB Tan_Fim 'totais finais
print string$(80,"=")                           'separador
?               Total:                                    @TQTG    @TVTG        #
print string$(80,"=")                           'separador
FxDiv LstPer,SP                                 'fim de pagina
'Print PrtCmd("[SP]");                          'fim de pagina
end sub


'================================================================================
'================================================================================
'                       INICIO das LISTAGENS GRAFICAS
'================================================================================
'================================================================================
Sub PosLinGr 'posicionar linha em modo grafico
PrWIN AJT_B,  Margem, 32 + Doc_CntLin * 4       'posicao base
end sub


Sub PosFimGr 'posicionar fim de pagina em modo grafico
PrWIN AJT_B,  Margem, 36 + Doc_CntLin * 4       'posicao base
end sub


'--------------------------------------------------------------------------------
'ESTATISTICA ANUAL ----------------------------------------------------- INICIO -
'--------------------------------------------------------------------------------
Sub AnoG_CabIni                                          'inicializar documento
end sub


Sub AnoG_Cab                                             'cabecalho
Call SigLstCab 

'fx=PrtOri("L")

titulo$="Estatística Anual"
PrWIN FON  , 13,   4                        	           'activar fonte
PrWIN TX_N, 75,3,titulo$

'?============================================================================================================================================================================================================================
'?                                       1o Trimestre         Subtotal            2o Trimestre         Subtotal            3o Trimestre         Subtotal            4o Trimestre         Subtotal             Total Geral    #
'?Codigo          Nome                 Jan    Fev    Mar   Quant.   Valor       Abr    Mai    Jun   Quant.   Valor       Jul    Ago    Set   Quant.   Valor       Out    Nov    Dez   Quant.   Valor       Quant.     Valor  #
'?============================================================================================================================================================================================================================
'<2345678901234><2345678901234567><23456><23456><23456><234567><2345678901><23456><23456><23456><234567><2345678901><23456><23456><23456><234567><2345678901><23456><23456><23456><234567><2345678901><2345678><234567890123>

inicio=10

Col0=0
Col1=20
Col2=40
Col3=60
Col4=90
Col5=110
Col6=130
Col7=150
Col8=170
Col9=180
Col10=200
Col11=220
Col12=240
Col13=250
Col14=260
Col15=270
Col16=280
Col17=290
Col18=300
Col19=310
Col20=320
Col21=330
Col22=340
Col23=350
Col24=360

PrWIN FON  , 10,   1    

PrWIN AJT_B,  Margem, 30                    	'posicao base
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, MargemD, 0               	'linha
PrWIN GR_LI, 0, 12, MargemD, 12                 'linha

PrWIN COR_T,  CorTitLst                         'cor de titulo
PrWIN FON  , 10,   1                        	'activar fonte
PrWIN TX_N,  1,1.5,"1o Trimestre"               'titulo 
PrWIN TX_N,  10,1.5,"Subtotal"                  'titulo
PrWIN TX_N,  20,1.5,"2o Trimestre"              'titulo
PrWIN TX_N,  30,1.5,"3o Trimestre"              'titulo  
PrWIN TX_N,  40,1.5,"Subtotal"                  'titulo 
PrWIN TX_N,  50,1.5,"4o Trimestre"              'titulo
PrWIN TX_N,  60,1.5,"Subtotal"                  'titulo  
PrWIN TX_N,  70,1.5,"Total Geral"               'titulo 

PrWIN TX_N,  Col1-3,6,"Código"                  'titulo
PrWIN TX_N,  Col2+8,6,"Nome"                    'titulo
PrWIN TX_N,  Col3+20,6,"Valor"                  'titulo 
PrWIN TX_N,  Col4+20,6,"Adicional"              'titulo
PrWIN TX_N,  Col5+20,6,"Valor"                  'titulo  
end sub


SUB AnoG_Lin 'linha de valores
'fx=CtaContaLer(MemTxt$(23))      'ler conta
'?@LinCov        @LinIde2          @MQ01  @MQ02  @MQ03  @MQT1   @MVT1       @MQ04  @MQ05  @MQ06  @MQT2   @MVT2       @MQ07  @MQ08  @MQ09  @MQT3   @MVT3       @MQ10  @MQ11  @MQ12  @MQT4   @MVT4       @MQTG    @MVTG        #
End sub


SUB AnoG_LinGrp 'titulo de grupo
'nli=Doc_CntLin                                  'numero de linhas
'tmp=CntLin("MIN",3)                             'minimo de linhas
'tmp=CntLin("INC",1)                             'contar linha
'print MemTxt$(13)+"  "+MemTxt$(12)              'identificar grupo
end sub


SUB AnoG_LinSbt 'linha de subtotal
'nrg=TotCnt("LinIde",1)                          'numero de registos
'if nrg>1 then
'?               Subtotal:         @SQ01  @SQ02  @SQ03  @SQT1   @SVT1       @SQ04  @SQ05  @SQ06  @SQT2   @SVT2       @SQ07  @SQ08  @SQ09  @SQT3   @SVT3       @SQ10  @SQ11  @SQ12  @SQT4   @SVT4       @SQTG    @SVTG        #
'tmp=CntLin("INC",)                              'contar linhas
'end if
'?
'tmp=CntLin("INC",1)                             'contar linhas
'x=TotLpz(1)                                     'limpar totais
end sub


SUB AnoG_LinSep 'linha de separacao
'print
end sub


SUB AnoG_FimAjt 'fim de pagina intermedia
'nrg=TotCnt("LinCod",1)                          'numero de registos
'print string$(220,"=")                          'separador

'FxDiv LstPer,SP                                 'fim de pagina
''Print PrtCmd("[SP]");                          'fim de pagina
end sub


SUB AnoG_Fim 'totais finais
'print string$(220,"=")                          'separador
'?               Total:            @TQ01  @TQ02  @TQ03  @TQT1   @TVT1       @TQ04  @TQ05  @TQ06  @TQT2   @TVT2       @TQ07  @TQ08  @TQ09  @TQT3   @TVT3       @TQ10  @TQ11  @TQ12  @TQT4   @TVT4       @TQTG    @TVTG        #
'print string$(220,"=")                          'separador
'FxDiv LstPer,SP                                 'fim de pagina
''Print PrtCmd("[SP]");                          'fim de pagina
end sub


'-------------------------------------------------------------------------------- 
'ESTATISTICA SEMESTRAL ------------------------------------------------- INICIO -
'-------------------------------------------------------------------------------- 

'----------------------------------------------------------------------SEMESTRAL CABECALHO -----------------------
SUB SemG_Cab 'cabecalho
Call SigLstCab 

PrWIN AJT_B,  Margem, 26                    	'posicao base
PrWIN COR_T,CorTraco                          	'cor de linhas
PrWIN GR_LI, 0, 0, 190, 0               	'linha
PrWIN GR_LI, 0, 9, 190, 9                   	'linha

T1Col1 = 67
T1Col2 = 93
T1Col3 =119
T1Col4 =147
T1Col5 =171

TCol1 =  1
TCol2 = 30
TCol3 = 63
TCol4 = 72
TCol5 = 81
TCol6 = 87
TCol7 =102
TCol8 =116
TCol9 =125
TCol10=134
TCol11=141
TCol12=156
TCol13=168
TCol14=183

PrWIN COR_T,  CorTitLst                  	'cor de titulo
PrWIN FON  , 7,   1                          	'activar fonte
PrWIN TX_NP, T1Col1,1.5,"N",@Tri01
PrWIN TX_N,  T1Col2,1.5,"Subtotal"
PrWIN TX_NP, T1Col3,1.5,"N",@Tri02
PrWIN TX_N,  T1Col4,1.5,"Subtotal"
PrWIN TX_N,  T1Col5,1.5,"Total Semestre"

PrWIN TX_N,  TCol1 ,5,"Código"
PrWIN TX_N,  TCol2 ,5,"Nome"
PrWIN TX_NP, TCol3 ,5,"N",@m01
PrWIN TX_NP, TCol4 ,5,"N",@m02
PrWIN TX_NP, TCol5 ,5,"N",@m03
PrWIN TX_N,  TCol6 ,5,"Quant."
PrWIN TX_N,  TCol7 ,5,"Valor"
PrWIN TX_NP, TCol8 ,5,"N",@m04
PrWIN TX_NP, TCol9 ,5,"N",@m05
PrWIN TX_NP, TCol10,5,"N",@m06
PrWIN TX_N,  TCol11,5,"Quant."
PrWIN TX_N,  TCol12,5,"Valor"
PrWIN TX_N,  TCol13,5,"Quant."
PrWIN TX_N,  TCol14,5,"Valor"
end sub


'----------------------------------------------------------------------SEMESTRAL LINHA----------------------------
SUB SemG_Lin 'linha de valores
LCol1 =  1
LCol2 = 23
LCol3 = 59
LCol4 = 68
LCol5 = 77
LCol6 = 84
LCol7 = 93
LCol8 =112
LCol9 =121
LCol10=130
LCol11=138
LCol12=147
LCol13=163
LCol14=171

tmp=CntLin("MIN",2)                             'minimo de linhas
tmp=CntLin("INC",1)                             'contar linha
call PosLinGr                                   'posicionar linha

PrWIN TX_N , LCol1   ,0,@LinCov
PrWIN TX_N , LCol2   ,0,@LinIde25
PrWIN TX_NP, LCol3   ,0,"N",@MQ01r
PrWIN TX_NP, LCol4   ,0,"N",@MQ02r
PrWIN TX_NP, LCol5   ,0,"N",@MQ03r
PrWIN TX_NP, LCol6   ,0,"N",@MQT1
PrWIN TX_NP, LCol7   ,0,"N",@MVT1
PrWIN TX_NP, LCol8   ,0,"N",@MQ04r
PrWIN TX_NP, LCol9   ,0,"N",@MQ05r
PrWIN TX_NP, LCol10  ,0,"N",@MQ06r
PrWIN TX_NP, LCol11  ,0,"N",@MQT2
PrWIN TX_NP, LCol12  ,0,"N",@MVT2
PrWIN TX_NP, LCol13  ,0,"N",@MQTG
PrWIN TX_NP, LCol14  ,0,"N",@MVTG
End sub


'----------------------------------------------------------------------SEMESTRAL GRUPO----------------------------
SUB SemG_LinGrp 'titulo de grupo
tmp=CntLin("MIN",3)                             'minimo de linhas
tmp=CntLin("INC",1)                             'contar linha
call PosLinGr                                   'posicionar linha

c3$= MemTxt$(13)                                'codigo
n3$= MemTxt$(12)                                'nome
ide3$=c3$+" "+n3$                               'identificador

PrWIN FON  , 8,   1                          	'activar fonte
PrWin FON, "BOLD+"                              'activar bold
PrWIN TX_N,0,0,ide3$                            'identificacao
PrWin FON, "BOLD-"                              'desactivar bold
PrWIN FON  , 7,   1                          	'activar fonte
end sub


'----------------------------------------------------------------------SEMESTRAL SUBTOTAL -----------------------
SUB SemG_LinSbt 'linha de subtotal
SCol1 = 46
SCol2 = 59
SCol3 = 68
SCol4 = 77
SCol5 = 84
SCol6 = 93
SCol7 =112
SCol8 =121
SCol9 =130
SCol10=138
SCol11=147
SCol12=163
SCol13=171

nli=Doc_CntLin                                  'numero de linhas
nrg = TotCnt("LinIde25",1)                      'numero de registos

if nrg > 1 then                                 'listar subtotal ?
'   tmp=CntLin("MIN",3)                          'minimo de linhas
   tmp=CntLin("INC",1)                          'contar linhas
   call PosLinGr                                'posicionar linha

   PrWin FON, "BOLD+"
   PrWin FON, "ITAL+"

   PrWIN TX_N,  SCol1 ,0,"Subtotal:"
   PrWIN TX_NP, SCol2 ,0,"N",@SQ01r
   PrWIN TX_NP, SCol3 ,0,"N",@SQ02r
   PrWIN TX_NP, SCol4 ,0,"N",@SQ03r
   PrWIN TX_NP, SCol5 ,0,"N",@SQT1
   PrWIN TX_NP, SCol6 ,0,"N",@SVT1
   PrWIN TX_NP, SCol7 ,0,"N",@SQ04r
   PrWIN TX_NP, SCol8 ,0,"N",@SQ05r
   PrWIN TX_NP, SCol9 ,0,"N",@SQ06r
   PrWIN TX_NP, SCol10,0,"N",@SQT2
   PrWIN TX_NP, SCol11,0,"N",@SVT2
   PrWIN TX_NP, SCol12,0,"N",@SQTG
   PrWIN TX_NP, SCol13,0,"N",@SVTG
   PrWin FON, "BOLD-"
   PrWin FON, "ITAL-"
end if

if nrg > 0 then                                 'separar ?
   tmp=CntLin("INC",1)                          'contar linhas
   call PosLinGr                                'posicionar linha
   x=TotLpz(1)                                  'limpar totais
end if
end sub


'----------------------------------------------------------------------SEMESTRAL SEPARACAO ---------------------
Sub SemG_LinSep 'linha de separacao
'msgbox "","SEP",Doc_CntLin

'nada a executar
end sub


'----------------------------------------------------------------------SEMESTRAL AJUSTE ------------------------
SUB SemG_FimAjt 'fim de pagina intermedia
call PosFimGr                                    'posicionar fim de pagina
PrWIN GR_LI, 0, 0, 190, 0                        'linha de fecho

call SigLstRod                                   'listar rodape
PrWin FP                                         'terminar pagina
end sub


'----------------------------------------------------------------------SEMESTRAL FIM ----------------------------
SUB SemG_Fim 'totais finais
TCol1 = 46
TCol2 = 59
TCol3 = 68
TCol4 = 77
TCol5 = 84
TCol6 = 93
TCol7 =112
TCol8 =121
TCol9 =130
TCol10=138
TCol11=147
TCol12=163
TCol13=171

PrWin FON, "BOLD+"

call PosFimGr                                    'posicionar fim de pagina
py0 = 2                                          'posicao Y da linha de total
py1 = 4                                          'posicao Y do texto
py2 = 8                                          'posicao Y da linha final

PrWIN GR_LI,  0,py0,190,py0                      'linha de totais
PrWIN TX_N,  TCol1 ,py1,"Total:"
PrWIN TX_NP, TCol2 ,py1,"N",@TQ01r
PrWIN TX_NP, TCol3 ,py1,"N",@TQ02r
PrWIN TX_NP, TCol4 ,py1,"N",@TQ03r
PrWIN TX_NP, TCol5 ,py1,"N",@TQT1
PrWIN TX_NP, TCol6 ,py1,"N",@TVT1
PrWIN TX_NP, TCol7 ,py1,"N",@TQ04r
PrWIN TX_NP, TCol8 ,py1,"N",@TQ05r
PrWIN TX_NP, TCol9 ,py1,"N",@TQ06r
PrWIN TX_NP, TCol10,py1,"N",@TQT2
PrWIN TX_NP, TCol11,py1,"N",@TVT2
PrWIN TX_NP, TCol12,py1,"N",@TQTG
PrWIN TX_NP, TCol13,py1,"N",@TVTG
PrWIN GR_LI,  0,py2,190,py2                      'linha de totais

PrWin FP
PrWin FON, "BOLD-"
end sub


'--------------------------------------------------------------------------------
'ESTATISTICA TRIMESTRAL ------------------------------------------------ INICIO -
'--------------------------------------------------------------------------------

'---------------------------------------------------------------------TRIMESTRAL CABECALHO -----------------------
SUB TriG_Cab 'cabecalho
Call SigLstCab 

PrWIN AJT_B,  Margem, 26                 	'posicao base
PrWIN COR_T,CorTraco                          	'cor de linhas
PrWIN GR_LI, 0, 0, 190, 0             		'linha
PrWIN GR_LI, 0, 9, 190, 9                   	'linha

T1Col1 = 73
T1Col2 =104
T1Col3 =139
T1Col4 =166

TCol1  =  0
TCol2  = 30
TCol3  = 65
TCol4  = 82
TCol5  = 98
TCol6  =115
TCol7  =130
TCol8  =147
TCol9  =164
TCol10 =180

PrWIN COR_T,  CorTitLst                       	'cor de titulo

PrWIN FON  , "BOLD+"                          	'activar bold
PrWIN FON  , 7,   1                          	'activar fonte
PrWIN TX_NP,T1Col1, 1.5,"N",@Mes01
PrWIN TX_NP,T1Col2, 1.5,"N",@Mes02
PrWIN TX_NP,T1Col3, 1.5,"N",@Mes03
PrWIN TX_N, T1Col4, 1.5,"Total Trimestre"

PrWIN TX_N, TCol1 , 5,"Código"
PrWIN TX_N, TCol2 , 5,"Nome"
PrWIN TX_N, TCol3 , 5,"Quant."
PrWIN TX_N, TCol4 , 5,"Valor"
PrWIN TX_N, TCol5 , 5,"Quant."
PrWIN TX_N, TCol6 , 5,"Valor"
PrWIN TX_N, TCol7 , 5,"Quant."
PrWIN TX_N, TCol8 , 5,"Valor"
PrWIN TX_N, TCol9 , 5,"Quant."
PrWIN TX_N, TCol10, 5,"Valor"
PrWIN FON  , "BOLD-"                          	'desactivar bold
end sub


'---------------------------------------------------------------------TRIMESTRAL LINHA -------------------------
SUB TriG_Lin 'linha de valores
LCol1  =  0
LCol2  = 23
LCol3  = 64
LCol4  = 76
LCol5  = 96
LCol6  =109
LCol7  =128
LCol8  =141
LCol9  =161
LCol10 =172

tmp=CntLin("MIN",2)                             'minimo de linhas
tmp=CntLin("INC",1)                             'contar linha
call PosLinGr                                   'posicionar linha

PrWIN FON  , 7,   1 
PrWIN TX_N , LCol1 ,0,@LinCov
PrWIN TX_N , LCol2 ,0,@LinIde25
PrWIN TX_NP, LCol3 ,0,"N",@MQ01
PrWIN TX_NP, LCol4 ,0,"N",@MV01
PrWIN TX_NP, LCol5 ,0,"N",@MQ02
PrWIN TX_NP, LCol6 ,0,"N",@MV02
PrWIN TX_NP, LCol7 ,0,"N",@MQ03
PrWIN TX_NP, LCol8 ,0,"N",@MV03
PrWIN TX_NP, LCol9 ,0,"N",@MQT1
PrWIN TX_NP, LCol10,0,"N",@MVT1
End sub


'---------------------------------------------------------------------TRIMESTRAL GRUPO -------------------------
SUB TriG_LinGrp 'titulo de grupo
tmp=CntLin("MIN",3)                             'minimo de linhas
tmp=CntLin("INC",1)                             'contar linha
call PosLinGr                                   'posicionar linha

c3$= MemTxt$(13)
n3$= MemTxt$(12)
ide3$=c3$+" "+n3$

PrWIN FON  , 8,   1                          	'activar fonte
PrWin FON, "BOLD+"                              'activar bold
PrWIN TX_N,0,0,ide3$                            'identificacao
PrWin FON, "BOLD-"                              'desactivar bold
PrWIN FON  , 7,   1                          	'activar fonte
end sub


'---------------------------------------------------------------------TRIMESTRAL SUBTOTAL ---------------------
SUB TriG_LinSbt 'linha de subtotal
nli=Doc_CntLin                                  'numero de linhas
nrg = TotCnt("LinIde25",1)                      'numero de registos

SCol1  =  0
SCol2  = 23
SCol3  = 64
SCol4  = 76
SCol5  = 96
SCol6  =109
SCol7  =128
SCol8  =141
SCol9  =161
SCol10 =172

if nrg > 1 then                                 'listar subtotal ?
   tmp=CntLin("INC",1)                          'contar linhas
   call PosLinGr                                'posicionar linha

   PrWin FON, "BOLD+"
   PrWin FON, "ITAL+"

   PrWIN TX_N,  Scol2, 0,"Subtotal:"
   PrWIN TX_NP, SCol3, 0,"N",@SQ01
   PrWIN TX_NP, SCol4 ,0,"N",@SV01
   PrWIN TX_NP, SCol5 ,0,"N",@SQ02
   PrWIN TX_NP, SCol6 ,0,"N",@SV02
   PrWIN TX_NP, SCol7 ,0,"N",@SQ03
   PrWIN TX_NP, SCol8 ,0,"N",@SV03
   PrWIN TX_NP, SCol9 ,0,"N",@SQT1
   PrWIN TX_NP, SCol10,0,"N",@SVT1
   tmp=CntLin("INC",)                           'contar linhas

   PrWin FON, "BOLD-"
   PrWin FON, "ITAL-"
end if

if nrg > 0 then                                 'separar ?
   tmp=CntLin("INC",1)                          'contar linhas
   call PosLinGr                                'posicionar linha
   x=TotLpz(1)                                  'limpar totais
end if
end sub



'---------------------------------------------------------------------TRIMESTRAL SEPARACAO --------------------
SUB TriG_LinSep 'linha de separacao
end sub


'---------------------------------------------------------------------TRIMESTRAL AJUSTE -----------------------
SUB TriG_FimAjt 'fim de pagina intermedia
call PosFimGr                                    'posicionar fim de pagina
PrWIN GR_LI, 0, 0, 190, 0                        'linha de fecho

call SigLstRod                                   'listar rodape
PrWin FP                                         'terminar pagina
end sub


'---------------------------------------------------------------------TRIMESTRAL FIM -------------------------
SUB TriG_Fim 'totais finais
TCol1  =  0
TCol2  = 23
TCol3  = 64
TCol4  = 76
TCol5  = 96
TCol6  =109
TCol7  =128
TCol8  =141
TCol9  =161
TCol10 =172

PrWin FON, "BOLD+"

call PosFimGr                                    'posicionar fim de pagina
py0 = 2                                          'posicao Y da linha de total
py1 = 4                                          'posicao Y do texto
py2 = 8                                          'posicao Y da linha final

PrWIN GR_LI,  0,py0,190,py0                      'linha de totais
PrWIN TX_N, Tcol2, py1,"Total:"
PrWIN TX_NP,TCol3, py1,"N",@TQ01
PrWIN TX_NP,TCol4, py1,"N",@TV01
PrWIN TX_NP,TCol5, py1,"N",@TQ02
PrWIN TX_NP,TCol6, py1,"N",@TV02
PrWIN TX_NP,TCol7, py1,"N",@TQ03
PrWIN TX_NP,TCol8, py1,"N",@TV03
PrWIN TX_NP,TCol9, py1,"N",@TQT1
PrWIN TX_NP,TCol10,py1,"N",@TVT1
PrWIN GR_LI,  0,py2,190,py2                      'linha de totais

PrWin FP
PrWin FON, "BOLD-"
end sub



'--------------------------------------------------------------------------------
'ESTATISTICA MENSAL ---------------------------------------------------- INICIO -
'--------------------------------------------------------------------------------

'---------------------------------------------------------------------MENSAL CABECALHO --------------------
SUB MesG_Cab 'cabecalho
Call SigLstCab 

T1Col1 = 162

Tcol1  =  0
TCol2  = 60
Tcol3  =153
Tcol4  =175 

PrWIN AJT_B,  Margem, 26                  	'posicao base
PrWIN COR_T,CorTraco                          	'cor de linhas
PrWIN GR_LI, 0, 0, 190, 0              		'linha
PrWIN GR_LI, 0, 9, 190, 9                   	'linha

PrWin FON, "BOLD+"                              'activar bold
PrWIN COR_T,  CorTitLst                       	'cor de titulo
PrWIN FON  , 9,   1                          	'activar fonte
PrWIN TX_NP, T1Col1,1.5,"N",@Mes01
PrWIN TX_N,  TCol1 ,  5,"Código"
PrWIN TX_N,  TCol2 ,  5,"Nome"
PrWIN TX_N,  TCol3 ,  5,"Quant."
PrWIN TX_N,  TCol4 ,  5,"Valor"
PrWin FON, "BOLD-"                              'desactivar bold
end sub


'---------------------------------------------------------------------MENSAL LINHA --------------------
SUB MesG_Lin 'linha de valores
LCol1 =  0
LCol2 = 40
LCol3 =146
LCol4 =160 

tmp=CntLin("MIN",2)                             'minimo de linhas
tmp=CntLin("INC",1)                             'contar linha
call PosLinGr                                   'posicionar linha

PrWIN TX_NP,  LCol1,  0,"N",@LinCov
PrWIN TX_NP,  LCol2,  0,"N",@LinIde
PrWIN TX_NP,  LCol3,  0,"N",@MQTG
PrWIN TX_NP,  LCol4,  0,"N",@MVTG
End sub


'---------------------------------------------------------------------MENSAL GRUPO --------------------
SUB MesG_LinGrp 'titulo de grupo
tmp=CntLin("MIN",3)                             'minimo de linhas
tmp=CntLin("INC",1)                             'contar linha
call PosLinGr                                   'posicionar linha

ide1$=MemTxt$(13)+"              "+MemTxt$(12)  'identificar grupo

PrWin FON, "BOLD+"                              'activar bold
PrWIN TX_N,0,0,ide1$                            'identificacao
PrWin FON, "BOLD-"                              'desactivar bold
end sub


'---------------------------------------------------------------------MENSAL SUBTOTAL -----------------
SUB MesG_LinSbt 'linha de subtotal
nli=Doc_CntLin                                  'numero de linhas
nrg = TotCnt("LinIde",1)                        'numero de registos

SCol1 =  0
SCol2 = 40
SCol3 =146
SCol4 =160 

if nrg > 1 then                                 'listar subtotal ?
   tmp=CntLin("INC",1)                          'contar linhas
   call PosLinGr                                'posicionar linha

   PrWin FON, "BOLD+"
   PrWin FON, "ITAL+"

   PrWIN TX_N,  SCol2,  0,"Subtotal:"
   PrWIN TX_NP, SCol3,  0,"N",@SQTG
   PrWIN TX_NP, SCol4,  0,"N",@SVTG
   tmp=CntLin("INC",)                           'contar linhas

   PrWin FON, "BOLD-"
   PrWin FON, "ITAL-"
end if

if nrg > 0 then                                 'separar ?
   tmp=CntLin("INC",1)                          'contar linhas
   call PosLinGr                                'posicionar linha
   x=TotLpz(1)                                  'limpar totais
end if
end sub


'---------------------------------------------------------------------MENSAL SEPARACAO -----------------
SUB MesG_LinSep 'linha de separacao
end sub


'---------------------------------------------------------------------MENSAL AJUSTE --------------------
SUB MesG_FimAjt 'fim de pagina intermedia
call PosFimGr                                    'posicionar fim de pagina
PrWIN GR_LI, 0, 0, 190, 0                        'linha de fecho

call SigLstRod                                   'listar rodape
PrWin FP                                         'terminar pagina
end sub


'---------------------------------------------------------------------MENSAL FINAL ----------------------
SUB MesG_Fim 'totais finais
TCol1 =  0
TCol2 = 40
TCol3 =146
TCol4 =160 

PrWin FON, "BOLD+"
call PosFimGr                                    'posicionar fim de pagina
py0 = 2                                          'posicao Y da linha de total
py1 = 3                                          'posicao Y do texto
py2 = 8                                          'posicao Y da linha final

PrWIN GR_LI,  0,py0,190,py0                      'linha de totais
PrWIN TX_N,   Tcol2,py1,"Total:"
PrWIN TX_NP,  TCol3,py1,"N",@TQTG
PrWIN TX_NP,  TCol4,py1,"N",@TVTG
PrWIN GR_LI,  0,py2,190,py2                      'linha de totais

PrWin FP
PrWin FON, "BOLD-"
end sub



'--------------------------------------------------------------------------------
'ESTATISTICA MES / ANO ------------------------------------------------- INICIO -
'--------------------------------------------------------------------------------

'---------------------------------------------------------------------MES/ANO CABECALHO ---------------
SUB MesAnoG_Cab 'cabecalho
Call SigLstCab 

PrWIN AJT_B,  Margem, 26                    	'posicao base
PrWIN COR_T,CorTraco                          	'cor de linhas
PrWIN GR_LI, 0, 0, 190, 0              		'linha
PrWIN GR_LI, 0, 9, 190, 9                   	'linha

TeCol1 = 93
TeCol2 =124

TCol1=  0
TCol2= 40
TCol3= 86
TCol4=102
TCol5=123
TCol6=139
TCol7=163

PrWin FON, "BOLD+"                              'activar bold

PrWIN COR_T,  CorTitLst                       	'cor de titulo
PrWIN FON  , 8,   1                          	'activar fonte
PrWIN TX_NP, TeCol1,1.5,"N",@Mes00
PrWIN TX_N,  TeCol2,1.5,"Valores do Ano"

PrWIN TX_N, TCol1, 5,"Código"
PrWIN TX_N, TCol2, 5,"Nome"
PrWIN TX_N, TCol3, 5,"Quant."
PrWIN TX_N, TCol4, 5,"Valor"
PrWIN TX_N, TCol5, 5,"Quant."
PrWIN TX_N, TCol6, 5,"Valor"
PrWIN TX_N, TCol7, 5,"Observações"
PrWin FON, "BOLD-"                              'desactivar bold
end sub


'---------------------------------------------------------------------MES/ANO LINHA -------------------
SUB MesAnoG_Lin 'linha de valores
LCol1=  0
LCol2= 28
LCol3= 84
LCol4= 95
LCol5=116
LCol6=127

tmp=CntLin("MIN",2)                             'minimo de linhas
tmp=CntLin("INC",1)                             'contar linha
call PosLinGr                                   'posicionar linha

'linhas
PrWIN TX_NP, LCol1,  0,"N",@LinCov

PrWIN FON  , 7,   1 
PrWIN TX_NP, LCol2,  0.5,"N",@LinIde
PrWIN FON  , 8,   1 

PrWIN TX_NP, LCol3,  0,"N",@MQ00
PrWIN TX_NP, LCol4,  0,"N",@MV00
PrWIN TX_NP, LCol5,  0,"N",@MQTG
PrWIN TX_NP, LCol6,  0,"N",@MVTG
End sub


'---------------------------------------------------------------------MES/ANO GRUPO -------------------
SUB MesAnoG_LinGrp 'titulo de grupo
tmp=CntLin("MIN",3)                             'minimo de linhas
tmp=CntLin("INC",1)                             'contar linha
call PosLinGr                                   'posicionar linha

c5$= MemTxt$(13)
n5$= MemTxt$(12)
ide5$= c5$+"           "+n5$

PrWin FON, "BOLD+"                              'activar bold
PrWIN TX_N,0,0,ide5$                            'identificacao
PrWin FON, "BOLD-"                              'desactivar bold
end sub


'---------------------------------------------------------------------MES/ANO SUBTOTAL ---------------
SUB MesAnoG_LinSbt 'linha de subtotal
nli=Doc_CntLin                                  'numero de linhas
nrg = TotCnt("LinIde",1)                        'numero de registos

SCol1=  0
SCol2= 28
SCol3= 84
SCol4= 95
SCol5=116
SCol6=127

if nrg > 1 then                                 'listar subtotal ?
   tmp=CntLin("INC",1)                          'contar linhas
   call PosLinGr                                'posicionar linha

   PrWin FON, "BOLD+"
   PrWin FON, "ITAL+"

   PrWIN TX_N,  SCol2, 0,"Subtotal:"
   PrWIN TX_NP, SCol3, 0,"N",@SQ00
   PrWIN TX_NP, SCol4, 0,"N",@SV00
   PrWIN TX_NP, SCol5, 0,"N",@SQTG
   PrWIN TX_NP, SCol6, 0,"N",@SVTG
   tmp=CntLin("INC",)        		        'contar linhas

   PrWin FON, "BOLD-"
   PrWin FON, "ITAL-"
end if

if nrg > 0 then                                 'separar ?
   tmp=CntLin("INC",1)                          'contar linhas
   call PosLinGr                                'posicionar linha
   x=TotLpz(1)                                  'limpar totais
end if
end sub


'---------------------------------------------------------------------MES/ANO SEPARACAO --------------
SUB MesAnoG_LinSep 'linha de separacao
end sub


'---------------------------------------------------------------------MES/ANO AJUSTE -----------------
SUB MesAnoG_FimAjt 'fim de pagina intermedia
call PosFimGr                                    'posicionar fim de pagina
PrWIN GR_LI, 0, 0, 190, 0                        'linha de fecho

call SigLstRod                                   'listar rodape
PrWin FP                                         'terminar pagina
end sub


'---------------------------------------------------------------------MES/ANO FIM --------------------
SUB MesAnoG_Fim 'totais finais

TCol1=  0
TCol2= 28
TCol3= 84
TCol4= 95
TCol5=116
TCol6=127

PrWin FON, "BOLD+"
call PosFimGr                                    'posicionar fim de pagina
py0 = 2                                          'posicao Y da linha de total
py1 = 3                                          'posicao Y do texto
py2 = 8                                          'posicao Y da linha final


PrWIN GR_LI,  0,py0,190,py0                      'linha de totais
PrWIN TX_N, TCol2,py1,"Total:"
PrWIN TX_NP,TCol3,py1,"N",@TQ00
PrWIN TX_NP,TCol4,py1,"N",@TV00
PrWIN TX_NP,TCol5,py1,"N",@TQTG
PrWIN TX_NP,TCol6,py1,"N",@TVTG
PrWIN GR_LI,  0,py2,190,py2                      'linha de totais

PrWin FP
PrWin FON, "BOLD-"
end sub



'--------------------------------------------------------------------------------
'ESTATISTICA ANUAL (TOTAL) --------------------------------------------- INICIO -
'--------------------------------------------------------------------------------
'---------------------------------------------------------------------TOTAL ANUAL CABECALHO -------
SUB TanG_Cab 'cabecalho
Call SigLstCab 

PrWIN AJT_B,  Margem, 26                    	'posicao base
PrWIN COR_T,CorTraco                          	'cor de linhas
PrWIN GR_LI, 0, 0, 190, 0              		'linha
PrWIN GR_LI, 0, 9, 190, 9                   	'linha

TCol1=  0
TCol2= 50
TCol3=140
TCol4=170

PrWin FON, "BOLD+"                              'activar bold
PrWIN COR_T,  CorTitLst                       	'cor de titulo
PrWIN FON  , 9,   1                          	'activar fonte
PrWIN TX_N,TCol1,2.5,"Código"
PrWIN TX_N,TCol2,2.5,"Nome"
PrWIN TX_N,TCol3,2.5,"Quantidade"
PrWIN TX_N,TCol4,2.5,"Valor"
PrWin FON, "BOLD-"                              'desactivar bold
end sub


'---------------------------------------------------------------------TOTAL ANUAL LINHA -----------
SUB TanG_Lin 'linha de valores
LCol1=  0
LCol2= 40
LCol3=135
LCol4=158

tmp=CntLin("MIN",2)                             'minimo de linhas
tmp=CntLin("INC",1)                             'contar linha
call PosLinGr                                   'posicionar linha

PrWIN TX_NP,  LCol1,  0,"N",@LinCov
PrWIN TX_NP,  LCol2,  0,"N",@LinIde
PrWIN TX_NP,  LCol3,  0,"N",@MQTG
PrWIN TX_NP,  LCol4,  0,"N",@MVTG
end sub


'---------------------------------------------------------------------TOTAL ANUAL GRUPO ----------
SUB TanG_LinGrp 'titulo de grupo
tmp=CntLin("MIN",3)                             'minimo de linhas
tmp=CntLin("INC",1)                             'contar linha
call PosLinGr                                   'posicionar linha

ide6$=MemTxt$(13)+"               "+MemTxt$(12) 'identificar grupo

PrWin FON, "BOLD+"                              'activar bold
PrWIN TX_N,0,0,ide6$                            'identificacao
PrWin FON, "BOLD-"                              'desactivar bold
end sub


'---------------------------------------------------------------------TOTAL ANUAL SUBTOTAL ------
SUB TanG_LinSbt 'linha de subtotal
nli=Doc_CntLin                                  'numero de linhas
nrg = TotCnt("LinIde",1)                        'numero de registos

SCol1=  0
SCol2=100
SCol3=135
SCol4=158

if nrg > 1 then                                 'listar subtotal ?
   tmp=CntLin("INC",1)                          'contar linhas
   call PosLinGr                                'posicionar linha

   PrWin FON, "BOLD+"                           'activar bold
   PrWin FON, "ITAL+"                           'activar italico
   PrWIN TX_N, Scol2, 0,"Subtotal:"
   PrWIN TX_NP,SCol3, 0,"N",@SQTG
   PrWIN TX_NP,SCol4, 0,"N",@SVTG

   tmp=CntLin("INC",)  
   PrWin FON, "BOLD-"                           'desactivar bold
   PrWin FON, "ITAL-"                           'desactivar italico
end if

if nrg > 0 then                                 'separar ?
   tmp=CntLin("INC",1)                          'contar linhas
   call PosLinGr                                'posicionar linha
   x=TotLpz(1)                                  'limpar totais
end if
end sub


'---------------------------------------------------------------------TOTAL ANUAL SEPARACAO -----
SUB TanG_LinSep 'linha de separacao
end sub


'---------------------------------------------------------------------TOTAL ANUAL AJUSTE --------
SUB TanG_FimAjt 'fim de pagina intermedia
call PosFimGr                                    'posicionar fim de pagina
PrWIN GR_LI, 0, 0, 190, 0                        'linha de fecho

call SigLstRod                                   'listar rodape
PrWin FP                                         'terminar pagina
end sub


'---------------------------------------------------------------------TOTAL ANUAL FIM -----------
SUB TanG_Fim 'totais finais
TCol1=  0
TCol2= 40
TCol3=135
TCol4=158

PrWin FON, "BOLD+"
call PosFimGr                                    'posicionar fim de pagina
py0 = 2                                          'posicao Y da linha de total
py1 = 3                                          'posicao Y do texto
py2 = 8                                          'posicao Y da linha final

PrWIN GR_LI, 0,py0, 190, py0                     'linha
PrWIN TX_N,  Lcol2, py1,"Total:"
PrWIN TX_NP, LCol3, py1,"N",@TQTG
PrWIN TX_NP, LCol4, py1,"N",@TVTG
PrWIN GR_LI,  0,py2,190,py2                      'linha de totais

PrWin FP
PrWin FON, "BOLD-"
end sub

'------------------------------------------------------------- FIM LISTAGENS GRAFICAS ------------


'==============================================================================
'= Listagem para EXCEL ========================================================
'==============================================================================
'---------------------------------------------------------->'Comentario (61)
'------------------------------------------------->'Comentario (52)
'------------------------------------->'Comentario (40)

'=============================================================================
' XLS - Funcoes comuns
'=============================================================================
Sub Xls_DocIni 'inicializar documento
dfi$ = FicEmp$("EMP","Ext","dExcel",cmo$)          'directorio de documentos EXCEL
nfi$ = "RND:StaAcm.xls"                            'nome do ficheiro
cmo$ = SigCmoCur$("MIX")                           'modulo corrente
ficDoc$ = FicTmp$(dfi$, nfi$)                      'ficheiro para documento
res = DirCri("D", dfi$)                            'criar directorio para documento

xlsMatNom$ = DocOpc$("DocMat")                     'nome do ficheiro matriz
xlsMat$    = DocOpc$("DocMat+SBT")                 'endereco do ficheiro matriz

res = FicCop(xlsMat$, ficDoc$)                     'criar ficheiro (copia de matriz)

res = XlsPrp(0)                                    'preparar EXCEL
res = XlsDocLer(ficDoc$)                           'ler ficheiro

'res = XlsDocCri("")                                'criar documento
end sub


Sub Xls_DocFim 'terminar documento
res = XlsLinEli(xlsLin, 1)                         'eliminar linha - ultima
res = XlsLinEli(xlsLba, 1)                         'eliminar linha - primeira

'res = XlsWks(1)                                    'activar worksheet

res = XlsDocDir$("A", dfi$)                        'activar directorio
res = XlsDocGrv(ficDoc$)                           'gravar ficheiro

'res = XlsPrt(1)                                    'listar worksheet
'res = XlsVer(0)                                    'mostrar EXCEL - normal
res = XlsVer(1)                                    'mostrar EXCEL - maximizado
res = XlsLib(0)                                    'libertar EXCEL
end sub


Sub Xls_LinFim 'fim de linhas
res = XlsLinEli(xlsLin, 1)                         'eliminar linha - ultima
res = XlsLinEli(xlsLba, 1)                         'eliminar linha - primeira

res = XlsIdePsq("PO_FIM")                          'pesquisar posicao final
linFim = XlsIdePsqRes("L")                         'linha da posicao final
end sub


Sub Xls_LinInc 'incrementar linha
xlsLsa = xlsLin                                    'linha de saida
res = XlsLinIns(xlsLin, 1)                         'juntar linha

'seguinte
xlsLin = xlsLin + 1                                'contar linha

'msgbox "", "LIN INC "+ xlsLin + " " + xlsLsa
end sub


'=============================================================================
' Listagem ACM para EXCEL
'=============================================================================
Sub XlsAcmTri_DocIni 'inicializar documento
call Xls_DocIni                                    'inicializar documento
call XlsAcmTri_Prep                                'preparar
end sub


Sub XlsAcmTri_DocFim 'terminar documento
linIni = linBav                                    'linha inicial
linFim = linCnt                                    'linha final

'mostrar
call Xls_DocFim                                    'terminar/mostrar documento
end sub


Sub XlsAcmTri_Prep 'preparar para listar
res = XlsWks("Valores")                            'activar worksheet

res = XlsIdePsq("PO_BAS")                          'pesquisar posicao base
linBav = XlsIdePsqRes("L")                         'linha da posicao base

xlsLba = linBav                                    'linha base
xlsLin = linBav + 1                                'contador de linhas usadas

'definicao das colunas
coCod = 2                                          'codigo
coNom = 3                                          'nome
coQu1 = 4                                          'quantidade mes 1
coVl1 = 5                                          'valor mes 1
coQu2 = 6                                          'quantidade mes 2
coVl2 = 7                                          'valor mes 2
coQu3 = 8                                          'quantidade mes 3
coVl3 = 9                                          'valor mes 3
coQuT =10                                          'quantidade Total
coVlT =11                                          'valor Total

'diversos
call XlsAcmTri_Cab                                 'cabecalho

'msgbox "", "PREP "+ xlsLin
end sub


Sub XlsAcmTri_IncLin 'incrementar linha	
'msgbox "", "INC"

call Xls_LinInc                                    'incrementar linha
liUsa =  xlsLsa                                    'linha a usar

zon$= XlsZonNum$("L", liUsa)                       'zona da linha
res = XlsFon(zon$, ",,B-I-")                       'activar fonte bold, italico
end sub


Sub XlsAcmTri_Cab 'cabecalho	
empNum$ = Emp_Inf_Cod$                             'numero da empresa
empNom$ = Emp_Inf_Nome$                            'nome da empresa
lstTip$ = MemTxt$(2)                               'tipo da listagem
lstDt$  = FrmDt$("EXT", Sig_DtHoje)                'data para listagem

'nomes dos meses
mes01$  = MemTxt$(51)
mes02$  = MemTxt$(52)
mes03$  = MemTxt$(53)

res = XlsIdeLst("Emp_Num", empNum$)                'numero da empresa
res = XlsIdeLst("Emp_Nome", empNom$)               'nome da empresa
res = XlsIdeLst("Lst_Tipo", lstTip$)               'tipo da listagem
res = XlsIdeLst("Lst_Data", lstDt$)                'data
res = XlsIdeLst("Lst_Mes01",mes01$)                'nome para mes 1
res = XlsIdeLst("Lst_Mes02",mes02$)                'nome para mes 2
res = XlsIdeLst("Lst_Mes03",mes03$)                'nome para mes 3
end sub


Sub XlsAcmTri_Lst 'listar
'msgbox "", "LST"
call XlsAcmTri_IncLin                              'incrementar linha	

res = XlsLst(liUsa, coCod, cov$)                   'codigo
res = XlsLst(liUsa, coNom, ide$)                   'nome
res = XlsLst(liUsa, coQu1, q1)                     'quantidade mes 1
res = XlsLst(liUsa, coVl1, v1)                     'valor mes 1
res = XlsLst(liUsa, coQu2, q2)                     'quantidade mes 2
res = XlsLst(liUsa, coVl2, v2)                     'valor mes 2
res = XlsLst(liUsa, coQu3, q3)                     'quantidade mes 3
res = XlsLst(liUsa, coVl3, v3)                     'valor mes 3
res = XlsLst(liUsa, coQuT, qT)                     'quantidade total
res = XlsLst(liUsa, coVlT, vT)                     'valor total
end sub


Sub XlsAcmTri_Lin 'linha de valores
'msgbox "", "LIN"

'valores a listar
cod$ = MemTxt$(21)                                 'codigo
ide$ = MemTxt$(22)                                 'identificacao
cov$ = MemTxt$(23)                                 'codigo formatado

q1   = MemNum(11)                                  'quantidade 1
v1   = MemNum(41)                                  'valor 1
q2   = MemNum(12)                                  'quantidade 2
v2   = MemNum(42)                                  'valor 2
q3   = MemNum(13)                                  'quantidade 3
v3   = MemNum(43)                                  'valor 3
qT   = MemNum(31)                                  'quantidade total
vT   = MemNum(61)                                  'valor total

'listar
call XlsAcmTri_Lst                                 'listar

'acumular
res = AcmExe("MQ01", q1)                           'mes 1 - quantidade
res = AcmExe("MV01", v1)                           'mes 1 - valor

res = AcmExe("MQ02", q2)                           'mes 2 - quantidade
res = AcmExe("MV02", v2)                           'mes 2 - valor

res = AcmExe("MQ03", q3)                           'mes 3 - quantidade
res = AcmExe("MV03", v3)                           'mes 3 - valor

res = AcmExe("MQT1", qt)                           'total - quantidade
res = AcmExe("MVT1", vt)                           'total - valor
end sub


Sub XlsAcmTri_LinGrp 'titulo de grupo
call XlsAcmTri_IncLin                              'incrementar linha

codA$ = MemTxt$(13)                                'codigo do artigo
nomA$ = MemTxt$(12)                                'nome do artigo

'msgbox "", "GRP " + codA$+ " " + liUsa

'listar
res = XlsLst(liUsa, 2, codA$)                      'escrever codigo
res = XlsLst(liUsa, 3, nomA$)                      'escrever nome

zon$= XlsZonNum$("L", liUsa)                       'zona da linha
res = XlsFon(zon$, ",,B+I+")                       'activar fonte bold, italico
end sub


Sub XlsAcmTri_LinSbt 'linha de subtotal
nrg = TotCnt("MQ01" ,1)                            'numero de registos
if nrg > 1 then                                    'listar subtotal ?
   'valores a listar
   cov$ = ""                                       'codigo
   ide$ = "Subtotal"                               'identificacao

   q1   = Total("MQ01", 1)                         'mes 1 - quantidade
   v1   = Total("MV01", 1)                         'mes 1 - valor

   q2   = Total("MQ02", 1)                         'mes 2 - quantidade
   v2   = Total("MV02", 1)                         'mes 2 - valor

   q3   = Total("MQ03", 1)                         'mes 3 - quantidade
   v3   = Total("MV03", 1)                         'mes 3 - valor

   qt   = Total("MQT1", 1)                         'total - quantidade
   vt   = Total("MVT1", 1)                         'total - valor


   'listar
   call XlsAcmTri_Lst                              'listar

   zon$= XlsZonNum$("L", liUsa)                    'zona da linha
   res = XlsFon(zon$, ",,I+")                      'activar fonte bold, italico
end if
call XlsAcmTri_IncLin                              'incrementar linha

x=TotLpz(1)                                        'limpar totais
end sub


Sub XlsAcmTri_LinSep 'linha de separacao
call XlsAcmTri_LinInc                              'incrementar linha
end sub


Sub XlsAcmTri_Fim 'terminar
call Xls_LinFim                                    'fim de linhas

'valores a listar
q1   = Total("MQ01", 0)                            'mes 1 - quantidade
v1   = Total("MV01", 0)                            'mes 1 - valor

q2   = Total("MQ02", 0)                            'mes 2 - quantidade
v2   = Total("MV02", 0)                            'mes 2 - valor

q3   = Total("MQ03", 0)                            'mes 3 - quantidade
v3   = Total("MV03", 0)                            'mes 3 - valor

qt   = Total("MQT1", 0)                            'total - quantidade
vt   = Total("MVT1", 0)                            'total - valor

'listar
liUsa = linFim                                     'linha a usar

res = XlsLst(liUsa, coQu1, q1)                     'quantidade mes 1
res = XlsLst(liUsa, coVl1, v1)                     'valor mes 1
res = XlsLst(liUsa, coQu2, q2)                     'quantidade mes 2
res = XlsLst(liUsa, coVl2, v2)                     'valor mes 2
res = XlsLst(liUsa, coQu3, q3)                     'quantidade mes 3
res = XlsLst(liUsa, coVl3, v3)                     'valor mes 3
res = XlsLst(liUsa, coQuT, qT)                     'quantidade total
res = XlsLst(liUsa, coVlT, vT)                     'valor total

'mostrar
res = XlsWksAct("A", 1)                            'activar worksheet
end sub


'------------------------------------------------------------------------- Anual Geral (XLS)
Sub XlsAcmAno_DocIni 'inicializar documento
call Xls_DocIni                                    'inicializar documento
call XlsAcmAno_Prep                                'preparar
end sub


Sub XlsAcmAno_DocFim 'terminar documento
linIni = linBav                                    'linha inicial
linFim = linCnt                                    'linha final

'mostrar
call Xls_DocFim                                    'terminar/mostrar documento
end sub


Sub XlsAcmAno_Prep 'preparar para listar
res = XlsWks("Valores")                            'activar worksheet

res = XlsIdePsq("PO_BAS")                          'pesquisar posicao base
linBav = XlsIdePsqRes("L")                         'linha da posicao base

xlsLba = linBav                                    'linha base
xlsLin = linBav + 1                                'contador de linhas usadas

'definicao das colunas
coCod  = 2                                          'codigo
coNom  = 3                                          'nome
coQu01 = 4                                          'quantidade mes 1
coVl01 = 5                                          'valor mes 1
coQu02 = 6                                          'quantidade mes 2
coVl02 = 7                                          'valor mes 2
coQu03 = 8                                          'quantidade mes 3
coVl03 = 9                                          'valor mes 3
coQuT1 =10                                          'quantidade Trimestre 1
coVlT1 =11                                          'valor Trimestre 1

coQu04 =12                                          'quantidade mes 4
coVl04 =13                                          'valor mes 4
coQu05 =14                                          'quantidade mes 5
coVl05 =15                                          'valor mes 5
coQu06 =16                                          'quantidade mes 6
coVl06 =17                                          'valor mes 6
coQuT2 =18                                          'quantidade Trimestre 2
coVlT2 =19                                          'valor Trimestre 2
coQuS1 =20                                          'quantidade Semestre 1
coVlS1 =21                                          'valor Semestre 1

coQu07 =22                                          'quantidade mes 4
coVl07 =23                                          'valor mes 4
coQu08 =24                                          'quantidade mes 5
coVl08 =25                                          'valor mes 5
coQu09 =26                                          'quantidade mes 6
coVl09 =27                                          'valor mes 6
coQuT3 =28                                          'quantidade Trimestre 3
coVlT3 =29                                          'valor Trimestre 3

coQu10 =30                                          'quantidade mes 10
coVl10 =31                                          'valor mes 10
coQu11 =32                                          'quantidade mes 11
coVl11 =33                                          'valor mes 11
coQu12 =34                                          'quantidade mes 12
coVl12 =35                                          'valor mes 12
coQuT4 =36                                          'quantidade Trimestre 4
coVlT4 =37                                          'valor Trimestre 4
coQuS2 =38                                          'quantidade Semestre 2
coVlS2 =39                                          'valor Semestre 1

coQuF1 =40                                          'quantidade Final Anual 1
coVlF1 =41                                          'valor Final Anual 1


'diversos
call XlsAcmAno_Cab                                 'cabecalho

'msgbox "", "PREP "+ xlsLin
end sub


Sub XlsAcmAno_IncLin 'incrementar linha	
'msgbox "", "INC"

call Xls_LinInc                                    'incrementar linha
liUsa =  xlsLsa                                    'linha a usar

zon$= XlsZonNum$("L", liUsa)                       'zona da linha
res = XlsFon(zon$, ",,B-I-")                       'activar fonte bold, italico
end sub


Sub XlsAcmAno_Cab 'cabecalho	
empNum$ = Emp_Inf_Cod$                             'numero da empresa
empNom$ = Emp_Inf_Nome$                            'nome da empresa
lstTip$ = MemTxt$(2)                               'tipo da listagem
lstDt$  = FrmDt$("EXT", Sig_DtHoje)                'data para listagem

'nomes dos meses
mes01$  = MemTxt$(51)
mes02$  = MemTxt$(52)
mes03$  = MemTxt$(53)
mes04$  = MemTxt$(54)
mes05$  = MemTxt$(55)
mes06$  = MemTxt$(56)
mes07$  = MemTxt$(57)
mes08$  = MemTxt$(58)
mes09$  = MemTxt$(59)
mes10$  = MemTxt$(60)
mes11$  = MemTxt$(61)
mes12$  = MemTxt$(62)

res = XlsIdeLst("Emp_Num", empNum$)                'numero da empresa
res = XlsIdeLst("Emp_Nome", empNom$)               'nome da empresa
res = XlsIdeLst("Lst_Tipo", lstTip$)               'tipo da listagem
res = XlsIdeLst("Lst_Data", lstDt$)                'data
res = XlsIdeLst("Lst_Mes01",mes01$)                'nome para mes 1
res = XlsIdeLst("Lst_Mes02",mes02$)                'nome para mes 2
res = XlsIdeLst("Lst_Mes03",mes03$)                'nome para mes 3
res = XlsIdeLst("Lst_Mes04",mes04$)                'nome para mes 4
res = XlsIdeLst("Lst_Mes05",mes05$)                'nome para mes 5
res = XlsIdeLst("Lst_Mes06",mes06$)                'nome para mes 6
res = XlsIdeLst("Lst_Mes07",mes07$)                'nome para mes 7
res = XlsIdeLst("Lst_Mes08",mes08$)                'nome para mes 8
res = XlsIdeLst("Lst_Mes09",mes09$)                'nome para mes 9
res = XlsIdeLst("Lst_Mes10",mes10$)                'nome para mes 10
res = XlsIdeLst("Lst_Mes11",mes11$)                'nome para mes 11
res = XlsIdeLst("Lst_Mes12",mes12$)                'nome para mes 12
end sub


Sub XlsAcmAno_Lst 'listar
'msgbox "", "LST"
call XlsAcmAno_IncLin                              'incrementar linha	

res = XlsLst(liUsa, coCod, cov$)                   'codigo
res = XlsLst(liUsa, coNom, ide$)                   'nome
res = XlsLst(liUsa, coQu01, qm1)                   'quantidade mes 1
res = XlsLst(liUsa, coVl01, vm1)                   'valor mes 1
res = XlsLst(liUsa, coQu02, qm2)                   'quantidade mes 2
res = XlsLst(liUsa, coVl02, vm2)                   'valor mes 2
res = XlsLst(liUsa, coQu03, qm3)                   'quantidade mes 3
res = XlsLst(liUsa, coVl03, vm3)                   'valor mes 3
res = XlsLst(liUsa, coQu04, qm4)                   'quantidade mes 4
res = XlsLst(liUsa, coVl04, vm4)                   'valor mes 4
res = XlsLst(liUsa, coQu05, qm5)                   'quantidade mes 5
res = XlsLst(liUsa, coVl05, vm5)                   'valor mes 5
res = XlsLst(liUsa, coQu06, qm6)                   'quantidade mes 6
res = XlsLst(liUsa, coVl06, vm6)                   'valor mes 6
res = XlsLst(liUsa, coQu07, qm7)                   'quantidade mes 7
res = XlsLst(liUsa, coVl07, vm7)                   'valor mes 7
res = XlsLst(liUsa, coQu08, qm8)                   'quantidade mes 8
res = XlsLst(liUsa, coVl08, vm8)                   'valor mes 8
res = XlsLst(liUsa, coQu09, qm9)                   'quantidade mes 9
res = XlsLst(liUsa, coVl09, vm9)                   'valor mes 9
res = XlsLst(liUsa, coQu10, qm10)                  'quantidade mes 10
res = XlsLst(liUsa, coVl10, vm10)                  'valor mes 10
res = XlsLst(liUsa, coQu11, qm11)                  'quantidade mes 11
res = XlsLst(liUsa, coVl11, vm11)                  'valor mes 11
res = XlsLst(liUsa, coQu12, qm12)                  'quantidade mes 12
res = XlsLst(liUsa, coVl12, vm12)                  'valor mes 12

res = XlsLst(liUsa, coQuT1, qt1)                   'quantidade trimestre 1
res = XlsLst(liUsa, coVlT1, vt1)                   'valor trimestre 1
res = XlsLst(liUsa, coQuT2, qt2)                   'quantidade trimestre 2
res = XlsLst(liUsa, coVlT2, vt2)                   'valor trimestre 2
res = XlsLst(liUsa, coQuT3, qt3)                   'quantidade trimestre 3
res = XlsLst(liUsa, coVlT3, vt3)                   'valor trimestre 3
res = XlsLst(liUsa, coQuT4, qt4)                   'quantidade trimestre 4
res = XlsLst(liUsa, coVlT4, vt4)                   'valor trimestre 4

res = XlsLst(liUsa, coQuS1, qs1)                   'quantidade semestre 1
res = XlsLst(liUsa, coVlS1, vs1)                   'valor semestre 1
res = XlsLst(liUsa, coQuS2, qs2)                   'quantidade semestre 2
res = XlsLst(liUsa, coVlS2, vs2)                   'valor semestre 2

res = XlsLst(liUsa, coQuF1, qa1)                   'quantidade ano 1
res = XlsLst(liUsa, coVlF1, va1)                   'valor ano 1
end sub


Sub XlsAcmAno_Lin 'linha de valores
'msgbox "", "LIN"

'valores a listar
cod$ = MemTxt$(21)                                 'codigo
ide$ = MemTxt$(22)                                 'identificacao
cov$ = MemTxt$(23)                                 'codigo formatado

qm1   = MemNum(11)                                 'quantidade mes 1
vm1   = MemNum(41)                                 'valor mes 1
qm2   = MemNum(12)                                 'quantidade mes 2
vm2   = MemNum(42)                                 'valor mes 2
qm3   = MemNum(13)                                 'quantidade mes 3
vm3   = MemNum(43)                                 'valor mes 3
qm4   = MemNum(14)                                 'quantidade mes 4
vm4   = MemNum(44)                                 'valor mes 4
qm5   = MemNum(15)                                 'quantidade mes 5
vm5   = MemNum(45)                                 'valor mes 5
qm6   = MemNum(16)                                 'quantidade mes 6
vm6   = MemNum(46)                                 'valor mes 6
qm7   = MemNum(17)                                 'quantidade mes 7
vm7   = MemNum(47)                                 'valor mes 7
qm8   = MemNum(18)                                 'quantidade mes 8
vm8   = MemNum(48)                                 'valor mes 8
qm9   = MemNum(19)                                 'quantidade mes 9
vm9   = MemNum(49)                                 'valor mes 9
qm10  = MemNum(20)                                 'quantidade mes 10
vm10  = MemNum(50)                                 'valor mes 10
qm11  = MemNum(21)                                 'quantidade mes 11
vm11  = MemNum(51)                                 'valor mes 11
qm12  = MemNum(22)                                 'quantidade mes 12
vm12  = MemNum(52)                                 'valor 12

qt1   = MemNum(31)                                 'quantidade trimestre 1
vt1   = MemNum(61)                                 'valor trimestre 1
qt2   = MemNum(32)                                 'quantidade trimestre 2
vt2   = MemNum(62)                                 'valor trimestre 2
qt3   = MemNum(33)                                 'quantidade trimestre 3
vt3   = MemNum(63)                                 'valor trimestre 3
qt4   = MemNum(34)                                 'quantidade trimestre 4
vt4   = MemNum(64)                                 'valor trimestre 4

qs1   = MemNum(36)                                 'quantidade semestre 1
vs1   = MemNum(66)                                 'valor semestre 1
qs2   = MemNum(37)                                 'quantidade semestre 2
vs2   = MemNum(67)                                 'valor semestre 2

qa1   = MemNum(39)                                  'quantidade ano 1
va1   = MemNum(69)                                  'valor ano 1

'listar
call XlsAcmAno_Lst                                 'listar

'acumular
res = AcmExe("MQ01", qm1)                          'mes 1 - quantidade
res = AcmExe("MV01", vm1)                          'mes 1 - valor
res = AcmExe("MQ02", qm2)                          'mes 2 - quantidade
res = AcmExe("MV02", vm2)                          'mes 2 - valor
res = AcmExe("MQ03", qm3)                          'mes 3 - quantidade
res = AcmExe("MV03", vm3)                          'mes 3 - valor
res = AcmExe("MQT1", qt1)                          'trimestre 1 - quantidade
res = AcmExe("MVT1", vt1)                          'trimestre 1 - valor

res = AcmExe("MQ04", qm4)                          'mes 4 - quantidade
res = AcmExe("MV04", vm4)                          'mes 4 - valor
res = AcmExe("MQ05", qm5)                          'mes 5 - quantidade
res = AcmExe("MV05", vm5)                          'mes 5 - valor
res = AcmExe("MQ06", qm6)                          'mes 6 - quantidade
res = AcmExe("MV06", vm6)                          'mes 6 - valor
res = AcmExe("MQT2", qt2)                          'trimestre 2 - quantidade
res = AcmExe("MVT2", vt2)                          'trimestre 2 - valor
res = AcmExe("MQS1", qs1)                          'semestre 1 - quantidade
res = AcmExe("MVS1", vs1)                          'semestre 1 - valor

res = AcmExe("MQ07", qm7)                          'mes 7 - quantidade
res = AcmExe("MV07", vm7)                          'mes 7 - valor
res = AcmExe("MQ08", qm8)                          'mes 8 - quantidade
res = AcmExe("MV08", vm8)                          'mes 8 - valor
res = AcmExe("MQ09", qm9)                          'mes 9 - quantidade
res = AcmExe("MV09", vm9)                          'mes 9 - valor
res = AcmExe("MQT3", qt3)                          'trimestre 3 - quantidade
res = AcmExe("MVT3", vt3)                          'trimestre 3 - valor

res = AcmExe("MQ10", qm10)                         'mes 10 - quantidade
res = AcmExe("MV10", vm10)                         'mes 10 - valor
res = AcmExe("MQ11", qm11)                         'mes 11 - quantidade
res = AcmExe("MV11", vm11)                         'mes 11 - valor
res = AcmExe("MQ12", qm12)                         'mes 12 - quantidade
res = AcmExe("MV12", vm12)                         'mes 12 - valor
res = AcmExe("MQT4", qt4)                          'trimestre 4 - quantidade
res = AcmExe("MVT4", vt4)                          'trimestre 4 - valor
res = AcmExe("MQS2", qs2)                          'semestre 2 - quantidade
res = AcmExe("MVS2", vs2)                          'semestre 2 - valor

res = AcmExe("MQTG", qa1)                          'total - quantidade
res = AcmExe("MVTG", va1)                          'total - valor
end sub


Sub XlsAcmAno_LinGrp 'titulo de grupo
call XlsAcmAno_IncLin                              'incrementar linha

codA$ = MemTxt$(13)                                'codigo do artigo
nomA$ = MemTxt$(12)                                'nome do artigo

'listar
res = XlsLst(liUsa, 2, codA$)                      'escrever codigo
res = XlsLst(liUsa, 3, nomA$)                      'escrever nome

zon$= XlsZonNum$("L", liUsa)                       'zona da linha
res = XlsFon(zon$, ",,B+I+")                       'activar fonte bold, italico
end sub


Sub XlsAcmAno_LinSbt 'linha de subtotal
nrg = TotCnt("MQ01" ,1)                            'numero de registos
if nrg > 1 then                                    'listar subtotal ?
   'valores a listar
   cov$ = ""                                       'codigo
   ide$ = "Subtotal"                               'identificacao

   qm1   = Total("MQ01", 1)                        'mes 1 - quantidade
   vm1   = Total("MV01", 1)                        'mes 1 - valor
   qm2   = Total("MQ02", 1)                        'mes 2 - quantidade
   vm2   = Total("MV02", 1)                        'mes 2 - valor
   qm3   = Total("MQ03", 1)                        'mes 3 - quantidade
   vm3   = Total("MV03", 1)                        'mes 3 - valor
   qt1   = Total("MQT1", 1)                        'trimestre 1 - quantidade
   vt1   = Total("MVT1", 1)                        'trimestre 1 - valor

   qm4   = Total("MQ04", 1)                        'mes 4 - quantidade
   vm4   = Total("MV04", 1)                        'mes 4 - valor
   qm5   = Total("MQ05", 1)                        'mes 5 - quantidade
   vm5   = Total("MV05", 1)                        'mes 6 - valor
   qm6   = Total("MQ06", 1)                        'mes 7 - quantidade
   vm6   = Total("MV06", 1)                        'mes 8 - valor
   qt2   = Total("MQT2", 1)                        'trimestre 2 - quantidade
   vt2   = Total("MVT2", 1)                        'trimestre 2 - valor
   qs1   = Total("MQS1", 1)                        'semestre 1 - quantidade
   vs1   = Total("MVS1", 1)                        'semestre 1 - valor

   qm7   = Total("MQ07", 1)                        'mes 7 - quantidade
   vm7   = Total("MV07", 1)                        'mes 7 - valor
   qm8   = Total("MQ08", 1)                        'mes 8 - quantidade
   vm8   = Total("MV08", 1)                        'mes 8 - valor
   qm9   = Total("MQ09", 1)                        'mes 9 - quantidade
   vm9   = Total("MV09", 1)                        'mes 9 - valor
   qt3   = Total("MQT3", 1)                        'trimestre 3 - quantidade
   vt3   = Total("MVT3", 1)                        'trimestre 3 - valor

   qm10  = Total("MQ10", 1)                        'mes 10 - quantidade
   vm10  = Total("MV10", 1)                        'mes 10 - valor
   qm11  = Total("MQ11", 1)                        'mes 11 - quantidade
   vm11  = Total("MV11", 1)                        'mes 11 - valor
   qm12  = Total("MQ12", 1)                        'mes 12 - quantidade
   vm12  = Total("MV12", 1)                        'mes 12 - valor
   qt4   = Total("MQT4", 1)                        'trimestre 4 - quantidade
   vt4   = Total("MVT4", 1)                        'trimestre 4 - valor
   qs2   = Total("MQS2", 1)                        'semestre 2 - quantidade
   vs2   = Total("MVS2", 1)                        'semestre 2 - valor
   qa1   = Total("MQTG", 1)                        'total geral - quantidade
   va1   = Total("MVTG", 1)                        'total geral - valor

   'listar
   call XlsAcmAno_Lst                              'listar

   zon$= XlsZonNum$("L", liUsa)                    'zona da linha
   res = XlsFon(zon$, ",,I+")                      'activar fonte bold, italico
end if
call XlsAcmAno_IncLin                              'incrementar linha

x=TotLpz(1)                                        'limpar totais
end sub


Sub XlsAcmAno_LinSep 'linha de separacao
call XlsAcmAno_LinInc                              'incrementar linha
end sub


Sub XlsAcmAno_Fim 'terminar
call Xls_LinFim                                    'fim de linhas

'valores a listar
qm1   = Total("MQ01", 0)                            'mes 1 - quantidade
vm1   = Total("MV01", 0)                            'mes 1 - valor
qm2   = Total("MQ02", 0)                            'mes 2 - quantidade
vm2   = Total("MV02", 0)                            'mes 2 - valor
qm3   = Total("MQ03", 0)                            'mes 3 - quantidade
vm3   = Total("MV03", 0)                            'mes 3 - valor
qt1   = Total("MQT1", 0)                            'trimestre 1 - quantidade
vt1   = Total("MVT1", 0)                            'trimestre 1 - valor

qm4   = Total("MQ04", 0)                            'mes 4 - quantidade
vm4   = Total("MV04", 0)                            'mes 4 - valor
qm5   = Total("MQ05", 0)                            'mes 5 - quantidade
vm5   = Total("MV05", 0)                            'mes 5 - valor
qm6   = Total("MQ06", 0)                            'mes 6 - quantidade
vm6   = Total("MV06", 0)                            'mes 6 - valor
qt2   = Total("MQT2", 0)                            'trimestre 2 - quantidade
vt2   = Total("MVT2", 0)                            'trimestre 2 - valor
qs1   = Total("MQS1", 0)                            'semestre 1 - quantidade
vs1   = Total("MVS1", 0)                            'semestre 1 - valor

qm7   = Total("MQ07", 0)                            'mes 7 - quantidade
vm7   = Total("MV07", 0)                            'mes 7 - valor
qm8   = Total("MQ08", 0)                            'mes 8 - quantidade
vm8   = Total("MV08", 0)                            'mes 8 - valor
qm9   = Total("MQ09", 0)                            'mes 9 - quantidade
vm9   = Total("MV09", 0)                            'mes 9 - valor
qt3   = Total("MQT3", 0)                            'trimestre 3 - quantidade
vt3   = Total("MVT3", 0)                            'trimestre 3 - valor

qm10  = Total("MQ10", 0)                            'mes 10 - quantidade
vm10  = Total("MV10", 0)                            'mes 10 - valor
qm11  = Total("MQ11", 0)                            'mes 11 - quantidade
vm11  = Total("MV11", 0)                            'mes 11 - valor
qm12  = Total("MQ12", 0)                            'mes 12 - quantidade
vm12  = Total("MV12", 0)                            'mes 12 - valor
qt4   = Total("MQT4", 0)                            'trimestre 4 - quantidade
vt4   = Total("MVT4", 0)                            'trimestre 4 - valor
qs2   = Total("MQS2", 0)                            'semestre 2 - quantidade
vs2   = Total("MVS2", 0)                            'semestre 2 - valor

qa1   = Total("MQTG", 0)                            'total geral - quantidade
va1   = Total("MVTG", 0)                            'total geral - valor

'listar
liUsa = linFim                                     'linha a usar

res = XlsLst(liUsa, coQu01, qm1)                   'quantidade mes 1
res = XlsLst(liUsa, coVl01, vm1)                   'valor mes 1
res = XlsLst(liUsa, coQu02, qm2)                   'quantidade mes 2
res = XlsLst(liUsa, coVl02, vm2)                   'valor mes 2
res = XlsLst(liUsa, coQu03, qm3)                   'quantidade mes 3
res = XlsLst(liUsa, coVl03, vm3)                   'valor mes 3
res = XlsLst(liUsa, coQuT1, qT1)                   'quantidade trimestre 1
res = XlsLst(liUsa, coVlT1, vT1)                   'valor trimestre 1

res = XlsLst(liUsa, coQu04, qm4)                   'quantidade mes 4
res = XlsLst(liUsa, coVl04, vm4)                   'valor mes 4
res = XlsLst(liUsa, coQu05, qm5)                   'quantidade mes 5
res = XlsLst(liUsa, coVl05, vm5)                   'valor mes 5
res = XlsLst(liUsa, coQu06, qm6)                   'quantidade mes 6
res = XlsLst(liUsa, coVl06, vm6)                   'valor mes 6
res = XlsLst(liUsa, coQuT2, qT2)                   'quantidade trimestre 2
res = XlsLst(liUsa, coVlT2, vT2)                   'valor trimestre 2
res = XlsLst(liUsa, coQuS1, qS1)                   'quantidade semestre 1
res = XlsLst(liUsa, coVlS1, vS1)                   'valor semestre 1

res = XlsLst(liUsa, coQu07, qm7)                   'quantidade mes 7
res = XlsLst(liUsa, coVl07, vm7)                   'valor mes 7
res = XlsLst(liUsa, coQu08, qm8)                   'quantidade mes 8
res = XlsLst(liUsa, coVl08, vm8)                   'valor mes 8
res = XlsLst(liUsa, coQu09, qm9)                   'quantidade mes 9
res = XlsLst(liUsa, coVl09, vm9)                   'valor mes 9
res = XlsLst(liUsa, coQuT3, qT3)                   'quantidade trimestre 3
res = XlsLst(liUsa, coVlT3, vT3)                   'valor trimestre 3

res = XlsLst(liUsa, coQu10, qm10)                  'quantidade mes 10
res = XlsLst(liUsa, coVl10, vm10)                  'valor mes 10
res = XlsLst(liUsa, coQu11, qm11)                  'quantidade mes 11
res = XlsLst(liUsa, coVl11, vm11)                  'valor mes 11
res = XlsLst(liUsa, coQu12, qm12)                  'quantidade mes 12
res = XlsLst(liUsa, coVl12, vm12)                  'valor mes 12
res = XlsLst(liUsa, coQuT4, qT4)                   'quantidade trimestre 2
res = XlsLst(liUsa, coVlT4, vT4)                   'valor trimestre 2
res = XlsLst(liUsa, coQuS2, qS2)                   'quantidade semestre 2
res = XlsLst(liUsa, coVlS2, vS2)                   'valor semestre 2
res = XlsLst(liUsa, coQuF1, qa1)                   'quantidade - total geral
res = XlsLst(liUsa, coVlF1, va1)                   'valor - total geral

'mostrar
res = XlsWksAct("A", 1)                            'activar worksheet
end sub
##


'==============================================================================
#INC - Funcoes comuns
'==============================================================================
Funcoes  comuns                 =[SIG_Dir.Div],LsComPgm.std
##

