Á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


   borderoSE1 em borderoIf
 
)EndIfReturn  

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.