[Duda] Hacer referencia a un "Name" con una variable

[Kuk]

❞ error LNK2001: unresolved external symbol _XXXXXXXXXXX donde _XXXXXXXXXXX, es el nombre de la subrutina de la PROCEDURE donde están definidas esas variables. ¿Dónde puede estar el problema?

¿Estás respetando las minúsculas/mayúsculas? Alguna chorrada que se nos escapa por algún lado.

[Josber]

❞ ¿Estás respetando las minúsculas/mayúsculas?

Bueno eso ya está solucionado, increíblemente, he borrado la librería, he hecho un re-build completo, la he vuelto a añadir, compilado otra vez y ... ¡¡ta-channnn!!, ya no ha dado el error. El problema que tengo ahora es que si hago ésto

PERFORM VARYING I FROM 1 BY 1 UNTIL I > 6
               MOVE "Name" OF CAMPO (I) TO NOMBRE_CONTROL
END-PERFORM.
 
move NOMBRE_CONTROL to COBJECT.
CALL "POWERCONVTOCOM" USING COBJECT RETURNING OBJETO.

al ejecutar, me salta el error

JMP0221I-U CALL ERROR OCCURRED IN 'GET-hwnd' OF THE METHOD INVOCATION. 'NULL'

porque COBJECT, tiene valor 0, (NULL)

Sin embargo, si hago

PERFORM VARYING I FROM 1 BY 1 UNTIL I > 6
               MOVE  CAMPO (I) TO COBJECT
END-PERFORM.
 
CALL "POWERCONVTOCOM" USING COBJECT RETURNING OBJETO.

Funciona perfectamente, (aquí COBJECT, si que tiene un valor positivo), por lo visto, no se puede pasar el nombre a través de una variable, que es lo que necesito realmente, así que, de momento lo voy a dejar, porque no puedo pasar más tiempo con esto, lo haré manualmente de momento y más adelante, si puedo, lo retomaré.

muchas gracias.-

[Kuk]

@Josber, sí es verdad, cuando añades algo de vez en cuando el cache no se refresa y el Build no lo toma en cuenta. Hay que hacer Rebuild.

El "Name" es una propiedad, como un campo del control (objeto), no tiene Handle (hwnd).

Si pasas por COM/OLE, para obtener Propiedades o ponerlas, es todo pasando por INVOKE OBJETO "[ación]-[nombre_propiedad]", donde ación es SET o GET y nombre_propiedad es cualquiera que tiene el componente, como hwnd, Name, Width etc.

Ejemplos:

     ...
     MOVE  CAMPO (I) TO COBJECT
     ...
     CALL "POWERCONVTOCOM" USING COBJECT RETURNING OBJETO.
     
     INVOKE OBJETO "GET-Name" RETURNING WS-NOMBRE
     INVOKE OBJETO "GET-Text" RETURNING WS-CONTENIDO
     
     MOVE "Hola Josber" TO WS-CONTENIDO
     
     INVOKE OBJETO "SET-Text" USING WS-CONTENIDO
     
     invoke OBJETO "SetFocus"
     invoke OBJETO "Refresh"

[Fito]

Hola Amigos: Estoy tratando de seguir el hilo de esta conversación y hay conceptos que no manejo. Están programando a un nivel que no domino.

Pero tratando de entender los que quieres @Josber es con la misma rutina poder manejar las propiedades de distintos controles pasando como parámetro el nombre del control.

El "Name" de un control es un string, no es un objeto, por eso no podés hacer esto

PERFORM VARYING I FROM 1 BY 1 UNTIL I > 6
               MOVE "Name" OF CAMPO (I) TO NOMBRE_CONTROL
END-PERFORM.
 
move NOMBRE_CONTROL to COBJECT.
CALL "POWERCONVTOCOM" USING COBJECT RETURNING OBJETO.

COBJECT espera que le muevas un objeto no un string.

Ahora hacer

MOVE CAMPO (I) TO COBJECT

en lugar de

MOVE "Name" OF CAMPO (I) TO NOMBRE_CONTROL

Debería servirte lo mismo, porque en el "campo" COBJECT tendrías el objeto en cuestión. O seguramente algo se me está escapando.

