'Nome       : BalSel.Imp
'Tipo       : Imp
'Data       : 2002/08/30
'Versao     : 1.1
'Descricao  : Impressao de balanco para selados

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0   2002/??/?? --------------------------------------------------
'Versao base


'==============================================================================
#DEF - Definicao global do documento
'==============================================================================
Caracteres invalidos             [CarInv]=#
'Validacao                        [DocVal]=53MRTSRR
##


'==============================================================================
#ESP - Campos especificos
'==============================================================================
Modo de impressao               [EspMoImp]=PAG_T
Especifico 1                      [EspOp1]=Opcao 1
Especifico 2                      [EspOp2]=Opcao 2
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=BalSel
Nome                       [DocNom]=BalSel,Balanço para Selados
Dados especificos          [DocEsp]=
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
##


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
'---------------------------------------------------------->'Comentario (61)
'---------------------------------------------->'Comentario (49)
'------------------------------------->'Comentario (40)

'------------------------------------------------------------------------------
' Funcoes para inicializacao
'------------------------------------------------------------------------------
SUB FxIni 'funcao de inicializacao
PrPAG AJT_D,  0,  0                    'deslocamento de ajuste
PrPAG AJT_B,  0,  0                    'posicao base
PrPAG DIM,72,131                       'dimensao
PrPAG MGR, 1                           'modo grafico
PrPAG MGR, 2                           'modo grafico
PrPAG MGR, 3                           'modo grafico


dcv = 19                               'dimensao da coluna de valor
frv = 14.2                             'formato de valor

frd = 17                               'digitos para formato
fro$= "Z=E"                            'opcoes de formatacao

xMin=1                                 'X minimo
xMax=131                               'X maximo

tx10Cpi$=PrtCmd$("[10CPILN]")+"."      'ajuste para 10CPI
tx16Cpi$=PrtCmd$("[16CPILN]")+"."      'ajuste para 16CPI
end sub


SUB FxFim 'funcao de finalizacao
end sub


'------------------------------------------------------------------------------
' Funcoes para impressao do documento
'------------------------------------------------------------------------------
SUB DocCabIni 'inicializacao do documento
'
end sub


SUB DocCabFim 'finalizar documento
'
end sub


'- Pagina 1 -------------------------------------------------------------------
SUB DocPag01 'pagina 1
c7x = xMax                                                  'X da coluna 7
c6x = c7x - dcv                                             'X da coluna 6
c5x = c6x - dcv                                             'X da coluna 5
c4x = c5x - dcv                                             'X da coluna 4
c3x = c4x - dcv                                             'X da coluna 3
c2x = 17                                                    'X da coluna 2
c1x = xMin                                                  'X da coluna 1

liBas = 10                                                  'linha base
li01 = liBas                                                'linha 1
li02 = li01 + 2                                             'linha 2
li03 = li02 + 2                                             'linha 3
li04 = li02 + 36                                            'linha 4


PrPAG AJT_B,  0, 0                                          'posicao base
PrPAG TX_N,1, 1,tx16Cpi$                                    'ajuste para 16CPI

dy=47                                                       'altura da pagina
PrPAG GR_LV,c1x,li01, dy                                    'linha vertical
PrPAG GR_LV,c2x,li01, dy                                    'linha vertical
PrPAG GR_LV,c3x,li01, dy                                    'linha vertical
PrPAG GR_LV,c4x,li02, dy                                    'linha vertical
PrPAG GR_LV,c5x,li02, dy                                    'linha vertical
PrPAG GR_LV,c6x,li01, dy                                    'linha vertical
PrPAG GR_LV,c7x,li01, dy                                    'linha vertical

xi = c1x + 1                                                'X inicial
xf = c7x - 1                                                'X final
dx = 130                                                    'dimensao X
dx1= dx + 1                                                 'dimensao X
'PrPAG GR_LH,li01, xi, dx                                   'linha horizontal
PrPAG GR_LHV,"H",c1x,li01, dx1                              'linha horizontal
PrPAG GR_LH,li02, xi, dx                                    'linha horizontal
PrPAG GR_LH,li03, xi, dx                                    'linha horizontal
'PrPAG GR_LH,li04, xi, dx                                   'linha horizontal
PrPAG GR_LHV,"H",c1x,li04, dx1                              'linha horizontal

