Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Guilherme Leite Chaves

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Renato Goes Ito

Gravado em

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:
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.