'Nome       : SncMva.std
'Tipo       : LST WIN
'Data       : 2011/05/04
'Versao     : 1.0a
'Descricao  : Mapa de mais e menos valias (31) - SNC

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0a  ____/__/__ --------------------------------------------------
'Correccao de listagem de coeficiente de desvalorizacao da moeda

'- Versao : 1.0   2011/05/02 --------------------------------------------------
'Versao base


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


'==============================================================================
#DEF - Definicao global do documento
'==============================================================================
Subtotalizadores                 [SbtNiv]=3
##


'==============================================================================
#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]=MvaSnc
Nome                       [DocNom]=MvaSnc,Mapa de Mais e Menos Valias

'formato
Saida/Impressora           [DocPrt]=PAG_W
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; Sbe, 0
Listar fim                  [FxFIM]=Mapa_Fim
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
'- (61) --------------------------------------------------->'Comentario
Pag       = Doc_CntPag                                      'pagina
DataExt   = FrmVal$(Sig_DtHoje,45,0)                        'data por extenso

'dados da empresa
EmpIde    = Emp_Inf_Nome$                                   'empresa
EmpActiv  = Emp_Inf_Activ$                                  'actividade
EmpCtrb   = left$(TxCarEli$(0,Emp_Inf_Contrib$," "),9)      'contribuinte
EmpCae    = Emp_Inf_Cae$                                    'CAE

'diversos
TpMap     = MemTxt$(1)                                      'tipo de mapa

ExerAno   = FrmDt$("A4",Sig_DtHoje)                         'execrcicio
PtribIni  = MemTxt$(11)                                     'periodo de tributacao - Inicio
PtribFim  = MemTxt$(12)                                     'periodo de tributacao - Fim
Ptrib     = "De "+MemTxt$(11)+" a "+MemTxt$(12)             'periodo de tributacao

'variaveis a listar
Data      = FrmVal$(MemNum(41),44,0)                        'data de amortizacao
AqiAno    = FrmDt$("A4",MemNum(42))                         'data de aquisicao
UsoAno    = FrmDt$("A4",MemNum(43))                         'inicio de uso - ANO
'UsoMes   = FrmDt$("M",MemNum(43))                          'inicio de uso - Mes
UsoMes    = FrmVal$(MemNum(45),20, 2.0)                     'mes de inicio de uso

'- Valores SNC ----------------------------------------------------------------
vSncMvaRea = FrmMoe$("",12,uSncMvaRea,MapMoe)               '( 2) valor de realizacao
vSncAqiFis = FrmMoe$("",12,uSncAqiFis,MapMoe)               '( 3) valor de aquisicao para efeitos fiscais
vSncAqiAno = uSncAqiAno$                                    '( 4) ano de aquisicao
vSncAqiCtb = FrmMoe$("",12,uSncAqiCtb,MapMoe)               '( 5) valor de aquisicao para efeitos contabilisticos
vSncPerReg = FrmMoe$("",12,uSncPerReg,MapMoe)               '( 6) amortizacoes e perdas por imparidade registadas
vSncMvCtbS = uSncMvCtbS$                                    '( 7) mais valia - sinal
'vSncMvCtbV = FrmMoe$("",12,uSncMvCtbV,MapMoe)               '( 8) mais valia - valor
vSncMvCtbV = FrmMoe$("",12,uSncMvCtb,MapMoe)                '( 8) mais valia - valor
vSncMvaNtb = FrmMoe$("",12,uSncMvaNtb,MapMoe)               '( 9) mais valia nao tributada
vSncPerAfi = FrmMoe$("",12,uSncPerAfi,MapMoe)               '(10) amortizacoes e perdas aceites fiscalmente
vSncCoeDvm = uSncCoeDvm                                     '(11) coeficiente de desvalorizacao da moeda
vSncMvFisS = uSncMvFisS$                                    '(12) mais valia fiscal - sinal
'vSncMvFisV = FrmMoe$("",12,uSncMvFisV,MapMoe)               '(13) mais valia fiscal - valor
vSncMvFisV = FrmMoe$("",12,uSncMvFis,MapMoe)                '(13) mais valia fiscal - valor

