Processo Pagamento eletrônico

Portadores são as entidades que detém posse do dos títulos, como bancos, cartórios, representantes, a própria empresa geradora, entre outros.

Na tela Portadores (F039POR) é possível cadastrar os portadores a serem utilizados nos títulos a receber e/ou pagar, determinando a posse do título, inclusive títulos providos via DDA. Neste cadastro são informados e definidos códigos de layouts e seus recursos voltados para o processo de pagamento eletrônico. São necessárias as seguintes configurações:

Acesse Cadastros > Finanças > Portadores (F039POR);
Cadastre as informações básicas do portador;
Em seguida, determine o Código Layout Exportação PE, Código Layout Importação PE, Modelo Bloqueto, Diretório Arquivos Remessa PE e Diretório Arquivos Retorno PE conforme sua necessidade;
Em Convênio PE, preencha o número do convênio que a empresa tem com o banco para pagamento eletrônico;
O campo Nº Arq.Remessa Banco PE será automaticamente preenchido pelo sistema ao fazer a geração dos arquivos;
Clique em Alterar para finalizar o cadastro do portador.

Cadastrar ocorrências internas de retorno

As ocorrências de retorno são as diversas possibilidades cadastradas no sistema que poderão ocorrer quando os títulos que foram enviados para o pagamento eletrônico retornarem dos bancos.

Estas mensagens do sistema devem estar atreladas às mensagens padrões do banco. As ocorrências de retorno do pagamento eletrônico são:

00 - Crédito ou Débito efetuado;
01 - Insuficiência de Fundos - Débito não efetuado;
02 - Crédito ou Débito cancelado pelo Pagador/Credor;
03 - Débito autorizado pela Agência – Efetuado;
04 – Rejeição.

Para o cadastro das ocorrências de retorno, acesse Cadastros > Finanças > Conta a Pagar/Receber > Ocorrências Remessa/Retorno > Ocorrências retorno pagto. eletrônico (F035OPE).

Cadastrar cliente

Faça o cadastro das parametrizações por empresa e por filial de cada cliente específico em Cadastros > Clientes e Fornecedores > Clientes > Definições/Histórico (F085HCL). Preencha os campos Banco, Agência e Nº CC no Banco, quando utilizar crédito em conta corrente ou DOC

Cadastrar parâmetros para remessa e retorno do pagamento eletrônico

Acesse Finanças > Gestão de Contas a Pagar > Pagamento Eletrônico > Parâmetros (F030PPE);
Nas guias Tipo Pagamento e Retorno faça um De > Para, atrelando o código interno do sistema ao código utilizado pelo banco;
Por fim, clique em Alterar para finalizar.

Preparar remessa

O processo de remessa consiste na seleção e agrupamento de títulos a serem enviados aos bancos para pagamento. Esses agrupamentos deverão ocorrer baseados em portador, tipo de pagamento e data específica, podendo ainda ser exclusivo a fornecedor, favorecido e forma de pagamento.

O agrupamento dos títulos não é obrigatório, os títulos podem ser enviados diretamente pela tela de remessa. A tela Preparação de Remessa do Pagamento Eletrônico (F510PPR) geralmente é utilizada quando necessita fazer o agrupamento dos títulos que serão pagos em um único boleto, por exemplo. Ou quando o usuário quer deixar pronto os dados da remessa antes de processar o arquivo.

Para gerar a preparação da remessa, siga este procedimento:

Acesse Finanças > Gestão de Contas a Pagar > Pagamento Eletrônico > Preparação remessa (F510PPR);
Informe Portador, Tipo de Pagamento, Fornecedor e Favorecido;
Confirme o agrupamento por fornecedor ou favorito ou clique em Seleção para verificar outras opções de agrupamento. Se a caixa de seleção Agrupamento não estiver marcada, não será sugerido qualquer número de agrupamento;
Em seguida, clique em Mostrar para visualizar os títulos a serem pagos;
Selecione um ou mais títulos e clique em Processar para que a situação desses títulos fiquem como "PE - Pagamento Eletrônico" e o portador dos títulos seja alterado;
Caso desejar remover um desses títulos do agrupamento, selecione a opção de alterar e clique em Mostrar;
Em seguida, desmarque o título e clique novamente em Processar.

Também é possível mudar o título de agrupamento, desde que seja para um agrupamento com o mesmo tipo de pagamento e mesmo fornecedor. Para isso, após mostrar os títulos, selecionar o título desejado e preencher no campo Agrupamento, o número do agrupamento para o qual será alterado, e clique em Processar.

Gerar controle de aprovação

Este processo não é obrigatório, mas tem a finalidade de aprovar ou desaprovar as remessas geradas dos títulos financeiros para o pagamento eletrônico, podendo ainda, se necessário, retirar títulos de remessas já aprovadas, proporcionando à empresa um controle complementar no processo de pagamento eletrônico.

Como premissa para este processo, é necessário que a rotina "28 - Contas a Pagar - Pagamento Eletrônico" esteja ativa e devidamente parametrizada no sistema, através da tela F068RNA. Esta rotina obriga a prévia aprovação ou não das remessas por controle de nível, usuário e faixa de valor.

Após configurar as opções de controle de aprovação para a rotina, será apresentado no cabeçalho da tela F510PRM, o campo Opção, com os itens "Preparar" e "Enviar", que indicará se irá fazer a preparação do pagamento eletrônico para aprovação ou enviar o arquivo efetivamente para o banco (após aprovação de todos os níveis exigidos).

Nas aprovações é permitido selecionar os títulos que se deseja aprovar, conforme faixa de aprovação do usuário e também definir um agrupamento de títulos.

Ao retirar títulos que fazem parte de agrupamento, todos os títulos que pertencem ao agrupamento são retirados. E caso algum título da remessa seja removido durante a aprovação e o valor total da remessa for alterado para menos, será reiniciado o processo de aprovação. Caso haja mudança na faixa de valor de aprovação também é necessário refazer todo o processo de aprovação.

Se desejar realizar a aprovação de remessa, prossiga da seguinte maneira:

Acesse Cadastros > Controle de aprovações > Rotinas (F068RNA);
Selecione a rotina "28 - Contas a Pagar - Pagamento Eletrônico" e parametrize os campos;
Parametrize o campo Obedecer a sequência de níveis para aprovação, definindo se a rotina seguirá a sequência dos níveis cadastrados para a aprovação;
Defina se existirá mais de um aprovador para o mesmo nível na rotina;
Em seguida, acesse Cadastros > Controle de aprovações > Níveis (F068NAP), selecione a rotina "28 - Contas a Pagar - Pagamento Eletrônico" e crie os níveis de aprovação;
Neste momento, após a criação dos níveis, acesse Cadastros > Controle de aprovações > Usuários por nível (F068UNA) e determine os usuários que pertencerão aos respectivos níveis;
Após selecionar a rotina "28 - Contas a Pagar - Pagamento Eletrônico", escolha o nível desejado e clicar em Mostrar;
Selecionar um ou mais usuários e clique em Processar;
Em seguida, em Cadastros > Controle de aprovações > Faixa de valores por rotina (F068FNA), defina as faixas de valores;
Selecione a rotina "28 - Contas a Pagar - Pagamento Eletrônico" e clique em Mostrar para visualizar os níveis existentes;
Preencha na grade Faixa de Valores (1), o campo Valor Faixa até com o valor desejado para cada nível aprovar;
Exemplo:
Valor Faixa Até Descrição da faixa de valor Níveis exigidos
10.000,00 Produção 1
50.000,00 Gerência 2
999.999.999,00 Diretoria 3
Clique em Processar;
Por fim, acesse Cadastros > Filiais > Parâmetros por gestão > Contas a pagar (F070FPA);
No campo Controle Aprovação , selecione a opção "N - Nenhuma", já que o sistema irá o utilizar o controle a partir da rotina "28 - Contas a Pagar - Pagamento Eletrônico".

