Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Guilherme Leite Chaves

Gravado em

comparado com

Nova versão 6

changes.mady.by.user Guilherme Leite Chaves

Gravado em

Chave

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

...

Produto:

Microsiga Protheus

Versões:

12

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 borderoSE1->( dbSetOrder( 1 ) )SE1->( MsSeek( xFilial( "SE1" ) + "PRF" + "000000001" + " " + "NF " ) )// Titulo em borderoIf !Empty( SE1->E1_NUMBOR )  
 
  // Atualiza numero do titulo no banco    cNumBco := NossoNum()    Aviso( "NOSSONUM", "Número do título no banco: " + cNumBco, { "Ok" },  3 )EndIfReturn .T.