Esta función permite crear contadores en la tabla supervisor APLCOM y almacenar su valor. Cada contador puede ser indexado. Cada contador está disponible en una variable de clase [C] con el mismo nombre. Son estas variables de clase [C] las que deberán utilizarse en los procesos para la asignación de números secuenciales (por ejemplo, el número de proceso de importación generado). Las características de estas variables de clase [C] son las siguientes:

  • variable con el mismo nombre que el contador
  • variable que puede ser indexada
  • variable disponible desde la apertura de una sesión; no hay motivo para declararla en los procesos
  • variable común a todas las sesiones
  • variable que es alimentada y que alimenta automáticamente la tabla APLCOM mediante el motor.

Requisitos

SEEREFERTTO Consulta la documentación de Puesta en marcha

Gestión de pantalla

Pestaña Pantalla de introducción de datos

Bloque Número 1

Contador (campo COMNOM)

Este código identifica las fichas creadas de forma única.
Tipo (campo TYP)

Tipo de parámetro :

  • Char : Cadenas de caracteres
  • Integer : Número enteros
  • Decimal : Número decimal
  • Fecha: Fecha
  • "Descripción": Menú local
Longitud (campo COMLEN)

Tabla Lista de valores

N.º (campo NUMLIG)
Ind. (campo COMIND)
Valor (campo COMFLD)

Lista de contadores

Código

Utilización

 EXPORT

Número de exportaciones

 INTERLOC

Codificación automática de los interlocutores

 NUMFIL

 Número de fichero bancario

 NUMIMP

 Número de proceso de importación / exportación

 NUMTEX

 Número de texto

Método de desarrollo

Toda variable de clase [C] debe ser modificada en una transacción de introducción. Además, se efectúa un bloqueo de símbolo en esta variable antes de la modificación de la variable de clase [C]. No es necesario declarar la tabla APLCOM en los procesos; el motor se encarga de leer esta tabla para alimentar las variables de clase [C] así como para alimentarla automáticamente a partir del cambio de valor de la clase [C].

Ejemplo: asignación de un crono para la constitución del nombre del proceso de importación o exportación.

#-----------------#
$TR_NUMIMP
Trbegin APLCOM
 Gosub MAJ_NUMIMP
Commit
Return

#-----------------#
$MAJ_NUMIMP
Lock NUMIMP
If fstat=0
 NUMIMP = [C]NUMIMP
 [C]NUMIMP += 1
 If fstat: ER = 2 : Endif
Else
 ER = 1
Endif
Return

 

Mensajes de error

No hay ningún mensaje de error aparte de los mensajes de error genéricos.

Tablas utilizadas

SEEREFERTTO Consulta la documentación de Puesta en marcha