Valor Faixa Até	Descrição da faixa de valor	Níveis exigidos
10.000,00	Produção	1
50.000,00	Gerência	2
999.999.999,00	Diretoria	3

Exemplo:

Níveis:

Nível	Descrição
1	Colaborador Responsável
2	Gerência
3	Alta Direção

Usuários:

Rotina	Nível	Usuário
28	1	A1, A2, A3
28	2	G1
28	3	G2

Faixa Valores:

Faixa Valor Até	Descrição	Níveis Exigidos	Observação
30.000,00	Valor Baixo	1	Exige aprovação por qualquer um dos usuários do nível 1 (A1, A2 ou A3)
80.000,00	Valor Médio	(3+(2*1))	Exige aprovação do usuário G2 (alta direção) ou dos usuários G1 E (A1 ou A2 ou A3). Caso o usuário G2 faça a aprovação da remessa do pagamento eletrônico, não há necessidade de aprovação por outro usuário. Se o usuário G1 aprovar a remessa, será necessário ainda a aprovação por um dos usuários do nível 1 (A1, A2 ou A3).
999.999.999,99	Valor Alto	(2*3)	Exige a aprovação da remessa pelos níveis 2 e 3 (usuários G1 e G2). Não poderá ser feita a remessa do pagamento eletrônico, se não houver a aprovação de todos os níveis exigidos.

Após essas parametrizações, e possuir uma remessa gerada, aguardando para ser aprovada, será possível utilizar a tela de aprovação de remessa (F510APR). Caso não tenha permissão de usuário aprovador, não será possível acessar a tela e a mensagem "Nenhuma remessa a ser aprovada" será apresentada.

Na tela F510APR, informe o Portador("+"), N° Remessa(+), selecione a Opção desejada e clique em Mostrar. No caso de uma aprovação, a código da remessa ficará com a cor verde e será possível clicar em Processar para aprovar a remessa.

Importante

A rotina 28 - Pagamento Eletrônico - Contas a Pagar é um complemento da rotina 27 - Contas a Pagar - Baixas.
As rotinas de aprovação multinível estão diretamente associadas às suas tabelas de origem, neste caso, à tabela de títulos do Contas a Pagar. Dessa forma, na tela F510PRM, quando utilizada a opção "6 - Devolução Crédito Cliente" na tela de seleção F510SPR, os títulos do Contas a Receber não serão controlados pelo processo de aprovação do Contas a Pagar. Isso ocorre devido a uma limitação no núcleo que gerencia a aprovação multinível, que não permite a combinação de tabelas de gerenciamento diferentes, como Contas a Pagar e Contas a Receber.

Efetuar remessa

Por este processo é possível efetuar as verificações finais de portador, arquivo, datas e títulos envolvido no processo para geração do arquivo eletrônico de remessa para pagamento de títulos financeiros do Gestão de Contas a Pagar, que será enviado ao banco para proceder com o efetivo pagamento.

São fatos geradores dos arquivos de remessa, em Finanças > Gestão de Contas a Pagar > Pagamento Eletrônico > Remessa (F510PRM):

Portador (banco) ao qual será enviado os títulos financeiros a pagar pelo arquivo;
Definição do Nome Arquivo a ser gerado. O nome para o arquivo de remessa e o local para que este arquivo seja salvo. O sistema fará a consistência se a extensão do arquivo é válida, por exemplo .TXT, .REM e .DOC;
Data de Pagamento efetivo dos títulos constantes no arquivo;
Tipo de Pagamento : a forma como um título será pago através do pagamento eletrônico;
Opção: campo no cabeçalho da tela F510PRM só estará habilitado se existir Controle de Aprovação de remessa antes de enviar ao banco (rotina "28 - Contas a Pagar - Pagamento Eletrônico");
Gerar Preparação :
- "N - Não": todos os títulos da remessa não serão liquidados no Gestão do Contas a pagar e será gerado uma preparação na Gestão da Tesouraria. Após o retorno do arquivo do banco será possível dar baixa dos títulos do sistema;
- "S - Sim": todos os títulos da remessa serão liquidados ao processar a remessa sem a necessidade de utilizar a rotina de retorno.

Analisar retorno

Quando utilizado o pagamento eletrônico, ao efetuar o retorno dos títulos, eles voltam para o portador da empresa. O título apenas permanece com portador "Banco" quando ainda está em poder deste. Quando é feito o retorno, o título é liquidado e desta forma entende-se que o título não está mais em poder do banco, retornando para o portador anterior (portador "Empresa").

No caso do título manual, ele permanece com o mesmo portador após a baixa, pois não faz qualquer referência ao pagamento eletrônico. Ou seja, o título pode já ter o pagamento através da conta interna que possui determinado portador, porém não foi enviado para pagamento pela rotina de pagamento eletrônico. É registrado no título o portador "Banco" apenas para referência.

Para realizar o processo:

Acesse Finanças > Gestão de Contas a Pagar > Pagamento Eletrônico > Retorno (F510PRT);
Informe o Portador para o qual os títulos foram remetidos;
Indique um nome para o arquivo de retorno e o local para que este arquivo seja salvo;
Clique em Mostrar para visualizar os títulos, na grade Retorno – Sem Erro, que foram enviados pelo banco com sucesso;
Em campo Sequência, consulte a sequência da preparação dos títulos na tesouraria, que pode ser 1,2,3..., conforme a quantidade de títulos a serem liquidados;
Clique em Processar para finalizar.

Nota

A rotina de retorno deve ser realizada para que a movimentação dos títulos seja alterada (liquidada);
Se desejar, utilize o processo automático 155 - Retorno Pagamento Eletrônico para realizar a análise de retorno.

Efetuar remessa e retorno de títulos de crédito de clientes

Através do pagamento eletrônico é possível efetuar a remessa e o retorno de títulos de crédito de clientes. Este processo funciona conforme o processo de devolução de créditos de clientes da tela F600GEC, a diferença é o envio do título ao banco no pagamento eletrônico.

Para a geração de remessa de créditos de clientes:

Acesse Finanças > Gestão de Contas a Pagar > Pagamento Eletrônico > Remessa (F510PRM);
Informe o Portador e Nome Arquivo;
Clique em Seleção para acessar a tela Remessa do Pagamento Eletrônico - Seleção (F510SPR);
Em Mostrar, marque 6 - Devolução Crédito Clientes e utilize os filtros da guia Cta.Receber para que as informações sejam apresentadas para geração da remessa;
Na tela F510PRM serão sugeridos os dados bancários (banco, agência e fornecedor) do fornecedor ligado ao cliente. Após processado, o título ficará com a situação "PE - Pagamento Eletrônico". Os títulos que participam do pagamento eletrônico não podem ser baixados por outro processo.

É possível enviar tanto títulos efetivos quanto títulos previstos. No retorno do título previsto, este será efetivado e logo baixado. O título terá sua transação de previsão alterada para a transação padrão de entrada de créditos parametrizada na tela F070FRE.

