'Nome       : ImoAqi.std
'Tipo       : LST
'Data       : 2006/10/19
'Versao     : 2.0
'Descricao  : Listagem de aquisicoes (controlada por SQL)

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

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

'- Versao : 1.0d  2003/03/15 --------------------------------------------------
'Aquisicoes por centro de custo
'Limites por centro de custo

'- Versao : 1.0c  2003/03/07 --------------------------------------------------
'Usar 2 decimais

'- Versao : 1.0b  2003/01/23 --------------------------------------------------
'Correccao de valor a listar (listava sempre o valor com IVA)

'- Versao : 1.0a  2001/03/27 --------------------------------------------------
'Correccao de valor a listar (listava valor amortizado)

'- Versao : 1.0   2001/03/09 --------------------------------------------------
'Versao base


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


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


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

Ordenacao especial [Cmd]=OrdAux=+
   +SELECT * FROM ImoMst +
   +WHERE Cod$>='{Opc_Cod.Ini}' AND Cod$ <='{Opc_Cod.Fim}' +
   +AND CtPoc$>='{Opc_CtPoc.Ini}' AND CtPoc$ <='{Opc_CtPoc.Fim}' +
   +AND Ccu >= {Opc_Ccu.Ini} AND Ccu <= {Opc_Ccu.Fim} +
   +ORDER By Cod$ 

Dados a listar     [Cmd]=LstDat=+
   +SELECT * FROM ImoMst INNER JOIN OrdAux ON ImoMst.Cod$=OrdAux.Lig$ +
   +WHERE Cod$>='{Opc_Cod.Ini}' AND Cod$ <='{Opc_Cod.Fim}' +
   +AND CtPoc$>='{Opc_CtPoc.Ini}' AND CtPoc$ <='{Opc_CtPoc.Fim}' +
   +AND Ccu >= {Opc_Ccu.Ini} AND Ccu <= {Opc_Ccu.Fim} +
   +ORDER By OrdAux.Chv$,Cod$ 

Listagem por conta [Cmd]=AqiPoc=+
   +SELECT * FROM ImoMst +
   +WHERE Cod$>='{Opc_Cod.Ini}' AND Cod$ <='{Opc_Cod.Fim}' +
   +AND CtPoc$>='{Opc_CtPoc.Ini}' AND CtPoc$ <='{Opc_CtPoc.Fim}' +
   +AND Ccu >= {Opc_Ccu.Ini} AND Ccu <= {Opc_Ccu.Fim} +
   +ORDER By CtPoc$,Cod$

Listagem por centro de custo [Cmd]=AqiCcu=+
   +SELECT * FROM ImoMst +
   +WHERE Cod$>='{Opc_Cod.Ini}' AND Cod$ <='{Opc_Cod.Fim}' +
   +AND CtPoc$>='{Opc_CtPoc.Ini}' AND CtPoc$ <='{Opc_CtPoc.Fim}' +
   +AND Ccu >= {Opc_Ccu.Ini} AND Ccu <= {Opc_Ccu.Fim} +
   +ORDER By Ccu,Cod$

##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=ImoAno,Imobilizado por ano
Vias                       [DocVia]=Original

'formato
Impressora                 [DocPrt]=
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]=Doc1_Cab
Listar linhas               [FxLIN]=Doc1_Lin
Listar fim                  [FxFIM]=Doc1_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=LstDat
'Subtotalizadores           [SQLSbt]=OrdAux.Chv$:2,OrdAux.Chv$:6
'Subtotalizadores           [SQLSbt]=Chv$:4,Chv$:8
'Subtotalizadores           [SQLSbt]=Chv$:4,Cod$:2
Subtotalizadores           [SQLSbt]=Chv$

'diversos

'parametros especificos
Ordenacao especial         [DocEsp]=OrdEsp=OrdAux=+
                                   +SqlCmp$("Cod$"),+
                                   +ImoAqiDt$("A4",SqlCmp$("AqiFor$"))

Limite especial            [DocEsp]=LimEsp=AqiAno
##


