'Nome       : CTADIA.STD
'Tipo       : STD
'Data       : 2003/07/17
'Versao     : 2.2
'Descricao  : Listagem de Diario de Movimentos

'-----------------------------------------------------------------------------
'#VER - Historia de modificacoes
'-----------------------------------------------------------------------------
'- Versao : 1.0  1999/02/18 --------------------------------------------------
'Versao base

'- Versao : 1.0a 2000/02/09 --------------------------------------------------
'Indicar tipo de diario no diario ordenado por documento

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

'- Versao : 2.0a 2000/12/14 --------------------------------------------------
'Impressao no formato grafico
'Alterados radicais das funcoes para listagem

'- Versao : 2.0b 2000/12/20 --------------------------------------------------
Nao apresentava o numero da pagina e a data

'- Versao : 2.0c 2001/01/23 --------------------------------------------------
'Alteracao nos ficheiros a usar nas inclusoes

'- Versao : 2.0d 2001/03/08 --------------------------------------------------
'Correcoes na impressao dos totais

'- Versao : 2.0f 2001/09/10 --------------------------------------------------
'Estava a listar a personalização na ultima folha 2 vezes

'- Versao : 2.1 2001/10/17 --------------------------------------------------
'Estreitar listagem

'- Versao : 2.2 2003/??/?? --------------------------------------------------
'Nos totais de conta, apresenta o nome da mesma
'Apresentar o diario

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


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

'-----------------------------------------------------------------------------
' Configuracao do documento
'-----------------------------------------------------------------------------
#DOC
Tipo                       [DocTip]=DiaCt
Nome                       [DocNom]=DiarCt,Por conta

'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_Cab
Listar linhas               [FxLIN]=TX_Ct; Tot,2; Rza,2
Listar fim                  [FxFIM]=TX_Fim
##


#DOC
Tipo                       [DocTip]=DiaDoc
Nome                       [DocNom]=DiarNdo,Por Documento

'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_Cab
Listar linhas               [FxLIN]=TX_Ndo; Tot,2; TdoTit; Tdo,2
Listar fim                  [FxFIM]=TX_Fim
##


'-(Impressao modo grafico)------------------------------------------------------
#DOC
Tipo                       [DocTip]=DiaCt
Nome                       [DocNom]=DiarCt_G,Por conta

'formato
Saida/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]=PW_Cab
Listar linhas               [FxLIN]=PW_Ct; Tot,2; Rza,2
Listar fim                  [FxFIM]=PW_Fim
##


#DOC
Tipo                       [DocTip]=DiaDoc
Nome                       [DocNom]=DiarNdo_G,Por Documento

'formato
Saida/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]=PW_Cab
Listar linhas               [FxLIN]=PW_Ndo; Tot,2; TdoTit; Tdo,2
Listar fim                  [FxFIM]=PW_Fim
##



'-----------------------------------------------------------------------------
' Variaveis
'-----------------------------------------------------------------------------
#VAR

'MemTxt(1)  - Titulo

'valores para a linha
'MemNum(21) - Valor debito contabilidade geral
'MemNum(22) - valor credito contabilidade geral
'MemNum(23) - valor a debito contabilidade analitica
'MemNum(24) - valor a credito contabilidade analitica

Sub-total
'MemTxt$(2) - razao anterior/conta/diario/numero documento
'MemNum(31) - debito contabilidade geral
'MemNum(32) - credito contabilidade geral
'MemNum(33) - debito contabilidade analitica
'MemNum(34) - credito contabilidade analitica

'Total geral 
'MemNum(41) - total a debito contabilidade geral
'MemNum(42) - total a credito contabilidade geral
'MemNum(43) - total a debito da analitica
'MemNum(44) - total a credito da analitica


Pag      = Doc_CntPag
DataExt  = FrmVal$(Sig_DtHoje,45,0)
Titulo   = TxTit$("TT=16CPI, LD, PT=66C, TL=16CPI",Memtxt$(1))

