Índice

1Objetivo
2Mapa Mental
3Principais Campos
4Execução Automática
5Conteúdos Relacionados

Objetivo

As contas a pagar são compromissos representados por compra de mercadorias, serviços, salários, impostos, aluguel, empréstimos, contribuições, máquinas, insumos para produção, entre outros.

A rotina de Contas a Pagar do sistema Microsiga Protheus controla todos os documentos, também chamados de títulos, pagos pela empresa e que podem ser: duplicatas, cheques, notas promissórias, adiantamentos, pagamentos antecipados, notas fiscais etc. As informações cadastradas contribuem na tomada de decisões sobre todos os compromissos da empresa que representam o desembolso de recursos e, também, estão atribuídas aos seguintes critérios:

Elaboração do fluxo de caixa.
Garantir o prazo de pagamento, inclusive considerando as possibilidades de conseguir descontos e, principalmente, evitar penalidades que resultam no ônus de multas e juros.
Priorizar pagamentos na hipótese de dificuldade financeira.
Identificar situações contratadas e não pagas.
Garantir a conciliação com os saldos contábeis.

Nota

Os tipos de títulos identificam o numerário referente a uma determinada receita ou despesa. Eles devem ser definidos na tabela 05 (Tipos de títulos) do módulo Configurador ou na rotina Tipos de títulos.

A inclusão de um título na carteira a pagar pode ser feita de forma manual (inclusão individual dos títulos por meio de digitação) ou automática (a partir das notas fiscais de entrada, desde que, o módulo de Compras e/ou Estoque e Custos estejam integrados ao módulo Financeiro).

Nota

Para que o título seja gerado automaticamente, é necessário que os módulos de Compras e/ou Estoque e Custos estejam implantados e integrados, pois, o processo depende do recebimento de documentos de entrada e dos pedidos de compras.

O cadastro de contas a pagar está elaborado da seguinte forma:

NF de entrada criada no módulo Estoque e custos

Títulos gerados no Contas a pagar

101010 (R$ 6.000), em 6 parcelas de 1.000

101010 A - 1.000

101010 B - 1.000

101010 C - 1.000

101010 D - 1.000

101010 E - 1.000

101010 F - 1.000

Para que a configuração das parcelas seja na forma alfabética, é necessário que o parâmetro MV_1DUP tenha em seu conteúdo a letra A, entretanto, para divisão de parcelas de maneira numérica, informe a opção 1.

Os títulos devem ser agrupados por natureza, permitindo assim, uma geração de resultados (relatórios) de forma estruturada e organizada, sendo uma poderosa ferramenta gerencial.

A opção de desdobramento permite a geração de diversos títulos a partir de um, tendo todos o mesmo valor (parcela) ou o valor dividido pelo número de parcelas (total).

O faturamento, quando integrado, gera títulos a pagar por meio da rotina de Atualização de Comissão. Esses títulos serão apresentados pelo padrão com a opção COM e seu prefixo será definido pela configuração do parâmetro MV_3DUPREF.

O sistema realiza o acompanhamento do histórico dos fornecedores, como maior saldo, média e maior atraso e o controle dos saldos a pagar como valor vencido, a vencer e outros.

Na quitação dos títulos, o sistema oferece facilidades no tratamento da empresa X Banco com pagamentos automáticos e emissão de cheques. A baixa dos títulos a pagar pode ser feita de forma manual ou automática, individual ou por lotes recebidos dos Bancos.

Os títulos que devem ser considerados para fins de fluxo de caixa podem ser controlados, pois, na inclusão de contas a pagar o sistema atualiza esse fluxo e efetua os lançamentos contábeis por meio de parâmetros definidos e dos lançamentos padronizados.

Mapa Mental

Conheça neste diagrama as informações que contemplam as funcionalidades da rotina:

Antes de iniciar o procedimento de inclusão, pressione a tecla [F12] para realizar a parametrização da rotina que contempla os seguintes critérios:

Campo:	Descrição
Mostra lanc. contab.?	Indica, por meio da seleção entre as opções Sim e Não, se o lançamento contábil deve ser exibido quando a contabilização for on-line. Exemplo: Sim.
Conta. tit. provisor?	Indica, por meio da seleção entre as opções Sim e Não, se devem ser contabilizados os títulos provisórios. Exemplo: Não.
Inf. cats no rateio?	Indica, por meio da seleção entre as opções Sim e Não, se devem ser exibidos os campos para digitação das contas a débito e a crédito no rateio do título. Exemplo: Sim.
Contabiliza on-line?	Indica, por meio da seleção entre as opções Sim e Não, se a contabilização será on-line, ou seja, no momento da efetivação da transação um a um (inclusão de título, baixa, geração de cheque, exclusão etc) ou se será contabilizado off-line, onde todos os lançamentos não efetuados on-line são contabilizados em um processo de lote. Exemplo: Não.
Gerar cheq. p/ Adiant.?	Indica, por meio da seleção entre as opções Sim e Não, se deve gerar cheque para títulos de adiantamento. Dessa forma o sistema habilitara o campo Cheque na inclusão do pagamento antecipado e quando seu número é informado, ocorre a movimentação bancaria. Exemplo: Sim.
Rateia valor?	Indica o valor para ser utilizado no rateio de contas a pagar. Dispõe das opções Bruto (Valor do título mais os impostos) e Líquido (valor sem os impostos). Exemplo: Bruto.
Aglutina lançamento contábil?	Indica, por meio da seleção entre as opções Sim e Não, se os lançamentos contábeis do rateio devem ser aglutinados em uma única linha, desde que, as contas, centro de custo, item e classe de valor sejam iguais nos lançamentos efetuados. Exemplo: Não.
Mostra rateio exclusão?	Indica, por meio da seleção entre as opções Sim e Não, se deve ser exibida a tela de rateio na exclusão do título. Exemplo: Sim.
Mov. Banc. sem cheque?	Indica se deve gerar movimento bancário quando o campo Gera Chq.p/Adiant. estiver preenchido com a opção Não. Dispõe das opções: Sim: adiantamento em dinheiro (com movimentação). Não: adiantamento sem movimento bancário para envio de CNAB (DOC/TED). Exemplo: Não.
Gera rateio?	Para situações em que são utilizadas múltiplas naturezas, indica se o rateio será gerado como natureza/centro de custo. Para os valores dos impostos, será aplicado somente se a opção de rateio do valor for informada como liquido. Dispõe das opções Título e Título/Impostos. Exemplo: Título.
Incluir Rateio de um titulo oriundo de um modulo diferente do Financeiro.	Seleciona o titulo e ir na opção de Alterar, assim acessar a aba Contabil e se direcionar até o campo Rateio (E2_RATEIO) e por meio da seleção entre as opções Sim e Não, se deve ser exibida a tela de rateio. Exemplo: Não. Obs. Para esse situação o título não pode estar contabilizado.

