Hola Gustavo.
Para la factura electrónica, uso un ocx de terceros. pero no lo incrusto en el formulario, lo instancio en tiempo de ejecución. Por eso uso el REPOSITORY con este código.
Código COBOL:
CLASS OLE AS "*OLE"
CLASS EXCEP AS "*COM-EXCEPTION"
Despues a mi declaratives le agrego
Código COBOL:
err section.
use after exception excep.
invoke exception-object "GET-SOURCE" returning SRC.
invoke exception-object "GET-DESCRIPTION" returning MSG.
invoke pow-self "DisplayMessage" using MSG SRC POW-DMICONERROR.
exit program.
Es lo único que tengo para ayudarte, no sé si se adecuará a lo tuyo.
Saludos...
Fito...