Dtl      = Left$(FrmVal$(Cta_Mov_Dtl,42,0),8)
Ctn      = Cta_Mov_Ct$
Tdoc     = Cta_Mov_Tdoc$
Ndoc     = FrmNdo$("06",Cta_Mov_Tdoc$,Cta_Mov_Ndoc$)
Dtv      = left$(FrmVal$(Cta_Mov_Dtv,42,0),8)
Descr    = Cta_Mov_Descr$

'Linha de Movimento
DebGer   = FrmMoe$("",15,MemNum(21))
CreGer   = FrmMoe$("",15,MemNum(22))
DebAnl   = FrmMoe$("",15,MemNum(23))
CreAnl   = FrmMoe$("",15,MemNum(24))

'Linha de subtotal
SCt      = left$(trim$(MemTxt$(2))+" - "+Cta_Mst_Nome$,37)
SCtGrf   = trim$(MemTxt$(2))+" - "+Cta_Mst_Nome$

SRza     = MemTxt$(2)
STdo     = MemTxt$(2)
SDiaIde  = MemTxt$(2)+" - "+TdoNome$(1,MemTxt$(2))
SDiaTot  = MemTxt$(2)
SDebGer  = FrmMoe$("",15,MemNum(31))
SCreGer  = FrmMoe$("",15,MemNum(32))
SDebAnl  = FrmMoe$("",15,MemNum(33))
SCreAnl  = FrmMoe$("",15,MemNum(34))

'Linha de Total geral
TDebGer  = FrmMoe$("",15,Total(DebGer))
TCreGer  = FrmMoe$("",15,Total(CreGer))
TDebAnl  = FrmMoe$("",15,Total(DebAnl))
TCreAnl  = FrmMoe$("",15,Total(CreAnl))
##


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


'-----------------------------------------------------------------------------
' Programa/Funcoes
'-----------------------------------------------------------------------------
#PGM
SUB Lst_Ajt 'linha de ajuste
end sub


Sub TX_Cab 'cabecalho da pagina
FxDiv LstIde,16CPI,1
?@Titulo                                                                                                                            #
?Data: @DataExt                                                                                                        Folha No: @Pag#
?====================================================================================================================================
?    Data                                Data                        Contabilidade Geral               Contabilidade Analitica
?   Movim.   No Conta   Diario Doc.     Vencim.    Descricao       Debito           Credito          Debito           Credito
?====================================================================================================================================
end sub


Sub TX_Fim 'total geral
?====================================================================================================================================
?    TOTAL DOS MOVIMENTOS                                       @TDebGer         @TCreGer         @TDebAnl         @TCreAnl         #
?====================================================================================================================================
'Print PrtCmd$("[SP]");
FxDiv LstPer,SP
end sub


Sub TX_FimAjt 'subtotal por pagina
?====================================================================================================================================
? SUBTOTAL DOS MOVIMENTOS                                       @TDebGer         @TCreGer         @TDebAnl         @TCreAnl         #
?====================================================================================================================================
'Print PrtCmd$("[SP]");
FxDiv LstPer,SP
end sub


Sub TX_Ct 'linha normal
?@Dtl      @Ctn         @Tdoc@Ndoc     @Dtv       @Descr        @DebGer          @CreGer          @DebAnl          @CreAnl         #
end sub


Sub TX_CtTot 'total por conta
fx=ctacontaler(MemTxt$(2))              'ler dados da contabilidade
? Total da Conta : @SCt                                         @SDebGer         @SCreGer         @SDebAnl         @SCreAnl        #
?
end sub


Sub TX_CtRza 'total por razao
?    Total do Razao : @SRza                                     @SDebGer         @SCreGer         @SDebAnl         @SCreAnl        #
?
end sub


'- Por documento -------------------------------------------------------------------------
Sub TX_Ndo 'linha normal
?@Dtl      @Ctn         @Tdoc@Ndoc     @Dtv       @Descr        @DebGer          @CreGer          @DebAnl          @CreAnl         #
end sub


