MM032 PHYINV PBO

*&---------------------------------------------------------------------*
*& Include ZVVF_MM032_PHYINV_0200_PBO *
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0200 OUTPUT *
*&---------------------------------------------------------------------*
MODULE STATUS_0200 OUTPUT.

SET PF-STATUS '0200'.
SET TITLEBAR 'TITLE_0200'.

IF W_FLAG200 IS INITIAL.
GET PARAMETER ID 'ZVVF_MM032PHINV_WERK' FIELD WA_PHYINV-ZVVF_WERKS.
GET PARAMETER ID 'ZVVF_MM032PHINV_Sloc' FIELD WA_PHYINV-ZVVF_LGORT.
GET PARAMETER ID 'ZVVF_MM032PHINV_Mat' FIELD WA_PHYINV-ZVVF_MATNR.
W_FLAG200 = '1'.
ENDIF.

ENDMODULE. " STATUS_0200 OUTPUT
*&---------------------------------------------------------------------*
*& Module GET_BOOKSTK OUTPUT *
*&---------------------------------------------------------------------*
MODULE GET_BOOKSTK OUTPUT.
CLEAR: WA_QUANTITY,WA_PHYINV-ZVVF_BKSTK.
SELECT SINGLE LABST INSME SPEME
FROM MARD
INTO CORRESPONDING FIELDS OF WA_QUANTITY
WHERE MATNR = WA_PHYINV-ZVVF_MATNR
AND WERKS = WA_PHYINV-ZVVF_WERKS
AND LGORT = WA_PHYINV-ZVVF_LGORT.

IF SY-SUBRC = 0.
WA_PHYINV-ZVVF_BKSTK = WA_QUANTITY-LABST
+ WA_QUANTITY-INSME
+ WA_QUANTITY-SPEME .

SELECT SINGLE MEINS INTO W_MEINS
FROM MARA
WHERE MATNR = WA_PHYINV-ZVVF_MATNR.
IF SY-SUBRC = 0.
if w_meins <> 'TO'.
CALL FUNCTION 'MB_UNIT_CONVERSION'
EXPORTING
ERFME = 'TO'
* ERFMG = 0
MATNR = WA_PHYINV-ZVVF_MATNR
MEINS = W_MEINS
MENGE = WA_PHYINV-ZVVF_BKSTK
* UMREN = 1
* UMREZ = 0
* CHARG =
* WERKS =
* CUOBJ =
IMPORTING
* O_ERFME =
O_ERFMG = WA_PHYINV-ZVVF_BKSTK
* O_MEINS =
* O_MENGE =
* O_UMREN =
* O_UMREZ =
* EXCEPTIONS
* CONVERSION_NOT_FOUND = 1
* DIFFERENT_DIMENSION = 2
* DIVISION_BY_ZERO = 3
* OVERFLOW = 4
* T006D_ENTRY_MISSING = 5
* T006_ENTRY_MISSING = 6
* OTHERS = 7
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDIF.
ENDIF.

IF W_DRYDIP = 0.
WA_PHYINV-ZVVF_DRYDIP = WA_PHYINV-ZVVF_HEIGHT -
( ( WA_PHYINV-ZVVF_BKSTK - WA_PHYINV-ZVVF_VOLUME ) * 1000 ) /
WA_PHYINV-ZVVF_CALIBRATION.
W_DRYDIP = 1.
ENDIF.
ENDIF.
ENDMODULE. " GET_BOOKSTK OUTPUT