'Nome       : BemGrp.std
'Tipo       : LST
'Data       : 2006/10/23
'Versao     : 2.0
'Descricao  : Bens por Grupo

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 2.0   2006/10/23 --------------------------------------------------
'modo grafico

'- Versao : 1.1a  2005/10/20 --------------------------------------------------
'Correcção ortográfica

'- Versao : 1.1   2003/11/05 --------------------------------------------------
'Controlar abatidos/alienados

'- Versao : 1.0a  2003/03/21 --------------------------------------------------
'Listagem de amortizacao do periodo

'- Versao : 1.0   2002/04/01 --------------------------------------------------
'Versao base


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


'==============================================================================
#SQL - Comandos SQL
'==============================================================================
'Base de dados           [BD]=EmpFic$("EMP","Cemp,Emp_Dat.mdb")
Base de dados           [BD]=EmpFic$("EMP","Imo,Imo.mdb")

Bens por grupo              [Cmd]=BemGrp=+
   +SELECT * FROM ImoMst +
   +WHERE Cod$>='{Opc_Cod.Ini}' AND Cod$ <='{Opc_Cod.Fim}' +
   +ORDER By Grp$, Cod$ 


Amortizacoes discriminadas  [Cmd]=AmoGrpDis=+
   +SELECT ImoMov.*, ImoMst.* +
   +FROM ImoMov LEFT JOIN ImoMst ON ImoMov.[Cod$] = ImoMst.[Cod$] +
   +WHERE ImoMov.Dt>= {Ano.Ini} AND ImoMov.Dt<= {Ano.Fim} +
   +ORDER By ImoMst.Grp$, ImoMst.Cod$ 


Amortizacoes resumidas      [Cmd]=AmoGrpRes=+
   +SELECT ImoMst.Grp$, sum(ImoMov.AmoVl) as GrpVl, +
   +count(ImoMov.AmoVl) as GrpNum +
   +FROM ImoMov LEFT JOIN ImoMst ON ImoMov.[Cod$] = ImoMst.[Cod$] +
   +WHERE ImoMov.Dt>= {Ano.Ini} AND ImoMov.Dt<= {Ano.Fim} +
   +GROUP BY ImoMst.Grp$ +
   +ORDER BY ImoMst.Grp$

##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=BemGrp,Bens por grupo

'formato
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=BemGrp_Cab
Listar linhas               [FxLIN]=BemGrp_Lin; Sbt01,0; Sbt02,0; Sbt03,0
Listar fim                  [FxFIM]=BemGrp_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=BemGrp
Subtotalizadores           [SQLSbt]=Grp$:2,Grp$:10

'diversos
'parametros especificos
Limite especial            [DocEsp]=LimEsp=AbaAli
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=BemGrp_G,Bens por grupo (Gráfico)

