'Nome       : Amo_33_4.std
'Tipo       : LST WIN
'Data       : 2005/10/20
'Versao     : 1.1a
'Descricao  : Mapa de Amortizacoes 33.18

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

'- Versao : 1.1   2003/02/23 --------------------------------------------------
'Ajustes nos valores a listar

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


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


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

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


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=Map_Amo33_18
Nome                       [DocNom]=Map_Amo33_18,Reavaliado ...

'formato
Saida/Impressora           [DocPrt]=PAG_W
'Saida/Impressora           [DocPrt]=PAG_W,PRV
'Linhas por pagina          [DocLpg]=24
Linhas por pagina          [DocLpg]=23
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; Sep; Inf; Sbt,0
Listar fim                  [FxFIM]=Mapa_Fim
##


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


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

SUB Mapa_Cab 'cabecalho
call Mapa_CabCom                                            'cabecalho comum
call Mapa_DefLin                                            'definicao de linhas
call Mapa_TipMap                                            'tipo de mapa

'titulo
PrWIN FON, 16, 1                                            'activar fonte
PrWin FON, "BOLD+"                                          'activar bold
'PrWin FON, "BOLD-"                                         'desactivar bold
PrWIN TX_CTR,  79, 8,175, 8,"MAPA DE REINTEGRAÇÕES"         'titulo
PrWin FON, "BOLD-"                                          'desactivar bold
PrWIN FON,  8, 1                                            'activar fonte

if MemTxt$(1)="33.18" then
   PrWIN TX_CTR,  79, 15,175,15,"Elementos do activo imobilizado corpóreo reavaliados"
   PrWIN TX_CTR,  79, 19,175,19,"ao abrigo do Decreto-Lei nº 31/98, de 11 de Fevereiro"
   PrWIN TX_CTR,  79, 23,175,23,"NÃO TOTALMENTE REINTEGRADOS"
   PrWIN TX_CTR,  79, 27,175,27,"na data a que se reporta a reavaliação"
end if

PrWIN FON, 10, 1                                            'activar fonte
PrWIN TX_N,  82, 30,"(a)"                                   'titulo
PrWIN GR_LI, 87, 35, 172, 35, 2                             'linha
PrWIN GR_LI, xMin, plc08, xMax, plc08, 2                    'separador de totais


'separadores de colunas
sep01=xMin
sep02=16
sep03=sep02+43
sep04=sep03+8
sep05=sep04+8
sep06=sep05+20
sep07=sep06+20
sep08=sep07+20
sep09=sep08+9
sep10=sep09+11
sep11=sep10+20
sep12=sep11+20
sep13=sep12+20
sep14=sep13+20
sep15=sep14+20
sep16=sep15+20

sep17=xMax
call Mapa_LinPco                  'posicao de listagem das colunas nas linhas

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


txC5$=""                                       'titulo coluna 5
txC6$=""                                       'titulo coluna 6
txC7$=""                                       'titulo coluna 7

if MemTxt$(1)="33.18" then
   txC5$="Dec.-Lei 126/77|ou|Portaria 20 258"                    'titulo coluna 5
   txC6$="Dec.-Lei 430/78|...|Dec.-Lei 264/92"                   'titulo coluna 6
   txC7$="Dec.-Lei 31/98"                                        'titulo coluna 7
end if


PrWIN TX_CTR,sep01, plc04, sep02, plc05,"(1)"                 'identificador
PrWIN TX_AHV,"5",sep01, plc01, sep02, plc04,"Enqu.|Legal"     'identificador


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


PrWIN TX_CTR,sep03, plc01, sep05, plc02,"Ano"                 'identificador
PrWIN GR_LI, sep03, plc02, sep05, plc02, 2                    'linha horizontal

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,"Aquis."              'identificador
PrWIN FON,  8, 1                                              'activar fonte

PrWIN TX_CTR,sep04, plc04, sep05, plc05,"(4)"                 'identificador
PrWIN GR_LI, sep04, plc02, sep04, plc06, 2                    'separador vertical
PrWIN FON,  6, 1                                              'activar fonte
tCo$="Inic.|de|utiliz."                                       'titulo
PrWIN TX_MC, sep04, plc02, sep05, plc04,tCo$                  'identificador
PrWIN FON,  8, 1                                              'activar fonte