Na página principal da rotina, estão disponíveis as opções:

Permite a inclusão de informações dos documentos/títulos que devem ser pagos pela empresa.

Ao selecionar esta opção, eleja a Filial desejada e clique em Ok.

As informações devem ser preenchidas de acordo com as orientações descritas em Principais Campos.

Veja também mais funcionalidades disponíveis em Outras Ações.

Principais Campos

Campo:	Descrição
Prefixo:	Permite identificar um conjunto de títulos que pertencem ao mesmo grupo ou filial. Uma vez informado o prefixo, ele é considerado parte integrante da chave de acesso ao título. Nota Para que a configuração das parcelas seja na forma alfabética, é necessário que o parâmetro MV_1DUP tenha em seu conteúdo a letra A, entretanto, para divisão de parcelas de maneira numérica, informe a opção 1.
N. Título:	Informe o número do título. Exemplo: FIN000024
Parcela:	Informe a parcela do título. O sistema permite o controle dos desdobramentos de um título. Exemplo: 1
Tipo:	Classifica o título por sua finalidade. Os tipos estão cadastrados na tabela 05 (Tipos de Títulos) do módulo Configurador ou na rotina Tipos de títulos. Se necessário, utilize o recurso de Consulta Padrão para selecionar o título e fazer o preenchimento do campo. Exemplo: TX (essa sigla corresponde a título de taxas). Nota Tipos Especiais Títulos provisórios É utilizado para provisionar receitas que ocorrerão para efeito de orçamentos/fluxo de caixa. Na implantação do título deve ser indicado o tipo PR ou é necessário informar sua condição no campo Tipos de títulos. Para efetivá-lo, deve ser utilizada a opção Substituir informando o código/loja do cliente/fornecedor. Adiantamentos Identifica um título que obteve pagamento antecipado (PA), ou seja, antes da emissão da nota fiscal houve o pagamento parcial ou total do título. O saldo bancário é atualizado on-line, visto que existe a entrada/saída de numerário no Banco. Na implantação do título deve ser indicado o tipo RA ou PA ou informado como recebimento/pagamento antecipado no campo Tipos de títulos. Em seguida, devem ser informados os dados referentes ao adiantamento: Banco, agência, conta e cheque (apenas para pagamentos). A geração de pagamento antecipado pode ser efetuada conforme a configuração do parâmetro MV_PABRUTO sendo: Valor bruto: quando no adiantamento não são descontados os impostos. Valor líquido: quando no adiantamento são descontados os impostos. O padrão do sistema é incluir um PA calculando o valor dos impostos sobre o valor bruto do adiantamento, gerando o título referente ao valor líquido e os títulos para cada imposto retido. No pagamento antecipado também é possível reter o INSS gerando um título do tipo INA para o pagamento do imposto. Para isso, o conteúdo do campo Calcula INSS deve ser igual a Sim. O pacote completo envolve algumas rotinas: Inclusão de títulos na rotina de contas a pagar. Borderô de pagamentos. Baixa manual e automática. Compensação de contas a pagar. Borderô de pagamento com impostos. Notas de Créditos Utilizado para indicar a existência de notas de crédito/débitos em clientes ou fornecedores. Nestes casos, o saldo bancário não sofre atualização. Na implantação de uma nota de crédito deve ser indicado o tipo NCC ou NDF ou informado como Nota de Crédito/Nota de Débito no campo Tipos de títulos. Abatimentos Utilizado para indicar a existência de valores que devem ser abatidos no título. Está sempre vinculado a um título principal. Para implantar um título de abatimento, deve ser indicado o tipo AB ou o tipo indicado como Abatimento no campo Tipos de títulos. Devem ser digitados o prefixo, número e parcela do título principal ou posicionar o cursor sobre o título principal e digitar o tipo referente a abatimento. Nota Se o sistema encontrar títulos com chaves parecidas de acordo com a chave do abatimento que está sendo incluído, será apresentada uma tela com os títulos para seleção do título correto que será abatido. Exemplo:
Natureza:	Identifica a procedência da natureza do título e permite a consolidação por este item, bem como, o controle orçamentário. Se necessário, utilize o recurso de Consulta Padrão para selecionar a natureza do título e fazer o preenchimento do campo. Exemplo: ISS Aviso Este campo não estará disponível para alteração, quando o titulo a pagar estiver contabilizado ou baixado.
Fornecedor:	Informe o código do fornecedor. Se necessário, utilize o recurso de Consulta Padrão para selecionar o fornecedor cadastrado e fazer o preenchimento do campo. Exemplo: FIN061
Loja:	Informe o código que identifica a loja do fornecedor. Exemplo: 01
Nome Fornecedor	Apresenta o nome do fornecedor. É preenchido automaticamente de acordo com o conteúdo definido no campo Fornecedor. Exemplo: Fornecedor PJ
DT. emissão:	Data da emissão do título. Exemplo: 17/12/2015
Vencimento:	Informe data de vencimento nominal do título considerando também as possíveis prorrogações. Exemplo: O título número FIN000024 tem seu vencimento para a data de 17/12/2015, mas, por questões comerciais com o fornecedor, houve uma prorrogação de 10 dias para o seu pagamento. Desta forma, este campo deve estar preenchido com a data de 27/12/2015. Nota O sistema não permite data de vencimento menor que a data de emissão do título.
Vencto real:	Data do vencimento real do título calculada automaticamente a partir da data informada no campo Vencimento. Exemplo: 17/12/2015 Nota O sistema considera apenas os dias úteis, ou seja, verifica se a data do vencimento será no sábado, domingo ou feriado e descarta estes dias. Há também, a verificação dos dias de retenção sugeridos pelo Banco que contempla a transferência de títulos do Banco para carteira e, consequentemente, ajusta o preenchimento do campo.
Vlr. título:	Valor original do título na moeda corrente. Exemplo: 1.835,62
Histórico:	Este campo permite o preenchimento de um breve comentário sobre o título.
Saldo:	O sistema mantém neste campo o saldo atualizado do valor do título após cada uma das transações efetuadas. Exemplo: 1.835,62
Moeda:	Código da moeda em que o título está sendo informado. Moeda 1 = padrão monetário nacional e moedas de 2 a 5 de acordo com os critérios definidos nos parâmetros MV_MOEDA2, MV_MOEDA3, MV_MOEDA4 e MV_MOEDA5 por meio do módulo Configurador. Exemplo: 1
Vlr. R$:	Valor do título expresso em moeda corrente. Exemplo: 1.835,62
Taxa Moeda:	Se for informada uma taxa, será utilizada como base de conversão no momento da baixa, caso contrário, será utilizada a taxa contratada ou a taxa da moeda do dia da baixa.
Cód. Aprov.:	Código do aprovador do título conforme regras para aprovação simples ou alçada de fundo fixo. Se necessário, utilize o recurso de Consulta Padrão para selecionar o aprovador do título e fazer o preenchimento do campo.