No retorno do pagamento eletrônico, a transação sugerida para a baixa será a transação padrão para baixa de créditos parametrizada também na tela F070FRE.

Quando houver controle de aprovação multinível, após aprovar a remessa, antes de especificar o número da remessa aprovada, informe a opção 6 - Devolução Crédito Clientes na tela Remessa do Pagamento Eletrônico - Seleção.

Observação

Não é possível gerar uma preparação ao gerar remessa de créditos de clientes.

Gerar remessa de pagamento com chave Pix

O Pix é um método para pagamentos criado pelo Banco Central. No sistema, é disponibilizado um cadastro para as chaves Pix dos fornecedores, que podem ser selecionadas/sugeridas na inclusão de um título de pagamento.

Para cadastrar as chaves Pix ligadas aos fornecedores, acesse Cadastros > Clientes e Fornecedores > Fornecedores > Chaves PIX de fornecedores (F095FCP). O cadastro não é obrigatório para utilização do Pix, porém serve para sugestão da chave na geração de títulos do Contas a Pagar:

Informe Empresa, Filial e Fornecedor;
No campo Tipo de Chave PIX selecione uma opção disponível;
Informe a Chave PIX conforme o Tipo de Chave PIX definido.

Observação

Ao gerar um título, é carregada a Chave PIX definida como padrão para o fornecedor do título. Ao alterar o tipo da Chave PIX, é carregada a primeira chave do tipo selecionado para o fornecedor, se houver.

Lançar título e nota de entrada

Ao lançar um título manualmente e inserir o fornecedor, o sistema já informará a chave Pix. Ao lançar uma nota de entrada de compra que gerou um título a pagar, o sistema, da mesma forma, irá incluir o número da chave Pix no título, se ela estiver cadastrada.

Nos títulos do Contas a Pagar (telas F510PPR, F510PRM, F501TCP e F501ATL) estão disponíveis os campos Tipo de Chave PIX, Chave PIX e Url PIX. Que também estão disponíveis no identificador de regras CPA-501ATLCL01 e na regra disparada pelo campo Código Regra da tela F001TPA. Essa regra é executada pelo botão Processar da tela F501ATL antes das alterações serem efetivadas no banco de dados.

Enviar remessa

Já para o envio da remessa do pagamento eletrônico, é necessário informar os tipos de pagamento "PX - Pix transferência" e "PQ – Pix QR Code" nos parâmetros para pagamento eletrônico.

Importante

Os tipos de pagamentos PX e PQ não podem estar em uma remessa com outros tipos de pagamento. Se quiser, nas telas F510SPP e F510SPR, acessadas por meio do botão Seleção das telas F510PPR e F510PRM, marque a caixa de seleção Sugerir PIX p/ Banco/Agência/Conta para que a sugestão PX seja feita.

Para facilitar a identificação dos tipos de pagamento PX e PQ, que precisam ser enviados separadamente quando houver outros tipos de pagamento na tela, sugerimos que você use o campo Tipo Pgt. para ordenar os registros da grade.

Acesse Finanças > Gestão de Contas a Pagar > Pagamento Eletrônico > Parâmetros (F030PPE) e, na guia Tipo Pagamento, cadastre o código interno e o código utilizado pelo banco, fazendo um De > Para.

Incluir leiaute

Para Incluir o leiaute no cadastro do portador acesse Cadastros > Finanças > Portadores (F039POR). E, além das informações básicas necessárias, preencha o Código layout exportação PE.

As variáveis a serem utilizadas nos leiautes de exportação para geração de remessa do pagamento eletrônico estão disponíveis na tela F510PRM:

FINPETPCPIX
FINPECHVPIX
FINPEURLPIX

O leiaute SAEX03000 - Remessa - Pgto Eletrônico - LPN (CNAB 240), utilizado no processo de VAN Bancária, é o único disponível para gerar os segmentos B-PIX e X-52 PIX. Para utilizá-lo, pegue o arquivo do leiaute SAEX03000 na pasta C:\<Diretório de instalação>\Sapiens\ImpExp\Financas e coloque-o na pasta C:\<Diretório de instalação>\Sapiens\ ImpExp.

Demais leiautes devem ser customizados conforme a necessidade dos bancos do cliente.

Importante

Os leiautes padrões do sistema não estão preparados para a utilização do Pix, somente para a integração com a VAN Bancária, com leiautes padrões LPN. Caso possua leiautes customizados, será necessário fazer a sua adaptação.

Alteração do Segmento A de um leiaute genérico

@==============================================================================@
@     3.4.2 Registro Detalhe – Segmento A (Obrigatório – Remessa/Retorno)      @
@------------------------------------------------------------------------------@
VGlobal_NumeroSequencialLote++;

@==============================================================================@
@    Definições e Atribuições das variáveis LOCAIS para geração do Registro    @
@------------------------------------------------------------------------------@
Definir Alfa xSegmentoA; 
Definir Alfa FINPECODAGE;
Definir Alfa FINPENOMFOR;
Definir Alfa FINPECODBAN;
Definir Alfa FINPENUMPGE;
Definir Alfa FINPENUMTIT;
Definir Alfa FINPECODTPT;
Definir Alfa FINPEUTINPE;
Definir Alfa FINPECCBFOR;
Definir Alfa FINPETIPPGT;
Definir Alfa xDigitoVerificadorAgencia;
Definir Alfa xDigitoVerificadorConta;
Definir Alfa xDigitoVerificadorDAC;
Definir Alfa xVariavelAuxiliar;
Definir Alfa xComplementoTipoServico;
Definir Alfa xCodigoOperacaoAlfa;
Definir Alfa xNumeroContaCorrenteCEFAlfa;
Definir Alfa xDigitoCEFALFA;
Definir Numero xCodigoCamara;
Definir Numero xCodigoBancoFavorecido;
Definir Numero xAgenciaMantenedora;
Definir Numero xNumeroContaCorrente;
Definir Numero xPosicaoHifen;
Definir Numero xTamanhoAgencia;
Definir Data xDataPagamento;

@==============================================================================@
@ Algumas Variáveis de Sistema retornam o valor multiplicado por 100, devido a @
@ forma antiga com que era esperado o valor monetário nos leiautes com grid.   @
@ Por tanto se faz necessário dividir antes de imprimir no arquivo.            @
@                                                                              @
@ FINPEVLRABE, FINPEVLRMOV, FINPEVLRDSC, FINPEVLRODE, FINPEVLRJRS, FINPEVLRMUL @
@ FINPEVLRENC, FINPEVLRCOR, FINPEVLROAC e FINPEVLRTOT                          @
@------------------------------------------------------------------------------@
xValorPagamento = FINPEVLRTOT;
Se (xValorPagamento > 0){
  xValorPagamento = xValorPagamento / 100;
  Arredonda(xValorPagamento, 2);
}
@------------------------------------------------------------------------------@

xVariavelAuxiliar = FINPECODBAN;
DeixaNumeros(xVariavelAuxiliar);
AlfaParaInt(xVariavelAuxiliar, xCodigoBancoFavorecido);

@==============================================================================@
@                  P001 - Código da Câmera Centralizadora                      @
@------------------------------------------------------------------------------@
xVariavelAuxiliar = 000;  

