Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

 

NOSSONUM - Número disponível para identificação do título

Produto:

Microsiga Protheus

Versões:

12Todas

Ocorrência:

NOSSONUM - Número disponível para identificação do título- Nosso Número

Instruções:

A carga de dados é iniciado pelo cadastro de uma subconta na rotina de parâmetros bancos - FINA130.

Para que essa carga padrão ocorra é necessário que a rotina PARÂMETROS BANCOS - FINA130 esteja com data de 11/07/2016 ou superior, e  NÃO podem existir dados (registros) para o banco nas tabelas SEJ e/ou SEB. Caso HAJA dados desse banco nessas tabelas, a carga padrão NÃO é executada, ou seja, são mantidas as configurações já realizadas no Sistema.

 

  • Os Bancos atendidos na carga da tabela Ocorrências CNAB (SEB) são:
    • 001 – Banco do Brasil.
    • 033 – Santander.
    • 104 – CAIXA.
    • 237 – Bradesco.
    • 341 – Itaú.
    • 399 – HSBC.
    • 745 – Citibank.

 

  • Os Bancos atendidos na carga da tabela Ocorrências Extrato (SEJ) são:
    • 001 – Banco do Brasil.
    • 237 – Bradesco.
    • 341 – Itaú.

 

É importante dizer que, esse recurso de carga não substitui a configuração manual do Sistema
Retorna o próximo número disponível para identificação do titulo, de acordo com a faixa de numeração fornecida pelo banco.
Esta função é utilizada quando os boletos são impressos pela empresa e há necessidade de informar a numeração dos boletos no arquivo de remessa CNAB.

Síntaxe:

NOSSONUM() - Número disponível para identificação do título ( [Nil] ) --> cNumBco

Parâmetros/Elementos:

NomeTipoDescriçãoObrigatórioReferência
NilNuloNenhum  

Retorno:

cNumBco (caracter)
  • Número do título no banco, gravado no campo E1_NUMBCO, gerado a partir da faixa de numeração do cadastro de Parâmetros de Banco (SEE).
Exemplo:

#include "rwmake.ch"

User Function E1NUMBCO()

Local cNumBco := ""// Posiciona nos parametros do banco

SEE->( dbSetOrder( 1 ) )
SEE->( MsSeek( xFilial( "SEE" ) + "341" + "001 " + "001 " + "001" ) )// Banco / Agencia / Conta / Sub-conta
// Posiciona no titulo em bordero
SE1->( dbSetOrder( 1 ) )
SE1->( MsSeek( xFilial( "SE1" ) + "PRF" + "000000001" + " " + "NF " ) )// Titulo em bordero

If !Empty( SE1->E1_NUMBOR ) // Atualiza numero do titulo no banco
cNumBco := NossoNum()
Aviso( "NOSSONUM", "Número do título no banco: " + cNumBco, { "Ok" }, 3 )
EndIf
Return .T.