li=li01 + 1                                                 'linha
PrPAG TX_CTR,c3x,li,c6x,li,"Exercicio"                      'titulo de colunas
PrPAG TX_CTR,c6x,li,c7x,li,"Exerc. Anterior"                'titulo de coluna

li=li02 + 1                                                 'linha
PrPAG TX_CTR,c3x,li,c4x,li,"Activo Bruto"                   'titulo de coluna
PrPAG TX_CTR,c4x,li,c5x,li,"Amort. Prov."                   'titulo de coluna
PrPAG TX_CTR,c5x,li,c6x,li,"Activo Liquido"                 'titulo de coluna
PrPAG TX_CTR,c6x,li,c7x,li,"Activo Liquido"                 'titulo de coluna


'activo
px1=c2x+1                                                   'posicao X1
px2=c2x+5                                                   'posicao X2
px3=c2x+15                                                  'posicao X2
xab=c3x+1                                                   'X para activo bruto
xap=c4x+1                                                   'X para amortizacoes/provisoes
xal=c5x+1                                                   'X para activo liquido
xn1=c6x+1                                                   'X para ano N-1

li=li03+1                                                   'linha base
PrPAG AJT_B,  0, li                                         'posicao base

li= 2                                                       'linha
PrPAG TX_CTR,c2x,li,c3x,li,TxInsSepCar$("ACTIVO", " ")      'titulo

PrPAG TX_N,px1,  4,"Imobilizado:"                           'titulo

li = 5                                                      'linha
PrPAG TX_CTR,c1x,li,c2x,li,"43+441/6+449"                   'conta
PrPAG TX_N,px2,li,"Imobilizacoes incorporeas"               'descricao
PrPAG TX_N,xab,li,FrmNum$(frv,CtaLc$("A43_AB"))             'valor de activo bruto
PrPAG TX_N,xap,li,FrmNum$(frv,CtaLc$("A43_AP"))             'valor de amortizacoes/provisoes
PrPAG TX_N,xal,li,FrmNum$(frv,CtaLc$("A43_AL"))             'valor de activo liquido
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("A43_N1"))             'valor de ano N-1

li = 7                                                      'linha
PrPAG TX_CTR,c1x,li,c2x,li,"42+441/6+448"                   'conta
PrPAG TX_N,px2,li,"Imobilizacoes corporeas"                 'descricao
PrPAG TX_N,xab,li,FrmNum$(frv,CtaLc$("A42_AB"))             'valor de activo bruto
PrPAG TX_N,xap,li,FrmNum$(frv,CtaLc$("A42_AP"))             'valor de amortizacoes/provisoes
PrPAG TX_N,xal,li,FrmNum$(frv,CtaLc$("A42_AL"))             'valor de activo liquido
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("A42_N1"))             'valor de ano N-1

li = 9                                                      'linha
PrPAG TX_CTR,c1x,li,c2x,li,"41+441/6+447"                   'conta
PrPAG TX_N,px2,li,"Imobilizacoes financeiras"               'descricao
PrPAG TX_N,xab,li,FrmNum$(frv,CtaLc$("A41_AB"))             'valor de activo bruto
PrPAG TX_N,xap,li,FrmNum$(frv,CtaLc$("A41_AP"))             'valor de amortizacoes/provisoes
PrPAG TX_N,xal,li,FrmNum$(frv,CtaLc$("A41_AL"))             'valor de activo liquido
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("A41_N1"))             'valor de ano N-1


'subtotal
pxs=c3x+1                                                   'posicao para separador
dxs=4*dcv - 1                                               'dimensao do separador
PrPAG GR_LHV,"H",pxs,12, dxs                                'linha horizontal
PrPAG GR_LHV,"H",pxs,14, dxs                                'linha horizontal

