Autofacturacion - RFKORDES -

[alxixon]

SELECT SINGLE * FROM t007a INTO l_t007a
WHERE kalsm = si_kalsm
AND mwskz = bset-mwskz.
* Changes acc. to Real Decree 1496/2003 - note 767548
IF ( l_t007a-egrkz CA ' 239' AND sy-subrc = 0 )
AND bset-ktosl = lwa_ides_si-ktosl." KtoSchl aus Cust.
MOVE-CORRESPONDING bset TO hbset.
APPEND hbset.
ENDIF.

* Article and law is different for Services and Waste Materials
* Define the text for the form
IF l_t007a-egrkz = '2' or l_t007a-egrkz = '3'. "services
MOVE 'IVA/84/2_SE' TO law_text.
ELSEIF l_t007a-egrkz = '9'. "waste materials
MOVE 'IVA/84/2_WA' TO law_text.
ENDIF.
ENDSELECT.