Execução Automática

Execução das operações automáticas

VISÃO GERAL

Exemplo de execução automáticas das operações de inclusão, exclusão e alteração de títulos a pagar.

Aviso

A função Fa050Inclu() não pode ser usada em customizações por se tratar de um função de menu existem algumas dependências de variáveis privates declaradas no FINA050.

EXEMPLO DE UTILIZAÇÃO

Inclusão

#INCLUDE "Protheus.ch"
USER FUNCTION FIN050INC()
	LOCAL aArray := {}
	 
	PRIVATE lMsErroAuto := .F.
	
	//Estrutura para PA ( Pagamento Antecipado )
	aArray := { { "E2_PREFIXO"  , "PAG"             , NIL },;
				{ "E2_NUM"      , "0001"            , NIL },;
				{ "E2_TIPO"     , "PA"              , NIL },;
				{ "E2_NATUREZ"  , "001"             , NIL },;
				{ "E2_FORNECE"  , "0001"            , NIL },;
				{ "E2_EMISSAO"  , CtoD("17/02/2012"), NIL },;
				{ "E2_VENCTO"   , CtoD("17/02/2012"), NIL },;
				{ "E2_VENCREA"  , CtoD("17/02/2012"), NIL },;
				{ "E2_VALOR"    , 5000              , NIL },;
				{ "AUTBANCO"    , "001"				, NIL },;
				{ "AUTAGENCIA"  , "1234"			, NIL },;
				{ "AUTCONTA"    , "123456"			, NIL } }

	//Estrutura para demais títulos
	aArray := { { "E2_PREFIXO"  , "PAG"             , NIL },;
				{ "E2_NUM"      , "0001"            , NIL },;
				{ "E2_TIPO"     , "NF"              , NIL },;
				{ "E2_NATUREZ"  , "001"             , NIL },;
				{ "E2_FORNECE"  , "0001"            , NIL },;
				{ "E2_EMISSAO"  , CtoD("17/02/2012"), NIL },;
				{ "E2_VENCTO"   , CtoD("17/02/2012"), NIL },;
				{ "E2_VENCREA"  , CtoD("17/02/2012"), NIL },;
				{ "E2_VALOR"    , 5000              , NIL } }
	 
	MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aArray,, 3)  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
	 
	 
	If lMsErroAuto
		MostraErro()
	Else
		Alert("Título incluído com sucesso!")
	Endif
	 
Return

Alteração

