'Nome       : ImoMva.std
'Tipo       : LST WIN
'Data       : 2005/10/20
'Versao     : 1.0a
'Descricao  : Mapa de Mais valias

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0   2000/10/24 --------------------------------------------------
'Versao base

'- Versao : 1.0a  2001/01/22 --------------------------------------------------
'Ajustes na listagem

'- Versao : 1.0b  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]
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=Mva
Nome                       [DocNom]=Mva,Mais-valias

'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; 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 MAIS-VALIAS"           'titulo
PrWIN TX_CTR,  79, 14,175,14,""                             'titulo
PrWin FON, "BOLD-"                                          'desactivar bold
PrWIN FON, 10, 1                                            'activar fonte
PrWIN TX_CTR,  79, 21,175,21,""                             'titulo
PrWIN TX_CTR,  79, 26,175,26,""                             'titulo
PrWIN FON, 10, 1                                            'activar fonte
PrWIN TX_N,  82, 30,"(a)"                                   'titulo
PrWIN GR_LI, 87, 35, 172, 35, 2                             'linha


'separadores de colunas
sep01=xMin
sep02=75
sep03=95
sep04=105
sep05=125
sep06=145
sep07=165
sep08=sep07
sep09=185
sep10=205
sep11=225
sep12=240
sep13=260
sep14=sep13
sep15=xMax
call Mapa_LinPco                  'posicao de listagem das colunas nas linhas

PrWIN FON,  8, 1                                              'activar fonte
yAux1=plc04-4
yAux2=plc03-4

'PrWIN TX_AHV,"5",sep01, plc01, sep02, plc04,"Enquadr.|Legal"  'identificador

PrWIN TX_CTR,sep01, plc04, sep02, plc05,"(1)"                 'identificador
tCo$="Descrição|dos|elementos|do activo|imobilizado"          'titulo
PrWIN TX_MC, sep01, plc01, sep02, plc04,tCo$                  'identificador


PrWIN TX_CTR,sep02, plc04, sep03, plc05,"(2)"                 'identificador
PrWIN GR_LI, sep02, plc01, sep02, plc07, 2                    'separador vertical
tCo$="Valor|de|realização"                                     'titulo
PrWIN TX_MC, sep02, plc01, sep03, plc04,tCo$                  'identificador

PrWIN TX_CTR,sep03, plc04, sep04, plc05,"(3)"                 'identificador
PrWIN GR_LI, sep03, plc01, sep03, plc07, 2                    'linha vertical
PrWIN TX_MC ,sep03, plc01, sep04, plc04,"Ano|Aquis."          'identificador


PrWIN TX_CTR,sep04, plc04, sep05, plc05,"(4)"                 'identificador
PrWIN GR_LI, sep04, plc01, sep04, plc07, 2                    'linha vertical
tCo$="Valor|de|aquisição"                                     'titulo
PrWIN TX_MC, sep04, plc01, sep05, plc04,tCo$                  'identificador

PrWIN TX_CTR,sep05, plc04, sep06, plc05,"(5)"                 'identificador
PrWIN GR_LI, sep05, plc01, sep05, plc07, 2                    'linha vertical
tCo$="Valor|de|aquisição|reavaliado"                          'titulo
PrWIN TX_MC, sep05, plc01, sep06, plc04,tCo$                  'identificador

PrWIN TX_CTR,sep06, plc04, sep07, plc05,"(6)"                 'identificador
PrWIN GR_LI, sep06, plc01, sep06, plc07, 2                    'linha vertical
tCo$="Reintegrações|e amortizações|praticadas"                'titulo
PrWIN TX_MC, sep06, plc01, sep07, plc04,tCo$                  'identificador

PrWIN TX_CTR,sep07, plc04, sep09, plc05,"(7/8)"               'identificador
PrWIN GR_LI, sep07, plc01, sep07, plc07, 2                    'linha vertical
tCo$="+/- Valia|contab."                                      'titulo
PrWIN TX_MC,sep07, plc01, sep09, plc04,tCo$                   'identificador

PrWIN TX_CTR,sep09, plc04, sep10, plc05,"(9)"                 'identificador
PrWIN GR_LI, sep09, plc01, sep09, plc07, 2                    'linha vertical
tCo$="Mais-valias|não|tributadas"                             'titulo
PrWIN TX_MC, sep09, plc01, sep10, plc04,tCo$                  'identificador

PrWIN TX_CTR,sep10, plc04, sep11, plc05,"(10)"                'identificador
PrWIN GR_LI, sep10, plc01, sep10, plc07, 2                    'linha vertical
tCo$="Reintegrações|e amortizações|praticadas|s/ o valor|aquisição"      'titulo
PrWIN TX_MC, sep10, plc01, sep11, plc04,tCo$                  'identificador

PrWIN TX_CTR,sep11, plc04, sep12, plc05,"(11)"                'identificador
PrWIN GR_LI, sep11, plc01, sep11, plc07, 2                    'linha vertical
tCo$="Coef.|desval.|moeda"                                    'titulo
PrWIN TX_MC, sep11, plc01, sep12, plc04,tCo$                  'identificador