'==============================================================================
#DOC - Configuracao do documento - Imobilizado por Ano (GRF)
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=ImoAno_G,Imobilizado por ano (Gráfico)
Vias                       [DocVia]=Original

'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]=Doc1G_Cab
Listar linhas               [FxLIN]=Doc1G_Lin,0; Tit,0; Sbt,0
Listar fim                  [FxFIM]=Doc1G_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=LstDat
Subtotalizadores           [SQLSbt]=Chv$

'parametros especificos
Ordenacao especial         [DocEsp]=OrdEsp=OrdAux=+
                                   +SqlCmp$("Cod$"),+
                                   +ImoAqiDt$("A4",SqlCmp$("AqiFor$"))

Limite especial            [DocEsp]=LimEsp=AqiAno
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=ImoPoc,Imobilizado por conta
Vias                       [DocVia]=Original

'formato
Impressora                 [DocPrt]=
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]=CtPoc_Cab
Listar linhas               [FxLIN]=CtPoc_Lin
Listar fim                  [FxFIM]=CtPoc_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=AqiPoc
Subtotalizadores           [SQLSbt]=CtPoc$:2,CtPoc$:3

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


'==============================================================================
#DOC - Configuracao do documento - Imobilizado por Conta (GRF)
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=ImoPoc_G,Imobilizado por Conta (Gráfico)
Vias                       [DocVia]=Original

'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]=CtPocG_Cab
Listar linhas               [FxLIN]=CtPocG_Lin,0; Tit,0; Sbt,0
Listar fim                  [FxFIM]=CtPocG_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=AqiPoc
Subtotalizadores           [SQLSbt]=CtPoc$:2,CtPoc$:3

'parametros especificos
Limite especial            [DocEsp]=LimEsp=AqiCt
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=ImoCcu,Imobilizado por centro de custo
Vias                       [DocVia]=Original

'formato
Impressora                 [DocPrt]=
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]=Ccu_Cab
Listar linhas               [FxLIN]=Ccu_Lin
Listar fim                  [FxFIM]=Ccu_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=AqiCcu
Subtotalizadores           [SQLSbt]=Ccu,ano

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


'==============================================================================
#DOC - Configuracao do documento - Imobilizado por Conta (GRF)
'==============================================================================
Tipo                       [DocTip]=SQL
Nome                       [DocNom]=ImoCcu_G,Imobilizado por C.Custo (Gráfico)
Vias                       [DocVia]=Original

'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]=CcuG_Cab
Listar linhas               [FxLIN]=CcuG_Lin,0; Tit,0; Sbt,0
Listar fim                  [FxFIM]=CcuG_Fim

'controlo de listagem SQL
Gerador de dados a listar  [SQLDat]=AqiCcu
Subtotalizadores           [SQLSbt]=Ccu,ano

'parametros especificos
Limite especial            [DocEsp]=LimEsp=AqiCcu
##



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

Cod      = SqlCmp$("Cod$")
Nome     = SqlCmp$("Nome$")
Ano      = ImoAqiDt$("A4",SqlCmp$("AqiFor$"))

'valores
vDoc1    = FrmNum$(14.2,ImoAqiVl("AMO",SqlCmp$("Cod$")))

'totais/subtotais
nrDoc1   = FrmNum$( 3.0,TotCnt("vDoc1",0))
toDoc1   = FrmNum$(14.2,Total(vDoc1))
s1Doc1   = FrmNum$(14.2,Total(vDoc1,1))
s2Doc2   = FrmNum$(14.2,Total(vDoc1,2))
##


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


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
'---------------------------------------------------------->'Comentario (61)
'----------------------------------------------->'Comentario (50)
'------------------------------------->'Comentario (40)
SUB FxIni 'inicializacao base
cnt=0                                  'limpar contador
Call SigLstIni
end sub


SUB Lst_AJT
end sub


'================================================================================
' [TXT] - Aquisicao por Ano -----------------------------------------------------
'================================================================================
'- Documento 1 ----------------------------------------------------------------
SUB Doc1_CabIni 'inicializar documento
cnt=cnt+1                              'contar
end sub


