Essa rotina foi ajustada para atender a Lei Geral de Proteção de Dados (Lei n° 13.70), sendo que alguns campos que apresentam informações consideradas como dados sensíveis e/ou pessoais, serão ofuscados deixando de ser legíveis. |
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.
Procedimento efetuado de forma manual via rotina Compensação contas a pagar (FINA340), com exibição das telas envolvidas no processo e necessitando de ações/comandos do usuário
Procedimento realizado de forma automática na rotina de Compensação contas a pagar (FINA340), sem exibição de telas ou necessidade de interação do usuário.
Utilizado em customizações onde o processo não necessita de interações do usuário (MSEXECAUTO)
#INCLUDE "Protheus.ch" #INCLUDE "RWMAKE.CH" #INCLUDE "TBICONN.CH" Static __COMPAUT := Nil User Function CMPAUTOMA() Local lRet := .F. Local cQry := "" Local aTipos := {"NF ", "PA ", "NDF"} Local cTblTmp := "" Local aNF := {} Local aPA_NDF := {} Local aContabil := {} Local bBlock := Nil Local aEstorno := {} Local nSldComp := 0 Local nTaxaPA := 0 Local nTaxaNF := 0 Local nHdl := 0 Local nOperacao := 0 If __COMPAUT == Nil cQry := "SELECT E2_TIPO TIPO, 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 |
Apresenta consulta com o rateio de múltiplas naturezas do título posicionado no browse.
Esta apresentação depende da ativação do processo de rateios de múltiplas naturezas para contas a pagar (parâmetro MV_MULNATP)
Apresenta consulta com o lançamento contábil do título, caso o mesmo já tenha sido contabilizado.
|
Lista de parâmetros aplicados ao FINA090 e seu processamento
|
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 |
530 | Na baixa de títulos a pagar | X | X |
532 | Na baixa de títulos a pagar em Borderô | X | X |
513 | Na inclusão de movimento bancário de adiantamento | X | X |
Borderôs: Para títulos normais o lançamento padrão será o 532, já para títulos de adiantamento o lançamento padrão é o 513 Os impostos com fato gerador "Caixa" (na baixa) gerados pelo borderô, deverão ser contabilizados pelo LP 530. Histórico. Caso necessário resgatar o número do borderô e informar no histórico no momento da contabilização, deverá ser utilizado o campo SEA→EA_NUMBOR. |
Contabilização por tipo de baixa: Títulos: Para títulos normais o lançamento padrão será o 530, já para títulos de adiantamento o lançamento padrão é o 513. |
Ponto de entrada | Observação |
---|---|
F340BROW | O ponto de entrada F340BROW sera chamado antes do browse e podera ser utilizado no tratamento dos dados apresentados no browse. Documentação: http://tdn.totvs.com/x/56Jc |
F340LIBT | O ponto de entrada indica se haverá a validação de liberação do titulo no momento da compensação. Documentação: http://tdn.totvs.com/x/_a2FDg |
F340DTFIN | O PE é chamado nas validações do parâmetro MV_DATAFIN existentes na Compensação CP. Documentação: http://tdn.totvs.com/x/6qJc |
F340TAXA | Neste ponto de entrada é possível alterar as taxas das moedas que serão utilizadas na compensação do contas a pagar. Documentação: http://tdn.totvs.com/x/aK_FDg |
F340ATLIS | Este Ponto de Entrada permite a manipulação do Array aTitulos, para alteração do listBox da tela de compensação. |
F340TOTCP | ponto de entrada F340TOTCP() possibilita manipular os valores totais de títulos a serem compensados. Documentação: http://tdn.totvs.com/x/nYIbCQ |
F340MKTIT | 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, |
F340NAT | |
F340_PA | O ponto de entrada F340_PA sera executado apos contabilizar cada titulo de compensacao a pagar. Documentação: http://tdn.totvs.com/x/7aJc |
F340SE5 | O ponto de entrada F340SE5 manipula Movimentos Bancários Processados tendo como parâmetro o Recno dos registros SE5 que foram utilizados na Compensação. Documentação: http://tdn.totvs.com/x/sAKqC |
F340GRV | O ponto de entrada F340GRV valida a inclusão na rotina de Compensação de Contas a Pagar (FINA340) Documentação: http://tdn.totvs.com/x/IgBzB |
F340ACAN | Este ponto de entrada permite que seja criada uma regra para informar quando será Estornado ou não. Documentação: http://tdn.totvs.com/x/j7GFDg |
F340CAN | Ponto de Entrada chamado quando realizada a confirmação do estorno de compensação. Documentação: http://tdn.totvs.com/x/zoFdAg |
F340GREST | Gravação de dados adicionais no estorno da compensação Documentação: http://tdn.totvs.com/x/iqVc |
F340FCAN | Ponto de entrada permite gravação de informação complementares no momento do estorno da compensação. Documentação: http://tdn.totvs.com/x/W7KFDg |
FA340QRY | Complemento de query para cancelamento da compensação Documentação: http://tdn.totvs.com/x/lgwGD |
FA340FILT | O ponto de entrada FA340FILT é executado na montagem da tabela de títulos a compensar e será utilizado para escolher quais títulos serão compensados |
F340CMP | Tem como finalidade permitir ao usuario calcular o titulo de NDF ou PA e sera chamado na funcao Fa340Tit() Documentação: http://tdn.totvs.com/x/6aJc |
FA340ORD | Ponto de Entrada permite a alteração do indice, mudando assim a ordem dos titulos exibidos da markbrowse para a compensação a pagar |
F340ValOk | O ponto de entrada F340ValOk, permite o controle dos dados e da confirmação da tela de compensação de títulos a pagar |
F340TOTCP | Possibilita manipular os valores totais de títulos a serem compensados. Documentação: http://tdn.totvs.com/x/nYIbCQ |
F340VLD | Ponto de Entrada que permite validar se um título será ou não compensado. |
F340LEGE | |
SE5FI340 | Ponto de Entrada que permite realizar gravações complementares na tabela SE5, após a gravação do movimento bancário do título principal na compensação a pagar automática |
SE5FI341 | Ponto de Entrada que permite realizar gravações complementares na tabela SE5, após a gravação do movimento bancário do título de Adiantamento na compensação a pagar automática. |
F340GERNDF | Possibilidade de gravar campos adicionais na inclusão da NDF gerada pela compensação à pagar. Documentação: http://tdn.totvs.com/x/kvdbDQ |
FA340NDFGrv | |
F340FLCP | Permite implementar uma expressão complementar no filtro de titulos. Documentação: http://tdn.totvs.com/x/66Jc |
F340FCPTOP | Esse ponto de entrada permite criar um novo filtro para a rotina de Compensação Contas a Pagar - FINA340. Documentação: http://tdn.totvs.com/x/r_xZE |
|
|
<!-- 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> |