'Nome       : CTACCU.STD
'Tipo       : LST
'Data       : 2001/12/07
'Versao     : 2.0d
'Descricao  : Listagens de Centros de custo

'==============================================================================
'#VER - Historia de modificacoes
'==============================================================================
'- Versao : 1.0 1998/11/23 ---------------------------------------------------
'versao base

'- Versao : 2.0  2000/02/15 --------------------------------------------------
'usar decimais da moeda da empresa

'- Versao : 2.0a 2000/12/12 --------------------------------------------------
'Impressao no formato grafico
'alterados os radicais das funcoes de listagem

'- Versao : 2.0b 2001/01/23 --------------------------------------------------
'Alteracao nos ficheiros a usar nas inclusoes
'Ao listar o numero e nome das contas, listava caracteres de impressora

'- Versao : 2.0c 2001/10/25 --------------------------------------------------
'Permitar listar contas de centros custo e centros de custo de contas

'- Versao : 2.0d 2001/??/?? --------------------------------------------------
'Ao listar centros custo de conta apenas mostra radical cc


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


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

'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=ExtCc
Nome                       [DocNom]=ExtCc,Extracto de Centro de custo

'formato
Saida/Impressora           [DocSai]=1
Linhas por pagina          [DocLpg]=50
Colunas por linha          [DocCol]=132
Formato do papel           [DocPap]=72L
Ajustar pagina             [DocApg]=0

'funcoes de listagem
Listar cabecalho            [FxCAB]=TX_Cc_Cab
Listar linhas               [FxLIN]=TX_Cc_Lin
Listar fim                  [FxFIM]=TX_Cc_Fim
##


'==============================================================================
#DOC - Configuracao do documento
'==============================================================================
Tipo                       [DocTip]=ExtCc
Nome                       [DocNom]=ExtCc_G,Extracto de Centro de custo

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

'funcoes de listagem
Listar cabecalho            [FxCAB]=PW_Cc_Cab
Listar linhas               [FxLIN]=PW_Cc_Lin
Listar fim                  [FxFIM]=PW_Cc_Fim
##


'==============================================================================
#VAR - Definicao de Variaveis
'==============================================================================
'MemTxt$(3)  - Tipo de listagem CT/CC
'MemTxt$(10) - Centro de custo

Tit1         = PrtCmd$("[16CPILD]")+MemTxt$(1)+PrtCmd$("[16CPILN]")
Tit2         = PrtCmd$("[16CPILD]")+MemTxt$(2)+PrtCmd$("[16CPILN]")

Tit1G        = MemTxt$(1)
Tit2G        = MemTxt$(2)

DataExt      = FrmVal$(Sig_DtHoje,45,0)

CtCc         = mid$(Cta_Mst_Ct$, CtaNdig("CC_1")+CtaNdig("CC_2")+1)
'CCCt         = mid$(Cta_Mst_Ct$, CtaNdig("CC_1")+1)
CCCt         = left$(Cta_Mst_Ct$, CtaNdig("CC_1")+CtaNdig("CC_2"))


Nome         = left$(Cta_Mst_Nome$,29)
MesDeb       = FrmMoe$("",15,CtaAcmVl("D_MES"))
MesCre       = FrmMoe$("",15,CtaAcmVl("C_MES"))
AcmDeb       = FrmMoe$("",15,CtaAcmVl("D_ACT"))
AcmCre       = FrmMoe$("",15,CtaAcmVl("C_ACT"))
Sal          = FrmMoe$("",17,CtaAcmVl("D_ACT")-CtaAcmVl("C_ACT"))
S            = TipoVl$(CtaAcmVl("D_ACT")-CtaAcmVl("C_ACT"))

TotMesDeb    = FrmMoe$("",15,Total(MesDeb))
TotMesCre    = FrmMoe$("",15,Total(MesCre))
TotAcmDeb    = FrmMoe$("",15,Total(AcmDeb))
TotAcmCre    = FrmMoe$("",15,Total(AcmCre))
TotAcmSal    = FrmMoe$("",17,Total(Sal))
T            = TipoVl$(total(Sal))
##

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


'==============================================================================
#PGM - Programa/Funcoes
'==============================================================================
SUB Lst_AJT
end sub


Sub Tx_Cc_Cab 'cabecalho
FxDiv LstIde,16CPI,0

if MemTxt$(3)="CC" then
print TxTit$("TT=16CPI, LD, PT=65C","Extracto de Centros de Custo")
?
?Centro de Custo : @Tit1                                                                                #
?Nome            : @Tit2                                                                                #
else
print TxTit$("TT=16CPI, LD, PT=65C","Centros de custo usados em conta")
?
?Conta           : @Tit1                                                                                #
?Nome            : @Tit2                                                                                #
end if

?                                                                                                       @DataExt                    #
?====================================================================================================================================
?                                          |               Mes               |            Acumulado            |      Saldo         |
?====================================================================================================================================
?   Conta    |           Nome              |     Debito          Credito     |     Debito          Credito     |  Debito/Credito    |
?====================================================================================================================================
end sub


