Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL y COM/OLE
PowerCOBOL y COM/OLE La utilización de COM / OLE en PowerCOBOL
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Traspaso de valor en variable entre 2 Forms jmeza PowerCOBOL (ActiveX, v4 - v11) 12 13 de noviembre de 2018 20:24
[Sintaxis] Obtener la propiedad "Name" del Form en ejecución Fito PowerCOBOL (ActiveX, v4 - v11) 4 19 de julio de 2016 00:47
[Sintaxis] Propiedad "Bring to front" Roger PowerCOBOL (ActiveX, v4 - v11) 1 21 de marzo de 2015 22:20
[Sintaxis] Valor SHIFT+TAB Recato53 PowerCOBOL (ActiveX, v4 - v11) 3 18 de febrero de 2015 18:51
Respuesta
 
Herramientas

  #1
Antiguo 22 de diciembre de 2015, 11:32
IDENTIFICATION DIVISION
lfortuny
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de lfortuny
DATA DIVISION
Forero desde (Registrado)diciembre 2015
España
UbicaciónTarragona / Riudoms
Última Actividad08.05.2019 11:02
PROCEDURE DIVISION
PostsPosts: 13
Ha dicho GraciasEnviado: 13
Ha recibido agradecimientosRecibido: 1
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
lfortuny is on a distinguished road
Capas Asignar valor a una propiedad

Se más o menos como invocar un método COM de un server object. Lo que no se es como proceder con un COM property.
Tengo que pasar un valor a una propiedad, he intentado lo siguiente:

Código COBOL:
  1. INVOKE COM "Create-Object" USING mail_driver RETURNING mail_server
  2. INVOKE mail_server "LicenseCode" USING BY REFERENCE licencia

Y siempre me devuelve:
ERROR OCCURRED IN THE 'LICENSECODE' METHOD OF THE SPECIAL CLASS "*COM/*OLE". SCODE=0x80020003

Si intento con:
Código COBOL:
  1. MOVE LicenseCode"       TO  METHOD-NAME
  2. INVOKE mail_server METHOD-NAME USING BY REFERENCE licencia

Me devuelve un error type = 1.

1 : The COM system detected the error. To reference error details, execute
the GET-SCODE and GET-SCODE-TEXT methods. If another method
is executed, a null or 0 is returned.

He probado con el GET-SCODE y me devuelve un número pero el GET-SCODE-TEXT me devuelve un NULL y no me sirve de mucho.


¿Alguien me puede ayudar?

Gracias a tod@s y FELICES FIESTAS.
lfortuny no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 1
  #2
Antiguo 22 de diciembre de 2015, 11:42
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad34 años
Última Actividad17.11.2019 11:00
PROCEDURE DIVISION
PostsPosts: 1.421
Ha dicho GraciasEnviado: 318
Ha recibido agradecimientosRecibido: 541
Mejores respuestasSoluiones: 87
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

lfortuny, lee las normas del foro, que has infringido unas cuantas. El título del tema no describe nada, hay que meter código fuente en TAG-s correspondientes... Ya lo he corregido todo, intenta a partir de ahora hacerlo todo bien para que esto se mantenga en condiciones

En cuanto a tu pregunta, sería:

Código COBOL:
  1.      INVOKE mail_server "SET-LicenseCode" USING licencia

Para obtener una propiedad, en lugar de SET sería GET (evidentemente).


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
lfortuny (22 de diciembre de 2015)
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 11:27.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.