javiercar
21/10/08, 14:04:22
Hola gente, la verdad q no se porque no me anda lo siguiente:
El at new no me lo toma,entra siempre,
Ejemplo tengo werks :
i_lips[1]-werks = NL03
i_lips[2]-werks = NL03
i_lips[3]-werks = NL03
i_lips[4]-werks = GB01
y entra las 4 veces q pasa por el at new, la tabla interna esta ordenada asi como aparece en el ejemplo, no se usa Header Lines porq no esta permitodo.
Gracias!.
Saludos!.
LOOP AT i_lips INTO r_lips.
AT NEW werks.
IF NOT l_send IS INITIAL.
MESSAGE 'Manda IDOC' TYPE 'S'.
CLEAR: r_head_s,
r_idoc_data,
l_send,
i_idoc_data[].
ENDIF.
*Header fields
r_head_s-vkorg = r_likp-vkorg.
r_head_s-vstel = r_likp-vstel.
r_head_s-werks = r_lips-werks.
r_head_s-vbeln = r_likp-vbeln.
r_idoc_data-sdata = r_head_s.
r_idoc_data-segnam = c_hdr_segment.
APPEND r_idoc_data TO i_idoc_data.
l_send = c_send.
ENDAT.
El at new no me lo toma,entra siempre,
Ejemplo tengo werks :
i_lips[1]-werks = NL03
i_lips[2]-werks = NL03
i_lips[3]-werks = NL03
i_lips[4]-werks = GB01
y entra las 4 veces q pasa por el at new, la tabla interna esta ordenada asi como aparece en el ejemplo, no se usa Header Lines porq no esta permitodo.
Gracias!.
Saludos!.
LOOP AT i_lips INTO r_lips.
AT NEW werks.
IF NOT l_send IS INITIAL.
MESSAGE 'Manda IDOC' TYPE 'S'.
CLEAR: r_head_s,
r_idoc_data,
l_send,
i_idoc_data[].
ENDIF.
*Header fields
r_head_s-vkorg = r_likp-vkorg.
r_head_s-vstel = r_likp-vstel.
r_head_s-werks = r_lips-werks.
r_head_s-vbeln = r_likp-vbeln.
r_idoc_data-sdata = r_head_s.
r_idoc_data-segnam = c_hdr_segment.
APPEND r_idoc_data TO i_idoc_data.
l_send = c_send.
ENDAT.