|
ok ya medio lo resolvi
tuve que poner varias funciones mas , asi me quedo el codigo
CALL FUNCTION 'MASTER_IDOC_DISTRIBUTE'
EXPORTING
master_idoc_control = control_record
* OBJ_TYPE = ''
* CHNUM = ''
TABLES
communication_idoc_control = i_communication
master_idoc_data = i_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 <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
LOOP AT i_communication.
WRITE: / 'IDOC GENERATED', i_communication-docnum.
CALL FUNCTION 'EDI_DOCUMENT_OPEN_FOR_PROCESS'
EXPORTING
DOCUMENT_NUMBER = i_communication-docnum
IMPORTING
IDOC_CONTROL = control_record
EXCEPTIONS
DOCUMENT_FOREIGN_LOCK = 01
DOCUMENT_NOT_EXIST = 02
DOCUMENT_NUMBER_INVALID = 03
ERROR_MESSAGE = 04
OTHERS = 05.
clear edi_ds.
edi_ds-docnum = i_communication-docnum.
edi_ds-status = '03'.
CALL FUNCTION 'EDI_DOCUMENT_STATUS_SET'
EXPORTING
DOCUMENT_NUMBER = i_communication-DOCNUM
IDOC_STATUS = edi_ds
IMPORTING
IDOC_CONTROL = control_record
EXCEPTIONS
DOCUMENT_NUMBER_INVALID = 1
OTHER_FIELDS_INVALID = 2
STATUS_INVALID = 3
OTHERS = 4
.
CALL FUNCTION 'EDI_DOCUMENT_CLOSE_PROCESS'
EXPORTING
DOCUMENT_NUMBER = i_communication-DOCNUM.
COMMIT WORK.
endloop.
y ademas vi que en el acuerdo de interlocutores vi que algunos idocs estaban en el modo de salida 4 , osea agrupando idocs en vez de lanzarlos inmediatamente , aunque no estoy muy seguro de que por eso haya sido
mi problema ahora es que manda algunos pero otros no
extrañamente no manda solo primero 2 o 3 y todos los demas si
alguna sugerencia?
|