Sub TX_NdoTot 'total por documento
?    Total de documento  :                                      @SDebGer         @SCreGer         @SDebAnl         @SCreAnl        #
?
end sub


Sub TX_NdoTdoTit 'titulo do diario
?    Diario : @SDiaIde                                            #
end sub


Sub TX_NdoTdo 'total por diario
?    Total de Diario : @SDiaTot                                 @SDebGer         @SCreGer         @SDebAnl         @SCreAnl        #
?
end sub





'-----------------------------------------------------------------------------
' Impressao no formato grafico
'-----------------------------------------------------------------------------
SUB FxIni 'funcao de inicializacao
Call SigLstIni
End sub

Sub PW_Cab 'cabecalho da pagina
Call SigLstCab

'posicao das colunas
Col1=0                           		'data
Col2=13						'conta
Col3=30                                'diario
Col4=38      				'documento
Col5=51			'dtv
Col6=64				'descricao

esp=25
Col7=87		'debito geral
Col8=Col7+(esp*1)                       'credito geral
Col9=Col7+(esp*2)                       'debito analitica
Col10=Col7+(esp*3)                         'credito analitica
Col11=MargemD-20
cmax=185

'posicao linhas de titulo
Lin1=2                            		'linha 1
Lin2=5						'linha2

PrWIN COR_T,  CorTitLst                        'cor de titulo
PrWIN FON  ,   9,   1                        	'activar fonte
PrWin Ajt_B, Margem, 27

ajt=15

PrWIN TX_N,    Col1,Lin1,          "  Data"
PrWIN TX_N,    Col1,Lin2,          "Movim."
PrWIN TX_N,    Col2,Lin2,          "Conta"
PrWIN TX_N,    Col4-5,Lin2,          "Documento"
PrWIN TX_N,    Col5,Lin1,          "  Data"
PrWIN TX_N,    Col5,Lin2,          "Vencm."
PrWIN TX_N,    Col6,Lin2,          "Descrição"
PrWIN TX_N,    Col7+ajt,Lin1,      "Contabilidade Geral"
PrWIN TX_CTR,  Col7,Lin2,Col8,Lin2,"Debito"
PrWIN TX_CTR,  Col8,Lin2,Col9,Lin2,"Credito"
PrWIN TX_N,    Col9+ajt,Lin1,      "Contabilidade Analitica"
PrWIN TX_CTR,  Col9,Lin2,Col10,Lin2,"Debito"
PrWIN TX_CTR,  Col10,Lin2,Col11,Lin2,"Credito"

PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 0, Cmax, 0               	'linha
PrWIN GR_LI, 0, 10, Cmax, 10               	'linha

PrWIN FON  ,   8,   1                           'activar fonte
PrWIN COR_T,CorLin                              'cor de linhas
InicioEscrita=38
end sub


Sub PW_Fim 'total geral
txtit$="Total dos movimentos"
Call PW_FimListagem
'Call SigLstRod
'PrWin FP
end sub


Sub PW_FimAjt 'subtotal por pagina
TxTit$="Sub-total dos movimentos"
Call PW_FimListagem
end sub

Sub PW_FimListagem
PrWIN COR_T,     CorTraco                       'cor traco
PrWIN AJT_B,Margem,265                 		'posicao base
PrWIN GR_LI,     0,  0, Cmax, 0            	'linha
PrWIN AJT_B,Margem,267                 		'posicao base
PrWIN COR_T,     CorTotGer                      'cor azul
PrWIN FON,       8,  1                          'activar fonte
PrWIN TX_N,  Col2,  0,   TxTit$
PrWIN TX_NP,  Col7,  0,"N",@TDebGer
PrWIN TX_NP,  Col8,  0,"N",@TCreGer
PrWIN TX_NP,  Col9,  0,"N",@TDebAnl
PrWIN TX_NP,  Col10,  0,"N",@TCreAnl
call SigLstRod
PrWin FP
end sub


