'Nome       : Aba_Ali.std
'Tipo       : LST
'Data       : 2006/10/23
'Versao     : 2.0
'Descricao  : Mapas de abatidos e alienados


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

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

'- Versao : 1.1   2003/??/?? --------------------------------------------------
'Listagem de bens alienados
'Listagem de bens abatidos

'- Versao : 1.0a  2001/02/17 --------------------------------------------------
'Ajustar impressao

'- Versao : 1.0   2000/10/24 --------------------------------------------------
'Versao base


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


'==============================================================================
#ESP - Campos especificos
'==============================================================================
'Zoom para preview             [PrvZoom]=1.5
Zoom para preview             [PrvZoom]=1.0
Opcoes para impressora WIN   [PrWinOpc]=[ORI=L]
##


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

Listagem de alienados       [Cmd]=AliLst=+
   +SELECT * FROM ImoMst +
   +WHERE Cod$>='{Opc_Cod.Ini}' AND Cod$ <='{Opc_Cod.Fim}' +
   +AND AliDt > 0 AND AliDt >= {Opc_Dt.Ini} AND AliDt <= {Opc_Dt.Fim} +
   +ORDER BY AbaDt, Cod$ 

Listagem de abatidos        [Cmd]=AbaLst=+
   +SELECT * FROM ImoMst +
   +WHERE Cod$>='{Opc_Cod.Ini}' AND Cod$ <='{Opc_Cod.Fim}' +
   +AND AbaDt > 0 AND AbaDt >= {Opc_Dt.Ini} AND AbaDt <= {Opc_Dt.Fim} +
   +ORDER BY AbaDt, Cod$ 
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=Aba_Ali
Nome                       [DocNom]=ABA,Abatidos

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=Cab_Aba
Listar linhas               [FxLIN]=Mapa_Lin
Listar fim                  [FxFIM]=Mapa_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=Aba_Ali
Nome                       [DocNom]=ALI,Alienados

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=Cab_Ali
Listar linhas               [FxLIN]=Mapa_Lin
Listar fim                  [FxFIM]=Mapa_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=AliLst,Listagem de Alienados

'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]=AliLst_Cab
Listar linhas               [FxLIN]=AliLst_Lin
Listar fim                  [FxFIM]=AliLst_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=AliLst
Subtotalizadores           [SQLSbt]=
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=AliLst_G,Listagem de Alienados (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]=AliLstG_Cab
Listar linhas               [FxLIN]=AliLstG_Lin
Listar fim                  [FxFIM]=AliLstG_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=AliLst
Subtotalizadores           [SQLSbt]=
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=AbaLst,Listagem de Abatidos

'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]=AbaLst_Cab
Listar linhas               [FxLIN]=AbaLst_Lin
Listar fim                  [FxFIM]=AbaLst_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=AbaLst
Subtotalizadores           [SQLSbt]=
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=AbaLst_G,Listagem de Abatidos (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]=AbaLstG_Cab
Listar linhas               [FxLIN]=AbaLstG_Lin
Listar fim                  [FxFIM]=AbaLstG_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=AbaLst
Subtotalizadores           [SQLSbt]=
##


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

BemN0    = FrmNum$(-4.0,TotCnt("Cod",0))

Cod      = SqlCmp$("Cod$")
Nome     = SqlCmp$("Nome$")

'abatidos
vAliDt   = FrmDt$("",SqlCmp("AliDt"))
vAliVl   = FrmNum$(14.2,SqlCmp("AliVl"))
tAliVl   = FrmNum$(14.2,total(vAliVl))

'alienados
vAbaDt   = FrmDt$("",SqlCmp("AbaDt"))
vAbaVl   = FrmNum$(14.2,SqlCmp("AbaVl"))
tAbaVl   = FrmNum$(14.2,total(vAbaVl))
##


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


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
'---------------------------------------------------------->'Comentario (61)
'------------------------------------------------->'Comentario (52)
'------------------------------------->'Comentario (40)
'------------------------------------------------------------------------------
'Listagem em modo grafico
'------------------------------------------------------------------------------
SUB Cab_Aba 'cabecalho para abatidos
ideMapa$="MAPA DE ABATIDOS"            'identificacao do mapa
call Mapa_Cab                          'cabecalho
end sub


