NOSSONUM - Número disponible para identificación del título

Producto:

Microsiga Protheus

Versiones:

Todas

Ocurrencia:

NOSSONUM - Número disponible para identificación del título- Nuestro Número

Instrucciones:

Devuelve el siguiente número disponible para identificar el título, de acuerdo con el rango de numeración proporcionada por el banco.

Esta función se utiliza cuando la empresa imprime las boletas y existe la necesidad de informar la numeración de las boletas en el archivo de remesa CNAB.

Sintaxis:

NOSSONUM() - Número disponible para identificar el título ( [Nil] ) --> cNumBco

Parámetros/Elementos:

Nombre

Tipo

Descripción

Obligatorio

Referencia

Nil

Nulo

Ninguno



Devolución:

cNumBco (carácter)

  • Número del título en el banco, grabado en el campo E1_NUMBCO, generado a partir del rango de numeración del registro de parámetros de Banco (SEE).

Ejemplo:

#include "rwmake.ch"

User Function E1NUMBCO()

Local cNumBco := ""// Posiciona en los parámetros del banco

SEE->( dbSetOrder( 1 ) )
SEE->( MsSeek( xFilial( "SEE" ) + "341" + "001 " + "001 " + "001" ) )// Banco / Agencia / Cuenta / Subcuenta
// Posiciona en el título en borderó
SE1->( dbSetOrder( 1 ) )
SE1->( MsSeek( xFilial( "SE1" ) + "PRF" + "000000001" + " " + "NF " ) )// Título en borderó

If !Empty( SE1->E1_NUMBOR ) // Actualiza número del título en el banco
cNumBco := NossoNum()
Aviso( "NOSSONUM", "Número del título en el banco: " + cNumBco, { "Ok" }, 3 )
EndIf
Return .T.