Que tal a todos:
Tengo el siguiente problema y no se si a alguien le haya pasado que pueda orientarme.
Estoy buscando la manera de enviar información de sap a un tabla en una base de datos en SQL Server.
Encontre un codigo con el cual se puede realizar a travez de un objeto ole2_object. modifique el codigo de acuerdo a mis necesidades y funciono de manera adecuada, pero cuando pongo a trabajar el programa z en un job no abre la conexion. (esto lo descubri despues de muchas pruebas).
Lo que se me hace curioso es que si le hago un debug al job si funciona, ya cheque la transacción SU53 para verificar que no fuera algun permiso y no me arroja nada.
Alguien tiene alguna otra idea de como poder resolver este problema.
Codigo de la función para abrir la conexion al servidor SQL.
*******************CODIGO*************************
REPORT zsdr015a.
INCLUDE ole2incl.
CONSTANTS: provider(40) VALUE 'Provider=SQLOLEDB.1',
security(160) VALUE 'Password=<<password>>;Persist Security Info=True;User ID=<<usuario>>',
datasource(60) VALUE 'Initial Catalog=<<BDD>>;Data Source=<<Server>>'.
DATA: o_conn TYPE ole2_object,
o_recordset TYPE ole2_object,
o_field TYPE ole2_object.
DATA: con_str(400) ,sql_str(400).
DATA: BEGIN OF ty_etcfds OCCURS 0,
mandt TYPE c LENGTH 3,
centro TYPE c LENGTH 4,
documento TYPE c LENGTH 10,
fecha_pago TYPE c LENGTH 25,
END OF ty_etcfds.
DATA: BEGIN OF ty_itcfds OCCURS 0,
mandt TYPE vbrk-mandt,
bukrs TYPE vbrk-bukrs,
vbeln TYPE vbrk-vbeln,
augdt TYPE bsad-augdt,
erzet TYPE vbrk-erzet,
END OF ty_itcfds.
DATA: etab_cfd LIKE TABLE OF ty_etcfds WITH HEADER LINE.
DATA: itab_cfd LIKE TABLE OF ty_itcfds WITH HEADER LINE.
START-OF-SELECTION.
CALL FUNCTION 'AUTHORITY_CHECK_OLE'
EXPORTING
PROGRAM = SY-REPID
ACTIVITY = 'CALL'
APPLICATION = 'XXX'
EXCEPTIONS
NO_AUTHORITY = 1
ACTIVITY_UNKNOWN = 2.
IF SY-SUBRC EQ 0.
PERFORM oledb_open.
IF O_CONN-HANDLE GE 0.
* Aqui continuaria con lo que tiene que hacer el programa
ELSE.
WAIT UP TO 2 SECONDS. "Pausa para determinar que se detuvo por no abrir la conexion
MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgno
WITH SY-REPID O_CONN-HANDLE.
ENDIF.
ELSE.
WAIT UP TO 3 SECONDS. "Pausa para determinar que se detuvo por falta de permisos
MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgno
WITH SY-REPID.
ENDIF
*&---------------------------------------------------------------------*
*& Form oledb_open
*&---------------------------------------------------------------------*
FORM oledb_open.
CONCATENATE provider ';' security ';' datasource INTO con_str.
CREATE OBJECT o_conn 'ADODB.Connection'.
SET PROPERTY OF o_conn 'Provider' = provider.
SET PROPERTY OF o_conn 'ConnectionString' = con_str.
CALL METHOD OF o_conn 'Open'.
COMMIT WORK.
IF SY-SUBRC NE 0.
WRITE SY-MSGLI.
ENDIF.
* Verifica si hay errores de conexión
GET PROPERTY OF o_conn 'ERRORS' = o_field.
IF SY-SUBRC NE 0.
WAIT UP TO 4 SECONDS. "Pausa para determinar que ocurrio un error en la conexion.
MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgno
WITH o_field-HANDLE.
ENDIF.
ENDFORM. "OLEDB_open