Se ((FINPETIPPGT = DC) ou (FINPETIPPGT = DO)){
  Se ((FINPETIPPGT = DC) e ((xCodigoBancoFavorecido = 237) ou (xCodigoBancoFavorecido = 341))) {
    xVariavelAuxiliar = 710;  
  } Senao {
    xVariavelAuxiliar = 700;
  }
} Senao  
Se ((FINPETIPPGT = TO) ou (FINPETIPPGT = TE)){
  Se ((FINPETIPPGT = TE) e ((xCodigoBancoFavorecido = 237) ou (xCodigoBancoFavorecido = 341))) {
    xVariavelAuxiliar = 810;  
  } Senao {
    xVariavelAuxiliar = 018;
  }
} Senao
Se ((FINPETIPPGT = PX) ou (FINPETIPPGT = PQ)){
  xVariavelAuxiliar = 009; 
}
AlfaParaInt(xVariavelAuxiliar, xCodigoCamara);
@------------------------------------------------------------------------------@

@==============================================================================@
@                    P005 - Complemento Tipo de Serviço                        @
@        Especifico para Caixa Economica Federa (104) e Bradesco (237)         @
@------------------------------------------------------------------------------@
xComplementoTipoServico = ;

Se ((VGlobal_CodigoBancoCompensacao = VGlobal_BRADESCO) ou 
    (VGlobal_CodigoBancoCompensacao = VGlobal_CAIXA_ECONOMICA_FEDERAL)){
  xComplementoTipoServico = 13;
} 
@------------------------------------------------------------------------------@

@==============================================================================@
@                          Agencia / Digito Agencia                            @
@                                                                              @ 
@                               A T E N Ç Ã O                                  @
@ Para utilização do leiaute de pagamento eletrônico LPN é obrigatório que o   @
@ cadastro da Agência possua especificamente a separação do digito verificador @
@ com um hífem -.                                                            @
@------------------------------------------------------------------------------@      
xAgenciaMantenedora = 0;
xDigitoVerificadorAgencia = ;   
    
xVariavelAuxiliar = FINPECODAGE; 
xPosicaoHifen = 0; 
PosicaoAlfa(-, xVariavelAuxiliar, xPosicaoHifen);
Se (xPosicaoHifen > 0){  
 
  @ Antes do Hífen @
  CopiarAlfa(xVariavelAuxiliar, 1, xPosicaoHifen -1);
  DeixaNumeros(xVariavelAuxiliar);
  AlfaParaInt(xVariavelAuxiliar, xAgenciaMantenedora);

  @ Primeira Posicação Após o Hífen @
  xDigitoVerificadorAgencia = FINPECODAGE;    
  CopiarAlfa(xDigitoVerificadorAgencia, xPosicaoHifen +1, 1);                                                             
              
} Senao {   
   
  @ Sem Hífen - Pega o valor cadastrado e enviar para Agência @
  DeixaNumeros(xVariavelAuxiliar);
  AlfaParaInt(xVariavelAuxiliar, xAgenciaMantenedora);
}    
@------------------------------------------------------------------------------@

@==============================================================================@
@                  Número da Conta Corrente / Agência / DAC                    @
@                                                                              @   
@                               A T E N Ç Ã O                                  @
@ Para utilização do leiaute de pagamento eletrônico LPN é obrigatório que o   @
@ cadastro do Número da Conta Corrente possua especificamente a separação do   @
@ digito verificador com um hífem -.                                         @  
@------------------------------------------------------------------------------@    

  xNumeroContaCorrente = 0;
  xDigitoVerificadorConta = ;
  xDigitoVerificadorDAC = ;  
  
  xVariavelAuxiliar = FINPECCBFOR;

  @============================================================================@
  @ Especificamente o banco Caixa Economica Federal (CEF), possui uma informa- @
  @ ção adicional que é o Código da Operação, e devemos enviar nos 4 primeiros @
  @ digitos junto com o número da conta corrente.                              @
  @                                                                            @
  @ No ERP a orientação é que este código seja cadastrado juntamente com o nú- @
  @ mero da conta corrente, separado por um ponto.                             @
  @                                                                            @
  @ Exemplo:                                                                   @
  @ Codigo Operação...........: 013                                            @
  @ Número Conta Corrente.....: 00123-9                                        @
  @ No ERP deve ser cadastrado: 013.00123-9                                    @
  @ No arquivo deve ser gerado: 0013000001239                                  @
  @----------------------------------------------------------------------------@  
  Se (VGlobal_CodigoBancoCompensacao = VGlobal_CAIXA_ECONOMICA_FEDERAL){

    xPosicaoPonto = 0;
    
    PosicaoAlfa(., xVariavelAuxiliar, xPosicaoPonto);   
    Se (xPosicaoPonto > 0){
            
      @ Antes do Ponto @
      xCodigoOperacaoAlfa = xVariavelAuxiliar;
      CopiarAlfa(xCodigoOperacaoAlfa, 1, xPosicaoPonto -1);    
      DeixaNumeros(xCodigoOperacaoAlfa);
	
      TamanhoAlfa(xVariavelAuxiliar, xTamanhoConta);
      CopiarAlfa(xVariavelAuxiliar, xPosicaoPonto + 1, xTamanhoConta);
      
      xDigitoCEFALFA = ;
      
      PosicaoAlfa(-, xVariavelAuxiliar, xPosicaoHifen);
      Se (xPosicaoHifen > 0){  
      
        @ Antes do Hífen @
        xNumeroContaCorrenteCEFAlfa = xVariavelAuxiliar;
        CopiarAlfa(xNumeroContaCorrenteCEFAlfa, 1, xPosicaoHifen -1);    
        AlfaParaInt(xNumeroContaCorrenteCEFAlfa, xNumeroContaCorrenteCEF);                                        
      
        xDigitoCEFALFA = xVariavelAuxiliar;
        CopiarAlfa(xDigitoCEFALFA, xPosicaoHifen, xTamanhoConta);
      } Senao {
      
        DeixaNumeros(xVariavelAuxiliar);
        AlfaParaInt(xVariavelAuxiliar, xNumeroContaCorrenteCEF);              
      }                                                         
      
      ObterValorNumericoPadraoCNAB(1, 8, xNumeroContaCorrenteCEF, 0, N, xNumeroContaCorrenteCEFAlfa);       
       
      xVariavelAuxiliar = xCodigoOperacaoAlfa + xNumeroContaCorrenteCEFAlfa + xDigitoCEFALFA;                                                 
    }
  } 
  @----------------------------------------------------------------------------@
  
  xPosicaoHifen = 0; 
  PosicaoAlfa(-, xVariavelAuxiliar, xPosicaoHifen);   
  Se (xPosicaoHifen > 0){                               
                                                        
    @ Primeira Posicação Após o Hífen @
    xDigitoVerificadorConta = xVariavelAuxiliar;  
    CopiarAlfa(xDigitoVerificadorConta, xPosicaoHifen +1, 1);

    @ Verifica se existe mais de um dígito verificador @
    TamanhoAlfa(xVariavelAuxiliar, xTamanhoConta); 
    Se ((xTamanhoConta - xPosicaoHifen) > 1){ 
    
      @ Segunda Posição Após o Hífen @
      xDigitoVerificadorDAC = xVariavelAuxiliar;      
      CopiarAlfa(xDigitoVerificadorDAC, xPosicaoHifen +2, 1);          
    }
    
    @ Antes do Hífen @
    CopiarAlfa(xVariavelAuxiliar, 1, xPosicaoHifen -1);    
    DeixaNumeros(xVariavelAuxiliar);                       
    AlfaParaInt(xVariavelAuxiliar, xNumeroContaCorrente);                                                                         
              
  } Senao {   
   
    @ Sem Hífen - Pega o valor cadastrado e enviar para Agência @
    DeixaNumeros(xVariavelAuxiliar);
    AlfaParaInt(xVariavelAuxiliar, xNumeroContaCorrente);
  }          
