Histórico da Página

...

A rotina Faturas a Pagar permite aglutinar efetivar aglutinação ou parcelamento dos titulos em aberto de um fornecedor.

Utilizando de uma Condição de Pagamento, o processo permite:

• Parcelar um título em várias parcelas (1:N)
• Aglutinar vários títulos em um titulo novo (N:1)
  
• Aglutinar vários títulos em

...

• diversas parcelas (N:N),

Essas negociações podem ser realizadas para o mesmo fornecedor e permite gerá-los apenas para a loja do título principal ou se desejar para todas as lojas do fornecedor.

Estas transações atendem empresas que emitem ou recebem várias notas e apenas uma fatura.

Nesta operação novos títulos são gerados e o sistema solicita o Código da Condição de Pagamento no qual é definido o desdobramento do título, baixando os títulos originais.

02. EXECUÇÃO 

...

Procedimento efetuado de forma manual via rotina Faturas a Pagar (FINA290), com exibição das telas envolvidas no processo e necessitando de ações/comandos

...

• Automática

Procedimento realizado de forma automática na rotina de Faturas a Pagar (FINA290), sem exibição de telas ou necessidade de interação do usuário.

...

do usuário

...

...

#include “Protheus.ch”

User Function F290Fat2()

Local aCab := {} // array que recebera as informações do titulo
Local aFatPagAut := {} // array que recebera dados para geração da fatura
Local aTit := {}
Private lMsErroAuto := .F.

//|-------------------------------|
//| ARRAY DE TITULOS              |
//|-------------------------------|


aTit := {{ "FIN" /*Prefixo*/,;

"FINA290 " /*Numero*/,;

"1" /*Parcela*/,;

"NF " /*Tipok*/,;

.F. /*Título localizado na geracao de fatura (lógico)*/},;

{ "FIN" /*Prefixo*/,;

"FINA290 " /*Numero*/,;

"2" /*Parcela*/,;

"NF " /*Tipok*/,;

.F. /*Título localizado na geracao de fatura (lógico)*/};
}

//|----------------------------------------------|
//| ARRAY DE GERAÇÃO FATURA                      |
//|----------------------------------------------|


aFatPagAut := { "FIN" /*Prefixo*/,;

"FT" /*Tipo*/,;

"1520165" /*Numero da Fatura*/,;

"FIN2000028" /*Natureza*/, ;

CtoD("15/09/2016") /*Data de*/,;

CtoD("15/09/2016") /*Data Ate*/,;

"FIN142" /*Fornecedor*/,;

"01" /*Loja*/,;

"" /*Fornecedor para geracao*/,;

"" /*Loja do fornecedor para geracao*/,;

"003" /*Condicao de pagto*/,;

01 /*Moeda*/,;

aTit /*ARRAY com os titulos da fatura*/,;

/*Valor de decrescimo*/,;

/*Valor de acrescimo*/ 
}

MsExecAuto( { |x,y,z| FINA290(x,y,z)}, 3,aFatPagAut, .T.)//3 - Inclusao, 4 - Alteração, 5 - Exclusão (nPosArotina,aFatPag,lAutomato)

If lMsErroAuto
   MostraErro()
Else
   Alert("Fatura gerada com sucesso!")
Endif

Return

/*
______________________________________________________________________________________________________________________________________________

*/
#include “Protheus.ch”

User Function F290Fat2()

Local aCab := {} // array que recebera as informações do titulo
Local aFatPagAut := {} // array que recebera dados para geração da fatura
Local aTit := {}
Private lMsErroAuto := .F.

//|-------------------------------|
//| ARRAY DE TITULOS              |
//|-------------------------------|


aTit := {{ "FIN" /*Prefixo*/,;

"FINA290 " /*Numero*/,;

"1" /*Parcela*/,;

"NF " /*Tipok*/,;

.F. /*Título localizado na geracao de fatura (lógico)*/},;

{ "FIN" /*Prefixo*/,;

"FINA290 " /*Numero*/,;

"2" /*Parcela*/,;

"NF " /*Tipok*/,;

.F. /*Título localizado na geracao de fatura (lógico)*/};
}

//|----------------------------------------------|
//| ARRAY DE GERAÇÃO FATURA                      |
//|----------------------------------------------|


aFatPagAut := { "FIN" /*Prefixo*/,;

"FT" /*Tipo*/,;

"1520165" /*Numero da Fatura*/,;

"FIN2000028" /*Natureza*/, ;

CtoD("15/09/2016") /*Data de*/,;

CtoD("15/09/2016") /*Data Ate*/,;

"FIN142" /*Fornecedor*/,;

"01" /*Loja*/,;

"" /*Fornecedor para geracao*/,;

"" /*Loja do fornecedor para geracao*/,;

"003" /*Condicao de pagto*/,;

01 /*Moeda*/,;

aTit /*ARRAY com os titulos da fatura*/,;

/*Valor de decrescimo*/,;

/*Valor de acrescimo*/ 
}

MsExecAuto( { |x,y,z| FINA290(x,y,z)}, 3,aFatPagAut, .T.)//3 - Inclusao, 4 - Alteração, 5 - Exclusão (nPosArotina,aFatPag,lAutomato)

If lMsErroAuto
   MostraErro()
Else
   Alert("Fatura gerada com sucesso!")
Endif

Return

03. OPERAÇÕES

• Selecionar

Esta opção permite incluir títulos para aglutinação.

...

Apresenta quadro das legendas e seus significados referenciados a situação da aglutinação dos títulos

• Imprimir BrosweImprimir Browser

Esta operação permite imprimir os títulos contidos na broswe no browser de acordo com as configurações feitas pelo usuário.

...

...

05.

...

PRINCIPAIS PROCESSOS

07. CONTABILIDADE

08. PONTOS DE ENTRADA

...

06. CONTABILIZAÇÃO

Lançamentos padronizados (LP) disponíveis para a contabilização da fatura a pagar:

530 - Contas a Pagar - Baixa de Título;

531- Contas a Pagar - Cancelamento de Baixas de Título;

587- Contas a Pagar - Geração de Faturas a Pagar;

593 - Contas a Pagar - Cancelamento Faturas a Pagar;

Exemplo:
TITULO A – R$ 1000,00
TITULO B – R$ 2000,00
TITULO C – R$ 3000,00

Gerada a fatura de contas a pagar com a forma de pagamento que gere duas parcelas iguais sendo a primeira com 30 e a segunda com 60 dias da data da negociação. 

Os lançamentos contábeis teriam a seguinte formação:

Variáveis de contabilização

Algumas variáveis que estão disponíveis para esta contabilização:

Geração da Fatura LP 587:

ABATIMENTO = Abatimento do título, caso existir

VALOR = Valor total da(s) fatura(s)

STRLCTPAD = F290BAIXA

Cancelamento da Fatura LP 593:

VALOR = Valor total da(s) fatura(s)

CHIST190LA = E5_CLIFOR + E5_LOJA;

Algumas tabelas utilizadas:

CT1 - Plano de contas;

CTH - Classe de valor;

CTO - Moedas;

CT2 - Lançamentos Contábeis;

07. TABELAS RELACIONADAS

As tabelas relacionadas ao processo são:

08. INFORMAÇÕES RELACIONADAS

Execução automática: Faturas a Pagar (FINA290) - Execução automática (ExecAuto)