SUB Doc1_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 Doc1_Lin 'linha
?@Cod          @Nome                                            @vDoc1          #
end sub


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


SUB Doc1_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 Doc1_LinSbt1 'subtotal 1
print tab(5) "Subtotal: " SbtInf$("ANT",1);      'identificar subtotal
print tab(53) FrmNum$( 3.0,TotCnt("vDoc1",1));
print tab(64) FrmNum$(14.2,Total("vDoc1",1))

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


SUB Doc1_LinSbt2 'subtotal 2
print tab(5) "Subtotal: " SbtInf$("ANT",2);
print tab(53) FrmNum$( 3.0,TotCnt("vDoc1",2));
print tab(64) FrmNum$(14.2,TotCon("vDoc1",2))
?
?
tmp=CntLin("INC",3)                              'contar linhas
x=TotLpz(2)                                      'limpar totais
end sub


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


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


'================================================================================
'[TXT] - Aquisicao por conta ----------------------------------------------------
'================================================================================
SUB CtPoc_CabIni 'inicializar documento
cnt=cnt+1                              'contar
end sub


SUB CtPoc_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                                     Ano            Valor  #
?================================================================================
end sub


SUB CtPoc_Lin 'linha
?@Cod          @Nome                                      @Ano  @vDoc1          #
end sub


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


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


SUB CtPoc_LinSbt1 'subtotal 1
print tab(5) "Subtotal: " SbtInf$("ANT",1);      'identificar subtotal
print tab(53) FrmNum$( 3.0,TotCnt("vDoc1",1));
print tab(64) FrmNum$(14.2,Total("vDoc1",1))
?
?
tmp=CntLin("INC",3)                              'contar linhas
x=TotLpz(1)                                      'limpar totais
end sub


SUB CtPoc_LinSbt2 'subtotal 2
print tab(5) "Subtotal: " SbtInf$("ANT",2);
print tab(53) FrmNum$( 3.0,TotCnt("vDoc1",2));
print tab(64) FrmNum$(14.2,TotCon("vDoc1",2))
?
tmp=CntLin("INC",2)                              'contar linhas
x=TotLpz(2)                                      'limpar totais
end sub


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


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


'================================================================================
'[TXT] - Aquisicao por Centro de Custo ------------------------------------------
'================================================================================
SUB Ccu_CabIni 'inicializar documento
cnt=cnt+1                              'contar
end sub


SUB Ccu_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                                     Ano            Valor  #
?================================================================================
end sub


SUB Ccu_Lin 'linha
?@Cod          @Nome                                      @Ano  @vDoc1          #
end sub


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



SUB Ccu_LinSbt1 'subtotal 1
print tab(5) "Subtotal: " SbtInf$("ANT",1);      'identificar subtotal
print tab(53) FrmNum$( 3.0,TotCnt("vDoc1",1));
print tab(64) FrmNum$(14.2,Total("vDoc1",1))
?
tmp=CntLin("INC",2)                              'contar linhas
x=TotLpz(1)                                      'limpar totais
end sub


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


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


'================================================================================
'LISTAGENS EM MODO GRAFICO
'================================================================================
'================================================================================
Sub PosLinGr 'posicionar linha em modo grafico
PrWIN AJT_B,  Margem, 32 + Doc_CntLin * 4       'posicao base
end sub


Sub PosFimGr 'posicionar fim de pagina em modo grafico
PrWIN AJT_B,  Margem, 36 + Doc_CntLin * 4       'posicao base
end sub


'================================================================================
'[GRF] - Aquisicao por ano ------------------------------------------------------
'================================================================================
Sub Doc1G_CabIni 'inicializar documento
end sub


'---------------------------------------------------- CABECALHO -------
Sub Doc1G_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  , 8,   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 Doc1G_Lin 'linha de valores
LCol1=   1
LCol2=  30
LCol3= 158

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

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",@vDoc1
End sub


'---------------------------------------------------- LINHA TITULO 1 --
SUB Doc1G_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 = 14                                       '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,"ANO : "               '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 Doc1G_LinTit2 'titulo 2

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

SCol1 =  5
SCol2 = 14 

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


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