SUB Cab_Ali 'cabecalho para alienados
ideMapa$="MAPA DE ALIENADOS"           'identificacao do mapa
call Mapa_Cab                          'cabecalho
end sub


SUB Mapa_Cab 'cabecalho
call Mapa_CabCom                                            'cabecalho comum
call Mapa_TipMap                                            'tipo de mapa

'titulo
PrWIN FON, 16, 1                                            'activar fonte
PrWin FON, "BOLD+"                                          'activar bold
'PrWin FON, "BOLD-"                                         'desactivar bold
PrWIN TX_CTR,  79, 8,175, 8,ideMapa$                        'titulo
PrWIN TX_CTR,  79, 14,175,14,""                             'titulo
PrWin FON, "BOLD-"                                          'desactivar bold
PrWIN FON, 10, 1                                            'activar fonte
PrWIN TX_CTR,  79, 21,175,21,""                             'titulo
PrWIN TX_CTR,  79, 26,175,26,""                             'titulo
PrWIN FON, 10, 1                                            'activar fonte
PrWIN TX_N,  82, 30,"(a)"                                   'titulo
PrWIN GR_LI, 87, 35, 172, 35, 2                             'linha

call Mapa_DefLin                                            'definicao de linhas

'separadores de colunas
sep01=xMin
sep02=23
sep03=96
sep04=105
sep05=114
sep06=123
sep07=144
sep08=153
sep09=174
sep10=185
sep11=205
sep12=225
sep13=236
sep14=245
sep15=266
sep16=xMax
call Mapa_LinPco                                              'posicao de listagem das colunas nas linhas

PrWIN FON,  8, 1                                              'activar fonte
yAux1=plc04-4
yAux2=plc03-4

PrWIN TX_CTR,sep01, plc04, sep02, plc05,"(1)"                 'identificador
PrWIN TX_AHV,"5",sep01, plc01, sep02, plc04,"Enquadr.|Legal"  'identificador

PrWIN TX_CTR,sep02, plc04, sep03, plc05,"(2)"                 'identificador
PrWIN TX_CTR,sep02, yAux1, sep03, yAux1,"(b)"                 'identificador
PrWIN GR_LI, sep02, plc01, sep02, plc06, 2                    'separador vertical
tCo$="Descrição dos elementos do activo imobilizado"          'titulo
PrWIN TX_MC, sep02, plc01, sep03, plc04,tCo$                  'identificador


PrWIN TX_CTR,sep03, plc01, sep06, plc02,"Data"                'identificador
PrWIN GR_CX, sep03, plc02, sep06, plc03, 2                    'caixa data
PrWIN FON,  6, 1                                              'activar fonte
PrWIN TX_CTR,sep03, plc02, sep04, plc03,"Aquisição"           'identificador
PrWIN FON,  8, 1                                              'activar fonte


PrWIN TX_CTR,sep03, plc04, sep04, plc05,"(3)"                 'identificador
PrWIN GR_LI, sep03, plc01, sep03, plc06, 2                    'linha vertical
PrWIN TX_CTR,sep03, plc03, sep04, plc04,"Ano"                 'identificador


tGr$="Inicio|de utilização"                                   'titulo de grupo
PrWIN FON,  6, 1                                              'activar fonte
PrWIN TX_MC ,sep04, plc02, sep06, plc03,tGr$                  'identificador
PrWIN FON,  8, 1                                              'activar fonte

PrWIN TX_CTR,sep04, plc04, sep05, plc05,"(4)"                 'identificador
PrWIN TX_CTR,sep04, yAux1, sep05, yAux1,"(c)"                 'identificador
PrWIN GR_LI, sep04, plc02, sep04, plc06, 2                    'linha vertical
PrWIN TX_CTR,sep04, plc03, sep05, plc04,"Mês"                 'identificador

