'Nome       : GpeLsIps.STD
'Tipo       : LST
'Data       : 2001/01/08
'Versao     : 1.1c
'Descricao  : Inputacao a seccoes


'------------------------------------------------------------------------------
'#VER - Historia de modificacoes
'------------------------------------------------------------------------------
'- Versao : 1.1  2000/03/14 ---------------------------------------------------
'Versao base

'- Versao : 1.1a 2000/11/14 ---------------------------------------------------
'Nao mostrava linhas de valor na imputacao da contabilidade
'Impressao grafica

'- Versao : 1.1b 2000/11/29 ---------------------------------------------------
'formatar valores consoante decimais indicados pelo programa

'- Versao : 1.1c 2000/??/?? ---------------------------------------------------
'Ajuste no aspecto da listagem modo texto


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


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


'-----------------------------------------------------------------------------
' Configuracao do documento
'-----------------------------------------------------------------------------
#DOC
Tipo                       [DocTip]=IPS
Nome                       [DocNom]=SEC,Imputacao por seccoes

'formato
Saida/Impressora           [DocSai]=1
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]=TX_SecCab
Listar linhas               [FxLIN]=Tx_SecLin ; Fam
Listar fim                  [FxFIM]=Tx_Fim
##


#DOC
Tipo                       [DocTip]=IPS
Nome                       [DocNom]=CMV,Imputacao por codigo movimento

'formato
Saida/Impressora           [DocSai]=1
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]=Tx_CmvCab
Listar linhas               [FxLIN]=Tx_CmvLin ; Fam
Listar fim                  [FxFIM]=Tx_Fim
##

#DOC
Tipo                       [DocTip]=IPS
Nome                       [DocNom]=CT,Imputacao a seccoes por conta

'formato
Saida/Impressora           [DocSai]=1
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]=Tx_CtCab
Listar linhas               [FxLIN]=Tx_CtLin ; Fam
Listar fim                  [FxFIM]=Tx_Fim
##

#DOC
Tipo                       [DocTip]=IPS
Nome                       [DocNom]=APU,Apuramento para Contabilidade

'formato
Saida/Impressora           [DocSai]=1
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]=Tx_ApuCab
Listar linhas               [FxLIN]=Tx_ApuLin ; Sep ; Tit
Listar fim                  [FxFIM]=Tx_ApuFim
##


'-----------------------------------------------------------------------------

#DOC
Tipo                       [DocTip]=IPS
Nome                       [DocNom]=SEC_G,Imputacao por seccoes

'formato
Saida/Impressora           [DocPrt]=PAG_W
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]=PW_SecCab
Listar linhas               [FxLIN]=Pw_SecLin ; Fam
Listar fim                  [FxFIM]=Pw_Fim
##


#DOC
Tipo                       [DocTip]=IPS
Nome                       [DocNom]=CMV_G,Imputacao por codigo movimento

'formato
Saida/Impressora           [DocPrt]=PAG_W
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]=PW_CmvCab
Listar linhas               [FxLIN]=PW_CmvLin ; Fam
Listar fim                  [FxFIM]=PW_Fim
##

#DOC
Tipo                       [DocTip]=IPS
Nome                       [DocNom]=CT_G,Imputacao a seccoes por conta

'formato
Saida/Impressora           [DocPrt]=PAG_W
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]=PW_CtCab
Listar linhas               [FxLIN]=PW_Ct_Lin ; Fam
Listar fim                  [FxFIM]=PW_Fim
##

#DOC
Tipo                       [DocTip]=IPS
Nome                       [DocNom]=APU_G,Apuramento para Contabilidade

'formato
Saida/Impressora           [DocPrt]=PAG_W
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]=PW_ApuCab
Listar linhas               [FxLIN]=PW_ApuLin ; Sep ; Tit
Listar fim                  [FxFIM]=PW_ApuFim
##





'-----------------------------------------------------------------------------
' Variaveis
'-----------------------------------------------------------------------------
#VAR
Pag        = Doc_CntPag
DataExt    = FrmVal$(Sig_DtHoje,45,0)
LstTit     = TxTit$("TT=16CPILD, PT=40C ",MemTxt$(1))
LstTit2    = MemTxt$(2)

'campos normais
Sec        = GpeCodFrm$("SEC",Gpe_Ips_Sec$)
SecTit     = GpeCodFrm$("SEC",Gpe_Ips_Sec$)+" "+GpeTabCon$("SEC",Gpe_Ips_Sec$,"ABRV")

Cmv        = Left$(Gpe_Ips_Cmv$+" "+Gpe_Cmv_Descr$,23)
CmvTit     = Gpe_Ips_Cmv$+" "+Gpe_Cmv_Descr$

Ct         = left$(Gpe_Ips_Ct$+" "+Cta_Mst_Nome$,23)
CtTit      = Gpe_Ips_Ct$+" "+Cta_Mst_Nome$

Ctr        = Gpe_Ips_Ctr$
Tpv        = Gpe_Ips_Tpv$
Ctp        = Gpe_Ips_Ctp$
Obs        = Gpe_Ips_Obs$

ApuCt      = Memtxt$(10)
Vdeb       = GpeFrmMoe$("",13,MemNum(10))
VCrd       = GpeFrmMoe$("",13,MemNum(11))
Tdeb       = GpeFrmMoe$("",13,Total(Vdeb))
TCrd       = GpeFrmMoe$("",13,Total(Vcrd))
##



'-----------------------------------------------------------------------------
' Programa/Funcoes
'-----------------------------------------------------------------------------
#PGM
Sub Lst_Cab
FxDiv LstIde,10CPI,0
Print PrtCmd$("[10CPILN]");
?
?@LstTit                                                                    #
?                                         
?Data: @DataExt                                                   Folha @Pag #
?================================================================================
End Sub