tGr$="Valores do activo imobilizado"                          'titulo
PrWIN TX_CTR,sep05, plc01, sep08, plc02,tGr$                  'identificador
PrWIN GR_LI, sep05, plc02, sep08, plc02, 2                    'linha horizontal

'tGr$="De reavaliação"                                         'titulo
'PrWIN TX_CTR,sep06, plc02, sep09, plc03,tGr$                  'identificador
'PrWIN GR_LI, sep06, plc03, sep09, plc03, 2                    'linha horizontal


PrWIN TX_CTR,sep05, plc04, sep06, plc05,"(5)"                 'identificador
PrWIN TX_CTR,sep05, yAux1, sep06, yAux1,"(d)"                 'identificador
PrWIN GR_LI, sep05, plc01, sep05, plc08, 2                    'separador vertical
tCo$="De aquisição|ou outros|valores|Contabilísticos"         'titulo
PrWIN TX_MC, sep05, plc02, sep06, plc04,tCo$                  'identificador

PrWIN TX_CTR,sep06, plc04, sep07, plc05,"(6)"                 'identificador
PrWIN TX_CTR,sep06, yAux1, sep07, yAux1,"(e)"                 'identificador
PrWIN GR_LI, sep06, plc02, sep06, plc08, 2                    'separador vertical
PrWIN FON,  6, 1                                              'activar fonte
PrWIN TX_MC ,sep06, plc03, sep07, plc04,txC6$                 'identificador
PrWIN FON,  8, 1                                              'activar fonte


PrWIN TX_CTR,sep07, plc04, sep08, plc05,"(7)"                 'identificador
PrWIN TX_CTR,sep07, yAux1, sep08, yAux1,"(f)"                 'identificador
PrWIN GR_LI, sep07, plc02, sep07, plc08, 2                    'separador vertical
PrWIN FON,  6, 1                                              'activar fonte
PrWIN TX_MC, sep07, plc03, sep08, plc04,txC7$                 'identificador
PrWIN FON,  8, 1                                              'activar fonte

tCo$="Anos|util.|esper."                                      'titulo
PrWIN TX_CTR,sep08, plc04, sep09, plc05,"(8)"                 'identificador
PrWIN TX_CTR,sep08, yAux1, sep09, yAux1,"(g)"                 'identificador
PrWIN GR_LI, sep08, plc01, sep08, plc08, 2                    'separador vertical
PrWIN TX_MC, sep08, plc02, sep09, plc04,tCo$                  'identificador


tGr$="Reintegrações actualizadas"                             'titulo
PrWIN TX_CTR,sep09, plc01, sep12, plc02,tGr$                  'identificador
PrWIN GR_LI, sep09, plc02, sep12, plc02, 2                    'linha horizontal

PrWIN TX_CTR,sep09, plc02, sep11, plc03,"Do exercício"        'identificador
PrWIN GR_LI, sep09, plc03, sep11, plc03, 2                    'linha horizontal

PrWIN TX_CTR,sep09, plc04, sep10, plc05,"(9)"                 'identificador
PrWIN GR_LI, sep09, plc01, sep09, plc08, 2                    'separador vertical
PrWIN TX_MC, sep09, plc03, sep10, plc04,"Taxas"               'identificador

PrWIN TX_CTR,sep10, plc04, sep11, plc05,"(10)"                'identificador
PrWIN GR_LI, sep10, plc03, sep10, plc08, 2                    'separador vertical
PrWIN TX_MC, sep10, plc03, sep11, plc04,"Valores"             'identificador

PrWIN TX_CTR,sep11, plc04, sep12, plc05,"(11)"                'identificador
PrWIN GR_LI, sep11, plc02, sep11, plc08, 2                    'separador vertical
PrWIN TX_MC, sep11, plc02, sep12, plc04,"Acumuladas"          'identificador

tCo$="Activo|Imobilizado|(valores|líquidos)"                  'titulo
PrWIN TX_CTR,sep12, plc04, sep13, plc05,"(12)=(7)-(11)"       'identificador
PrWIN GR_LI, sep12, plc01, sep12, plc08, 2                    'separador vertical
PrWIN TX_MC, sep12, plc02, sep13, plc04,tCo$                  'identificador

tCo$="Mais-Valias|não tributadas||{montante}"                 'titulo
PrWIN TX_CTR,sep13, yAux1, sep14, yAux1,"(h)"                 'identificador
PrWIN TX_CTR,sep13, plc04, sep14, plc05,"(13)"                'identificador
PrWIN GR_LI, sep13, plc01, sep13, plc07, 2                    'separador vertical
PrWIN TX_MC, sep13, plc01, sep14, plc04,tCo$                  'identificador