#INCLUDE "Protheus.ch"
USER FUNCTION FIN050ALT()
	LOCAL aArray := {}
	 
	PRIVATE lMsErroAuto := .F.

	aArray := { { "E2_PREFIXO"  , "PAG"             , NIL },;
				{ "E2_NUM"      , "0001"            , NIL },;
				{ "E2_VALOR"    , 2000              , NIL } }  

	DbSelectArea("SE2") 
	DbSetOrder(1)
	DbSeek(xFilial("SE2")+"PAG"+"0001     "+" "+"NF") //Alteração deve ter o registro SE2 posicionado
			 
	MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aArray,, 4)  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão

	If lMsErroAuto
		MostraErro()
	Else
		Alert("Título alterado com sucesso!")
	Endif

Return

Exclusão

#INCLUDE "Protheus.ch"
USER FUNCTION FIN050EXC()
	LOCAL aArray := {}
	 
	PRIVATE lMsErroAuto := .F.
	 
	DbSelectArea("SE2") 
	DbSetOrder(1)
	DbSeek(xFilial("SE2")+"PAG"+"0001     "+" "+"NF") //Exclusão deve ter o registro SE2 posicionado
									
	aArray := { { "E2_PREFIXO" , SE2->E2_PREFIXO , NIL },;
					{ "E2_NUM"     , SE2->E2_NUM     , NIL } }
	 
	MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aArray,, 5)  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
	 
	If lMsErroAuto
		MostraErro()
	Else
		Alert("Exclusão do Título com sucesso!")
	Endif
 
Return

Inclusão com VA (Valores acessorios)

#INCLUDE "Protheus.ch"
USER FUNCTION FIN050VA()
    LOCAL aArray := {}
    LOCAL nOpc   := 3 // 3-Inclusão, 4 Alteração
 
    // Dados do valor acessório.
    LOCAL aVAAut     := {}
    LOCAL cValAce1   := "000001"  // Código do Va
    LOCAL nValAce1   := 200       // Valor do Va
    LOCAL cValAce2   := "000012"
    LOCAL nValAce2   := 4
 
    PRIVATE lMsErroAuto := .F.
  
    aArray := { { "E2_PREFIXO"  , "PAG"             , NIL },;
              { "E2_NUM"      , "0001"            , NIL },;
              { "E2_TIPO"     , "NF"              , NIL },;
              { "E2_NATUREZ"  , "001"             , NIL },;
              { "E2_FORNECE"  , "0001"            , NIL },;
              { "E2_EMISSAO"  , CtoD("17/02/2012"), NIL },;
              { "E2_VENCTO"   , CtoD("17/02/2012"), NIL },;
              { "E2_VENCREA"  , CtoD("17/02/2012"), NIL },;
              { "E2_VALOR"    , 5000              , NIL } }
  
    // Array com valor acessório
    aAdd(aVAAut, {cValAce1, nValAce1})
    aAdd(aVAAut, {cValAce2, nValAce2})
 
    MsExecAuto( { |a,b,c,d,e,f,g,h,i,j,k,l| FINA050(a, b, c, d, e, f, g, h, i, j, k, l)}, aArray,, nOpc,,,,,,,,, aVAAut)  
  
    If lMsErroAuto
        MostraErro()
    Else
        If nOpc == 3       
            Alert("Título incluido com sucesso!")
        Else
            Alert("Título alterado com sucesso!")
        EndIf
    Endif
  
Return

Inclusão com PA com cheque

#INCLUDE "Protheus.ch"
USER FUNCTION FIN050INCPA()
    LOCAL aArray := {}
  
    PRIVATE lMsErroAuto := .F.
  
    aArray := { { "E2_PREFIXO", "PAG"             , NIL },;
              { "E2_NUM"      , "0001"            , NIL },;
              { "E2_TIPO"     , "PA"              , NIL },;
              { "E2_NATUREZ"  , "001"             , NIL },;
              { "E2_FORNECE"  , "0001"            , NIL },;
              { "E2_EMISSAO"  , CtoD("17/02/2012"), NIL },;
              { "E2_VENCTO"   , CtoD("17/02/2012"), NIL },;
              { "E2_VENCREA"  , CtoD("17/02/2012"), NIL },;
              { "E2_VALOR"    , 5000              , NIL },;
              { "AUTBANCO"    , "FIN"             , NIL },;
              { "AUTAGENCIA"  , "00015"           , NIL },;
              { "AUTCONTA"    , "0000000001"      , NIL },;
              { "AUTMOED"     , "1"               , NIL },;
              { "AUTCHEQUE"   , "124569"          , NIL }}
  
    MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aArray,, 3)  // 3 - Inclusão
   
    If lMsErroAuto
        MostraErro()
    Else
        Alert("Título incluído com sucesso!")
    Endif
  
Return

Inclusão com rateio de projeto (PMS)