Sub TX_Cc_Lin
if MemTxt$(3)="CC" then
?@CtCc       |@Nome                        |@MesDeb         |@MesCre         |@AcmDeb         |@AcmCre         |@Sal              @S|   
else
tmp=CtaContaLer(left$(Cta_Mst_Ct$, CtaNdig("CC_1")+CtaNdig("CC_2")))
?@CcCt       |@Nome                        |@MesDeb         |@MesCre         |@AcmDeb         |@AcmCre         |@Sal              @S|   
end if
end sub


Sub TX_Cc_Fim
?====================================================================================================================================
?                   Totais                 |@TotMesDeb      |@TotMesCre      |@TotAcmDeb      |@TotAcmCre      |@TotAcmSal        @T|
?====================================================================================================================================
FxDiv LstPer,SP
end sub


'==============================================================================
'#GRF - IMPRESSAO EM MODO GRAFICO
'==============================================================================
SUB FxIni 'funcao de inicializacao
Call SigLstIni
End sub


Sub PW_Cc_Cab
esp=23                                  'espaco para valor

'posicao das colunas
Col1=0                         		'conta
Col2=25					'nome
Col3=65              			'valor1
Col4=Col3+esp*1				'valor 2
Col5=Col3+esp*2				'valor 3
Col6=Col3+esp*3				'valor 3
Col7=Col3+esp*4				'valor 3
Col8=MargemD-5                  	'valor 4


SigCabNorOpcTit=2 
if MemTxt$(3)="CC" then
  Titulo$="Extracto de centros de custo"
else
  Titulo$="Centros de custo usados em conta"
end if
call SigLstCab


Lin=27
PrWIN COR_T,  CorTitLst                       'cor de titulo
PrWIN FON  ,   10,   1                        'activar fonte
PrWIN AJT_B,  Margem, Lin*1                   'posicao base

PrWin FON, "BOLD+"                            'activar bold
If MemTxt$(3)="CC" then
  PrWin TX_N, 0,0,"Centro custo :" 
else
  PrWin TX_N, 0,0,"Conta :" 
end if
PrWin TX_N, 0,5,"Nome             :"
PrWin FON, "BOLD-"                            'desactivar bold

PrWIN COR_T,   CorLin                         'cor para linhas
PrWin TX_N, 25,0,@tit1G
PrWin TX_N, 25,5,@Tit2G


'listar titulos
PrWIN FON  ,   9,   1                         'activar fonte

Lin1=1
Lin2=5

PrWIN AJT_B,  Margem, Lin+12                  'posicao base
PrWIN COR_T,  CorTitLst                       'cor de titulo
PrWIN TX_CTR,  Col1,Lin2,Col2,Lin2,"Conta"
PrWIN TX_CTR,  Col2,Lin2,Col3,Lin2,"Nome

PrWIN TX_CTR,  Col3,Lin1,Col5,Lin1,"Mês"
PrWIN TX_CTR,  Col3,Lin2,Col4,Lin2,"Débito"
PrWIN TX_CTR,  Col4,Lin2,Col5,Lin2,"Crédito"

PrWIN TX_CTR,  Col5,Lin1,Col7,Lin1,"Acumulado"
PrWIN TX_CTR,  Col5,Lin2,Col6,Lin2,"Débito"
PrWIN TX_CTR,  Col6,Lin2,Col7,Lin2,"Crédito"

PrWIN TX_CTR,  Col7,Lin1,Col8,Lin1,"Saldo"
PrWIN TX_CTR,  Col7,Lin2,Col8,Lin2,"Débito/Crédito"

PrWIN COR_T,   CorTraco                         'cor para titulos
PrWIN GR_LI, 0,  0, Col8, 0               	'linha
PrWIN GR_LI, 0, 10, Col8,10               	'linha
PrWIN COR_T,   CorLin                           'cor para linhas

InicioEscrita=47
end sub


Sub PW_Cc_Lin
PrWIN AJT_B, Margem, InicioEscrita+Doc_CntLin*4          	'posicao base
if MemTxt$(3)="CC" then
  PrWIN TX_N,    Col1,  0, @Ctcc
else
  tmp=CtaContaLer(left$(Cta_Mst_Ct$, CtaNdig("CC_1")+CtaNdig("CC_2")))
  PrWIN TX_N,    Col1,  0, @CcCt
end if
PrWIN TX_DMX,  Col2,  0,Col3-Col2, @Nome
PrWIN TX_NP,   Col3,  0,"N", @MesDeb
PrWIN TX_NP,   Col4,  0,"N", @MesCre
PrWIN TX_NP,   Col5,  0,"N", @AcmDeb
PrWIN TX_NP,   Col6,  0,"N", @AcmCre
PrWIN TX_NP,   Col7,  0,"N", @Sal
end sub


Sub PW_Cc_Fim
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN AJT_B,Margem,270                 		'posicao base
PrWIN GR_LI,     0,  0, MargemD, 0            	'linha
PrWIN GR_LI,     0,  5, MargemD, 5            	'linha
PrWIN TX_N,    Col2,  0,"Totais ..."
PrWIN TX_NP,   Col3,  0,"N", @TotMesDeb
PrWIN TX_NP,   Col4,  0,"N", @TotMesCre
PrWIN TX_NP,   Col5,  0,"N", @TotAcmDeb
PrWIN TX_NP,   Col6,  0,"N", @TotAcmCre
PrWIN TX_NP,   Col7,  0,"N", @TotAcmSal
Call SigLstRod
PrWin FP
end sub
##


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

