'Nome       : Fin_40.std
'Tipo       : LST WIN
'Data       : 2005/10/20
'Versao     : 1.0
'Descricao  : Mapa de Locacao financeira 40


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

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


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
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_Fin_40
Nome                       [DocNom]=Map_Fin_40,Mapa de Locação Financeira
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,  122,   9, 254,  34, 2                       'caixa envolvente do titulo

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

PrWIN FON, 12, 1                                          'activar fonte
PrWin FON, "BOLD+"                                        'activar bold
'PrWin FON, "BOLD-"                                       'desactivar bold
PrWIN TX_CTR,  122, 10,254, 10,"MAPA DE DOS CONTRATOS DE LOCAÇÂO FINANCEIRA" 'titulo
PrWIN TX_CTR,  122, 16,254,16,"CELEBRADOS ATÉ 31 DE DEZEMBRO DE 1993" 'sub titulo
PrWIN FON, 10, 1                                          'activar fonte
'PrWin FON, "BOLD-"                                         'desactivar bold
PrWIN FON, 10, 1                                           'activar fonte
PrWIN TX_CTR,  122, 22,254,22,"(DECRETO-LEI Nº 420/93, DE 28 DE DEZEMBRO)" 'titulo
PrWIN TX_CTR,  122, 29,254,29,"LOCATÁRIOS"                 'titulo

PrWIN FON, 10, 1                                          'activar fonte

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

plc01=yMin
plc02=43
'plc03=52
plc03=49
plc04=65
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=25
sep03=94
sep04=122
sep05=134
sep06=146
sep07=154
sep08=182
sep09=194
sep10=224
sep11=254
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 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,"1"                   'identificador
PrWIN GR_LI, sep02, plc01, sep02, plc06, 2                    'separador vertical
tCo$="Designação do bem"                                      'titulo
PrWIN TX_MC, sep02, plc01, sep03, plc04,tCo$                  'identificador

'titulo das colunas 3,4,5,6,7,8
PrWIN GR_LI, sep03, plc02, sep09, plc02, 2                    'separador vertical
PrWIN TX_MC, sep03, plc01, sep09, plc02,"Contratos"           'identificador

'coluna 3
PrWIN TX_CTR,sep03, plc04, sep04, plc05,"2"                   'identificador
PrWIN GR_LI, sep03, plc01, sep03, plc06, 2                    'separador vertical
PrWIN TX_MC, sep03, plc02, sep04, plc04,"Valor"               'identificador

'coluna 4
PrWIN TX_CTR,sep04, plc04, sep05, plc05,"3"                   'identificador
PrWIN GR_LI, sep04, plc02, sep04, plc06, 2                    'separador vertical
PrWIN FON,  6, 1                                              'activar fonte
tCo$="Ano de|celebração"                                      'titulo
PrWIN TX_MC, sep04, plc02, sep05, plc04,tCo$                  'identificador

'coluna 5
PrWIN TX_CTR,sep05, plc04, sep06, plc05,"4"                   'identificador
PrWIN GR_LI, sep05, plc02, sep05, plc06, 2                    'separador vertical
PrWIN TX_MC, sep05, plc02, sep06, plc04,"Duração|meses"       'identificador
PrWIN FON,  8, 1                                              'activar fonte

'cabecalho da coluna 6,7,8
tGr$="Opção de compra"                                        'titulo
PrWIN TX_CTR,sep06, plc02, sep09, plc03,tGr$                  'identificador
PrWIN GR_LI, sep06, plc03, sep09, plc03, 2                    'linha horizontal

'coluna 6
PrWIN GR_LI, sep06, plc02, sep06, plc06, 2                    'separador vertical
PrWIN TX_MC ,sep06, plc03, sep07, plc04,"Ano"                 'identificador

'coluna 7
PrWIN TX_CTR,sep07, plc04, sep08, plc05,"5"                   'identificador
PrWIN GR_LI, sep07, plc03, sep07, plc04, 2                    'separador vertical
PrWIN GR_LI, sep07, plc05, sep07, plc06, 2                    'separador vertical
PrWIN TX_MC, sep07, plc03, sep08, plc04,"Valor"               'identificador

'coluna 8
PrWIN FON,  6, 1                                              'activar fonte
PrWIN GR_LI, sep08, plc03, sep08, plc04, 2                    'separador vertical
PrWIN GR_LI, sep08, plc05, sep08, plc06, 2                    'separador vertical
PrWIN TX_MC,sep08, plc03, sep09, plc04,"Nº de anos|utilidade|esperada" 'identificador
PrWIN FON,  8, 1                                              'activar fonte

'coluna 9
PrWIN TX_CTR,sep09, plc04, sep10, plc05,"6"                   'identificador
PrWIN GR_LI, sep09, plc01, sep09, plc08, 2                    'separador vertical
PrWIN TX_MC, sep09, plc01, sep10, plc04,"Reintegração|contabilizada" 'identificador

'cabecalho da coluna 10 e 11
tGr$="Regime fiscal anterior"                                 '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,"7"                   'identificador
PrWIN GR_LI, sep10, plc01, sep10, plc08, 2                    'separador vertical
PrWIN TX_MC, sep10, plc02, sep11, plc04,"Amortização|financeira" 'identificador

'coluna 11
PrWIN TX_CTR,sep11, plc04, sep12, plc05,"8"                   'identificador
PrWIN GR_LI, sep11, plc02, sep11, plc07, 2                    'separador vertical
tCo$="Reintegração|do valor residual"                         '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,sep08,plc06+1, "TOTAL"                               'identificador
PrWIN GR_LI, sep09+5, plc06, sep09+5, plc07, 2                  'linha vertical
PrWIN GR_LI, sep10+5, plc06, sep10+5, plc07, 2                  'linha vertical
PrWIN GR_LI, sep11+5, plc06, sep11+5, plc07, 2                  'linha vertical
PrWIN TX_N,sep09+1,plc06+1, "A"                                 'identificador
PrWIN TX_N,sep10+1,plc06+1, "B"                                 'identificador
PrWIN TX_N,sep11+1,plc06+1, "C"                                 'identificador

'PrWin FON, "BOLD-"                                              'desactivar bold
PrWIN FON, 07, 1                                                'activar fonte
tCo$="Total A|acrescer no quadro 17"                            'texto
PrWIN TX_MC, sep09, plc07, sep10, plc08,tCo$                    'identificador
tCo$="Total B + Total C|deduzir no quadro 17"                   'texto
PrWIN TX_MC, sep10, plc07, sep12, plc08,tCo$                    'identificador
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, sep09+12, 0,"N",@tCol6Acm        'valor da coluna 6 acumulado
PrWIN TX_NP, sep10+12, 0,"N",@tDeb            'valor a debito
PrWIN TX_NP, sep11+12, 0,"N",@tCre            'valor a credito

PrWIN FP                                      'fim de pagina
end sub
##


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