tCo$="Reintegrações|não aceites"                              'titulo
PrWIN TX_CTR,sep14, yAux1, sep15, yAux1,"(i)"                 'identificador
PrWIN TX_CTR,sep14, plc04, sep15, plc05,"(14)"                'identificador
PrWIN GR_LI, sep14, plc01, sep14, plc08, 2                    'separador vertical
PrWIN TX_MC, sep14, plc01, sep15, plc04,tCo$                  'identificador

tCo$="Reintegrações|contidas na|coluna 10|resultantes|dos valores|da coluna 5"  'titulo
PrWIN TX_CTR,sep15, yAux1, sep16, yAux1,"(j)"                 'identificador
PrWIN TX_CTR,sep15, plc04, sep16, plc05,"(15)"                'identificador
PrWIN GR_LI, sep15, plc01, sep15, plc08, 2                    'separador vertical
PrWIN FON,  6, 1                                              'activar fonte
PrWIN TX_MC, sep15, plc01, sep16, plc04,tCo$                  'identificador
PrWIN FON,  8, 1                                              'activar fonte

PrWIN TX_CTR,sep16, plc04, sep17, plc05,"(16)"                'identificador
PrWIN TX_CTR,sep16, yAux1, sep17, yAux1,"(k)"                 'identificador
PrWIN GR_LI, sep16, plc01, sep16, plc07, 2                    'separador vertical
tCo$="Taxas|perd.|acum."                                      'titulo
PrWIN TX_MC, sep16, plc01, sep17, plc04,tCo$                  'identificador


PrWIN FON, 10, 1                                              'activar fonte
yAux=182                                                      'posicao Y
PrWin FON, "BOLD+"                                            'activar bold
PrWIN TX_N,15, yAux, "Total geral ou a transportar ........"  'identificador

yAux=yAux+5                                                   'posicao Y
tx$="Aumento das reintegrações da reavaliação [(10)-(15)] (L)" 'identificador
PrWIN TX_N,15, yAux, tx$                                      'listar identificador
PrWin FON, "BOLD-"                                            'desactivar bold
PrWIN FON, 10, 1                                              'activar fonte
end sub


SUB Mapa_Lin 'linha 
PrWIN FON, 8, 1                               'activar fonte
PrWIN AJT_B,  0, 67.5+Doc_CntLin*4.5          'posicao base

PrWIN TX_N,  lpc01+1,  0,MemTxt$(30)          'enquadramento legal
PrWIN TX_DMX,lpc02,0, 42,MemTxt$(22)          'nome

PrWIN TX_N,  lpc03+0.5,0,@AqiAno              'ano de aquisicao
PrWIN TX_N,  lpc04+0.5,0,@UsoAno              'ano inicio uso

'PrWIN TX_NP, lpc05+1,  0,"N",@vReaVbem        'valor do bem
PrWIN TX_NP, lpc05+1,  0,"N",@vAqi            'valor de aquisicao

PrWIN TX_NP, lpc06+1,  0,"N",@vReaAqiAnt      'valor da aquisicao+reavaliacoes - anterior
PrWIN TX_NP, lpc07+1,  0,"N",@vReaAqiAct      'valor da aquisicao+reavaliacoes - actual
PrWIN TX_NP, lpc08+2,  0,"N",@vReaAuTot       'anos de uso - total
PrWIN TX_NP, lpc09,    0,"N",@anoAmoTx        'taxa de amortizacao
PrWIN TX_NP, lpc10+1,  0,"N",@anoAmoVl        'valor de amortizacao
PrWIN TX_NP, lpc11+1,  0,"N",@acmAmoVl        'valor de amortizacao acumulada
PrWIN TX_NP, lpc12+1,  0,"N",@vLiq            'valor liquido
PrWIN TX_NP, lpc13+1,  0,"N",@mvaVl           'mais valias - valor
PrWIN TX_NP, lpc14+1,  0,"N",@reiNac          'rei/amo nao aceites
PrWIN TX_NP, lpc15+1,  0,"N",@reiVarEx        'reintegracoes s/ valores ...
PrWIN TX_NP, lpc16-0.5,0,"N",@acmTxpTx        'taxas perdidas acumuladas

call Mapa_vRexAcm                             'acumular valor REX
end sub