PrWIN TX_CTR,sep12, plc04, sep13, plc05,"(12)"                'identificador
PrWIN GR_LI, sep12, plc01, sep12, plc07, 2                    'linha vertical
tCo$="Valor|líquido|actualiz."                                'titulo
PrWIN TX_MC, sep12, plc01, sep13, plc04,tCo$                  'identificador

PrWIN TX_CTR,sep13, plc04, sep15, plc05,"(13/14)"             'identificador
PrWIN GR_LI, sep13, plc01, sep13, plc07, 2                    'linha vertical
tCo$="+/- Valia|fiscal"                                       'titulo
PrWIN TX_MC, sep13, plc01, sep15, plc04,tCo$                  'identificador

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

'sub-grupo
PrWIN FON,  8, 1                                              'activar fonte
yAux=193                                                      'posicao Y
'tx$="(a) "+MemTxt$(18)                                        'texto a listar
'PrWIN TX_N,10, yAux, tx$                                      'listar

'terminar
PrWIN FON, 10, 1                                              'activar fonte
end sub


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

'PrWIN TX_N,  lpc01+2,  0,MemTxt$(30)          'enquadramento legal
PrWIN TX_N,  lpc01,    0,MemTxt$(22)          'nome

PrWIN TX_NP, lpc02+0,  0,"N",@vAli            'valor de alienacao
PrWIN TX_N,  lpc03+1,  0,@AqiAno              'ano de aquisicao
PrWIN TX_NP, lpc04+0,  0,"N",@vAqi            'valor de aquisicao
PrWIN TX_NP, lpc05+0,  0,"N",@vReaAqiMva      'valor de aquisicao reavaliado
PrWIN TX_NP, lpc06+0,  0,"N",@acmAmoVl        'valor de amortizacao
PrWIN TX_NP, lpc07+0,  0,"N",@vMvaCtb         'mais valia contabilistica
PrWIN TX_NP, lpc09+0,  0,"N",@vMvaNtrb        'mais valia nao tributada
PrWIN TX_NP, lpc10+0,  0,"N",@vAmoAqi         'amortizacao s/valor aquisicao
PrWIN TX_NP, lpc11+4,  0,"N",@vCoeDvm         'coeficiente desvalorizacao da moeda
PrWIN TX_NP, lpc12+0,  0,"N",@vLiqAct         'valor liquido actualizado
PrWIN TX_NP, lpc13+4,  0,"N",@vMvaFis         'mais valia fiscal

PrWIN FON, 10, 1                              'activar fonte
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_NP, lpc02+0,  0,"N",@gAli            'valor de alienacao
PrWIN TX_NP, lpc04+0,  0,"N",@gAqi            'valor de aquisicao
PrWIN TX_NP, lpc05+0,  0,"N",@gReaAqiMva      'valor de aquisicao reavaliado
PrWIN TX_NP, lpc06+0,  0,"N",@gAcmAmoVl       'valor de amortizacao
PrWIN TX_NP, lpc07+0,  0,"N",@gMvaCtb         'mais valia contabilistica
PrWIN TX_NP, lpc09+0,  0,"N",@gMvaNtrb        'mais valia nao tributada
PrWIN TX_NP, lpc10+0,  0,"N",@gAmoAqi         'amortizacao s/valor aquisicao
PrWIN TX_NP, lpc12+0,  0,"N",@gLiqAct         'valor liquido actualizado
PrWIN TX_NP, lpc13+4,  0,"N",@gMvaFis         'mais valia fiscal

PrWIN FON, 10, 1                              'activar fonte
end sub


SUB Mapa_Fim 'fim de pagina
PrWIN FON, 8, 1                               'activar fonte
PrWIN AJT_B,  0, 185                          'posicao base

PrWIN TX_NP, lpc02+0,  0,"N",@tAli            'valor de alienacao
PrWIN TX_NP, lpc04+0,  0,"N",@tAqi            'valor de aquisicao
PrWIN TX_NP, lpc05+0,  0,"N",@tReaAqiMva      'valor de aquisicao reavaliado
PrWIN TX_NP, lpc06+0,  0,"N",@tAcmAmoVl       'valor de amortizacao
PrWIN TX_NP, lpc07+0,  0,"N",@tMvaCtb         'mais valia contabilistica
PrWIN TX_NP, lpc09+0,  0,"N",@tMvaNtrb        'mais valia nao tributada
PrWIN TX_NP, lpc10+0,  0,"N",@tAmoAqi         'amortizacao s/valor aquisicao
PrWIN TX_NP, lpc12+0,  0,"N",@tLiqAct         'valor liquido actualizado
PrWIN TX_NP, lpc13+4,  0,"N",@tMvaFis         'mais valia fiscal

PrWIN FON, 10, 1                              'activar fonte

PrWIN FP                                      'fim de pagina
end sub
##


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