USER FUNCTION F050IPMS()
	Local cPref := "FIN"
	Local cNum := "210408001"
	Local cPar := "1"
	Local cTipo := "NF"
	Local cNaturez := "FGRV01"
	Local cFornec := "FGRV04"
	Local cLoja := "01"
	Local nValor := 1000
	Local aGrvSe2 := {}
	Local aInfProj := {}
	Local aInfAFR := {}
 
	PRIVATE lMsErroAuto := .F.
 
	PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "D MG 01 " MODULO "FIN" TABLES "SE2","SE5","SA2","AFR","AF9","AF8"
	 
	aAdd(aInfAFR, {"AFR_PROJET", PadR("PMSU000023", TamSX3("AF9_PROJET")[1]), Nil})
	aAdd(aInfAFR, {"AFR_TAREFA", "01.02", Nil})
	aAdd(aInfAFR, {"AFR_TIPOD", PadR("0004", TamSx3("AFR_TIPOD")[1]), Nil})
	aAdd(aInfAFR, {"AFR_VALOR1", nValor, Nil})
	aAdd(aInfAFR, {"AFR_REVISA", StrZero(4, TamSX3("AFR_REVISA")[1]), Nil})
	aAdd(aInfAFR, {"AFR_PREFIX", cPref, Nil})
	aAdd(aInfAFR, {"AFR_NUM", cNum, Nil})
	aAdd(aInfAFR, {"AFR_PARCEL", cPar, Nil})
	aAdd(aInfAFR, {"AFR_TIPO", cTipo, Nil})
	aAdd(aInfAFR, {"AFR_FORNEC", cFornec, Nil})
	aAdd(aInfAFR, {"AFR_LOJA", cLoja, Nil})
	aAdd(aInfAFR, {"AFR_DATA", Date(), Nil})
	aAdd(aInfAFR, {"AFR_VENREA", Date(), Nil})
	aAdd(aInfProj, aInfAFR)
 
	aGrvSe2 := { { "E2_PREFIXO" , cPref , NIL },;
	{ "E2_NUM" , cNum , NIL },;
	{ "E2_TIPO" , cTipo , NIL },;
	{ "E2_NATUREZ" , cNaturez , NIL },;
	{ "E2_FORNECE" , cFornec , NIL },;
	{ "E2_LOJA" , cLoja , NIL },;
	{ "E2_EMISSAO" , Date() , NIL },;
	{ "E2_VENCTO" , Date() , NIL },;
	{ "E2_VENCREA" , Date() , NIL },;
	{ "E2_VALOR" , nValor , NIL },;
	{ "E2_PROJPMS" , "2" , NIL },;
	{ "E2_HIST" , "Inclusão de Projeto" , NIL },;
	{"AUTRATAFR" , aInfProj ,Nil } }
 
	MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aGrvSe2,, 3) // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
 
	If lMsErroAuto
		MostraErro()
	Else
		Conout("Título incluído com sucesso!")
	Endif
 
Return

Código de retenção de títulos a pagar

#INCLUDE "Protheus.ch"

/*	Quando houver qualquer tipo de operação que envolva a inserção de valor no campo
	E2_CODRET, é necessário utilizar a função SetFuName("FINA050") antes de executar a MSExecAuto(),
	pois existe uma validação no X3_VALID -(EXISTCPO("SX5","37"+M->E2_CODRET) .AND. Iif(FUNNAME() $ "FINA050|FINA750",FA050Natur(),.T.))
	deste campo que so ira realizar o calculo do imposto por código de retenção se o FunName() estiver contido em "FINA050".	*/

USER FUNCTION F050CODRET()
	LOCAL aArray := {}
	 
	PRIVATE lMsErroAuto := .F.
	
	//Estrutura para demais títulos
	aArray := { { "E2_PREFIXO"  , "PAG"             , NIL },;
				{ "E2_NUM"      , "0001"            , NIL },;
				{ "E2_TIPO"     , "NF"              , NIL },;
				{ "E2_NATUREZ"  , "001"             , NIL },;
				{ "E2_FORNECE"  , "0001"            , NIL },;
				{ "E2_EMISSAO"  , CtoD("17/02/2012"), NIL },;
				{ "E2_VENCTO"   , CtoD("17/02/2012"), NIL },;
				{ "E2_VENCREA"  , CtoD("17/02/2012"), NIL },;
				{ "E2_VALOR"    , 5000              , NIL },;
 				{ "E2_DIRF"     , "1"				, NIL },;
				{ "E2_CODRET"   , "3208"            , NIL }}
	
	SetFunName("FINA050") 
	MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aArray,, 3)  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
	 
	 
	If lMsErroAuto
		MostraErro()
	Else
		Alert("Título incluído com sucesso!")
	Endif
	 
Return

Substituição de titulo provisório

#INCLUDE "Protheus.ch"
USER FUNCTION FIN050SUBST()
	LOCAL aArray := {}
	LOCAL aAuxTitPrv := {}
	LOCAL aTitPrv    := {}
	 
	PRIVATE lMsErroAuto := .F.
	
	//Titulo efetivo
	aArray := { { "E2_PREFIXO"  , "DRG"             , NIL },;
				{ "E2_NUM"      , "VT002"            , NIL },;
				{ "E2_PARCELA"  , " "               , NIL },;
				{ "E2_TIPO"     , "NF"              , NIL },;
				{ "E2_NATUREZ"  , "001"             , NIL },;
				{ "E2_FORNECE"  , "001"            , NIL },;
				{ "E2_LOJA"     , "00"              , NIL },;
				{ "E2_EMISSAO"  , CtoD("27/10/2021"), NIL },;
				{ "E2_VENCTO"   , CtoD("27/10/2021"), NIL },;
				{ "E2_VENCREA"  , CtoD("27/10/2021"), NIL },;
				{ "E2_VALOR"    , 5000              , NIL } }
		
	//No array aAuxTitPrv devera conter as informações dos títulos provisórios que serão substituídos
	aAuxTitPrv := { { "E2_PREFIXO"          ,PadR("DRG",TamSx3("E2_PREFIXO")[1])  	, NIL },;
					{ "E2_NUM"              ,PadR("000000001",TamSx3("E2_NUM")[1])  , NIL },;
					{ "E2_PARCELA"          ,PadR("1",TamSx3("E2_PARCELA")[1])      , NIL },;
					{ "E2_TIPO"             ,PadR("PR ",TamSx3("E2_TIPO")[1])       , NIL },;
					{ "E2_FORNECE"          ,PadR("001",TamSx3("E2_FORNECE")[1])    , NIL },;
					{ "E2_LOJA"             ,PadR("00",TamSx3("E2_LOJA")[1])        , NIL }}
	
	aadd(aTitPrv, aAuxTitPrv)
		
	MsExecAuto({|a,b,c,d,e,f,g,h,i,j| FINA050(a,b,c,d,e,f,g,h,i,j)},aArray,,6,,,,,,aTitPrv)
	 
	 
	If lMsErroAuto
		MostraErro()
	Else
		Conout("Título substituído com sucesso!")
	Endif
	 
