Ich versuche ein schon bestehendes IDOC erneut zu versenden und habe mir aus der TA: WE19 den Ablauf Kopiert. Es wird alles ohne Fehlermeldung durchlaufen aber das Idoc wird nicht verschickt. Also in der WE02 kann ich kein neues Idoc erkennen. Wenn ich das über den Button "Standard Ausgang" laufen lasse geht es. Alles ist identisch PORT usw.
hat Jemand eine Idee woran das liegen kann?
- Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
- idrefnr TYPE eideswtmdidrefnr
- CHANGING send_successful TYPE kennzx.
- * local variables
- l_offset TYPE i,
- l_segtyp TYPE tidoc_segment_type,
- l_control_record TYPE tidoc_control_record_db,
- l_wa_edids LIKE edids.
- i_edidc LIKE edidc OCCURS 0 WITH HEADER LINE,
- ls_edidc LIKE LINE OF i_edidc,
- i_edidd LIKE edidd OCCURS 0 WITH HEADER LINE.
- err_flag LIKE edi_help-error_flag.
- edipod LIKE edipod,
- edipo2 LIKE edipo2,
- edipoi LIKE edipoi,
- edipoxh LIKE edipoxh,
- edipox LIKE edipox,
- edipof LIKE edipof,
- port_typ LIKE ediport-porttyp,
- version LIKE edipod-versio,
- description LIKE ediport-descri.
- EXIT.
- "IDOC HEAD DATA lesen.
- CALL FUNCTION 'EDI_DOCUMENT_OPEN_FOR_READ'
- EXPORTING
- document_number = idoc_number_in
- IMPORTING
- idoc_control = l_control_record
- EXCEPTIONS
- document_foreign_lock = 1
- document_not_exist = 2
- document_number_invalid = 3
- OTHERS = 4.
- CALL FUNCTION 'EDI_SEGMENTS_GET_ALL'
- EXPORTING
- document_number = idoc_number_in
- idoc_containers = i_edidd
- EXCEPTIONS
- document_number_invalid = 1
- end_of_document = 2
- OTHERS = 3.
- * could not read segments of idoc
- * MESSAGE ID sy-msgid
- * TYPE sy-msgty
- * NUMBER sy-msgno
- * WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
- EXIT.
- * close idoc after usage
- CALL FUNCTION 'EDI_DOCUMENT_CLOSE_READ'
- EXPORTING
- document_number = idoc_number_in
- IMPORTING
- idoc_control = l_control_record
- EXCEPTIONS
- document_not_open = 0
- parameter_error = 0
- OTHERS = 0.
- ELSE.
- EXIT.
- EXIT.
- * Freitextdfeld hinzufügen.
- help_rcvpor = l_control_record-rcvpor.
- * nachsehen, von welchem Porttyp der Empfängerport ist und routen zum
- * entsprechenden SendeFBStein
- CALL FUNCTION 'EDI_PORT_READ'
- EXPORTING
- portname = help_rcvpor
- IMPORTING
- ale_port = edipoa
- file_port = edipod
- r2_port = edipo2
- pss_port = edipof
- inet_port = edipoi
- xmb_port = edipoxh
- xml_port = edipox
- typ = port_typ
- * version =
- EXCEPTIONS
- port_not_exist = 1
- OTHERS = 2.
- * IDOC VIA HTTP Versenden
- CALL FUNCTION 'IDOCS_OUTPUT_VIA_XML_HTTP'
- EXPORTING
- nast_record = nast_rec
- error_flag = err_flag
- port_description = edipoxh
- i_edidc = i_edidc
- i_edidd = i_edidd.
- COMMIT WORK.
- GeSHi ©
[/code]