li = 13                                                     'linha
PrPAG TX_N,xab,li,FrmNum$(frv,CtaLc$("ASC_AB"))             'valor de activo bruto
PrPAG TX_N,xap,li,FrmNum$(frv,CtaLc$("ASC_AP"))             'valor de amortizacoes/provisoes
PrPAG TX_N,xal,li,FrmNum$(frv,CtaLc$("ASC_AL"))             'valor de activo liquido
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("ASC_N1"))             'valor de ano N-1


PrPAG TX_N,px1, 15,"Circulante:"                            'titulo

li = 16                                                     'linha
PrPAG TX_CTR,c1x,li,c2x,li,"32 a 37"                        'conta
PrPAG TX_N,px2,li,"Existencias"                             'descricao
PrPAG TX_N,xab,li,FrmNum$(frv,CtaLc$("A32_AB"))             'valor de activo bruto
PrPAG TX_N,xap,li,FrmNum$(frv,CtaLc$("A32_AP"))             'valor de amortizacoes/provisoes
PrPAG TX_N,xal,li,FrmNum$(frv,CtaLc$("A32_AL"))             'valor de activo liquido
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("A32_N1"))             'valor de ano N-1

li = 18                                                     'linha
PrPAG TX_CTR,c1x,li,c2x,li,"21/2+24/6"                      'conta
PrPAG TX_N,px2,li,"Dividas de terceiros - M/L prazo"        'descricao
PrPAG TX_N,xab,li,FrmNum$(frv,CtaLc$("A21LP_AB"))           'valor de activo bruto
PrPAG TX_N,xap,li,FrmNum$(frv,CtaLc$("A21LP_AP"))           'valor de amortizacoes/provisoes
PrPAG TX_N,xal,li,FrmNum$(frv,CtaLc$("A21LP_AL"))           'valor de activo liquido
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("A21LP_N1"))           'valor de ano N-1

li = 20                                                     'linha
PrPAG TX_CTR,c1x,li,c2x,li,"21/2+24/6"                      'conta
PrPAG TX_N,px2,li,"Dividas de terceiros - Curso"            'descricao
PrPAG TX_N,xab,li,FrmNum$(frv,CtaLc$("A21CP_AB"))           'valor de activo bruto
PrPAG TX_N,xap,li,FrmNum$(frv,CtaLc$("A21CP_AP"))           'valor de amortizacoes/provisoes
PrPAG TX_N,xal,li,FrmNum$(frv,CtaLc$("A21CP_AL"))           'valor de activo liquido
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("A21CP_N1"))           'valor de ano N-1

li = 22                                                     'linha
PrPAG TX_CTR,c1x,li,c2x,li,"15 + 18"                        'conta
PrPAG TX_N,px2,li,"Titulos negociaveis"                     'descricao
PrPAG TX_N,xab,li,FrmNum$(frv,CtaLc$("A15_AB"))             'valor de activo bruto
PrPAG TX_N,xap,li,FrmNum$(frv,CtaLc$("A15_AP"))             'valor de amortizacoes/provisoes
PrPAG TX_N,xal,li,FrmNum$(frv,CtaLc$("A15_AL"))             'valor de activo liquido
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("A15_N1"))             'valor de ano N-1

li = 24                                                     'linha
PrPAG TX_CTR,c1x,li,c2x,li,"11 a 14"                        'conta
PrPAG TX_N,px2,li,"Depositos bancarios e caixa"             'descricao
PrPAG TX_N,xab,li,FrmNum$(frv,CtaLc$("A11_AB"))             'valor de activo bruto
PrPAG TX_N,xap,li,FrmNum$(frv,CtaLc$("A11_AP"))             'valor de amortizacoes/provisoes
PrPAG TX_N,xal,li,FrmNum$(frv,CtaLc$("A11_AL"))             'valor de activo liquido
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("A11_N1"))             'valor de ano N-1