@------------------------------------------------------------------------------@

@==============================================================================@
@------------------------------------------------------------------------------@
xDataPagamento = FINPEDATPGT;

@Se ((FINPECODTPT = AGR)  ou (FINPECODTPT = TRF)){  @
@  xDataPagamento = FINPEDATPGT;                        @
@} Senao {                                              @
@  xDataPagamento = FINPEVCTPRO;                        @
@}                                                      @
@------------------------------------------------------------------------------@

@==============================================================================@
@ Quando for Agrupamento não enviamos NUMPGE                                   @
@------------------------------------------------------------------------------@
Definir Alfa xSeuNumero;

xSeuNumero = FINPENUMPGE;

Se (FINPECODTPT = AGR){
  xSeuNumero = ;
  ObterValorNumericoPadraoCNAB(1, 6, 0, 0, S, xSeuNumero);
  ObterValorAlfaPadraoCNAB(7, 16, FINPENUMTIT,   , S, xSeuNumero);
  ObterValorAlfaPadraoCNAB(17, 19, AGR,   , S, xSeuNumero);
  ObterValorAlfaPadraoCNAB(20, 20, FINPEUTINPE,   , S, xSeuNumero);
}
@------------------------------------------------------------------------------@

@==============================================================================@
@                         INÍCIO DA GERAÇÃO DO REGISTRO                        @
@                                                                              @
@--------------------------------- Controle -----------------------------------@
xSegmentoA = ;
ObterValorNumericoPadraoCNAB(1, 3, VGlobal_CodigoBancoCompensacao, 0, S, xSegmentoA);   @ 01.3A - Código no Banco da Compensação        @
ObterValorNumericoPadraoCNAB(4, 7, VGlobal_LoteServico, 0, S, xSegmentoA);              @ 02.3A - Lote de Serviço                       @
ObterValorNumericoPadraoCNAB(8, 8, 3, 0, S, xSegmentoA);                                @ 03.3A - Tipo de Registro                      @
ObterValorNumericoPadraoCNAB(9, 13, VGlobal_NumeroSequencialLote, 0, S, xSegmentoA);    @ 04.3A - Nº Seqüencial do Registro no Lote     @
ObterValorAlfaPadraoCNAB(14, 14, A,   , S, xSegmentoA);                               @ 05.3A - Código de Segmento no Reg. Detalhe    @
ObterValorNumericoPadraoCNAB(15, 15, 0, 0, S, xSegmentoA);                              @ 06.3A - Tipo de Movimento                     @
ObterValorNumericoPadraoCNAB(16, 17, 0, 0, S, xSegmentoA);                              @ 07.3A - Código da Instrução p/ Movimento      @

@--------------------------------- Favorecido ---------------------------------@
ObterValorNumericoPadraoCNAB(18, 20, xCodigoCamara, 0, S, xSegmentoA);                  @ 08.3A - Código da Câmara Centralizadora       @
ObterValorNumericoPadraoCNAB(21, 23, xCodigoBancoFavorecido, 0, S, xSegmentoA);         @ 09.3A - Código do Banco do Favorecido         @
ObterValorNumericoPadraoCNAB(24, 28, xAgenciaMantenedora, 0, S, xSegmentoA);            @ 10.3A - Ag. Mantenedora da Conta do Fav.      @
ObterValorAlfaPadraoCNAB(29, 29, xDigitoVerificadorAgencia,  , S, xSegmentoA);          @ 11.3A - Dígito Verificador da Agência         @ 
ObterValorNumericoPadraoCNAB(30, 41, xNumeroContaCorrente, 0, S, xSegmentoA);           @ 12.3A - Número da Conta Corrente              @
ObterValorAlfaPadraoCNAB(42, 42, xDigitoVerificadorConta,  , S, xSegmentoA);            @ 13.3A - Dígito Verificador da Conta           @
ObterValorAlfaPadraoCNAB(43, 43, xDigitoVerificadorDAC,  , S, xSegmentoA);              @ 14.3A - Dígito Verificador da Ag/Conta        @
ObterValorAlfaPadraoCNAB(44, 73, FINPENOMFOR,  , S, xSegmentoA);                        @ 15.3A - Nome do Favorecido                    @

@---------------------------------- Crédito -----------------------------------@
ObterValorAlfaPadraoCNAB(74, 93, xSeuNumero,  , S, xSegmentoA);                         @ 16.3A - Seu Número                            @                
ObterValorDataPadraoCNAB(94, 101, xDataPagamento, S, xSegmentoA);                         @ 17.3A - Data do Pagamento                     @
ObterValorAlfaPadraoCNAB(102, 104, BRL,  , S, xSegmentoA);                            @ 18.3A - Tipo de Moeda                         @
ObterValorDecimalPadraoCNAB(105, 119, 5, 0, 0, S, xSegmentoA);                          @ 19.3A - Quantidade de Moeda                   @
ObterValorDecimalPadraoCNAB(120, 134, 2, xValorPagamento, 0, S, xSegmentoA);            @ 20.3A - Valor do Pagamento                    @
ObterValorAlfaPadraoCNAB(135, 154, ,  , S, xSegmentoA);                               @ 21.3A - Nosso Número                          @
ObterValorDataPadraoCNAB(155, 162, 0, S, xSegmentoA);                                     @ 22.3A - Data Real da Efetivação do Pagamento  @
ObterValorDecimalPadraoCNAB(163, 177, 2, 0, 0, S, xSegmentoA);                          @ 23.3A - Valor Real da Efetivação do Pagamento @

@---------------------------------- Arquivo -----------------------------------@
ObterValorAlfaPadraoCNAB(178, 217, ,  , S, xSegmentoA);                               @ 24.3A - Outras Informações (G031)             @
ObterValorAlfaPadraoCNAB(218, 219, xComplementoTipoServico,  , S, xSegmentoA);          @ 25.3A - Complemento Tipo de Serviço           @
ObterValorAlfaPadraoCNAB(220, 224, ,  , S, xSegmentoA);                               @ 26.3A - Código finalidade da TED/CC           @
ObterValorAlfaPadraoCNAB(225, 229, ,  , S, xSegmentoA);                               @ 27.3A - Uso Exclusivo                 @
ObterValorNumericoPadraoCNAB(230, 230, 0, 0, S, xSegmentoA);                            @ 28.3A - Aviso ao Favorecido                   @
ObterValorAlfaPadraoCNAB(231, 240, ,  , S, xSegmentoA);                               @ 29.3A - Código das Ocorrências para Retorno   @
@------------------------------------------------------------------------------@
@                        FINAL DA GERAÇÃO DO REGISTRO                          @ 
@==============================================================================@
@                         Atribuiçao dos totalizadores                         @
@------------------------------------------------------------------------------@
VGlobal_QtdeRegistrosArquivo++;
VGlobal_QtdeRegistrosLote++;
VGlobal_SomatoriaValoresLote = VGlobal_SomatoriaValoresLote + xValorPagamento;
@------------------------------------------------------------------------------@

