Program for Converting Dry Dip to Volume for * * Physical Inventory

*---------------------------------------------------------------------*
* Module pool ZVVF_MM032_PHYINV *
*---------------------------------------------------------------------*
* *
* MODULE : Material Management *
* *
*---------------------------------------------------------------------*
* Objective : Program for Converting Dry Dip to Volume for *
* Physical Inventory *
* Program : Update Tables (X) Download Data ( ) Outputs List ( )*
* Technical Specs No : *
* *
* LDB : *
* *
*---------------------------------------------------------------------*
PROGRAM ZVVF_MM032_PHYINV.

TYPE-POOLS : SLIS.
*---------------------------------------------------------------------*
* Tables *
*---------------------------------------------------------------------*
TABLES : ZVVF_MT032_PHINV, "TABLE FOR STORING PHYSICAL INVENTORY
T001W, "Plants/Branches
T001L, "Storage Locations
MARA, "General Material Data
AFRU. "Order Confirmations

*----------------------------------------------------------------------*
* INTERNAL TABLES: Begin with IT_ *
*----------------------------------------------------------------------*
DATA : IT_PHYINV TYPE STANDARD TABLE OF ZVVF_MT032_PHINV WITH HEADER
LINE,
IT_AFRU TYPE STANDARD TABLE OF AFRU WITH HEADER LINE,
WA_AFRU LIKE AFRU.
DATA : BEGIN OF IT_GR OCCURS 0,
AUFNR TYPE AUFNR,
CHARG TYPE CHARG_D,
INSMK TYPE MENGE_D,
MEINS TYPE MEINS,
END OF IT_GR.
DATA : BEGIN OF IT_DISP OCCURS 0,
ZVVF_WERKS TYPE WERKS_D,
ZVVF_LGORT TYPE LGORT_D,
ZVVF_MATNR TYPE MATNR,
ZVVF_HEIGHT TYPE HOEHE,
ZVVF_CALIBRATION TYPE ZCALIBRATION,
ZVVF_VOLUME TYPE VOLUM,
ZVVF_DRYDIP TYPE ZDRYDIP,
ZVVF_PHYSTK TYPE ZPHYSTK,
ZVVF_BKSTK TYPE ZBKSTK,
ZVVF_DIFF TYPE ZDIFF,
END OF IT_DISP.

*----------------------------------------------------------------------*
* STRUCTURES: Begin with WA_ *
*----------------------------------------------------------------------*
DATA : WA_QUANTITY TYPE MARD,
WA_PHYINV LIKE IT_PHYINV,
WA_GR LIKE IT_GR,
WA_PHYINV-DIFF(13) TYPE C.

*---------------------------------------------------------------------*
* DATA Begin with W *
*---------------------------------------------------------------------*
DATA : OK_CODE TYPE SY-UCOMM,
W_DIFF TYPE P DECIMALS 3,
W_5DIFF TYPE ZDIFF,
W_5BKSTK TYPE ZBKSTK,
MENGE TYPE MENGE_D,
W_AUFNR LIKE AUFK-AUFNR,
W_CHARG LIKE MCHA-CHARG,
W_MEINS LIKE MARA-MEINS,
W_ERFME TYPE MEINS,
w_flag type c,
W_DELFLAG TYPE I VALUE 0,
W_FLAG200 TYPE C VALUE '',
W_FLAG400 TYPE C,
W_FLAG600 TYPE C VALUE '',
W_FLAG500 TYPE I VALUE 0,
matnr type matnr,
w_mtype type mtart,
charg type charg_d,
W_MATNR TYPE MATNR,
W_LGORT TYPE LGORT_D,
W_WERK TYPE WERKS_D,
tot_insmk TYPE MENGE_D,
W_STR(26) TYPE C VALUE 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.
DATA : W_MATDESC TYPE MAKT-MAKTX,
W_PLANTDESC TYPE T001W-NAME1,
W_LOCATIONDESC TYPE T001L-LGOBE,
W_DRYDIP TYPE P DECIMALS 3,
W_ITLIN TYPE I,
W_FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
W_LAYOUT TYPE SLIS_LAYOUT_ALV,
GT_EVENTS TYPE slis_t_event,
W_REPID LIKE SY-REPID,
W_SMATNR TYPE MATNR.

*---------------------------------------------------------------------*
* CONSTANTS Begin with C *
*---------------------------------------------------------------------*
CONSTANTS : C_DIVISOR TYPE I VALUE '1000'.

*---------------------------------------------------------------------*
* INCLUDES *
*---------------------------------------------------------------------*
INCLUDE ZVVF_MM032_PHYINV_0300_DATATAB .

INCLUDE ZVVF_MM032_PHYINV_0100_PBO.
INCLUDE ZVVF_MM032_PHYINV_0100_PAI.

INCLUDE ZVVF_MM032_PHYINV_0800_PBO.
INCLUDE ZVVF_MM032_PHYINV_0800_PAI.

INCLUDE ZVVF_MM032_PHYINV_0600_PBO.
INCLUDE ZVVF_MM032_PHYINV_0600_PAI.

INCLUDE ZVVF_MM032_PHYINV_0200_PBO.
INCLUDE ZVVF_MM032_PHYINV_0200_PAI.

INCLUDE ZVVF_MM032_PHYINV_0300_PBO.
INCLUDE ZVVF_MM032_PHYINV_0300_PAI.

INCLUDE ZVVF_MM032_PHYINV_0400_PBO.
INCLUDE ZVVF_MM032_PHYINV_0400_PAI.

INCLUDE ZVVF_MM032_PHYINV_500SUBPRG .

INCLUDE ZVVF_MM032_PHYINV_0700_PBO.
INCLUDE ZVVF_MM032_PHYINV_0700_PAI.

**&SPWizard: Data incl. inserted by SP Wizard. DO NOT CHANGE THIS LINE!
INCLUDE ZVVF_MM032_PHYINV_500RDATA .
**&SPWizard: Include inserted by SP Wizard. DO NOT CHANGE THIS LINE!
INCLUDE ZVVF_MM032_PHYINV_500RPBO .
INCLUDE ZVVF_MM032_PHYINV_500RPAI .
INCLUDE ZVVF_MM032_PHYINV_900PBO .
INCLUDE ZVVF_MM032_PHYINV_900PAI .