FCol1= 110                                       'coluna
FCol2= 143                                       'coluna
FCol3= 158                                       'coluna


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_NP,  FCol2  ,1.0,"N",TotCnt("vDoc1",1)  'numero de linhas
PrWIN TX_NP,  FCol3  ,1.0,"N",@s1Doc1            '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 Doc1G_LinSbt2 'sub-total 2
tmp=CntLin("INC",1)                              'contar linhas
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base

FCol1= 110                                       'coluna
FCol2= 143                                       'coluna
FCol3= 158                                       'coluna

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_NP,  FCol2  ,1.0,"N",TotCnt("vDoc1",2)  'numero de linhas
PrWIN TX_NP,  FCol3  ,1.0,"N",@s1Doc2            '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 Doc1G_LinSep 'linha de separacao
tmp=CntLin("INC",3)                              'contar linhas
end sub


'----------------------------------------------- FIM -----------------
SUB Doc1G_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",@nrDoc1           'total campos
PrWIN TX_NP,  FCol3  ,0.5,"N",@toDoc1           'total valor
PrWin FON, "BOLD-"

Call SigLstRod
PrWin FP
end sub


'================================================================================
'[GRF] - Aquisicao por Conta ----------------------------------------------------
'================================================================================
Sub CtPocG_CabIni 'inicializar documento
end sub


'---------------------------------------------------- CABECALHO -------
Sub CtPocG_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

T1Col1=   5                                        'coluna 1
T1Col2=  40                                        'coluna 2
T1Col3= 143                                        'coluna 3
T1Col4= 170                                        'coluna 4

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

PrWIN FON, "BOLD+"                                 'activar bold
PrWIN TX_N,  T1Col1,1.5,"Código"                   'titulo
PrWIN TX_N,  T1Col2,1.5,"Nome"                     'titulo
PrWIN TX_N,  T1Col3,1.5,"Ano"                      'titulo
PrWIN TX_N,  T1Col4,1.5,"Valor"                    'titulo
PrWIN FON, "BOLD-"                                 'desactivar bold
PrWin COR_T, CorLin                                'activar cor linhas
end sub


'---------------------------------------------------- LINHA -----------
Sub CtPocG_Lin 'linha de valores
LCol1=   1
LCol2=  30
LCol3= 143
LCol4= 158

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

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",@Ano
PrWIN TX_NP,  LCol4  ,0,"N",@vDoc1
End sub


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

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

TCol1 =  5                                       'coluna 1
TCol2 = 16                                       'coluna 2

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


'---------------------------------------------------- LINHA TITULO 2 --
SUB CtPocG_LinTit2 'titulo 1
InicioLinhas=26

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

TCol1 =  5                                       'coluna 1
TCol2 = 16                                       'coluna 2

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


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

SCol1= 100                                       'coluna
SCol2= 120                                       'coluna
SCol3= 144                                       'coluna
SCol4= 171                                       'coluna

PrWin FON,"BOLD+"                                'activar bold
PrWin FON,"ITAL+"                                'activar italico 
PrWIN GR_LI, 0, 1.0, Cmax, 1.0               	 'linha
PrWIN TX_N,   SCol1  ,1.0,"Sub-Total :"          'titulo
PrWIN TX_NP,  SCol2  ,1.0,SbtInf$("ANT",1)       'titulo
PrWIN TX_NP,  SCol3  ,1.0,"N",TotCnt("vDoc1",1)  'numero de linhas
PrWIN TX_NP,  SCol4  ,1.0,"N",Total("vDoc1",1)   '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 CtPocG_LinSbt2 'sub-total 2
tmp=CntLin("INC",1)                              'contar linhas
PrWIN AJT_B,  Margem, InicioLinhas+Doc_CntLin*4  'posicao base

SCol1= 100                                       'coluna
SCol2= 120                                       'coluna
SCol3= 144                                       'coluna
SCol4= 171                                       'coluna