Alteração do Segmento B de um leiaute genérico

@==============================================================================@
@         3.4.3 Registro Detalhe Segmento B (Obrigatório Remessa/Retorno)      @
@------------------------------------------------------------------------------@
VGlobal_NumeroSequencialLote++;

@==============================================================================@
@ Definições e Atribuições das variáveis LOCAIS para geração do Registro       @
@------------------------------------------------------------------------------@
Definir Alfa xSegmentoB;
Definir Alfa FINPENOMFOR;
Definir Alfa FINPEENDFOR;
Definir Alfa FINPECPLFOR;
Definir Alfa FINPEBAIFOR;
Definir Alfa FINPECIDFOR;
Definir Data FINPEVCTPRO;
Definir Alfa FINPETIPPGT;
Definir Alfa FINPECHVPIX;
Definir Numero FINPETPCPIX;
Definir Numero FINPETIPTCC;
Definir Alfa xVariavelAuxiliar;
Definir Numero xTipoInscricaoFavorecido;
Definir Numero xNumeroInscricaoFavorecido;
Definir Alfa xNomeRua;
Definir Alfa xNumeroRuaAuxiliar;
Definir Numero xNumeroRua;
Definir Numero xTamanhoAlfa;   
Definir Numero xValorJuros;
Definir Alfa xCNPJValido;
Definir Alfa xTipoConta;
Definir Numero xSemChave;

xVariavelAuxiliar = FINPENUMINS;
DeixaNumeros(xVariavelAuxiliar);
AlfaParaInt(xVariavelAuxiliar, xNumeroInscricaoFavorecido);

CNPJValido(xVariavelAuxiliar, xCNPJValido);
Se (xCNPJValido = S){
  xTipoInscricaoFavorecido = 2;
} Senao {
  xTipoInscricaoFavorecido = 1;
}

@------------------------------------------------------------------------------@
                                                                    
@ xNomeRua = FinPeEndFor;                             @
@ xNumeroRuaAuxiliar = xNomeRua;                      @
@ TamanhoAlfa(xNomeRua, xTamanhoAlfa);                @
@ CopiarAlfa(xNumeroRuaAuxiliar, xTamanhoAlfa -4, 5); @ 
@ SubstAlfa(xNumeroRuaAuxiliar, , xNomeRua);        @
@ SubstAlfa(,, , xNomeRua);                       @
@ DeixaNumeros(xNumeroRuaAuxiliar);                   @
@ AlfaParaInt(xNumeroRuaAuxiliar, xNumeroRua);        @
@------------------------------------------------------------------------------@

@==============================================================================@
@ Algumas Variáveis de Sistema retornam o valor multiplicado por 100, devido a @
@ forma antiga com que era esperado o valor monetário nos leiautes com grid.   @
@ Por tanto se faz necessário dividir antes de imprimir no arquivo.            @
@                                                                              @
@ FINPEVLRABE, FINPEVLRMOV, FINPEVLRDSC, FINPEVLRODE, FINPEVLRJRS, FINPEVLRMUL @
@ FINPEVLRENC, FINPEVLRCOR, FINPEVLROAC e FINPEVLRTOT                          @
@------------------------------------------------------------------------------@
xValorDesconto = FINPEVLRDSC;
Se (xValorDesconto > 0){ 
  xValorDesconto = xValorDesconto / 100;
  Arredonda(xValorDesconto, 2);
}

xValorMulta = FINPEVLRMUL;
Se (xValorMulta > 0){ 
  xValorMulta = xValorMulta / 100;
  Arredonda(xValorMulta, 2);
}

xValorDocumento = FINPEVLRTOT;
Se (xValorDocumento > 0){ 
  xValorDocumento = xValorDocumento / 100;
  Arredonda(xValorDocumento, 2);
}

xValorJuros = FINPEVLRJRS;
Se (xValorJuros > 0){ 
  xValorJuros = xValorJuros / 100;
  Arredonda(xValorJuros, 2);
}      
@------------------------------------------------------------------------------@  

@==============================================================================@
@                         INÍCIO DA GERAÇÃO DO REGISTRO                        @
@                                                                              @
@--------------------------------- Controle -----------------------------------@
@Dados utilizados para o Segmento B e o Segmento B PIX estão marcados com um ! @
xSegmentoB = ;
ObterValorNumericoPadraoCNAB(1, 3, VGlobal_CodigoBancoCompensacao, 0, S, xSegmentoB);  @! 01.3B - Código do Banco na Compensação                @
ObterValorNumericoPadraoCNAB(4, 7, VGlobal_LoteServico, 0, S, xSegmentoB);             @! 02.3B - Lote de Serviço                               @
ObterValorNumericoPadraoCNAB(8, 8, 3, 0, S, xSegmentoB);                               @! 03.3B - Tipo de Registro                              @
ObterValorNumericoPadraoCNAB(9, 13, VGlobal_NumeroSequencialLote, 0, S, xSegmentoB);   @! 04.3B - Nº Sequencial do Registro no                  @
ObterValorAlfaPadraoCNAB(14, 14, B,  , S, xSegmentoB);                               @! 05.3B - Cód. Segmento do Reg. Detalhe.                @
Se (FINPETIPPGT <> PX){
  ObterValorAlfaPadraoCNAB(15, 17, ,  , S, xSegmentoB);                              @ 06.3B - Uso Exclusivo                  @
} Senao {
  ObterValorAlfaPadraoCNAB(15, 15, ,  , S, xSegmentoB);                              @ 06.3B PIX - Uso Exclusivo                      @
  ObterValorNumericoPadraoCNAB(16, 17, FINPETPCPIX, 0, S, xSegmentoB);                 @ 07.3B PIX - Tipo Identificação de Chave PIX            @ 
}                              