'grupo
gSncMvaRea = FrmMoe$("",12,Total(vSncMvaRea,2),MapMoe)      '( 2) valor de realizacao
gSncAqiFis = FrmMoe$("",12,Total(vSncAqiFis,2),MapMoe)      '( 3) valor de aquisicao para efeitos fiscais
gSncAqiCtb = FrmMoe$("",12,Total(vSncAqiCtb,2),MapMoe)      '( 5) valor de aquisicao para efeitos contabilisticos
gSncPerReg = FrmMoe$("",12,Total(vSncPerReg,2),MapMoe)      '( 6) amortizacoes e perdas por imparidade registadas
gSncMvCtbS = uGrpMvCtbS$                                    '( 7) mais valia - sinal
gSncMvCtbV = FrmMoe$("",12,Total(vSncMvCtbV,2),MapMoe)      '( 8) mais valia - valor
gSncMvaNtb = FrmMoe$("",12,Total(vSncMvaNtb,2),MapMoe)      '( 9) mais valia nao tributada
gSncPerAfi = FrmMoe$("",12,Total(vSncPerAfi,2),MapMoe)      '(10) amortizacoes e perdas aceites fiscalmente
gSncMvFisS = uGrpMvFisS$                                    '(12) mais valia fiscal - sinal
gSncMvFisV = FrmMoe$("",12,Total(vSncMvFisV,2),MapMoe)      '(13) mais valia fiscal - valor

'totais
tSncMvaRea = FrmMoe$("",12,Total(vSncMvaRea,1),MapMoe)      '( 2) valor de realizacao
tSncAqiFis = FrmMoe$("",12,Total(vSncAqiFis,1),MapMoe)      '( 3) valor de aquisicao para efeitos fiscais
tSncAqiCtb = FrmMoe$("",12,Total(vSncAqiCtb,1),MapMoe)      '( 5) valor de aquisicao para efeitos contabilisticos
tSncPerReg = FrmMoe$("",12,Total(vSncPerReg,1),MapMoe)      '( 6) amortizacoes e perdas por imparidade registadas
tSncMvCtbS = uVtoMvCtbS$                                    '( 7) mais valia - sinal
tSncMvCtbV = FrmMoe$("",12,Total(vSncMvCtbV,1),MapMoe)      '( 8) mais valia - valor
tSncMvaNtb = FrmMoe$("",12,Total(vSncMvaNtb,1),MapMoe)      '( 9) mais valia nao tributada
tSncPerAfi = FrmMoe$("",12,Total(vSncPerAfi,1),MapMoe)      '(10) amortizacoes e perdas aceites fiscalmente
tSncMvFisS = uVtoMvFisS$                                    '(12) mais valia fiscal - sinal
tSncMvFisV = FrmMoe$("",12,Total(vSncMvFisV,1),MapMoe)      '(13) mais valia fiscal - valor


'- Natureza dos activos -------------------------------------------------------
'- (61) --------------------------------------------------->'Comentario
vNat_AFI   = VarCom$("Nat_AFI")                             'activos fixos tangiveis
vNat_AIN   = VarCom$("Nat_AIN")                             'activos intangiveis
vNat_PIN   = VarCom$("Nat_PIN")                             'propriedades de investimento
vNat_ABI   = VarCom$("Nat_ABI")                             'activos biologicos
vNat_PCA   = VarCom$("Nat_PCA")                             'partes de capital

##


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
'- +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
'- (13) --->'Comentario
'- (25) --------------->'Comentario
'- (28) ------------------>'Comentario
'- (40) ------------------------------>'Comentario
'- (43) --------------------------------->'Comentario
'- (46) ------------------------------------>'Comentario
'- (49) --------------------------------------->'Comentario
'- (52) ------------------------------------------>'Comentario
'- (55) --------------------------------------------->'Comentario
'- (58) ------------------------------------------------>'Comentario
'- (61) --------------------------------------------------->'Comentario
'- (64) ------------------------------------------------------>'Comentario
'- (67) --------------------------------------------------------->'Comentario
'- (70) ------------------------------------------------------------>'Comentario


'-----------------------------------------------------------------------------
'- Funcoes de inicializacao --------------------------------------------------
'-----------------------------------------------------------------------------
'fontes automaticas:
' 1 - Arial
' 2 - Ms Sans Serif
' 3 - 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 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


Sub Mapa_CabIni 'inicializacao do documento
MapMoe  = 91                                                'moeda para mapas
vRexAcm = 0                                                 'limpar valor REX
end sub


Sub Mapa_CabFim 'finalizar documento
'nada a executar
end sub


