Hola,
Estoy programando un metodo, donde leo un fichero que envía XI a SAP, luego tengo que agregar el registro en una tabla Z del diccionario de datos.
Resulta que son 4 campo, de los cuales 3 lo hace bien pero el último campo solo me añade el último registro de la TI que guarda los datos de XI, no tengo idea de como resolverlo, ya he probado de todo, aqui le dejo el código a ver si me pueden ayudar.
row[] = input-mt_etl_carga_proxy-datos-item[].
LOOP AT row INTO wa_row WHERE nombre_campo EQ 'SOCIEDAD'.
ti_ztec_cv001-bukrs = wa_row-valor_campo. "Sociedad
INSERT ti_ztec_cv001 INTO TABLE row_aux.
* MODIFY TABLE row_aux FROM ti_ztec_cv001.
ENDLOOP.
LOOP AT row INTO wa_row WHERE nombre_campo EQ 'ZIDSO'.
ti_ztec_cv001-zidso = wa_row-valor_campo. "Id Sistema de origen
INSERT ti_ztec_cv001 INTO TABLE row_aux.
* UPDATE row_aux from ti_ztec_cv001.
* MODIFY TABLE row_aux FROM ti_ztec_cv001.
ENDLOOP.
LOOP AT row INTO wa_row WHERE nombre_campo EQ 'CODIGO'.
ti_ztec_cv001-zcodso = wa_row-valor_campo. "Código sistema origen
INSERT ti_ztec_cv001 INTO TABLE row_aux.
* UPDATE row_aux from ti_ztec_cv001.
* MODIFY TABLE row_aux FROM ti_ztec_cv001.
ENDLOOP.
LOOP AT row INTO wa_row WHERE nombre_campo EQ 'DESCR'.
ti_ztec_cv001-zdesc = wa_row-valor_campo. "Descripción
INSERT ti_ztec_cv001 INTO TABLE row_aux.
* UPDATE row_aux from ti_ztec_cv001.
* MODIFY TABLE row_aux FROM ti_ztec_cv001.
ENDLOOP.
LOOP AT row_aux INTO wa_ztec_cv001.
zztec_cv001-bukrs = wa_ztec_cv001-bukrs.
zztec_cv001-zidso = wa_ztec_cv001-zidso.
zztec_cv001-zcodso = wa_ztec_cv001-zcodso.
zztec_cv001-zdesc = wa_ztec_cv001-zdesc.
zztec_cv001-zcodsap = space.
MODIFY ztec_cv001 FROM zztec_cv001.
ENDLOOP.
Escuchos opinones de todos, estoy desesperada y tengo que entregarlo hoy.
Saludos
Estoy programando un metodo, donde leo un fichero que envía XI a SAP, luego tengo que agregar el registro en una tabla Z del diccionario de datos.
Resulta que son 4 campo, de los cuales 3 lo hace bien pero el último campo solo me añade el último registro de la TI que guarda los datos de XI, no tengo idea de como resolverlo, ya he probado de todo, aqui le dejo el código a ver si me pueden ayudar.
row[] = input-mt_etl_carga_proxy-datos-item[].
LOOP AT row INTO wa_row WHERE nombre_campo EQ 'SOCIEDAD'.
ti_ztec_cv001-bukrs = wa_row-valor_campo. "Sociedad
INSERT ti_ztec_cv001 INTO TABLE row_aux.
* MODIFY TABLE row_aux FROM ti_ztec_cv001.
ENDLOOP.
LOOP AT row INTO wa_row WHERE nombre_campo EQ 'ZIDSO'.
ti_ztec_cv001-zidso = wa_row-valor_campo. "Id Sistema de origen
INSERT ti_ztec_cv001 INTO TABLE row_aux.
* UPDATE row_aux from ti_ztec_cv001.
* MODIFY TABLE row_aux FROM ti_ztec_cv001.
ENDLOOP.
LOOP AT row INTO wa_row WHERE nombre_campo EQ 'CODIGO'.
ti_ztec_cv001-zcodso = wa_row-valor_campo. "Código sistema origen
INSERT ti_ztec_cv001 INTO TABLE row_aux.
* UPDATE row_aux from ti_ztec_cv001.
* MODIFY TABLE row_aux FROM ti_ztec_cv001.
ENDLOOP.
LOOP AT row INTO wa_row WHERE nombre_campo EQ 'DESCR'.
ti_ztec_cv001-zdesc = wa_row-valor_campo. "Descripción
INSERT ti_ztec_cv001 INTO TABLE row_aux.
* UPDATE row_aux from ti_ztec_cv001.
* MODIFY TABLE row_aux FROM ti_ztec_cv001.
ENDLOOP.
LOOP AT row_aux INTO wa_ztec_cv001.
zztec_cv001-bukrs = wa_ztec_cv001-bukrs.
zztec_cv001-zidso = wa_ztec_cv001-zidso.
zztec_cv001-zcodso = wa_ztec_cv001-zcodso.
zztec_cv001-zdesc = wa_ztec_cv001-zdesc.
zztec_cv001-zcodsap = space.
MODIFY ztec_cv001 FROM zztec_cv001.
ENDLOOP.
Escuchos opinones de todos, estoy desesperada y tengo que entregarlo hoy.
Saludos
Comentario