@-------------------------------- Favorecido ----------------------------------@
ObterValorNumericoPadraoCNAB(18, 18, xTipoInscricaoFavorecido, 0, S, xSegmentoB);      @! 07.3B e 08.3B PIX - Tipo de Inscrição do Favorecido   @
ObterValorNumericoPadraoCNAB(19, 32, xNumeroInscricaoFavorecido, 0, S, xSegmentoB);    @! 08.3B e 09.3B PIX - Nº de Inscrição do Favorecido     @
Se (FINPETIPPGT <> PX){
  ObterValorAlfaPadraoCNAB(33, 62, FINPEENDFOR,  , S, xSegmentoB);                     @ 09.3B - Nome da Rua, Av, Pça, Etc                      @
  ObterValorNumericoPadraoCNAB(63, 67, 0, 0, S, xSegmentoB);                           @ 10.3B - Número do Local                                @
  ObterValorAlfaPadraoCNAB(68, 82, FINPECPLFOR,  , S, xSegmentoB);                     @ 11.3B - Casa, Apto, Sala, Etc                          @
  ObterValorAlfaPadraoCNAB(83, 97, FINPEBAIFOR,  , S, xSegmentoB);                     @ 12.3B - Bairro                                         @
  ObterValorAlfaPadraoCNAB(98, 117, FINPECIDFOR,  , S, xSegmentoB);                    @ 13.3B - Nome da Cidade                                 @
  ObterValorNumericoPadraoCNAB(118, 125, FINPECEPFOR, 0, S, xSegmentoB);               @ 14.3B - CEP / 15.3B - Complemento do CEP               @
  ObterValorAlfaPadraoCNAB(126, 127, FINPESIGUFS,  , S, xSegmentoB);                   @ 16.3B - Sigla do Estado                                @
}
@--------------------------------- Pagamento ----------------------------------@    
Se (FINPETIPPGT <> PX){
  ObterValorDataPadraoCNAB(128, 135, FINPEVCTPRO, S, xSegmentoB);                        @ 17.3B - Data do Vencimento (Nominal)                   @
  ObterValorDecimalPadraoCNAB(136, 150, 2, xValorDocumento, 0, S, xSegmentoB);         @ 18.3B - Valor do Documento (Nominal)                   @
  ObterValorDecimalPadraoCNAB(151, 165, 2, 0, 0, S, xSegmentoB);                       @ 19.3B - Valor do Abatimento                            @
  ObterValorDecimalPadraoCNAB(166, 180, 2, xValorDesconto, 0, S, xSegmentoB);          @ 20.3B - Valor do Desconto                              @
  ObterValorDecimalPadraoCNAB(181, 195, 2, xValorJuros, 0, S, xSegmentoB);             @ 21.3B - Valor da Mora                                  @
  ObterValorDecimalPadraoCNAB(196, 210, 2, xValorMulta, 0, S, xSegmentoB);             @ 22.3B - Valor da Multa                                 @
} Senao {
  EstaNulo(FINPECHVPIX, xSemChave); @Retorna 1 = Vazio, 0 = não vazio na variável xSemChave@
  
  Se (xSemChave = 1) {                   @ Definição De/Para                             @
    Se (FINPETIPTCC = 1){                @ 1 Conta Corrente - 01 Conta corrente          @
      xTipoConta = 01;                 @ 2 Conta Poupança - 03 - Conta Poupança        @
    } Senao {                            @ Se tem chave PIX - 04 - Chave de endereçamento@
      Se (FINPETIPTCC = 2){ 
        xTipoConta = 03;
      }
    }
  } Senao {
    xTipoConta = 04; 
  }
  
  ObterValorAlfaPadraoCNAB(33, 62, ,  , S, xSegmentoB);                              @ 10.3B PIX - Identificador Único da Transação           @ 
  ObterValorAlfaPadraoCNAB(63, 125, ,  , S, xSegmentoB);                             @ 11.3B PIX - Informações Entre Usuários                 @     
  ObterValorAlfaPadraoCNAB(126, 127, xTipoConta,  , S, xSegmentoB);                    @ 12.3B PIX - Ident. Do Tipo de Transferência PIX        @       
  ObterValorAlfaPadraoCNAB(128, 227, FINPECHVPIX,  , S, xSegmentoB);                   @ 13.3B PIX - Chave de Endereçamento                     @       
}
@---------------------------------- Arquivo -----------------------------------@
Se (FINPETIPPGT <> PX){
  ObterValorAlfaPadraoCNAB(211, 225, ,  , S, xSegmentoB);                            @ 23.3B - Cód/Documento do Favorecido/Conta Complementar/Beneficiário @
  ObterValorAlfaPadraoCNAB(226, 228, ,  , S, xSegmentoB);                            @ 24.3B - Filial Destino                                 @ 
  ObterValorAlfaPadraoCNAB(229, 230, ,  , S, xSegmentoB);                            @ 25.3B - Tipo de Documento                              @
  ObterValorAlfaPadraoCNAB(231, 240, ,  , S, xSegmentoB);                            @ 26.3B - Número NF/Fatura e Duplicata                   @    
} Senao {
  ObterValorAlfaPadraoCNAB(228, 230, PIX,  , S, xSegmentoB);                         @ 14.3B PIX - Literal PIX                                @
  ObterValorAlfaPadraoCNAB(231, 240, ,  , S, xSegmentoB);                            @ 15.3B PIX - Filial Destino                             @ 
}

@------------------------------------------------------------------------------@
@                        FINAL DA GERAÇÃO DO REGISTRO                          @ 
@==============================================================================@
@                         Atribuiçao dos totalizadores                         @
@------------------------------------------------------------------------------@
VGlobal_QtdeRegistrosArquivo++;
VGlobal_QtdeRegistrosLote++;
@------------------------------------------------------------------------------@

Alteração do Segmento J-52 de um leiaute genérico

@==============================================================================@
@            3.5.3 Registro Detalhe Segmento J 52 (Opcional Remessa)           @ 
@------------------------------------------------------------------------------@
Definir Alfa VGlobal_NomeEmpresa;                                               @ Determinado no Inicio da Execução - Nome da Empresa           @
VGlobal_NumeroSequencialLote++;

@==============================================================================@
@ Definições e Atribuições das variáveis LOCAIS para geração do Registro       @
@------------------------------------------------------------------------------@
Definir Cursor Cur_Avalista;
Definir Alfa xSegmentoJ52;
Definir Numero xNumeroInscricaoCedente;
Definir Alfa FINPENUMINS;
Definir Alfa FINPENOMFOR;
Definir Alfa FINPETIPINS;
Definir Alfa FINPETIPPGT;
Definir Alfa FINPEURLPIX;

Definir Alfa xVariavelAuxiliar;
Definir Numero xTipoInscricaoAvalista;
Definir Numero xNumeroInscricaoSacador;
Definir Alfa xNomeSacador;             
Definir Numero VGlobal_BancoAvalistaJ52;
Definir Numero xTipoInscricaoCedente;

xVariavelAuxiliar = FINPENUMINS;
DeixaNumeros(xVariavelAuxiliar);
AlfaParaInt(xVariavelAuxiliar, xNumeroInscricaoCedente);

xTipoInscricaoCedente = 0;
AlfaParaInt(FINPETIPINS, xTipoInscricaoCedente);

@==============================================================================@
@    Consulta SQL para obter as informações referente ao Sacador (Avalista)    @
@                                                                              @
@ Definimos comentar o trecho de código abaixo, que tem como intuito buscar o  @
@ Avalista, uma vez que essa situação não está bem esclarecida dentro do ERP.@
@------------------------------------------------------------------------------@
xTipoInscricaoSacador = 0;
xNumeroInscricaoSacador = 0;
xNomeSacador = ;

/* 
Cur_Avalista.SQL SELECT CGCCPF,NOMBAN FROM E030BAN WHERE E030BAN.CODBAN = :VGlobal_BancoAvalistaJ52;
Cur_Avalista.AbrirCursor(); 
Se (Cur_Avalista.Achou){
   xNumeroInscricaoSacador = Cur_Avalista.CgcCpf;
   xNomeSacador = Cur_Avalista.NomBan; 
}
Cur_Avalista.FecharCursor();

Se (xNumeroInscricaoSacador > 0){
  xNumeroInscricaoSacador = 2;
} 
*/                        
@------------------------------------------------------------------------------@

