'Nome       : Rea_34_5.std
'Tipo       : LST WIN
'Data       : 2005/10/20
'Versao     : 1.0a
'Descricao  : Mapa de Reavalizacoes 34.5


'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0   2000/01/18 --------------------------------------------------
'Versao base

'- Versao : 1.0a  2005/??/?? --------------------------------------------------
'Correcção ortográfica


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


'==============================================================================
#ESP - campos especificicos
'==============================================================================
Zoom para preview             [PrvZoom]=1
Opcoes para impressora WIN   [PrWinOpc]=[ORI=L]

'so para debug
Modo de impressao               [EspMoImp]=PAG_W
##


'==============================================================================
#DOC -  Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=Map_Rea_34_5
Nome                       [DocNom]=Map_Rea_34_5,Mapa de Reavaliação
Vias                       [DocVia]=
Personalizacao             [DocPer]=

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=Mapa_Cab
Listar linhas               [FxLIN]=Mapa_Lin;Inf
Listar fim                  [FxFIM]=Mapa_Fim
##


'==============================================================================
#PGM - programa/funcoes
'==============================================================================
SUB DocCab 'funcao de inicializacao
call Mapa_Cab                                        'cabecalho
end sub


'-----------------------------------------------------------------------------
' Listagem em modo WINDOWS
'-----------------------------------------------------------------------------
SUB Mapa_CabIni 'inicializacao do documento
'
end sub


SUB Mapa_CabFim 'finalizar documento
'
end sub


SUB Mapa_Cab 'cabecalho
call Mapa_CabCom                                          'cabecalho comum

'titulo central
PrWIN FON, 16, 1                                          'activar fonte
PrWIN TX_N,  260,  15,@TpMap                              'tipo de mapa
PrWIN TX_N,  275,  15,@Pag                                'numero da pagina
PrWIN GR_CX,  81,   9, 173,  23, 2                        'caixa superior envolvente do titulo
PrWIN GR_CX,  81,  25, 173,  35, 2                        'caixa inferior envolvente do titulo

PrWIN GR_CX, 257,   9, 282,  24, 3                        'caixa envolvente do numero
PrWIN FON, 30, 1                                          'activar fonte
PrWin FON, "BOLD+"                                        'activar bold
PrWIN TX_N,  260,   25,"34.5"                             'identificador
PrWin FON, "BOLD-"                                        'desactivar bold

PrWIN FON, 14, 1                                          'activar fonte
PrWin FON, "BOLD+"                                        'activar bold
'PrWin FON, "BOLD-"                                       'desactivar bold
PrWIN TX_CTR,  79, 9.5,175, 9.5,"MAPA DE REAVALIAÇÃO"     'titulo
PrWIN FON,  8, 1                                          'activar fonte
PrWIN TX_CTR,  79, 15,175,15,"DOS BENS DO ACTIVO IMOBILIZADO CORPÓREO" 'sub titulo
PrWin FON, "BOLD-"                                         'desactivar bold
PrWIN FON,  7, 1                                           'activar fonte
PrWIN TX_CTR,  79, 19,175,19,"A que se refere o nº 1 do artigo 10º do Decreto-Lei nº31/98, de 11 de Fevereiro" 'titulo

PrWIN TX_N,  83, 27,"Bens não totalmente"                 'texto
PrWIN TX_N,  86, 30,"reintegrados (a)"                    'texto

PrWIN GR_LI, 107, 29.7, 110, 29.7, 2                      'linha horizontal 1
PrWIN GR_LI, 110, 27.5, 110, 32.5, 2                      'linha vertical
PrWIN GR_LI, 110, 27.5, 114, 27.5, 2                      'linha horizontal 2
PrWIN GR_LI, 110, 32.5, 114, 32.5, 2                      'linha horizontal 3

PrWIN TX_N, 115, 26,"Já reavaliados"                      'texto
PrWIN TX_N, 115, 31,"Não reavaliados"                     'texto

PrWIN GR_CX, 134, 26, 138,  29.5, 2                       'caixa de ja reavaliados
PrWIN GR_CX, 134, 30.5, 138,  34, 2                       'caixa de nao reavaliados

PrWIN GR_LI, 140, 28, 143,   28, 2                        'linha horizontal
PrWIN GR_CX, 145, 26, 170, 29.5, 2                        'caixa (a)
PrWIN TX_CTR,145, 30, 170,   34,"(a)"                     'texto

PrWIN FON, 10, 1                                          'activar fonte

'posicao de linhas do corpo
xMin=7
'xMax=287
xMax=282
yMin=37
yMax=192

plc01=yMin
plc02=43
plc03=52
plc04=68
plc05=72
plc06=180
plc07=186
plc08=yMax

