METHOD SET CODE

4D v20 R7

METHOD SET CODE


METHOD SET CODE ( ruta ; codigo {; operador} )

Parámetro	Tipo	Descripción
ruta	Texto, Array texto	Texto o array texto que contiene una o varias rutas de métodos
codigo	Texto, Array texto	Código de los métodos designados
operador	Operador	Si se pasa = el comando se aplica a la base local cuando se ejecuta desde un componente (parámetro ignorado fuera de este contexto)

Descripción

El comando METHOD SET CODE modifica el código de los métodos designados por el parámetro ruta con el contenido pasado en el parámetro codigo.

El comando puede acceder al código existente de todos los tipos de métodos: métodos base, definiciones de clases, triggers, métodos proyecto, métodos formulario y métodos objeto.

Si un método no existe, se crea con el contenidos de codigo.

Nota para proyectos:

La creación de un nuevo método con este comandos solo es posible para los métodos base, triggers y métodos proyecto.
El código se guarda con o sin tokens en proyectos recién creados según la opción Incluir tokens en los archivos fuente del proyecto en las Preferencias.

Puede utilizar dos tipos de sintaxis, basadas en arrays texto o en variables texto:

 C_TEXT(tVpath) // variables texto

 C_TEXT(tVcode)

 METHOD SET CODE(tVpath;tVcode) // código de un sólo método

 ARRAY TEXT(arrPaths;0) // arrays texto

 ARRAY TEXT(arrCodes;0)

 METHOD SET CODE(arrPaths;arrCodes) // código de varios métodos

No es posible mezclar las dos sintaxis.

Si pasa una ruta de acceso invalida, el comando no hace nada.

Cuando se llama METHOD SET CODE, los atributos de los métodos se reinicializan por defecto. Sin embargo, si la primera línea del codigo de un método contiene metadatos validos (expresados en JSON), se utilizan para definir los atributos del método y no se inserta la primera línea. Ejemplo de metadatos:

// %attributes = {"invisible":true,"lang":"fr","folder":"Security"}

Nota: estos metadatos son generados automáticamente por el comando METHOD GET CODE. Para más información sobre los atributos soportados, consulte la descripción del comando METHOD SET ATTRIBUTES.

Concerniente a la propiedad "folder" de los metadatos:

si esta propiedad está presente y corresponde a una carpeta válida, el método se ubica en su carpeta padre,
si esta propiedad no está presente o si la carpeta ya no existe, el comando no cambia a nivel de la carpeta padre,
cuando esta propiedad contiene una cadena vacía, el método se coloca a nivel raíz.

Puede ejecutar el comando desde un componente, en este caso, debe pasar el parámetro * por el acceso al código del componente en modo sólo lectura. Si omite el parámetro * en este contexto, se genera el error -9763.

Ejemplo

Este ejemplo exporta e importa la totalidad de los métodos proyecto de una aplicación:

 $root_t:=Get 4D folder(Database folder)+"methods"+Folder separator

 ARRAY TEXT($fileNames_at;0)

 CONFIRM("Import or export methods?";"Import";"Export")

 

 If(OK=1)

    DOCUMENT LIST($root_t;$fileNames_at)

    For($loop_l;1;Size of array($fileNames_at))

       $filename_t:=$fileNames_at{$loop_l}

       DOCUMENT TO BLOB($root_t+$filename_t;$blob_x)

       METHOD SET CODE($filename_t;BLOB to text($blob_x;UTF8 text without length))

    End for

 Else

    If(Test path name($root_t)#Is a folder)

       CREATE FOLDER($root_t;*)

    End if

    METHOD GET PATHS(Path project method;$fileNames_at)

    METHOD GET CODE($fileNames_at;$code_at)

    For($loop_l;1;Size of array($fileNames_at))

       $filename_t:=$fileNames_at{$loop_l}

       SET BLOB SIZE($blob_x;0)

       TEXT TO BLOB($code_at{$loop_l};$blob_x;UTF8 text without length)

       BLOB TO DOCUMENT($root_t+$filename_t;$blob_x)

    End for

 End if

 SHOW ON DISK($root_t)

Ver también

METHOD GET CODE