@==============================================================================@
@                         INÍCIO DA GERAÇÃO DO REGISTRO                        @
@                                                                              @
@     Registros que estão no registro J-52 e X-52 estão marcados com !         @
@--------------------------------- Controle -----------------------------------@
xSegmentoJ52 = ;
ObterValorNumericoPadraoCNAB(1, 3, VGlobal_CodigoBancoCompensacao, 0, S, xSegmentoJ52);   @! 01.3J-52 - Código do Banco na Compensação         @
ObterValorNumericoPadraoCNAB(4, 7, VGlobal_LoteServico, 0, S, xSegmentoJ52);              @! 02.3J-52 - Lote de Serviço                        @
ObterValorNumericoPadraoCNAB(8, 8, 3, 0, S, xSegmentoJ52);                                @! 03.3J-52 - Tipo de Registro                       @
ObterValorNumericoPadraoCNAB(9, 13, VGlobal_NumeroSequencialLote, 0, S, xSegmentoJ52);    @! 04.3J-52 - Nº Sequencial do Registro no Lote      @
Se (FINPETIPPGT <> PQ){
  ObterValorAlfaPadraoCNAB(14, 14, J,  , S, xSegmentoJ52);                              @  05.3J-52 - Código de segmento no Reg. Detalhe     @
} Senao {                                
  ObterValorAlfaPadraoCNAB(14, 14, X,  , S, xSegmentoJ52);                              @  05.3J-52 PIX - Código de segmento no Reg. Detalhe @
}
ObterValorAlfaPadraoCNAB(15, 15, ,  , S, xSegmentoJ52);                                 @! 06.3J-52 - Uso Exclusivo                @
ObterValorNumericoPadraoCNAB(16, 17, 0, 0, S, xSegmentoJ52);                              @! 07.3J-52 - Código da Instrução para Movimento     @
ObterValorNumericoPadraoCNAB(18, 19, 52, 0, S, xSegmentoJ52);                             @! 08.3J-52 - Código de Identificação de Registro    @
@---------- Dados do Sacado (Quem paga o valor / Própria Empresa) -------------@
ObterValorNumericoPadraoCNAB(20, 20, VGlobal_TipoInscricaoEmpresa, 0, S, xSegmentoJ52);   @! 09.3J-52 - Tipo de Inscrição                      @
ObterValorNumericoPadraoCNAB(21, 35, VGlobal_NumeroInscricaoEmpresa, 0, S, xSegmentoJ52); @! 10.3J-52 - Número de Inscrição                    @
ObterValorAlfaPadraoCNAB(36, 75, VGlobal_NomeEmpresa,  , S, xSegmentoJ52);                @! 11.3J-52 - Nome do Sacado                         @

@-------------- Dados do Cedente (Quem recebe o valor do título) --------------@
ObterValorNumericoPadraoCNAB(76, 76, xTipoInscricaoCedente, 0, S, xSegmentoJ52);          @! 12.3J-52 - Tipo de Inscrição                      @
ObterValorNumericoPadraoCNAB(77, 91, xNumeroInscricaoCedente, 0, S, xSegmentoJ52);        @! 13.3J-52 - Número de Inscrição                    @
ObterValorAlfaPadraoCNAB(92, 131, FINPENOMFOR,  , S, xSegmentoJ52);                       @! 14.3J-52 - Nome do Cedente                        @

@------------------------------ Dados do Sacador ------------------------------@
Se (FINPETIPPGT <> PQ){
  ObterValorNumericoPadraoCNAB(132, 132, xTipoInscricaoAvalista, 0, S, xSegmentoJ52);     @ 15.3J-52 - Tipo de Inscrição                       @
  ObterValorNumericoPadraoCNAB(133, 147, xNumeroInscricaoAvalista, 0, S, xSegmentoJ52);   @ 16.3J-52 - Número de Inscrição                     @  
  ObterValorAlfaPadraoCNAB(148, 187, xNomeSacador,  , S, xSegmentoJ52);                   @ 17.3J-52 - Nome do Sacador                         @ 
  ObterValorAlfaPadraoCNAB(188, 240, ,  , S, xSegmentoJ52);                             @ 18.3J-52 - Uso Exclusivo
   @
} Senao {                                                                                     
  ObterValorAlfaPadraoCNAB(132, 208, FINPEURLPIX,  , S, xSegmentoJ52);                    @ 15.3J-52 PIX - URL / Chave de Endereçamento        @
  ObterValorAlfaPadraoCNAB(188, 240, ,  , S, xSegmentoJ52);                             @ 16.3J-52 PIX - Código de Identificação do QRCODE   @
}                              
@------------------------------------------------------------------------------@
@                        FINAL DA GERAÇÃO DO REGISTRO                          @ 
@==============================================================================@
@                         Atribuiçao dos totalizadores                         @
@------------------------------------------------------------------------------@
VGlobal_QtdeRegistrosArquivo++;
VGlobal_QtdeRegistrosLote++;
@------------------------------------------------------------------------------@

Gerar remessa

O processo de gerar remessa do pagamento eletrônico com chave Pix possui o comportamento semelhante a de uma geração padrão de remessa. A diferença é a necessidade de informar o Tipo Pagamento igual a "PX - Pix transferência" ou "PQ – Pix QR Code". E ainda, após os campos preenchidos e geração do arquivo de remessa, deve ser feito um arquivo de remessa exclusivo para os títulos que serão pagos com Pix, não colocando no mesmo arquivo que contém outros tipos de pagamentos.

Nota

Confirme antes se os títulos selecionados possuem o Pix cadastrado no fornecedor, pois o sistema não vai consistir esta informação ao enviar o arquivo.

Cancelar remessa

O cancelamento de remessa ocorre quando o usuário quer cancelar ou excluir uma remessa de pagamento eletrônico que foi enviada ao banco portador.

Para cancelar uma remessa:

Acesse Financeiro > C.Pagar > Pagamento Eletrônico > Remessa (F510PRM);
Informe o número da remessa no campo Nº Remessa e clique em Mostrar;
Em seguida, desmarque os títulos que serão cancelados e clique em Processar.

Os títulos pertencentes a remessa cancelada ficarão com a situação "AB - Aberto Normal" e não mais como "PE - Pagamento Eletrônico".

Se o campo Gerar Preparação(S/N) da tela de remessa estiver como "S - Sim", não será possível cancelar o arquivo de remessa diretamente, ou seja, é necessário excluir primeiro a preparação feita. Neste caso:

Acesse a tela Tesouraria > Preparação/Movimento > Gerações e Emissões ( F600ECH), selecione a preparação e exclua;
Acesse Financeiro > C.Pagar > Pagamento Eletrônico > Remessa (F510PRM), selecione o arquivo de remessa em Nº Remessa e clique em Mostrar. Desmarque os títulos incorretos e clique em Processar.

Regerar remessa

A regeração de remessa ocorre quando o usuário quer gerar novamente uma remessa de pagamento eletrônico que já foi enviada para o banco portador.

Para regerar uma remessa é necessário, primeiramente, cancelar os títulos da remessa enviados anteriormente, fazer o mesmo procedimento de uma cancelamento de remessa. E após o cancelamento, os títulos poderão ser enviados novamente para uma nova remessa de pagamento eletrônico.

Se o campo Gerar Preparação(S/N) da tela de remessa estiver como "S - Sim", não será possível regerar o arquivo de remessa diretamente, ou seja, é necessário excluir primeiro a preparação feita. Neste caso:

Acesse a tela Tesouraria > Preparação/Movimento > Gerações e Emissões ( F600ECH), selecione a preparação e exclua;
Acesse Financeiro > C.Pagar > Pagamento Eletrônico > Remessa (F510PRM), selecione o arquivo de remessa em Nº Remessa e clique em Mostrar. Desmarque os títulos incorretos e clique em Processar.

Pagamento eletrônico

Definições cadastrais

O que você pode fazer:

PORTAL DE DOCUMENTAÇÃO
Gestão Empresarial \| ERP - versão 5.10.4 (XTended)