'-----------------------------------------------------------------------------
'- Funcoes diversas ----------------------------------------------------------
'-----------------------------------------------------------------------------
Sub Mapa_PrpVar 'preparar variaveis
xMin =  18.0                                                'X minimo
xMax = 278.0                                                'X maximo
yMin =  46.0                                                'Y minimo
yLin =  79.0                                                'Y inicio de linhas
yMax = 195.0                                                'Y maximo

linSep =  4.5                                               'separacao de linhas
linNum = 24                                                 'numero de linhas

'posicao de linhas
plc01 = yMin                                                'linha 1 - inicio de titulo
'plc02 = 51                                                  'linha 2 - fim de titulo de grupo de colunas
plc02 = 55                                                  'linha 2 - fim de titulo de grupo de colunas
plc03 = 59                                                  'linha 3 - fim de sub-titulo (gastos fiscais)
plc04 = 62                                                  'linha 4 - data
plc05 = 71                                                  'linha 5 - numero de coluna
plc06 = yLin                                                'linha 6 - fim de zona de titulos
plc07 = yLin + linNum * linSep                              'linha 7 - inicio de totais
plc08 = plc07 + 5.0                                         'linha 8 - fim de totais
plc09 = 0 + (plc07 + plc08) / 2                             'posicao de identificacao de totais
end sub


Sub Mapa_CabCom 'cabecalho comum
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 

py1 =  16.0                                                 'posicao Y1
py2 =  45.0                                                 'posicao Y2

'zona de titulo 1
px1 = xMin                                                  'posicao X1
px2 =  76.0                                                 'posicao X2
PrWIN GR_CX, px1, py1, px2, py2, 2                          'caixa envolvente

PrWIN FON,  8, 1                                            'activar fonte
PrWin FON, "BOLD+"                                          'activar bold
PrWIN TX_N,  27.0, 20.0,"Nº DE IDENTIFICAÇÃO FISCAL"        'titulo
PrWin FON, "BOLD-"                                          'desactivar bold
PrWIN FON,  8, 3                                            'activar fonte
PrWIN TX_CO, 31.0, 25.0, 9,@EmpCtrb                         'contribuinte
PrWIN FON,  8, 1                                            'activar fonte

PrWin FON, "BOLD+"                                          'activar bold
PrWIN TX_N, 30.0, 32.0,"PERIODO DE TRIBUTAÇÃO"              'titulo
PrWin FON, "BOLD-"                                          'desactivar bold
PrWIN FON,  8, 3                                            'activar fonte
PrWIN TX_CO,41.0, 37.0, 4,@ExerAno                          'exercicio
PrWIN FON,  8, 1                                            'activar fonte

'zona de titulo 2
px1 =  77.0                                                 'posicao X1
px2 = 237.0                                                 'posicao X2

uy1 = py1                                                   'Y1 a usar
uy2 = 26.0                                                  'Y2 a usar
PrWIN GR_CX, px1, uy1, px2, uy2, 2                          'caixa envolvente
PrWIN FON,  8, 1                                            'activar fonte

ide$ = "MAPA DE MAIS-VALIAS E MENOS-VALIAS"                 'identificacao
PrWin FON, "BOLD+"                                          'activar bold
PrWIN FON, 16, 1                                            'activar fonte
PrWIN TX_CTR,px1, uy1, px2, uy2,ide$                        'listar identificacao
PrWIN FON,  8, 1                                            'activar fonte
PrWin FON, "BOLD-"                                          'desactivar bold

uy1 = 27.0                                                  'Y1 a usar
uy2 = py2                                                   'Y2 a usar
pxs = 157.0                                                 'X do separador
PrWIN GR_CX, px1, uy1, px2, uy2, 2                          'caixa envolvente
'PrWIN GR_LI, pxs, uy1, pxs, uy2, 2                          'linha de separacao vertical

gy0 = 28.0                                                  'Y para titulo do grupo
gy1 = 32.0                                                  'Y para opcao 1
gy2 = 36.0                                                  'Y para opcao 2
gy3 = 40.0                                                  'Y para opcao 3

PrWin FON, "BOLD+"                                          'activar bold
PrWIN TX_CTR, px1, gy0, px2, gy0,"NATUREZA DOS ACTIVOS"     'identificacao de grupo
PrWin FON, "BOLD-"                                          'desactivar bold