Sub Tx_CtCab
call Lst_Cab
?       Seccao              Cod.Mov              Tp.Val.     Contrapartida
?================================================================================
end Sub

Sub Tx_SecCab
call Lst_Cab
?       Cod.Mov.             Conta               Tp.Val.     Contrapartida    
?================================================================================
end Sub

Sub Tx_CmvCab
call Lst_Cab
?       Seccao               Conta               Tp.Val.      Contrapartida 
?================================================================================
end Sub



Sub Tx_CtLin
?  @Sec                    @Cmv                    @Tpv  @Ctp                   #
end Sub

Sub Tx_SecLin
?  @Cmv                    @CT                     @Tpv  @Ctp                   #
end Sub

Sub Tx_CmvLin
?  @Sec                    @Ct                     @Tpv   @Ctp                  #
end Sub



Sub Tx_SecLinFam
?@SecTit                                                            #
end sub

Sub Tx_CtLinFam
?@CtTit                                                                          #
end sub

Sub Tx_CmvLinFam
?@CmvTit                                                                     #
end sub


Sub Tx_Fim
?================================================================================
Print PrtCmd$("[SP]");
End Sub



Sub Tx_ApuCab
FxDiv LstIde,10CPI,0
?
?@LstTit                                                                      #
?                                         
?Data: @DataExt                                                   Folha @Pag #
?================================================================================
?       Conta                           Valor a Debito      Valor a Credito      
?================================================================================
End Sub

Sub Tx_ApuLin
? @ApuCt                               @VDeb               @VCrd                #
End Sub

Sub Tx_ApuLinSep
?================================================================================
end sub

Sub Tx_ApuLinTit
? @LstTit2                                                                      #
end sub


Sub Tx_ApuFim
?================================================================================
end Sub

'-(Modo grafico)-----------------------------------------------------------------
SUB FxIni 'funcao de inicializacao
Call SigLstIni
Col1=0
Col2=50
Col3=100
Col4=120
End sub


Sub Pw_Cab
call SigCabNor
PrWIN COR_T,CorTraco                            'cor de linhas
PrWIN GR_LI, 0, 3, MargemD, 3               	'linha
PrWIN GR_LI, 0, 7, MargemD, 7               	'linha

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

PrWIN TX_DMX, Col3,Lin,Col4-Col3,"Tp. Val"
PrWIN TX_DMX, Col41,Lin,Co52-Col4,"Contrapartida"
End Sub


Sub PW_CtCab
call Lst_CabG
PrWIN TX_DMX, Col3,Lin,Col4-Col3,"Tp. Val"
PrWIN TX_DMX, Col41,Lin,Co52-Col4,"Contrapartida"
end Sub

Sub Pw_SecCab
call Lst_CabG
PrWIN TX_DMX, Col1,Lin,Col2-Col1,"Cod.Mov"
PrWIN TX_DMX, Col2,Lin,Col3-Col2,"Conta"
end Sub

Sub Pw_CmvCab
call Lst_CabG
PrWIN TX_DMX, Col1,Lin,Col2-Col1,"Secção"
PrWIN TX_DMX, Col2,Lin,Col3-Col2,"Conta"
end Sub


Sub Pw_CtLin
PrWIN AJT_B,  Margem, 30+Doc_CntLin*4          	'posicao base
PrWIN TX_N, Col1,0,@Sec
PrWIN TX_N, Col2,0,@Cmv
PrWIN TX_N, Col3,0,@Tpv
PrWIN TX_N, Col4,0,@Ctp
end Sub

Sub Pw_SecLin
PrWIN AJT_B,  Margem, 30+Doc_CntLin*4          	'posicao base
PrWIN TX_N, Col1,0,@Cmv
PrWIN TX_N, Col2,0,@Ct
PrWIN TX_N, Col3,0,@Tpv
PrWIN TX_N, Col4,0,@Ctp
end Sub

Sub Pw_CmvLin
PrWIN AJT_B,  Margem, 30+Doc_CntLin*4          	'posicao base
PrWIN TX_N, Col1,0,@Sec
PrWIN TX_N, Col2,0,@Ct
PrWIN TX_N, Col3,0,@Tpv
PrWIN TX_N, Col4,0,@Ctp
end Sub


Sub Pw_SecLinFam
PrWIN AJT_B,  Margem, 30+Doc_CntLin*4          	'posicao base
PrWIN TX_N, Col1,0,@SecTit
end sub

Sub Pw_CtLinFam
PrWIN AJT_B,  Margem, 30+Doc_CntLin*4          	'posicao base
PrWIN TX_N, Col1,0,@CtTit
end sub

Sub PW_CmvLinFam
PrWIN AJT_B,  Margem, 30+Doc_CntLin*4          	'posicao base
PrWIN TX_N, Col1,0,@CmvTit
end sub


Sub Pw_Fim
'?================================================================================
Call SigLstRod
Prwin FP
End Sub



Sub Pw_ApuCab
FxDiv LstIde,10CPI,0
?
?        A p u r a m e n t o   p a r a   C o n t a b i l i d a d e          #
?                                         
?Data: @DataExt                                                   Folha @Pag #
?================================================================================
?       Conta                           Valor a Debito      Valor a Credito      
?================================================================================
End Sub


Sub Pw_ApuLin
? @ApuCt                               @VDeb               @VCrd                #
End SuB


Sub Pw_ApuLinSep
?================================================================================
end SUB


Sub Pw_ApuFim
?         Total:                       @TDeb               @TCrd                #
?================================================================================
x=TotLpz(0)
Print PrtCmd("[SP]");
End Sub

##

