MM032 PHYINV PBO

*&---------------------------------------------------------------------*
*& Include ZVVF_MM032_PHYINV_0300_PBO *
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0300 OUTPUT *
*&---------------------------------------------------------------------*
MODULE STATUS_0300 OUTPUT.
SET PF-STATUS '0300'.
SET TITLEBAR 'TITLE_0300'.
ENDMODULE. " STATUS_0300 OUTPUT

*&spwizard: output module for tc 'IT_MB1A'. do not change this line!
*&spwizard: update lines for equivalent scrollbar
module ZVVF_MT032_PHIN_change_tc_attr output.
describe table g_ZVVF_MT032_PHIN_itab lines
ZVVF_MT032_PHIN-lines.
endmodule.


*---------------------------------------------------------------------*
* MODULE ZVVF_MT032_PHIN_move OUTPUT *
*---------------------------------------------------------------------*
module ZVVF_MT032_PHIN_move output.
move-corresponding g_ZVVF_MT032_PHIN_wa to ZVVF_MT032_PHINV.
endmodule. "ZVVF_MT032_PHIN_move OUTPUT

*&spwizard: output module for tc 'ZVVF_TABLE'. do not change this line!
*&spwizard: get lines of tablecontrol
module ZVVF_MT032_PHIN_get_lines output.
g_ZVVF_MT032_PHIN_lines = sy-loopc.
endmodule. "ZVVF_MT032_PHIN_get_lines OUTPUT

*---------------------------------------------------------------------*
* MODULE ZVVF_MT032_PHIN_init OUTPUT *
*---------------------------------------------------------------------*
module ZVVF_MT032_PHIN_init output.
if g_ZVVF_MT032_PHIN_copied is initial.
*&spwizard: copy ddic-table 'ZVVF_MT032_PHINV'
*&spwizard: into internal table 'g_ZVVF_TABLE_itab'
select * from ZVVF_MT032_PHINV
into corresponding fields
of table g_ZVVF_MT032_PHIN_itab.
PERFORM CALC_BOOKSTOCK.
g_ZVVF_MT032_PHIN_copied = 'X'.
refresh control 'ZVVF_MT032_PHIN' from screen '0300'.
endif.
endmodule. "ZVVF_MT032_PHIN_init OUTPUT

FORM CALC_BOOKSTOCK.

loop at g_ZVVF_MT032_PHIN_itab into g_ZVVF_MT032_PHIN_wa.
CLEAR : WA_QUANTITY-LABST,WA_QUANTITY-INSME,WA_QUANTITY-SPEME.
SELECT SINGLE LABST INSME SPEME
FROM MARD
INTO CORRESPONDING FIELDS OF WA_QUANTITY
WHERE MATNR = g_ZVVF_MT032_PHIN_wa-ZVVF_MATNR
AND WERKS = g_ZVVF_MT032_PHIN_wa-ZVVF_WERKS
AND LGORT = g_ZVVF_MT032_PHIN_wa-ZVVF_LGORT.

g_ZVVF_MT032_PHIN_wa-ZVVF_BKSTK = WA_QUANTITY-LABST
+ WA_QUANTITY-INSME
+ WA_QUANTITY-SPEME .

SELECT SINGLE MEINS INTO W_MEINS
FROM MARA
WHERE MATNR = g_ZVVF_MT032_PHIN_wa-ZVVF_MATNR.
IF SY-SUBRC = 0.
if w_meins <> 'TO'.
CALL FUNCTION 'MB_UNIT_CONVERSION'
EXPORTING
ERFME = 'TO'
* ERFMG = 0
MATNR = g_ZVVF_MT032_PHIN_wa-ZVVF_MATNR
MEINS = W_MEINS
MENGE = g_ZVVF_MT032_PHIN_wa-ZVVF_BKSTK
* UMREN = 1
* UMREZ = 0
* CHARG =
* WERKS =
* CUOBJ =
IMPORTING
* O_ERFME =
O_ERFMG = g_ZVVF_MT032_PHIN_wa-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.

g_ZVVF_MT032_PHIN_wa-ZVVF_PHYSTK = g_ZVVF_MT032_PHIN_wa-ZVVF_BKSTK.
g_ZVVF_MT032_PHIN_wa-ZVVF_DRYDIP =
g_ZVVF_MT032_PHIN_wa-ZVVF_HEIGHT - ( (
g_ZVVF_MT032_PHIN_wa-ZVVF_BKSTK - g_ZVVF_MT032_PHIN_wa-ZVVF_VOLUME )
* 1000 ) / g_ZVVF_MT032_PHIN_wa-ZVVF_CALIBRATION.
modify g_ZVVF_MT032_PHIN_itab from g_ZVVF_MT032_PHIN_wa.
endloop.

ENDFORM.