'grupo 1
gx0 =  85                                                   'X do titulo de grupo
gx1 = gx0 +  5.0                                            'X das opcoes
gx2 = gx0 + 57.0                                            'X da caixa de opcao
PrWIN TX_N, gx1, gy1,"ACTIVOS FIXOS TANGIVEIS"              'identificacao da opcao
PrWIN TX_N, gx1, gy2,"ACTIVOS INTANGIVEIS"                  'identificacao da opcao
PrWIN TX_N, gx1, gy3,"PROPRIEDADES DE INVESTIMENTO"         'identificacao da opcao

PrWIN FON,  5, 1                                            'activar fonte
PrWIN TX_CO, gx2, gy1, 1,@vNat_AFI                          'natureza - opcao 1
PrWIN TX_CO, gx2, gy2, 1,@vNat_AIN                          'natureza - opcao 2
PrWIN TX_CO, gx2, gy3, 1,@vNat_PIN                          'natureza - opcao 3
PrWIN FON,  8, 1                                            'activar fonte

'grupo 2
gx0 = 148                                                   'X do titulo de grupo
gx1 = gx0 +  5.0                                            'X das opcoes
gx2 = gx0 + 67.0                                            'X da caixa de opcao
PrWIN TX_N, gx1, gy1,"ACTIVOS BIOLÓGICOS NÃO CONSUMÍVEIS"   'identificacao da opcao
PrWIN TX_N, gx1, gy2,"PARTES DE CAPITAL"                    'identificacao da opcao
PrWIN TX_N, gx1, gy3,""                                     'identificacao da opcao

PrWIN FON,  5, 1                                            'activar fonte
PrWIN TX_CO, gx2, gy1, 1,@vNAT_ABI                          'natureza - opcao 4
PrWIN TX_CO, gx2, gy2, 1,@vNAT_PCA                          'natureza - opcao 5
PrWIN FON,  8, 1                                            'activar fonte

'zona de titulo 3
px1 = 238.0                                                 'posicao X1
px2 = xMax                                                  'posicao X2
PrWIN GR_CX, px1, py1, px2, py2, 2                          'caixa envolvente
PrWIN FON,  8, 1                                            'activar fonte

PrWin FON, "BOLD+"                                          'activar bold
PrWIN FON, 14, 1                                            'activar fonte
PrWIN TX_N, 264.0, 24.0,"IRC"                               'identificacao
PrWin FON, "BOLD-"                                          'desactivar bold
PrWIN FON, 10, 1                                            'activar fonte

PrWin FON, "BOLD+"                                          'activar bold
PrWIN TX_N, 242.0, 37.0,"MODELO"                            'identificacao
PrWin FON, "BOLD-"                                          'desactivar bold

PrWIN FON, 20, 1                                            'activar fonte
PrWin FON, "BOLD+"                                          'activar bold
PrWIN TX_N, 264.0, 35.0,"31"                                'tipo do mapa
PrWin FON, "BOLD-"                                          'desactivar bold

PrWIN FON, 10, 1                                            'activar fonte
end sub


Sub Mapa_DefLin 'definicao de linhas
PrWIN GR_CX,  xMin, plc01, xMax, plc08, 2                   'caixa envolvente
PrWIN GR_CX,  xMin, plc05, xMax, plc06, 2                   'caixa envolvente - zona de numero de coluna

'marcar linhas
for i = 1 to linNum
py = plc06 + i * linSep                                     'posicao Y da linha
PrWIN GR_LI,  xMin, py, xMax, py, 2                         'linha

'debug
'pyNli = py - linSep                                        'posicao da linha
'PrWIN TX_N, 20,pyNli ,i                                    'listar numero da linha
next
end sub


Sub Mapa_Cab 'cabecalho
call Mapa_PrpVar                                            'preparar variaveis
call Mapa_CabCom                                            'cabecalho comum
call Mapa_DefLin                                            'definicao de linhas

PrWIN FON, 16, 1                                            'activar fonte
PrWIN TX_N, 270.0, 17.0,@Pag                                'numero da pagina


'separadores de colunas
'sep01 =xMin
'sep02 =  65
'sep03 =  88
'sep04 = 111
'sep05 = 119
'sep06 = 141
'sep07 = 165
'sep08 = 172
'sep09 = 195
'sep10 = 218
'sep11 = 240
'sep12 = 248
'sep13 = 256
'sep14 = xMax

dxAn  =  8.0                                 'largura de coluna de ano
dxSi  =  8.0                                 'largura de coluna de sinal
dxCv  = 23.0                                 'largura de coluna de valor
dxCm  =  7.0                                 'largura de coluna de coeficiente pra moeda

