|
Alguien me puede ayudar con el siguiente codigo ABAP.
tables: FMIOI, ZPRUEBAFMP.
DATA : it_FMIOI TYPE TABLE OF FMIOI with header line.
data: suma type i.
data: v_doc like fmioi-Refbn.
data: v_item like fmioi-RFPOS.
SELECT * FROM fmioi INTO TABLE it_fmioi where REFBT =
'020'.
delete from ZPRUEBAFMP.
DELETE ADJACENT DUPLICATES from it_fmioi
COMPARING refbn rfpos.
loop at it_fmioi.
clear v_doc.
clear v_item.
clear suma.
* loop at it_fmioi.
if it_fmioi-refbn = v_doc and it_fmioi-RFPOS = v_item.
suma = suma + it_fmioi-TRBTR.
else.
v_doc = it_fmioi-refbn.
v_item = it_fmioi-RFPOS.
endif.
* endloop.
SUM.
ZPRUEBAFMP-doc_ref = v_doc.
ZPRUEBAFMP-POSICION = v_item.
ZPRUEBAFMP-DENOMINACION = it_fmioi-SGTXT.
ZPRUEBAFMP-importe = suma.
ZPRUEBAFMP-moneda = it_fmioi-twaer.
if zpruebafmp-importe <> '0'.
insert ZPRUEBAFMP.
endif.
* endat.
endloop.
GRACIAS ¡¡¡
|