SUB Mapa_LinSbt 'linha de subtotais
rgp=MemNum(10)                                'registos no grupo
if rgp>1 then
   tmp=CntLin("INC",1)                        'contar linha
   call Mapa_GrpSbt                           'subtotais
end if
tmp=CntLin("INC",1)                           'contar linha (separacao)
x=TotLpz(2)                                   'limpar totais
end sub


SUB Mapa_GrpSbt 'subtotais
dy=4.5                                        'altura da linha
py=68.1+Doc_CntLin*dy                         'posicao Y
'py2=py1+4.5                                   'posicao Y2

PrWIN FON, 8, 1                               'activar fonte
PrWIN AJT_B,  0, py                           'posicao base

PrWIN TX_AHV,5,lpc02,0,lpc03,dy,MemTxt$(22)   'identificacao

'PrWIN TX_NP, lpc05+1,  0,"N",@gReaVbem        'valor do bem
PrWIN TX_NP, lpc05+1,  0,"N",@gAqi            'valor de aquisicao

PrWIN TX_NP, lpc06+1,  0,"N",@gReaAqiAnt      'valor da aquisicao+reavaliacoes - anterior
PrWIN TX_NP, lpc07+1,  0,"N",@gReaAqiAct      'valor da aquisicao+reavaliacoes - actual
PrWIN TX_NP, lpc10+1,  0,"N",@gAnoAmoVl       'valor de amortizacao
PrWIN TX_NP, lpc11+1,  0,"N",@gAcmAmoVl       'valor de amortizacao acumulada
PrWIN TX_NP, lpc12+1,  0,"N",@gLiq            'valor liquido
PrWIN TX_NP, lpc13+1,  0,"N",@gMvaVl          'mais valias - valor
PrWIN TX_NP, lpc14+1,  0,"N",@gReiNac         'rei/amo nao aceites
PrWIN TX_NP, lpc15+1,  0,"N",@gReiVarEx       'reintegracoes s/ valores ...

PrWIN FON, 10, 1                              'activar fonte
end sub


SUB Mapa_FimCom 'fim de pagina - comum
PrWIN FON, 8, 1                               'activar fonte
PrWIN AJT_B,  0, 182                          'posicao base

'PrWIN TX_NP, lpc05+1,  0,"N",@tReaVbem        'valor do bem
PrWIN TX_NP, lpc05+1,  0,"N",@tAqi            'valor de aquisicao

PrWIN TX_NP, lpc06+1,  0,"N",@tReaAqiAnt      'valor da aquisicao+reavaliacoes - anterior
PrWIN TX_NP, lpc07+1,  0,"N",@tReaAqiAct      'valor da aquisicao+reavaliacoes - actual
PrWIN TX_NP, lpc10+1,  0,"N",@tAnoAmoVl       'valor de amortizacao
PrWIN TX_NP, lpc11+1,  0,"N",@tAcmAmoVl       'valor de amortizacao acumulada
PrWIN TX_NP, lpc12+1,  0,"N",@tLiq            'valor liquido
PrWIN TX_NP, lpc13+1,  0,"N",@tMvaVl          'mais valias - valor
PrWIN TX_NP, lpc14+1,  0,"N",@tReiNac         'rei/amo nao aceites
PrWIN TX_NP, lpc15+1,  0,"N",@tReiVarEx       'reintegracoes s/ valores ...
end sub


SUB Mapa_Fim 'fim de pagina
call Mapa_FimCom                              'valores

vl1=Total("anoAmoVl",1)                       'valor de amortizacaoes
vl2=Total("ReiVarEx",1)                       'valor reintegracoes s/ valores ...
vlt=vl1-vl2                                   'aumento de reintegracoes
vtx$=FrmMoe$("",11,vlt,MapMoe)                'formatar						

if MemNum(1)=1 then                           'ultima pagina ?
   rexPxT= 10.0                               'posicao X para valor REX - identificacao
   rexPxV=lpc12                               'posicao X para valor REX
   rexPy = 10.0                               'posicao Y para valor REX
   call Mapa_vRexLst                          'listar valor REX

   PrWIN AJT_B,  0, 187                       'posicao base
   PrWIN TX_NP, lpc14+0,  0,"N",vtx$          'valor liquido
end if

PrWIN FON, 10, 1                              'activar fonte
PrWIN FP                                      'fim de pagina
end sub
##


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