call Mapa_LinPco                             'posicao de listagem das colunas nas linhas
sep01 =xMin                                  '( 1) descricao dos elementos do activo
sep02 =  65                                  '( 2) valor de realizacao
sep03 = sep02 + dxCv                         '( 3) valor de aquisicao para efeitos fiscais
sep04 = sep03 + dxCv                         '( 4) ano de aquisicao
sep05 = sep04 + dxAn                         '( 5) valor de aquisicao para efeitos contabilisticos
sep06 = sep05 + dxCv                         '( 6) amortizacoes e perdas por imparidade registadas
sep07 = sep06 + dxCv                         '( 7) mais valia - sinal
sep08 = sep07 + dxSi                         '( 8) mais valia - valor
sep09 = sep08 + dxCv                         '( 9) mais valia nao tributada
sep10 = sep09 + dxCv                         '(10) amortizacoes e perdas aceites fiscalmente
sep11 = sep10 + dxCv                         '(11) coeficiente de desvalorizacao da moeda
sep12 = sep11 + dxCm                         '(12) mais valia fiscal - sinal
sep13 = sep12 + dxSi                         '(13) mais valia fiscal - valor
sep14 = xMax                                 'posicao final

call Mapa_LinPco                             'posicao de listagem das colunas nas linhas

pyVto = plc07 + 0.5                          'posicao Y para valores totais

'listar aspecto
PrWin FON, "BOLD-"                                            'desactivar bold
PrWIN FON,  7, 1                                              'activar fonte

'coluna 1
ide$ = "Descrição dos elementos do activo"                    'identificacao
PrWIN TX_CTR,sep01, plc01, sep02, plc05,ide$                  'listar identificacao
PrWIN TX_CTR,sep01, plc05, sep02, plc06,"(1)"                 'numero da coluna

'coluna 2
ide$ = "Valor de realização"                                  'identificacao
PrWIN GR_LI, sep02, plc01, sep02, plc08, 2                    'separador de coluna
PrWIN TX_MC, sep02, plc01, sep03, plc05,ide$                  'listar identificacao
PrWIN TX_CTR,sep02, plc05, sep03, plc06,"(2)"                 'numero da coluna

'coluna 3
ide$ = "Valor de aquisição|para efeitos fiscais"              'identificacao
PrWIN GR_LI, sep03, plc01, sep03, plc08, 2                    'separador de coluna
PrWIN TX_MC, sep03, plc01, sep04, plc05,ide$                  'listar identificacao
PrWIN TX_CTR,sep03, plc05, sep04, plc06,"(3)"                 'numero da coluna

'coluna 4
ide$ = "Ano de aquisição"                                     'identificacao
PrWIN GR_LI, sep04, plc01, sep04, plc07, 2                    'separdor de coluna
'PrWIN TX_CTR,sep04, plc04, sep05, plc05,ide$                  'listar identificacao
PrWIN TX_OHV,"5.90",sep04, plc01, sep05, plc05,ide$           'listar identificacao
PrWIN TX_CTR,sep04, plc05, sep05, plc06,"(4)"                 'numero da coluna

'coluna 5
ide$ = "Valor de aquisição|para efeitos|contabilisticos"      'identificacao
PrWIN GR_LI, sep05, plc01, sep05, plc07, 2                    'separador de coluna
PrWIN TX_MC ,sep05, plc01, sep06, plc05,ide$                  'listar identificacao
PrWIN TX_CTR,sep05, plc05, sep06, plc06,"(5)"                 'numero da coluna

'coluna 6
ide$ = "Depreciações/|amorizações e|perdas por|imparidade|regsistadas"  'identificacao
PrWIN GR_LI, sep06, plc01, sep06, plc07, 2                    'separador de coluna
PrWIN TX_MC, sep06, plc01, sep07, plc05,ide$                  'listar identificacao
PrWIN TX_CTR,sep06, plc05, sep07, plc06,"(6)"                 'numero da coluna

'mais valia contabilistica
ide$ = "Mais-valia ou menos-valia|contabilistica"             'identificacao
PrWIN TX_MC, sep07, plc01, sep09, plc02,ide$                  'listar identificacao
PrWIN GR_LI, sep07, plc02, sep09, plc02, 2                    'separador horizontal

'coluna 7
ide$ = "Sinal"                                                'identificacao
PrWIN GR_LI, sep07, plc01, sep07, plc08, 2                    'separador de coluna
PrWIN TX_MC, sep07, plc02, sep08, plc05,ide$                  'listar identificacao
PrWIN TX_CTR,sep07, plc05, sep08, plc06,"(7)"                 'numero da coluna

