✒️ABAP / Los IDocs de salida Por Oscar Rodriguez Villate
ABAP Los IDocs de salida
IDOCS DE SALIDA
SE GENERAN MEDIANTE:
- OUTPUT TYPES
- PUNTEROS DE MODIFICACION
-.PROGRAMA DE EXTRACCION ESTANDAR
- PROGRAMA DE EXTRACCION Z
LOS OUTPUT TYPES SE UTILIZAN CUANDO LA INFORMACION A ENVIAR SE TRATA DE DOCUMENTOS DE NEGOCIO O MEJOR LLAMADOS TRANSACCIONALES COMO POR EJEMPLO UN PEDIDO O UNA FACTURA. PARA ELLO, LA APLICACION DEBE SER EDI/ALE ENABLE.
LOS PUNTEROS DE MODIFICACION Y LOS PROGRAMAS EXTRACTORES SE UTILIZAN PARA REPLICAR DATOS MAESTROS O MODIFICACIONES DE LOS MISMOS.
SE CREAN EN LA TRANSACCION NACE SE GENERAN AUTOMATICAMENTE REGISTROS EN LA TABLA STANDAR NAST Y TNAPER LOS TIPOS DE SALIDA O OUTPUT TYPE SON CREADOS POR LOS ADMIN DE SISTEMA O SAP BASIS.
-----------------------------------------------------------------------------------------------------
OUTPUT TYPES
ES UN METODO DE GENERACION DE IDOCS DE SALIDA QUE SE UTILIZA PARA DATOS TRANSACCIONALES.
EL MANEJO DEL LADO FUNCIONAL ES EL MISMO UTILIZADO PARA IMPRESION DE FORMULARIOS:
- SE DEFINE UN OUTPUT MESSAGE (MENSAJE DE SALIDA), CONFIGURADO COMO SALIDA ALE/EDI.
- SE ASOCIA DICHO MENSAJE AL DOCUMENTO QUE DESEA ENVIARSE.
- SE DEBE CONFIGURAR ADEMAS, EL MENSAJE DE LOGISTICA EN LA HERRAMIENTA ALE (EN EL ACUERDO DE INTERLOCUTORES ACUERDO QUE SE REALIZA ENTRE EL EMISOR Y EL RECEPTOR DE UN MENSAJE EN DONDE SE ESTABLECE LA SINTAXIS Y SEMANTICA DE LOS DATOS INTERCAMBIADOS).
---------------------------------------------------------------------
PUNTEROS DE MODIFICACION
SE UTILIZAN PARA ENVIAR O DUPLICAR DATOS MAESTROS EN SISTEMAS EXTERNOS, CUANDO ESTOS DATOS SON CREADOS O MODIFICADOS.
PARA REALIZAR LA ACTIVACION DE PUNTEROS DE MODIFICACION EN FORMA GLOBAL UTILIZAREMOS LA TRANSACCION BD61.
LUEGO REALIZAREMOS LA ACTIVACION DE LOS PUNTEROS DE MODIFICACION POR TIPO DE MENSAJE A TRAVES DE LA TRANSACCION BD50.
TRANSACCIONES BD61 Y BD50
UTILIZAREMOS LAS TRANSACCIONES ESTANDAR BD61 Y BD50 PARA LA ACTIVACION DE LOS PUNTEROS DE MODIFICACION.
AQUI DEBEMOS AGREGAR UNA ENTRADA PARA EL MENSAJE DESEADO Y MARCARLA COMO ACTIVA.
AHORA DEBEMOS DEFINIR LAS TABLAS Y CAMPOS RELEVANTES PARA LA GENERACION DE PUNTEROS DE MODIFCACION MEDIANTE LA TRANSACCION BD52. PRIMERO INTRODUCIMOS EL TIPO DE MENSAJE.
LUEGO SE INGRESARA EL OBJETO DE MODIFICACION, LA TABLA Y EL CAMPO.
AHORA DEBEMOS CREA LA RELACION ENTRE EL TIPO DE MENSAJE Y EL MODULO DE FUNCION A TRAVES DE LA TRANSACCION BD60.
PARA CREAR LA RELACION DEBEREMOS GREAR EL MODULO DE FUNCION QUE SERA EL QUE INGRESEMOS EN LA TRANSACCION BD60.
PARA CREAR EL MODULO DE FUNCIONES Z, TOMAREMOS EL ENCABESADO DE UN MODULO ESTANDAR Y AGREGAREMOS NUESTRO CODIGO. LA LOGICA DEL MODULO DE FUNCION CONTENDRA LOS SIGUIENTES PASOS:
- LEER LOS PUNTEROS DE MODIFICACION GENERADOS USANDO LA FUNCION CHANGE_POINTERS_READ.
- ANALIZAR LOS PUNTEROS DE MODIFICACION PARA DETERMINAR CUALES DOCUMENTOS SON VALIDOS.
- DETERMINAR LA CLAVE DEL DOCUMENTO DE APLICACION DEL PASO ANTERIOR.
- SELECCIONAR DATOS DE APLICACION DE LA BASE DE DATOS, USANDO LA CLAVE DEL OBJETO IDENTIFICADA.
- SELECCIONAR DATOS DE APLICACION DE LA BASE DE DATOS, USANDO LA CLAVE DE OBJETO IDENTIFICADA.
- COMPLETAR LA INFORMACION DEL REGISTRO DE CONTROL DEL IDOC.
- COMPLETAR UNA TABLA INTERNA DE ESTRUCTURA EDIDD (ALMACENA DATOS DE UN IDOC) CON REGISTROS DE DATOS PARA TODOS LOS SEGMENTOS.
- LLAMAR AL SERVICIO MASTER_IDOC_DISTRIBUTE PARA CREAR LOS DATOS EN LA BASE DE DATOS.
- ACTUALIZAR EL ESTADO DE LOS PUNTEROS DE MODIFICACION.
- EJECUTAR UN COMMIT WORK.
FINALMENTE EJECUTAREMOS EL PROGRAMA RBDMIDOC (SE UTILIZA PARA CRER IDOCS A TRAVES DE PUNTEROS DE MODIFICACION PARA UN TIPO DE MENSAJE ESPECIFOCO. LUEGO DE CREADOS, LOS ENVIA AL SISTEMA RECEPTOR Y MARCA A LOS PUNTEROS DE MODIFICACION COMO PROCESADOS EN EL RESPECTIVO TIPO DE MENSAJE) PARA EJECUTAR EL IDOC, INTRODUCIENDO EL TIPO DE MENSAJE.
OTRAS TRANSACCIONES ESTANDAR MUY UTILELS SON: BD21 SELECCIONA PUNTEROS DE MODIFICACION , LA BD22 BORRAR PUNTEROS DE MODIFICACION, LA BD40 PARA LEER PUNTEROS DE MODIFICACION PARA GRUPOS.
------------------------------------------------------------------------------------------------------------------
PROGRAMAS DE EXTRACCION ESTANDAR
PARA CREACION DE IDOCS, ENVIAN A LOS SISTEMAS RECEPTORES, DATOS MAESTROS EN FORMA MASIVA, PARA CARGAS INICIALES, POR EJEMPLO DONDE SE DESEA REPLICAR GRAN PARTE DE LOS DATOS MAESTROS DEL SISTEMA CENTRAL A LOS SUBSISTEMAS DEL AMBIENTE.
ALGUNOS PROGRAMAS EXTRACTORES SON:
- BD10 - MAESTRO DE MATERIALES
- BD12 . MAESTRO DE CLIENTES
- BD14 - MAESTRO DE PROVEEDORES
ADEMAS PODEMOS PROGRAMAR LOS PROPIOS PROGRAMAS EXTRACTORES GENERADORES DE IDOCS. ESTOS PROGRAMAS UTILIZAN EL MODULO DE FUNCION MASTER_IDOC_DISTRIBUTE PARA DISTRIBUIR LA INFORMACION GENERADA A LOS SISTEMAS RECEPTORES.
SE DEBE ACTUALIZAR EL ACUERDO DE INTERLOCUTORES Y EL MODELO DE DISTRIBUCION PARA DEFINIR CUALES SERAN LOS SISTEMAS RECEPTORES.
-----------------------------------------------------------------------------------------------------------------------------
CODIGO DE CREACION DE IDOC DE SALIDA EN PROGRAMA Z
* DECLARACION DE DATOS DATA: c_message_type LIKE edidc-mestyp VALUE 'ZINVRV', "Tipo Mensaje c_base_idoc_type LIKE edidc-idoctp VALUE 'ZINVRV01',"Tipo de Idoc c_invrev_segname(7) TYPE C VALUE 'Z1INVRV', "Nombre Segmento c_rcvprn LIKE edidc-rcvprn VALUE 'SAPBCD', "Interloc. Destinat IDOC_CONTROL LIKE EDIDC, T_COMM_CONTROL LIKE EDIDC OCCURS 0 WITH HEADER LINE, IDOC_DATA LIKE EDIDD OCCURS 0 WITH HEADER LINE. * CAMPOS DE CONTROL DEL IDOC idoc_control-doctyp = c_message_type. "Tipo Mensaje idoc_control-mestyp = c_message_type. "Tipo Mensaje idoc_control-idoctp = c_base_idoc_type. "Tipo de Idoc idoc_control-serial = space. idoc_control-direct = '1'. idoc_control-serial = sy-datum. idoc_control-serial 8 = sy-uzeit. idoc_control-rcvprn = c_rcvprn "Nro Interlocutor Destinatario idoc_control-rcvprt = 'LS' "Tipo interlocutor destinatario APPEND idoc_control. * CAMPOS DE DATOS DEL IDOC * Esta sección la repite una vez por cada registro de datos a insertar * en el IDoc. * Indica cuál es el tipo de segmento IDOC_DATA-SEGNAM = C_INVREV_SEGNAME. "Nombre Segmento * Completa los datos de la estructura del segmento CLEAR Z1INVRV. Z1INVRV-CAMPO_01 = VALOR_01 ... ... ... Z1INVRV-CAMPO_NN = VALOR_NN * Mueve la estructura con los datos del segmento al único campo de datos. IDOC_DATA-SDATA = Z1INVRV. "Datos del Segmento * Inserta el registro actual a la tabla interna de datos del Idoc APPEND IDOC_DATA. *--- Call the distribute function with the required parameters CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE' EXPORTING MASTER_IDOC_CONTROL = IDOC_CONTROL TABLES COMMUNICATION_IDOC_CONTROL = T_COMM_CONTROL MASTER_IDOC_DATA = IDOC_DATA EXCEPTIONS ERROR_IN_IDOC_CONTROL = 1 ERROR_WRITING_IDOC_STATUS = 2 ERROR_IN_IDOC_DATA = 3 SENDING_LOGICAL_SYSTEM_UNKNOWN = 4 OTHERS = 5. IF SY-SUBRC EQ 0. COMMIT WORK. ENDIF.--------------------------------------------------------------
CODIGO PORCEAA PUNTEROS DE MODIFICACION
*&---------------------------------------------------------------------* *& Report z_test_punteros_modif *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT z_test_punteros_modif. * Utilizamos el tipo de mensaje MATMAS DATA: message_type LIKE bdcps-mestype VALUE 'MATMAS', message_type_write LIKE edidc-mestyp VALUE 'MATMAS', creation_date_high LIKE sy-datum, creation_time_high LIKE sy-uzeit, c_x LIKE bdcps-process VALUE 'X'. * Changepointer DATA: BEGIN OF t_chgptrs OCCURS 10. INCLUDE STRUCTURE bdcp. DATA: END OF t_chgptrs. DATA: BEGIN OF t_cpident OCCURS 10, cpident LIKE bdcp-cpident, END OF t_cpident. *&---------------------------------------------------------------------* START-OF-SELECTION. *&---------------------------------------------------------------------* CLEAR: t_chgptrs, t_cpident. REFRESH: t_chgptrs, t_cpident. MOVE: sy-datum TO creation_date_high, sy-uzeit TO creation_time_high. * read all not processed change pointer for the give messagetype CALL FUNCTION 'CHANGE_POINTERS_READ' EXPORTING message_type = message_type creation_date_high = creation_date_high creation_time_high = creation_time_high read_not_processed_pointers = c_x TABLES change_pointers = t_chgptrs. LOOP AT t_chgptrs. MOVE t_chgptrs-cpident TO t_cpident-cpident. APPEND t_cpident. ENDLOOP. * write staus of all processed pointers CALL FUNCTION 'CHANGE_POINTERS_STATUS_WRITE' EXPORTING message_type = message_type_write TABLES change_pointers_idents = t_cpident. CLEAR t_chgptrs. REFRESH t_chgptrs. * read all not processed change pointer for the give messagetype CALL FUNCTION 'CHANGE_POINTERS_READ' EXPORTING message_type = message_type creation_date_high = creation_date_high creation_time_high = creation_time_high read_not_processed_pointers = c_x TABLES change_pointers = t_chgptrs. WRITE:/ 'Finalizo el proceso de borrado de Pointers'.
Escanear / Compartir
Sobre el autor
Publicación académica de Oscar Guillermo Rodriguez Villate, en su ámbito de estudios para el Curso SAP ABAP Avanzado.
SAP Expert
Oscar Guillermo Rodriguez Villate
Profesión: Ingeniero de Sistemas - Colombia - Legajo: WM49P
✒️Autor de: 103 Publicaciones Académicas
🎓Egresado de los módulos:
Disponibilidad Laboral: FullTime
