'Nome       : AmoAnoG.std
'Tipo       : LST
'Data       : 2007/06/15
'Versao     : 1.0
'Descricao  : Amortizacoes do Ano (modo grafico)

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0   2007/06/14 --------------------------------------------------
'Versao base


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=AmoAno
Nome                       [DocNom]=AmoBem,Amortizações por Bem

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=AmoAnoG_Cab
Listar linhas               [FxLIN]=AmoAnoG_Lin; Ide,2; Sbt
Listar fim                  [FxFIM]=AmoAnoG_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=AmoAno
Nome                       [DocNom]=AmoPoc,Amortizações por Conta

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=AmoAnoG_Cab
Listar linhas               [FxLIN]=AmoAnoG_Lin; Ide,2; Sbt
Listar fim                  [FxFIM]=AmoAnoG_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=AmoAno
Nome                       [DocNom]=AmoCcu,Amortizações por Centro de Custo

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=AmoAnoG_Cab
Listar linhas               [FxLIN]=AmoAnoG_Lin; Ide,2; Sbt,2
Listar fim                  [FxFIM]=AmoAnoG_Fim
##


'==============================================================================
#VAR - Variaveis
'==============================================================================
'cabecalho
Pag      = Doc_CntPag
CntL     = FrmNum$( 3.0,CntLin("CON"))
DataExt  = FrmVal$(Sig_DtHoje,45,0)

GrpIde   = MemTxt$(21)

Cod      = Imo_Mst_Cod$
Cod09    = left$(Imo_Mst_Cod$, 9)
Cod10    = left$(Imo_Mst_Cod$,10)

Nom      = Imo_Mst_Nome$
Nom30    = left$(Imo_Mst_Nome$,30)

Eql      = trim$(Imo_Mst_EqLeg$)
AmoTx    = FrmNum$( 3.2,ImoTxAmo(Imo_Mst_UsoAnos))
UsoIni   = FrmDt$("A/M",Imo_Mst_UsoIni)

'valores
vBemVal  = FrmNum$(11.2,Imo_Mst_AmoVpa)
vAmoAno  = FrmNum$(11.2,Imo_Mov_AmoVl)
vAmoAcm  = FrmNum$(11.2,Imo_Mst_AmoVto)
vBemLiq  = FrmNum$(11.2,Imo_Mst_VacImo)
AcmTx    = FrmNum$( 3.2,Imo_Mst_AmoPto)

'totais/subtotais
tCnt     = FrmNum$( 5.0,TotCnt("vBemVal",0))
sCnt     = FrmNum$( 5.0,TotCnt("vBemVal",1))

tBemVal  = FrmNum$(11.2,Total(vBemVal,0))
sBemVal  = FrmNum$(11.2,Total(vBemVal,1))

tAmoAno  = FrmNum$(11.2,Total(vAmoAno,0))
sAmoAno  = FrmNum$(11.2,Total(vAmoAno,1))

tAmoAcm  = FrmNum$(11.2,Total(vAmoAcm,0))
sAmoAcm  = FrmNum$(11.2,Total(vAmoAcm,1))

tBemLiq  = FrmNum$(11.2,Total(vBemLiq,0))
sBemLiq  = FrmNum$(11.2,Total(vBemLiq,1))
##


'==============================================================================
#INC - Variaveis comuns
'==============================================================================
Variaveis  comuns                 =[SIG_Dir.Div],LsComVar.std
##


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
'---------------------------------------------------------->'Comentario (61)
'----------------------------------------------->'Comentario (50)
'------------------------------------->'Comentario (40)
SUB FxIni 'funcao de inicializacao
Call SigLstIni                         'inicializar dados para listagem

'FimDoc=268
'LinPer=274

'msgBox "",FimDoc

cnt=0                                  'limpar contador
End sub


SUB FxFim 'funcao de finalizacao
'nada a executar
end sub


'==============================================================================
'======== Formato dos documentos em modo grafico  =============================
'==============================================================================
Sub AmoAnoG_CabIni 'inicializar documento
'Titulo$ = "Amortizações por Bem"                     'titulo para listagem
'SigCabNorOpcTit=2                                    'inicializar opcao para titulo

InicioLinhas = 28                      'posicao de inicio de linhas

yMax = InicioLinhas + 50 * 4           'posicao maxima Y
FimDoc = yMax + 5                      'posicao final do documento
LinPer = FimDoc + 10                   'linha para personalizacao
end sub


SUB AmoAnoG_Cab 'cabecalho
Cmax  =190
'FimDoc=272

call SigLstCab

PrWIN FON  ,   7,   1                      'activar fonte
PrWIN AJT_B,  Margem, 25                   'posicao base
PrWIN COR_T,CorTraco                       'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0                 'linha
PrWIN GR_LI, 0, 5, Cmax, 5                 'linha

Lin1=1                                     'linha 1
Lin2=5                                     'linha2

ColT1 = 1                                  'codigo
ColT2 =25                                  'nome
ColT3 =57                                  'eq. Lg
ColT4 =72                                  'taxa
ColT5 =82                                  'inicio
ColT6 =102                                  'valor
ColT7 =121                                 'amort.ano
ColT8 =140                                 'amort. acm
ColT9 =160                                 'valor actual
ColT10=178                                 'taxa acm
Cmax  =190

