Histórico da Página

...

01. VISÃO GERAL

Esta rotina permite que sejam executadas as compensações de todos os adiantamentos já efetuados e cadastrados, realizados pelos fornecedores (títulos tipo PA), além de notas de crédito a abater (títulos tipo NDF).

Os adiantamentos selecionados e informados pelo usuário serão abatidos do valor total do título original.

títulos a pagar com títulos a receber, efetuando desta forma o encontro de contas entre o fornecedor e o cliente.

Os títulos a serem considerados nesse processo são:

• Títulos de débito - exemplo:  NF (Nota Fiscal), BOL (boleto), etc.
• Títulos de crédito - exemplo: PA (pagamento antecipado), RA (Recebimento antecipado) e títulos de devolução (NDF e NCC).

02.02. EXECUÇÃO

• Manual

Procedimento efetuado de forma manual via rotina Compensação contas a pagar (FINA340entre carteiras (FINA450), com exibição das telas envolvidas no processo e necessitando de ações/comandos do usuário.

• Automática

Procedimento realizado de forma automática na rotina de Compensação contas a pagar (FINA340entre carteiras (FINA450), sem exibição de telas ou necessidade de interação do usuário.

...

#INCLUDE#include "Protheusrwmake.ch"
#INCLUDE#include "RWMAKE.CH"
#INCLUDE "TBICONN.CH"

Static __COMPAUT := Nil

'tbiconn.ch'
   
User Function CMPAUTOMAAuto450()
	    Local lRetaAutoCab := .F.
	Local cQry{}
    Local aArea    := ""
	Local aTiposGetArea()
    Local cTabSe1  := {"TMPSE1A"NF
 ", "PA ", "NDF"}
	Local cTblTmpLocal cTabSe2  := "TMPSE2A"
	Local aNF    Local aSE1450  := {}
	Local  aPA_NDF := {}
	Local aContabilaSE2450  := {}
	Local  bBlock := Nil
	Local aFilCmp aEstorno := {}
	Local 
  nSldComp := 0
	Local nTaxaPA Private lMsHelpAuto := 0
	Local nTaxaNF := 0
	Local nHdl.F.
    Private lMsErroAuto := 0
	Local nOperacao := 0

	If __COMPAUT == Nil
		cQry := "SELECT E2_TIPO TIPO,.F.
 
    BeginSql Alias cTabSe1
        SELECT R_E_C_N_O_ R_E_C_N_O FROM " + RetSqlName("SE2") + " "
		cQry += "WHERE E2_SALDO > 0 AND E2_TIPO IN (?) "
		cQry += "ORDER BY E2_TIPO" 
		cQry := ChangeQuery(cQry)
	__COMPAUT := FWPreparedStatement():New(cQry)
	EndIf

	__COMPAUT:SetIn(1, aTipos)
	cQry := __COMPAUT:GetFixQuery()
	cTblTmp := MpSysOpenQuery(cQry)

	While (cTblTmp)->(!Eof())
		If (cTblTmp)->TIPO $ MVPAGANT+"|"+MV_CPNEG
			Aadd(aPA_NDF, (cTblTmp)->R_E_C_N_O) 
		Else
			Aadd(aNF, (cTblTmp)->R_E_C_N_O)
		EndIf 

		(cTblTmp)->(DbSkip()) 
		lRet := .T.
	EndDo 

	(cTblTmp)->(DbCloseArea())
	cTblTmp := ""

	If lRet
		Pergunte("AFI340", .F.)
		lContabiliza := MV_PAR11 == 1
		lAglutina := MV_PAR08 == 1
		lDigita := MV_PAR09 == 1

		lRet := FinCmpAut(aNF, aPA_NDF, aContabil, bBlock, aEstorno, nSldComp, dDatabase, nTaxaPA ,nTaxaNF, nHdl, nOperacao)

		If lRet
			Alert("Compensação realizada com sucesso")
		Else
			Alert("Ocorreu um erro no processo de compensação")
		EndIf
	EndIf
	
Return

03. OPERAÇÕES

• Compensar

Através desta operação é possível a compensação de títulos a pagar: 

 - Compensar títulos de um mesmo fornecedor/loja com adiantamentos deste mesmo fornecedor/loja

 - Compensar títulos de um determinado fornecedor com adiantamentos deste mesmo fornecedor, não importando qual a loja do titulo a compensar

 - Compensar título de determinado fornecedor com adiantamentos de diversos fornecedores, podendo ser determinada uma faixa de fornecedores ou todos. Com isso, o título pode ser compensado com qualquer título de adiantamento em aberto no cadastro de títulos, não         importando qual o fornecedor deste título.

• Excluir

as RECNO
            FROM %Table:SE1% SE1
            WHERE SE1.E1_FILIAL = 'D MG 01 '
                AND SE1.E1_PREFIXO = 'CPT'
                AND SE1.E1_NUM = 'VT001'
                AND SE1.E1_TIPO = 'NF'
                AND SE1.E1_CLIENTE = 'FIN001'
                AND SE1.E1_LOJA    = '01'
                AND SE1.%NotDel%
    EndSql
 
    While (cTabSe1)->(!EOF())
        SE1->(DbGoto((cTabSe1)->RECNO))
        AAdd(aSE1450, {SE1->E1_FILIAL+SE1->E1_PREFIXO+SE1->E1_NUM+SE1->E1_PARCELA+SE1->E1_TIPO})
        If ascan(aFilCmp,SE1->E1_FILIAL) == 0
            Aadd(aFilCmp, SE1->E1_FILIAL)
        EndIf   
        (cTabSe1)->(DbSkip()) 
    Enddo
 
    (cTabSe1)->(DbCloseArea())
 
    BeginSql Alias cTabSe2
        SELECT R_E_C_N_O_ as RECNO
            FROM %Table:SE2% SE2
            WHERE SE2.E2_FILIAL = 'D MG 02 '
                AND SE2.E2_PREFIXO = 'CPT'
                AND SE2.E2_NUM = 'VT001'
                AND SE2.E2_TIPO = 'NF'
                AND SE2.E2_FORNECE = 'FIN001'
                AND SE2.E2_LOJA    = '01'
                AND SE2.%NotDel%
    EndSql
 
    While (cTabSe2)->(!EOF())
        SE2->(DbGoto((cTabSe2)->RECNO))
        AAdd(aSE2450, {SE2->E2_FILIAL+SE2->E2_PREFIXO+SE2->E2_NUM+SE2->E2_PARCELA+SE2->E2_TIPO+SE2->E2_FORNECE+SE2->E2_LOJA})
        If ascan(aFilCmp,SE2->E2_FILIAL) == 0
            Aadd(aFilCmp, SE2->E2_FILIAL)
        EndIf   
        (cTabSe2)->(DbSkip()) 
    Enddo
     
    (cTabSe2)->(DbCloseArea())
 
    aAutoCab :={  {"AUTDVENINI450", cTod('27/08/19') , nil},;
                {"AUTDVENFIM450", cTod('27/08/19') , nil},;
                {"AUTNLIM450" ,8000, nil},;
                {"AUTCCLI450" , "FIN001" , nil},;
                {"AUTCLJCLI" , "01" , nil},;
                {"AUTCFOR450" , "FIN001" , nil},;
                {"AUTCLJFOR" , "01" , nil},;
                {"AUTCMOEDA450" , "01" , nil},;
                {"AUTNDEBCRED" , 1 , nil},;
                {"AUTLTITFUTURO", .F. , nil},;
                {"AUTARECCHAVE" ,aSE1450, nil},;
                {"AUTAPAGCHAVE" , aSE2450 , nil},;
                {"AUTAFILCOMP" , aFilCmp , nil}} //Parâmetro opcional, somente devera ser informado quando houver uma compensação multi-filiais 
 
    MSExecAuto({|x,y,z| Fina450(x,y,z)}, nil , aAutoCab , 3 )
 
    If !lMsErroAuto
        ConOut("Incluido com sucesso! ")
        confirmsx8()
    Else
        ConOut("Erro na inclusao!")
        rollbacksx8()
        MostraErro()
    EndIf
 
    RestArea(aArea)
Return

03. OPERAÇÕES

• Compensar

Operação que permite realizar a compensação entre carteiras pagar/receber. 

• Cancelar

Operação que permite realizar o cancelamento do movimento gerado pela compensação.Operação que permite realizar a exclusão do movimento gerado pela compensação

• Estorno 

Operação que permite realizar o estorno do movimento gerado pela compensação, gerando assim sua contrapartida.

• Legenda

Apresenta quadro das legendas e seus significados referenciados a situação do titulo título a pagar.

Image RemovedImage Added

• Pesquisa

Pesquisa o titulo título dentro do arquivo de contas a pagar, tendo como resultado o titulo título posicionado e destacado na browse.

...

Operação que permite visualizar o titulo título posicionado, podendo conferir seu saldo e valor.

...

Lista de parâmetros aplicados ao FINA340 FINA450 e seu processamento

05. CONTABILIDADE

A contabilização dos processos aplicados a uma compensação contas a pagar via módulo Financeiro é feita pelos lançamentos padrões abaixo:

...

LP

...

Fato Gerador

...

ON

...

OFF (CTBAFIN)

...

...

Contabilização do tipo DIC

A contabilização do título do tipo DIC gerado pela compensação, pode ser contabilizada pela LP 510 - Inclusão de títulos a pagar, pois o mesmo é gerado através da rotina automática do FINA050 (Contas a Pagar).

Contabilização dos impostos gerados na compensação.

A contabilização dos impostos gerados pela compensação, podem ser contabilizados, pela própria LP 597 - Compensação a pagar, através das variáveis: NPIS340, NCOF340, NCSL340, NIRF340, NISS340.

Para os demais casos, a contabilização permanece a mesma, conforme a documentação abaixo:

Variaveis de contabilização FINA340

05. PRINCIPAIS PROCESSOS

06. CONTABILIDADE

A contabilização dos processos aplicados a uma compensação contas a pagar via módulo Financeiro é feita pelos lançamentos padrões abaixo:

07. TABELAS RELACIONADAS

• SE2 - Cadastro do contas a pagar
• SE1 - Cadastro do contas a receber
• SE5 - Movimentação Bancária
• SED - Cadastro de Naturezas
• SA1 - Cadastro de Clientes
• SA2 - Cadastro de Fornecedores
• FK2 - Baixas a Pagar
• FK1 - Baixas a receber
• FK6 - Valores acessórios
• FK7 - Tabela Auxiliar
• FKA - Rastreio de movimento

08. PONTOS DE ENTRADA

06. TABELAS RELACIONADAS

• SE2 - Cadastro do contas a pagar 
• SE5 - Cadastro de cheques 
• SED - Cadastro de Naturezas.
• SA2 - Cadastro de Fornecedores.
• FK2 -  Baixas a Pagar.
• FK3 - Impostos Calculados.
• FK4 - Impostos Retidos.
• FK5 - Movimentos Bancários.
• FK6 - Valores acessórios.
• FK7 - Tabela Auxiliar  
• FKA - Rastreio de movimento.

07. PONTOS DE ENTRADA

Este Ponto de Entrada permite a manipulação do Array aTitulos, para alteração do listBox da tela de compensação.
Documentação: http://tdn.totvs.com/x/gKRc

O ponto de entrada F340MKTIT permite a customização dos títulos já selecionados na markbrowse. Permite a manipulação da array que contem os títulos, e, 
com a 8º ocorrência desta, contendo um valor logico que indica se titulo marcado ou não.
Documentação:http://tdn.totvs.com/x/L6Rc

...

...

...

<!-- esconder o menu --> 


<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>

...