lunes, 5 de marzo de 2012

Funcion para obtener condiciones de precio de factura sap

*Solo hay que llenar el numero de factura y marcar KONV_READ = 'X', y el numero de factura

data i_VBRK_I like VBRK.
data zkomv like KOMV occurs 0 with header line.
data zVBPA like VBPAVB occurs 0 with header line.
data zVBRK like VBRKVB occurs 0 with header line.
data zVBRP like VBRPVB occurs 0 with header line.
i_VBRK_I-vbeln = i_t-vbeln.
CALL FUNCTION 'RV_INVOICE_DOCUMENT_READ'
EXPORTING
KONV_READ = 'X'
VBRK_I = i_VBRK_I
TABLES
XKOMV = zKOMV
XVBPA = zVBPA
XVBRK = zVBRK
XVBRP = zVBRP.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.