PrWIN GR_CX,  xMin, plc01, xMax, plc08, 2         'caixa envolvente
PrWIN GR_CX,  xMin, plc04, xMax, plc05, 2         'caixa envolvente
for i=1 to 24
py=plc05+i*4.5                                    'posicao Y da linha
PrWIN GR_LI,  xMin, py, xMax, py, 2               'linha
next

'separadores de colunas
sep01=xMin
sep02=27
sep03=93
sep04=102
sep05=111
sep06=138
sep07=165
sep08=174
sep09=201
sep10=228
sep11=255
'sep12=282
sep12=xMax

PrWIN FON,  8, 1                                              'activar fonte
yAux1=plc04-4                                                 'posicao auxiliar Y 1
yAux2=plc03-4                                                 'posicao auxiliar Y 2

'coluna 1
PrWIN TX_CTR,sep01, plc04, sep02, plc05,"1"                   'identificador
PrWIN FON,  6, 1                                              'activar fonte
tCo$="Código|de acordo com|as tabelas anexas|ao Decreto regula-|mentar nº 2/90,|de 12 de Janeiro" 'titulo
PrWIN TX_MC, sep01, plc01, sep02, plc04,tCo$                  'identificador
PrWIN FON,  8, 1                                              'activar fonte

'coluna 2
PrWIN TX_CTR,sep02, plc04, sep03, plc05,"2"                   'identificador
PrWIN TX_CTR,sep02, yAux1, sep03, yAux1,"(b)"                 'identificador
PrWIN GR_LI, sep02, plc01, sep02, plc06, 2                    'separador vertical
tCo$="Descrição dos elementos|do activo imobilizado|corpóreo" 'titulo
PrWIN TX_MC, sep02, plc01, sep03, plc04,tCo$                  'identificador

'coluna 3
PrWIN TX_CTR,sep03, plc04, sep04, plc05,"3"                   'identificador
PrWIN TX_CTR,sep03, yAux1, sep04, yAux1,"(c)"                 'identificador
PrWIN GR_LI, sep03, plc01, sep03, plc06, 2                    'separador vertical
PrWIN FON,  6, 1                                              'activar fonte
PrWIN TX_MC, sep03, plc02, sep04, plc04,"Ano|Aquis.|bens|não|reav."'identificador
PrWIN FON,  8, 1                                              'activar fonte

'coluna 4
PrWIN TX_CTR,sep04, yAux1, sep05, yAux1,"(d)"                 'identificador
PrWIN TX_CTR,sep04, plc04, sep05, plc05,"4"                   'identificador
PrWIN GR_LI, sep04, plc01, sep04, plc06, 2                    'separador vertical
PrWIN FON,  6, 1                                              'activar fonte
tCo$="Ano|última|reav."                                       'titulo
PrWIN TX_MC, sep04, plc02, sep05, plc04,tCo$                  'identificador
PrWIN FON,  8, 1                                              'activar fonte

'cabecalho da coluna 5 e 6
tGr$="Valores actualizáveis"                                  'titulo
PrWIN TX_CTR,sep05, plc01, sep07, plc02,tGr$                  'identificador
PrWIN GR_LI, sep05, plc02, sep07, plc02, 2                    'linha horizontal

'coluna 5
PrWIN TX_CTR,sep05, plc04, sep06, plc05,"5"                   'identificador
PrWIN TX_CTR,sep05, yAux1, sep06, yAux1,"(e)"                 'identificador
PrWIN GR_LI, sep05, plc01, sep05, plc07, 2                    'separador vertical
tCo$="De aquisição|ou da última|reavaliação|efectuada"        'titulo
PrWIN TX_MC, sep05, plc02, sep06, plc04,tCo$                  'identificador

'coluna 6
PrWIN TX_CTR,sep06, plc04, sep07, plc05,"6"                   'identificador
PrWIN TX_CTR,sep06, yAux1, sep07, yAux1,"(f)"                 'identificador
PrWIN GR_LI, sep06, plc02, sep06, plc07, 2                    'separador vertical
tCo$="De|reintegrações|acumuladas"                            'titulo
PrWIN TX_MC ,sep06, plc02, sep07, plc04,tCo$                  'identificador
PrWIN FON,  8, 1                                              'activar fonte

'coluna 7
PrWIN TX_CTR,sep07, plc04, sep08, plc05,"7"                   'identificador
PrWIN TX_CTR,sep07, yAux1, sep08, yAux1,"(g)"                 'identificador
PrWIN GR_LI, sep07, plc01, sep07, plc07, 2                    'separador vertical
tCo$="Coefc.|act.|monet."                                    'titulo
PrWIN FON,  6, 1                                              'activar fonte
PrWIN TX_MC, sep07, plc02, sep08, plc04,tCo$                  'identificador
PrWIN FON,  8, 1                                              'activar fonte

'cabecalho da coluna 8 e 9
tGr$="Valores actualizados"                                   'titulo
PrWIN TX_CTR,sep08, plc01, sep10, plc02,tGr$                  'identificador
PrWIN GR_LI, sep08, plc02, sep10, plc02, 2                    'linha horizontal

