'Nome       : ImoFich.std
'Tipo       : LST WIN
'Data       : 2011/10/13
'Versao     : 1.1
'Descricao  : Fichas de Imobilizado

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.1   ____/__/__ --------------------------------------------------
'Correccao de listagem da pagina 2 e seguintes

'- Versao : 1.0d  2005/10/20 --------------------------------------------------
'Correccao ortografica

'- Versao : 1.0c  2002/12/15 --------------------------------------------------
'Usar 2 decimais nos valores (EURO)

'- Versao : 1.0b  2000/12/15 --------------------------------------------------
'Aumentar espaco para taxa do enquadramento legal (permitir 100%)

'- Versao : 1.0a  2000/11/21 --------------------------------------------------
'Listagem em modo grafico

'- Versao : 1.0   1999/09/20 --------------------------------------------------
'Versao base


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
Zoom para preview               [PrvZoom]=1 '.5
Opcoes para impressora WIN     [PrWinOpc]=[ORI=P]

Maximo de fornecedores           [MaxFor]=10
Maximo de reavaliacoes           [MaxRea]=5
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=ImoFich
Nome                       [DocNom]=ImoFich,Fichas de Imobilizado
Vias                       [DocVia]=
Personalizacao             [DocPer]=

'formato
'Saida/Impressora           [DocPrt]=
Saida/Impressora           [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=15,40
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0
Especifico do documento    [DocEsp]=XXX=Xyz

'funcoes de listagem
Listar cabecalho            [FxCAB]=Fich_Cab
Listar linhas               [FxLIN]=Fich_Lin; For; Rea
Listar fim                  [FxFIM]=Fich_Fim
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
'MemTxt$(00)   - Informacoes diversas

'MemNum(11)    - numero da linha


'preparar para listar
Tipo     =MemTxt$(1)
Pag      =Doc_CntPag
DataExt  =FrmVal$(Sig_DtHoje,45,0)

'variaveis a listar
'EqNum    =ImoEqLeg$(Imo_Mst_EqLeg$,"NUM") 
EqCod    =Imo_Mst_EqLeg$
EqTab    =ImoEqLeg$(Imo_Mst_EqLeg$,"TAB")
EqDiv    =ImoEqLeg$(Imo_Mst_EqLeg$,"DIV")
EqGrp    =ImoEqLeg$(Imo_Mst_EqLeg$,"GRP")
EqAli    =ImoEqLeg$(Imo_Mst_EqLeg$,"ALI")
EqTxa    =FrmVal$(ImoEqLeg(Imo_Mst_EqLeg$,"TXA"),21, 2.2)

BemCod   =Imo_Mst_Cod$
BemIde   =Imo_Mst_Nome$
BemConta =Imo_Mst_CtPoc$
BemLoc   =Imo_Mst_Local$
                          
AqiAno   =FrmDt$("A2",Imo_xMst_AqiDt)
AqiVal   =FrmNum$(11.1,Imo_xMst_AqiVl)
UsoA     =FrmVal$(Imo_Mst_UsoAnos,21, 3.0)
UsoIni   =FrmDt$("",Imo_Mst_UsoIni)
UsoFim   =FrmDt$("",Imo_Mst_UsoFim)
IvaDed   =FrmVal$(Imo_Mst_IvaDed,61, 3.0)

AliDt    =FrmDt$("",Imo_Mst_AliDt)
AliDoc   =Imo_Mst_AliDoc$
AliVal   =FrmNum$(10.2,Imo_Mst_AliVl)

AbaDt    =FrmDt$("",Imo_Mst_AbaDt)
AbaDoc   =Imo_Mst_AbaDoc$

SegApo   =Imo_Mst_SegApNum$
SegDt    =FrmDt$("",Imo_Mst_SegApDt)

'VlRes    =Valor residual


'Fornecedores
ForDt    =FrmDt$("",Imo_For_AqiDt)
ForDoc   =Imo_For_AqiDoc$
ForDin   =Imo_For_AqiDin$
ForIde   =Imo_For_AqiCt$
ForDes   =Imo_For_AqiDes$
ForIlq   =FrmNum$(10.2,Imo_For_AqiIlq)
ForIva   =FrmNum$(10.2,Imo_For_AqiIva)
ForVal   =FrmNum$(10.2,Imo_For_AqiVl)
ForAcm   =FrmNum$(10.2,Imo_For_AqiAcm)

tForIlq  =FrmNum$(10.2,total(ForIlq))
tForIva  =FrmNum$(10.2,total(ForIva))
tForVal  =FrmNum$(10.2,total(ForVal))


'Amortizacoes
AmoDt    =FrmDt$("",Imo_Mov_Dt)
AmoDes   =""
AmoTx    =FrmVal$(Imo_Mov_AmoPer,21,-3.2)
AmoAno   =FrmNum$(10.2,Imo_Mov_AmoVl)
AmoAcm   =FrmNum$(10.2,Imo_Calc_AmoAcm)
AmoVbe   =FrmNum$(10.2,Imo_Calc_VlAct)

'Reavaliacoes
ReaDt    =FrmDt$("",Imo_Mov_Dt)
ReaA     =FrmDt$("A4",Imo_Mov_Dt)
ReaDip   =""
ReaFr    =FrmNum$(4.2,Imo_Mov_ReaFr)
ReaVl    =FrmNum$(10.2,Imo_Mov_ReaVl)
ReaVbe   =FrmNum$(10.2,Imo_Calc_ReaVbe)
##


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

dimLinNor=4.4                                      'altura de uma linha normal
dimLinCab=6.6                                      'altura de uma linha de cabecalho
end sub


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


'SUB Fich_CabIde
'call Cab132            'cabecalho para 132 colunas
'end sub


SUB CabBem 'identificacao do bem
PrWIN AJT_B, 10.0,25.0                             'posicao base

bemY1= 0.0
bemY2= 0.0
bemY3=bemY2+ 6.0
bemY4=bemY3+10.0

bemXI=cabX1
bemXF=cabX2

bemX1=forXI
bemX2=forX1+30.0
bemX3=forX2+30.0
bemX4=forX3+30.0
bemX5=forX4+30.0
bemX6=forX5+30.0
bemX7=forXF

'identificacao do bem
py1=bemY2                                          'posicao Y1
py2=py1+6.0                                        'posicao Y2
pyt=py1+1.0                                        'posicao Y para texto
PrWIN GR_CE,  bemXI, py1, bemXF, py2, 2            'caixa envolvente

ide$=Imo_Mst_Cod$+" - "+Imo_Mst_Nome$

PrWIN FON, 11, 1                                   'activar fonte
PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_N, 5.0, pyt,"Elemento Patrimonial:"
PrWIN TX_N,48.0, pyt,ide$

PrWin FON, "BOLD-"                                 'desactivar bold
PrWIN FON, 07, 1                                   'activar fonte

'enquadramento legal
py1=bemY3                                          'posicao Y1
py2=py1+10.0                                       'posicao Y2
pyt=py1+ 2.0                                       'posicao Y para texto
PrWIN GR_CX,  bemXI, py1, bemXF, py2, 2            'caixa envolvente

PrWIN TX_N,  5.0, pyt,"Núm.:"
PrWIN TX_N, 14.0, pyt,@EqCod

PrWIN TX_N, 35.0, pyt,"Tabela:"
PrWIN TX_N, 44.0, pyt,@EqTab

PrWIN TX_N, 55.0, pyt,"Divisão:"
PrWIN TX_N, 65.0, pyt,@EqDiv

PrWIN TX_N, 75.0, pyt,"Grupo:"
PrWIN TX_N, 84.0, pyt,@EqGrp

PrWIN TX_N,105.0, pyt,"Alínea:"
PrWIN TX_N,114.0, pyt,@EqAli

pyt=pyt+4.0                                       'posicao Y do texto
PrWIN TX_N,  5.0, pyt,"Anos de vida útil:"
PrWIN TX_N, 25.0, pyt,@UsoA

PrWIN TX_N,105.0, pyt,"Taxa de Amortização:"
PrWIN TX_N,132.0, pyt,@EqTxa

'diversos
py1=bemY4                                          'posicao Y1
py2=py1+6.0                                        'posicao Y2
pyt=py1+1.0                                        'posicao Y para texto

PrWIN TX_N,  5.0, pyt,"Início de uso:"
PrWIN TX_NP,23.0, pyt,"N",@UsoIni

pyt=pyt+4.0                                        'posicao Y para texto
PrWIN TX_N,  5.0, pyt,"Fim de Uso:"
PrWIN TX_NP,23.0, pyt,"N",@UsoFim


'alienacao/abatimento
dy=20.0
PrWIN AJT_B, 10.0,60.0                             'posicao base
PrWIN GR_CE,  bemXI, 0.0, bemXF, 6.0, 2            'caixa envolvente
PrWIN GR_CX,  bemXI, 0.0, bemXF, dy , 2            'caixa envolvente

xm=bemXI+bemXF
xm=xm/2
px1=  0.0
px2= 35.0
px3= 70.0
px4=105.0
px5=bemXF

PrWIN FON, 11, 1                               'activar fonte
PrWin FON, "BOLD+"                             'activar bold
PrWIN TX_CTR, px1, 0.0, px2, 6.0,"Alienado"    'titulo centrado
PrWIN TX_CTR, px2, 0.0, px3, 6.0,"Abatido"     'titulo centrado
PrWIN TX_CTR, px3, 0.0, px4, 6.0,"Seguro"      'titulo centrado
PrWIN TX_CTR, px4, 0.0, px5, 6.0,"Diversos"    'titulo centrado
PrWin FON, "BOLD-"                             'desactivar bold
PrWIN FON, 07, 1                               'activar fonte

PrWIN GR_LI,  px2, 0.0, px2, dy,2
PrWIN GR_LI,  px3, 0.0, px3, dy,2
PrWIN GR_LI,  px4, 0.0, px4, dy,2
PrWIN GR_LI,  px5, 0.0, px5, dy,2

'alienado
PrWIN TX_N,  px1+ 5.0, 7.0,"Data:"
PrWIN TX_NP, px1+15.0, 7.0,"N",@AliDt

PrWIN TX_N,  px1+ 5.0,11.0,"Docum.:"
PrWIN TX_N,  px1+15.0,11.0,@AliDoc

PrWIN TX_N,  px1+ 5.0,15.0,"Valor:"
PrWIN TX_NP, px1+15.0,15.0,"N",@AliVal

'abatido
PrWIN TX_N,  px2+ 2.0, 7.0,"Data:"
PrWIN TX_NP, px2+12.0, 7.0,"N",@AbaDt

PrWIN TX_N,  px2+ 2.0,11.0,"Docum.:"
PrWIN TX_N,  px2+12.0,11.0,@AbaDoc

'seguros
PrWIN TX_N,  px3+ 2.0, 7.0,"Apólice:"
PrWIN TX_N,  px3+12.0, 7.0,@SegApo

PrWIN TX_N,  px3+ 2.0,11.0,"Data:"
PrWIN TX_NP, px3+12.0, 11.0,"N",@SegDt

'diversos
PrWIN TX_N,  px4+ 2.0, 7.0,"Localização:"
PrWIN TX_N,  px4+20.0, 7.0,@BemLoc

PrWIN TX_N,  px4+ 2.0,11.0,"Conta do POC:"
PrWIN TX_N,  px4+20.0,11.0,@BemConta
end sub


Sub Cab132 'cabecalho para 132 colunas
PrWIN AJT_B, 10.0, 0.0                             'posicao base

CabLin=2                                           'linhas de cabecalho

cabX1=3                                            'limite X1
cabX2=190                                          'limite X2
cabY1=25                                           'limite Y1
cabY2=cabY1+CabLin*dimLinCab                       'limite Y2
cabYm=cabY2+54*dimLinNor                           'limite Y maximo

PrWIN FON, 07, 1                                   'activar fonte
PrWIN TX_N, cabX2-75, 10,EmpCurIde$("IDE")         'nome da empresa
PrWIN FON, 11, 1                                   'activar fonte
PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_CTR,  cabX1,10, cabX2, cabY1,"Ficha de Imobilizado"   'titulo centrado
PrWin FON, "BOLD-"                                 'desactivar bold
PrWIN FON, 07, 1                                   'activar fonte

py   =cabY1-dimLinNor-1                            'posicao Y
pxFol=CabX2-20                                     'posicao X para folha
pxPag=CabX2-08                                     'posicao X para pagina

PrWIN TX_N,   05, py,"Data :"                      'data
PrWIN TX_N,   16, py,@DataExt                      'listar data
PrWIN TX_N,pxFol, py,"Folha No :"                  'folha
PrWIN TX_N,pxPag, py,@Pag                          'numero da folha
PrWIN COR_E, 200, 200, 200                         'cor de enchimento RGB
PrWIN GR_ME, 0                                     'modo de enchimento
PrWIN GR_CX,  cabX1, cabY1, cabX2, cabYm, 2        'caixa envolvente
PrWIN TX_N, cabX1+5,cabYm+3,SigLstInf$("PERSON")   'personalizacao
End Sub


SUB Fich_LinAjt 'linha de ajuste
end sub


SUB Fich_Fim 'terminar
PrWIN FP                                           'fim de pagina
end sub


'------------------------------------------------------------------------------
'- Amortizacoes ---------------------------------------------------------------
'------------------------------------------------------------------------------
SUB Fich_Cab 'cabecalho de amortizacoes
if Doc_CntPag = 1 then
   'nada a executar
else
   PrWin PAG_PRP                    'preparar pagina
end if

call Cab132                         'cabecalho para 132 colunas
call CabBem                         'identificacao do bem

amoY1= 0.0
amoY2= 7.0
amoY3=amoY2+ 6.0

amoY4=amoY3+50.0
amoY4=amoY3+73.0

if Doc_CntPag = 1 then
   amoYb = 190.0                    'posicao Y base
   amoYL = amoYb + amoY3 - 3.0      'posicao Y para linhas
else
   amoYb= 80.0                      'posicao Y base
   amoYL = 30.0             'posicao Y para linhas
   amoY4 = amoY3+183.0              'posicao Y final
end if

'amoYL=amoYb+amoY3-3.0               'posicao Y para linhas

amoXI=cabX1
amoXF=cabX2

amoX1=amoXI
amoX2=amoX1+20.0
amoX3=amoX2+30.0
amoX4=amoX3+15.0
amoX5=amoX4+20.0
amoX6=amoX5+20.0
amoX7=amoX6+20.0
amoX8=amoXF

PrWIN AJT_B, 10.0,amoYb                            'posicao base
PrWIN GR_CE,  amoXI, amoY1, amoXF, amoY2, 2        'caixa do cabecalho
PrWIN GR_CX,  amoXI, amoY3, amoXF, amoY4, 2        'caixa envolvente

PrWIN FON, 11, 1                                   'activar fonte
PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_CTR, reaXI, amoY1, amoXF, amoY2,"Amortizações"   'titulo centrado
PrWin FON, "BOLD-"                                 'desactivar bold
PrWIN FON, 07, 1                                   'activar fonte

PrWIN GR_LI,  amoX2, amoY2, amoX2, amoY4,2
PrWIN GR_LI,  amoX3, amoY2, amoX3, amoY4,2
PrWIN GR_LI,  amoX4, amoY2, amoX4, amoY4,2
PrWIN GR_LI,  amoX5, amoY2, amoX5, amoY4,2
PrWIN GR_LI,  amoX6, amoY2, amoX6, amoY4,2
PrWIN GR_LI,  amoX7, amoY2, amoX7, amoY4,2

PrWIN TX_CTR, amoX1, amoY2, amoX2, amoY3,"Data"           'titulo centrado
PrWIN TX_CTR, amoX2, amoY2, amoX3, amoY3,"Descrição"      'titulo centrado
PrWIN TX_CTR, amoX3, amoY2, amoX4, amoY3,"Taxa (%)"       'titulo centrado
PrWIN TX_CTR, amoX4, amoY2, amoX5, amoY3,"Amort. Anuais"  'titulo centrado
PrWIN TX_CTR, amoX5, amoY2, amoX6, amoY3,"Amort. Acum"    'titulo centrado
PrWIN TX_CTR, amoX6, amoY2, amoX7, amoY3,"Valor Actual"   'titulo centrado
PrWIN TX_CTR, amoX7, amoY2, amoX8, amoY3,"Observações"    'titulo centrado
end sub


SUB Fich_Lin 'linha de amortizacoes
nli=MemNum(11)                              'numero da linha
PrWIN AJT_B, 10, amoYL+nli*4.4              'posicao base

PrWIN TX_NP, amoX1+2,0,"N",@amoDt
PrWIN TX_N,  amoX2+2,0,@AmoDes
PrWIN TX_NP, amoX3+3,0,"N",@AmoTx
PrWIN TX_NP, amoX4+2,0,"N",@AmoAno
PrWIN TX_NP, amoX5+2,0,"N",@AmoAcm
PrWIN TX_NP, amoX6+2,0,"N",@AmoVbe
end sub


'------------------------------------------------------------------------------
'- Fornecedores ---------------------------------------------------------------
'------------------------------------------------------------------------------
SUB Fich_CabFor 'cabecalho para fornecedores
forY1= 0.0
forY2= 7.0
forY3=forY2+ 6.0
forY4=forY3+51.0
forY5=forY4+ 6.0

forYb= 80.0                         'posicao Y base
forYL=forYb+forY3-3.0               'posicao Y para linhas

forXI=cabX1
forXF=cabX2

forX1=forXI
forX2=forX1+20.0
forX3=forX2+30.0
forX4=forX3+30.0
forX5=forX4+30.0
forX6=forX5+20.0
forX7=forX6+20.0
forX8=forX7+20.0
forX9=forXF

PrWIN AJT_B, 10.0,forYb                            'posicao base
PrWIN GR_CE,  forXI, forY1, forXF, forY2, 2        'caixa do cabecalho
PrWIN GR_CX,  forXI, forY3, forXF, forY4, 2        'caixa envolvente
PrWIN GR_CX,  forXI, forY4, forXF, forY5, 2        'caixa envolvente

PrWIN FON, 11, 1                                   'activar fonte
PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_CTR, forXI, forY1, forXF, forY2,"Fornecedores"   'titulo centrado
PrWin FON, "BOLD-"                                 'desactivar bold
PrWIN FON, 07, 1                                   'activar fonte

PrWIN GR_LI,  forX2, forY2, forX2, forY4,2
PrWIN GR_LI,  forX3, forY2, forX3, forY4,2
PrWIN GR_LI,  forX4, forY2, forX4, forY5,2
PrWIN GR_LI,  forX5, forY2, forX5, forY5,2
PrWIN GR_LI,  forX6, forY2, forX6, forY5,2
PrWIN GR_LI,  forX7, forY2, forX7, forY5,2
PrWIN GR_LI,  forX8, forY2, forX8, forY5,2

PrWIN TX_CTR, forX1, forY2, forX2, forY3,"Data"         'titulo centrado
PrWIN TX_CTR, forX2, forY2, forX3, forY3,"Factura"      'titulo centrado
PrWIN TX_CTR, forX3, forY2, forX4, forY3,"Doc. Interno" 'titulo centrado
PrWIN TX_CTR, forX4, forY2, forX5, forY3,"Fornecedor"   'titulo centrado
PrWIN TX_CTR, forX5, forY2, forX6, forY3,"Iliquido"     'titulo centrado
PrWIN TX_CTR, forX6, forY2, forX7, forY3,"IVA"          'titulo centrado
PrWIN TX_CTR, forX7, forY2, forX8, forY3,"Valor"        'titulo centrado
PrWIN TX_CTR, forX8, forY2, forX9, forY3,"Observações"  'titulo centrado

py=forY5-4.5
PrWIN TX_N,  forX1+ 2,py,"Iva dedutível:"
PrWIN TX_N,  forX1+18,py,@IvaDed

PrWIN TX_CTR, forX4, forY4, forX5, forY5,"Totais:"  'titulo centrado
end sub


SUB Fich_LinFor 'linha para fornecedores
nli=MemNum(11)                              'numero da linha
PrWIN AJT_B, 10, forYL+nli*4.4              'posicao base

PrWIN TX_NP, forX1+2,0,"N",@ForDt
PrWIN TX_N,  forX2+2,0,@ForDoc
PrWIN TX_N,  forX3+2,0,@ForDin
PrWIN TX_N,  forX4+2,0,@ForIde
PrWIN TX_NP, forX5+2,0,"N",@ForIlq
PrWIN TX_NP, forX6+2,0,"N",@ForIva
PrWIN TX_NP, forX7+2,0,"N",@ForVal
end sub


SUB Fich_FimFor 'fim de fornecedores
PrWIN AJT_B, 10, forYb                     'posicao base
py=forY4+1.5                               'posicao Y

PrWIN TX_NP, forX5+2, py,"N",@tForIlq
PrWIN TX_NP, forX6+2, py,"N",@tForIva
PrWIN TX_NP, forX7+2, py,"N",@tForVal
end sub


'------------------------------------------------------------------------------
'- Reavaliacoes ---------------------------------------------------------------
'------------------------------------------------------------------------------
SUB Fich_CabRea 'cabecalho de reavaliacoes
reaY1= 0.0
reaY2= 7.0
reaY3=reaY2+ 6.0
reaY4=reaY3+27.0

reaYb=150.0                         'posicao Y base
reaYL=reaYb+reaY3-3.0               'posicao Y para linhas

reaXI=cabX1
reaXF=cabX2

reaX1=reaXI
reaX2=reaX1+20.0
reaX3=reaX2+10.0
reaX4=reaX3+50.0
reaX5=reaX4+15.0
reaX6=reaX5+20.0
reaX7=reaX6+20.0
reaX8=reaXF

PrWIN AJT_B, 10.0,reaYb                            'posicao base
PrWIN GR_CE,  reaXI, reaY1, reaXF, reaY2, 2        'caixa do cabecalho
PrWIN GR_CX,  reaXI, reaY3, reaXF, reaY4, 2               'caixa envolvente

PrWIN FON, 11, 1                                   'activar fonte
PrWin FON, "BOLD+"                                 'activar bold
PrWIN TX_CTR, reaXI, reaY1, reaXF, reaY2,"Reavaliações"   'titulo centrado
PrWin FON, "BOLD-"                                 'desactivar bold
PrWIN FON, 07, 1                                   'activar fonte

PrWIN GR_LI,  reaX2, reaY2, reaX2, reaY4,2
PrWIN GR_LI,  reaX3, reaY2, reaX3, reaY4,2
PrWIN GR_LI,  reaX4, reaY2, reaX4, reaY4,2
PrWIN GR_LI,  reaX5, reaY2, reaX5, reaY4,2
PrWIN GR_LI,  reaX6, reaY2, reaX6, reaY4,2
PrWIN GR_LI,  reaX7, reaY2, reaX7, reaY4,2

PrWIN TX_CTR, reaX1, reaY2, reaX2, reaY3,"Data"            'titulo centrado
PrWIN TX_CTR, reaX2, reaY2, reaX3, reaY3,"Ano"             'titulo centrado
PrWIN TX_CTR, reaX3, reaY2, reaX4, reaY3,"Diploma Legal"   'titulo centrado
PrWIN TX_CTR, reaX4, reaY2, reaX5, reaY3,"Coef."           'titulo centrado
PrWIN TX_CTR, reaX5, reaY2, reaX6, reaY3,"Aum. de Valor"   'titulo centrado
PrWIN TX_CTR, reaX6, reaY2, reaX7, reaY3,"V. c/ reaval."   'titulo centrado
PrWIN TX_CTR, reaX7, reaY2, reaX8, reaY3,"Observações"     'titulo centrado
end sub


SUB Fich_LinRea 'linha de reavaliacoes
nli=MemNum(11)                              'numero da linha
PrWIN AJT_B, 10, reaYL+nli*4.4              'posicao base

PrWIN TX_NP, reaX1+2,0,"N",@ReaDt
PrWIN TX_N,  reaX2+2,0,@ReaA
PrWIN TX_N,  reaX3+2,0,@ReaDip
PrWIN TX_NP, reaX4+3,0,"N",@ReaFr
PrWIN TX_NP, reaX5+2,0,"N",@ReaVl
PrWIN TX_NP, reaX6+2,0,"N",@ReaVbe
end sub


SUB Fich_FimRea 'fim de reavaliacoes
'nada a executar
end sub


##

