'Nome       : Rea_Com.std
'Tipo       : LST WIN
'Data       : 2000/01/19
'Versao     : 1.0
'Descricao  : Dados comuns para Mapas de Reavalizacoes

'Notas      : Ficheiro para incluir nos documentos

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


'==============================================================================
#VAR - Variaveis
'==============================================================================
'cabecalho
Pag      =Doc_CntPag
DataExt  =FrmVal$(Sig_DtHoje,45,0)

TpMap    =MemTxt$(1)
EmpIde   =Emp_Inf_Nome$
EmpActiv =Emp_Inf_Activ$
EmpCtrb  =left$(TxCarEli$(0,Emp_Inf_Contrib$," "),9)
EmpCae   =Emp_Inf_Cae$

ExerAno  =FrmDt$("A4",Sig_DtHoje)
PtribIni =MemTxt$(11)
PtribFim =MemTxt$(12)
Ptrib    ="De  "+MemTxt$(11)+"  a  "+MemTxt$(12)

'variaveis a listar
Cod      =Imo_Mst_Cod$                
Nom      =Imo_Mst_Nome$

Tco      =FrmVal$(Total(Cod),21,14.1)

Data     =FrmVal$(MemNum(41),44,0)
AqiAno   =FrmDt$("A2",MemNum(42))
UsoAno   =FrmDt$("A2",MemNum(43))
UsoMes   =FrmDt$("M",MemNum(43))

vAqi     =FrmNum$(9.0,MemNum(11))
aUso     =FrmVal$(MemNum(12),21, 2.0)
vLiq     =FrmNum$(9.0,MemNum(31))

antAmoVl =FrmNum$(9.0,MemNum(21))
anoAmoTx =FrmVal$(MemNum(22),21, 2.0)
anoAmoVl =FrmNum$(9.0,MemNum(23))
acmAmoVl =FrmNum$(9.0,MemNum(24))
acmTxpTx =FrmVal$(MemNum(25),21, 2.0)

'totais
tAqi     =FrmNum$(9.0,Total(vAqi))
tAntAmoVl=FrmNum$(9.0,Total(antAmoVl))
tAnoAmoVl=FrmNum$(9.0,Total(anoAmoVl))
tAcmAmoVl=FrmNum$(9.0,Total(acmAmoVl))
tLiq     =FrmNum$(9.0,Total(vLiq))
##


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


'-----------------------------------------------------------------------------
' Funcoes para inicializacao
'-----------------------------------------------------------------------------
'fontes automaticas
'Arial
'Ms Sans Serif
'Courier New


SUB FxIni 'funcao de inicializacao
'modo WIN
PrWIN AJT_F, 56.7,  56.7                                    'ajuste para milimetros
PrWIN AJT_D,  10.0,   10.0                                  'deslocamento de ajuste 
'PrWIN IMG_F, 1, VarTx$("[SIG_DIR.DIV],OliLogo.bmp","R")    'imagem (logotipo)
PrWIN ET,  2                                                'espessura de traco 

PrWIN ORI,  "L"                                             'landscape 
end sub


SUB FxFim 'funcao de finalizacao
PrWIN FON, "REG"                           'limpar registo de fontes
end sub


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


SUB Mapa_CabFim 'finalizar documento
'
end sub


SUB Mapa_CabCom 'cabecalho comum
'PrWIN COR_F, 000,000,250                       'cor de fundo RGB

'PrWIN AJT_D,  -560.0,   -560.0                 'deslocamento de ajuste 
PrWIN AJT_D,  -280.0,   -280.0                  'deslocamento de ajuste 

PrWIN AJT_B, 0.0, 0.0                           'posicao base
PrWIN COR_F, 15                                 'cor de fundo 
'PrWIN GR_CX,    5,    5, 291, 203, 3            'caixa de moldura - Maximo
PrWIN GR_CX,    5,    5, 284, 194, 3            'caixa de moldura - Maximo

'caixa de titulo 1
PrWIN FON,  8, 1                                               'activar fonte
PrWIN GR_CX,   7,   9,  79,  35, 2                             'caixa envolvente
PrWIN TX_DMX,  9, 11, 70,"Firma "+Emp_Inf_Nome$               'empresa
PrWIN GR_LI, 16, 14, 77, 14, 2                                 'linha
PrWIN GR_LI,  9, 18, 77, 18, 2                                 'linha

PrWIN TX_N,   10, 23, "Exercício de"                            'titulo
PrWIN TX_CO,  30, 23, 4,@ExerAno                                'exercicio
PrWIN FON,  7, 1                                                'activar fonte
PrWin FON, "BOLD+"                                              'activar bold
PrWIN TX_N,   10, 30,"PERIODO DE TRIBUTAÇÃO"                    'titulo
'PrWIN GR_CX,   9, 29.5, 39, 33, 2                               'caixa envolvente
PrWIN TX_N,   43, 30, @Ptrib
PrWin FON, "BOLD-"                                              'desactivar bold
'PrWIN FON,  8, 1                                               'activar fonte

'caixa de titulo 2
PrWIN FON,  8, 1                                          'activar fonte
PrWIN GR_CX, 175,   9, 254,  35, 2                        'caixa envolvente
PrWIN TX_N,  177, 12,"Número de identificação fiscal"     'titulo
PrWIN FON, 7.5, 1                                         'activar fonte
PrWIN TX_CO, 219,  12, 9,@EmpCtrb                         'contribuinte
PrWIN FON,  8, 1                                          'activar fonte

PrWIN TX_N,  177, 18,"Actividade principal"               'titulo
PrWIN TX_DMX,205, 18, 48,@EmpActiv                        'actividade
PrWIN GR_LI, 204, 21, 252, 21, 2                          'linha
PrWIN GR_LI, 177, 26, 252, 26, 2                          'linha
PrWIN FON,  7.5, 1                                        'activar fonte
PrWIN TX_N,  177, 29,"Código CAE"                         'titulo
PrWIN TX_CO, 196, 29, 6,@EmpCae                           'codigo CAE

PrWIN GR_LI, 222, 26, 222, 35, 2                          'linha

PrWIN TX_N,  225, 29,"Pág. nº"                            'titulo
PrWIN TX_N,  240, 29,@Pag                                 'numero da pagina
end sub
##