'coluna 8
ide$ = "Valor"                                                'identificacao
inc$ = "(8)=(2)-[(5)-(6)]"                                    'identificacao para numero de coluna
PrWIN GR_LI, sep08, plc02, sep08, plc08, 2                    'separador de coluna
PrWIN TX_MC, sep08, plc02, sep09, plc05,ide$                  'listar identificacao
PrWIN TX_CTR,sep08, plc05, sep09, plc06,inc$                  'numero da coluna

'coluna 9
ide$ = "Mais-valia não|tributadas"
PrWIN GR_LI, sep09, plc01, sep09, plc08, 2                    'separador de coluna
PrWIN TX_MC, sep09, plc02, sep10, plc05,ide$                  'listar identificacao
PrWIN TX_CTR,sep09, plc05, sep10, plc06,"(9)"                 'numero da coluna

'coluna 10
ide$ = "Depreciações/|amortizações e|perdas por|imparidade aceites|fiscalmente"
PrWIN GR_LI, sep10, plc01, sep10, plc07, 2                    'separador de coluna
PrWIN TX_MC, sep10, plc01, sep11, plc05,ide$                  'listar identificacao
PrWIN TX_CTR,sep10, plc05, sep11, plc06,"(10)"                'numero da coluna

'coluna 11
ide$ = "Coeficiente de|desvalorização da|moeda"               'identificacao
PrWIN GR_LI, sep11, plc01, sep11, plc07, 2                    'separador de coluna
PrWIN FON,  6, 1                                              'activar fonte
PrWIN TX_OHV,"5.90",sep11, plc01, sep12, plc05,ide$           'listar identificacao
PrWIN FON,  7, 1                                              'activar fonte
PrWIN TX_CTR,sep11, plc05, sep12, plc06,"(11)"                'numero da coluna

'mais valia fiscal
ide$ = "Mais-valia ou menos-valia|fiscal"                     'identificacao
PrWIN TX_MC, sep12, plc01, sep14, plc02,ide$                  'listar identificacao
PrWIN GR_LI, sep12, plc02, sep14, plc02, 2                    'separador horizontal

'coluna 12
ide$ = "Sinal"                                                'identificacao
PrWIN GR_LI, sep12, plc01, sep12, plc08, 2                    'separador de coluna
PrWIN TX_MC, sep12, plc02, sep13, plc05,ide$                  'listar identificacao
PrWIN TX_MC, sep12, plc05, sep13, plc06,"(12)"                'numero da coluna

'coluna 13
ide$ = "Valor"                                                'identificacao
inc$ = "(13)=(2)-[((3)-(9)-|(10))x(11)]"                      'identificacao para numero de coluna
PrWIN GR_LI, sep13, plc02, sep13, plc08, 2                    'separador de coluna
PrWIN TX_MC, sep13, plc02, sep14, plc05,ide$                  'listar identificacao
PrWIN TX_MC, sep13, plc05, sep14, plc06,inc$                  'numero da coluna


'totais
PrWIN FON, 8, 1                                               'activar fonte
PrWin FON, "BOLD+"                                            'activar bold
PrWIN TX_N,20.0, pyVto, "Total geral ou a transportar ..."    'identificador
PrWin FON, "BOLD-"                                            'desactivar bold
PrWIN FON, 10, 1                                              'activar fonte

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


Sub Mapa_PosLin 'posicionar linha
pyb   = yLin - linSep                        'Y base
pyLin = pyb + Doc_CntLin * linSep            'Y da linha

PrWIN AJT_B,  0, pyLin                       'posicao base
end sub


Sub Mapa_PosLinAjt 'posicionar linha - com ajuste
pyb   = yLin - linSep                        'Y base
pyLin = pyb + Doc_CntLin * linSep            'Y da linha
pyLin = pyLin + 0.5                          'Y da linha - ajustado

PrWIN AJT_B,  0, pyLin                       'posicao base
end sub


Sub Mapa_Lin 'linha 
'call Mapa_PosLin                             'posicionar linha
call Mapa_PosLinAjt                          'posicionar linha + ajuste

PrWIN FON, 8, 1                              'activar fonte

call Mapa_PrpVarSnc                          'preparar variaveis SNC
vNom$ = MemTxt$(22)                          'nome

