funcion EsCampoConsultaProyecto (

codCampo: cadena;

NomFichero: cadena)

:booleano;

Comprueba si el código del campo corresponde a un campo de consulta sobre el fichero de proyecto indicado.

---

Esta función recibe un código de campo, codCampo, y un nombre de fichero de proyecto, NomFichero, y devuelve Cierto si el campo es un campo de consulta sobre dicho fichero.

Módulo

G77_FUNCIONES_STD

Parámetros

• codCampo: El código del campo a comprobar.
• NomFichero: El nombre del fichero.

Valor devuelto

Cierto si se trata de un campo de consulta sobre el fichero indicado, y Falso en cualquier otro caso.

Temas relacionados

· Del Manual de OriGn: Temas avanzados >> OIDs y referencias entre ficheros

· Del Manual de OriGn: Temas avanzados >> Nombre de los campos en la BD (códigos de campos)

Ver también

• EsCampoReferencia
• EsConjuntoCampanya

Ejemplo

procedimiento TGestFichRelContacto.RegistrarFichRelacionado(
 nom, campoRelacion, campoInterno: cadena);
inicio
 // ** Comprobaciones de parámetros correctos
 Si nom = '' entonces levanta EGestFichRelContacto.Create(ES57);
 Si campoRelacion = '' entonces 
 levanta EGestFichRelContacto.Create(ES63);
 
 Si NO (EsCampoConsultaProyecto(campoRelacion, 'CONTACTO')) entonces
 levanta EGestFichRelContacto.Create(ES63);
 
 _FicheroRelacionado := nom ;
 _CampoRelacion := campoRelacion;
 _CampoInterno := campoInterno;
fin;
 

---