PrWin FON,"BOLD+"                                'activar bold
PrWin FON,"ITAL+"                                'activar italico 
PrWIN GR_LI, 0, 1.0, Cmax, 1.0               	 'linha
PrWIN TX_N,   SCol1  ,1.0,"Sub-Total :"          'titulo
PrWIN TX_NP,  SCol2  ,1.0,SbtInf$("ANT",2)       'titulo
PrWIN TX_NP,  SCol3  ,1.0,"N",TotCnt("vDoc1",2)  'numero de linhas
PrWIN TX_NP,  SCol4  ,1.0,"N",Total("vDoc1",2)   '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 CtPocG_LinSep 'linha de separacao
tmp=CntLin("INC",3)                              'contar linhas
end sub


'----------------------------------------------- FIM -----------------
SUB CtPocG_Fim 'fim de pagina
FCol1= 110
FCol2= 144
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",@nrDoc1           'total campos
PrWIN TX_NP,  FCol3  ,0.5,"N",@toDoc1           'total valor
PrWin FON, "BOLD-"

Call SigLstRod
PrWin FP
end sub


'================================================================================
'[GRF] - Aquisicao por Centro de Custo ------------------------------------------
'================================================================================
Sub CcuG_CabIni 'inicializar documento
end sub

'---------------------------------------------------- CABECALHO -------
Sub CcuG_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

T1Col1=   5                                        'coluna 1
T1Col2=  40                                        'coluna 2
T1Col3= 143                                        'coluna 3
T1Col4= 170                                        'coluna 4

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

PrWIN FON, "BOLD+"                                 'activar bold
PrWIN TX_N,  T1Col1,1.5,"Código"                   'titulo
PrWIN TX_N,  T1Col2,1.5,"Nome"                     'titulo
PrWIN TX_N,  T1Col3,1.5,"Ano"                      'titulo
PrWIN TX_N,  T1Col4,1.5,"Valor"                    'titulo
PrWIN FON, "BOLD-"                                 'desactivar bold
PrWin COR_T, CorLin                                'activar cor linhas
end sub


'---------------------------------------------------- LINHA -----------
Sub CcuG_Lin 'linha de valores
LCol1=   1
LCol2=  30
LCol3= 143
LCol4= 158

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

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",@Ano
PrWIN TX_NP,  LCol4  ,0,"N",@vDoc1
End sub


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

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

TCol1 =  5                                       'coluna 1
TCol2 = 40                                       'coluna 2

PrWIN FON  , 9,   1                              'activar fonte
PrWin FON,"BOLD+"                                'activar bold
PrWIN COR_T,  CorTitLst                          'cor de titulo
PrWIN TX_N,   TCol1  ,8.0,"CENTRO DE CUSTO : "   'escrever titulo
PrWIN TX_NP,  TCol2  ,8.0,"N",SbtInf$("ACT",1)   'escrever ano
PrWin FON,"BOLD-"                                'desactivar bold
PrWIN FON  , 8,   1                              'activar fonte
end sub


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

SCol1= 100                                       'coluna
SCol2= 120                                       'coluna
SCol3= 144                                       'coluna
SCol4= 171                                       'coluna

PrWin FON,"BOLD+"                                'activar bold
PrWin FON,"ITAL+"                                'activar italico 
PrWIN GR_LI, 0, 1.0, Cmax, 1.0               	 'linha
PrWIN TX_N,   SCol1  ,1.0,"Sub-Total :"          'titulo
PrWIN TX_NP,  SCol2  ,1.0,SbtInf$("ANT",1)       'titulo
PrWIN TX_NP,  SCol3  ,1.0,"N",TotCnt("vDoc1",1)  'numero de linhas
PrWIN TX_NP,  SCol4  ,1.0,"N",Total("vDoc1",1)   '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 SEPARACAO -----
Sub CcuG_LinSep 'linha de separacao
tmp=CntLin("INC",3)                              'contar linhas
end sub


'----------------------------------------------- FIM -----------------
SUB CcuG_Fim 'fim de pagina
FCol1= 110
FCol2= 144
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",@nrDoc1           'total campos
PrWIN TX_NP,  FCol3  ,0.5,"N",@toDoc1           'total valor
PrWin FON, "BOLD-"

Call SigLstRod
PrWin FP
end sub
##


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