PrPAG GR_LHV,"H",pxs,25, dxs                                'linha horizontal
PrPAG GR_LHV,"H",pxs,27, dxs                                'linha horizontal

li = 26                                                     'linha
PrPAG TX_N,xab,li,FrmNum$(frv,CtaLc$("ASIV_AB"))            'valor de activo bruto
PrPAG TX_N,xap,li,FrmNum$(frv,CtaLc$("ASIV_AP"))            'valor de amortizacoes/provisoes
PrPAG TX_N,xal,li,FrmNum$(frv,CtaLc$("ASIV_AL"))            'valor de activo liquido
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("ASIV_N1"))            'valor de ano N-1

li = 29                                                     'linha
PrPAG TX_CTR,c1x,li,c2x,li,"27"                             'conta
PrPAG TX_N,px2,li,"Depositos bancarios e caixa"             'descricao
PrPAG TX_N,xab,li,FrmNum$(frv,CtaLc$("A27_AB"))             'valor de activo bruto
PrPAG TX_N,xap,li,FrmNum$(frv,CtaLc$("A27_AP"))             'valor de amortizacoes/provisoes
PrPAG TX_N,xal,li,FrmNum$(frv,CtaLc$("A27_AL"))             'valor de activo liquido
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("A27_N1"))             'valor de ano N-1

PrPAG GR_LHV,"H",pxs,30, dxs                                'linha horizontal

li = 32                                                     'linha
PrPAG TX_N,px3,li,"Total do activo"                         'descricao
PrPAG TX_N,xab,li,FrmNum$(frv,CtaLc$("ATO_AB"))             'valor de activo bruto
PrPAG TX_N,xap,li,FrmNum$(frv,CtaLc$("ATO_AP"))             'valor de amortizacoes/provisoes
PrPAG TX_N,xal,li,FrmNum$(frv,CtaLc$("ATO_AL"))             'valor de activo liquido
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("ATO_N1"))             'valor de ano N-1

'terminar
PrPAG AJT_B,  0, 0                                          'posicao base
PrPAG TX_N,1,70,tx10Cpi$                                    'ajuste para 10CPI
end sub


'- Pagina 2 -------------------------------------------------------------------
SUB DocPag02 'pagina 2
c5x = xMax                                                  'X da coluna 5
c4x = c5x - dcv                                             'X da coluna 4
c3x = c4x - dcv                                             'X da coluna 3
c2x = 17                                                    'X da coluna 2
c1x = xMin                                                  'X da coluna 1

liBas = 5                                                   'linha base
li01 = liBas                                                'linha 1
li02 = li01 + 2                                             'linha 2
li03 = li02 + 48                                            'linha 3

pxs=c3x+1                                                   'posicao para separador
dxs=2*dcv - 1                                               'dimensao do separador

PrPAG AJT_B,  0, 0                                          'posicao base
PrPAG TX_N,1, 1,tx16Cpi$                                    'ajuste para 16CPI

dy=54
PrPAG GR_LV,c1x,li01, dy                                    'linha vertical
PrPAG GR_LV,c2x,li01, dy                                    'linha vertical
PrPAG GR_LV,c3x,li01, dy                                    'linha vertical
PrPAG GR_LV,c4x,li01, dy                                    'linha vertical
PrPAG GR_LV,c5x,li01, dy                                    'linha vertical

xi = c1x + 1                                                'X inicial
xf = c7x - 1                                                'X final
dx = 130                                                    'dimensao X
dx1= dx + 1                                                 'dimensao X
PrPAG GR_LHV,"H",c1x,li01, dx1                              'linha horizontal
PrPAG GR_LH,li02, xi, dx                                    'linha horizontal
PrPAG GR_LHV,"H",c1x,li03, dx1                              'linha horizontal

li=li01 + 1                                                 'linha
PrPAG TX_CTR,c3x,li,c4x,li,"Exercicio"                      'titulo de colunas
PrPAG TX_CTR,c4x,li,c5x,li,"Exerc. Anterior"                'titulo de coluna