PrWIN TX_CTR,sep05, plc04, sep06, plc05,"(5)"                 'identificador
PrWIN GR_LI, sep05, plc03, sep05, plc06, 2                    'linha vertical
PrWIN TX_CTR,sep05, plc03, sep06, plc04,"Ano"                 'identificador

PrWIN TX_CTR,sep06, plc04, sep07, plc05,"(6)"                 'identificador
PrWIN TX_CTR,sep06, yAux1, sep07, yAux1,"(d)"                 'identificador
PrWIN GR_LI, sep06, plc01, sep06, plc07, 2                    'linha vertical
PrWIN FON,  7, 1                                              'activar fonte
tCo$="Activo|imobilizado|(valores de|aquisição ou|outro valor|contabilístico|na falta|daqueles)"           'identificador
PrWIN TX_MC,sep06, plc01, sep07, plc04,tCo$                   'identificador
PrWIN FON,  8, 1                                              'activar fonte

PrWIN TX_CTR,sep07, plc04, sep08, plc05,"(7)"                 'identificador
PrWIN TX_CTR,sep07, yAux1, sep08, yAux1,"(e)"                 'identificador
PrWIN GR_LI, sep07, plc01, sep07, plc07, 2                    'linha vertical
tCo$="Num.|de|anos|de|util.|esper."                           'titulo
PrWIN TX_MC,sep07, plc01, sep08, plc04,tCo$                   'identificador


tGr$="Reintegrações e Amortizações"                           'titulo de grupo
PrWIN TX_CTR,sep08, plc01, sep12, plc02,tGr$                  'identificador
PrWIN GR_LI, sep08, plc02, sep12, plc02, 2                    'linha horizontal

PrWIN TX_CTR,sep08, plc04, sep09, plc05,"(8)"                 'identificador
PrWIN GR_LI, sep08, plc01, sep08, plc07, 2                    'linha vertical
tCo$="De exercicios|anteriores"                               'titulo
PrWIN TX_MC ,sep08, plc02, sep09, plc04,tCo$                  'identificador


PrWIN TX_CTR,sep09, plc02, sep11, plc03,"Do exercício"        'identificador
PrWIN GR_LI, sep09, plc03, sep11, plc03, 2                    'linha horizontal


PrWIN TX_CTR,sep09, plc04, sep10, plc05,"(9)"                 'identificador
PrWIN GR_LI, sep09, plc02, sep09, plc07, 2                    'linha vertical
PrWIN TX_CTR,sep09, plc03, sep10, plc04,"Taxas"               'identificador

PrWIN TX_CTR,sep10, plc04, sep11, plc05,"(10)"                'identificador
PrWIN GR_LI, sep10, plc03, sep10, plc07, 2                    'linha vertical
PrWIN TX_CTR,sep10, plc03, sep11, plc04,"Valores"             'identificador

PrWIN TX_CTR,sep11, plc04, sep12, plc05,"(11)=(8)+(10)"       'identificador
PrWIN GR_LI, sep11, plc02, sep11, plc07, 2                    'linha vertical
PrWIN TX_CTR,sep11, plc02, sep12, plc04,"Acumuladas"          'identificador

PrWIN TX_CTR,sep12, plc04, sep13, plc05,"(12)"                'identificador
PrWIN TX_CTR,sep12, yAux1, sep13, yAux1,"(f)"                 'identificador
PrWIN GR_LI, sep12, plc01, sep12, plc07, 2                    'linha vertical
tCo$="Taxas|perd.|acumu."                                     'titulo
PrWIN TX_MC ,sep12, plc02, sep13, plc04,tCo$                  'identificador


tGr$="Mais-valias|não tributadas"                             'titulo de grupo
PrWIN TX_MC, sep13, plc01, sep15, plc03,tGr$                  'identificador
PrWIN TX_CTR,sep13, yAux2, sep15, yAux2,"(g)"                 'identificador
PrWIN GR_LI, sep13, plc03, sep15, plc03, 2                    'linha horizontal