'coluna 8
PrWIN TX_CTR,sep08, plc04, sep09, plc05,"8 = 5 x 7"           'identificador
PrWIN GR_LI, sep08, plc01, sep08, plc07, 2                    'separador vertical
PrWIN TX_MC,sep08, plc02, sep09, plc04,"Valor|da|coluna 5|actualizado" 'identificador
PrWIN FON,  8, 1                                              'activar fonte

'coluna 9
PrWIN TX_CTR,sep09, plc04, sep10, plc05,"9 = 6 x 7"           'identificador
PrWIN GR_LI, sep09, plc02, sep09, plc07, 2                    'separador vertical
PrWIN TX_MC, sep09, plc02, sep10, plc04,"Valor|da|coluna 6|actualizado" 'identificador

'cabecalho da coluna 10 e 11
tGr$="Reserva de reavaliação"                                 'titulo
PrWIN TX_CTR,sep10, plc01, sep12, plc02,tGr$                  'identificador
PrWIN GR_LI, sep10, plc02, sep12, plc02, 2                    'linha horizontal

'coluna 10
PrWIN TX_CTR,sep10, plc04, sep11, plc05,"10 = 9 - 6"          'identificador
PrWIN GR_LI, sep10, plc01, sep10, plc07, 2                    'separador vertical
tCo$="Débito"                                                 'titulo
PrWIN TX_MC, sep10, plc02, sep11, plc04,tCo$                  'identificador

'coluna 11
PrWIN TX_CTR,sep11, plc04, sep12, plc05,"11 = 8 - 5"          'identificador
PrWIN GR_LI, sep11, plc02, sep11, plc07, 2                    'separador vertical
tCo$="Crédito"                                                'titulo
PrWIN TX_MC, sep11, plc02, sep12, plc04,tCo$                  'identificador

'zona de totais
PrWIN FON, 10, 1                                                'activar fonte
PrWIN GR_LI, sep01, plc07, sep12, plc07, 2                      'linha horizontal
PrWin FON, "BOLD+"                                              'activar bold
PrWIN TX_N,46, plc07-5, "Total geral ou a transportar .............." 'identificador
PrWin FON, "BOLD-"                                              'desactivar bold
PrWIN FON, 09, 1                                                'activar fonte
PrWIN TX_N,60, plc07+1, "VALOR DA RESERVA DE REAVALIAÇÃO [Total da coluna 11 - Total da coluna 10] [A preencher apenas no último mapa]" 'texto final
PrWIN GR_CX, 235, plc07+1, 265, plc08-1, 2                       'caixa (a)
end sub


SUB Mapa_Lin 'linha 
PrWIN AJT_B,  0, 67.5+Doc_CntLin*4.5          'posicao base

PrWIN TX_N  , sep01+2,  0,MemTxt$(23)         'enquadramento legal
PrWIN TX_DMX, sep02+2,  0, 43,MemTxt$(22)     'nome

PrWIN TX_N, sep03+2,  0,@AqiAno               'ano de aquisicao
PrWIN TX_N, sep04+2,  0,@UltAno               'ano inicio uso

PrWIN TX_NP, sep05+2, 0,"N",@vAqiUlt          'valor de aquisicao
PrWIN TX_NP, sep06+2, 0,"N",@vReiAcm          'valor de reintegracoes acumuladas
PrWIN TX_NP, sep07+2, 0,"N",@cActMon          'coeficiente de actualizacao monetaria
PrWIN TX_NP, sep08+2, 0,"N",@vCol5Acm         'valor da coluna 5 acumulado
PrWIN TX_NP, sep09+2, 0,"N",@vCol6Acm         'valor da coluna 6 acumulado
PrWIN TX_NP, sep10+2, 0,"N",@vDeb             'valor a debito
PrWIN TX_NP, sep11+2, 0,"N",@vCre             'valor a credito
end sub


SUB Mapa_Fim 'fim de pagina
PrWIN AJT_B,  0, 181                          'posicao base

PrWIN TX_NP, sep05+2, 0,"N",@tAqiUlt          'valor de aquisicao
PrWIN TX_NP, sep06+2, 0,"N",@tReiAcm          'valor de reintegracoes acumuladas
PrWIN TX_NP, sep08+2, 0,"N",@tCol5Acm         'valor da coluna 5 acumulado
PrWIN TX_NP, sep09+2, 0,"N",@tCol6Acm         'valor da coluna 6 acumulado
PrWIN TX_NP, sep10+2, 0,"N",@tDeb             'valor a debito
PrWIN TX_NP, sep11+2, 0,"N",@tCre             'valor a credito

PrWIN FP                                      'fim de pagina
end sub
##


'==============================================================================
#INC - Inclusao de ficheiros
'==============================================================================
Funcoes comuns                 =[IMO_LST],Rea_Com.std
##