'- Por conta -----------------------------------------------------------------------------
Sub PW_Ct 'linha normal
PrWIN AJT_B,  Margem, InicioEscrita+Doc_CntLin*4          	'posicao base
PrWIN TX_N,     Col1,0,@Dtl
PrWIN TX_N,     Col2,0,@Ctn
PrWIN TX_N,     Col3,0,@Tdoc
PrWIN TX_NP,    Col4,0,"N",@Ndoc
PrWIN TX_N,     Col5,0,@Dtv
PrWIN TX_N,     Col6,0,@Descr
PrWIN TX_NP,    Col7,0,"N",@DebGer
PrWIN TX_NP,    Col8,0,"N",@CreGer
PrWIN TX_NP,    Col9,0,"N",@DebAnl
PrWIN TX_NP,    Col10,0,"N",@CreAnl
end sub


Sub PW_CtTot 'total por conta
fx=ctacontaler(MemTxt$(2))              'ler dados da contabilidade

PrWIN COR_T,     CorTitLst                      'cor total geral
PrWIN AJT_B,  Margem, InicioEscrita+Doc_CntLin*4          	'posicao base
PrWIN TX_N,     Col1,0,"Total conta :"
PrWIN TX_N,     Col2+4,0,Cta_Mst_Ct$
PrWIN TX_DMX,   Col3+10,0,Col6-(Col3+10),Cta_Mst_Nome$

PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_NP,    Col7,0,"N",@SDebGer
PrWIN TX_NP,    Col8,0,"N",@SCreGer
PrWIN TX_NP,    Col9,0,"N",@SDebAnl
PrWIN TX_NP,    Col10,0,"N",@SCreAnl
End sub


Sub PW_CtRza 'total por razao
PrWIN COR_T,     CorTitLst                      'cor total geral
PrWIN AJT_B,  Margem, InicioEscrita+Doc_CntLin*4          	'posicao base
PrWIN TX_N,     Col2,0,"Total do Razão:"
PrWIN TX_N,     Col4,0,@SRza
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_NP,    Col7,0,"N",@SDebGer
PrWIN TX_NP,    Col8,0,"N",@SCreGer
PrWIN TX_NP,    Col9,0,"N",@SDebAnl
PrWIN TX_NP,    Col10,0,"N",@SCreAnl
end sub



'- Por documento -------------------------------------------------------------------------
Sub PW_Ndo 'linha normal
Call Pw_Ct
end sub


Sub PW_NdoTot 'total por documento
PrWIN COR_T,     CorTitLst                      'cor total geral
PrWIN AJT_B,  Margem, InicioEscrita+Doc_CntLin*4          	'posicao base

PrWIN TX_N,     Col2,0,"Total de Documento :"
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_NP,    Col7,0,"N",@SDebGer
PrWIN TX_NP,    Col8,0,"N",@SCreGer
PrWIN TX_NP,    Col9,0,"N",@SDebAnl
PrWIN TX_NP,    Col10,0,"N",@SCreAnl
end sub


Sub PW_NdoTdoTit 'titulo do diario
PrWIN AJT_B,  Margem, InicioEscrita+Doc_CntLin*4          	'posicao base
PrWIN COR_T,     CorTitLst                      'cor total geral
PrWIN TX_N,     Col2,0,"Diário :"
PrWIN TX_N,     Col4,0,@SDiaIde
PrWIN COR_T,CorLin                              'cor de linhas
end sub


Sub PW_NdoTdo 'total por diario
PrWIN COR_T,     CorTitLst                      'cor total geral
PrWIN AJT_B,  Margem, InicioEscrita+Doc_CntLin*4          	'posicao base
PrWIN TX_N,     Col2,0,"Total de Diário :"
PrWIN TX_N,     Col4,0,@SDiaTot
PrWIN COR_T,CorLin                              'cor de linhas
PrWIN TX_NP,    Col7,0,"N",@SDebGer
PrWIN TX_NP,    Col8,0,"N",@SCreGer
PrWIN TX_NP,    Col9,0,"N",@SDebAnl
PrWIN TX_NP,    Col10,0,"N",@SCreAnl
end sub
##


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