Return

Inclusão com Complemento de Título

#INCLUDE "Protheus.ch"

/*
Exemplo: 
	Inclusão de título a pagar com cálculo de IR, preenchendo a 
	natureza de rendimento (FKF_NATREN) no complemento do título (FKF).
*/
User Function A050Inc1()

    Local aArray  := {}
	Local aFKF    := {}
	Local cNatRen := "13002"      

	PRIVATE lMsErroAuto := .F.

    //Dados da SE2
    aArray := { { "E2_PREFIXO"  , "BOL"              , NIL },;
                { "E2_NUM"      , "BOL00110"         , NIL },;
                { "E2_TIPO"     , "BOL"              , NIL },;
                { "E2_NATUREZ"  , "RNF000002"        , NIL },;
                { "E2_FORNECE"  , "RNF017"           , NIL },;
                { "E2_LOJA"     , "01"               , NIL },;
                { "E2_EMISSAO"  , CtoD("09/02/2023") , NIL },;
                { "E2_VENCTO"   , CtoD("09/02/2023") , NIL },;
                { "E2_VENCREA"  , CtoD("09/02/2023") , NIL },;
                { "E2_VALOR"    , 5000               , NIL }}

	//Dados da FKF - Complemento do titulo
	aFKF := { { "FKF_NATREN", cNatRen , NIL }}

	aAdd(aArray, {"AUTCMTIT", aFKF, Nil})
    
    MsExecAuto( { |x,y,z| FINA050(x,y,z)}, aArray,, 3)  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão
      
    If lMsErroAuto
        MostraErro()
    Else
        Conout("Titulo incluso com sucesso!")
    Endif

Return

DEMAIS INFORMAÇÕES

Não há.

ASSUNTOS RELACIONADOS

Documento de referencia FINA050

Conteúdos Relacionados

Financeiro.
Parâmetros/Configurações.
Naturezas
Fornecedor.
Centro de custo.
Item contábil.
Classe de valor.
Plano de contas.
Lançamento padrão.
Calendário contábil.
Moeda X Calendário.
Cliente.
Vendedor.
Banco.
Condição de pagamento.
Contas a Receber.
PIS - COFINS - CSLL - Novas Regras de Retenção - Lei 13.137/2015.
Adequação da Lei 13.137 – Novas regras para PIS, COFINS e CSLL.
Reestruturação da tabela SE5 na família de tabelas FKx.
Base de Conhecimento - Contas a Pagar.
Comunidade P@ Controladoria - Fluig.
Contas a Pagar - LPs
Gravação dos Campos de Entidades Contábeis Adicionais - Tabelas Financeiro
Gravação do log de alteração na inclusão de títulos a receber/pagar - Log de Auditoria
Alteração de regra de vencimento dos impostos
FIN0052_DESCRICAO_CAMPOS_E2_LINDIG_E_E2_CODBAR