PrWIN COR_T,  CorTitLst                    'cor de titulo
PrWIN FON, "BOLD+"                         'activar bold
PrWIN TX_N,ColT1 ,Lin1,"Código"            'titulo
PrWIN TX_N,ColT2 ,Lin1,"Nome"              'titulo  
PrWIN TX_N,ColT3 ,Lin1,"Enq. Legal"        'titulo
PrWIN TX_N,ColT4 ,Lin1,"Taxa"              'titulo
PrWIN TX_N,ColT5 ,Lin1,"Início"            'titulo
PrWIN TX_N,ColT6 ,Lin1,"Valor"             'titulo  
PrWIN TX_N,ColT7 ,Lin1,"Amort. Ano"        'titulo 
PrWIN TX_N,ColT8 ,Lin1,"Amort. Acm"        'titulo
PrWIN TX_N,ColT9 ,Lin1,"Valor actual"      'titulo
PrWIN TX_N,ColT10,Lin1,"Taxa Acm"          'titulo
PrWIN FON, "BOLD-"                         'desactivar bold

PrWIN COR_T,CorLin                         'cor de linhas
end sub


SUB AmoAnoG_Lin 'linha de movimento
Col1 =  1                       'codigo
Col2 = 14                       'nome
Col3 = 62                       'eq. Lg
Col4 = 70                       'taxa
Col5 = 81                       'inicio
Col6 = 96                       'valor
Col7 =115                       'amort.ano
Col8 =134                       'amort. acm
Col9 =155                       'valor actual
Col10=180                       'taxa acm

'tmp=CntLin("INC",1)                              'contar linha

PrWIN COR_T,    CorLin                           'cor de linhas
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base
PrWIN TX_N,     Col1,0,              @cod09      'codigo
PrWIN TX_DMX,   Col2,0,Col3-Col2,    @Nom30      'nome
PrWIN TX_NP,    Col3,0          ,"N",@Eql        'enquadramento legal
PrWIN TX_NP,    Col4,0          ,"N",@AmoTx      'taxa
PrWIN TX_NP,    Col5,0          ,"N",@UsoIni     'data inicio
PrWIN TX_NP,    Col6,0          ,"N",@VBemVal    'valor
PrWIN TX_NP,    Col7,0          ,"N",@vAmoAno    'amort. ano
PrWIN TX_NP,    Col8,0          ,"N",@vAmoAcm    'amort. acumulada
PrWIN TX_NP,    Col9,0          ,"N",@VBemLiq    'valor actual
PrWIN TX_NP,    Col10,0         ,"N",@AcmTx      'taxa
end sub


SUB AmoAnoG_LinIde 'linha de informacao
PrWIN COR_T,CorTraco                             'cor de linhas
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base
PrWIN TX_N,Col1,0,@GrpIde                        'identificacao
end sub


SUB AmoAnoG_LinSbt 'linha de subtotais
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base

FCol1 = 45                       'codigo
FCol2 = 58                       'numero de bens
FCol3 = 96                       'valor
FCol4 =115                       'amort.ano
FCol5 =134                       'amort. acm
FCol6 =155                       'valor actual

PrWin FON,"BOLD+"                             'activar bold
PrWin FON,"ITAL+"                             'activar italico 
PrWIN TX_N, FCol1,0,"Sub-Totais :"            'titulo
PrWIN TX_NP,FCol2,0,"N",@sCnt                 'subtotal campos
PrWIN TX_NP,FCol3,0,"N",@sBemVal              'subtotal valor
PrWIN TX_NP,FCol4,0,"N",@sAmoAno              'subtotal amo. ano
PrWIN TX_NP,FCol5,0,"N",@sAmoAcm              'subtotal amo. acm
PrWIN TX_NP,FCol6,0,"N",@sBemLiq              'subtotal valor actual
PrWin FON,"ITAL-"                             'desactivar italico
PrWin FON,"BOLD-"                             'desactivar bold

'tmp=CntLin("INC",1)                           'contar linhas
x=TotLpz(1)                                   'limpar totais
end sub


SUB AmoAnoG_FimAjt 'fim de pagina
PrWIN COR_T,CorTraco                          'cor de linhas
'PrWIN AJT_B,Margem,FimDoc - 5                 'posicao base
PrWIN AJT_B,Margem,FimDoc                     'posicao base
PrWIN GR_LI,     0,  0, Cmax, 0               'linha

PrWin FP                                      'terminar pagina
end sub


SUB AmoAnoG_Fim 'fim de listagem
FCol1 = 45                                    'codigo
FCol2 = 55                                    'numero de bens
FCol3 = 90                                    'valor
FCol4 =110                                    'amort.ano
FCol5 =129                                    'amort. acm
FCol6 =150                                    'valor actual

PrWIN COR_T,CorTraco                          'cor de linhas
'PrWIN AJT_B,Margem,FimDoc - 5                 'posicao base
PrWIN AJT_B,Margem,FimDoc                     'posicao base
PrWIN GR_LI,     0,  0, Cmax, 0               'linha
PrWIN GR_LI,     0,  6, Cmax, 6               'linha

PrWin FON, "BOLD+"                            'activar bold

PrWIN AJT_B,Margem,FimDoc+2                   'posicao base
PrWIN TX_N, FCol1,0,"Totais :"                'titulo
PrWIN TX_NP,FCol2,0,"N",@tCnt                 'total campos
PrWIN TX_NP,FCol3,0,"N",@tBemVal              'total valor
PrWIN TX_NP,FCol4,0,"N",@tAmoAno              'total amo. ano
PrWIN TX_NP,FCol5,0,"N",@tAmoAcm              'total amo. acm
PrWIN TX_NP,FCol6,0,"N",@tBemLiq              'total valor actual
PrWin FON, "BOLD-"

call SigLstRod
PrWin FP                                      'terminar pagina
end sub

##


'==============================================================================
#INC - Funcoes comuns
'==============================================================================
Funcoes comuns                    =[SIG_Dir.Div],LsComPgm.std
##