PrWIN TX_DMX,lpc01+1,  0, 30,vNom$           '( 1) descricao dos elementos do activo
PrWIN TX_NP, lpc02+1,  0,"N",@vSncMvaRea     '( 2) valor de realizacao
PrWIN TX_NP, lpc03+1,  0,"N",@vSncAqiFis     '( 3) valor de aquisicao para efeitos fiscais

'PrWIN TX_CTR,lpc04, 0,lpc05, 0,@vSncAqiAno   '( 4) ano de aquisicao
PrWIN TX_N,  lpc04+0.5,0,@vSncAqiAno         '( 4) ano de aquisicao

PrWIN TX_NP, lpc05+1,  0,"N",@vSncAqiCtb     '( 5) valor de aquisicao para efeitos contabilisticos
PrWIN TX_NP, lpc06+1,  0,"N",@vSncPerReg     '( 6) amortizacoes e perdas por imparidade registadas
PrWIN TX_N,  lpc07+3,  0,@vSncMvCtbS         '( 7) mais valia - sinal
PrWIN TX_NP, lpc08+1,  0,"N",@vSncMvCtbV     '( 8) mais valia - valor
PrWIN TX_NP, lpc09+1,  0,"N",@vSncMvaNtb     '( 9) mais valia nao tributada
PrWIN TX_NP, lpc10+1,  0,"N",@vSncPerAfi     '(10) amortizacoes e perdas aceites fiscalmente


PrWIN FON, 7, 1                              'activar fonte
'PrWIN TX_NP, lpc11+0,  0,"N",@vSncCoeDvm     '(11) coeficiente de desvalorizacao da moeda

dy = linSep - 1                              'altura da zona
vtx$ = trim$(@vSncCoeDvm)                    'ajustar texto
PrWIN TX_AHV,5,lpc11-1, 0,lpc12,dy,vtx$      '(11) coeficiente de desvalorizacao da moeda
PrWIN FON, 8, 1                              'activar fonte


PrWIN TX_N,  lpc12+3,  0,@vSncMvFisS         '(12) mais valia fiscal - sinal
PrWIN TX_NP, lpc13+0,  0,"N",@vSncMvFisV     '(13) mais valia fiscal - valor

PrWIN FON, 10, 1                             'activar fonte
end sub


Sub Mapa_LinSbt 'linha de subtotais
rgp = MemNum(10)                             'registos no grupo
if rgp > 1 then                              'separar ?
   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_LinSbe 'linha de separacao de bens
sbeTip$ = VarCom$("Sbe_Tip")                 'tipo de separacao
sbeIde$ = VarCom$("Sbe_Ide")                 'identificacao da separacao

tmp = CntLin("MIN",3)                        'minimo de linhas
tmp = CntLin("INC",2)                        'contar linhas
call Mapa_PosLin                             'posicionar linha

PrWIN TX_N,  lpc02+1,  0,sbeIde$             'listar identificacao
end sub


Sub Mapa_GrpSbt 'subtotais
call Mapa_PosLin                             'posicionar linha

PrWIN FON, 8, 1                              'activar fonte

ideSep$ = MemTxt$(22)                        'identificacao

PrWIN TX_AHV,5,lpc01,0,lpc02,ideSep$         '( 1) listar identificacao


PrWIN TX_NP, lpc02+1,  0,"N",@gSncMvaRea     '( 2) valor de realizacao

PrWIN TX_N,  lpc07+3,  0,@gSncMvCtbS         '( 7) mais valia - sinal
PrWIN TX_NP, lpc08+1,  0,"N",@gSncMvCtbV     '( 8) mais valia - valor

PrWIN TX_N,  lpc12+3,  0,@gSncMvFisS         '(12) mais valia fiscal - sinal
PrWIN TX_NP, lpc13+0,  0,"N",@gSncMvFisV     '(13) mais valia fiscal - valor

PrWIN FON, 10, 1                             'activar fonte
end sub


Sub Mapa_Fim 'fim de pagina
PrWIN FON, 8, 1                              'activar fonte
PrWin FON, "BOLD+"                           'activar bold
PrWIN AJT_B,  0, pyVto                       'posicao base

PrWIN TX_NP, lpc02+1,  0,"N",@tSncMvaRea     '( 2) valor de realizacao

PrWIN TX_N,  lpc07+3,  0,@tSncMvCtbS         '( 7) mais valia - sinal
PrWIN TX_NP, lpc08+1,  0,"N",@tSncMvCtbV     '( 8) mais valia - valor