PrWIN TX_CTR,sep13, plc04, sep14, plc05,"(13)"                'identificador
PrWIN GR_LI, sep13, plc01, sep13, plc06, 2                    'linha vertical
PrWIN TX_CTR,sep13, plc03, sep14, plc04,"Ano"                 'identificador

PrWIN TX_CTR,sep14, plc04, sep15, plc05,"(14)"                'identificador
PrWIN GR_LI, sep14, plc03, sep14, plc07, 2                    'linha vertical
PrWIN TX_CTR,sep14, plc03, sep15, plc04,"Montante"            'identificador

PrWIN TX_CTR,sep15, plc04, sep16, plc05,"(15)"                'identificador
PrWIN TX_CTR,sep15, yAux1, sep16, yAux1,"(h)"                 'identificador
PrWIN GR_LI, sep15, plc01, sep15, plc07, 2                    'linha vertical
tCo$="Reintegrações|e|amortizações|não aceites"               'titulo
PrWIN TX_MC, sep15, plc01, sep16, plc04,tCo$                  'identificador

PrWIN FON, 10, 1                                              'activar fonte
yAux=185                                                      'posicao Y
PrWin FON, "BOLD+"                                            'activar bold
PrWIN TX_N,50, yAux, "Total geral ou a transportar ........"  'identificador
PrWin FON, "BOLD-"                                            'desactivar bold
PrWIN FON, 10, 1                                              'activar fonte

'sub-grupo
PrWIN FON,  8, 1                                              'activar fonte
yAux=193                                                      'posicao Y
tx$="(a) "+MemTxt$(18)                                        'texto a listar
PrWIN TX_N,10, yAux, tx$                                      'listar

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


SUB Mapa_Lin 'linha 
PrWIN FON, 8, 1                               'activar fonte
PrWIN AJT_B,  0, 68.1+Doc_CntLin*4.5          'posicao base

PrWIN TX_N,  lpc01+2,  0,MemTxt$(30)          'enquadramento legal
PrWIN TX_N,  lpc02,    0,MemTxt$(22)          'nome

PrWIN TX_N,  lpc03+1,  0,@AqiAno              'ano de aquisicao
PrWIN TX_N,  lpc04+2,  0,@UsoMes              'mes inicio uso
PrWIN TX_N,  lpc05+1,  0,@UsoAno              'ano inicio uso

PrWIN TX_NP, lpc06+2,  0,"N",@vAqi            'valor de aquisicao
PrWIN TX_NP, lpc07+2,  0,"N",@aUso            'anos de uso
PrWIN TX_NP, lpc08+2,  0,"N",@antAmoVl        'amortizacoes anteriores
PrWIN TX_NP, lpc09,    0,"N",@anoAmoTx        'taxa de amortizacao
PrWIN TX_NP, lpc10,    0,"N",@anoAmoVl        'valor de amortizacao
PrWIN TX_NP, lpc11,    0,"N",@acmAmoVl        'valor de amortizacao acumulada
PrWIN TX_NP, lpc12,    0,"N",@acmTxpTx        'taxas perdidas acumuladas

PrWIN TX_NP, lpc13+1,  0,"N",@mvaAno          'mais valias - ano
PrWIN TX_NP, lpc14+2,  0,"N",@mvaVl           'mais valias - valor

PrWIN TX_NP, lpc15+0,  0,"N",@reiNac          'rei/amo nao aceites

PrWIN FON, 10, 1                              'activar fonte
end sub


SUB Mapa_Fim 'fim de pagina
PrWIN FON, 8, 1                               'activar fonte
PrWIN AJT_B,  0, 185                          'posicao base

PrWIN TX_NP, lpc06+2,  0,"N",@tAqi            'valor de aquisicao
PrWIN TX_NP, lpc08+2,  0,"N",@tAntAmoVl       'amortizacoes anteriores
PrWIN TX_NP, lpc10,    0,"N",@tAnoAmoVl       'valor de amortizacao
PrWIN TX_NP, lpc11,    0,"N",@tAcmAmoVl       'valor de amortizacao acumulada
PrWIN TX_NP, lpc14+2,  0,"N",@tMvaVl          'mais valias - valor
PrWIN TX_NP, lpc15+0,  0,"N",@tReiNac         'rei/amo nao aceites