Campo:	Descrição
Taxa Perman.:	Indica o valor que deve ser acrescentado ao título por dia de atraso de pagamento. Para efeito de cálculo, o sistema considera dias corridos e este campo tem prioridade sobre o campo Porc. Juros na baixa do título. Nota Caso necessário, a prioridade pode ser alterada de acordo com a configuração do parâmetro MV_FINJRTP que considera alguns critérios quando os títulos estiverem com ambos os campos preenchidos: 1 - Aplica somente a Taxa de Permanência (conteúdo padrão). 2 - Aplica somente Juros. 3 - Aplica a Taxa de Permanência e os Juros. Exemplo: Considerando um título com as seguintes características: Prefixo: 001. Número: 000014. Tipo: DP. Data da emissão: 10/04/15. Vencimento: 11/04/15. Vencimento real: 11/04/15. Valor original: 1.000,00. Taxa de permanência: 1,00. Na baixa do título, o sistema apresenta as seguintes informações: Data da baixa do título: 16/04/15. Valor da taxa de permanência: 5,00 (referente a 5 dias de atraso). Valor recebido do título: 1.005,00.
Porc. Juros:	Neste campo deve ser informado o percentual de juros que será cobrado por dia de atraso no pagamento sobre o valor original do título. Para efeito de cálculo, o sistema considera dias corridos. Para o sistema considerar o percentual de juros, o campo Taxa de Permanência não pode estar informado, caso contrário ele é considerado como prioridade. Nota Caso necessário, a prioridade pode ser alterada de acordo com a configuração do parâmetro MV_FINJRTP que considera alguns critérios quando os títulos estiverem com ambos os campos preenchidos: 1 - Aplica somente a Taxa de Permanência (conteúdo padrão). 2 - Aplica somente Juros. 3 - Aplica a Taxa de Permanência e os Juros. Exemplo: Considere um título que tenha vencimento no dia 11/04/15 (sábado). Neste caso, seu vencimento real será no dia 13/04/15, porém, caso o pagamento seja feito no dia 16/04/15, o sistema considera 5 dias de atraso e o cenário fica da seguinte forma: Prefixo: 001. Número: 000015. Tipo: DP. Data da emissão: 09/04/15. Vencimento: 11/04/15. Vencimento real: 13/04/15. Valor original: 1.000,00. Taxa de permanência: não Informada. Porc. juros: 1,00 (1% sobre o valor original do título). Data da baixa: 16/04/15. Valor recebido: 1.050,00.
Acréscimo:	Valor de acréscimo aplicado ao título. Será adicionado no momento da baixa, ainda que o título seja pago até a data de vencimento e um valor de acréscimo fixo conhecido no momento da implantação.
Fluxo de caixa:	Neste campo é definido se o título deve ser considerado no fluxo de caixa, ou seja, no controle da movimentação financeira que contempla as entradas e saídas de recursos financeiros. As opções que contemplam seu preenchimento são: S – Sim. N – Não.
Desdobramento:	Permite a geração de diversos títulos com datas de vencimento diferenciadas a partir de uma única inclusão. Este recurso deve ser utilizado para despesas com vencimentos fixos (como por exemplo, o pagamento de aluguéis). O desdobramento de um título pode ser por rateio contábil (lançamento padrão 511) ou por múltiplas naturezas (lançamento padrão 510). Os percentuais informados no rateio serão copiados para todas as parcelas do desdobramento. O sistema não faz o tratamento de impostos nesta situação. Se for utilizado desdobramento sem rateio o lançamento contábil padrão é o 577. Não é possível efetuar desdobramento por rateio e por múltiplas naturezas em uma mesma operação. Para que os impostos sejam calculados quando há desdobramento de títulos, é necessário ter as seguintes condições: Utilizar o processo de Rastreamento financeiro: oferece uma forma de visualização referente às negociações ocorridas com títulos financeiros que compõe o documento inicial). Nas rotinas de Fornecedor e Natureza o campo Desdobramento deve estar preenchido com a opção Sim. Os títulos de impostos, configurados para retenção na emissão dos títulos a pagar são gerados conforme a regra de cálculo de cada imposto. Para os impostos que contemplam a apuração por determinado período ou valor (como por exemplo, PIS, COFINS e CSLL retidos na emissão), não haverá recálculo ou ajustes nas seguintes situações: O título retentor dos impostos esteja fora do desdobramento. Após o cancelamento, quando o procedimento padrão de cumulatividade para retenção dos impostos não é atendido. Nota A exclusão de títulos com desdobramentos é realizada por meio da rotina de Contas a Receber.
Aprovador:	Aprovador necessário para o pagamento do título. Pode ser utilizado no processo de workflow.
Decréscimo:	Este campo define um valor de decréscimo aplicado ao título. Quando é informado na baixa a pagar (independente da data da baixa), o sistema diminui do valor do título o decréscimo informado nesse campo.
Mult. Natureza:	Este campo define se os títulos serão classificados em múltiplas naturezas. Para que este campo esteja habilitado na inclusão do título a pagar, é necessário que o parâmetro MV_MULNATP esteja configurado com T. Ao distribuir o valor do título entre múltiplas naturezas, existe a possibilidade de ratear o valor de cada natureza entre diversos centros de custos, considerando alguns critérios para os lançamentos padrões: 508 - Rateio por centro de custo de distribuição em múltiplas naturezas. 509 – Cancelamento do rateio por centro de custo de distribuição em múltiplas naturezas. Estes lançamentos padrões estão disponíveis para contabilização on-line (508, 509) ou off-line (508) e devem ser utilizados em conjunto com o lançamento padrão 510 (inclusão de títulos de contas a pagar). As distribuições de valores por múltiplas naturezas que não utilizam o rateio por centro de custo serão contabilizadas como inclusão (lançamentos padrão 510). As distribuições que utilizam o rateio por centro de custo terão sua contabilização efetuada pelos lançamentos mencionados (lançamento padrão 508, porém, não será executado caso não exista o lançamento padrão 510). A contabilização de títulos a pagar distribuídos em múltiplas naturezas será efetuada utilizando o mesmo lançamento padrão da inclusão/exclusão do título, sendo necessário apenas informar no cadastro do Lançamento padrão o valor que deve ser utilizado na contabilização. Se não for feito desta maneira, a contabilização fica exposta a duplicidade de valores. Nota Na inclusão de títulos a pagar com rateio via rotina automática, deve-se utilizar o parâmetro MV_RATAUTO configurado com .T., para exibir a tela de rateio multi natureza.
Tx. Cor. Moeda:	Campo que contem a última taxa que foi utilizada no cálculo da correção monetária para os títulos com moeda diferente de 1.
Possuí Docs:	Define se o título possui documentos vinculados com o objetivo de bloquear os títulos a pagar que não apresentam os documentos necessários.