'capital proprio+passivo
px1=c2x+5                                                   'posicao X1
px2=c2x+10                                                  'posicao X2
px3=c2x+15                                                  'posicao X2
px4=c2x+30                                                  'posicao X2
xex=c3x+1                                                   'X para exercicio
xn1=c4x+1                                                   'X para ano N-1

li=li02+1                                                   'linha base
PrPAG AJT_B,  0, li                                         'posicao base

li= 2                                                       'linha
PrPAG TX_CTR,c2x,li,c3x,li,"CAPITAL PRPRIO E PASSIVO"       'titulo

PrPAG TX_N,px1,  4,"Capital proprio:"                       'titulo

li = 5                                                      'linha
PrPAG TX_CTR,c1x,li,c2x,li,"51"                             'conta
PrPAG TX_N,px2,li,"Capital"                                 'descricao
'PrPAG TX_N,xex,li,FrmNum$(frv,CtaLc$("P51_EX"))            'valor do exercicio
'PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("P51_N1"))            'valor do ano N-1
PrPAG TX_N,xex,li,FrmMoe$(fro$,frd,CtaLc$("P51_EX"))        'valor do exercicio
PrPAG TX_N,xn1,li,FrmMoe$(fro$,frd,CtaLc$("P51_N1"))        'valor do ano N-1

li = 7                                                      'linha
PrPAG TX_CTR,c1x,li,c2x,li,"54"                             'conta
PrPAG TX_N,px2,li,"Premios de emissao de accoes (quotas)"   'descricao
PrPAG TX_N,xex,li,FrmNum$(frv,CtaLc$("P54_EX"))             'valor do exercicio
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("P54_N1"))             'valor do ano N-1

li = 9                                                      'linha
PrPAG TX_CTR,c1x,li,c2x,li,"56"                             'conta
PrPAG TX_N,px2,li,"Reservas de reavaliacao"                 'descricao
PrPAG TX_N,xex,li,FrmNum$(frv,CtaLc$("P56_EX"))             'valor do exercicio
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("P56_N1"))             'valor do ano N-1

li = 11                                                     'linha
PrPAG TX_CTR,c1x,li,c2x,li,"571"                            'conta
PrPAG TX_N,px2,li,"Reservas Legais"                         'descricao
PrPAG TX_N,xex,li,FrmNum$(frv,CtaLc$("P571_EX"))            'valor do exercicio
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("P571_N1"))            'valor do ano N-1

li = 13                                                     'linha
PrPAG TX_CTR,c1x,li,c2x,li,"52+53+55+572/9"                 'conta
txi$="Restantes reservas e outros capitais propios"         'descricao
PrPAG TX_N,px2,li,txi$                                      'descricao
PrPAG TX_N,xex,li,FrmNum$(frv,CtaLc$("P52_EX"))             'valor do exercicio
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("P52_N1"))             'valor do ano N-1

PrPAG GR_LHV,"H",pxs,16, dxs                                'linha horizontal
PrPAG TX_N,px3, 17,"Subtotal"                               'titulo
PrPAG GR_LHV,"H",pxs,18, dxs                                'linha horizontal

li = 15                                                     'linha
PrPAG TX_CTR,c1x,li,c2x,li,"59"                             'conta
PrPAG TX_N,px2,li,"Resultados transitados"                  'descricao
PrPAG TX_N,xex,li,FrmNum$(frv,CtaLc$("P59_EX"))             'valor do exercicio
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("P59_N1"))             'valor do ano N-1

li = 17                                                     'linha
PrPAG TX_N,xex,li,FrmNum$(frv,CtaLc$("PSV_EX"))             'valor do exercicio
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("PSV_N1"))             'valor do ano N-1



li = 20                                                     'linha
PrPAG TX_CTR,c1x,li,c2x,li,"88"                             'conta
PrPAG TX_N,px2,li,"Resultado liquido do exercicio"          'descricao
PrPAG TX_N,xex,li,FrmNum$(frv,CtaLc$("P88_EX"))             'valor do exercicio
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("P88_N1"))             'valor do ano N-1