PrWIN FON, 10, 1                              'activar fonte
PrWIN FP                                      'fim de pagina
end sub


'==============================================================================
'[TXT] - AbaLst - Listagem de abatidos ----------------------------------------
'==============================================================================
Sub AbaLst_CabIni 'inicializar documento
cnt=0                                              'limpar contador
end sub


Sub AbaLst_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#
?================================================================================
?   Data      Código         Nome                                        Valor  #
'2003/01/02  12345678  123456789.123456789.123456789.12345      123456789.1234.12
?================================================================================
end sub


Sub AbaLst_Lin 'linha
'2003/01/02  12345678  123456789.123456789.123456789.12345      123456789.1234.12
?@vAbaDt     @Cod      @Nome                                    @vAbaVl         #
end sub


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


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


'==============================================================================
'[GRF] - AbaLst - Listagem de abatidos ----------------------------------------
'==============================================================================
'- Funcoes de inicializacao ---------------------------------------------------
SUB FxIni 'inicializacao base
call SigLstIni
end sub


SUB Lst_AJT 'ajuste
'nada a executar
end sub


'---------------------------------------------------- CABECALHO -------
Sub AbaLstG_CabIni 'cabecalho
cnt=0                                              'limpar contador
end sub


Sub AbaLstG_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=  30                                         'coluna 2
TCol3=  80                                         'coluna 2
TCol4= 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,"Data"                      'titulo
PrWIN TX_N,  TCol2,1.5,"Código"                    'titulo
PrWIN TX_N,  TCol3,1.5,"Nome"                      'titulo
PrWIN TX_N,  TCol4,1.5,"Valor"                     'titulo
PrWIN FON, "BOLD-"                                 'desactivar bold
PrWin COR_T, CorLin                                'activar cor linhas
end sub


'---------------------------------------------------- LINHA -----------
Sub AbaLstG_Lin 'linha de valores
LCol1=   1
LCol2=  30
LCol3=  60
LCol4= 158

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


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


'----------------------------------------------- FIM -----------------
SUB AbaLstG_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",@tAbaVl           'total valor
PrWin FON, "BOLD-"

Call SigLstRod
PrWin FP
end sub


'------------------------------------------------------------------------------
'[TXT] - AliLst - Listagem de alienados ---------------------------------------
'------------------------------------------------------------------------------
Sub AliLst_CabIni 'inicializar documento
cnt=0                                              'limpar contador
end sub


Sub AliLst_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#
?================================================================================
?   Data      Código         Nome                                        Valor  #
'2003/01/02  12345678  123456789.123456789.123456789.12345      123456789.1234.12
?================================================================================
end sub


Sub AliLst_Lin 'linha
'2003/01/02  12345678  123456789.123456789.123456789.12345      123456789.1234.12
?@vAliDt     @Cod      @Nome                                    @vAliVl         #
end sub


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


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


'==============================================================================
'[GRF] - AliLst - Listagem de alienados ---------------------------------------
'==============================================================================
Sub AliLstG_CabIni 'cabecalho
cnt=0
end sub


'---------------------------------------------------- CABECALHO -------
Sub AliLstG_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=  30                                         'coluna 2
TCol3=  80                                         'coluna 3
TCol4= 170                                         'coluna 4

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

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


'---------------------------------------------------- LINHA -----------
Sub AliLstG_Lin 'linha de valores
LCol1=   1
LCol2=  30
LCol3=  60
LCol4= 158

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


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


'----------------------------------------------- FIM -----------------
SUB AliLstG_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",@tAliVl           'total valor
PrWin FON, "BOLD-"

Call SigLstRod
PrWin FP
end sub
##


'==============================================================================
#INC - Inclusao de ficheiros
'==============================================================================
Funcoes comuns                  =[IMO_LST],Amo_Com.std
Funcoes  comuns                 =[SIG_Dir.Div],LsComPgm.std
##