Perdón por la ignorancia, pero es medio complicado para mi cabeza.

Saludos

Fito...

[Kuk]

@Fito, no se te escapa nada, llevas razón, es eso

[Josber]

@Fito, Sí es correcto lo que dices pero, no he puesto que CAMPO (I), es el nombre de un control que está en array, por lo que "su 'Name'", es CAMPO(n), ése nombre es el que necesito mover a una variable porque, no sólo es el control CAMPO (I), hay más controles, como INFO (I), SUM (I), VIEW (I), etc.
Entonces, yo lo que quiero es ahorrar programación, imagina que quiero vaciar esos campos, (que no es el caso, porque es más complicado), tendría que hacer un MOVE SPACES a cada uno de esos controles, sin embargo, si puedo mover la propiedad Name a una variable y luego "referenciar" esa variable en el INVOKE, ahorraría líneas de código.

Si hago:

MOVE CAMPO (I) TO COBJECT.

funciona perfectamente, pero si hago, (que es lo que necesito):

MOVE "Name" OF CAMPO (I) TO NOMBRE_CONTROL.
MOVE NOMBRE_CONTROL TO COBJECT.

ya no funciona, a pesar de que NOMBRE_CONTROL, contiene el valor correcto, en el primer caso COBJECT, tiene un valor positivo, pero en el segundo caso, COBJECT, tiene un valor 0, (nulo).

Espero que se entienda

Un salu2.-

[Kuk]

@Josber, te estás liando yo creo

Posibilidad Nº1 utilizando OBJECT-REFERENCE nombre_de_la_clase:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  misTextBox.
     05 miTextBox occurs 3 times OBJECT REFERENCE AMixed-DCmTextbox-Main-with-DCfGroupItem-Main.
 
 01  nombreTextBox pic x(20).
 01  contenTextBox pic x(30).
 01  idx           pic 9(4) comp-5.
 PROCEDURE       DIVISION.
     
     move "Hola Josber"   to "Text" OF CmText1
     move "Esta es la"    to "Text" OF CmText2
     move "posibilidad 1" to "Text" OF CmText3
          
     move CmText1 to miTextBox(1)
     move CmText2 to miTextBox(2)
     move CmText3 to miTextBox(3)
     
     move 1 to idx
     
     perform until idx > 3
         move "Name" OF miTextBox(idx) to nombreTextBox
         move "Text" OF miTextBox(idx) to contenTextBox
         
         display "Nombre: " nombreTextBox "   contenido: " contenTextBox
         
         add 1 to idx
     end-perform 
          

Posibilidad Nº2, pasando por COM/OLE:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  COBJECT         OBJECT REFERENCE POW-COBJECT.
 
 01  misTextBox.
     05 miTextBox occurs 3 times OBJECT REFERENCE COM.
     
 01  nombreTextBox pic x(20).
 01  contenTextBox pic x(30).
 01  idx           pic 9(4) comp-5.
 PROCEDURE       DIVISION.
       
     move "Hola Josber"   to "Text" OF CmText1
     move "Esta es la"    to "Text" OF CmText2
     move "posibilidad 2" to "Text" OF CmText3
     
     move CmText1 to COBJECT
     CALL "POWERCONVTOCOM" USING COBJECT RETURNING miTextBox(1)
     
     move CmText2 to COBJECT
     CALL "POWERCONVTOCOM" USING COBJECT RETURNING miTextBox(2)
     
     move CmText3 to COBJECT
     CALL "POWERCONVTOCOM" USING COBJECT RETURNING miTextBox(3)
     
     move 1 to idx
     
     perform until idx > 3
         invoke miTextBox(idx) "GET-Name" returning nombreTextBox
         invoke miTextBox(idx) "GET-Text" returning contenTextBox
         
         display "Nombre: " nombreTextBox "   contenido: " contenTextBox
         
         add 1 to idx
     end-perform 
     
     

[Fito]

Holaaa:

Exacto @Kuk, hay que hacer un array de objetos, no un array de los name de los objetos.

Está muy buena tu idea @Josber, yo tengo en un método del formulario todos los move y se hace larga la programación

Saludos

Fito...