li = 21                                                     'linha
PrPAG TX_CTR,c1x,li,c2x,li,"89"                             'conta
PrPAG TX_N,px2,li,"Dividendos antecipados"                  'descricao
PrPAG TX_N,xex,li,FrmNum$(frv,CtaLc$("P89_EX"))             'valor do exercicio
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("P89_N1"))             'valor do ano N-1

PrPAG GR_LHV,"H",pxs,22, dxs                                'linha horizontal

'total capital proprio
li = 24                                                     'linha
PrPAG TX_N,px4,li,"Total do Capital Proprio"                'descricao
PrPAG TX_N,xex,li,FrmNum$(frv,CtaLc$("PTCP_EX"))            'valor do exercicio
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("PTCP_N1"))            'valor do ano N-1
PrPAG GR_LHV,"H",pxs,25, dxs                                'linha horizontal



PrPAG TX_N,px1, 27,"Passivo:"                               'titulo

li = 28                                                     'linha
PrPAG TX_CTR,c1x,li,c2x,li,"29"                             'conta
PrPAG TX_N,px2,li,"Provisoes para riscos e encargos"        'descricao
PrPAG TX_N,xex,li,FrmNum$(frv,CtaLc$("P29_EX"))             'valor do exercicio
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("P29_N1"))             'valor do ano N-1
PrPAG GR_LHV,"H",pxs,29, dxs                                'linha horizontal


PrPAG TX_N,px1, 31,"Dividas a terceiros:"                   'titulo

li = 32                                                     'linha
PrPAG TX_CTR,c1x,li,c2x,li,"21/6"                           'conta
PrPAG TX_N,px2,li,"Medio e longo prazo"                     'descricao
PrPAG TX_N,xex,li,FrmNum$(frv,CtaLc$("P21LP_EX"))           'valor do exercicio
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("P21LP_N1"))           'valor do ano N-1

li = 33                                                     'linha
PrPAG TX_CTR,c1x,li,c2x,li,"21/6"                           'conta
PrPAG TX_N,px2,li,"Curto prazo"                             'descricao
PrPAG TX_N,xex,li,FrmNum$(frv,CtaLc$("P21CP_EX"))           'valor do exercicio
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("P21CP_N1"))           'valor do ano N-1

PrPAG GR_LHV,"H",pxs,34, dxs                                'linha horizontal

li = 36                                                     'linha
PrPAG TX_CTR,c1x,li,c2x,li,"27"                             'conta
PrPAG TX_N,px1,li,"Acrescimos e diferimentos"               'descricao
PrPAG TX_N,xex,li,FrmNum$(frv,CtaLc$("P27_EX"))             'valor do exercicio
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("P27_N1"))             'valor do ano N-1

li = 39                                                     'linha
PrPAG TX_N,px4,li,"Total do Passivo"                        'descricao
PrPAG TX_N,xex,li,FrmNum$(frv,CtaLc$("PTPA_EX"))            'valor do exercicio
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("PTPA_N1"))            'valor do ano N-1
PrPAG GR_LHV,"H",pxs,40, dxs                                'linha horizontal



li = 43                                                     'linha
PrPAG TX_N,px4,li,"Total do Capital Proprio e Passivo"      'descricao
PrPAG TX_N,xex,li,FrmNum$(frv,CtaLc$("PTO_EX"))             'valor do exercicio
PrPAG TX_N,xn1,li,FrmNum$(frv,CtaLc$("PTO_N1"))             'valor do ano N-1


'terminar
PrPAG AJT_B,  0, 0                                          'posicao base
PrPAG TX_N,1,70,tx10Cpi$                                    'ajuste para 10CPI
end sub                                    


'- Diversos -------------------------------------------------------------------
SUB DocFim 'fim de pagina
'PrPAG FP                                                    'fim de pagina
end sub

##