'formato
Impressora                 [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=56
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=BemGrpG_Cab
Listar linhas               [FxLIN]=BemGrpG_Lin; Sbt01,0; Sbt02,0; Sbt03,0
Listar fim                  [FxFIM]=BemGrpG_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=BemGrp
Subtotalizadores           [SQLSbt]=Grp$:2,Grp$:10

'diversos
'parametros especificos
Limite especial            [DocEsp]=LimEsp=AbaAli
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=BemGrpSit,Bens por grupo+Situação

'formato
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=BemGrpSit_Cab
Listar linhas               [FxLIN]=BemGrpSit_Lin; Sbt01,0; Sbt02,0; Sbt03,0
Listar fim                  [FxFIM]=BemGrpSit_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=BemGrp
Subtotalizadores           [SQLSbt]=Grp$:2,Grp$:10

'diversos
'parametros especificos
Limite especial            [DocEsp]=LimEsp=AbaAli
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=BemGrpSit_G,Bens por grupo+situação (Gráfico)

'formato
Impressora                 [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=56
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=BemGrpSitG_Cab
Listar linhas               [FxLIN]=BemGrpSitG_Lin; Sbt01,0; Sbt02,0; Sbt03,0
Listar fim                  [FxFIM]=BemGrpSitG_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=BemGrp
Subtotalizadores           [SQLSbt]=Grp$:2,Grp$:10

'diversos
'parametros especificos
Limite especial            [DocEsp]=LimEsp=AbaAli
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=AmoGrpDis,Amortizações por grupo

'formato
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=AmoGrpDis_Cab
Listar linhas               [FxLIN]=AmoGrpDis_Lin; Sbt01,0; Sbt02,0; Sbt03,0
Listar fim                  [FxFIM]=AmoGrpDis_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=AmoGrpDis
Subtotalizadores           [SQLSbt]=Grp$:2,Grp$:10

'diversos
'parametros especificos
Limite especial            [DocEsp]=LimEsp=AbaAli
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=AmoGrpDis_G,Amortizações por grupo (Gráfico)

'formato
Impressora                 [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=56
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=AmoGrpDisG_Cab
Listar linhas               [FxLIN]=AmoGrpDisG_Lin; Sbt01,0; Sbt02,0; Sbt03,0
Listar fim                  [FxFIM]=AmoGrpDisG_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=AmoGrpDis
Subtotalizadores           [SQLSbt]=Grp$:2,Grp$:10

'diversos
'parametros especificos
Limite especial            [DocEsp]=LimEsp=AbaAli
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=AmoGrpRes,Amortizações por Grupo (Resumo)

'formato
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=AmoGrpRes_Cab
Listar linhas               [FxLIN]=AmoGrpRes_Lin; Sbt01,0; Sbt02,0; Sbt03,0
Listar fim                  [FxFIM]=AmoGrpRes_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=AmoGrpRes
Subtotalizadores           [SQLSbt]=Grp$:2

'diversos
'parametros especificos
Limite especial            [DocEsp]=LimEsp=AbaAli
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=AmoGrpRes_G,Amort.por grupo (Resumo)(Gráfico)

'formato
Impressora                 [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=56
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=AmoGrpResG_Cab
Listar linhas               [FxLIN]=AmoGrpResG_Lin; Sbt01,0; Sbt02,0; Sbt03,0
Listar fim                  [FxFIM]=AmoGrpResG_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=AmoGrpRes
Subtotalizadores           [SQLSbt]=Grp$:2

'diversos
'parametros especificos
Limite especial            [DocEsp]=LimEsp=AbaAli
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=AmoPer,Amortização do Período 

'formato
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=AmoPer_CabDis
Listar linhas               [FxLIN]=AmoPer_Lin,0; Sbt01,0; Sbt02,0; Sbt03,0
Listar fim                  [FxFIM]=AmoPer_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=BemGrp
Subtotalizadores           [SQLSbt]=Grp$:2,Grp$:10

'diversos
'parametros especificos
Limite especial            [DocEsp]=LimEsp=AbaAli
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=AmoPer_G,Amortização por Período (Gráfico)

'formato
Impressora                 [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=56
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=AmoPerG_Cab
Listar linhas               [FxLIN]=AmoPerG_Lin,0; Sbt01,0; Sbt02,0; Sbt03,0
Listar fim                  [FxFIM]=AmoPerG_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=BemGrp
Subtotalizadores           [SQLSbt]=Grp$:2,Grp$:10

'diversos
'parametros especificos
Limite especial            [DocEsp]=LimEsp=AbaAli
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=AmoPerR,Amortização do Período (Resumo)

'formato
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=80
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=AmoPer_CabRes
Listar linhas               [FxLIN]=AmoPer_Lin,0; Sbt01,0; Sbt02,0; Sbt03,0
Listar fim                  [FxFIM]=AmoPer_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=BemGrp
Subtotalizadores           [SQLSbt]=Grp$:2,Grp$:10

'diversos
'parametros especificos
Limite especial            [DocEsp]=LimEsp=AbaAli
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=AmoPerR_G,Amort. por Período (resumo) (Grf)

'formato
Impressora                 [DocPrt]=PAG_W
Linhas por pagina          [DocLpg]=56
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=AmoPerRG_Cab
Listar linhas               [FxLIN]=AmoPerRG_Lin,0; Sbt01,0; Sbt02,0; Sbt03,0
Listar fim                  [FxFIM]=AmoPerRG_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=BemGrp
Subtotalizadores           [SQLSbt]=Grp$:2,Grp$:10

'diversos
'parametros especificos
Limite especial            [DocEsp]=LimEsp=AbaAli
##


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

BemN0    = FrmNum$(-4.0,TotCnt("Cod",0))
BemN1    = FrmNum$(-4.0,TotCnt("Cod",1))
BemN2    = FrmNum$(-4.0,TotCnt("Cod",2))

BemGN0   = FrmNum$(-4.0,TotCnt("CodMov",0))

GrpN0    = FrmNum$(-4.0,TotCnt("Grp",0))
GrpN1    = FrmNum$(-4.0,TotCnt("Grp",1))
GrpN2    = FrmNum$(-4.0,TotCnt("Grp",2))

Grp      = SqlCmp$("Grp$")
Cod      = SqlCmp$("Cod$")
CodMov   = SqlCmp$("ImoMov.Cod$")
Nome     = SqlCmp$("Nome$")

dtAli    = FrmDt$("A/M",SqlCmp("AliDt"))
dtAba    = FrmDt$("A/M",SqlCmp("AbaDt"))

vAqi     = FrmNum$(14.2,ImoAqiVl("",SqlCmp$("Cod$")))
vAqiT0   = FrmNum$(14.2,total(vAqi,0))
vAqiT1   = FrmNum$(14.2,total(vAqi,1))
vAqiT2   = FrmNum$(14.2,total(vAqi,2))

Vpa      = FrmNum$(14.2,SqlCmp("AmoVpa"))
VpaT0    = FrmNum$(14.2,total(Vpa,0))
VpaT1    = FrmNum$(14.2,total(Vpa,1))
VpaT2    = FrmNum$(14.2,total(Vpa,2))

Amo      = FrmNum$(14.2,SqlCmp("AmoVl"))
AmoT0    = FrmNum$(14.2,total(Amo,0))
AmoT1    = FrmNum$(14.2,total(Amo,1))
AmoT2    = FrmNum$(14.2,total(Amo,2))

nGrp     = FrmNum$( 7.0,SqlCmp("GrpNum"))
nGrpT0   = FrmNum$( 7.0,total(nGrp,0))
nGrpT1   = FrmNum$( 7.0,total(nGrp,1))
nGrpT2   = FrmNum$( 7.0,total(nGrp,2))

vGrp     = FrmNum$(14.2,SqlCmp("GrpVl"))
vGrpT0   = FrmNum$(14.2,total(vGrp,0))
vGrpT1   = FrmNum$(14.2,total(vGrp,1))
vGrpT2   = FrmNum$(14.2,total(vGrp,2))

SqlOpcAct("AmoVl"
'AmoPer   = FrmNum$(14.2,ImoAmoPer("A",SqlCmp$("Cod$"))
AmoPer   = FrmNum$(14.2,SqlOpcCon("AmoPer"))
AmoPerT0 = FrmNum$(14.2,total(AmoPer,0))
AmoPerT1 = FrmNum$(14.2,total(AmoPer,1))
AmoPerT2 = FrmNum$(14.2,total(AmoPer,2))
##


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


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
'---------------------------------------------------------->'Comentario (61)
'------------------------------------------------->'Comentario (52)
'------------------------------------->'Comentario (40)

'- Funcoes de inicializacao ---------------------------------------------------
SUB FxIni 'inicializacao base
'x=SqlOpcAct("Opc1","Opcao 1")                  'activar opcao

cnt=0                                           'limpar contador
'x=SqlOpcAct("LinAdi",1)                         'usar linha adicional
x=SqlOpcAct("LinAdi",0)                         'nao usar linha adicional


call SigLstIni
end sub


SUB Lst_AJT 'ajuste
'nada a executar
end sub


'==============================================================================
'[TXT] - BemGrp - Bens por grupo
'==============================================================================
SUB BemGrp_CabIni 'inicializar documento
cnt=0                                              'limpar contador
end sub


SUB BemGrp_Cab 'cabecalho
FxDiv LstIde,16CPI,0
'print TxTit$("TT=16CPI, LD, PT=66C, TL=16CPI",MemTxt$(1))
'FxDiv LstIde,10CPI,0
print TxTit$("TT=10CPI, LD, PT=40C, TL=10CPI",MemTxt$(1))
?Data : @DataExt                                                  Folha No: @Pag#
?================================================================================
? Codigo         Nome                                                    Valor  #
?================================================================================
end sub


SUB BemGrp_Lin 'linha
?@Cod          @Nome                                            @vAqi           #
end sub


SUB BemGrp_LinTit1 'titulo 1
tmp=CntLin("MIN",5)                                'minimo de linhas
tmp=CntLin("INC",2)                                'contar linhas
print                                              'linha de separacao
print tab(5) "Grupo : " SbtInf$("ACT",1)           'identificar grupo
end sub


SUB BemGrp_LinTit2 'titulo 2
tmp=CntLin("MIN",5)                                'minimo de linhas
tmp=CntLin("INC",1)                                'contar linha
print tab(5) "Grupo : " SbtInf$("ACT",2)           'identificar grupo
end sub


SUB BemGrp_LinSbt1 'subtotal 1
print tab(5) "Subtotal: " SbtInf$("ANT",1);        'identificar subtotal
print tab(53) FrmNum$(-4.0,TotCnt("Cod",1));       'numero de registos
print tab(64) FrmNum$(14.2,Total("vAqi",1))        'valor
print                                              'linha de separacao
tmp=CntLin("INC",2)                                'contar linhas
x=TotLpz(1)                                        'limpar totais
end sub


SUB BemGrp_LinSbt2 'sobtotal 2
print tab(5) "Subtotal: " SbtInf$("ANT",2);        'identificar subtotal
print tab(53) FrmNum$(-4.0,TotCnt("Cod",2));       'numero de registos
print tab(64) FrmNum$(14.2,TotCon("vAqi",2))       'valor
print                                              'linha de separacao
tmp=CntLin("INC",2)                                'contar linhas
x=TotLpz(2)                                        'limpar totais
end sub


SUB BemGrp_Fim 'totais
?================================================================================
?                                           Totais : @BemN0     @vAqiT0         #
?================================================================================
FxDiv LstPer,SP
'Print PrtCmd$("[SP]");
end sub


SUB BemGrp_FimAjt 'fim de pagina intermedia
?================================================================================
FxDiv LstPer,SP
'Print PrtCmd$("[SP]");
end sub


'================================================================================
'[GRF] - Bens por Grupo ---------------------------------------------------------
'================================================================================
Sub BemGrpG_CabIni 'inicializar documento
end sub


'---------------------------------------------------- CABECALHO -------
Sub BemGrpG_Cab 'cabecalho
Cmax  =190
FimDoc=272

Call SigLstCab 

PrWIN FON  , 13,   4                        	   'activar fonte
PrWIN AJT_B,  Margem, 26                           'posicao base
PrWIN COR_T,CorTraco                               'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0               	   'desenhar linha
PrWIN GR_LI, 0, 6, Cmax, 6                         'desenhar linha

TCol1=   5                                         'coluna 1
TCol2=  40                                         'coluna 2
TCol3= 170                                         'coluna 3

PrWIN COR_T,  CorTitLst                            'cor de titulo
PrWIN FON  , 9,   1                                'activar fonte

PrWIN FON, "BOLD+"                                 'activar bold
PrWIN TX_N,  TCol1,1.5,"Código"                    'titulo
PrWIN TX_N,  TCol2,1.5,"Nome"                      'titulo
PrWIN TX_N,  TCol3,1.5,"Valor"                     'titulo
PrWIN FON, "BOLD-"                                 'desactivar bold
PrWin COR_T, CorLin                                'activar cor linhas
end sub


'---------------------------------------------------- LINHA -----------
Sub BemGrpG_Lin 'linha de valores
LCol1=   1
LCol2=  30
LCol3= 158

InicioLinhas=30
PrWin COR_T, CorLin
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base
PrWIN TX_NP,  LCol1  ,0,"N",@Cod
PrWIN TX_NP,  LCol2  ,0,"N",@Nome
PrWIN TX_NP,  LCol3  ,0,"N",@vAqi
End sub


'---------------------------------------------------- LINHA TITULO 1 --
SUB BemGrpG_LinTit1 'titulo 1
InicioLinhas=26

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4	 'posicao base
tmp=CntLin("INC",1)                              'contar linha

SCol1 =  5                                       'coluna 1
SCol2 = 20                                       'coluna 2

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWIN COR_T,  CorTitLst                          'cor de titulo
PrWIN TX_N,   SCol1  ,8.0,"GRUPO : "             'escrever titulo
PrWIN TX_NP,  SCol2  ,8.0,"N",SbtInf$("ACT",1)   'escrever ano
PrWin FON,"BOLD-"                                'desactivar bold
end sub


'---------------------------------------------------- LINHA TITULO 2 --
SUB BemGrpG_LinTit2 'titulo 2
InicioLinhas=31
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base
tmp=CntLin("INC",1)                              'contar linha

SCol1 =  5
SCol2 = 20 

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWIN COR_T,  CorTitLst                          'cor de titulo
PrWIN TX_N,   SCol1  ,2.5,"GRUPO : "             'escrever titulo
PrWIN TX_NP,  SCol2  ,2.5,"N",SbtInf$("ACT",2)   'escrever ano
PrWin FON,"BOLD-"
end sub


'----------------------------------------------- LINHA SUBTOTAL 1 ----
SUB BemGrpG_LinSbt1 'sub-total 1
tmp=CntLin("INC",1)                              'contar linhas
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base

FCol1= 100                                       'coluna
FCol2= 118                                       'coluna
FCol3= 143                                       'coluna
FCol4= 158                                       'coluna

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWin FON,"ITAL+"                                'activar italico 
PrWIN GR_LI, 0, 1.0, Cmax, 1.0               	 'linha
PrWIN TX_N,   FCol1  ,1.0,"Sub-Total :"          'titulo
PrWIN TX_N,   FCol2  ,1.0,SbtInf$("ANT",1)       'titulo
PrWIN TX_NP,  FCol3  ,1.0,"N",TotCnt("Cod",1)    'numero de linhas
PrWIN TX_NP,  FCol4  ,1.0,"N",@vAqiT1            'valor
PrWin FON,"ITAL-"                                'desactivar italico
PrWin FON,"BOLD-"                                'desactivar bold

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


'----------------------------------------------- LINHA SUBTOTAL 2 ----
SUB BemGrpG_LinSbt2 'sub-total 2
tmp=CntLin("INC",1)                              'contar linhas
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base

FCol1= 100                                       'coluna
FCol2= 118                                       'coluna
FCol3= 143                                       'coluna
FCol4= 158                                       'coluna

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWin FON,"ITAL+"                                'activar italico 
PrWIN GR_LI, 0, 1.0, Cmax, 1.0               	 'linha
PrWIN TX_N,   FCol1  ,1.0,"Sub-Total :"          'titulo
PrWIN TX_N,   FCol2  ,1.0,SbtInf$("ANT",2)       'titulo
PrWIN TX_NP,  FCol3  ,1.0,"N",TotCnt("Cod",2)    'numero de linhas
PrWIN TX_NP,  FCol4  ,1.0,"N",@vAqiT2            'valor
PrWin FON,"ITAL-"                                'desactivar italico
PrWin FON,"BOLD-"                                'desactivar bold

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


'----------------------------------------------- LINHA SEPARACAO -----
Sub BemGrpG_LinSep 'linha de separacao
'tmp=CntLin("INC",3)                              'contar linhas
end sub


'----------------------------------------------- FIM -----------------
SUB BemGrpG_Fim 'fim de pagina
FCol1= 110
FCol2= 143
FCol3= 158

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

PrWin FON, "BOLD+"                              'activar bold
PrWIN TX_N,   FCol1  ,0.5,"TOTAIS :"            'titulo
PrWIN TX_NP,  FCol2  ,0.5,"N",@BemN0            'total campos
PrWIN TX_NP,  FCol3  ,0.5,"N",@vAqiT0           'total valor
PrWin FON, "BOLD-"

Call SigLstRod
PrWin FP
end sub



'==============================================================================
'[TXT] - BemGrpSit - Bens por grupo+situacao
'------------------------------------------------------------------------------
Sub BemGrpSit_CabIni 'inicializar documento
cnt=0                                              'limpar contador
end sub


Sub BemGrpSit_Cab 'cabecalho
FxDiv LstIde,16CPI,0
'print TxTit$("TT=16CPI, LD, PT=66C, TL=16CPI",MemTxt$(1))
'FxDiv LstIde,10CPI,0
print TxTit$("TT=10CPI, LD, PT=40C, TL=10CPI",MemTxt$(1))
?Data : @DataExt                                                  Folha No: @Pag#
?================================================================================
? Codigo        Nome                                  Valor       Abati.   Alien.
?================================================================================
end sub


Sub BemGrpSit_Lin 'linha
'12345678 123456789.123456789.123456789.12345 123456789.1234.12  2003/01  2003/02
?@Cod     @Nome                               @vAqi              @dtAba   @dtAli#
end sub


Sub BemGrpSit_LinTit1 'titulo 1
tmp=CntLin("MIN",5)                                'minimo de linhas
tmp=CntLin("INC",2)                                'contar linhas
print                                              'linha de separacao
print tab(5) "Grupo : " SbtInf$("ACT",1)           'identificar grupo
end sub


Sub BemGrpSit_LinTit2 'titulo 2
tmp=CntLin("MIN",5)                                'minimo de linhas
tmp=CntLin("INC",1)                                'contar linha
print tab(5) "Grupo : " SbtInf$("ACT",2)           'identificar grupo
end sub


Sub BemGrpSit_LinSbt1 'subtotal 1
print tab(5) "Subtotal: " SbtInf$("ANT",1);        'identificar subtotal
print tab(35) FrmNum$(-4.0,TotCnt("Cod",1));       'numero de registos
print tab(46) FrmNum$(14.2,Total("vAqi",1))        'valor
print                                              'linha de separacao
tmp=CntLin("INC",2)                                'contar linhas
x=TotLpz(1)                                        'limpar totais
end sub


Sub BemGrpSit_LinSbt2 'sobtotal 2
print tab(5) "Subtotal: " SbtInf$("ANT",2);        'identificar subtotal
print tab(35) FrmNum$(-4.0,TotCnt("Cod",2));       'numero de registos
print tab(46) FrmNum$(14.2,TotCon("vAqi",2))       'valor
print                                              'linha de separacao
tmp=CntLin("INC",2)                                'contar linhas
x=TotLpz(2)                                        'limpar totais
end sub


Sub BemGrpSit_Fim 'totais
?================================================================================
?                         Totais : @BemN0     @vAqiT0                           #
?================================================================================
FxDiv LstPer,SP
'Print PrtCmd$("[SP]");
end sub


Sub BemGrpSit_FimAjt 'fim de pagina intermedia
?================================================================================
FxDiv LstPer,SP
'Print PrtCmd$("[SP]");
end sub


'================================================================================
'[GRF] - Bens por Grupo+Situacao ------------------------------------------------
'================================================================================
Sub BemGrpG_CabIni 'inicializar documento
end sub

'---------------------------------------------------- CABECALHO -------
Sub BemGrpSitG_Cab 'cabecalho
Cmax  =190
FimDoc=272

Call SigLstCab 

PrWIN FON  , 13,   4                        	   'activar fonte
PrWIN AJT_B,  Margem, 26                           'posicao base
PrWIN COR_T,CorTraco                               'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0               	   'desenhar linha
PrWIN GR_LI, 0, 6, Cmax, 6                         'desenhar linha

TCol1=   5                                         'coluna 1
TCol2=  40                                         'coluna 2
TCol3= 130                                         'coluna 3
TCol4= 163                                         'coluna 4
TCol5= 179                                         'coluna 5

PrWIN COR_T,  CorTitLst                            'cor de titulo
PrWIN FON  , 9,   1                                'activar fonte

PrWIN FON, "BOLD+"                                 'activar bold
PrWIN TX_N,  TCol1,1.5,"Código"                    'titulo
PrWIN TX_N,  TCol2,1.5,"Nome"                      'titulo
PrWIN TX_N,  TCol3,1.5,"Valor"                     'titulo
PrWIN TX_N,  TCol4,1.5,"Abat."                     'titulo
PrWIN TX_N,  TCol5,1.5,"Alien."                    'titulo
PrWIN FON, "BOLD-"                                 'desactivar bold
PrWin COR_T, CorLin                                'activar cor linhas
end sub


'---------------------------------------------------- LINHA -----------
Sub BemGrpSitG_Lin 'linha de valores
LCol1=   1
LCol2=  30
LCol3= 118
LCol4= 160
LCol5= 176

InicioLinhas=30
PrWin COR_T, CorLin
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base
PrWIN TX_NP,  LCol1  ,0,"N",@Cod
PrWIN TX_NP,  LCol2  ,0,"N",@Nome
PrWIN TX_NP,  LCol3  ,0,"N",@vAqi
PrWIN TX_NP,  LCol4  ,0,"N",@dtAba
PrWIN TX_NP,  LCol5  ,0,"N",@dtAli
End sub


'---------------------------------------------------- LINHA TITULO 1 --
SUB BemGrpSitG_LinTit1 'titulo 1
InicioLinhas=26

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4	 'posicao base
tmp=CntLin("INC",1)                              'contar linha

SCol1 =  5                                       'coluna 1
SCol2 = 20                                       'coluna 2

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWIN COR_T,  CorTitLst                          'cor de titulo
PrWIN TX_N,   SCol1  ,8.0,"GRUPO : "             'escrever titulo
PrWIN TX_NP,  SCol2  ,8.0,"N",SbtInf$("ACT",1)   'escrever ano
PrWin FON,"BOLD-"                                'desactivar bold
end sub


'---------------------------------------------------- LINHA TITULO 2 --
SUB BemGrpSitG_LinTit2 'titulo 2
InicioLinhas=31
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base
tmp=CntLin("INC",1)                              'contar linha

SCol1 =  5
SCol2 = 20 

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWIN COR_T,  CorTitLst                          'cor de titulo
PrWIN TX_N,   SCol1  ,2.5,"GRUPO : "             'escrever titulo
PrWIN TX_NP,  SCol2  ,2.5,"N",SbtInf$("ACT",2)   'escrever ano
PrWin FON,"BOLD-"
end sub


'----------------------------------------------- LINHA SUBTOTAL 1 ----
SUB BemGrpSitG_LinSbt1 'sub-total 1
tmp=CntLin("INC",1)                              'contar linhas
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base

FCol1=  60                                       'coluna
FCol2=  78                                       'coluna
FCol3=  90                                       'coluna
FCol4= 118                                       'coluna

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWin FON,"ITAL+"                                'activar italico 
PrWIN GR_LI, 0, 1.0, Cmax, 1.0               	 'linha
PrWIN TX_N,   FCol1  ,1.0,"Sub-Total :"          'titulo
PrWIN TX_N,   FCol2  ,1.0,SbtInf$("ANT",1)       'titulo
PrWIN TX_NP,  FCol3  ,1.0,"N",TotCnt("Cod",1)    'numero de linhas
PrWIN TX_NP,  FCol4  ,1.0,"N",@vAqiT1            'valor
PrWin FON,"ITAL-"                                'desactivar italico
PrWin FON,"BOLD-"                                'desactivar bold

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


'----------------------------------------------- LINHA SUBTOTAL 2 ----
SUB BemGrpSitG_LinSbt2 'sub-total 2
tmp=CntLin("INC",1)                              'contar linhas
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base

FCol1=  60                                       'coluna
FCol2=  78                                       'coluna
FCol3=  90                                       'coluna
FCol4= 118                                       'coluna

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWin FON,"ITAL+"                                'activar italico 
PrWIN GR_LI, 0, 1.0, Cmax, 1.0               	 'linha
PrWIN TX_N,   FCol1  ,1.0,"Sub-Total :"          'titulo
PrWIN TX_N,   FCol2  ,1.0,SbtInf$("ANT",2)       'titulo
PrWIN TX_NP,  FCol3  ,1.0,"N",TotCnt("Cod",2)    'numero de linhas
PrWIN TX_NP,  FCol4  ,1.0,"N",@vAqiT2            'valor
PrWin FON,"ITAL-"                                'desactivar italico
PrWin FON,"BOLD-"                                'desactivar bold

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


'----------------------------------------------- LINHA SEPARACAO -----
Sub BemGrpSitG_LinSep 'linha de separacao
'tmp=CntLin("INC",3)                              'contar linhas
end sub


'----------------------------------------------- FIM -----------------
SUB BemGrpSitG_Fim 'fim de pagina
FCol1=  60
FCol2=  90
FCol3= 118

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

PrWin FON, "BOLD+"                              'activar bold
PrWIN TX_N,   FCol1  ,0.5,"TOTAIS :"            'titulo
PrWIN TX_NP,  FCol2  ,0.5,"N",@BemN0            'total campos
PrWIN TX_NP,  FCol3  ,0.5,"N",@vAqiT0           'total valor
PrWin FON, "BOLD-"

Call SigLstRod
PrWin FP
end sub


'==============================================================================
'[TXT] - AmoGrpDis - Amortizacoes por grupo - discriminadas
'==============================================================================
SUB AmoGrpDis_CabIni 'inicializar documento
cnt=0                                              'limpar contador
end sub


SUB AmoGrpDis_Cab 'cabecalho
FxDiv LstIde,16CPI,0
'print TxTit$("TT=16CPI, LD, PT=66C, TL=16CPI",MemTxt$(1))
'FxDiv LstIde,10CPI,0
print TxTit$("TT=10CPI, LD, PT=40C, TL=10CPI",MemTxt$(1))
?Data : @DataExt                                                  Folha No: @Pag#
?================================================================================
? Codigo         Nome                                                    Valor  #
?================================================================================
end sub


SUB AmoGrpDis_Lin 'linha
?@CodMov       @Nome                                            @Amo            #
end sub


SUB AmoGrpDis_LinTit1 'titulo 1
tmp=CntLin("MIN",5)                                'minimo de linhas
tmp=CntLin("INC",2)                                'contar linhas
print                                              'linha de separacao
print tab(5) "Grupo: " SbtInf$("ACT",1)            'identificar grupo
end sub


SUB AmoGrpDis_LinTit2 'titulo 2
tmp=CntLin("MIN",5)                                'minimo de linhas
tmp=CntLin("INC",1)                                'contar linha
print tab(5) "Grupo : " SbtInf$("ACT",2)           'identificar grupo
end sub


SUB AmoGrpDis_LinSbt1 'subtotal 1
print tab(5) "Subtotal: " SbtInf$("ANT",1);        'identificar subtotal
print tab(53) FrmNum$(-4.0,TotCnt("CodMov",1));    'numero de registos
print tab(64) FrmNum$(14.2,Total("Amo",1))         'valor
print                                              'linha de separacao
tmp=CntLin("INC",2)                                'contar linhas
x=TotLpz(1)                                        'limpar totais
end sub


SUB AmoGrpDis_LinSbt2 'subtotal 2
print tab(5) "Subtotal: " SbtInf$("ANT",2);        'identificar subtotal
print tab(53) FrmNum$(-4.0,TotCnt("CodMov",2));    'numero de registos
print tab(64) FrmNum$(14.2,TotCon("Amo",2))        'valor
print                                              'linha de separacao
tmp=CntLin("INC",2)                                'contar linhas
x=TotLpz(2)                                        'limpar totais
end sub


SUB AmoGrpDis_Fim 'totais
?================================================================================
?                                           Totais : @BemGN0    @AmoT0          #
?================================================================================
FxDiv LstPer,SP
'Print PrtCmd$("[SP]");
end sub


SUB AmoGrpDis_FimAjt 'fim de pagina intermedia
?================================================================================
FxDiv LstPer,SP
'Print PrtCmd$("[SP]");
end sub


'================================================================================
'[GRF] - Amortizações por Grupo (Discriminadas) ---------------------------------
'================================================================================
Sub AmoGrpDisG_CabIni 'inicializar documento
end sub


'---------------------------------------------------- CABECALHO -------
Sub AmoGrpDisG_Cab 'cabecalho
Cmax  =190
FimDoc=272

Call SigLstCab 

PrWIN FON  , 13,   4                        	   'activar fonte
PrWIN AJT_B,  Margem, 26                           'posicao base
PrWIN COR_T,CorTraco                               'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0               	   'desenhar linha
PrWIN GR_LI, 0, 6, Cmax, 6                         'desenhar linha

TCol1=   5                                         'coluna 1
TCol2=  40                                         'coluna 2
TCol3= 170                                         'coluna 3

PrWIN COR_T,  CorTitLst                            'cor de titulo
PrWIN FON  , 9,   1                                'activar fonte

PrWIN FON, "BOLD+"                                 'activar bold
PrWIN TX_N,  TCol1,1.5,"Código"                    'titulo
PrWIN TX_N,  TCol2,1.5,"Nome"                      'titulo
PrWIN TX_N,  TCol3,1.5,"Valor"                     'titulo
PrWIN FON, "BOLD-"                                 'desactivar bold
PrWin COR_T, CorLin                                'activar cor linhas
end sub


'---------------------------------------------------- LINHA -----------
Sub AmoGrpDisG_Lin 'linha de valores
LCol1=   1
LCol2=  30
LCol3= 158

InicioLinhas=30
PrWin COR_T, CorLin
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base
PrWIN TX_NP,  LCol1  ,0,"N",@CodMov
PrWIN TX_NP,  LCol2  ,0,"N",@Nome
PrWIN TX_NP,  LCol3  ,0,"N",@Amo
End sub


'---------------------------------------------------- LINHA TITULO 1 --
SUB AmoGrpDisG_LinTit1 'titulo 1
InicioLinhas=26

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4	 'posicao base
tmp=CntLin("INC",1)                              'contar linha

SCol1 =  5                                       'coluna 1
SCol2 = 20                                       'coluna 2

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWIN COR_T,  CorTitLst                          'cor de titulo
PrWIN TX_N,   SCol1  ,8.0,"GRUPO : "             'escrever titulo
PrWIN TX_NP,  SCol2  ,8.0,"N",SbtInf$("ACT",1)   'escrever ano
PrWin FON,"BOLD-"                                'desactivar bold
end sub


'---------------------------------------------------- LINHA TITULO 2 --
SUB AmoGrpDisG_LinTit2 'titulo 2
InicioLinhas=31
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base
tmp=CntLin("INC",1)                              'contar linha

SCol1 =  5
SCol2 = 20 

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWIN COR_T,  CorTitLst                          'cor de titulo
PrWIN TX_N,   SCol1  ,2.5,"GRUPO : "             'escrever titulo
PrWIN TX_NP,  SCol2  ,2.5,"N",SbtInf$("ACT",2)   'escrever ano
PrWin FON,"BOLD-"
end sub


'----------------------------------------------- LINHA SUBTOTAL 1 ----
SUB AmoGrpDisG_LinSbt1 'sub-total 1
tmp=CntLin("INC",1)                              'contar linhas
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base

FCol1= 100                                       'coluna
FCol2= 118                                       'coluna
FCol3= 143                                       'coluna
FCol4= 158                                       'coluna

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWin FON,"ITAL+"                                'activar italico 
PrWIN GR_LI, 0, 1.0, Cmax, 1.0               	 'linha
PrWIN TX_N,   FCol1  ,1.0,"Sub-Total :"          'titulo
PrWIN TX_N,   FCol2  ,1.0,SbtInf$("ANT",1)       'titulo
PrWIN TX_NP,  FCol3  ,1.0,"N",TotCnt("CodMov",1) 'numero de linhas
PrWIN TX_NP,  FCol4  ,1.0,"N",@AmoT1             'valor
PrWin FON,"ITAL-"                                'desactivar italico
PrWin FON,"BOLD-"                                'desactivar bold

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

'----------------------------------------------- LINHA SUBTOTAL 2 ----
SUB AmoGrpDisG_LinSbt2 'sub-total 2
tmp=CntLin("INC",1)                              'contar linhas
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base

FCol1= 100                                       'coluna
FCol2= 118                                       'coluna
FCol3= 143                                       'coluna
FCol4= 158                                       'coluna

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWin FON,"ITAL+"                                'activar italico 
PrWIN GR_LI, 0, 1.0, Cmax, 1.0               	 'linha
PrWIN TX_N,   FCol1  ,1.0,"Sub-Total :"          'titulo
PrWIN TX_N,   FCol2  ,1.0,SbtInf$("ANT",2)       'titulo
PrWIN TX_NP,  FCol3  ,1.0,"N",TotCnt("CodMov",2) 'numero de linhas
PrWIN TX_NP,  FCol4  ,1.0,"N",@AmoT2             'valor
PrWin FON,"ITAL-"                                'desactivar italico
PrWin FON,"BOLD-"                                'desactivar bold

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


'----------------------------------------------- LINHA SEPARACAO -----
Sub AmoGrpDisG_LinSep 'linha de separacao
'tmp=CntLin("INC",3)                              'contar linhas
end sub


'----------------------------------------------- FIM -----------------
SUB AmoGrpDisG_Fim 'fim de pagina
FCol1= 110
FCol2= 143
FCol3= 158

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

PrWin FON, "BOLD+"                              'activar bold
PrWIN TX_N,   FCol1  ,0.5,"TOTAIS :"            'titulo
'PrWIN TX_NP,  FCol2  ,0.5,"N",TotCnt("CodMov",0)'total campos
PrWIN TX_NP,  FCol2  ,0.5,"N",@BemGN0           'total valor
PrWIN TX_NP,  FCol3  ,0.5,"N",@AmoT0            'total valor
PrWin FON, "BOLD-"


Call SigLstRod
PrWin FP
end sub


'==============================================================================
'[TXT] - AmoGrpRes - Amortizacoes por grupo - resumo
'==============================================================================
SUB AmoGrpRes_CabIni 'inicializar documento
cnt=0                                              'limpar contador
end sub


SUB AmoGrpRes_Cab 'cabecalho
FxDiv LstIde,16CPI,0
'print TxTit$("TT=16CPI, LD, PT=66C, TL=16CPI",MemTxt$(1))
'FxDiv LstIde,10CPI,0
print TxTit$("TT=10CPI, LD, PT=40C, TL=10CPI",MemTxt$(1))
?Data : @DataExt                                                  Folha No: @Pag#
?================================================================================
?     Grupo                                                    Valor      Numero#
?================================================================================
end sub


SUB AmoGrpRes_Lin 'linha
?     @Grp                                            @vGrp              @nGrp  #
end sub


SUB AmoGrpRes_LinTit1 'titulo 1
tmp=CntLin("MIN",5)                                'minimo de linhas
tmp=CntLin("INC",2)                                'contar linhas
print                                              'linha de separacao
print tab(6) "Grupo: " SbtInf$("ACT",1)            'identificar grupo
end sub


SUB AmoGrpRes_LinSbt1 'subtotal 1
print tab(15) "Subtotal: " SbtInf$("ANT",1);       'identificar subtotal
print tab(43) FrmNum$(-4.0,TotCnt("Grp",1));       'numero de registos
print tab(54) FrmNum$(14.2,Total("vGrp",1));       'valor
print tab(73) FrmNum$( 7.0,Total("nGrp",1))        'registos no grupo
print                                              'linha de separacao
tmp=CntLin("INC",2)                                'contar linhas
x=TotLpz(1)                                        'limpar totais
end sub


SUB AmoGrpRes_Fim 'totais
?================================================================================
?                                 Totais : @GrpN0     @vGrpT0            @nGrpT0#
?================================================================================
FxDiv LstPer,SP
'Print PrtCmd$("[SP]");
end sub


SUB AmoGrpRes_FimAjt 'fim de pagina intermedia
?================================================================================
FxDiv LstPer,SP
'Print PrtCmd$("[SP]");
end sub


'================================================================================
'[GRF] - Amortizações por Grupo (Resumo) ----------------------------------------
'================================================================================
Sub AmoGrpResG_CabIni 'inicializar documento
end sub


'---------------------------------------------------- CABECALHO -------
Sub AmoGrpResG_Cab 'cabecalho
Cmax  =190
FimDoc=272

Call SigLstCab 

PrWIN FON  , 13,   4                        	   'activar fonte
PrWIN AJT_B,  Margem, 26                           'posicao base
PrWIN COR_T,CorTraco                               'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0               	   'desenhar linha
PrWIN GR_LI, 0, 6, Cmax, 6                         'desenhar linha

TCol1=   5                                         'coluna 1
TCol2= 155                                         'coluna 2
TCol3= 175                                         'coluna 3

PrWIN COR_T,  CorTitLst                            'cor de titulo
PrWIN FON  , 9,   1                                'activar fonte

PrWIN FON, "BOLD+"                                 'activar bold
PrWIN TX_N,  TCol1,1.5,"Grupo"                     'titulo
PrWIN TX_N,  TCol2,1.5,"Valor"                     'titulo
PrWIN TX_N,  TCol3,1.5,"Número"                    'titulo
PrWIN FON, "BOLD-"                                 'desactivar bold
PrWin COR_T, CorLin                                'activar cor linhas
end sub


'---------------------------------------------------- LINHA -----------
Sub AmoGrpResG_Lin 'linha de valores
LCol1=   1
LCol2= 138
LCol3= 176

InicioLinhas=30
PrWin COR_T, CorLin
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base
PrWIN TX_NP,  LCol1  ,0,"N",@Grp
PrWIN TX_NP,  LCol2  ,0,"N",@vGrp
PrWIN TX_NP,  LCol3  ,0,"N",@nGrp
End sub


'---------------------------------------------------- LINHA TITULO 1 --
SUB AmoGrpResG_LinTit1 'titulo 1
InicioLinhas=26

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4	 'posicao base
tmp=CntLin("INC",1)                              'contar linha

SCol1 =  5                                       'coluna 1
SCol2 = 20                                       'coluna 2

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWIN COR_T,  CorTitLst                          'cor de titulo
PrWIN TX_N,   SCol1  ,8.0,"GRUPO : "             'escrever titulo
PrWIN TX_NP,  SCol2  ,8.0,"N",SbtInf$("ACT",1)   'escrever ano
PrWin FON,"BOLD-"                                'desactivar bold
end sub


'----------------------------------------------- LINHA SUBTOTAL 1 ----
SUB AmoGrpResG_LinSbt1 'sub-total 1
tmp=CntLin("INC",1)                              'contar linhas
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base

FCol1=  80                                       'coluna
FCol2= 100                                       'coluna
FCol3= 120                                       'coluna
FCol4= 138                                       'coluna
FCol5= 176                                       'coluna

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWin FON,"ITAL+"                                'activar italico 
PrWIN GR_LI, 0, 1.0, Cmax, 1.0               	 'linha
PrWIN TX_N,   FCol1  ,1.0,"Sub-Total :"          'titulo
PrWIN TX_N,   FCol2  ,1.0,SbtInf$("ANT",1)       'titulo
PrWIN TX_NP,  FCol3  ,1.0,"N",TotCnt("Grp",1)    'numero de linhas
PrWIN TX_NP,  FCol4  ,1.0,"N",@vGrpT1            'valor
PrWIN TX_NP,  FCol5  ,1.0,"N",@nGrpT1            'numero
PrWin FON,"ITAL-"                                'desactivar italico
PrWin FON,"BOLD-"                                'desactivar bold

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


'----------------------------------------------- LINHA SEPARACAO -----
Sub AmoGrpResG_LinSep 'linha de separacao
'tmp=CntLin("INC",3)                              'contar linhas
end sub


'----------------------------------------------- FIM -----------------
SUB AmoGrpResG_Fim 'fim de pagina
FCol1= 100
FCol2= 120
FCol3= 138
FCol4= 176

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

PrWin FON, "BOLD+"                              'activar bold
PrWIN TX_N,   FCol1  ,0.5,"TOTAIS :"            'titulo
PrWIN TX_NP,  FCol2  ,0.5,"N",@GrpN0            'total campos
PrWIN TX_NP,  FCol3  ,0.5,"N",@vGrpT0           'total valor
PrWIN TX_NP,  FCol4  ,0.5,"N",@nGrpT0           'total valor
PrWin FON, "BOLD-"

Call SigLstRod
PrWin FP
end sub


'==============================================================================
'[TXT] - AmoPer - Amortizacoes do Periodo
'==============================================================================
'- discriminado ---------------------------------------------------------------
SUB AmoPer_CabDisIni 'inicializar documento
cnt = 0                                'limpar contador
mLst$ = "D"                            'modo discriminado
end sub


SUB AmoPer_CabDis 'cabecalho
call AmoPerCab                         'listar cabecalho
end sub


'- resumido -------------------------------------------------------------------
SUB AmoPer_CabResIni 'inicializar documento (resumo)
cnt = 0                                'limpar contador
mLst$ = "R"                            'modo resumido
end sub


SUB AmoPer_CabRes 'cabecalho
call AmoPerCab                         'listar cabecalho
end sub


'- funcoes comuns -------------------------------------------------------------
SUB AmoPerCab 'cabecalho
FxDiv LstIde,16CPI,0
'print TxTit$("TT=16CPI, LD, PT=66C, TL=16CPI",MemTxt$(1))
'FxDiv LstIde,10CPI,0
print TxTit$("TT=10CPI, LD, PT=40C, TL=10CPI",MemTxt$(1))
?Data : @DataExt                                                  Folha No: @Pag#
?================================================================================
? Codigo         Nome                                                    Valor  #
?================================================================================
end sub


SUB AmoPer_Lin 'linha
mIpa$=SqlOpcCon$("Opc_CtaIpa")                     'modo de imputacao de amortizacao
vAmo=ImoAmoPer(mIpa$,SqlCmp$("Cod$"))              'valor 
if vAmo>0 then                                     'ha valor ?
   res=SqlOpcAct("AmoPer",vAmo)                    'guardar valor de amortizacao
   if mLst$="D" then                               'discriminar ?
      tmp=CntLin("INC",1)                          'contar linha
?@Cod          @Nome                                            @AmoPer         #
   else
      num = VarAcm("@Cod,@AmoPer")                 'acumular valor
   end if
end if
end sub


SUB AmoPer_LinTit1 'titulo 1
tmp=CntLin("MIN",5)                                'minimo de linhas
tmp=CntLin("INC",2)                                'contar linhas
print                                              'linha de separacao
print tab(5) "Grupo : " SbtInf$("ACT",1)           'identificar grupo
end sub


SUB AmoPer_LinTit2 'titulo 2
tmp=CntLin("MIN",5)                                'minimo de linhas
tmp=CntLin("INC",1)                                'contar linha
print tab(5) "Grupo : " SbtInf$("ACT",2)           'identificar grupo
end sub


SUB AmoPer_LinSbt1 'subtotal 1
print tab(5) "Subtotal: " SbtInf$("ANT",1);        'identificar subtotal
print tab(53) FrmNum$(-4.0,TotCnt("Cod",1));       'numero de registos
print tab(64) FrmNum$(14.2,Total("AmoPer",1))      'valor
print                                              'linha de separacao
tmp=CntLin("INC",2)                                'contar linhas
x=TotLpz(1)                                        'limpar totais
end sub


SUB AmoPer_LinSbt2 'sobtotal 2
print tab(5) "Subtotal: " SbtInf$("ANT",2);        'identificar subtotal
print tab(53) FrmNum$(-4.0,TotCnt("Cod",2));       'numero de registos
print tab(64) FrmNum$(14.2,TotCon("AmoPer",2))     'valor
print                                              'linha de separacao
tmp=CntLin("INC",2)                                'contar linhas
x=TotLpz(2)                                        'limpar totais
end sub


SUB AmoPer_Fim 'totais
?================================================================================
?                                           Totais : @BemN0     @AmoPerT0       #
?================================================================================
FxDiv LstPer,SP
'Print PrtCmd$("[SP]");
end sub


SUB AmoPer_FimAjt 'fim de pagina intermedia
?================================================================================
FxDiv LstPer,SP
'Print PrtCmd$("[SP]");
end sub


'================================================================================
'[GRF] - Amortizações por Periodo (discriminada) --------------------------------
'================================================================================
Sub AmoPerG_CabIni 'inicializar documento
end sub

'---------------------------------------------------- CABECALHO -------
Sub AmoPerG_Cab 'cabecalho
Cmax  =190
FimDoc=272

mLst$ = "D"                                        'modo discriminado

Call SigLstCab 

PrWIN FON  , 13,   4                        	   'activar fonte
PrWIN AJT_B,  Margem, 26                           'posicao base
PrWIN COR_T,CorTraco                               'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0               	   'desenhar linha
PrWIN GR_LI, 0, 6, Cmax, 6                         'desenhar linha

TCol1=   5                                         'coluna 1
TCol2=  40                                         'coluna 2
TCol3= 170                                         'coluna 3

PrWIN COR_T,  CorTitLst                            'cor de titulo
PrWIN FON  , 9,   1                                'activar fonte

PrWIN FON, "BOLD+"                                 'activar bold
PrWIN TX_N,  TCol1,1.5,"Código"                    'titulo
PrWIN TX_N,  TCol2,1.5,"Nome"                      'titulo
PrWIN TX_N,  TCol3,1.5,"Valor"                     'titulo
PrWIN FON, "BOLD-"                                 'desactivar bold
PrWin COR_T, CorLin                                'activar cor linhas
end sub


'---------------------------------------------------- LINHA -----------
Sub AmoPerG_Lin 'linha de valores
LCol1=   1
LCol2=  30
LCol3= 158

InicioLinhas=33
PrWin COR_T, CorLin


mIpa$=SqlOpcCon$("Opc_CtaIpa")                     'modo de imputacao de amortizacao
vAmo=ImoAmoPer(mIpa$,SqlCmp$("Cod$"))              'valor 
if vAmo>0 then                                     'ha valor ?
   res=SqlOpcAct("AmoPer",vAmo)                    'guardar valor de amortizacao

   tmp=CntLin("INC",1)                             'contar linhas
   PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4 'posicao base
   PrWIN TX_NP,  LCol1  ,0,"N",@Cod                'codigo
   PrWIN TX_NP,  LCol2  ,0,"N",@Nome               'nome
   PrWIN TX_NP,  LCol3  ,0,"N",@AmoPer             'valor
end if
end sub


'---------------------------------------------------- LINHA TITULO 1 --
SUB AmoPerG_LinTit1 'titulo 1
InicioLinhas=26

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4	 'posicao base
tmp=CntLin("INC",1)                              'contar linha

SCol1 =  5                                       'coluna 1
SCol2 = 20                                       'coluna 2

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWIN COR_T,  CorTitLst                          'cor de titulo
PrWIN TX_N,   SCol1  ,8.0,"GRUPO : "             'escrever titulo
PrWIN TX_NP,  SCol2  ,8.0,"N",SbtInf$("ACT",1)   'escrever ano
PrWin FON,"BOLD-"                                'desactivar bold
end sub


'---------------------------------------------------- LINHA TITULO 2 --
SUB AmoPerG_LinTit2 'titulo 2
InicioLinhas=31
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base
tmp=CntLin("INC",1)                              'contar linha

SCol1 =  5
SCol2 = 20 

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWIN COR_T,  CorTitLst                          'cor de titulo
PrWIN TX_N,   SCol1  ,2.5,"GRUPO : "             'escrever titulo
PrWIN TX_NP,  SCol2  ,2.5,"N",SbtInf$("ACT",2)   'escrever ano
PrWin FON,"BOLD-"
end sub


'----------------------------------------------- LINHA SUBTOTAL 1 ----
SUB AmoPerG_LinSbt1 'sub-total 1
tmp=CntLin("INC",1)                              'contar linhas
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base

FCol1= 100                                       'coluna
FCol2= 118                                       'coluna
FCol3= 143                                       'coluna
FCol4= 158                                       'coluna

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWin FON,"ITAL+"                                'activar italico 
PrWIN GR_LI, 0, 1.0, Cmax, 1.0               	 'linha
PrWIN TX_N,   FCol1  ,1.0,"Sub-Total :"          'titulo
PrWIN TX_N,   FCol2  ,1.0,SbtInf$("ANT",1)       'titulo
PrWIN TX_NP,  FCol3  ,1.0,"N",TotCnt("Cod",1)    'numero de linhas
PrWIN TX_NP,  FCol4  ,1.0,"N",@AmoPerT1          'valor
PrWin FON,"ITAL-"                                'desactivar italico
PrWin FON,"BOLD-"                                'desactivar bold

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

'----------------------------------------------- LINHA SUBTOTAL 2 ----
SUB AmoPerG_LinSbt2 'sub-total 2
tmp=CntLin("INC",1)                              'contar linhas
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base

FCol1= 100                                       'coluna
FCol2= 118                                       'coluna
FCol3= 143                                       'coluna
FCol4= 158                                       'coluna

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWin FON,"ITAL+"                                'activar italico 
PrWIN GR_LI, 0, 1.0, Cmax, 1.0               	 'linha
PrWIN TX_N,   FCol1  ,1.0,"Sub-Total :"          'titulo
PrWIN TX_N,   FCol2  ,1.0,SbtInf$("ANT",2)       'titulo
PrWIN TX_NP,  FCol3  ,1.0,"N",TotCnt("Cod",2)    'numero de linhas
PrWIN TX_NP,  FCol4  ,1.0,"N",@AmoPerT2          'valor
PrWin FON,"ITAL-"                                'desactivar italico
PrWin FON,"BOLD-"                                'desactivar bold

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


'----------------------------------------------- LINHA SEPARACAO -----
Sub AmoPerG_LinSep 'linha de separacao
'tmp=CntLin("INC",3)                              'contar linhas
end sub


'----------------------------------------------- FIM -----------------
SUB AmoPerG_Fim 'fim de pagina
FCol1= 110
FCol2= 143
FCol3= 158

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

PrWin FON, "BOLD+"                              'activar bold
PrWIN TX_N,   FCol1  ,0.5,"TOTAIS :"            'titulo
PrWIN TX_NP,  FCol2  ,0.5,"N",@BemN0            'total valor
PrWIN TX_NP,  FCol3  ,0.5,"N",@AmoPerT0         'total valor
PrWin FON, "BOLD-"


Call SigLstRod
PrWin FP
end sub


'================================================================================
'[GRF] - Amortizações por Periodo (resumo) --------------------------------------
'================================================================================
Sub AmoPerRG_CabIni 'inicializar documento
end sub

'---------------------------------------------------- CABECALHO -------
Sub AmoPerRG_Cab 'cabecalho
Cmax  =190
FimDoc=272

cnt=0                                              'limpar contador
mLst$ = "R"                                        'modo resumo

Call SigLstCab 

PrWIN FON  , 13,   4                        	   'activar fonte
PrWIN AJT_B,  Margem, 26                           'posicao base
PrWIN COR_T,CorTraco                               'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0               	   'desenhar linha
PrWIN GR_LI, 0, 6, Cmax, 6                         'desenhar linha

TCol1=   5                                         'coluna 1
TCol2=  40                                         'coluna 2
TCol3= 170                                         'coluna 3

PrWIN COR_T,  CorTitLst                            'cor de titulo
PrWIN FON  , 9,   1                                'activar fonte

PrWIN FON, "BOLD+"                                 'activar bold
PrWIN TX_N,  TCol1,1.5,"Código"                    'titulo
PrWIN TX_N,  TCol2,1.5,"Nome"                      'titulo
PrWIN TX_N,  TCol3,1.5,"Valor"                     'titulo
PrWIN FON, "BOLD-"                                 'desactivar bold
PrWin COR_T, CorLin                                'activar cor linhas
end sub


'---------------------------------------------------- LINHA -----------
Sub AmoPerRG_Lin 'linha de valores
LCol1=   1
LCol2=  30
LCol3= 158

InicioLinhas=33
PrWin COR_T, CorLin


mIpa$=SqlOpcCon$("Opc_CtaIpa")                     'modo de imputacao de amortizacao
vAmo=ImoAmoPer(mIpa$,SqlCmp$("Cod$"))              'valor 
if vAmo>0 then                                     'ha valor ?
   res=SqlOpcAct("AmoPer",vAmo)                    'guardar valor de amortizacao
   num = VarAcm("@Cod,@AmoPer")                    'acumular valor   

'   tmp=CntLin("INC",1)                             'contar linhas
'   PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4 'posicao base
'   PrWIN TX_NP,  LCol1  ,0,"N",@Cod                'codigo
'   PrWIN TX_NP,  LCol2  ,0,"N",@Nome               'nome
'   PrWIN TX_NP,  LCol3  ,0,"N",@AmoPer             'valor
end if
end sub


'---------------------------------------------------- LINHA TITULO 1 --
SUB AmoPerRG_LinTit1 'titulo 1
InicioLinhas=26

PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4	 'posicao base
tmp=CntLin("INC",1)                              'contar linha

SCol1 =  5                                       'coluna 1
SCol2 = 20                                       'coluna 2

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWIN COR_T,  CorTitLst                          'cor de titulo
PrWIN TX_N,   SCol1  ,8.0,"GRUPO : "             'escrever titulo
PrWIN TX_NP,  SCol2  ,8.0,"N",SbtInf$("ACT",1)   'escrever ano
PrWin FON,"BOLD-"                                'desactivar bold
end sub


'---------------------------------------------------- LINHA TITULO 2 --
SUB AmoPerRG_LinTit2 'titulo 2
InicioLinhas=31
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base
tmp=CntLin("INC",1)                              'contar linha

SCol1 =  5
SCol2 = 20 

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWIN COR_T,  CorTitLst                          'cor de titulo
PrWIN TX_N,   SCol1  ,2.5,"GRUPO : "             'escrever titulo
PrWIN TX_NP,  SCol2  ,2.5,"N",SbtInf$("ACT",2)   'escrever ano
PrWin FON,"BOLD-"
end sub


'----------------------------------------------- LINHA SUBTOTAL 1 ----
SUB AmoPerRG_LinSbt1 'sub-total 1
tmp=CntLin("INC",1)                              'contar linhas
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base

FCol1= 100                                       'coluna
FCol2= 118                                       'coluna
FCol3= 143                                       'coluna
FCol4= 158                                       'coluna

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWin FON,"ITAL+"                                'activar italico 
PrWIN GR_LI, 0, 1.0, Cmax, 1.0               	 'linha
PrWIN TX_N,   FCol1  ,1.0,"Sub-Total :"          'titulo
PrWIN TX_N,   FCol2  ,1.0,SbtInf$("ANT",1)       'titulo
PrWIN TX_NP,  FCol3  ,1.0,"N",TotCnt("Cod",1)    'numero de linhas
PrWIN TX_NP,  FCol4  ,1.0,"N",@AmoPerT1          'valor
PrWin FON,"ITAL-"                                'desactivar italico
PrWin FON,"BOLD-"                                'desactivar bold

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


'----------------------------------------------- LINHA SUBTOTAL 2 ----
SUB AmoPerRG_LinSbt2 'sub-total 2
tmp=CntLin("INC",1)                              'contar linhas
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base

FCol1= 100                                       'coluna
FCol2= 118                                       'coluna
FCol3= 143                                       'coluna
FCol4= 158                                       'coluna

'PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWin FON,"ITAL+"                                'activar italico 
PrWIN GR_LI, 0, 1.0, Cmax, 1.0               	 'linha
PrWIN TX_N,   FCol1  ,1.0,"Sub-Total :"          'titulo
PrWIN TX_N,   FCol2  ,1.0,SbtInf$("ANT",2)       'titulo
PrWIN TX_NP,  FCol3  ,1.0,"N",TotCnt("Cod",2)    'numero de linhas
PrWIN TX_NP,  FCol4  ,1.0,"N",@AmoPerT2          'valor
PrWin FON,"ITAL-"                                'desactivar italico
PrWin FON,"BOLD-"                                'desactivar bold

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


'----------------------------------------------- LINHA SEPARACAO -----
Sub AmoPerRG_LinSep 'linha de separacao
'tmp=CntLin("INC",3)                              'contar linhas
end sub


'----------------------------------------------- FIM -----------------
SUB AmoPerRG_Fim 'fim de pagina
FCol1= 110
FCol2= 143
FCol3= 158

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

PrWin FON, "BOLD+"                              'activar bold
PrWIN TX_N,   FCol1  ,0.5,"TOTAIS :"            'titulo
PrWIN TX_NP,  FCol2  ,0.5,"N",@BemN0            'total valor
PrWIN TX_NP,  FCol3  ,0.5,"N",@AmoPerT0         'total valor
PrWin FON, "BOLD-"


Call SigLstRod
PrWin FP
end sub
##



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