Campo:	Descrição
Portador:	Código do portador utilizado para identificar o agente cobrador responsável pela cobrança do título.
Mod. pagamento:	Modalidade de pagamento prevista. Exemplo: 1 – TED.
Data agend.:	Data de agendamento da liquidação do título.
Linha dig.:	Dados referentes a linha digitável do título.
Agência for.:	Agência bancária de pagamento do fornecedor do título a pagar.
DV agência:	Dígito verificador da agência bancária de pagamento do fornecedor do título a pagar.
Conta for.:	Conta bancária de pagamento do fornecedor do título a pagar.
DV conta:	Dígito verificador da conta bancária de pagamento do fornecedor do título a pagar.
Banco for.:	Banco de pagamento do fornecedor do título a pagar.
Forma pagto:	Indica a forma de pagamento preferencial para o fornecedor.

Campo:	Descrição
Rateio:	Indica se o valor do título deve ser rateado em diversos centros de custos por meio do preenchimento entre as opções S – Sim e N – Não. Os lançamentos dos títulos a pagar podem ser rateados entre entidades contábeis (conta contábil, centro de custo, item contábil e classe valor). Desta forma, devem ser cadastrados os lançamentos padrões: 511 - Inclusão de título de contas a pagar com rateio (lançamento padronizado). 512 - exclusão de título de contas a pagar com rateio. É importante verificar a configuração dos campos acionados por meio da tecla [F12], pois, determinam o valor utilizado no rateio (bruto ou líquido), aglutinação dos lançamentos, informação das contas contábeis etc. Nota Os rateios lançados para o processo de contas a pagar sofrem um controle interno como chave única de digitação, por meio do campo It. Seq. (não apresentado em tela), de maneira que, as linhas do rateio são numeradas como itens de forma automática e sequencial. A configuração do parâmetro MV_INTPMS permite ratear as contas a pagar por projeto.
Cta. contábil:	Define a conta contábil em que será efetuado o lançamento contábil manual nos planos de orçamentos referente ao processo de contas a Pagar.
Seq. diário:	Código sequencial do diário para a contabilidade.
Cod. diário:	Código do diário que deve ser utilizado para o movimento.
C. de custo:	Centro de Custo considerado para o processo de contas a pagar.

Campo:	Descrição
Rateio proj.:	Indicador de rateio de Projetos (ligado ao PMS – Gestão de Projetos). O preenchimento do campo é definido por meio da seleção entre as opções 1 – Sim e 2 – Não.
Cod. orçam.:	Representa o código do plano orçamentário e a solicitação será validada neste plano em relação ao orçado e realizado. O sistema sempre considera o conteúdo deste campo com o plano padrão definido no parâmetro MV_PLAPAD, entretanto, também é possível informar o plano desejado para efetuar a compra e, consequentemente, a reserva dos valores pré-definidos neste plano.
Num. contrato:	Código do contrato.
Ver. cont.:	Código da revisão do contrato.
Num. planilh.:	Código da planilha do contrato.
Num. cronogr.:	Código do cronograma financeiro do contrato.
Num. parcela:	Parcela do cronograma financeiro.
Cod. RDA:	Código da rede de atendimento relacionado à rotina de Redes de Atendimento do módulo Plano de Saúde.
Bonific. Ctr.:	Valor de bonificações do contrato abatido no título financeiro.
Retenção Ctr.:	Valor de retenção do contrato abatido no título financeiro.
Multa Ctr.:	Valor de multas do contrato abatido no título financeiro.
Desconto Ctr.:	Valor de descontos do contrato abatido no título financeiro.
Proc. refer.:	Número do processo referenciado relacionado ao título. Essa informação é considerada na geração do SPED, PIS e COFINS.
Tp. processo:	Define o tipo do processo relacionado ao título. Essa informação é considerada na geração do SPED, PIS e COFINS.
Cod. operad.:	Código da operadora de frete responsável pela geração do título.
Nome operad.:	Nome da operadora de frete responsável pela geração do título.
Tp de serv.:	Tipo de serviço prestado.
Vl. FAMAD:	Valor do tributo FAMAD (Fundo de Apoio à Madeira).
Vl. FUMIPEQ:	Valor do FUMIPEQ (Fundo Municipal de Fomento à Micro e Pequena Empresa).
Parc. FAMAD:	Parcela do FAMAD (Fundo de Apoio à Madeira).
Parc. FUMIPEQ:	Parcela do FUMIPEQ (Fundo Municipal de Fomento à Micro e Pequena Empresa).
Ret. INSS:	Trata o valor do INSS retido quando os títulos são gerados pelo módulo Gestão de Transportes por meio do campo INSS Retido na rotina Complemento de Viagem quando a frota do veículo é referente a terceiro ou agregado, entretanto, quando é própria o campo não fica habilitado. Os valores informados no campo INSS Retido referem-se aos serviços de transportes prestados pelo motorista em outras transportadoras. Esse valor é somado ao valor do INSS calculado em relação ao frete que deve ser recebido no contrato de carreteiro considerando a configuração do parâmetro MV_LIMINSS.
Cod. CNO:	Informe o código referente ao cadastro nacional de obra.
CNPJ:	CNPJ do retentor de INSS.
Desc. F100	Classifica o valor de Decréscimo como Condicional ou Incondicional no envio dos dados no bloco F100 do SPED PIS/COFINS. Se o título estiver classificado como Desconto F100 = I (incondicional) o valor do decréscimo é subtraído no valor da base para o cálculo das apurações e o registro referente ao valor do desconto não é enviado no bloco F100 do SPED PIS/COFINS.

Árvore de páginas

Contas a Pagar - FINA050 - Financeiro - P12