PrWIN TX_N,  lpc12+3,  0,@tSncMvFisS         '(12) mais valia fiscal - sinal
PrWIN TX_NP, lpc13+0,  0,"N",@tSncMvFisV     '(13) mais valia fiscal - valor

PrWin FON, "BOLD-"                           'desactivar bold
PrWIN FON, 10, 1                             'activar fonte
PrWIN FP                                     'fim de pagina
end sub


Sub Mapa_LinPco 'posicao de listagem das colunas nas linhas
sep = 0.5                                                   'separacao

lpc01 = sep01 + sep                                         'coluna 01
lpc02 = sep02 + sep                                         'coluna 02
lpc03 = sep03 + sep                                         'coluna 03
lpc04 = sep04 + sep                                         'coluna 04
lpc05 = sep05 + sep                                         'coluna 05
lpc06 = sep06 + sep                                         'coluna 06
lpc07 = sep07 + sep                                         'coluna 07
lpc08 = sep08 + sep                                         'coluna 08
lpc09 = sep09 + sep                                         'coluna 09
lpc10 = sep10 + sep                                         'coluna 10
lpc11 = sep11 + sep                                         'coluna 11
lpc12 = sep12 + sep                                         'coluna 12
lpc13 = sep13 + sep                                         'coluna 13
lpc14 = sep14 + sep                                         'coluna 14
lpc15 = sep15 + sep                                         'coluna 15
lpc16 = sep16 + sep                                         'coluna 16
lpc17 = sep17 + sep                                         'coluna 17
lpc18 = sep18 + sep                                         'coluna 18
lpc19 = sep19 + sep                                         'coluna 19
lpc20 = sep20 + sep                                         'coluna 30
end sub


Sub Mapa_LinSep 'linha de separacao
'nada a executar
end sub


Sub Mapa_LinInf 'linha de informacao
PrWIN AJT_B,  0, 67.5+Doc_CntLin*4.5                        'posicao base
PrWIN TX_N, xPosInf,  0,MemTxt$(00)                         'listar informacao
end sub


Sub Mapa_vRexAcm 'acumular valor REX
tmp$ = left$(MemTxt$(51), 3)                                'separar texto de validacao
if tmp$="REX" then                                          'validar
   vRexAcm = vRexAcm + MemNum(23)                           'acumular
end if
end sub


Sub Mapa_vRexLst 'listar valor REX
if vRexAcm > 0 then                                         'ha valor a listar ?
   txRex$ = FrmMoe$("", 11, vRexAcm, MapMoe)                'formatar
   PrWIN TX_N,  rexPxT, rexPy,"Aumento de reintegrações resultante de bens reavaliados extraordináriamente:"
   PrWIN TX_NP, rexPxV, rexPy,"N",txRex$                    'listar valor
end if
end sub


Sub Mapa_PrpVarSnc 'preparar variaveis SNC
uSncMvaRea = VarCom("Snc_MvaRea")                           '( 2) valor de realizacao
uSncAqiFis = VarCom("Snc_AqiFis")                           '( 3) valor de aquisicao para efeitos fiscais
uSncAqiAno$= VarCom$("Snc_AqiAno")                          '( 4) ano de aquisicao
uSncAqiCtb = VarCom("Snc_AqiCtb")                           '( 5) valor de aquisicao para efeitos contabilisticos
uSncPerReg = VarCom("Snc_PerReg")                           '( 6) amortizacoes e perdas por imparidade registadas
uSncMvCtb  = VarCom("Snc_MvCtb")                            '(  ) mais valia - valor com sinal
uSncMvCtbS$= VarCom$("Snc_MvCtbS")                          '( 7) mais valia - sinal
uSncMvCtbV = VarCom("Snc_MvCtbV")                           '( 8) mais valia - valor
uSncMvaNtb = VarCom("Snc_MvaNtb")                           '( 9) mais valia nao tributada
uSncPerAfi = VarCom("Snc_PerAfi")                           '(10) amortizacoes e perdas aceites fiscalmente
uSncCoeDvm = VarCom("Snc_CoeDvm")                           '(11) coeficiente de desvalorizacao da moeda
uSncMvFis  = VarCom("Snc_MvFis")                            '(  ) mais valia fiscal - valor com sinal
uSncMvFisS$= VarCom$("Snc_MvFisS")                          '(12) mais valia fiscal - sinal
uSncMvFisV = VarCom("Snc_MvFisV")                           '(13) mais valia fiscal - valor
end sub

##


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

