Method: z100217 - Inboundii - Si - Ia - Work - I Notify

METHOD z100217_inboundii_si_ia_work_i~notify.
*** **** INSERT IMPLEMENTATION HERE **** ***

*&---------------------------------------------------------------------*
* Program Description: Function module to create production order *
* *
* DEVELOPER: Bhaskar Patil *
*
* CREATION DATE: 14/01/2016 *
* OBJECT NUMBER: I_PP_002 *
* TRANSPORT NUMBER(S): DV9K900647 *
* INPUT: Production Order input data *
* Output: Generate production Order *
*----------------------------------------------------------------------*
*---------------------------------------------------------------------*
* Modification : {Delete Table entries when workinstruction is *
* Deleted } *
* Modified by : Bhaskar Patil
* Date (dd-mm-yyyy): 04-03-2016
* Reason : NA
* Searchkey :
* Transportnumber : DV9K901707
*---------------------------------------------------------------------*
* Modification : Status Profile of production order was wrongly assigned
* Changes made to change profile from ZPP00001 to ZPP00002
* Date (dd-mm-yyyy):
* Reason : NA
* Searchkey : DV9K901978
*---------------------------------------------------------------------*
*---------------------------------------------------------------------*
* Modification : Code changes done to insert Scrap component into workins
truction
* Date (dd-mm-yyyy): 02/04/2016
* Reason : NA
*---------------------------------------------------------------------*
*---------------------------------------------------------------------*
* Modification : Changes made to fix the problem of Scrap Qty
* Date (dd-mm-yyyy): 13/04/2016
* Reason : Incident 591243
*---------------------------------------------------------------------*
*---------------------------------------------------------------------*
* Modification : Operation Number logic changed
* Modified by : Bhaskar
* Date (dd-mm-yyyy): 14-04-2016
* Reason : incident 591243
*---------------------------------------------------------------------*
*---------------------------------------------------------------------*
* Modification : Unit of Conversion changes
* Date (dd-mm-yyyy): 15/04/2016
*---------------------------------------------------------------------*
*---------------------------------------------------------------------*
* Modification : Handled Negative scrap QTy
* Date (dd-mm-yyyy): 15/04-2016
*---------------------------------------------------------------------*
*-----------L O C A L T Y P E S D E C L A R A T I O N------------------
*
TYPES : BEGIN OF lty_zpp_wi_component,
bwart TYPE bwart, "Movement type
family TYPE zfamily, "Family
type TYPE ztype, "Type
width TYPE zwidth, "Width
length TYPE zlength, "Length
matnr TYPE matnr, "Material Number
END OF lty_zpp_wi_component.
*----------------------------------------------------------------------------
----*
*-----------L O C A L D A T A D E C L A R A T I O N-----------------------
----*
DATA : ls_orderdata TYPE bapi_pp_order_create, "Orderdata
lt_hdr_user_status TYPE cose_t_hdr_user_stat, "Header User Stat
us
lt_sequence TYPE cose_t_sequence, "Sequence
lt_opr_user_status TYPE cose_t_opr_user_stat, "Operation user s
tatus
lt_component TYPE zpp_t_component, "Component
ls_component TYPE zpp_s_component, "Component struct
ure
lt_operation TYPE zpp_t_operation, "Operation table
ls_operation TYPE zpp_s_operation, "Operation struct
ure
ls_return TYPE bapiret2, "Bapi Return
ls_header TYPE z100217_inboundsi_ia_work_inst, "Proxy H
eader structure
lt_material TYPE z100217_inboundmaterial_tab, "Proxy M
aterial table
ls_material TYPE z100217_inboundmaterial, "Proxy M
aterial Structure
lt_order TYPE z100217_inboundsi_ia_work__tab, "Proxy O
rder table
ls_order TYPE z100217_inboundsi_ia_work_ins2, "Proxy O
rder structure
lt_char TYPE z100217_inboundsi_ia_work_tab1, "Proxy C
haracteristic
ls_char TYPE z100217_inboundsi_ia_work_ins5, "Proxy C
haracteristic structure
lt_zpp_wi_component TYPE STANDARD TABLE OF lty_zpp_wi_component IN
ITIAL SIZE 0, "Component table
ls_zpp_wi_component TYPE lty_zpp_wi_component, "Compone
nt structure
lv_family TYPE atnam, "Family
lv_type TYPE atnam, "Type
lv_width(16) TYPE p DECIMALS 5, "
Width
lv_length(16) TYPE p DECIMALS 5, "
Length
lv_objid(10) TYPE c, "Object
ID
lv_arbpl TYPE arbpl, "Workcen
ter
lv_steus TYPE steus, "Control
Key
lv_vornr TYPE vornr, "Operati
on number
lv_sequence TYPE plnfolge, "Sequenc
e
lt_usr_stat TYPE cose_t_hdr_user_stat, "User st
atus
ls_usr_stat TYPE cose_s_hdr_user_stat, "User st
atus structure
lt_log TYPE zca_t_error_log_struc, "Log tab
le
ls_log TYPE bca_str_rel_message, "Log Str
ucture
lt_return TYPE STANDARD TABLE OF bapiret2 INITIAL SIZE
0, "BAPI Return table
lv_matnr TYPE matnr, "Heade
r Material
lt_del_prod_ord TYPE STANDARD TABLE OF bapi_order_key INITIAL
SIZE 0, "Delete work Instruction
lt_bapi_order_return TYPE STANDARD TABLE OF bapi_order_return INITI
AL SIZE 0, "BAPI Return
ls_del_prod_ord TYPE bapi_order_key,
"Delete work Instruction
ls_bapi_order_return TYPE bapi_order_return,
"BAPI Return
lv_index TYPE sy-tabix,
"Tab Index
lv_order_qty_sc TYPE gamng,
"Total order quantity Sc
lv_order_qty_tot_sc TYPE gamng,
" Total ordr Qty
lv_order_qty_finl_sc TYPE gamng,
" Total ordr Qty
lv_matnr_sc TYPE matnr,
"Scrap Material
lv_aposn_sc TYPE aposn,
"BOM item number
lv_werks_sc TYPE werks_d,
"Plant
lv_operation_sc TYPE vornr,
"Operation
lv_sequence_sc TYPE plnfolge,
"Sequence
lv_family_sc TYPE atwrt,
"Family for SC
lv_base_unit TYPE meins,
"Base Unit of Measure
* Begin of A236938 DV9K902740
lv_meins TYPE meins,
"Base UOM
lv_thickness TYPE p DECIMALS 5,
"Thickness
lv_coil_density TYPE p DECIMALS 5,
"Density
lv_coil_thickness TYPE p DECIMALS 5,
"Thickness
lv_density TYPE p DECIMALS 5,
"Density
* Begin of A236938 DV9K902874
lv_coil_family TYPE atnam,
"Family
lv_width_uom TYPE atwrt,
"Width
lv_length_uom TYPE atwrt,
"Length
lv_density_uom TYPE atwrt,
"Density
lv_thickness_uom TYPE atwrt.
"Thickness
* End of A236938 DV9K902874
* End of A236938 DV9K902740
* ls_order TYPE z100217_inboundsi_ia_work_ins2. "Proxy

Order table
*----------------------------------------------------------------------------
---*
*-----------L O C A L C O N S T A N T D E C L A R A T I O N---------------
---*
CONSTANTS : lc_ord_type TYPE auart VALUE 'ZPC1',
"Order Type
lc_family TYPE atnam VALUE 'Z_FAMILY',
"Family
lc_type TYPE atnam VALUE 'Z_TYPE',
"Type
lc_width TYPE atnam VALUE 'Z_WIDTH',
"Width
lc_length TYPE atnam VALUE 'Z_LENGTH',
"Length
lc_co(2) TYPE c VALUE 'CO',
"Coil
lc_rm(2) TYPE c VALUE 'RM',
"Reminant
lc_sc(2) TYPE c VALUE 'SC',
"Scrap
lc_in(2) TYPE c VALUE 'IN',
"Intermediate
lc_fp(2) TYPE c VALUE 'FP',
"Finish Product
lc_success(1) TYPE c VALUE 'S',
"Success
lc_warn(1) TYPE c VALUE 'W',
"Warning
lc_info(1) TYPE c VALUE 'I',
"Information
lc_extnumber(9) TYPE c VALUE 'I_PP_002',
"Ricef Object ID
lc_length_val(5) TYPE p VALUE '15000',
"Length Value
lc_width_val(3) TYPE p VALUE '600',
"Width Value
lc_sheet(2) TYPE c VALUE 'SH',
"Sheet
lc_coil(2) TYPE c VALUE 'CO',
"Coil
lc_strip(2) TYPE c VALUE 'ST',
"Strips
lc_del(3) TYPE c VALUE 'DEL',
"Delete Status
* Begin of A236938 DV9K902740
lc_thickness TYPE atnam VALUE 'Z_THICKNESS',
"Density
lc_density TYPE atnam VALUE 'Z_DENSITY',
"Thickness
lc_kg TYPE meins VALUE 'KG',
"KG
lc_mtk TYPE meins VALUE 'M2',
"Metere Square
* Begin of A236938 DV9K902864
lc_vornr TYPE vornr VALUE '0010',
lc_alum_denisty TYPE i VALUE '2700',
"AlUM Density
lc_denisty TYPE i VALUE '8000',
"Value of Density
lc_alum(4) TYPE c VALUE 'ALUM'.
"ALUM
* End of A236938 DV9K902864
* End of A236938 DV9K902740
*----------------------------------------------------------------------------
----*
*-----------D A T A I N I T I A L I Z A T I O N-----------------------*
REFRESH : lt_hdr_user_status,
lt_sequence,
lt_opr_user_status,
lt_component,
lt_operation,
lt_material,
lt_order,
lt_char,
lt_zpp_wi_component,
lt_usr_stat,
lt_log,
lt_return,
lt_del_prod_ord,
lt_bapi_order_return.
CLEAR : ls_orderdata,
ls_component,
ls_operation,
ls_return,
ls_header,
ls_material,
ls_order,
ls_char,
ls_zpp_wi_component,
lv_family,
lv_type,
lv_width,
lv_objid ,
lv_arbpl,
lv_vornr,
lv_sequence,
ls_usr_stat,
ls_log,
lv_matnr,
ls_order,
ls_del_prod_ord,
ls_bapi_order_return,
lv_index,
lv_steus,
lv_order_qty_sc ,
lv_order_qty_tot_sc,
lv_matnr_sc ,
lv_aposn_sc,
lv_werks_sc ,
lv_operation_sc ,
lv_sequence_sc,
lv_order_qty_finl_sc,
lv_base_unit,
* Begin of A236938 DV9K902740
lv_meins,
lv_thickness,
lv_coil_density,
lv_coil_thickness,
lv_density,
* Begin of A236938 DV9K902874
lv_coil_family,
lv_width_uom,
lv_length_uom,
lv_density_uom,
lv_thickness_uom.
* End of A236938 DV9K902874
* End of A236938 DV9K902740
*----------------------------------------------------------------------*
* Assign Header Data
ls_header = input-work_instruction_header.
* Assign Material Data
lt_material[] = input-materials-sequence-material[].
* Assign Order Data
lt_order[] = input-orders-sequence-order[].
IF ls_header-object_status EQ lc_del.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = ls_header-work_instruction_number
IMPORTING
output = ls_header-work_instruction_number.
ls_del_prod_ord-order_number = ls_header-work_instruction_number.
APPEND ls_del_prod_ord TO lt_del_prod_ord.
CLEAR : ls_del_prod_ord.
* Begin of A236938 DV9K901707
CALL FUNCTION 'BAPI_PRODORD_COMPLETE_TECH'
IMPORTING
return = ls_return
TABLES
orders = lt_del_prod_ord
detail_return = lt_bapi_order_return.
IF ( ls_return-type EQ lc_success AND

ls_return-type EQ lc_warn AND
ls_return-type EQ lc_info ) OR
ls_return IS INITIAL.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

WAIT UP TO 2 SECONDS.
CALL FUNCTION 'BAPI_PRODORD_SET_DELETION_FLAG'
IMPORTING
return = ls_return
TABLES
orders = lt_del_prod_ord
detail_return = lt_bapi_order_return.

ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.
ELSE.
ENDIF.

DELETE FROM zpp_wi_header WHERE aufnr EQ ls_header-

work_instruction_number.
DELETE FROM zpp_item_char WHERE aufnr EQ ls_header-
DELETE FROM zpp_wi_item WHERE aufnr EQ ls_header-
DELETE FROM zpp_rel_wi_op WHERE aufnr EQ ls_header-
DELETE FROM zpp_wi_prod WHERE aufnr EQ ls_header-
* End of A236938 DV9K901707

ELSE.
* Create Error Log
ls_log-msgid = ls_return-id.
ls_log-msgty = ls_return-type.
ls_log-msgno = ls_return-number.
ls_log-msgv1 = ls_return-message_v1.
APPEND ls_log TO lt_log.
CLEAR : ls_log.
* Update Error log in SLG1
CALL FUNCTION 'ZCA_ERROR_LOG_UPD'
EXPORTING
i_extnumber = lc_extnumber
i_log_message = lt_log
EXCEPTIONS
log_header_inconsistent = 1
logging_error = 2
log_not_found = 3
msg_inconsistent = 4
log_is_full = 5
save_not_allowed = 6
numbering_error = 7
format_check = 8
blank_error_log = 9
OTHERS = 10.
IF sy-subrc <> 0.
ENDIF.
ENDIF.
ELSE.
IF ls_header IS NOT INITIAL.

* Fetch Component Material
SELECT bwart
family
type
width
length
matnr
FROM zpp_wi_component
INTO TABLE lt_zpp_wi_component.
IF sy-subrc EQ 0.
SORT lt_zpp_wi_component BY bwart family type width length.
ENDIF.
ENDIF.
* Header Material Number , only single entry will be maintain in Table
SELECT SINGLE matnr FROM zpp_wi_h_materia INTO lv_matnr.
IF sy-subrc EQ 0.
ls_orderdata-material = lv_matnr.
ENDIF.
* Assign Data to BAPI Header

ls_orderdata-order_number = ls_header-work_instruction_number.
ls_orderdata-plant = ls_header-plant.
ls_orderdata-order_type = lc_ord_type.
ls_orderdata-basic_start_date = ls_header-basic_start_date.
ls_orderdata-basic_start_time = ls_header-basic_start_time.
lv_werks_sc = ls_header-plant.
* ****
* ls_orderdata-basic_end_date = ls_header-actual_end.
* ****
ls_orderdata-quantity = ls_header-order_item_quantity.
CALL FUNCTION 'UNIT_OF_MEASURE_ISO_TO_SAP'

EXPORTING
iso_code = ls_header-base_unit_of_measure
IMPORTING
sap_code = ls_orderdata-quantity_uom
* UNIQUE =
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
IF ls_header-object_id IS NOT INITIAL.

lv_objid = ls_header-object_id.
EXPORTING
input = lv_objid
IMPORTING
output = lv_objid.
* Fetch Work Center
SELECT SINGLE arbpl steus FROM crhd
INTO (lv_arbpl,lv_steus )
WHERE objid EQ lv_objid.
IF sy-subrc EQ 0.
SELECT SINGLE ktext INTO ls_operation-ktext
FROM crtx
WHERE objid EQ lv_objid
AND spras EQ sy-langu.
IF sy-subrc EQ 0.
ENDIF.
ls_operation-work_center = lv_arbpl.
ls_operation-control_key = lv_steus.
ENDIF.
ENDIF.
* Assign operation
ls_operation-setup_time = ls_header-setup_time.
ls_operation-proc_time = ls_header-proc_time.
* Assign Component
LOOP AT lt_material INTO ls_material.
lv_index = sy-tabix.
* Conversion Exit
EXPORTING
input = ls_material-operation_number
IMPORTING
output = ls_material-operation_number.
* Conversion Exit
EXPORTING
input = ls_material-sequence
IMPORTING
output = ls_material-sequence.
* Begin of A236938 DV9K902864
lv_vornr = lc_vornr.
* End of A236938 DV9K902864
lv_sequence = ls_material-sequence.
lv_operation_sc = lv_vornr.
lv_sequence_sc = ls_material-sequence.
** Begin of A236938 DV9K902740
* IF ls_material-movement_type NE lc_co.
* lv_order_qty_tot_sc = lv_order_qty_tot_sc + ls_material-
order_item_quantity.
* ENDIF.
** End of A236938 DV9K902740
** Insert Component for the below type
* Begin of A236938 DV9K902874

* IF ls_material-movement_type EQ lc_co OR "Coil
* ls_material-movement_type EQ lc_rm OR "Reminent
* ls_material-movement_type EQ lc_sc OR "Scrap
* ls_material-movement_type EQ lc_in. "Intermediate
* End of A236938 DV9K902874
* Assign Characteristic Value

lt_char[] = ls_material-material_characteristics-sequence-
material_characteristic[].
LOOP AT lt_char INTO ls_char.
CASE ls_char-char_name.
WHEN lc_family.
lv_family = ls_char-char_value.
WHEN lc_type.
lv_type = ls_char-char_value.
WHEN lc_width.
lv_width = ls_char-char_value.
* Begin of A236938 DV9K902874
lv_width_uom = lv_width.
SHIFT lv_width_uom LEFT DELETING LEADING space.
* End of A236938 DV9K902874
WHEN lc_length.
lv_length = ls_char-char_value.
* Begin of A236938 DV9K902874
lv_length_uom = lv_length.
SHIFT lv_length_uom LEFT DELETING LEADING space.
* End of A236938 DV9K902874
* Begin of A236938 DV9K902740
WHEN lc_density.
lv_density = ls_char-char_value.
* Begin of A236938 DV9K902874
lv_density_uom = lv_density.
SHIFT lv_density_uom LEFT DELETING LEADING space.
* End of A236938 DV9K902874
WHEN lc_thickness.
lv_thickness = ls_char-char_value.
* Begin of A236938 DV9K902874
lv_thickness_uom = lv_thickness.
SHIFT lv_thickness_uom LEFT DELETING LEADING space.
* End of A236938 DV9K902874
* End of A236938 DV9K902740
WHEN OTHERS.
ENDCASE.
ENDLOOP.
* Begin of A236938 DV9K902874

* begin of A236938 DV9K901707
ls_component-order_qty = ls_material-order_item_quantity.
* End of A236938 DV9K901707
* Begin of A236938 DV9K902874

EXPORTING
iso_code = ls_material-base_unit_of_measure
IMPORTING
sap_code = ls_component-base_unit
* UNIQUE =
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
ENDIF.
* End of A236938 DV9K902874

* Begin of A236938 DV9K902874
IF ls_orderdata-quantity_uom NE ls_component-base_unit.
CALL FUNCTION 'ZPP_UOM_CONVERSION'
EXPORTING
is_base_uom = ls_orderdata-quantity_uom
is_change_uom = ls_component-base_unit
is_family = lv_family
is_length = lv_length_uom
is_width = lv_width_uom
is_thickness = lv_thickness_uom
is_order_qty = ls_component-order_qty
IMPORTING
ex_change_qty = ls_component-order_qty.
ENDIF.
ls_component-base_unit = ls_orderdata-quantity_uom.
CLEAR : lv_length_uom,
lv_width_uom,
lv_thickness_uom.
* End of A236938 DV9K902874
* Begin of A236938 DV9K902740

IF ls_material-movement_type NE lc_co.
lv_order_qty_tot_sc = lv_order_qty_tot_sc + ls_component-order_qty.
ENDIF.
* End of A236938 DV9K902740
* Insert Component for the below type

IF ls_material-movement_type EQ lc_co OR "Coil
ls_material-movement_type EQ lc_rm OR "Reminent
ls_material-movement_type EQ lc_sc OR "Scrap
ls_material-movement_type EQ lc_in. "Intermediate
* End of A236938 DV9K902874
** begin of A236938 DV9K901707

* ls_component-order_qty = ls_material-order_item_quantity.
** End of A236938 DV9K901707
*
** Begin of A236938 DV9K902874
* CALL FUNCTION 'UNIT_OF_MEASURE_ISO_TO_SAP'
* EXPORTING
* iso_code = ls_material-base_unit_of_measure
* IMPORTING
* sap_code = ls_component-base_unit
** UNIQUE =
* EXCEPTIONS
* not_found = 1
* OTHERS = 2.
* IF sy-subrc <> 0.
** Implement suitable error handling here
* ENDIF.
*
** End of A236938 DV9K902874
*
** Begin of A236938 DV9K902874
* IF ls_orderdata-quantity_uom NE ls_component-base_unit.
* CALL FUNCTION 'ZPP_UOM_CONVERSION'
* EXPORTING
* is_base_uom = ls_orderdata-quantity_uom
* is_change_uom = ls_component-base_unit
* is_family = lv_family
* is_length = lv_length
* is_width = lv_width
* is_thickness = lv_thickness
* is_order_qty = ls_component-order_qty
* IMPORTING
* ex_change_qty = ls_component-order_qty.
* ENDIF.
* ls_component-base_unit = ls_orderdata-quantity_uom.
** End of A236938 DV9K902874
CASE ls_material-movement_type.
WHEN lc_rm.
* begin of A236938 DV9K901707
ls_component-order_qty = ls_component-order_qty * -1.
* End of A236938 DV9K901707
* Begin of A236938 DV9K902740
* End of A236938 DV9K902740
IF ls_material-material_number IS NOT INITIAL.

ls_component-matnr = ls_material-material_number.
ELSE.
IF lv_length LE lc_length_val.
READ TABLE lt_zpp_wi_component INTO ls_zpp_wi_component
WITH KEY bwart = ls_material-
movement_type
family = lv_family
type = lc_sheet
BINARY SEARCH.
IF sy-subrc EQ 0.
ls_component-matnr = ls_zpp_wi_component-matnr.
ls_material-material_number = ls_zpp_wi_component-matnr.
ENDIF.
ELSE.
movement_type
family = lv_family
type = lc_coil
BINARY SEARCH.
IF sy-subrc EQ 0.
ENDIF.
ENDIF.
ENDIF.
WHEN lc_sc.
* begin of A236938 DV9K901707
* End of A236938 DV9K901707

movement_type
family = lv_family
BINARY SEARCH.
IF sy-subrc EQ 0.
ENDIF.
WHEN lc_in.
* begin of A236938 DV9K901707
* End of A236938 DV9K901707
* Begin of A236938 DV9K902740
* End of A236938 DV9K902740
IF lv_length LE lc_length_val.
movement_type
family = lv_family
type = lc_sheet
BINARY SEARCH.
IF sy-subrc EQ 0.
ENDIF.
ELSE.
IF lv_width LE lc_width_val.
movement_type
family = lv_family
type = lc_strip
BINARY SEARCH.
IF sy-subrc EQ 0.
ENDIF.
ELSE.
movement_type
family = lv_family
type = lc_coil
BINARY SEARCH.
IF sy-subrc EQ 0.
ENDIF.
ENDIF.
ENDIF.
WHEN lc_co.
* Begin of A236938 DV9K902740
lv_coil_density = lv_density.
lv_coil_thickness = lv_thickness.
* Begin of A236938 DV9K902874
lv_coil_family = lv_family.
* End of A236938 DV9K902874
* End of A236938 DV9K902740
ls_component-matnr = ls_material-material_number.
* Begin of A236938 DV9K902874
* lv_order_qty_sc = lv_order_qty_sc + ls_material-
lv_order_qty_sc = lv_order_qty_sc + ls_component-order_qty.
* End of A236938 DV9K902874
lv_family_sc = lv_family.
lv_base_unit = ls_material-base_unit_of_measure.
EXPORTING
iso_code = lv_base_unit
IMPORTING
sap_code = lv_base_unit
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
ENDIF.
WHEN lc_fp.
* Begin of A236938 DV9K902740
* End of A236938 DV9K902740
WHEN OTHERS.
ENDCASE.
* Conversion Exit
EXPORTING
input = ls_component-matnr
IMPORTING
output = ls_component-matnr.
* Conversion Exit
EXPORTING
input = ls_material-material_number
IMPORTING
output = ls_material-material_number.
ls_component-batch = ls_material-batch_number.
ls_component-werks = ls_material-plant .
ls_component-bwart = ls_material-movement_type.
* Begin of A236938 DV9K902864
* ls_component-operation = ls_material-operation_number.
ls_component-operation = lc_vornr.
* End of A236938 DV9K902864
ls_component-sequence = ls_material-sequence.
ls_component-lgort = ls_material-storage_location.
* ls_component-order_qty = ls_material-order_item_quantity.
* Begin of A236938 DV9K902874
* CALL FUNCTION 'UNIT_OF_MEASURE_ISO_TO_SAP'

* EXPORTING
* iso_code = ls_material-base_unit_of_measure
* IMPORTING
* sap_code = ls_component-base_unit
** UNIQUE =
* EXCEPTIONS
* not_found = 1
* OTHERS = 2.
* IF sy-subrc <> 0.
** Implement suitable error handling here
* ENDIF.
* End of A236938 DV9K902874
* ls_component-base_unit = ls_material-base_unit_of_measure.
ls_component-aposn = ls_material-position.
APPEND ls_component TO lt_component.
MODIFY lt_material FROM ls_material INDEX lv_index TRANSPORTING mate
rial_number.
REFRESH : lt_char.
CLEAR : ls_char,
ls_component,
ls_material,
* Begin of A236938 DV9K902740
lv_density,
lv_thickness.
* End of A236938 DV9K902740
ENDIF.
ENDLOOP.
*************************** Scrap Component******************

DESCRIBE TABLE lt_material LINES lv_aposn_sc.
ls_component-aposn = lv_aposn_sc + 1 .
SHIFT ls_component-aposn LEFT DELETING LEADING space.
SELECT SINGLE
matnr
FROM zpp_wi_component
INTO lv_matnr_sc
WHERE bwart EQ lc_sc
AND family EQ lv_family_sc .
IF sy-subrc EQ 0.
ls_component-matnr = lv_matnr_sc.
ENDIF.
* Begin of A236938 DV9K902874
* Begin of A236938 DV9K902740

* SELECT SINGLE meins INTO lv_meins
* FROM mara
* WHERE matnr EQ ls_component-matnr.
* IF sy-subrc EQ 0.
* ls_component-base_unit = lv_meins.
* ENDIF.
ls_component-base_unit = ls_orderdata-quantity_uom.
lv_order_qty_finl_sc = lv_order_qty_sc - lv_order_qty_tot_sc.
* IF lv_meins EQ lc_kg AND lv_base_unit EQ lc_mtk.

** Begin of A236938 DV9K902874
** lv_order_qty_finl_sc = ( lv_density * lv_thickness ) * lv_order_qty
_finl_sc.
* IF lv_coil_density IS INITIAL .
* IF lv_coil_family EQ lc_alum.
* lv_coil_density = lc_alum_denisty.
* ELSE.
* lv_coil_density = lc_denisty.
* ENDIF.
* ENDIF.
* lv_order_qty_finl_sc = ( lv_coil_density * lv_coil_thickness ) * lv_
order_qty_finl_sc.
** End of A236938 DV9K902874
* ENDIF.
* End of A236938 DV9K902740
* Begin of A236938 DV9K902874

* begin of A236938 DV9K902913
IF lv_order_qty_finl_sc GT 0.
* End of A236938 DV9K902913
ls_component-order_qty = lv_order_qty_finl_sc * -1.
ls_component-werks = lv_werks_sc.
ls_component-operation = lv_operation_sc.
ls_component-sequence = lv_sequence_sc .
APPEND ls_component TO lt_component.
* begin of A236938 DV9K902913
ENDIF.
* End of A236938 DV9K902913
CLEAR :ls_component,
lv_order_qty_sc,
lv_order_qty_tot_sc,
lv_werks_sc,
lv_operation_sc,
lv_sequence_sc ,
lv_base_unit,
lv_aposn_sc,
* Begin of A236938 DV9K902740
lv_meins.
* End of A236938 DV9K902740
********************************************************************
* Assign Operation
ls_operation-operation = lv_vornr.
ls_operation-sequence = lv_sequence.
APPEND ls_operation TO lt_operation.
CLEAR : ls_operation.
IF ls_orderdata-order_number IS NOT INITIAL.

* Call BAPI to create Production Order
CALL FUNCTION 'ZPP_PRODORD_CREATE'
EXPORTING
is_orderdata = ls_orderdata
it_hdr_user_status = lt_usr_stat
* IT_SEQUENCE =
* IT_OPR_USER_STATUS =
it_component = lt_component
it_operation = lt_operation
it_prodorder = lt_order
IMPORTING
* ev_order_number =
* ev_order_type =
es_return = ls_return
EXCEPTIONS
error_occurred = 1
OTHERS = 2.

* Update Z-Table
CALL FUNCTION 'ZPP_PRODORD_UPDATE_TABLE'
EXPORTING
is_header = ls_header
it_operation = lt_material
it_order = lt_order.
ELSE.
* Create Error Log
ls_log-msgid = ls_return-id.
ls_log-msgty = ls_return-type.
ls_log-msgno = ls_return-number.
APPEND ls_log TO lt_log.
CLEAR : ls_log.
* Update Error log in SLG1

CALL FUNCTION 'ZCA_ERROR_LOG_UPD'
EXPORTING
i_extnumber = lc_extnumber
i_log_message = lt_log
EXCEPTIONS
logging_error = 2
log_not_found = 3
log_is_full = 5
numbering_error = 7
format_check = 8
blank_error_log = 9
OTHERS = 10.
IF sy-subrc <> 0.
ENDIF.
APPEND ls_return TO lt_return.
* Raise exception
* TRY.
CALL METHOD cl_proxy_fault=>raise
EXPORTING
exception_class_name = 'Z100217_INBOUNDCX_STANDARD_MES'
* application_log_handle =
* bapireturn_tab =
* addition =
* automatic_retry =
.
* CATCH cx_ai_application_fault .
* ENDTRY.
ENDIF.
ENDIF.
ENDIF.
ENDMETHOD.
FUNCTION zpp_uom_conversion.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" REFERENCE(IS_BASE_UOM) TYPE MEINS OPTIONAL
*" REFERENCE(IS_CHANGE_UOM) TYPE MEINS OPTIONAL
*" REFERENCE(IS_FAMILY) TYPE ATWRT OPTIONAL
*" REFERENCE(IS_LENGTH) TYPE ATWRT OPTIONAL
*" REFERENCE(IS_WIDTH) TYPE ATWRT OPTIONAL
*" REFERENCE(IS_THICKNESS) TYPE ATWRT OPTIONAL
*" REFERENCE(IS_ORDER_QTY) TYPE GAMNG OPTIONAL
*" EXPORTING
*" REFERENCE(EX_CHANGE_QTY) TYPE GAMNG
*"----------------------------------------------------------------------
*---------------------------------------------------------------------*
* Modification : Unit of Conversion changes
* Date (dd-mm-yyyy): 15/04/2016
*---------------------------------------------------------------------*
CONSTANTS : lc_ea TYPE meins VALUE 'EA',

lc_mtk TYPE meins VALUE 'M2',
lc_mtr TYPE meins VALUE 'M',
lc_denisty TYPE i VALUE '8000',
lc_alum_denisty TYPE i VALUE '2700',
lc_alum(4) TYPE c VALUE 'ALUM'.
DATA : ls_density_tmp TYPE p DECIMALS 2,

ls_thickness_tmp TYPE p DECIMALS 2,
ls_length_tmp TYPE p DECIMALS 2,
ls_width_tmp TYPE p DECIMALS 2.
CLEAR : ls_density_tmp ,
ls_thickness_tmp,
ls_length_tmp ,
ls_width_tmp .
IF is_family EQ lc_alum.
ls_density_tmp = lc_alum_denisty.
ELSE.
ls_density_tmp = lc_denisty.
ENDIF.
ls_thickness_tmp = is_thickness .
IF ls_thickness_tmp IS INITIAL.
ls_thickness_tmp = 1.
ENDIF.
ls_length_tmp = is_length.
IF ls_length_tmp IS INITIAL.
ls_length_tmp = 1.
ENDIF.
ls_width_tmp = is_width.
IF ls_width_tmp IS INITIAL.
ls_width_tmp = 1.
ENDIF.
IF is_base_uom EQ is_change_uom.
ex_change_qty = is_order_qty.
ELSE.
CASE is_change_uom.
WHEN lc_ea.
ex_change_qty = ( ( ( ls_density_tmp ) / 1000 ) * ( ( ls_width_tmp )
/ 1000 ) * ls_thickness_tmp * ( ( ls_length_tmp ) / 1000 ) ) * is_order_qt
y .
WHEN lc_mtk.
ex_change_qty = ( ( ( ls_density_tmp ) / 1000 ) * ls_thickness_tmp )
* is_order_qty.
WHEN lc_mtr.
ex_change_qty = ( ( ( ls_density_tmp ) / 1000 ) * ( ( ls_width_tmp ) /
1000 ) * ls_thickness_tmp ) * is_order_qty.
WHEN OTHERS.
ENDCASE.
ENDIF.
ENDFUNCTION.
FUNCTION zpp_prodord_create.
*"----------------------------------------------------------------------
*" IMPORTING
*" REFERENCE(IS_ORDERDATA) TYPE BAPI_PP_ORDER_CREATE
*" REFERENCE(IT_HDR_USER_STATUS) TYPE COSE_T_HDR_USER_STAT
*" OPTIONAL
*" REFERENCE(IT_SEQUENCE) TYPE COSE_T_SEQUENCE OPTIONAL
*" REFERENCE(IT_OPR_USER_STATUS) TYPE COSE_T_OPR_USER_STAT
*" OPTIONAL
*" REFERENCE(IT_COMPONENT) TYPE ZPP_T_COMPONENT OPTIONAL
*" REFERENCE(IT_OPERATION) TYPE ZPP_T_OPERATION OPTIONAL
*" REFERENCE(IT_PRODORDER) TYPE Z100217_INBOUNDSI_IA_WORK__TAB
*" OPTIONAL
*" EXPORTING
*" REFERENCE(EV_ORDER_NUMBER) LIKE BAPI_ORDER_KEY-ORDER_NUMBER
*" REFERENCE(EV_ORDER_TYPE) LIKE BAPI_ORDER_COPY-ORDER_TYPE
*" REFERENCE(ES_RETURN) LIKE BAPIRET2 STRUCTURE BAPIRET2
*" EXCEPTIONS
*" ERROR_OCCURRED
*"----------------------------------------------------------------------
*&---------------------------------------------------------------------*
* *
*
*----------------------------------------------------------------------*
*---------------------------------------------------------------------*
* Modification : This is new requirement whenever Quintiq order is create
d
* production order operation and component should be delet
ed
*
* Date (dd-mm-yyyy): 21-03-2016
* Reason : NA
*---------------------------------------------------------------------*
* Check Production Order already exist or not

PERFORM get_prod_order USING is_orderdata.
* Create Production Order

PERFORM create_prod_order USING is_orderdata
CHANGING es_return
ev_order_number.
* insert operation into Production Order

PERFORM add_oper_prod_ord USING ev_order_number
is_orderdata
it_sequence[]
it_operation[]
it_hdr_user_status[]
it_opr_user_status[]
CHANGING es_return.
* Insert Component into Prod Order
PERFORM add_component_prod_ord USING ev_order_number
it_component[]
CHANGING es_return.
* release Production Order Data

PERFORM release_prod_order USING ev_order_number
is_orderdata
CHANGING es_return.
* Delete Dummy Settlement Rule and insert New Rule

PERFORM create_settlement_rule USING is_orderdata
it_prodorder[]
CHANGING es_return.
* Release Original Prod order
PERFORM release_original_prod_order USING is_orderdata
it_prodorder[]
CHANGING es_return.
* Delete Operation and Component of production order

PERFORM delete_operation USING ev_order_number
is_orderdata
it_prodorder[]
CHANGING es_return.
ENDFUNCTION.
*---------------------------------------------------------------------*
* Modification : {Create BDC to update Subcontracting flag for control ke
y ZPP2
* and production order user stats change to WI}
* Date (dd-mm-yyyy): 04-03-2016
* Reason : NA
* Searchkey :
*---------------------------------------------------------------------*
*---------------------------------------------------------------------*
* Modification : Status Profile of production order was wrongly assigned
* Changes made to change profile from ZPP00001 to ZPP00002
* Date (dd-mm-yyyy):
* Reason : NA
*---------------------------------------------------------------------*
*---------------------------------------------------------------------*
* Modification : This is new requirement whenever Quintiq order is create
d
* production order operation and component should be delet
ed
*
* Date (dd-mm-yyyy): 21-03-2016
* Reason : NA
*---------------------------------------------------------------------*
*---------------------------------------------------------------------*
* Modification : Correct Formatting error for Percentage calculation
* Date (dd-mm-yyyy): 05-04-2016
*---------------------------------------------------------------------*
*---------------------------------------------------------------------*
* Modification : Resolved dump in LGORT condition
* Date (dd-mm-yyyy): 06/04/2016
*---------------------------------------------------------------------*
*---------------------------------------------------------------------*
* Modification : Changes made to fix the problem of Scrap Qty
* Date (dd-mm-yyyy): 13/04/2016
*---------------------------------------------------------------------*
*---------------------------------------------------------------------*
* Modification : Operation Number logic changed
* Date (dd-mm-yyyy): 14-04-2016
*---------------------------------------------------------------------*
*----------------------------------------------------------------------*
***INCLUDE LZPP_PRODUCTION_ORDERF01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form CREATE_PROD_ORDER
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_IM_ORDERDATA text
* <--P_IM_RETURN text
* <--P_EX_ORDER_NUMBER text
*----------------------------------------------------------------------*
FORM create_prod_order USING pr_im_orderdata TYPE bapi_pp_order_create
CHANGING pr_ex_return TYPE bapiret2
pr_ex_order_number TYPE aufnr.
CLEAR : pr_ex_return,
pr_ex_order_number.
*----------------------------------------------------------------------*
* Check input is not initial and same Order does not exist then create produc
tion order
IF pr_im_orderdata IS NOT INITIAL AND gt_header IS INITIAL.
* BAPI Create Production Order
CALL FUNCTION 'BAPI_PRODORD_CREATE'
EXPORTING
orderdata = pr_im_orderdata
IMPORTING
return = pr_ex_return
order_number = pr_ex_order_number.
IF ( pr_ex_return-type EQ gc_success OR
pr_ex_return-type EQ gc_warn OR
pr_ex_return-type EQ gc_info ) OR
pr_ex_return IS INITIAL.
CLEAR : pr_ex_return.
* Commit Data
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = abap_true
IMPORTING
return = pr_ex_return.
ELSE.
* Data Rollback
RAISE error_occurred.
ENDIF.
ELSE.
pr_ex_order_number = pr_im_orderdata-order_number.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form RELEASE_PROD_ORDER
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->PR_EX_ORDER_NUMBER text
* -->PR_IM_ORDERDATA text
* <--PR_EX_RETURN text
*----------------------------------------------------------------------*
FORM release_prod_order USING pr_ex_order_number TYPE aufnr
pr_im_orderdata TYPE bapi_pp_order_create
CHANGING pr_ex_return TYPE bapiret2.
*-----------L O C A L D A T A D E C L A R A T I O N--------------*
DATA :lt_order TYPE STANDARD TABLE OF bapi_order_key INITIAL SIZE 0,
ls_order TYPE bapi_order_key,
lv_objnr TYPE j_objnr,
lv_objnr_jest TYPE j_objnr,
lv_stat TYPE j_status,
lv_release_flag TYPE flag.
*----------------------------------------------------------------------*
*-----------L O C A L C O N S T A N T D E C L A R A T I O N----------*
CONSTANTS : lc_release TYPE j_status VALUE 'I0002'.
*----------------------------------------------------------------------*
REFRESH : lt_order.
CLEAR :ls_order,
lv_objnr,
lv_objnr_jest,
lv_stat,
lv_release_flag .
*----------------------------------------------------------------------*
IF ( pr_ex_order_number IS NOT INITIAL OR

pr_ex_return-type EQ gc_success OR
* fetch object number from Production order Header

SELECT SINGLE objnr FROM caufv
INTO lv_objnr
WHERE aufnr EQ pr_ex_order_number.
IF sy-subrc EQ 0.
* fetch Production order release status
SELECT SINGLE objnr
stat
FROM jest INTO (lv_objnr_jest , lv_stat )
WHERE objnr EQ lv_objnr
AND stat EQ lc_release
AND inact EQ space.
* if production order already release then set release flg
IF sy-subrc EQ 0.
lv_release_flag = abap_true.
ELSE.
lv_release_flag = abap_false.
ENDIF.
ELSE.
lv_release_flag = abap_false.
ENDIF.
ls_order-order_number = pr_ex_order_number.
APPEND ls_order TO lt_order.
CLEAR : ls_order.
* check production order is not already released

IF lv_release_flag = abap_false AND lt_order IS NOT INITIAL.
* Release Production Order
CALL FUNCTION 'BAPI_PRODORD_RELEASE'
IMPORTING
TABLES
orders = lt_order.
* Commit Data
EXPORTING
wait = abap_true
IMPORTING
ELSE.
* Data Rollback
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form ADD_OPER_PROD_ORD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->PR_EX_ORDER_NUMBER text
* -->PR_IM_SEQUENCE text
* -->PR_IM_OPERATION text
*----------------------------------------------------------------------*
FORM add_oper_prod_ord USING pr_ex_order_number TYPE aufnr
pr_im_orderdata TYPE bapi_pp_order_create
pr_im_sequence TYPE cose_t_sequence
pr_im_operation TYPE zpp_t_operation
pr_im_hdr_user_status TYPE cose_t_hdr_user_st
at
pr_im_opr_user_status TYPE cose_t_opr_user_st
at
*-----------L O C A L D A T A D E C L A R A T I O N-----------------*
DATA : lt_operation TYPE STANDARD TABLE OF cose_s_operation INITIAL SIZ
E 0,
ls_operation TYPE cose_s_operation,
ls_p_im_operation TYPE zpp_s_operation,
lt_p_im_operation TYPE zpp_t_operation,
lv_ekgrp TYPE ekgrp,
lv_matkl TYPE matkl,
lt_opr_del TYPE cose_t_opr_delete,
ls_opr_del TYPE cose_s_opr_delete.
*----------------------------------------------------------------------*
*-----------L O C A L C O N S T A N T D E C L A R A T I O N---------*
CONSTANTS : lc_zpp2 TYPE steus VALUE 'ZPP2',
lc_scdummy(7) TYPE c VALUE 'SCDUMMY',
lc_vornr TYPE vornr VALUE '0001'.
*----------------------------------------------------------------------*
REFRESH : lt_operation,
lt_p_im_operation,
lt_opr_del.
CLEAR : ls_p_im_operation,
lv_ekgrp,
lv_matkl,
ls_opr_del.
*----------------------------------------------------------------------*
lt_p_im_operation[] = pr_im_operation[].
SELECT SINGLE purchasing_group

material_group
FROM zpp_wi_operation
INTO (lv_ekgrp ,lv_matkl)
WHERE plant = pr_im_orderdata-plant.
IF sy-subrc EQ 0.
ENDIF.
* Check the duplicate data and discard it
IF gt_operation IS NOT INITIAL.
LOOP AT gt_operation INTO gs_operation.
READ TABLE lt_p_im_operation INTO ls_p_im_operation WITH KEY operation
= gs_operation-operation_number
sequence =
gs_operation-sequence_no
BINARY SEA
RCH.
IF sy-subrc EQ 0.
* if data found then discard it
DELETE lt_p_im_operation WHERE operation EQ ls_p_im_operation-
operation.
ENDIF.
ENDLOOP.
ENDIF.
LOOP AT lt_p_im_operation INTO ls_p_im_operation .

ls_operation-sequence = ls_p_im_operation-sequence.
ls_operation-operation = ls_p_im_operation-operation.
ls_operation-control_key = ls_p_im_operation-control_key.
ls_operation-work_center = ls_p_im_operation-work_center.
IF ls_p_im_operation-ktext IS NOT INITIAL.
ls_operation-short_text = ls_p_im_operation-ktext.
ls_operation-short_text_x = abap_true.
ENDIF.
IF ls_p_im_operation-work_center IS NOT INITIAL .

ls_operation-work_center_x = abap_true.
ENDIF.
ls_operation-standard_value_01 = ls_p_im_operation-setup_time.
IF ls_p_im_operation-setup_time IS NOT INITIAL .
ls_operation-standard_value_01_x = abap_true.
ENDIF.
ls_operation-standard_value_02 = ls_p_im_operation-proc_time.
IF ls_operation-standard_value_02 IS NOT INITIAL.
ls_operation-standard_value_01_x = abap_true.
ENDIF.
IF ls_p_im_operation-control_key EQ lc_zpp2 AND lv_ekgrp IS NOT INITIAL

.
ls_operation-purchasing_group = lv_ekgrp.
ls_operation-purchasing_group_x = abap_true.
ENDIF.
IF ls_p_im_operation-control_key EQ lc_zpp2 AND lv_matkl IS NOT INITIAL

.
ls_operation-material_group = lv_matkl.
ls_operation-material_group_x = abap_true.
ENDIF.
ENDLOOP.
IF lt_operation IS NOT INITIAL .

* Add operation into production order
CALL FUNCTION 'CO_SE_PRODORD_CHANGE'
EXPORTING
iv_order_number = pr_ex_order_number
it_hdr_user_status = pr_im_hdr_user_status
it_sequence = pr_im_sequence
it_opr_user_status = pr_im_opr_user_status
iv_commit = abap_true
IMPORTING
es_return = pr_ex_return.
* Commit Data
EXPORTING
wait = abap_true
IMPORTING
ls_opr_del-vornr = lc_vornr.
APPEND ls_opr_del TO lt_opr_del.
CLEAR : ls_opr_del.
CALL FUNCTION 'CO_SE_PRODORD_OPR_DELETE'

EXPORTING
iv_order_number = pr_ex_order_number
it_opr_delete = lt_opr_del
iv_refresh = abap_true
iv_order_post = abap_true
IMPORTING
* Commit Data
EXPORTING
wait = abap_true
IMPORTING
* Begin of A236938 DV9K901707
LOOP AT lt_p_im_operation INTO ls_p_im_operation.
IF ls_p_im_operation-control_key EQ lc_zpp2 .
PERFORM update_subcontracting USING ls_p_im_operation
pr_ex_order_number
CHANGING pr_ex_return.
ENDIF.
ENDLOOP.
* End of A236938 DV9K901707
ELSE.
* Data Rollback
EXIT.
ENDIF.
ELSE.
* Data Rollback
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form ADD_COMPONENT_PROD_ORD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_EX_ORDER_NUMBER text
* <--P_EX_RETURN text
*----------------------------------------------------------------------*
FORM add_component_prod_ord USING pr_ex_order_number TYPE aufnr
pr_im_component TYPE zpp_t_component
*-----------L O C A L T Y P E S D E C L A R A T I O N---------------*
TYPES : BEGIN OF lty_quantity,
quantity LIKE afko-gamng,
uom LIKE afko-gmein,
END OF lty_quantity.
TYPES : BEGIN OF lty_afko,
aufnr TYPE aufnr,
aufpl TYPE co_aufpl,
END OF lty_afko.
TYPES : BEGIN OF lty_afvc,

aplzl TYPE co_aplzl,
plnfl TYPE plnfolge,
END OF lty_afvc.
*----------------------------------------------------------------------*
DATA : ls_quantity TYPE lty_quantity,
lv_operation TYPE co_aplzl,
lv_sequence TYPE plnfolge,
lv_lgortx TYPE flag,
lv_batchx TYPE flag,
lv_positionno TYPE positionno,
lv_error TYPE flag,
ls_p_im_component TYPE zpp_s_component,
lt_p_im_component TYPE STANDARD TABLE OF zpp_s_component INITIAL SIZE
0,
ls_lgort TYPE coxt_s_storage_location,
ls_lgortx TYPE coxt_s_storage_locationx,
lt_afko TYPE STANDARD TABLE OF lty_afko INITIAL SIZE 0,
ls_afko TYPE lty_afko,
lt_afvc TYPE STANDARD TABLE OF lty_afvc INITIAL SIZE 0,
ls_afvc TYPE lty_afvc.
*----------------------------------------------------------------------*
CONSTANTS :lc_postp TYPE postp VALUE 'L'.
*----------------------------------------------------------------------*
REFRESH : lt_p_im_component,
lt_afko,
lt_afvc.
CLEAR : ls_quantity,
lv_operation,
lv_sequence,
lv_lgortx,
lv_batchx,
lv_positionno,
lv_error,
ls_p_im_component,
ls_lgort,
ls_lgortx,
ls_afvc,
ls_afko.
*----------------------------------------------------------------------*
SELECT SINGLE aufnr

aufpl
FROM afko
INTO ls_afko
WHERE aufnr EQ pr_ex_order_number.
IF sy-subrc EQ 0.
SELECT SINGLE aufpl
aplzl
plnfl
FROM afvc INTO ls_afvc
WHERE aufpl EQ ls_afko-aufpl.
IF sy-subrc EQ 0.
ENDIF.
ENDIF.
lt_p_im_component[] = pr_im_component[].
SORT lt_p_im_component BY aposn.
* Check the duplicate data and discard it

IF gt_component IS NOT INITIAL.
LOOP AT gt_component INTO gs_component.
READ TABLE lt_p_im_component INTO ls_p_im_component WITH KEY aposn = g
s_component-item_number
BINARY SEA
RCH.
IF sy-subrc EQ 0.
DELETE lt_p_im_component WHERE aposn EQ ls_p_im_component-aposn.
ENDIF.
ENDLOOP.
ENDIF.
IF lt_p_im_component IS NOT INITIAL.
lv_operation = ls_afvc-aplzl.
lv_sequence = ls_afvc-plnfl.
LOOP AT lt_p_im_component INTO ls_p_im_component.
* lv_positionno = lv_positionno + 10.
lv_positionno = ls_p_im_component-aposn.
ls_quantity-quantity = ls_p_im_component-order_qty.
ls_quantity-uom = ls_p_im_component-base_unit.
* Begin of A236938 DV9K902677
IF ls_p_im_component-lgort IS INITIAL.
* IF ls_p_im_component-lgort EQ 0.
* Begin of A236938 DV9K902677
ls_p_im_component-lgort = space.
ENDIF.
IF ls_p_im_component-lgort IS NOT INITIAL.
ls_lgort-lgort = ls_p_im_component-lgort.
ls_lgortx-lgort = abap_true.
ELSE.
ls_lgort-lgort = space.
ls_lgortx-lgort = abap_false.
ENDIF.
IF ls_p_im_component-werks IS NOT INITIAL.

ls_lgort-werks = ls_p_im_component-werks.
ls_lgortx-werks = abap_true.
ELSE.
ls_lgort-werks = space.
ls_lgortx-werks = abap_false.
ENDIF.
IF ls_p_im_component-batch IS NOT INITIAL.
lv_batchx = abap_true.
ELSE.
lv_batchx = abap_false.
ENDIF.
CALL FUNCTION 'CO_XT_COMPONENT_ADD'

EXPORTING
is_order_key = pr_ex_order_number
i_material = ls_p_im_component-matnr
is_requ_quan = ls_quantity
i_operation = lv_operation
i_sequence = lv_sequence
is_storage_location = ls_lgort
is_storage_locationx = ls_lgortx
i_batch = ls_p_im_component-batch
i_batchx = lv_batchx
i_postp = lc_postp
i_posno = lv_positionno
IMPORTING
es_bapireturn = pr_ex_return
e_error_occurred = lv_error.
IF lv_error EQ abap_true.
* Delete all operation
* Data Rollback
EXIT.
ELSE.
CLEAR : lv_error.
* Commit transaction
CALL FUNCTION 'CO_XT_ORDER_PREPARE_COMMIT'
IMPORTING
es_bapireturn = pr_ex_return
e_error_occurred = lv_error.
pr_ex_return IS INITIAL .
* Commit Data
EXPORTING
wait = abap_true
IMPORTING
CALL FUNCTION 'CO_XT_ORDER_INITIALIZE'.
ELSE.
* Data Rollback
EXIT.
ENDIF.
ENDIF.
CLEAR : lv_error,
lv_operation,
lv_sequence,
ls_quantity,
lv_lgortx,
lv_batchx.
ENDLOOP.
* Update BOM Item Number in Component

PERFORM update_line_item USING pr_ex_order_number
lt_p_im_component[]
CHANGING pr_ex_return.
ENDIF.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_PROD_ORDER
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
FORM get_prod_order USING pr_im_orderdata TYPE bapi_pp_order_create.
DATA : ls_return TYPE bapiret2,

lv_aufnr TYPE aufnr.
CLEAR : ls_return.
*----------------------------------------------------------------------*
CLEAR : gs_order_objects,
lv_aufnr..
REFRESH : gt_header,
gt_sequence,
gt_operation,
gt_component.
*----------------------------------------------------------------------*
IF pr_im_orderdata-order_number IS NOT INITIAL.
* Check Production order already exist or not
lv_aufnr = pr_im_orderdata.
EXPORTING
input = lv_aufnr
IMPORTING
output = lv_aufnr.
gs_order_objects-header = abap_true.
gs_order_objects-positions = abap_true.
gs_order_objects-sequences = abap_true.
gs_order_objects-operations = abap_true.
gs_order_objects-components = abap_true.
* get production order data
CALL FUNCTION 'BAPI_PRODORD_GET_DETAIL'
EXPORTING
number = lv_aufnr
order_objects = gs_order_objects
IMPORTING
return = ls_return
TABLES
header = gt_header
sequence = gt_sequence
operation = gt_operation
component = gt_component.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form UPDATE_LINE_ITEM
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->PR_P_EX_ORDER_NUMBER text
* -->PR_LT_P_IM_COMPONENT[] text
* <--PR_P_EX_RETURN text
*----------------------------------------------------------------------*
FORM update_line_item USING pr_p_ex_order_number TYPE aufnr
pr_lt_p_im_component TYPE zpp_t_component
CHANGING pr_p_ex_return TYPE bapiret2.
*-----------L O C A L C O N S T A N T D E C L A R A T I O N---------------
--*
CONSTANTS : lc_co02 TYPE tcode VALUE 'CO02',

* Begin of A236938 DV9K902864
* lc_mode(1) TYPE c VALUE 'A',
lc_mode(1) TYPE c VALUE 'N',
* End of A236938 DV9K902864
lc_error(1) TYPE c VALUE 'E'.
DATA : ls_order_objects TYPE bapi_pp_order_objects,
lt_component TYPE STANDARD TABLE OF bapi_order_component
INITIAL SIZE 0,
wa_component TYPE bapi_order_component,
ls_p_lt_p_im_component TYPE zpp_s_component,
ls_messtab TYPE bdcmsgcoll.
DATA : ls_return TYPE bapiret2,
lv_count TYPE sy-tabix,
lv_fname TYPE dynfnam,
lc_cnt(2) TYPE n,
lv_tabix TYPE sy-tabix,
lv_count_compo TYPE sy-tabix.
*----------------------------------------------------------------------*
CLEAR : ls_order_objects,
ls_p_lt_p_im_component,
lv_count.
CLEAR : ls_return,
lv_fname,
lc_cnt,
lv_tabix,
lv_count_compo,
ls_messtab.
REFRESH: gt_bdcdata,
gt_messtab.
REFRESH : lt_component.
*----------------------------------------------------------------------*
IF ( pr_p_ex_return-type EQ gc_success OR
pr_p_ex_return-type EQ gc_warn OR
pr_p_ex_return-type EQ gc_info ) OR
pr_p_ex_return IS INITIAL.
* Get Production order component data

ls_order_objects-components = abap_true.
* get production order data
CALL FUNCTION 'BAPI_PRODORD_GET_DETAIL'
EXPORTING
number = pr_p_ex_order_number
order_objects = gs_order_objects
IMPORTING
return = ls_return
TABLES
component = lt_component.
DESCRIBE TABLE lt_component LINES lv_count.

MOVE 1 TO lc_cnt.
PERFORM f_bdc_dynpro USING 'SAPLCOKO1' '0110'.

PERFORM f_bdc_field USING 'BDC_CURSOR'
'CAUFVD-AUFNR'.
PERFORM f_bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM f_bdc_field USING 'CAUFVD-AUFNR'

pr_p_ex_order_number.
PERFORM f_bdc_field USING 'R62CLORD-FLG_OVIEW'
'X'.
'=KPU2'.
PERFORM f_bdc_field USING 'BDC_SUBSCR'
'SAPLCOKO1 0
120SUBSCR_0115'.
'CAUFVD-GAMNG'.
DESCRIBE TABLE pr_lt_p_im_component LINES lv_count_compo.
LOOP AT pr_lt_p_im_component INTO ls_p_lt_p_im_component.
lv_tabix = sy-tabix.
CONCATENATE 'RESBD-POSNR('lc_cnt')' INTO lv_fname.
IF lv_tabix EQ 1.
PERFORM f_bdc_dynpro USING 'SAPLCOMK' '0120'.
lv_fname.
'/00'.
PERFORM f_bdc_field USING 'FILTER_BOX'
'NO_FIL'.
PERFORM f_bdc_field USING 'SORT_BOX'

'ST_STA'.
ENDIF.
PERFORM f_bdc_field USING lv_fname

ls_p_lt_p_im_component-aposn.
IF lv_tabix EQ lv_count_compo.
'SAPLCOKO1
0800ORD_HEADER'.
'SAPLCOMK
0050BUTTONS'.
ENDIF.
lc_cnt = lc_cnt + 1.
IF lv_tabix GE lv_count.
EXIT.
ENDIF.
ENDLOOP.
CLEAR : lv_tabix.
LOOP AT pr_lt_p_im_component INTO ls_p_lt_p_im_component .
* IF lv_tabix EQ 1.
PERFORM f_bdc_dynpro USING 'SAPLCOMD' '0110'.
'SAPLCOKO1
0800ORD_HEADER'.
'SAPLCOMD
0100SUBSCR_0100'.
* ENDIF.

'/00'.
'RESBD-MATNR'.
ENDLOOP.

'/00'.
PERFORM f_bdc_dynpro USING 'SAPLCOMK' '0120'.
'=BU'.
'SAPLCOKO1 0
800ORD_HEADER'.
'SAPLCOMK 0
050BUTTONS'.
* Call transaction to update BOM Line item

CALL TRANSACTION lc_co02 USING gt_bdcdata
MODE lc_mode MESSAGES INTO gt_messtab.
SORT gt_messtab BY msgtyp.
READ TABLE gt_messtab INTO ls_messtab WITH KEY msgtyp = lc_error

BINARY SEARCH.
IF sy-subrc EQ 0.
pr_p_ex_return-type = ls_messtab-msgtyp.
pr_p_ex_return-id = ls_messtab-msgid.
pr_p_ex_return-number = ls_messtab-msgnr.
pr_p_ex_return-message_v1 = ls_messtab-msgv1.
CLEAR : ls_messtab.
ENDIF.
ENDIF.
ENDFORM.
*----------------------------------------------------------------------*
* Start new screen *
*----------------------------------------------------------------------*
FORM f_bdc_dynpro USING pu_program pu_dynpro.
gs_bdcdata-program = pu_program.
gs_bdcdata-dynpro = pu_dynpro.
gs_bdcdata-dynbegin = abap_true.
APPEND gs_bdcdata TO gt_bdcdata.
CLEAR gs_bdcdata.
ENDFORM. "f_BDC_DYNPRO
*----------------------------------------------------------------------*
* Insert field *
*----------------------------------------------------------------------*
FORM f_bdc_field USING pu_fnam pu_fval.
gs_bdcdata-fnam = pu_fnam.
gs_bdcdata-fval = pu_fval.
APPEND gs_bdcdata TO gt_bdcdata.
CLEAR gs_bdcdata.
ENDFORM. "f_bdc_field
*&---------------------------------------------------------------------*
*& Form CREATE_SETTLEMENT_RULE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_IS_ORDERDATA text
* <--P_ES_RETURN text
*----------------------------------------------------------------------*
FORM create_settlement_rule USING pr_is_orderdata TYPE bapi_pp_order_creat
e
pr_it_prodorder TYPE z100217_inboundsi_i
a_work__tab
CONSTANTS : lc_or(2) TYPE c VALUE 'OR'.

*----------------------------------------------------------------------*
DATA : lv_objnr TYPE j_objnr,

lv_flag(1) TYPE c,
lv_aufnr TYPE aufnr.
CLEAR : lv_objnr,
lv_flag,
lv_aufnr.
*----------------------------------------------------------------------*
lv_aufnr = pr_is_orderdata-order_number.

EXPORTING
input = lv_aufnr
IMPORTING
output = lv_aufnr.
CONCATENATE lc_or lv_aufnr INTO lv_objnr.
IF lv_objnr IS NOT INITIAL.
CALL FUNCTION 'K_SETTLEMENT_RULE_DELETE'

EXPORTING
objnr = lv_objnr
EXCEPTIONS
enqueue_failure = 1
foreign_lock = 2
objnr_not_found = 3
used_rule_found = 4
no_rule_for_objnr = 5
OTHERS = 6.
IF sy-subrc EQ 0.
CALL FUNCTION 'K_SETTLEMENT_RULE_SAVE'

EXPORTING
objnr = lv_objnr
i_status_update = abap_true
EXCEPTIONS
no_rule_for_objnr = 1
OTHERS = 2.
IF sy-subrc EQ 0.
lv_flag = abap_true.
EXPORTING
wait = abap_true.
ELSE.
lv_flag = abap_false.
ENDIF.
ELSE.
lv_flag = abap_false.
ENDIF.
IF lv_flag EQ abap_true.
PERFORM create_settlement USING pr_is_orderdata
pr_it_prodorder[]
CHANGING pr_ex_return .
ELSE.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form CREATE_SETTLEMENT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_PR_IS_ORDERDATA text
* <--P_PR_ES_RETURN text
*----------------------------------------------------------------------*
FORM create_settlement USING pr_pr_is_orderdata TYPE bapi_pp_order_create
pr_pr_it_prodorder TYPE z100217_inboundsi_ia_
work__tab
CHANGING pr_pr_es_return TYPE bapiret2.
*-----------L O C A L T Y P E S D E C L A R A T I O N-----------------*
TYPES : BEGIN OF lty_settle,

konty(3) TYPE c,
aufnr TYPE aufnr,
* Begin of A236938 DV9K902620
* prozs(3) TYPE c,
* Begin of A236938 DV9K902740
* prozs TYPE BRGPROZS,
prozs(3) TYPE c,
* End of A236938 DV9K902740
* Begin of A236938 DV9K902620

perbz TYPE perbz,
lfdnr TYPE lfdnr,
END OF lty_settle.
*----------------------------------------------------------------------*
DATA : ls_prodorder TYPE z100217_inboundsi_ia_work_ins2,

lv_ord_qty(13) TYPE c,
lt_settle TYPE STANDARD TABLE OF lty_settle INITIAL SIZE 0,
ls_settle TYPE lty_settle,
lv_cnt(2) TYPE n,
lv_konty TYPE dynfnam,
lv_empge TYPE dynfnam,
lv_prozs TYPE dynfnam,
lv_perbz TYPE dynfnam,
lv_extnr TYPE dynfnam,
lv_tabix TYPE sy-tabix,
ls_messtab TYPE bdcmsgcoll,
* Begin of A236938 DV9K902740
lv_count TYPE i,
lv_prozs_tmp TYPE i,
lv_prozs_tmp1 TYPE i.
* End of A236938 DV9K902740
*----------------------------------------------------------------------*
CONSTANTS : lc_ord(3) TYPE c VALUE 'ORD',

lc_ful(3) TYPE c VALUE 'FUL',
lc_co02(4) TYPE c VALUE 'CO02',
*----------------------------------------------------------------------*
REFRESH : lt_settle,
gt_bdcdata,
gt_messtab.
CLEAR : ls_prodorder,
ls_settle,
gs_bdcdata,
lv_cnt,
lv_ord_qty,
lv_konty,
lv_empge,
lv_prozs,
lv_perbz,
lv_extnr,
lv_tabix,
ls_messtab,
* Begin of A236938 DV9K902740
lv_count,
lv_prozs_tmp.
* End of A236938 DV9K902740
*----------------------------------------------------------------------*
LOOP AT pr_pr_it_prodorder INTO ls_prodorder.
lv_ord_qty = lv_ord_qty + ls_prodorder-order_item_quantity.
ENDLOOP.
DESCRIBE TABLE pr_pr_it_prodorder LINES lv_count.

LOOP AT pr_pr_it_prodorder INTO ls_prodorder.
lv_cnt = lv_cnt + 1.
ls_settle-aufnr = ls_prodorder-order_number.
* Begin of A236938 DV9K902740

* ls_settle-prozs = ( ( ls_prodorder-order_item_quantity ) / ( lv_ord_qty
) ) * 100 .
lv_prozs_tmp1 = ( ( ls_prodorder-order_item_quantity ) / ( lv_ord_qty ) )
* 100 .
IF lv_cnt EQ lv_count.
ls_settle-prozs = 100 - lv_prozs_tmp .
ELSE.
lv_prozs_tmp = lv_prozs_tmp + lv_prozs_tmp1.
ls_settle-prozs = lv_prozs_tmp1.
ENDIF.
* End of A236938 DV9K902740

ls_settle-konty = lc_ord.
ls_settle-perbz = lc_ful.
ls_settle-lfdnr = lv_cnt.
APPEND ls_settle TO lt_settle.
CLEAR : ls_settle.
ENDLOOP.

'CAUFVD-AUFNR'.
'/00'.

pr_pr_is_orderdata-order_number.
'X'.

'=KOBK'.
'SAPLCOKO1 012
0SUBSCR_0115'.
'CAUFVD-GAMNG'.
CLEAR : lv_cnt.
MOVE 1 TO lv_cnt.
LOOP AT lt_settle INTO ls_settle.

CONCATENATE 'COBRB-KONTY('lv_cnt')' INTO lv_konty.
CONCATENATE 'DKOBR-EMPGE('lv_cnt')' INTO lv_empge.
CONCATENATE 'COBRB-PROZS('lv_cnt')' INTO lv_prozs.
CONCATENATE 'COBRB-PERBZ('lv_cnt')' INTO lv_perbz.
CONCATENATE 'COBRB-EXTNR('lv_cnt')' INTO lv_extnr.
IF lv_tabix EQ 1.
PERFORM f_bdc_dynpro USING 'SAPLKOBS' '0130'.
lv_konty.
'/00'.
'SAPLKOBS
0200BLOCK1'.
ENDIF.
PERFORM f_bdc_field USING lv_konty

ls_settle-konty.
PERFORM f_bdc_field USING lv_empge
ls_settle-aufnr.
PERFORM f_bdc_field USING lv_prozs
ls_settle-prozs.
PERFORM f_bdc_field USING lv_perbz
ls_settle-perbz.
PERFORM f_bdc_field USING lv_extnr
ls_settle-lfdnr.
lv_cnt = lv_cnt + 1.
ENDLOOP.
PERFORM f_bdc_dynpro USING 'SAPLKOBS' '0130'.

lv_konty.
'=BACK'.
'SAPLKOBS 020
0BLOCK1'.
'=BU'.
'CAUFVD-GAMNG'.

'SAPLCOKO1 012
0SUBSCR_0115'.
* Call Transaction CO02 to Insert Settlement Rule


BINARY SEARCH.
IF sy-subrc EQ 0.
pr_pr_es_return-type = ls_messtab-msgtyp.
pr_pr_es_return-id = ls_messtab-msgid.
pr_pr_es_return-number = ls_messtab-msgnr.
pr_pr_es_return-message_v1 = ls_messtab-msgv1.
CLEAR : ls_messtab.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form RELEASE_ORIGINAL_PROD_ORDER
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_IT_PRODORDER[] text
*----------------------------------------------------------------------*
FORM release_original_prod_order USING pr_is_orderdata TYPE bapi_pp_order_
create
pr_it_prodorder TYPE z100217_inboun
dsi_ia_work__tab
*-----------L O C A L T Y P E S D E C L A R A T I O N--------------*
TYPES : BEGIN OF lty_objnr,

objnr TYPE j_objnr,
END OF lty_objnr.
TYPES : BEGIN OF lty_jest,
objnr TYPE j_objnr,
stat TYPE j_status,
END OF lty_jest.
*----------------------------------------------------------------------*
*-----------L O C A L D A T A D E C L A R A T I O N--------------*
DATA :lt_order TYPE STANDARD TABLE OF bapi_order_key INITIAL SIZE 0,
ls_order TYPE bapi_order_key,
lt_objnr TYPE STANDARD TABLE OF lty_objnr INITIAL SIZE 0,
ls_objnr TYPE lty_objnr,
lt_jest TYPE STANDARD TABLE OF lty_jest INITIAL SIZE 0,
ls_jest TYPE lty_jest,
lt_order_tmp TYPE z100217_inboundsi_ia_work__tab,
ls_order_tmp TYPE z100217_inboundsi_ia_work_ins2,
lv_index TYPE sy-tabix.
DATA : lr_stat TYPE RANGE OF j_status,

ls_stat LIKE LINE OF lr_stat.
*----------------------------------------------------------------------*
CONSTANTS : lc_release TYPE j_status VALUE 'I0002',
* begin of DV9K901977
lc_status_profile TYPE co_stsma_hdr VALUE 'ZPP00002',
* End of DV9K901977
lc_status TYPE p_txt04 VALUE 'WI',
lc_delete TYPE j_status VALUE 'I0013',
lc_sign TYPE c VALUE 'I',
lc_option(2) TYPE c VALUE 'EQ'.
*----------------------------------------------------------------------*
REFRESH : lt_order,
lt_objnr,
lt_jest,
lt_order_tmp,
lr_stat.
CLEAR : ls_order,
ls_objnr,
ls_jest,
ls_order_tmp,
lv_index,
ls_stat.
*----------------------------------------------------------------------*
IF ( pr_it_prodorder IS NOT INITIAL AND

( pr_ex_return-type EQ gc_success OR
pr_ex_return IS INITIAL ).
lt_order_tmp[] = pr_it_prodorder[].
ls_stat-sign = lc_sign.
ls_stat-option = lc_option.
ls_stat-low = lc_release.
APPEND ls_stat TO lr_stat.
CLEAR : ls_stat.
ls_stat-sign = lc_sign.
ls_stat-option = lc_option.
ls_stat-low = lc_delete.
APPEND ls_stat TO lr_stat.
CLEAR : ls_stat.
DELETE lt_order_tmp WHERE order_number IS INITIAL.

CLEAR : lv_index.
IF lt_order_tmp IS NOT INITIAL.
LOOP AT lt_order_tmp INTO ls_order_tmp.
EXPORTING
input = ls_order_tmp-order_number
IMPORTING
output = ls_order_tmp-order_number.
MODIFY lt_order_tmp FROM ls_order_tmp INDEX lv_index TRANSPORTING orde
r_number .
ENDLOOP.
* fetch object number from Production order Header
SELECT objnr FROM caufv
INTO TABLE lt_objnr
FOR ALL ENTRIES IN lt_order_tmp
WHERE aufnr EQ lt_order_tmp-order_number.
IF sy-subrc EQ 0.
* fetch Production order release status
SELECT objnr
stat
FROM jest INTO TABLE lt_jest
FOR ALL ENTRIES IN lt_objnr
WHERE objnr EQ lt_objnr-objnr
AND stat IN lr_stat
AND inact EQ space.
* if production order already release then set release flg
IF sy-subrc EQ 0.
* Begin of A236938 DV9K902740
* LOOP AT lt_objnr INTO ls_objnr.
LOOP AT lt_jest INTO ls_jest.
* DELETE lt_order_tmp WHERE order_number = ls_objnr-objnr+2.
DELETE lt_order_tmp WHERE order_number = ls_jest-objnr+2.
* DELETE lt_objnr WHERE objnr = ls_objnr-objnr.
* End of A236938 DV9K902740
ENDLOOP.
ENDIF.
ENDIF.
IF lt_order_tmp IS NOT INITIAL.
LOOP AT lt_order_tmp INTO ls_order_tmp.

ls_order-order_number = ls_order_tmp-order_number.
CLEAR : ls_order.
ENDLOOP.
ENDIF.
* Begin of A236938 DV9K902740
SORT lt_order BY order_number.
DELETE ADJACENT DUPLICATES FROM lt_order COMPARING order_number.
* End of A236938 DV9K902740
* check production order is not already released

IF lt_order IS NOT INITIAL.
* Release Production Order
CALL FUNCTION 'BAPI_PRODORD_RELEASE'
IMPORTING
TABLES
orders = lt_order.
* Commit Data
EXPORTING
wait = abap_true
IMPORTING
* Begin of A236938 DV9K901707
* Set Order Status as WI
CALL FUNCTION 'BAPI_PRODORD_SETUSERSTATUS'
EXPORTING
status_profile = lc_status_profile
status = lc_status
IMPORTING
TABLES
orders = lt_order.
IF ( pr_it_prodorder IS NOT INITIAL AND
( pr_ex_return-type EQ gc_success OR
pr_ex_return IS INITIAL ).
* Commit Data
EXPORTING
wait = abap_true
IMPORTING
ELSE.
* Data Rollback
ENDIF.
* End of A236938 DV9K901707
ELSE.
* Data Rollback
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form UPDATE_SUBCONTRACTING
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_PR_IM_OPERATION text
* -->P_PR_EX_ORDER_NUMBER text
*----------------------------------------------------------------------*
* Begin of A236938 DV9K901707
FORM update_subcontracting USING pr_pr_im_operation TYPE zpp_s_operation

pr_pr_ex_order_number TYPE aufnr
CHANGING pr_pr_es_return TYPE bapiret2.
DATA : lv_vornr TYPE dynfnam,
lv_cnt(2) TYPE n,
ls_messtab TYPE bdcmsgcoll.
CONSTANTS : lc_co02(4) TYPE c VALUE 'CO02',

REFRESH : gt_bdcdata,
gt_messtab.
CLEAR : gs_bdcdata,
ls_messtab,
lv_vornr,
lv_cnt.
IF ( pr_pr_es_return-type EQ gc_success AND

pr_pr_es_return-type EQ gc_warn AND
pr_pr_es_return-type EQ gc_info ) OR
pr_pr_es_return IS INITIAL.
MOVE 1 TO lv_cnt.
CONCATENATE 'AFVGD-VORNR('lv_cnt')' INTO lv_vornr.

'CAUFVD-AUFNR'.
'/00'.

pr_pr_ex_order_number.
'X'.

'=VGUE'.
'SAPLCOKO1 0
120SUBSCR_0115'.
'CAUFVD-GAMNG'.
PERFORM f_bdc_dynpro USING 'SAPLCOVG' '0100'.
lv_vornr.
'=PICK'.
'SAPLCOVG 0
801ORD_HEADER'.
'SAPLCOVG 0
050BUTTONS'.
PERFORM f_bdc_dynpro USING 'SAPLCOVF' '0100'.

'=FRMD'.
'SAPLCOVG 0
806ORD_HEADER'.
'SAPLCOVF 0
101TAB_SUB_SCREEN'.
'SAPLCOVF 0
110SUBSCR_0101'.
'SAPLCOVF 0
321SUB_A'.
'AFVGD-CY_SEQNRV'.

'SAPLCOVF 0
322SUB_D'.
'SAPLCOVF 0
323SUB_P'.
'SAPLCOVF 0
324SUB_R'.
PERFORM f_bdc_dynpro USING 'SAPLCOVF' '0100'.

'=BU'.
'SAPLCOVG 0
806ORD_HEADER'.
'SAPLCOVF 0
101TAB_SUB_SCREEN'.
'SAPLCOVF 0
140SUBSCR_0101'.
'AFVGD-FRDLB'.
PERFORM f_bdc_field USING 'AFVGD-FRDLB'

abap_true.


BINARY SEARCH.
IF sy-subrc EQ 0.
pr_pr_es_return-type = ls_messtab-msgtyp.
pr_pr_es_return-id = ls_messtab-msgid.
pr_pr_es_return-number = ls_messtab-msgnr.
CLEAR : ls_messtab.
ENDIF.
ENDIF.
REFRESH : gt_bdcdata,
gt_messtab.
CLEAR : gs_bdcdata,
ls_messtab,
lv_vornr,
lv_cnt.
ENDFORM.
* Begin of A236938 DV9K901707

*&---------------------------------------------------------------------*
*& Form DELETE_OPERATION
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_IT_PRODORDER[] text
*----------------------------------------------------------------------*
FORM delete_operation USING pr_ex_order_number TYPE aufnr
pr_is_orderdata TYPE bapi_pp_order_create
pr_it_prodorder TYPE z100217_inboundsi_ia_work
__tab

aufnr TYPE aufnr,
END OF lty_afko.
vornr TYPE vornr,
objnr TYPE j_objnr,
END OF lty_afvc .
TYPES : BEGIN OF lty_jest,

objnr TYPE j_objnr,
stat TYPE j_status,
END OF lty_jest.
DATA : lt_afko TYPE STANDARD TABLE OF lty_afko INITIAL SIZE 0,

lt_afvc TYPE STANDARD TABLE OF lty_afvc INITIAL SIZE 0,
ls_afvc TYPE lty_afvc,
ls_it_prodorder TYPE z100217_inboundsi_ia_work_ins2.
DATA : lt_operation TYPE STANDARD TABLE OF cose_s_operation INITIAL SIZE 0,

ls_operation TYPE cose_s_operation,
lt_opr_del TYPE cose_t_opr_delete,
ls_opr_del TYPE cose_s_opr_delete,
lt_jest TYPE STANDARD TABLE OF lty_jest INITIAL SIZE 0,
ls_jest TYPE lty_jest,
lt_order TYPE z100217_inboundsi_ia_work__tab,
ls_order TYPE z100217_inboundsi_ia_work_ins2,
lv_index TYPE sy-tabix,
lv_vornr TYPE vornr.
CONSTANTS : lc_vornr TYPE vornr VALUE '0001',

lc_zpp1 TYPE steus VALUE 'ZPP1',
lc_plnfl TYPE plnfolge VALUE '000000',
lc_delete TYPE j_status VALUE 'I0013',
lc_shorttext TYPE ltxa1 VALUE 'Dummy Operation'.
REFRESH : lt_afko,
lt_afvc,
lt_jest,
lt_order.
CLEAR : ls_afko,
ls_afvc,
ls_it_prodorder,
ls_jest,
ls_order,
lv_index,
lv_vornr.
LOOP AT pr_it_prodorder INTO ls_order.

EXPORTING
input = ls_order-order_number
IMPORTING
output = ls_order-order_number.

CLEAR : ls_order.
ENDLOOP.
IF lt_order IS NOT INITIAL .
SELECT aufnr
aufpl
FROM afko INTO TABLE lt_afko
FOR ALL ENTRIES IN lt_order
WHERE aufnr EQ lt_order-order_number.
IF sy-subrc EQ 0.
SORT lt_afko BY aufnr .
SELECT aufpl
vornr
objnr
FROM afvc INTO TABLE lt_afvc
FOR ALL ENTRIES IN lt_afko
WHERE aufpl EQ lt_afko-aufpl.
IF sy-subrc EQ 0.
SORT lt_afvc BY aufpl vornr.
SELECT objnr
stat
FROM jest INTO TABLE lt_jest
FOR ALL ENTRIES IN lt_afvc
WHERE objnr EQ lt_afvc-objnr
AND inact EQ abap_false
AND stat EQ lc_delete.
IF sy-subrc EQ 0.
SORT lt_jest BY objnr stat.
ENDIF.
ENDIF.
ENDIF.
LOOP AT lt_order INTO ls_order.

lv_vornr = ls_order-operation_number.

EXPORTING
input = lv_vornr
IMPORTING
output = lv_vornr.
READ TABLE lt_afko INTO ls_afko WITH KEY aufnr = ls_order-order_number

BINARY SEARCH.
IF sy-subrc EQ 0.
READ TABLE lt_afvc INTO ls_afvc WITH KEY aufpl = ls_afko-aufpl
vornr = lv_vornr
BINARY SEARCH.
IF sy-subrc EQ 0.
READ TABLE lt_jest INTO ls_jest WITH KEY objnr = ls_afvc-objnr
stat = lc_delete
BINARY SEARCH.
IF sy-subrc EQ 0.
DELETE lt_order INDEX lv_index.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
LOOP AT lt_order INTO ls_it_prodorder.

READ TABLE lt_afko INTO ls_afko WITH KEY aufnr = ls_it_prodorder-
order_number
BINARY SEARCH.
IF sy-subrc EQ 0.
READ TABLE lt_afvc INTO ls_afvc WITH KEY aufpl = ls_afko-aufpl

vornr = lc_vornr
BINARY SEARCH.
IF sy-subrc EQ 0.
ls_opr_del-vornr = ls_it_prodorder-operation_number.
EXPORTING
input = ls_opr_del-vornr
IMPORTING
output = ls_opr_del-vornr.

CLEAR : ls_opr_del.
EXPORTING
iv_order_number = ls_it_prodorder-order_number
IMPORTING
* Commit Data
EXPORTING
wait = abap_true
IMPORTING
ENDIF.
ENDIF.
ELSE.
ls_operation-sequence = lc_plnfl.
ls_operation-operation = lc_vornr.
ls_operation-control_key = lc_zpp1.
ls_operation-short_text = lc_shorttext.
ls_operation-short_text_x = abap_true.
ls_opr_del-vornr = ls_it_prodorder-operation_number.
EXPORTING
input = ls_opr_del-vornr
IMPORTING
output = ls_opr_del-vornr.
CLEAR : ls_opr_del.
IF lt_operation IS NOT INITIAL .

* Add operation into production order
CALL FUNCTION 'CO_SE_PRODORD_CHANGE'
EXPORTING
IMPORTING
* Commit Data
EXPORTING
wait = abap_true
IMPORTING

EXPORTING
IMPORTING
* Commit Data
EXPORTING
wait = abap_true
IMPORTING
* ENDIF.
* ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
REFRESH : lt_opr_del,
lt_operation.
ENDLOOP.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
* Program Description: This function module is used to update all *
* errors details through interface/enhancement *
* DEVELOPER: Surajit Dubey *
* OBJECT NUMBER: N/A *
* INPUT: I_EXTNUMBER will be XX.Y.ZZZZ format *
* Details are shown in the FM documentation *
* Output: Update Application log for ZCA_ERROR *
*----------------------------------------------------------------------*
FUNCTION zca_error_log_upd.
*"----------------------------------------------------------------------
*" IMPORTING
*" VALUE(I_EXTNUMBER) TYPE CHAR9
*" VALUE(I_LOG_MESSAGE) TYPE ZCA_T_ERROR_LOG_STRUC
*" EXCEPTIONS
*" LOG_HEADER_INCONSISTENT
*" LOGGING_ERROR
*" LOG_NOT_FOUND
*" MSG_INCONSISTENT
*" LOG_IS_FULL
*" SAVE_NOT_ALLOWED
*" NUMBERING_ERROR
*" FORMAT_CHECK
*" BLANK_ERROR_LOG
*"----------------------------------------------------------------------
*----------------------------------------------------------------------*
* D A T A D E C L A R A T I O N
*
*----------------------------------------------------------------------*
DATA:lv_log_handle TYPE balloghndl,

lv_s_log TYPE bal_s_log,
lv_ext_no TYPE bal_s_log-extnumber.
DATA:ls_mdef TYPE bal_s_mdef,

ls_log_message TYPE bca_str_rel_message,
ls_msg TYPE bal_s_msg,
lt_log_handle TYPE bal_t_logh.
*----------------------------------------------------------------------*
*M A I N P R O C E S S I N G
*
*----------------------------------------------------------------------*
* This constant is used only for NORDIC project.

* One object is created 'ZSCT_NORD_ERROR'
* Based on this object all application log will be generated.
CONSTANTS lc_log_object TYPE balobj_d VALUE 'ZCA_ERROR'.
IF i_log_message IS NOT INITIAL.
lv_s_log-object = lc_log_object.
lv_ext_no = i_extnumber.
lv_s_log-extnumber = lv_ext_no.
"Create the log with header data

CALL FUNCTION 'BAL_LOG_CREATE'
EXPORTING
i_s_log = lv_s_log
IMPORTING
e_log_handle = lv_log_handle
EXCEPTIONS
OTHERS = 2.
IF sy-subrc EQ 0.
ls_mdef-log_handle = lv_log_handle.
CALL FUNCTION 'BAL_GLB_MSG_DEFAULTS_SET'

EXPORTING
i_s_msg_defaults = ls_mdef
EXCEPTIONS
OTHERS = 1.
IF sy-subrc EQ 0.
LOOP AT i_log_message INTO ls_log_message.
ls_msg-msgty = ls_log_message-msgty.
ls_msg-msgid = ls_log_message-msgid.
ls_msg-msgno = ls_log_message-msgno.
ls_msg-msgv1 = ls_log_message-msgv1.
* Log message updated in the application log

CALL FUNCTION 'BAL_LOG_MSG_ADD'
EXPORTING
i_log_handle = lv_log_handle
i_s_msg = ls_msg
EXCEPTIONS
log_not_found = 1
log_is_full = 3
OTHERS = 4.
IF sy-subrc EQ 0.
APPEND lv_log_handle TO lt_log_handle.
* Update the database table for application log
CALL FUNCTION 'BAL_DB_SAVE'
EXPORTING
i_t_log_handle = lt_log_handle
EXCEPTIONS
log_not_found = 1
numbering_error = 3
OTHERS = 4.
IF sy-subrc EQ 0.
* Update the database
COMMIT WORK.
ELSE.
CASE sy-subrc.
WHEN 1.
RAISE log_not_found.
WHEN 2.
RAISE save_not_allowed.
WHEN 3.
RAISE numbering_error.
WHEN 4.
RAISE logging_error.
ENDCASE.
ENDIF.
ELSE.
CASE sy-subrc.
WHEN 1.
RAISE log_not_found.
WHEN 2.
RAISE msg_inconsistent.
WHEN 3.
RAISE log_is_full.
WHEN 4.
ENDCASE.
ENDIF.
ENDLOOP.
ELSE.
CASE sy-subrc .
WHEN 1.
ENDCASE.
ENDIF.
ELSE.
CASE sy-subrc .
WHEN 1.
RAISE log_header_inconsistent.
WHEN 2.
ENDCASE.
ENDIF.
ELSE.
RAISE blank_error_log.
ENDIF.
ENDFUNCTION.
=============================================================================
*&---------------------------------------------------------------------*
*& Include ZI_PP_PROD_ORDR_SEND_QUINTIQ
*&---------------------------------------------------------------------*
*---------------------------------------------------------------------*
* Modification : {To trigger IDOC for production order from Sales Order
* program RCCLORD is called. in Production Order
* there is no o/p type concept for IDOC trigger.
* We have tried Event but that is also not working as req
uirement is
* to trigger IDOC when Prod created or change }
* Date (dd-mm-yyyy): 10-03-2016
* Reason : NA
*---------------------------------------------------------------------*
* REVISION HISTORY-----------------------------------------------------*
* REVISION NO: 1. REFERENCE NO: Ticket 594623 *
* DEVELOPER : Arunodaya Biswas *
* TRANSPORT : DV9K902949 *
* DESCRIPTION: Implement Wait for database commit *
* DATE : 20.04.2016 *
* SEARCH KEY : T_594623 *
*&---------------------------------------------------------------------*
*------------L O C A L T Y P E S I N I T I A L L Z A T I O N------------
-*
TYPES : BEGIN OF lty_aufnr,
sign TYPE c LENGTH 1,
option TYPE c LENGTH 2,
low TYPE aufnr,
high TYPE aufnr,
END OF lty_aufnr.
TYPES : BEGIN OF lty_werks,

low TYPE werks_d,
high TYPE werks_d,
END OF lty_werks.
TYPES : BEGIN OF lty_matnr,

low TYPE matnr,
high TYPE matnr,
END OF lty_matnr.
*-------------------------------------------------------------------------*
*-------L O C A L D A T A D E C L A R A T I O N----------------------*
DATA : lt_aufnr TYPE STANDARD TABLE OF lty_aufnr INITIAL SIZE 0,
lwa_aufnr TYPE lty_aufnr,
lt_werks TYPE STANDARD TABLE OF lty_werks INITIAL SIZE 0,
lwa_werks TYPE lty_werks,
lt_matnr TYPE STANDARD TABLE OF lty_matnr,
lwa_matnr TYPE lty_matnr,
lv_logsys TYPE logsys.
DATA : gs_caufvd TYPE caufvd.

*-------------------------------------------------------------------------*
*-------------------C O N S T A N T D E C L A R A T I O N------------*
CONSTANTS : lc_sign(1) TYPE c VALUE 'I',
lc_option(2) TYPE c VALUE 'EQ',
lc_dev TYPE logsys VALUE 'SAPPID',
lc_test TYPE logsys VALUE 'SAPPIQ',
lc_prod TYPE logsys VALUE 'SAPPIP',
lc_mestyp TYPE edi_mestyp VALUE 'ZLOIPRO_100216',
lc_auart TYPE auart VALUE 'ZPN1',
lc_dv9 TYPE sysid VALUE 'DV9',
lc_ts9 TYPE sysid VALUE 'TS9',
lc_pr9 TYPE sysid VALUE 'PR9',
lc_zpc1 TYPE auart VALUE 'ZPC1'.
*------------------D A T A I N I T I A L L Z A T I O N-----------------*
REFRESH : lt_aufnr,
lt_werks.
CLEAR : lwa_aufnr,
lwa_werks,
lv_logsys.
CLEAR : gs_caufvd.
*-------------------------------------------------------------------------*
WAIT UP TO 5 SECONDS."++T_594623
IMPORT gs_caufvd FROM MEMORY ID 'PRODORD'.
*-------------------------------------------------------------------------*
IF gs_caufvd-auart EQ lc_auart.
IF sy-sysid EQ lc_dv9.
lv_logsys = lc_dev.
ELSEIF sy-sysid EQ lc_ts9.
lv_logsys = lc_test.
ELSEIF sy-sysid EQ lc_pr9.
lv_logsys = lc_prod.
ELSE.
lv_logsys = space.
ENDIF.
* Assign Plant values

lwa_werks-sign = lc_sign.
lwa_werks-option = lc_option.
lwa_werks-low = gs_caufvd-werks.
APPEND lwa_werks TO lt_werks.
CLEAR : lwa_werks.
* Assign Production order
lwa_aufnr-sign = lc_sign.
lwa_aufnr-option = lc_option.
lwa_aufnr-low = gs_caufvd-aufnr.
APPEND lwa_aufnr TO lt_aufnr.
CLEAR : lwa_aufnr.
* Assign Material Number
lwa_matnr-sign = lc_sign.
lwa_matnr-option = lc_option.
lwa_matnr-low = gs_caufvd-matnr.
APPEND lwa_matnr TO lt_matnr.
CLEAR : lwa_matnr.
* Submit Report which will genertae IDOC

SUBMIT rcclord WITH s_aufnr IN lt_aufnr
WITH s_werks IN lt_werks
WITH s_matnr IN lt_matnr
WITH opt_sys EQ lv_logsys
WITH mestyp EQ lc_mestyp AND RETURN.
REFRESH : lt_aufnr,
lt_werks.
CLEAR : lwa_aufnr,
lwa_werks,
lv_logsys.
CLEAR : gs_caufvd.
ENDIF.
====================================================================
*----------------------------------------------------------------------*
***INCLUDE ZXCO1F01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
* *
*
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form INIT_AND_FILL_TREE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM init_and_fill_tree .
* Create Object for Custom Container

CREATE OBJECT customcontainer
EXPORTING
container_name = 'G_CONTAINER'.
gv_repid = sy-repid.
* Create Object for tree
CREATE OBJECT co_tree1
EXPORTING
parent = customcontainer
node_selection_mode = cl_gui_column_tree=>node_sel_mode_single
item_selection = 'X'
with_headers = ' '
EXCEPTIONS
cntl_system_error = 1
create_error = 2
failed = 3
illegal_node_selection_mode = 4
lifetime_error = 5.
IF sy-subrc <> 0.
* error handling
ENDIF.
* Create event for Double click

gs_event-eventid = cl_gui_list_tree=>eventid_item_double_click.
gs_event-appl_event = 'X'.
APPEND gs_event TO gt_events.
** Register Event
CALL METHOD co_tree1->set_registered_events
EXPORTING
events = gt_events
EXCEPTIONS
cntl_error = 1
illegal_event_combination = 3.
IF sy-subrc <> 0.
** error handling
ENDIF.
* Create Event handler object
CREATE OBJECT gr_event_handler.
SET HANDLER gr_event_handler->handle_item_double_click FOR co_tree1.

* Create Node
PERFORM build_node_and_item_table.
ENDFORM.
FORM build_node_and_item_table.
TYPES : BEGIN OF lty_zpp_rel_wi_op,

aufnr TYPE aufnr,
paufnr TYPE aufnr,
wi_post TYPE aufnr,
final TYPE flag,
END OF lty_zpp_rel_wi_op.
TYPES : BEGIN OF lty_node_aufnr,

aufnr TYPE aufnr,
folder TYPE flag,
root_aufnr TYPE aufnr,
END OF lty_node_aufnr.
TYPES : BEGIN OF lty_reln,

node(4) TYPE c,
parent(4) TYPE c,
folder TYPE flag,
aufnr TYPE aufnr,
END OF lty_reln.
*--------------------------------------------------------------------------*
*-----------L O C A L D A T A D E C L A R A T I O N----------------------*
DATA: ls_node LIKE treev_node,

ls_item LIKE mtreeitm,
* gs_caufvd TYPE caufvd,
lt_zpp_rel_wi_op TYPE STANDARD TABLE OF lty_zpp_rel_wi_op INI
TIAL SIZE 0,
lt_zpp_rel_wi_op_tmp TYPE STANDARD TABLE OF lty_zpp_rel_wi_op INI
TIAL SIZE 0,
lt_zpp_rel_wi_op_tmp1 TYPE STANDARD TABLE OF lty_zpp_rel_wi_op INI
TIAL SIZE 0,
lt_zpp_rel_wi_op_data TYPE STANDARD TABLE OF lty_zpp_rel_wi_op INI
TIAL SIZE 0,
ls_zpp_rel_wi_op_data TYPE lty_zpp_rel_wi_op,
ls_zpp_rel_wi_op TYPE lty_zpp_rel_wi_op,
lv_auart TYPE aufart,
lv_aufnr_tmp TYPE aufnr,
lt_node_aufnr TYPE STANDARD TABLE OF lty_node_aufnr INITIA
L SIZE 0,
lt_node_aufnr_main TYPE STANDARD TABLE OF lty_node_aufnr INITIA
L SIZE 0,
ls_node_aufnr TYPE lty_node_aufnr,
ls_node_aufnr_main TYPE lty_node_aufnr,
lt_zpp_rel_wi_op_ref TYPE STANDARD TABLE OF lty_zpp_rel_wi_op INI
TIAL SIZE 0,
lt_zpp_rel_wi_op_ref1 TYPE STANDARD TABLE OF lty_zpp_rel_wi_op INI
TIAL SIZE 0,
ls_zpp_rel_wi_op_ref TYPE lty_zpp_rel_wi_op,
lt_zpp_rel_wi_op_ref_data TYPE STANDARD TABLE OF lty_zpp_rel_wi_op INI
TIAL SIZE 0,
ls_zpp_rel_wi_op_ref_data TYPE lty_zpp_rel_wi_op,
lt_treev_nks TYPE treev_nks,
lv_node_key(4) TYPE c,
lv_node_parent(4) TYPE c,
lt_reln TYPE STANDARD TABLE OF lty_reln INITIAL SIZE
0,
ls_reln TYPE lty_reln,
ls_reln_tmp TYPE lty_reln,
lv_root_aufnr TYPE aufnr.
*-----------L O C A L F I E L D S Y M B O L D E C L A R A T I O N--------
--------------*
FIELD-SYMBOLS : <lf_zpp_rel_wi_op_data> TYPE lty_zpp_rel_wi_op.
*----------------------------------------------------------------------*
CONSTANTS : lc_zpc1 TYPE aufart VALUE 'ZPC1',
lc_one(1) TYPE c VALUE '1',
lc_size(2) TYPE c VALUE '12'.
*----------------------------------------------------------------------*
CLEAR : ls_node,
ls_item,
ls_zpp_rel_wi_op,
gs_caufvd,
lv_auart,
lv_aufnr_tmp,
ls_node_aufnr,
ls_zpp_rel_wi_op_ref,
ls_zpp_rel_wi_op_ref_data,
ls_zpp_rel_wi_op_data,
ls_node_aufnr_main,
lv_node_key,
lv_node_parent,
ls_reln,
lv_root_aufnr,
ls_reln_tmp,
gs_item_table.
REFRESH :lt_zpp_rel_wi_op,
lt_zpp_rel_wi_op_tmp,
lt_zpp_rel_wi_op_tmp1,
lt_node_aufnr,
lt_zpp_rel_wi_op_ref,
lt_zpp_rel_wi_op_ref_data,
lt_zpp_rel_wi_op_data,
lt_node_aufnr_main,
lt_zpp_rel_wi_op_ref1,
lt_treev_nks,
lt_reln,
gt_node_table,
gt_item_table.
*----------------------------------------------------------------------*
* Import Production order Data

IMPORT gs_caufvd FROM MEMORY ID 'ORDER'.
IF gs_caufvd-aufnr IS NOT INITIAL.

SELECT SINGLE auart
FROM aufk
INTO lv_auart
WHERE aufnr EQ gs_caufvd-aufnr.
IF sy-subrc EQ 0.
CASE lv_auart.
WHEN lc_zpc1.
SELECT aufnr
paufnr
wi_post
final
FROM zpp_rel_wi_op
INTO TABLE lt_zpp_rel_wi_op
WHERE aufnr EQ gs_caufvd-aufnr .
IF sy-subrc EQ 0.
SORT lt_zpp_rel_wi_op BY aufnr paufnr .
ENDIF.
WHEN OTHERS.
SELECT aufnr
paufnr
wi_post
final
FROM zpp_rel_wi_op
INTO TABLE lt_zpp_rel_wi_op
WHERE paufnr EQ gs_caufvd-aufnr .
IF sy-subrc EQ 0.
SORT lt_zpp_rel_wi_op BY aufnr paufnr.
ENDIF.
ENDCASE.
ENDIF.
IF lt_zpp_rel_wi_op IS NOT INITIAL .

DELETE ADJACENT DUPLICATES FROM lt_zpp_rel_wi_op COMPARING aufnr.
SELECT aufnr
paufnr
wi_post
final
FROM zpp_rel_wi_op
INTO TABLE lt_zpp_rel_wi_op_tmp
FOR ALL ENTRIES IN lt_zpp_rel_wi_op
WHERE aufnr EQ lt_zpp_rel_wi_op-aufnr .
IF sy-subrc EQ 0.
SORT gt_zpp_rel_wi_op_tmp BY paufnr.
DELETE ADJACENT DUPLICATES FROM gt_zpp_rel_wi_op_tmp COMPARING paufnr.
SELECT aufnr
paufnr
wi_post
final
FROM zpp_rel_wi_op
INTO TABLE lt_zpp_rel_wi_op_tmp1
FOR ALL ENTRIES IN lt_zpp_rel_wi_op_tmp
WHERE paufnr EQ lt_zpp_rel_wi_op_tmp-paufnr .
IF sy-subrc EQ 0.
SORT lt_zpp_rel_wi_op_tmp1 BY aufnr.
DELETE ADJACENT DUPLICATES FROM lt_zpp_rel_wi_op_tmp1 COMPARING aufn
r.
DELETE lt_zpp_rel_wi_op_tmp1 WHERE final EQ space.
IF lt_zpp_rel_wi_op_tmp1 IS NOT INITIAL.
SELECT aufnr
paufnr
wi_post
final
FROM zpp_rel_wi_op
INTO TABLE lt_zpp_rel_wi_op_data
FOR ALL ENTRIES IN lt_zpp_rel_wi_op_tmp1
WHERE aufnr EQ lt_zpp_rel_wi_op_tmp1-aufnr .
IF sy-subrc EQ 0.
SORT lt_zpp_rel_wi_op_data BY aufnr.
ENDIF.
SELECT aufnr
paufnr
wi_post
final
FROM zpp_rel_wi_op
INTO TABLE lt_zpp_rel_wi_op_ref
FOR ALL ENTRIES IN lt_zpp_rel_wi_op_tmp1
WHERE wi_post EQ lt_zpp_rel_wi_op_tmp1-aufnr .
IF sy-subrc EQ 0.
lt_zpp_rel_wi_op_ref1[] = lt_zpp_rel_wi_op_ref[].
SORT lt_zpp_rel_wi_op_ref1 BY wi_post paufnr.
SORT lt_zpp_rel_wi_op_ref BY aufnr.
DELETE ADJACENT DUPLICATES FROM lt_zpp_rel_wi_op_ref COMPARING a
ufnr.
SELECT aufnr
paufnr
wi_post
final
FROM zpp_rel_wi_op
INTO TABLE lt_zpp_rel_wi_op_ref_data
FOR ALL ENTRIES IN lt_zpp_rel_wi_op_ref
WHERE aufnr EQ lt_zpp_rel_wi_op_ref-aufnr .
IF sy-subrc EQ 0.
SORT lt_zpp_rel_wi_op_ref_data BY wi_post.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF lt_zpp_rel_wi_op_data IS NOT INITIAL.
LOOP AT lt_zpp_rel_wi_op_data ASSIGNING <lf_zpp_rel_wi_op_data>.
AT NEW aufnr.
ls_node_aufnr-aufnr = <lf_zpp_rel_wi_op_data>-aufnr.
ls_node_aufnr-folder = abap_true.
ls_node_aufnr-root_aufnr = space.
APPEND ls_node_aufnr TO lt_node_aufnr.
CLEAR : ls_node_aufnr.
ENDAT.
READ TABLE lt_zpp_rel_wi_op_ref1 INTO ls_zpp_rel_wi_op_ref

WITH KEY wi_post = <lf_zpp_re
l_wi_op_data>-aufnr
paufnr = <lf_zpp_rel
_wi_op_data>-paufnr
BINARY SEARCH.
IF sy-subrc EQ 0.
ls_node_aufnr-aufnr = ls_zpp_rel_wi_op_ref-aufnr.
ls_node_aufnr-folder = abap_true.
ls_node_aufnr-root_aufnr = <lf_zpp_rel_wi_op_data>-aufnr.
ELSE.
ls_node_aufnr-aufnr = <lf_zpp_rel_wi_op_data>-paufnr.
ls_node_aufnr-folder = space.
ls_node_aufnr-root_aufnr = <lf_zpp_rel_wi_op_data>-aufnr.
ENDIF.
ENDLOOP.
ENDIF.
* SORT lt_node_aufnr BY aufnr.

DELETE ADJACENT DUPLICATES FROM lt_node_aufnr COMPARING aufnr.
LOOP AT lt_node_aufnr INTO ls_node_aufnr.

ADD 1 TO lv_node_key.
IF ls_node_aufnr-folder EQ abap_true AND ls_node_aufnr-root_aufnr IS NOT I

NITIAL.
ls_reln-node = lv_node_key.
ls_reln-folder = ls_node_aufnr-folder.
ls_reln-aufnr = ls_node_aufnr-aufnr.
READ TABLE lt_reln INTO ls_reln_tmp WITH KEY aufnr = ls_node_aufnr-

root_aufnr.
IF sy-subrc EQ 0.
ls_reln-parent = ls_reln_tmp-node.
ELSE.
ls_reln-parent = space.
ENDIF.
APPEND ls_reln TO lt_reln.
CLEAR : ls_reln.
lv_node_parent = lv_node_key.
ls_reln-parent = lv_node_parent.
LOOP AT lt_zpp_rel_wi_op_ref_data INTO ls_zpp_rel_wi_op_ref_data WHERE a

ufnr EQ ls_node_aufnr-aufnr.
ls_reln-folder = space.
ls_reln-aufnr = ls_zpp_rel_wi_op_ref_data-paufnr.
ls_reln-parent = lv_node_parent.
CLEAR : ls_reln.
ENDLOOP.
ELSE.
ls_reln-folder = ls_node_aufnr-folder.
ls_reln-aufnr = ls_node_aufnr-aufnr.
IF ls_node_aufnr-folder EQ space AND ls_node_aufnr-root_aufnr IS NOT INI

TIAL.
READ TABLE lt_reln INTO ls_reln_tmp WITH KEY aufnr = ls_node_aufnr-
root_aufnr.
IF sy-subrc EQ 0.
ls_reln-parent = ls_reln_tmp-node.
ELSE.
ENDIF.
ELSE.
ENDIF.
CLEAR : ls_reln.
ENDIF.
ENDLOOP.
LOOP AT lt_reln INTO ls_reln .
ls_node-node_key = ls_reln-node. " Key of the node

ls_node-hidden = ' '. " The node is visible
,
ls_node-disabled = ' '. " selectable,
ls_node-isfolder = ls_reln-folder. " a folder.
ls_node-relatkey = ls_reln-parent. " Node is inserted as
the first child of the node with key 'Root'.
IF ls_reln-parent IS INITIAL AND ls_reln-folder EQ abap_true.
ls_node-relatship = space.
ELSE.
ls_node-relatship = cl_gui_column_tree=>relat_last_child.
ENDIF.
CLEAR ls_node-n_image. " Folder-/ Leaf-Symbol in state
"closed":
CLEAR ls_node-exp_image. " Folder-/ Leaf-Symbol in state
"open":
APPEND ls_node TO gt_node_table.
* The items of the nodes:

CLEAR ls_item.
ls_item-node_key = ls_reln-node.
ls_item-item_name = lc_one. " Item of Column 'Column1'
ls_item-class = cl_gui_column_tree=>item_class_text.
ls_item-length = lc_size.
ls_item-text = ls_reln-aufnr. "#EC NOTEXT
APPEND ls_item TO gt_item_table.
ENDLOOP.
CALL METHOD co_tree1->add_nodes_and_items

EXPORTING
node_table = gt_node_table
item_table = gt_item_table
item_table_structure_name = 'MTREEITM'
EXCEPTIONS
failed = 1
error_in_tables = 4
dp_error = 5
table_structure_name_not_found = 6.
IF sy-subrc <> 0.
* error handling
ENDIF.
CALL METHOD cl_gui_cfw=>flush

EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
* error handling
ENDIF.
ENDFORM. " BUILD_NODE_ITAB_AND_ITEM_ITAB
*----------------------------------------------------------------------*
***INCLUDE ZXCO1O01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
* *
*
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
IF gv_init IS INITIAL .
* Create Node Tree
PERFORM init_and_fill_tree.
gv_init = 'X'.
* ELSE.
* CALL METHOD tree->delete_all_nodes
* EXCEPTIONS
* failed = 1
* cntl_system_error = 2
* OTHERS = 3.
*
* CALL METHOD tree->add_nodes_and_items
* EXPORTING
* node_table = gt_node_table
* item_table = gt_item_table
* item_table_structure_name = 'MTREEITM'
* EXCEPTIONS
* failed = 1
* cntl_system_error = 2
* error_in_tables = 3
* dp_error = 4
* table_structure_name_not_found = 5
* OTHERS = 6.
* 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.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.
ENDMODULE.
*----------------------------------------------------------------------*
***INCLUDE ZXCO1TOP.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
* *
*
*----------------------------------------------------------------------*
*-----------------T Y P E S D E C L A R A T I O N--------------------------
---*
TYPES : BEGIN OF gty_zpp_rel_wi_op,

aufnr TYPE aufnr,
paufnr TYPE aufnr,
wi_post TYPE aufnr,
final TYPE flag,
END OF gty_zpp_rel_wi_op.
*----------------------------------------------------------------------------
----*
*-----------------D A T A D E C L A R A T I O N-----------------------------
----*
DATA : gv_init TYPE flag,

gv_rc TYPE i,
gv_node_key TYPE aufnr.
DATA: gs_caufvd TYPE caufvd,

gt_zpp_rel_wi_op_tmp TYPE STANDARD TABLE OF gty_zpp_rel_wi_op INITIAL SI
ZE 0,
gs_zpp_rel_wi_op_tmp TYPE gty_zpp_rel_wi_op.
*----------------------------------------------------------------------------
----*
*-----------------C L A S S D E C L A R A T I O N---------------------------
------*
* Define Class
CLASS cl_gui_cfw DEFINITION LOAD.
*-----------------D A T A D E C L A R A T I O N-----------------------------
----*
DATA : customcontainer TYPE REF TO cl_gui_custom_container, "Define Custom
Container
gt_events TYPE cntl_simple_events, "Evenet
gs_event TYPE cntl_simple_event, "Event work are
a
gv_repid LIKE sy-repid, "report
Name
gt_node_table TYPE treev_ntab, "Node Table
gt_node_table_tmp TYPE treev_ntab, "Node Table
gs_h_header TYPE treev_hhdr,
co_tree1 TYPE REF TO cl_gui_list_tree. "Define Tree.
"Tree Header
* You should create your own structure in dictionary to define the
* item_table
DATA : gt_item_table LIKE STANDARD TABLE OF mtreeitm,
gs_item_table TYPE mtreeitm,
gt_item_table_tmp LIKE STANDARD TABLE OF mtreeitm.
*----------------------------------------------------------------------------
----*
*-----------------C L A S S I M P L E M E N T A T I O N---------------------
-----*
* CLASS_FINAL
CLASS lcl_event_handler DEFINITION.
PUBLIC SECTION.
METHODS
constructor.
METHODS
handle_item_double_click
FOR EVENT item_double_click
OF cl_gui_list_tree
IMPORTING node_key item_name .
ENDCLASS.
*----------------------------------------------------------------------------
----*
* Event Handler
DATA gr_event_handler TYPE REF TO lcl_event_handler.
*-----------------M E T H O D D E F I N I T I O N---------------------------
-----*
* Event handling module
MODULE event_handling INPUT.
CALL METHOD cl_gui_cfw=>dispatch
IMPORTING
return_code = gv_rc.
ENDMODULE. " EVENT_HANDLING INPUT
*-----------------E V E N T I M P L E M E N T A T I O N--------------------
---------*
* Event handler implementation
CLASS lcl_event_handler IMPLEMENTATION.
##NEEDED
METHOD constructor.
ENDMETHOD.
* Handle Double Click Event
METHOD handle_item_double_click.
* Call CO03
READ TABLE gt_item_table INTO gs_item_table WITH KEY node_key = node_key.
IF sy-subrc EQ 0.
SET PARAMETER ID 'ANR' FIELD gs_item_table-text.
CALL TRANSACTION 'CO03' AND SKIP FIRST SCREEN.
ENDIF.
ENDMETHOD.
ENDCLASS.
*&---------------------------------------------------------------------*
*& Include ZXCO1U11
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
* *
*
export gs_caufvd = i_caufvd to MEMORY id 'ORDER'.
*----------------------------------------------------------------------*
***INCLUDE ZXLOIF01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
* Program Description: USER EXIT to Assign values to custom segment *
* for Production order SAP to QUINTIQ *
* *
*
* OBJECT NUMBER: *
*----------------------------------------------------------------------*
*---------------------------------------------------------------------*
* Modification : Open Qunatity having negative singn at the end
* which fails in Quintiq. changes made in code to put
* minus sign at the front
* Date (dd-mm-yyyy): 21-03-2016
* Reason : NA
*---------------------------------------------------------------------*
*---------------------------------------------------------------------*
* Modification : name of the Characteristic OUTER_DIAMETER_MAX and
* OUTER_DIAMETER_MIN is changed to OUTER_MIN_DIAMTER
* and OUTER_MAX_DIAMTER
* Date (dd-mm-yyyy): 23-03-2016
* Reason : NA
*---------------------------------------------------------------------*
*---------------------------------------------------------------------*
* Modification : Goods Issue Date is wrongly mapped
* Goods issue date is fetched from VBEP-WADAT
*
* Date (dd-mm-yyyy): 23-03-2016
* Reason : NA
*---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form GET_HEADER_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->pr_F_AFKO text
* <--pr_LWA_Z1E1AFKOL001 text
*----------------------------------------------------------------------*
FORM get_header_data TABLES pr_idoc_data TYPE idoc_data "IDOC data
USING pr_f_afko TYPE e3afkol " Afko str
ucture
pr_c_z1e1afkol001 TYPE edilsegtyp "Segment n
ame
CHANGING pr_lwa_z1e1afkol001 TYPE z1e1afkol001."Segment
structure
-*
TYPES : BEGIN OF lty_afpo,

aufnr TYPE aufnr, "Production Order number
posnr TYPE co_posnr, "Production order Line Item
kdauf TYPE vbeln, "Sales Order
kdpos TYPE posnr, "Sales order Line item
uebto TYPE uebto, "tollerance low
untto TYPE untto, "tollerance upp
psmng TYPE co_psmng, "Order item quantity
wemng TYPE co_wemng, "Quantity of goods received for the order it
em
END OF lty_afpo.
TYPES : BEGIN OF lty_aufm,

mblnr TYPE mblnr,
mjahr TYPE mjahr,
zeile TYPE mblpo,
aufnr TYPE aufnr,
bwart TYPE bwart,
END OF lty_aufm.
TYPES : BEGIN OF lty_marc,

matnr TYPE matnr, "material
werks TYPE werks_d, "plant
cuobj TYPE cuobj, "object instance
END OF lty_marc.
TYPES : BEGIN OF lty_mara,

matnr TYPE matnr, "material
mtart TYPE mtart, "material type
END OF lty_mara.
TYPES : BEGIN OF lty_vbak,

vbeln TYPE vbeln_va, "sales order number
vkorg TYPE vkorg, "sales org
vtweg TYPE vtweg, "Distributon channel
spart TYPE spart, "Division
kunnr TYPE kunnr, "Customer
ernam TYPE ernam, "Name of person
kvgr2 TYPE kvgr2, "CUSTOMER_CLASSIFICATION
END OF lty_vbak.
TYPES : BEGIN OF lty_vbap,

vbeln TYPE vbeln_va, "Sales order
posnr TYPE posnr_va, "Line item
zieme TYPE dzieme, "Target quantity UoM
kwmeng TYPE kwmeng, "Order quantity in sales units
cuobj TYPE cuobj_va, "Object instance
END OF lty_vbap.
TYPES : BEGIN OF lty_vbep,

posnr TYPE posnr_va, "line item
etenr TYPE etenr, "Schecule line item
edatu TYPE edatu, "Schedule line date
bmeng TYPE bmeng, "Confirmed Quantity
wadat TYPE wadat, "Goods Issue Date
END OF lty_vbep.
TYPES : BEGIN OF lty_vbpa,

posnr TYPE posnr_va, "Line item
parvw TYPE parvw, "partner Function
kunnr TYPE kunnr, "Partner number
END OF lty_vbpa.
TYPES : BEGIN OF lty_vbfa,

vbelv TYPE vbeln_von, "Preciding Doc
posnv TYPE posnr_von, "Preciding Doc Line Item
vbeln TYPE vbeln_nach, "Subsequent sales Doc
posnn TYPE posnr_nach, "Subsequent sales Doc line item
END OF lty_vbfa.
TYPES : BEGIN OF lty_likp,

vbeln TYPE vbeln_vl, "Delivery Number
wadat TYPE wadak, "Planned goods movement date
END OF lty_likp.
TYPES : BEGIN OF lty_kna1,

kunnr TYPE kunnr, "Customer Number
name1 TYPE name1_gp, "Name
END OF lty_kna1.
TYPES : BEGIN OF lty_user_addr,

bname TYPE bname, "User ID
name_first TYPE name_first, "First Name
name_last TYPE name_last, "Last name
END OF lty_user_addr.
TYPES : BEGIN OF lty_knvv,

kunnr TYPE kunnr, "Customer number
vkorg TYPE vkorg, "Sales Org
vtweg TYPE vtweg, "Distribution channel
spart TYPE spart, "Division
lprio TYPE lprio, "Delivery Priority
END OF lty_knvv.
*-----------------------------------------------------------------------*
DATA : lt_afpo TYPE STANDARD TABLE OF lty_afpo INITIAL SIZE 0,

lt_marc TYPE STANDARD TABLE OF lty_marc INITIAL SIZE 0,
lt_vbak TYPE STANDARD TABLE OF lty_vbak INITIAL SIZE 0,
lt_vbap TYPE STANDARD TABLE OF lty_vbap INITIAL SIZE 0,
lt_vbep TYPE STANDARD TABLE OF lty_vbep INITIAL SIZE 0,
lt_vbpa TYPE STANDARD TABLE OF lty_vbpa INITIAL SIZE 0,
lt_likp TYPE STANDARD TABLE OF lty_likp INITIAL SIZE 0,
lt_vbfa TYPE STANDARD TABLE OF lty_vbfa INITIAL SIZE 0,
lt_kna1 TYPE STANDARD TABLE OF lty_kna1 INITIAL SIZE 0,
lt_user_addr TYPE STANDARD TABLE OF lty_user_addr INITIAL SIZE 0,
lt_knvv TYPE STANDARD TABLE OF lty_knvv INITIAL SIZE 0,
lt_mara TYPE STANDARD TABLE OF lty_mara INITIAL SIZE 0,
lt_aufm TYPE STANDARD TABLE OF lty_aufm INITIAL SIZE 0.
DATA : ls_afpo TYPE lty_afpo,

ls_marc TYPE lty_marc,
ls_vbak TYPE lty_vbak,
ls_vbap TYPE lty_vbap,
ls_vbep TYPE lty_vbep,
ls_vbpa TYPE lty_vbpa,
ls_likp TYPE lty_likp,
ls_vbfa TYPE lty_vbfa,
ls_kna1 TYPE lty_kna1,
ls_user_addr TYPE lty_user_addr,
ls_knvv TYPE lty_knvv,
ls_mara TYPE lty_mara,
ls_aufm TYPE lty_aufm.
*-----------------------------------------------------------------------*
*--------L O C A L C O N S T A N T D E C L A R A T I O N------------*
CONSTANTS : lc_ship_to_party TYPE parvw VALUE 'WE'. "Ship to Party
*-----------------------------------------------------------------------*
REFRESH : lt_afpo,
lt_marc,
lt_vbak,
lt_vbap,
lt_vbep,
lt_vbpa,
lt_likp,
lt_vbfa,
lt_kna1,
lt_user_addr,
lt_knvv,
lt_mara,
lt_aufm.
CLEAR : ls_afpo,
ls_marc,
ls_vbak,
ls_vbap,
ls_vbep,
ls_vbpa,
ls_likp,
ls_vbfa,
ls_kna1,
ls_user_addr,
ls_knvv,
ls_mara,
ls_aufm,
pr_lwa_z1e1afkol001.
*-----------------------------------------------------------------------*
* check prod order is not blank
IF pr_f_afko-aufnr IS NOT INITIAL .
* Fetch data from prod order line item
SELECT aufnr
posnr
kdauf
kdpos
uebto
untto
psmng
wemng
FROM afpo INTO TABLE lt_afpo
WHERE aufnr EQ pr_f_afko-aufnr.
IF sy-subrc EQ 0.
SORT lt_afpo BY aufnr. "Sort data by order number
* Assign Sales order and Line item
READ TABLE lt_afpo INTO ls_afpo WITH KEY aufnr = pr_f_afko-aufnr.
IF sy-subrc EQ 0.
pr_f_afko-kdauf = ls_afpo-kdauf.
pr_f_afko-kdpos = ls_afpo-kdpos.
CLEAR : ls_afpo.
ENDIF.
ENDIF.
* Fetch Movement type from AUFM table

SELECT mblnr
mjahr
zeile
aufnr
bwart
FROM aufm INTO TABLE lt_aufm
WHERE aufnr EQ pr_f_afko-aufnr.
IF sy-subrc EQ 0.
SORT lt_aufm BY mblnr DESCENDING mjahr DESCENDING .
ENDIF.
ENDIF.
* check material is not blank

IF pr_f_afko-matnr IS NOT INITIAL.
* fetch data from material master
SELECT matnr
mtart
FROM mara INTO TABLE lt_mara
WHERE matnr EQ pr_f_afko-matnr .
IF sy-subrc EQ 0.
SORT lt_mara BY matnr.
ENDIF.
ENDIF.
* check sales order and line item is not blank

IF pr_f_afko-kdauf IS NOT INITIAL AND pr_f_afko-kdpos IS NOT INITIAL.
* fetch data from Sales order
SELECT vbeln
vkorg
vtweg
spart
kunnr
ernam
kvgr2
FROM vbak INTO TABLE lt_vbak
WHERE vbeln EQ pr_f_afko-kdauf.
IF sy-subrc EQ 0.
* Sort data
SORT lt_vbak BY vbeln vkorg vtweg spart kunnr ernam.
* fetch user data
SELECT bname
name_first
name_last
FROM user_addr
INTO TABLE lt_user_addr
FOR ALL ENTRIES IN lt_vbak
WHERE bname EQ lt_vbak-ernam.
IF sy-subrc EQ 0.
* Sort data
SORT lt_user_addr BY bname.
ENDIF.
* fetch customer master sales data
SELECT kunnr
vkorg
vtweg
spart
lprio
FROM knvv INTO TABLE lt_knvv
FOR ALL ENTRIES IN lt_vbak
WHERE kunnr EQ lt_vbak-kunnr
AND vkorg EQ lt_vbak-vkorg
AND vtweg EQ lt_vbak-vtweg
AND spart EQ lt_vbak-spart.
IF sy-subrc EQ 0.
* Sort data
SORT lt_knvv BY kunnr.
ENDIF.
* fetch sales order item data

SELECT vbeln
posnr
zieme
kwmeng
cuobj
FROM vbap INTO TABLE lt_vbap
WHERE vbeln EQ pr_f_afko-kdauf
AND posnr EQ pr_f_afko-kdpos.
IF sy-subrc EQ 0.
* Sort data
SORT lt_vbap BY vbeln posnr.
ENDIF.
* fetch sales order partner data
SELECT vbeln
posnr
parvw
kunnr
FROM vbpa INTO TABLE lt_vbpa
WHERE vbeln EQ pr_f_afko-kdauf.
* AND posnr EQ pr_f_afko-kdpos.
IF sy-subrc EQ 0.
* Sort data
SORT lt_vbpa BY vbeln posnr parvw.
* fetch customer master data
SELECT kunnr
name1
FROM kna1 INTO TABLE lt_kna1
FOR ALL ENTRIES IN lt_vbpa
WHERE kunnr EQ lt_vbpa-kunnr.
IF sy-subrc EQ 0.
* Sort data
SORT lt_kna1 BY kunnr.
ENDIF.
ENDIF.
* fetch sales order schedule line data
SELECT vbeln
posnr
etenr
edatu
bmeng
wadat
FROM vbep INTO TABLE lt_vbep
WHERE vbeln EQ pr_f_afko-kdauf
AND posnr EQ pr_f_afko-kdpos
AND bmeng GT 0.
IF sy-subrc EQ 0.
* Sort data
SORT lt_vbep BY vbeln posnr edatu.
ENDIF.
* fetch sales document flow

SELECT vbelv
posnv
vbeln
posnn
FROM vbfa INTO TABLE lt_vbfa
WHERE vbelv EQ pr_f_afko-kdauf
AND posnv EQ pr_f_afko-kdpos.
IF sy-subrc EQ 0.
* Sort data
SORT lt_vbfa BY vbelv posnv .
* fetch delivery data
SELECT vbeln
wadat
FROM likp INTO TABLE lt_likp
FOR ALL ENTRIES IN lt_vbfa
WHERE vbeln EQ lt_vbfa-vbeln.
IF sy-subrc EQ 0.
* Sort data
SORT lt_likp BY vbeln.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
* assign material type

READ TABLE lt_mara INTO ls_mara WITH KEY matnr = pr_f_afko-matnr
BINARY SEARCH.
IF sy-subrc EQ 0.
pr_lwa_z1e1afkol001-material_type_sap = ls_mara-mtart.
ENDIF.
* Assign Movement type

READ TABLE lt_aufm INTO ls_aufm WITH KEY aufnr = pr_f_afko-aufnr
BINARY SEARCH.
IF sy-subrc EQ 0.
pr_lwa_z1e1afkol001-move_type = ls_aufm-bwart.
ENDIF.
* assign sold to party
READ TABLE lt_vbak INTO ls_vbak
WITH KEY vbeln = pr_f_afko-kdauf
BINARY SEARCH.
IF sy-subrc EQ 0.
pr_lwa_z1e1afkol001-sold_to_party = ls_vbak-kunnr.
pr_lwa_z1e1afkol001-customer_classification = ls_vbak-kvgr2.
* assign So created first name and last name

READ TABLE lt_user_addr INTO ls_user_addr
WITH KEY bname = ls_vbak-ernam
BINARY SEARCH.
IF sy-subrc EQ 0.
pr_lwa_z1e1afkol001-so_name_first = ls_user_addr-name_first.
pr_lwa_z1e1afkol001-so_name_last = ls_user_addr-name_last.
ENDIF.
* assign sold to party

READ TABLE lt_kna1 INTO ls_kna1
WITH KEY kunnr = ls_vbak-kunnr
BINARY SEARCH .
IF sy-subrc EQ 0.
pr_lwa_z1e1afkol001-sold_to_party_name = ls_kna1-name1.
ENDIF.
* assign value of delivery priority

READ TABLE lt_knvv INTO ls_knvv
WITH KEY vkorg = ls_vbak-vkorg
vtweg = ls_vbak-vtweg
spart = ls_vbak-spart
kunnr = ls_vbak-kunnr
BINARY SEARCH.
IF sy-subrc EQ 0.
pr_lwa_z1e1afkol001-delivery_priority = ls_knvv-lprio.
ENDIF.
* assign value of ship to party

READ TABLE lt_vbpa INTO ls_vbpa
* posnr = pr_f_afko-kdpos
parvw = lc_ship_to_party
BINARY SEARCH.
IF sy-subrc EQ 0.
pr_lwa_z1e1afkol001-ship_to_party = ls_vbpa-kunnr.
* assign value of ship to party name
READ TABLE lt_kna1 INTO ls_kna1
WITH KEY kunnr = ls_vbpa-kunnr
BINARY SEARCH .
IF sy-subrc EQ 0.
pr_lwa_z1e1afkol001-ship_to_party_name = ls_kna1-name1.
ENDIF.
ENDIF.
* assign sales unit and quantity

READ TABLE lt_vbap INTO ls_vbap
posnr = pr_f_afko-kdpos
BINARY SEARCH.
IF sy-subrc EQ 0.
pr_lwa_z1e1afkol001-sales_unit_of_measure = ls_vbap-zieme.
CALL FUNCTION 'UNIT_OF_MEASURE_SAP_TO_ISO'

EXPORTING
sap_code = pr_lwa_z1e1afkol001-sales_unit_of_measure
IMPORTING
iso_code = pr_lwa_z1e1afkol001-sales_unit_of_measure.
IF sy-subrc <> 0.
ENDIF.
pr_lwa_z1e1afkol001-sales_quantity = ls_vbap-kwmeng.
ENDIF.
* assign confirmation date value

READ TABLE lt_vbep INTO ls_vbep
posnr = pr_f_afko-kdpos
BINARY SEARCH.
IF sy-subrc EQ 0.
pr_lwa_z1e1afkol001-confirmation_date = ls_vbep-edatu.
pr_lwa_z1e1afkol001-goods_issue_date = ls_vbep-wadat.
ENDIF.
* assign goods issue date and sales order delivery number

READ TABLE lt_vbfa INTO ls_vbfa
WITH KEY vbelv = pr_f_afko-kdauf
posnv = pr_f_afko-kdpos
BINARY SEARCH.
IF sy-subrc EQ 0.
READ TABLE lt_likp INTO ls_likp
WITH KEY vbeln = ls_vbfa-vbeln
BINARY SEARCH.
IF sy-subrc EQ 0.
pr_lwa_z1e1afkol001-sales_order_delivery_nr = ls_likp-vbeln.
ENDIF.
ENDIF.
ENDIF.
* assign tollerance values

READ TABLE lt_afpo INTO ls_afpo
WITH KEY aufnr = pr_f_afko-aufnr
BINARY SEARCH.
IF sy-subrc EQ 0.
pr_lwa_z1e1afkol001-quantity_tolerance_low = ls_afpo-untto.
pr_lwa_z1e1afkol001-quantity_tolerance_upp = ls_afpo-uebto.
pr_lwa_z1e1afkol001-quantity_open = ls_afpo-psmng - ls_afpo-wemng.
CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'

CHANGING
value = pr_lwa_z1e1afkol001-quantity_open.
ENDIF.
* append IDOC data

pr_idoc_data-segnam = pr_c_z1e1afkol001.
pr_idoc_data-mandt = sy-mandt.
pr_idoc_data-sdata = pr_lwa_z1e1afkol001.
APPEND pr_idoc_data.
CLEAR : pr_lwa_z1e1afkol001.
ENDFORM.
* text
*----------------------------------------------------------------------*
* -->pr_F_AFKO text
* <--pr_LWA_Z1E1AFKOL001 text
*----------------------------------------------------------------------*
FORM get_characteric_values TABLES pr_idoc_data TYPE idoc_data
USING pr_f_afko TYPE e3afkol
pr_c_z1char_value001 TYPE edilsegtyp
CHANGING pr_lwa_z1char_value001 TYPE z1char_value001.
DATA : lv_instance TYPE cuobj, "Object instance

lt_configuration TYPE STANDARD TABLE OF conf_out "configuration
values
INITIAL SIZE 0,
lt_configuration_idoc TYPE STANDARD TABLE OF api_value
INITIAL SIZE 0,
ls_configuration TYPE conf_out,
ls_configuration_idoc TYPE api_value.
*-----------------------------------------------------------------------*
*--------L O C A L C O N S T A N T D E C L A R A T I O N------------*
* Charcteristic Values
CONSTANTS : lc_bundle_size TYPE atnam VALUE 'Z_BUNDLE_SIZE',
lc_family TYPE atnam VALUE 'Z_FAMILY',
lc_certificate_standard TYPE atnam VALUE 'Z_CERTIFICATE_S
TANDARD',
lc_coating_mass TYPE atnam VALUE 'Z_COATING_MASS'
,
lc_coil_inner_diameter TYPE atnam VALUE 'Z_COIL_INNER_DI
AMETER',
lc_coil_outer_diameter_max TYPE atnam VALUE 'Z_COIL_MAX_OUTE
R_DIAMETER',
lc_coil_outer_diameter_min TYPE atnam VALUE 'Z_COIL_MIN_OUTE
R_DIAMETER',
lc_coil_weight_max TYPE atnam VALUE 'Z_COIL_WEIGHT_M
AX',
lc_coil_weight_min TYPE atnam VALUE 'Z_COIL_WEIGHT_M
IN',
lc_colour_coating_colour_back TYPE atnam VALUE 'Z_COLOUR_COATIN
G_COLOUR_BACK',
lc_colour_coating_colour_front TYPE atnam VALUE 'Z_COLOUR_COATIN
G_COLOUR_FRONT',
lc_colour_coating_type_back TYPE atnam VALUE 'Z_COLOUR_COATI
NG_TYPE_BACK',
lc_colour_coating_type_front TYPE atnam VALUE 'Z_COLOUR_COATIN
G_TYPE_FRONT',
lc_customer_identificat_code TYPE atnam VALUE 'Z_CUSTOMER_IDEN
TIFICAT_CODE',
lc_delivery_condition TYPE atnam VALUE 'Z_DELIVERY_COND
ITION',
lc_material_family TYPE atnam VALUE 'Z_MATERIAL_FAMI
LY',
lc_flatness_tolerance TYPE atnam VALUE 'Z_FLATNESS_TOLE
RANCE',
lc_grade TYPE atnam VALUE 'Z_GRADE',
lc_height TYPE atnam VALUE 'Z_HEIGHT',
lc_inside_diameter TYPE atnam VALUE 'Z_INSIDE_DIAMET
ER',
lc_kg_each_ratio TYPE atnam VALUE 'Z_KG_EACH_RATIO
',
lc_kg_metre_ratio TYPE atnam VALUE 'Z_KG_METRE_RATI
O',
lc_length_tol_minus TYPE atnam VALUE 'Z_LENGTH_TOL_MI
NUS',
lc_length_tol_plus TYPE atnam VALUE 'Z_LENGTH_TOL_PL
US',
lc_manufacturing_instruction TYPE atnam VALUE 'Z_MANUFACTURING
_INSTRUCTION',
lc_marking TYPE atnam VALUE 'Z_MARKING',
lc_packing TYPE atnam VALUE 'Z_PACKING',
lc_packweight_max TYPE atnam VALUE 'Z_PACKWEIGHT_MA
X',
lc_packweight_min TYPE atnam VALUE 'Z_PACKWEIGHT_MI
N',
lc_pieces_per_pack TYPE atnam VALUE 'Z_PIECES_PER_PA
CK',
lc_protection TYPE atnam VALUE 'Z_PROTECTION',
lc_protective_film TYPE atnam VALUE 'Z_PROTECTIVE_FI
LM',
lc_standard TYPE atnam VALUE 'Z_STANDARD',
lc_surface_finish TYPE atnam VALUE 'Z_SURFACE_FINIS
H',
lc_thickness_tol_low TYPE atnam VALUE 'Z_THICKNESS_TOL
_LOW',
lc_thickness_tol_upp TYPE atnam VALUE 'Z_THICKNESS_TOL
_UPP',
lc_type TYPE atnam VALUE 'Z_TYPE',
lc_width TYPE atnam VALUE 'Z_WIDTH',
lc_width_tolerance_low TYPE atnam VALUE 'Z_WIDTH_TOLERAN
CE_LOW',
lc_width_tolerance_up TYPE atnam VALUE 'Z_WIDTH_TOLERAN
CE_UPP',
lc_picking_instruction TYPE atnam VALUE 'Z_PICKING_INSTR
UCTION',
lc_heat_number TYPE atnam VALUE 'Z_HEAT_NUMBER',
lc_max_pack_height TYPE atnam VALUE 'Z_MAX_PACK_HEIG
HT'.
DATA : lt_e1cucfg TYPE STANDARD TABLE OF e1cucfg INITIAL SIZE 0,

lt_e1cuins TYPE STANDARD TABLE OF e1cuins INITIAL SIZE 0,
lt_e1cuval TYPE STANDARD TABLE OF e1cuval INITIAL SIZE 0,
lt_e1cucom TYPE STANDARD TABLE OF e1cucom INITIAL SIZE 0,
ls_e1cuval TYPE e1cuval,
ls_conf_out TYPE conf_out.
*-----------------------------------------------------------------------*
REFRESH : lt_configuration,
lt_configuration_idoc.
REFRESH : lt_e1cucfg,
lt_e1cuins,
lt_e1cuval,
lt_e1cucom.
CLEAR : ls_e1cuval.
CLEAR : ls_configuration,
ls_configuration_idoc,
lt_configuration,
lt_configuration_idoc,
lv_instance,
pr_lwa_z1char_value001.
*-----------------------------------------------------------------------*
* check Sales order and line item is not blank
* IF pr_f_afko-kdauf IS NOT INITIAL AND pr_f_afko-kdpos IS NOT INITIAL.
** fetch configuration from SO
* SELECT SINGLE cuobj FROM vbap
* INTO lv_instance
* WHERE vbeln EQ pr_f_afko-kdauf
* AND posnr EQ pr_f_afko-kdpos.
* IF sy-subrc EQ 0.
*
* ENDIF.
* ELSE.
** fetch configuration from Material master
* SELECT SINGLE cuobj FROM marc
* INTO lv_instance
* WHERE matnr EQ pr_f_afko-matnr
* AND werks EQ pr_f_afko-werks.
* IF sy-subrc EQ 0.
*
* ENDIF.
* ENDIF.
IF pr_f_afko-aufnr IS NOT INITIAL.
* get Configuration data
CALL FUNCTION 'ZPP_GET_CHAR_PROD_ORD'
EXPORTING
i_aufnr = pr_f_afko-aufnr
IMPORTING
et_configuration = lt_configuration
et_configuration_idoc = lt_configuration_idoc
EXCEPTIONS
ex_instance_not_found = 1
ex_internal_error = 2
ex_no_class_allocation = 3
ex_instance_not_valid = 4
ex_no_input_found = 5
ex_enter_single_input = 6
ex_enter_material_or_prod_orde = 7
ex_plant_cant_be_blank_for_mat = 8
OTHERS = 9.
IF sy-subrc EQ 0.
LOOP AT lt_configuration INTO ls_configuration.
CASE ls_configuration-atnam.
WHEN lc_family.
PERFORM fill_segment TABLES pr_idoc_data
USING lc_family
ls_configuration-atwrt
pr_c_z1char_value001
CHANGING pr_lwa_z1char_value001.
WHEN lc_bundle_size.
* create IDOC for Characteristic values
USING lc_bundle_size
WHEN lc_certificate_standard.
USING lc_certificate_standard
WHEN lc_coating_mass.
USING lc_coating_mass
WHEN lc_coil_inner_diameter.
USING lc_coil_inner_diameter
WHEN lc_coil_outer_diameter_max.
USING lc_coil_outer_diameter_max
WHEN lc_coil_outer_diameter_min.
USING lc_coil_outer_diameter_min
WHEN lc_coil_weight_max.
USING lc_coil_weight_max
WHEN lc_coil_weight_min.
USING lc_coil_weight_min
WHEN lc_colour_coating_colour_back.
USING lc_colour_coating_colour_back
WHEN lc_colour_coating_colour_front.
USING lc_colour_coating_colour_front
WHEN lc_colour_coating_type_back.
USING lc_colour_coating_type_back
WHEN lc_colour_coating_type_front.
USING lc_colour_coating_type_front
WHEN lc_customer_identificat_code.
USING lc_customer_identificat_code
WHEN lc_delivery_condition.
USING lc_delivery_condition
WHEN lc_density.
USING lc_density
WHEN lc_material_family.
USING lc_material_family
WHEN lc_flatness_tolerance.
USING lc_flatness_tolerance
WHEN lc_grade.
USING lc_grade
WHEN lc_height.
USING lc_height
WHEN lc_inside_diameter.
USING lc_inside_diameter
WHEN lc_kg_each_ratio.
USING lc_kg_each_ratio
WHEN lc_kg_metre_ratio.
USING lc_kg_metre_ratio
WHEN lc_length.
USING lc_length
WHEN lc_length_tol_minus.
USING lc_length_tol_minus
WHEN lc_length_tol_plus.
USING lc_length_tol_plus
WHEN lc_manufacturing_instruction.
USING lc_manufacturing_instruction
WHEN lc_marking.
USING lc_marking
WHEN lc_packing.
USING lc_packing
WHEN lc_packweight_max.
USING lc_packweight_max
WHEN lc_packweight_min.
USING lc_packweight_min
WHEN lc_pieces_per_pack.
USING lc_pieces_per_pack
WHEN lc_protection.
USING lc_protection
WHEN lc_protective_film.
USING lc_protective_film
WHEN lc_standard.
USING lc_standard
WHEN lc_surface_finish.
USING lc_surface_finish
WHEN lc_thickness.
USING lc_thickness
WHEN lc_thickness_tol_low.
USING lc_thickness_tol_low
WHEN lc_thickness_tol_upp.
USING lc_thickness_tol_upp
WHEN lc_type.
USING lc_type
WHEN lc_width.
USING lc_width
WHEN lc_width_tolerance_low.
USING lc_width_tolerance_low
WHEN lc_width_tolerance_up.
USING lc_width_tolerance_up
WHEN lc_picking_instruction.
USING lc_picking_instruction
WHEN lc_heat_number.
USING lc_heat_number
WHEN lc_max_pack_height.
USING lc_max_pack_height
WHEN OTHERS.
ENDCASE.
ENDLOOP.
ELSE.
* Do Nothing
ENDIF.
ENDIF.
ENDFORM.
FORM fill_segment TABLES pr_p_idoc_data TYPE idoc_data "IDOC

Data
USING pr_p_lc_bundle_size TYPE atnam "Char
Name
pr_p_lwa_configuration_atwrt TYPE atwrt "Char
Value
pr_p_c_z1char_value001 TYPE edilsegtyp "segme
nt name
CHANGING pr_p_lwa_z1char_value001 TYPE z1char_value001."ch
ar structure values
* check char values not initial

IF pr_p_lwa_configuration_atwrt IS NOT INITIAL.
pr_p_lwa_z1char_value001-char_name = pr_p_lc_bundle_size.
pr_p_lwa_z1char_value001-char_value = pr_p_lwa_configuration_atwrt.
* append IDOC data

pr_p_idoc_data-segnam = pr_p_c_z1char_value001.
pr_p_idoc_data-mandt = sy-mandt.
pr_p_idoc_data-sdata = pr_p_lwa_z1char_value001.
APPEND pr_p_idoc_data.
CLEAR : pr_p_lwa_z1char_value001.
ENDIF.
ENDFORM.
FORM get_operation_data TABLES pr_idoc_data TYPE idoc_data "IDOC data

USING pr_f_afko TYPE e3afkol "Prod order H
eader
pr_f_afvo TYPE e3afvol "Prod order C
omponent
pr_afvo_key TYPE cloi_afvo_struct "Prod ord
er Component Key
pr_c_z1e1afvol001 TYPE edilsegtyp "Segment
name
CHANGING pr_lwa_z1e1afvol001 TYPE z1e1afvol001. "Segme
nt data
DATA : lv_frdlb TYPE co_frdlb.

*-----------------------------------------------------------------------*
CLEAR : lv_frdlb,
pr_lwa_z1e1afvol001.
*-----------------------------------------------------------------------*
* Fetch Subcontracting flag

SELECT SINGLE frdlb FROM afvc INTO lv_frdlb
WHERE aufpl EQ pr_afvo_key-aufpl
AND aplzl EQ pr_afvo_key-aplzl.
* assign Subcontracting flag
IF sy-subrc EQ 0.
pr_lwa_z1e1afvol001-is_subcontractor = lv_frdlb.
ENDIF.
* Append IDOC Data
pr_idoc_data-segnam = pr_c_z1e1afvol001.
pr_idoc_data-mandt = sy-mandt.
pr_idoc_data-sdata = pr_lwa_z1e1afvol001.
APPEND pr_idoc_data.
CLEAR : pr_lwa_z1e1afvol001.
ENDFORM.
====
*&---------------------------------------------------------------------*
*& Include ZXLOIU02
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
* Program Description: USER EXIT to Assign values to custom segment *
* for Production order SAP to QUINTIQ *
* *
*
* OBJECT NUMBER: *
*---------------------------------------------------------------------*
* Modification : {Removed Break Statement}
* Date (dd-mm-yyyy): 03-02-2016
* Reason : {RFC, SIR or Ticket}
* Searchkey :
*---------------------------------------------------------------------*
*---------------------------------------------------------------------*
* Modification : Open Qunatity having negative singn at the end
* which fails in Quintiq. changes made in code to put
* minus sign at the front
* Date (dd-mm-yyyy): 21-03-2016
* Reason : NA
*---------------------------------------------------------------------*
*----------------------------------------------------------------------*
*-------------------D A T A D E C L A R A T I O N-------------------*
DATA : gs_z1e1afkol001 TYPE z1e1afkol001, "Custom Header segment
gs_z1e1afvol001 TYPE z1e1afvol001, "Custom Opertation segment
gs_z1char_value001 TYPE z1char_value001. "characteristic segment
*-----------------------------------------------------------------------*
CONSTANTS : lc_e1afkol TYPE edilsegtyp VALUE 'E1AFKOL', "Head
er segment
lc_z1e1afkol001 TYPE edilsegtyp VALUE 'Z1E1AFKOL001', "Cust
om Header segment
lc_e1afvol TYPE edilsegtyp VALUE 'E1AFVOL', "Oper
ation Segment
lc_z1e1afvol001 TYPE edilsegtyp VALUE 'Z1E1AFVOL001', "Cust
om Opertation segment
lc_z1char_value001 TYPE edilsegtyp VALUE 'Z1CHAR_VALUE001'. "char
acteristic segment
*-----------------------------------------------------------------------*
* Clear work area
CLEAR : gs_z1e1afkol001,
gs_z1e1afvol001,
gs_z1char_value001.
*-----------------------------------------------------------------------*
CASE : segment_name.
SET COUNTRY 'GB'.
WHEN : lc_e1afkol.
* Fill IDOC data for Custom Header segment
PERFORM get_header_data TABLES idoc_data "IDOC Structure
USING f_afko "AFKO structure
lc_z1e1afkol001 "Segment name
CHANGING gs_z1e1afkol001. "Custom segment Struct
ure
* Fill IDOC data for custom characteristic segment

PERFORM get_characteric_values TABLES idoc_data "IDOC Structure
lc_z1char_value001 "Segment name
CHANGING gs_z1char_value001. "Custom segment
Structure
WHEN : lc_e1afvol.
* Fill IDOC data for custom operation segment
PERFORM get_operation_data TABLES idoc_data "IDOC Structure
f_afvo "AFVO structure
f_afvo_key "AFVO_KEY structure
lc_z1e1afvol001 "Segment name
CHANGING gs_z1e1afvol001 . "Custom segment Structu
re
ENDCASE.
====
*&---------------------------------------------------------------------*
*& Include ZI_SD_NORD_ITEMTXT
*&---------------------------------------------------------------------*
************************************************************************
*& Description : This include is created to retrieve the text details *
*& for the customer from the custom table, *
*& when the sales order is created for that customer. *
*& RICEFW NO : E_O2C_002 *
*& Author : Rupak Bhattacharjee *
*& Modification : N/A *
*& Modified by : N/A *
*& Transport : DV9K900094 *
*& Date : 07.01.2016 *
************************************************************************
**Range Declaration
DATA: lr_tdid TYPE RANGE OF tdid,
ls_tdid LIKE LINE OF lr_tdid.
**Internal Table and Work Area Declaration

DATA: lt_xthead TYPE STANDARD TABLE OF theadvb,
ls_xthead TYPE theadvb,
ls_head TYPE thead,
ls_head_cust TYPE thead,
lv_langu TYPE sylangu,
lv_ship TYPE kunnr,
lv_sold TYPE kunnr,
lv_family TYPE char10,
lv_type TYPE char10,
lv_werks TYPE werks_d,
lt_cust_text TYPE STANDARD TABLE OF zsd_custtext,
ls_cust_text TYPE zsd_custtext,
ls_vbpa TYPE vbpavb,
lv_parvw TYPE parvw,
lt_lines TYPE STANDARD TABLE OF tline,
lt_lines_s TYPE STANDARD TABLE OF tline,
ls_lines TYPE tline,
lv_cuobj TYPE cuobj_va.
FIELD-SYMBOLS: <fs_tlines> TYPE tline.

* Constants Declaration..
CONSTANTS: lc_ship TYPE parvw VALUE 'SH',
lc_zi06 TYPE char4 VALUE 'ZI06',
lc_zi09 TYPE char4 VALUE 'ZI09',
lc_i TYPE char1 VALUE 'I',
lc_eq TYPE char2 VALUE 'EQ'.
DATA : lt_conf TYPE ibco2_instance_tab2,

ls_conf TYPE LINE OF ibco2_instance_tab2,
ls_values TYPE LINE OF ibco2_value_tab,
lv_atnam TYPE atnam.
DATA: lv_memory_id TYPE char30.

CLEAR: lr_tdid,ls_tdid,lt_conf.
IF sy-tcode = 'VA01'."Create Sales Order
** Get the Custom text Ids.

ls_tdid-sign = lc_i.
ls_tdid-option = lc_eq.
ls_tdid-low = lc_zi06.
APPEND ls_tdid TO lr_tdid.
CLEAR ls_tdid-low.
ls_tdid-low = lc_zi09.
APPEND ls_tdid TO lr_tdid.
CLEAR ls_tdid.
**Populate Standard value in Local internal table

lt_xthead[] = xthead[].
**Retain only ZI06 and ZI09

DELETE lt_xthead WHERE tdid NOT IN lr_tdid.
SORT lt_xthead BY tdid DESCENDING.
DELETE ADJACENT DUPLICATES FROM lt_xthead COMPARING tdid.
IF lt_xthead IS NOT INITIAL.
*** Ship to party

CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT'
EXPORTING
input = lc_ship
IMPORTING
output = lv_parvw.
IF lv_parvw IS NOT INITIAL.

READ TABLE xvbpa INTO ls_vbpa WITH KEY parvw = lv_parvw.
IF sy-subrc EQ 0.
lv_ship = ls_vbpa-kunnr.
ELSE.
CLEAR lv_ship.
ENDIF.
ENDIF.
*Sold to party
lv_sold = tvcom-kunnr.
SELECT SINGLE spras

INTO (lv_langu)
FROM kna1 WHERE kunnr = lv_sold.
*Plant
lv_werks = vbap-werks.
IF vbap-cuobj IS NOT INITIAL.
CALL FUNCTION 'CUCB_GET_CONFIGURATION'

EXPORTING
instance = vbap-cuobj
IMPORTING
configuration = lt_conf
EXCEPTIONS
invalid_input = 1
invalid_instance = 2
instance_is_a_classification = 3
OTHERS = 4.
IF sy-subrc EQ 0.
LOOP AT lt_conf INTO ls_conf.

LOOP AT ls_conf-values INTO ls_values.
CALL FUNCTION 'CONVERSION_EXIT_ATINN_OUTPUT'

EXPORTING
input = ls_values-atinn
IMPORTING
output = lv_atnam.
CASE lv_atnam.
* Family
WHEN 'Z_FAMILY'.
lv_family = ls_values-atwrt.
WHEN 'Z_TYPE'.
* Type
lv_type = ls_values-atwrt.
WHEN OTHERS.
ENDCASE.
ENDLOOP.
ENDLOOP.
ENDIF.
ENDIF.
* Search the Custom Table based on whatever is available , searching from max
imum to minmum and based on the Search Algorithm specified in the where claus
e.
LOOP AT lt_xthead INTO ls_xthead.
SELECT SINGLE * FROM zsd_custtext
INTO ls_cust_text
WHERE customer = lv_sold AND
textid = ls_xthead-tdid AND
shipto = lv_ship AND
plant = lv_werks AND
family = lv_family AND
type = lv_type AND
spras = lv_langu.
IF sy-subrc NE 0.
INTO ls_cust_text
spras = lv_langu.
IF sy-subrc NE 0.
INTO ls_cust_text
spras = lv_langu.
IF sy-subrc NE 0.
INTO ls_cust_text
spras = lv_langu.
IF sy-subrc NE 0.

INTO ls_cust_text
type = lv_type AND
spras = lv_langu.
IF sy-subrc NE 0.
INTO ls_cust_text
spras = lv_langu.
IF sy-subrc NE 0.
INTO ls_cust_text
spras = lv_langu.
IF sy-subrc NE 0.
INTO ls_cust_text
spras = lv_langu.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
IF ls_cust_text-textname IS NOT INITIAL.

MOVE-CORRESPONDING ls_xthead TO ls_head_cust.
ls_head_cust-tdspras = lv_langu.
ls_head_cust-tdname = ls_cust_text-textname.
CALL FUNCTION 'READ_TEXT'

EXPORTING
client = sy-mandt
id = ls_head_cust-tdid
language = ls_head_cust-tdspras
name = ls_head_cust-tdname
object = 'VBBP' "Sales Order Item Texts
IMPORTING
header = ls_head_cust
TABLES
lines = lt_lines
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc EQ 0.
CLEAR ls_head.
MOVE-CORRESPONDING ls_xthead TO ls_head.
ls_head-tdspras = ls_head_cust-tdspras.
CALL FUNCTION 'SAVE_TEXT'

EXPORTING
client = sy-mandt
header = ls_head
IMPORTING
newheader = ls_head
TABLES
lines = lt_lines
EXCEPTIONS
id = 1
language = 2
name = 3
object = 4
OTHERS = 5.
IF sy-subrc <> 0.
ENDIF.
ENDIF."Read Text
ENDIF.
CLEAR ls_xthead.
ENDLOOP.
ENDIF.
ENDIF."Sy-tcode
=====
*&---------------------------------------------------------------------*
*& Include ZI_PP_PROD_ORDER_FORMS
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
* Program Description: Driver program for Production order smartform *
* DEVELOPER: Akanksha Jain *
* OBJECT NUMBER: PP_004 *
* TRANSPORT NUMBER(S): DV9K900569,DV9K900618 *
* INPUT: Production order number *
* Output: Display form *
*----------------------------------------------------------------------*
* REVISION NO: 1. REFERENCE NO: D_111 *
* DEVELOPER : Surajit Dubey *
* DESCRIPTION: Implementing Defect 111(F_PP_004) *
* Supress print preview *
* DATE : 29.03.2016 *
* SEARCH KEY : N/A *
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form F_read_memory_DATA
*&---------------------------------------------------------------------*
* Contains a FM which imports the Production order data from the
* standard transaction CO02, CO03.
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM f_read_memory_data .
DATA : ls_print_co TYPE print_co,
ls_print_opts TYPE itcpo,
ls_crhd TYPE gty_crhd,
ls_affl TYPE gty_affl,
ls_caufv TYPE gty_caufv,
ls_usr21 TYPE gty_usr21,
ls_adr2 TYPE gty_adr2,
ls_afko TYPE gty_afko,
ls_afvc TYPE gty_afvc,
ls_afpo TYPE gty_afpo,
ls_vbak TYPE gty_vbak,
ls_vbkd TYPE gty_vbkd,
ls_vbkd1 TYPE gty_vbkd,
ls_vbep TYPE gty_vbep,
ls_vbep1 TYPE gty_vbep,
lt_tline TYPE tline_t,
ls_tline TYPE tline,
ls_usrname TYPE gty_usrname,
ls_final TYPE zpp_s_prod_order_details,
lt_final TYPE STANDARD TABLE OF zpp_s_prod_order_details,
ls_comp_data TYPE zpp_s_prod_order_comp_details,
lt_comp_data TYPE STANDARD TABLE OF zpp_s_prod_order_comp_details,
ls_addr TYPE zpp_s_prod_order_addr_details,
ls_addr1 TYPE zpp_s_prod_order_addr_details,
lt_addr TYPE STANDARD TABLE OF zpp_s_prod_order_addr_details,
lt_resb TYPE gty_t_resb,
ls_vbap TYPE gty_vbap,
ls_conf_data TYPE zpp_s_po_conf_data,
lt_conf_data TYPE zpp_t_po_conf_data,
lt_vc_data TYPE zpp_t_po_conf_data,
ls_vc_data TYPE zpp_s_po_conf_data,
lt_mat_data TYPE gty_t_mat_data,
lt_vbpa TYPE gty_t_vbpa,
lt_adrc TYPE gty_t_adrc.
CLEAR : ls_print_co , ls_print_opts, ls_caufv, ls_vbap.
CALL FUNCTION 'CO_PRINT_IMPORT_DATA'

EXCEPTIONS
memory_id_ppt_not_exist = 1
memory_id_ppi_not_exist = 2
memory_id_pps_not_exist = 3
OTHERS = 4.
IF sy-subrc IS INITIAL.
PERFORM f_print_info_list CHANGING ls_print_co

ls_print_opts.
PERFORM f_get_order USING ls_print_co

CHANGING ls_caufv.
PERFORM f_get_data USING ls_print_co

ls_caufv
CHANGING ls_crhd
ls_affl
ls_afko
ls_afvc
ls_afpo
ls_vbak
ls_vbap
ls_vbkd
ls_vbkd1
ls_vbep
ls_usr21
ls_adr2
lt_tline
ls_tline
ls_usrname
ls_vbep1
lt_resb
lt_mat_data
lt_vbpa
lt_adrc.
PERFORM f_populate_data USING ls_caufv

ls_afpo
ls_vbap
ls_usrname
lt_mat_data
ls_crhd
ls_vbep1
ls_vbkd1
ls_adr2
ls_affl
lt_vbpa
lt_adrc
lt_resb
CHANGING ls_final
lt_final
ls_comp_data
lt_comp_data
ls_addr
ls_addr1
lt_addr.
PERFORM f_get_conf_data USING ls_caufv
CHANGING lt_conf_data
ls_conf_data
lt_vc_data
ls_vc_data.
PERFORM f_call_form USING ls_print_co

ls_print_opts
ls_final
ls_addr
ls_addr1
ls_tline
lt_comp_data
lt_conf_data.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form F_PRINT_INFO_LIST
*&---------------------------------------------------------------------*
* This form fetches data into the stucture which contains
* production order details
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM f_print_info_list CHANGING pr_ls_print_co TYPE print_co
pr_ls_print_opts TYPE itcpo.
CALL FUNCTION 'CO_PRINT_GET_INFO_LIST'

IMPORTING
print_co_exp = pr_ls_print_co
print_opts_exp = pr_ls_print_opts.
* Exception handling not required as the function module is not returning any
thing.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form F_GET_ORDER
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM f_get_order USING pr_ls_print_co TYPE print_co
CHANGING pr_ls_caufv TYPE gty_caufv.
CLEAR: pr_ls_caufv.
IF pr_ls_print_co-aufnr IS NOT INITIAL.
SELECT SINGLE aufnr gstrp gltrp
gsuzp gluzp plnbez gamng gmein werks
FROM caufv INTO pr_ls_caufv
WHERE aufnr = pr_ls_print_co-aufnr.
IF sy-subrc EQ 0.
* Above select can not fail as production order form is triggered from
* order and order number is promary key for the view cAUFV.
ENDIF.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form F_GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM f_get_data USING pr_ls_print_co TYPE print_co
pr_ls_caufv TYPE gty_caufv
CHANGING pr_ls_crhd TYPE gty_crhd
pr_ls_affl TYPE gty_affl
pr_ls_afko TYPE gty_afko
pr_ls_afvc TYPE gty_afvc
pr_ls_afpo TYPE gty_afpo
pr_ls_vbak TYPE gty_vbak
pr_ls_vbap TYPE gty_vbap
pr_ls_vbkd TYPE gty_vbkd
pr_ls_vbkd1 TYPE gty_vbkd
pr_ls_vbep TYPE gty_vbep
pr_ls_usr21 TYPE gty_usr21
pr_ls_adr2 TYPE gty_adr2
pr_lt_tline TYPE tline_t
pr_ls_tline TYPE tline
pr_ls_usrname TYPE gty_usrname
pr_ls_vbep1 TYPE gty_vbep
pr_lt_resb TYPE gty_t_resb
pr_lt_mat_data TYPE gty_t_mat_data
pr_lt_vbpa TYPE gty_t_vbpa
pr_lt_adrc TYPE gty_t_adrc.
CLEAR: pr_ls_afko ,pr_ls_afvc,pr_ls_vbak,pr_ls_vbap,

pr_ls_vbkd, pr_ls_vbep, pr_ls_tline, pr_ls_usrname,
pr_lt_tline,gs_crhd.
DATA:ls_resb TYPE gty_resb.
*&--fetch order header data PP orders

SELECT SINGLE aufnr aufpl
FROM afko INTO pr_ls_afko
WHERE aufnr = pr_ls_print_co-aufnr.
IF sy-subrc EQ 0.
*&--fetch operation within a order
SELECT SINGLE aufpl arbid
FROM afvc INTO pr_ls_afvc
WHERE aufpl = pr_ls_afko-aufpl.
IF sy-subrc EQ 0.
SELECT SINGLE objid arbpl
FROM crhd INTO pr_ls_crhd
WHERE objid = pr_ls_afvc-arbid.
IF sy-subrc EQ 0.
SELECT SINGLE aufpl plnfl
FROM affl INTO pr_ls_affl
WHERE aufpl = pr_ls_afvc-aufpl.
IF sy-subrc = 0.
ENDIF.
SELECT SINGLE rueck

FROM afru INTO pr_ls_affl
WHERE aufpl = pr_ls_afvc-aufpl.
IF sy-subrc = 0.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
*&--fetch production order item details
SELECT SINGLE aufnr kdauf
kdpos kdein FROM afpo INTO pr_ls_afpo
WHERE aufnr = pr_ls_afko-aufnr.
IF sy-subrc EQ 0.
*&--fetch sales order header data
SELECT SINGLE vbeln ernam
FROM vbak INTO pr_ls_vbak
WHERE vbeln = pr_ls_afpo-kdauf.
IF sy-subrc EQ 0.
ENDIF.
*&--Fetching First Name & Last Name of User.
IF pr_ls_vbak-ernam IS NOT INITIAL.
PERFORM f_get_username USING pr_ls_vbak
CHANGING pr_ls_usrname.
ENDIF.
*&--fetch reservation material and quantity
SELECT matnr bdmng meins aufnr
FROM resb INTO TABLE pr_lt_resb
WHERE aufnr = pr_ls_afko-aufnr.
ls_resb-matnr = pr_ls_caufv-plnbez.
APPEND ls_resb TO pr_lt_resb.
IF pr_lt_resb IS NOT INITIAL.
SELECT matnr maktx INTO TABLE pr_lt_mat_data
FROM makt FOR ALL ENTRIES IN pr_lt_resb
WHERE matnr = pr_lt_resb-matnr.
ENDIF.
*&--fetch telephone number
SELECT SINGLE bname addrnumber FROM usr21
INTO pr_ls_usr21
WHERE bname = pr_ls_vbak-ernam.
IF sy-subrc EQ 0.
SELECT SINGLE addrnumber tel_number FROM adr2
INTO pr_ls_adr2
WHERE addrnumber = pr_ls_usr21-addrnumber.
ENDIF.
*&--fetch sales order item details

SELECT SINGLE vbeln posnr kdmat route lgort kwmeng vrkme
FROM vbap INTO pr_ls_vbap
WHERE vbeln = pr_ls_afpo-kdauf
AND posnr = pr_ls_afpo-kdpos.
IF sy-subrc EQ 0.
*&--fetch customer purchase order data
SELECT SINGLE vbeln posnr bstkd
FROM vbkd INTO pr_ls_vbkd
WHERE vbeln = pr_ls_vbap-vbeln.
IF sy-subrc EQ 0.
pr_ls_vbkd1-bstkd = pr_ls_vbkd-bstkd.
ENDIF.
ENDIF.
ENDIF.
*&--to fetch customer as well as ship to party details

*&--name and address
SELECT vbeln posnr parvw adrnr kunnr
FROM vbpa INTO TABLE pr_lt_vbpa
WHERE vbeln = pr_ls_vbap-vbeln
AND ( parvw = gc_we
OR parvw = gc_ag ).
IF sy-subrc EQ 0.
SELECT addrnumber name1 city1 post_code1
FROM adrc INTO TABLE pr_lt_adrc
FOR ALL ENTRIES IN pr_lt_vbpa
WHERE addrnumber = pr_lt_vbpa-adrnr.
ENDIF.
*&--fetch goods issue date

SELECT SINGLE vbeln posnr edatu wadat
FROM vbep INTO pr_ls_vbep
WHERE vbeln = pr_ls_vbap-vbeln
AND posnr = pr_ls_vbap-posnr.
IF sy-subrc EQ 0.
pr_ls_vbep1-edatu = pr_ls_vbep-edatu.
pr_ls_vbep1-wadat = pr_ls_vbep-wadat.
ENDIF.
*&--Logic to fetch packaging/manufacturing text
CONCATENATE pr_ls_vbap-vbeln pr_ls_vbap-posnr INTO gv_sales_details.
CALL FUNCTION 'READ_TEXT'

EXPORTING
client = sy-mandt
id = gc_id
language = sy-langu
name = gv_sales_details
object = gc_object
TABLES
lines = pr_lt_tline
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
IF sy-subrc <> 0.
ENDIF.
READ TABLE pr_lt_tline INTO pr_ls_tline INDEX 1.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form F_POPULATE_DATA
*&---------------------------------------------------------------------*
* This form contains all data which needs to be passed in the
* smartform ZPP_PROD_ORDER
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM f_populate_data USING pr_ls_caufv TYPE gty_caufv
pr_ls_afpo TYPE gty_afpo
pr_ls_vbap TYPE gty_vbap
pr_ls_usrname TYPE gty_usrname
pr_lt_mat_data TYPE gty_t_mat_data
pr_ls_crhd TYPE gty_crhd
pr_ls_vbep1 TYPE gty_vbep
pr_ls_vbkd1 TYPE gty_vbkd
pr_ls_adr2 TYPE gty_adr2
pr_ls_affl TYPE gty_affl
pr_lt_vbpa TYPE gty_t_vbpa
pr_lt_adrc TYPE gty_t_adrc
pr_lt_resb TYPE gty_t_resb
CHANGING pr_ls_final TYPE zpp_s_prod_order_details
pr_lt_final TYPE gty_final
pr_ls_comp_data TYPE zpp_s_prod_order_comp_details
pr_lt_comp_data TYPE gty_comp_data
pr_ls_addr TYPE zpp_s_prod_order_addr_details
pr_ls_addr1 TYPE zpp_s_prod_order_addr_details
pr_lt_addr TYPE gty_addr.
* CLEAR: gs_final, gs_comp_data, gs_addr,gs_addr1.

CLEAR: gt_comp_data, gt_addr.
DATA:ls_mat_data TYPE gty_mat_data,
ls_vbpa TYPE gty_vbpa,
ls_adrc TYPE gty_adrc.
*&--populate data in the final table which have structure ZPP_S_PROD_ORDER_DE
TAILS
pr_ls_final-aufnr = pr_ls_caufv-aufnr.
pr_ls_final-werks = pr_ls_caufv-werks.
pr_ls_final-gstrp = pr_ls_caufv-gstrp.
pr_ls_final-gltrp = pr_ls_caufv-gltrp.
pr_ls_final-gsuzp = pr_ls_caufv-gsuzp.
pr_ls_final-gluzp = pr_ls_caufv-gluzp.
pr_ls_final-plnbez = pr_ls_caufv-plnbez.
pr_ls_final-gamng = pr_ls_caufv-gamng.
pr_ls_final-gmein = pr_ls_caufv-gmein.
pr_ls_final-kdauf = pr_ls_afpo-kdauf.
pr_ls_final-kdpos = pr_ls_afpo-kdpos.
pr_ls_final-firstname = pr_ls_usrname-firstname.
pr_ls_final-lastname = pr_ls_usrname-lastname.
pr_ls_final-route = pr_ls_vbap-route.
pr_ls_final-lgort = pr_ls_vbap-lgort.
pr_ls_final-kdmat = pr_ls_vbap-kdmat.
pr_ls_final-kwmeng = pr_ls_vbap-kwmeng.
pr_ls_final-vrkme = pr_ls_vbap-vrkme.
pr_ls_final-arbpl = pr_ls_crhd-arbpl.
pr_ls_final-edatu = pr_ls_vbep1-edatu.
pr_ls_final-bstkd = pr_ls_vbkd1-bstkd.
pr_ls_final-tel_number = pr_ls_adr2-tel_number.
pr_ls_final-wadat = pr_ls_vbep1-wadat.
READ TABLE pr_lt_mat_data INTO ls_mat_data

WITH KEY matnr = pr_ls_caufv-plnbez.
IF sy-subrc EQ 0.
pr_ls_final-maktx = ls_mat_data-maktx.
ENDIF.
pr_ls_final-plnfl = pr_ls_affl-plnfl.
pr_ls_final-rueck = pr_ls_affl-rueck.
*&--populate customer and ship to data

LOOP AT pr_lt_vbpa INTO ls_vbpa.
IF ls_vbpa-parvw = gc_ag.
pr_ls_addr-parvw = ls_vbpa-parvw.
pr_ls_addr-kunnr = ls_vbpa-kunnr.
READ TABLE pr_lt_adrc INTO ls_adrc WITH KEY
addrnumber = ls_vbpa-adrnr.
IF sy-subrc EQ 0.
pr_ls_addr-adrnr = ls_adrc-addrnumber.
pr_ls_addr-name1 = ls_adrc-name1.
pr_ls_addr-city1 = ls_adrc-city1.
pr_ls_addr-post_code1 = ls_adrc-post_code1.
ENDIF.
ENDIF.
IF ls_vbpa-parvw = gc_we.
pr_ls_addr1-parvw = ls_vbpa-parvw.
pr_ls_addr1-kunnr = ls_vbpa-kunnr.
READ TABLE pr_lt_adrc INTO gs_adrc WITH KEY
addrnumber = ls_vbpa-adrnr.
IF sy-subrc EQ 0.
pr_ls_addr1-adrnr = gs_adrc-addrnumber.
pr_ls_addr1-name1 = gs_adrc-name1.
pr_ls_addr1-city1 = gs_adrc-city1.
pr_ls_addr1-post_code1 = gs_adrc-post_code1.
ENDIF.
ENDIF.
ENDLOOP.
* DELETE gt_resb WHERE aufnr IS INITIAL.

DELETE pr_lt_resb WHERE aufnr IS INITIAL.
LOOP AT pr_lt_resb INTO gs_resb.

pr_ls_comp_data-matnr = gs_resb-matnr.
pr_ls_comp_data-bdmng = gs_resb-bdmng.
pr_ls_comp_data-meins = gs_resb-meins.
READ TABLE pr_lt_mat_data INTO gs_mat_data
WITH KEY matnr = gs_resb-matnr.
IF sy-subrc EQ 0.
pr_ls_comp_data-maktx = gs_mat_data-maktx.
ENDIF.
APPEND pr_ls_comp_data TO pr_lt_comp_data.

CLEAR:pr_ls_comp_data, gs_resb.
ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form F_CALL_FORM
*&---------------------------------------------------------------------*
* Passing the smartform name
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM f_call_form USING pr_ls_print_co TYPE print_co
pr_ls_print_opts TYPE itcpo
pr_ls_final TYPE zpp_s_prod_order_details
pr_ls_addr TYPE zpp_s_prod_order_addr_detail
s
pr_ls_addr1 TYPE zpp_s_prod_order_addr_detail
s
pr_ls_tline TYPE tline
pr_lt_comp_data TYPE gty_comp_data
pr_lt_conf_data TYPE zpp_t_po_conf_data.
DATA: lv_fmname TYPE rs38l_fnam,

lv_formname TYPE tdsfname,
ls_option TYPE ssfcompop,
ls_control TYPE ssfctrlop.
CLEAR: lv_formname , lv_fmname.
lv_formname = gc_formname.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING
formname = lv_formname
IMPORTING
fm_name = lv_fmname
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3.
IF sy-subrc <> 0.
ENDIF.
ls_control-no_dialog = 'X'."Don't show Dialog

ls_option-tddest = 'LOCL'."Spool: Output device
ls_option-tdnewid = 'X'.
CALL FUNCTION lv_fmname

EXPORTING
gs_print_co = pr_ls_print_co
gs_print_opts = pr_ls_print_opts
gs_final = pr_ls_final
gs_addr = pr_ls_addr
gs_addr1 = pr_ls_addr1
gs_tdline = pr_ls_tline
output_options = ls_option
control_parameters = ls_control
TABLES
gt_conf_data = pr_lt_conf_data
gt_comp_data = pr_lt_comp_data.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form F_GET_USERNAME
*&---------------------------------------------------------------------*
* This Subroutine is used to get Username Details
*----------------------------------------------------------------------*
* -->PR_GS_VBAK text
* <--PR_GS_USRNAME text
*----------------------------------------------------------------------*
FORM f_get_username USING pr_gs_vbak TYPE gty_vbak
CHANGING pr_gs_usrname TYPE gty_usrname.
DATA: ls_address TYPE bapiaddr3,

lt_return TYPE STANDARD TABLE OF bapiret2.
DATA: ls_username TYPE xubname.
CLEAR: lt_return , ls_address.

ls_username = pr_gs_vbak-ernam.
CALL FUNCTION 'BAPI_USER_GET_DETAIL'

EXPORTING
username = ls_username
IMPORTING
address = ls_address
TABLES
return = lt_return.
IF ls_address IS NOT INITIAL.

pr_gs_usrname-firstname = ls_address-firstname.
pr_gs_usrname-lastname = ls_address-lastname.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form F_GET_CONF_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_LS_CAUFV text
* <--P_LT_CONF_DATA text
*----------------------------------------------------------------------*
FORM f_get_conf_data USING pr_ls_caufv TYPE gty_caufv
CHANGING pr_lt_conf_data TYPE zpp_t_po_conf_data
pr_ls_conf_data TYPE zpp_s_po_conf_data
pr_lt_vc_data TYPE zpp_t_po_conf_data
pr_ls_vc_data TYPE zpp_s_po_conf_data.
TYPES: BEGIN OF lty_conf_desc,
atinn TYPE atinn,
atbez TYPE atbez,
END OF lty_conf_desc.
DATA: lt_conf_desc TYPE TABLE OF lty_conf_desc,
ls_conf_desc TYPE lty_conf_desc.
CLEAR: pr_lt_vc_data , lt_conf_desc, pr_ls_conf_data,pr_lt_conf_data.
IF pr_ls_caufv-aufnr IS NOT INITIAL.
CALL FUNCTION 'ZPP_GET_CHAR_PROD_ORD'
EXPORTING
i_aufnr = pr_ls_caufv-aufnr
IMPORTING
et_configuration = pr_lt_vc_data
EXCEPTIONS
ex_instance_not_found = 1
ex_internal_error = 2
ex_no_class_allocation = 3
ex_instance_not_valid = 4
ex_no_input_found = 5
ex_enter_single_input = 6
ex_enter_material_or_prod_orde = 7
ex_plant_cant_be_blank_for_mat = 8
ex_invalid_input = 9
ex_instance_is_a_classificatio = 10
OTHERS = 11.
IF sy-subrc <> 0.
ENDIF.
IF sy-subrc EQ 0.
*&--Description of characteristics
SELECT atinn atbez FROM cabnt
INTO TABLE lt_conf_desc
FOR ALL ENTRIES IN pr_lt_vc_data
WHERE atinn = pr_lt_vc_data-atinn.
IF sy-subrc EQ 0.
ENDIF.
*&--Characteristics - Z_TYPE
READ TABLE pr_lt_vc_data INTO pr_ls_vc_data
WITH KEY atnam = 'Z_TYPE' .
IF sy-subrc EQ 0 AND pr_ls_vc_data-atwrt IS NOT INITIAL.
pr_ls_conf_data-atnam = pr_ls_vc_data-atnam.
pr_ls_conf_data-atwrt = pr_ls_vc_data-atwrt.
READ TABLE lt_conf_desc INTO ls_conf_desc
WITH KEY atinn = pr_ls_vc_data-atinn.
IF sy-subrc EQ 0.
pr_ls_conf_data-atbez = ls_conf_desc-atbez.
ENDIF.
CLEAR pr_ls_vc_data.
APPEND pr_ls_conf_data TO pr_lt_conf_data.
ENDIF.
*&--Characteristics - Z_LENGTH
WITH KEY atnam = 'Z_LENGTH' .
IF sy-subrc EQ 0.
ENDIF.
ENDIF.
*&--Characteristics - Z_LENGTH_TOL_PLUS
WITH KEY atnam = 'Z_LENGTH_TOL_PLUS' .
IF sy-subrc EQ 0.
ENDIF.
ENDIF.
*&--Characteristics - Z_LENGTH_TOL_MINUS
WITH KEY atnam = 'Z_LENGTH_TOL_MINUS' .
IF sy-subrc EQ 0.
ENDIF.
ENDIF.
*&--Characteristics - Z_THICKNESS

WITH KEY atnam = 'Z_THICKNESS' .
IF sy-subrc EQ 0.
ENDIF.
ENDIF.
*&--Characteristics - Z_PACKWEIGHT_MAX
WITH KEY atnam = 'Z_PACKWEIGHT_MAX' .
IF sy-subrc EQ 0.
ENDIF.
ENDIF.
*&--Characteristics - Z_WIDTH
WITH KEY atnam = 'Z_WIDTH' .
IF sy-subrc EQ 0.
ENDIF.
ENDIF.
*&--Characteristics - Z_RM_PACKING_CODE
WITH KEY atnam = 'Z_RM_PACKING_CODE' .
IF sy-subrc EQ 0.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.
======
*&---------------------------------------------------------------------*
* Program Description: Driver program for Production order smartform *
* DEVELOPER: Akanksha Jain *
* OBJECT NUMBER: PP_004 *
* TRANSPORT NUMBER(S): DV9K900569,DV9K900618 *
* INPUT: Production order number *
* Output: Display form *
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Include ZI_PP_PROD_ORDER_TOP
*&---------------------------------------------------------------------*
*&--Structure
TYPES: BEGIN OF gty_caufv,
aufnr TYPE aufnr,
gstrp TYPE pm_ordgstrp,
gltrp TYPE co_gltrp,
gsuzp TYPE co_gsuzp,
gluzp TYPE co_gluzp,
plnbez TYPE matnr,
gamng TYPE gamng,
gmein TYPE co_gmein,
werks TYPE werks_d,
END OF gty_caufv,
BEGIN OF gty_afko,
aufnr TYPE aufnr,
END OF gty_afko,
BEGIN OF gty_afpo,
aufnr TYPE aufnr,
kdauf TYPE co_kdauf,
kdpos TYPE co_kdpos,
kdein TYPE kdein,
END OF gty_afpo,
BEGIN OF gty_vbak,
vbeln TYPE vbeln_va,
ernam TYPE ernam,
END OF gty_vbak,
BEGIN OF gty_usrname,
ernam TYPE ernam,
firstname TYPE ad_namefir,
lastname TYPE ad_namelas,
END OF gty_usrname,
BEGIN OF gty_vbap,
posnr TYPE posnr_va,
kdmat TYPE matnr_ku,
route TYPE route,
lgort TYPE lgort_d,
kwmeng TYPE kwmeng,
vrkme TYPE vrkme,
END OF gty_vbap,
BEGIN OF gty_afvc,
arbid TYPE cr_objid,
END OF gty_afvc,
BEGIN OF gty_crhd,
objid TYPE cr_objid,
arbpl TYPE arbpl,
END OF gty_crhd,
BEGIN OF gty_affl,
rueck TYPE co_rueck, "MD
END OF gty_affl,
BEGIN OF gty_vbep,
edatu TYPE edatu,
wadat TYPE wadat,
END OF gty_vbep,
BEGIN OF gty_vbkd,
bstkd TYPE bstkd,
END OF gty_vbkd,
BEGIN OF gty_vbpa,
parvw TYPE parvw,
adrnr TYPE adrnr,
kunnr TYPE kunnr,
END OF gty_vbpa,
gty_t_vbpa TYPE STANDARD TABLE OF gty_vbpa,
BEGIN OF gty_adrc,
addrnumber TYPE ad_addrnum,
name1 TYPE ad_name1,
city1 TYPE ad_city1,
post_code1 TYPE ad_pstcd1,
END OF gty_adrc,
gty_t_adrc TYPE STANDARD TABLE OF gty_adrc,
BEGIN OF gty_usr21,
bname TYPE xubname,
END OF gty_usr21,
BEGIN OF gty_adr2,
tel_number TYPE ad_tlnmbr,
END OF gty_adr2,
BEGIN OF gty_makt,
matnr TYPE matnr,
maktx TYPE maktx,
END OF gty_makt,
BEGIN OF gty_resb,
matnr TYPE matnr,
bdmng TYPE bdmng,
meins TYPE meins,
aufnr TYPE aufnr,
END OF gty_resb,
gty_t_resb TYPE STANDARD TABLE OF gty_resb,
BEGIN OF gty_mat_data,
matnr TYPE matnr,
maktx TYPE maktx,
END OF gty_mat_data,
gty_t_mat_data TYPE STANDARD TABLE OF gty_mat_data.
TYPES: gty_final TYPE STANDARD TABLE OF zpp_s_prod_order_details,

gty_comp_data TYPE STANDARD TABLE OF zpp_s_prod_order_comp_details,
gty_addr TYPE STANDARD TABLE OF zpp_s_prod_order_addr_details.
DATA : gs_print_co TYPE print_co,

gs_print_opts TYPE itcpo,
gs_caufv TYPE gty_caufv,
gs_afko TYPE gty_afko,
gs_afpo TYPE gty_afpo,
gs_afvc TYPE gty_afvc,
gs_vbak TYPE gty_vbak,
gs_usrname TYPE gty_usrname,
gs_vbap TYPE gty_vbap,
gs_vbkd TYPE gty_vbkd,
gs_vbep TYPE gty_vbep,
gs_crhd TYPE gty_crhd,
gs_affl TYPE gty_affl,
gs_vbpa TYPE gty_vbpa,
gs_adrc TYPE gty_adrc,
gs_usr21 TYPE gty_usr21,
gs_adr2 TYPE gty_adr2,
gs_resb TYPE gty_resb,
gs_mat_data TYPE gty_mat_data,
gs_ordr_mat TYPE gty_mat_data,
gt_ordr_mat TYPE TABLE OF gty_mat_data,
gt_mat_data TYPE TABLE OF gty_mat_data,
gt_resb TYPE TABLE OF gty_resb,
gt_vbpa TYPE TABLE OF gty_vbpa,
gt_adrc TYPE TABLE OF gty_adrc,
gs_final TYPE zpp_s_prod_order_details,
gt_final TYPE TABLE OF zpp_s_prod_order_details,
gs_comp_data TYPE zpp_s_prod_order_comp_details,
gt_comp_data TYPE TABLE OF zpp_s_prod_order_comp_details,
gs_addr TYPE zpp_s_prod_order_addr_details,
gs_addr1 TYPE zpp_s_prod_order_addr_details,
gt_addr TYPE TABLE OF zpp_s_prod_order_addr_details.
DATA : gv_sales_details TYPE thead-tdname,
gt_tdline TYPE TABLE OF tline,
gs_tdline TYPE tline.
CONSTANTS: gc_id TYPE thead-tdid VALUE '0001',

gc_object TYPE thead-tdobject VALUE 'VBBP',
gc_we TYPE vbpa-parvw VALUE 'WE',
gc_ag TYPE vbpa-parvw VALUE 'AG',
gc_formname TYPE tdsfname VALUE 'ZPP_PROD_ORDER'.
====
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*---------------------------------------------------------------------*
uirement is
* Date (dd-mm-yyyy): 10-03-2016
* Reason : NA
*---------------------------------------------------------------------*
* DATE : 20.04.2016 *
*&---------------------------------------------------------------------*
-*
low TYPE aufnr,
high TYPE aufnr,
END OF lty_aufnr.

low TYPE werks_d,
high TYPE werks_d,
END OF lty_werks.

low TYPE matnr,
high TYPE matnr,
END OF lty_matnr.
*-------------------------------------------------------------------------*

*-------------------------------------------------------------------------*
REFRESH : lt_aufnr,
lt_werks.
CLEAR : lwa_aufnr,
lwa_werks,
lv_logsys.
CLEAR : gs_caufvd.
*-------------------------------------------------------------------------*
*-------------------------------------------------------------------------*
lv_logsys = lc_dev.
ELSE.
lv_logsys = space.
ENDIF.

CLEAR : lwa_werks.
CLEAR : lwa_aufnr.
CLEAR : lwa_matnr.

REFRESH : lt_aufnr,
lt_werks.
CLEAR : lwa_aufnr,
lwa_werks,
lv_logsys.
CLEAR : gs_caufvd.
ENDIF.
=====
*&---------------------------------------------------------------------*
* Program Description: Top include for production order smartform *
* DEVELOPER: C059014 *
* OBJECT NUMBER: F_PP_004 *
* INPUT: NA *
* Output: display form output *
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Include ZI_PP_PROD_ORDR_F01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form F_PROCESSING
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_PR_GV_US_SCREEN text
* <--P_PR_GV_RETURN_CODE text
*----------------------------------------------------------------------*
FORM f_processing .
* USING p_pr_gv_us_screen type c
* CHANGING p_pr_gv_return_code type i.
"stores smartform name

PERFORM f_call_smartform. "subroutine to call the smartform
ENDFORM.
*&---------------------------------------------------------------------*
*& Form F_CALL_SMARTFORM
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM f_call_smartform .
* Local variable declaration
DATA: lv_fm_name TYPE rs38l_fnam.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING
formname = 'ZPP_PRO_ORD_FRM'
* VARIANT = ' '
* DIRECT_CALL = ' '
IMPORTING
FM_NAME = lv_fm_name
* EXCEPTIONS
* NO_FORM = 1
* NO_FUNCTION_MODULE = 2
* OTHERS = 3
.
IF sy-subrc <> 0.
ENDIF.
CALL FUNCTION lv_fm_name

* EXPORTING
* ARCHIVE_INDEX =
* ARCHIVE_INDEX_TAB =
* ARCHIVE_PARAMETERS =
* CONTROL_PARAMETERS =
* MAIL_APPL_OBJ =
* MAIL_RECIPIENT =
* MAIL_SENDER =
* OUTPUT_OPTIONS =
* USER_SETTINGS = 'X'
* IMPORTING
* DOCUMENT_OUTPUT_INFO =
* JOB_OUTPUT_INFO =
* JOB_OUTPUT_OPTIONS =
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5
.
IF sy-subrc <> 0.
ENDIF.
ENDFORM.
==================================================================
FUNCTION zpp_get_char_prod_ord.
*"----------------------------------------------------------------------
*" IMPORTING
*" REFERENCE(I_AUFNR) TYPE AUFNR OPTIONAL
*" REFERENCE(I_MATNR) TYPE MATNR OPTIONAL
*" REFERENCE(I_PLANT) TYPE WERKS_D OPTIONAL
*" EXPORTING
*" REFERENCE(ET_CONFIGURATION) TYPE TT_CONF_OUT
*" REFERENCE(ET_CONFIGURATION_IDOC) TYPE TT_API_VALUE
*" EXCEPTIONS
*" EX_INSTANCE_NOT_FOUND
*" EX_INTERNAL_ERROR
*" EX_NO_CLASS_ALLOCATION
*" EX_INSTANCE_NOT_VALID
*" EX_NO_INPUT_FOUND
*" EX_ENTER_SINGLE_INPUT
*" EX_ENTER_MATERIAL_OR_PROD_ORDE
*" EX_PLANT_CANT_BE_BLANK_FOR_MAT
*" EX_INVALID_INPUT
*" EX_INSTANCE_IS_A_CLASSIFICATIO
*"----------------------------------------------------------------------
*&---------------------------------------------------------------------*
* Program Description: Function module to Get Characteristic Value
* for Production order *
* *
*
* OBJECT NUMBER: *
* Output: get Characteristics Value *
*----------------------------------------------------------------------*
* Input Either material or Production Order
IF i_matnr IS INITIAL AND i_aufnr IS INITIAL .
* raise Exception
RAISE ex_no_input_found.
ENDIF.
* Input Either material or Production Order

IF i_matnr IS NOT INITIAL AND i_aufnr IS NOT INITIAL .
* raise Exception
RAISE ex_enter_material_or_prod_orde.
ENDIF.
* For Material Plant is mandatory

IF i_matnr IS NOT INITIAL AND i_plant IS INITIAL .
* raise Exception
RAISE ex_plant_cant_be_blank_for_mat.
ENDIF.
IF i_aufnr IS NOT INITIAL .

* get CUOBJ from Production order
PERFORM get_data USING i_aufnr
CHANGING g_cuobj.
ENDIF.
* check material not blank
IF i_matnr IS NOT INITIAL.
* get Instance from material master
PERFORM get_material_instance USING i_matnr
i_plant
CHANGING g_cuobj.
ENDIF.
* Get Configuration from CUOBJ
PERFORM get_char_data USING g_cuobj
CHANGING et_configuration[]
et_configuration_idoc[].
ENDFUNCTION.
*----------------------------------------------------------------------*
***INCLUDE LZPP_GET_CHARF01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_IM_AUFNR text
* <--P_G_CUOBJ text
*----------------------------------------------------------------------*
FORM get_data USING pr_im_aufnr TYPE aufnr
CHANGING pr_g_cuobj TYPE cuobj.
CONSTANTS : lc_zapr TYPE pstyv VALUE 'ZAPR',

lc_zbp0 TYPE pstyv VALUE 'ZBP0',
lc_znre TYPE pstyv VALUE 'ZNRE',
lc_zpre TYPE pstyv VALUE 'ZPRE',
c_sign(1) TYPE c VALUE 'I',
c_option(2) TYPE c VALUE 'EQ'.
DATA : lv_matnr TYPE matnr,
lv_vbeln TYPE vbeln,
lv_posnr TYPE posnr,
lt_pstyv TYPE RANGE OF vbap-pstyv.
RANGES : lr_pstyv FOR vbap-pstyv.
*----------------------------------------------------------------------*
REFRESH : lr_pstyv.
CLEAR : lv_matnr,
lv_vbeln,
lv_posnr,
lv_werks,
lt_pstyv.
*----------------------------------------------------------------------*
* Check SO Item Category
lr_pstyv-sign = c_sign.
lr_pstyv-option = c_option.
lr_pstyv-low = lc_zapr.
APPEND lr_pstyv TO lt_pstyv.
CLEAR : lr_pstyv.
lr_pstyv-low = lc_zbp0.
CLEAR : lr_pstyv.
lr_pstyv-low = lc_znre.
CLEAR : lr_pstyv.
lr_pstyv-low = lc_zpre.
CLEAR : lr_pstyv.
* Check Production order is not blank
IF pr_im_aufnr IS NOT INITIAL.
* fetch production order header data
SELECT SINGLE plnbez
werks
kdauf
kdpos FROM caufv
INTO (lv_matnr, lv_werks, lv_vbeln, lv_posnr)
WHERE aufnr EQ pr_im_aufnr.
IF sy-subrc EQ 0.
* check SO and SO item is not blank
IF lv_vbeln IS NOT INITIAL AND lv_posnr IS NOT INITIAL.
* fetch CUOBJ from Sales order
SELECT SINGLE cuobj
FROM vbap
INTO pr_g_cuobj
WHERE vbeln EQ lv_vbeln
AND posnr EQ lv_posnr
AND pstyv NOT IN lt_pstyv.
IF sy-subrc EQ 0.
* CUOBJ Found
ELSE.
* fetch CUOBJ from material master
SELECT SINGLE cuobj
FROM marc
INTO pr_g_cuobj
WHERE matnr EQ lv_matnr
AND werks EQ lv_werks.
IF sy-subrc EQ 0.
* CUOBJ Found
ELSE.
* Raise exception
RAISE ex_instance_not_found.
ENDIF.
* CUOBJ Found
ENDIF.
ELSE.
SELECT SINGLE cuobj
FROM marc
INTO pr_g_cuobj
IF sy-subrc EQ 0.
* CUOBJ Found
ELSE.
* Raise exception
ENDIF.
ENDIF.
ELSE.
* Raise exception
ENDIF.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_CHAR_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->PR_G_CUOBJ text
*----------------------------------------------------------------------*
FORM get_char_data USING pr_g_cuobj
CHANGING ch_t_configuration TYPE tt_conf_out
ch_t_configuration_idoc TYPE tt_api_value .

ls_conf TYPE LINE OF ibco2_value_tab,
ls_conf_out TYPE conf_out,
lv_value TYPE p DECIMALS 4,
ls_conft TYPE LINE OF ibco2_instance_tab2.
REFRESH : lt_conf.
CLEAR : ls_conf,
ls_conft,
ls_conf,
lv_value,
ls_conf_out.
IF pr_g_cuobj IS NOT INITIAL .

* get configuration details
EXPORTING
instance = pr_g_cuobj
IMPORTING
EXCEPTIONS
invalid_input = 1
OTHERS = 4.
IF sy-subrc <> 0.
CASE sy-subrc.
WHEN 1. RAISE ex_instance_not_valid.
WHEN 2. RAISE ex_invalid_instance.
WHEN 3. RAISE ex_instance_is_a_classificatio.
ENDCASE.
ENDIF.
LOOP AT lt_conf INTO ls_conft.
LOOP AT ls_conft-values INTO ls_conf.

ls_conf_out-atinn = ls_conf-atinn.
ls_conf_out-atnam = ls_conf-atinn.
* conversion exit
EXPORTING
input = ls_conf_out-atnam
IMPORTING
output = ls_conf_out-atnam.
IF ls_conf-atwrt IS INITIAL AND ls_conf-atflv IS NOT INITIAL.
* remove exponent
lv_value = ls_conf-atflv.
ls_conf_out-atwrt = lv_value.
ls_conf_out-atwtb = lv_value.
* WRITE lv_value TO ls_conf_out-atwrt EXPONENT 0.
* WRITE ls_conf-atflv TO ls_conf_out-atwtb EXPONENT 0.
SHIFT ls_conf_out-atwrt LEFT DELETING LEADING space.

SHIFT ls_conf_out-atwtb LEFT DELETING LEADING space.
ELSE.
ls_conf_out-atwrt = ls_conf-atwrt.
ls_conf_out-atwtb = ls_conf-atwrt.
ENDIF.
APPEND ls_conf_out TO ch_t_configuration.
CLEAR :ls_conf_out.
ENDLOOP.
ENDLOOP.
ELSE.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form GET_MATERIAL_INSTANCE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_I_MATNR text
* -->P_I_PLANT text
* <--P_G_CUOBJ text
*----------------------------------------------------------------------*
FORM get_material_instance USING pr_i_matnr TYPE matnr
pr_i_plant TYPE werks_d
* Check Material and plant is not blank
IF pr_i_matnr IS NOT INITIAL AND pr_i_plant IS NOT INITIAL.
* fetch Instance from material master
SELECT SINGLE cuobj FROM marc
INTO pr_g_cuobj
WHERE matnr EQ pr_i_matnr
AND werks EQ pr_i_plant.
IF sy-subrc EQ 0.
ELSE.
* No Instance found
ENDIF.
ELSE.
* raise exception
ENDIF.
ENDFORM.
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_G_CUOBJ text
*----------------------------------------------------------------------*

*----------------------------------------------------------------------*
REFRESH : lr_pstyv.
CLEAR : lv_matnr,
lv_vbeln,
lv_posnr,
lv_werks,
lt_pstyv.
*----------------------------------------------------------------------*
CLEAR : lr_pstyv.
CLEAR : lr_pstyv.
CLEAR : lr_pstyv.
CLEAR : lr_pstyv.
werks
kdauf
kdpos FROM caufv
IF sy-subrc EQ 0.
SELECT SINGLE cuobj
FROM vbap
INTO pr_g_cuobj
IF sy-subrc EQ 0.
* CUOBJ Found
ELSE.
SELECT SINGLE cuobj
FROM marc
INTO pr_g_cuobj
IF sy-subrc EQ 0.
* CUOBJ Found
ELSE.
* Raise exception
ENDIF.
* CUOBJ Found
ENDIF.
ELSE.
SELECT SINGLE cuobj
FROM marc
INTO pr_g_cuobj
IF sy-subrc EQ 0.
* CUOBJ Found
ELSE.
* Raise exception
ENDIF.
ENDIF.
ELSE.
* Raise exception
ENDIF.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*

REFRESH : lt_conf.
CLEAR : ls_conf,
ls_conft,
ls_conf,
lv_value,
ls_conf_out.

EXPORTING
IMPORTING
EXCEPTIONS
invalid_input = 1
OTHERS = 4.
IF sy-subrc <> 0.
CASE sy-subrc.
ENDCASE.
ENDIF.

* conversion exit
EXPORTING
IMPORTING
* remove exponent

ELSE.
ENDIF.
CLEAR :ls_conf_out.
ENDLOOP.
ENDLOOP.
ELSE.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_I_MATNR text
* -->P_I_PLANT text
* <--P_G_CUOBJ text
*----------------------------------------------------------------------*
INTO pr_g_cuobj
IF sy-subrc EQ 0.
ELSE.
* No Instance found
ENDIF.
ELSE.
* raise exception
ENDIF.
ENDFORM.
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* <--P_G_CUOBJ text
*----------------------------------------------------------------------*

*----------------------------------------------------------------------*
REFRESH : lr_pstyv.
CLEAR : lv_matnr,
lv_vbeln,
lv_posnr,
lv_werks,
lt_pstyv.
*----------------------------------------------------------------------*
CLEAR : lr_pstyv.
CLEAR : lr_pstyv.
CLEAR : lr_pstyv.
CLEAR : lr_pstyv.
werks
kdauf
kdpos FROM caufv
IF sy-subrc EQ 0.
SELECT SINGLE cuobj
FROM vbap
INTO pr_g_cuobj
IF sy-subrc EQ 0.
* CUOBJ Found
ELSE.
SELECT SINGLE cuobj
FROM marc
INTO pr_g_cuobj
IF sy-subrc EQ 0.
* CUOBJ Found
ELSE.
* Raise exception
ENDIF.
* CUOBJ Found
ENDIF.
ELSE.
SELECT SINGLE cuobj
FROM marc
INTO pr_g_cuobj
IF sy-subrc EQ 0.
* CUOBJ Found
ELSE.
* Raise exception
ENDIF.
ENDIF.
ELSE.
* Raise exception
ENDIF.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*

REFRESH : lt_conf.
CLEAR : ls_conf,
ls_conft,
ls_conf,
lv_value,
ls_conf_out.

EXPORTING
IMPORTING
EXCEPTIONS
invalid_input = 1
OTHERS = 4.
IF sy-subrc <> 0.
CASE sy-subrc.
ENDCASE.
ENDIF.

* conversion exit
EXPORTING
IMPORTING
* remove exponent

ELSE.
ENDIF.
CLEAR :ls_conf_out.
ENDLOOP.
ENDLOOP.
ELSE.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_I_MATNR text
* -->P_I_PLANT text
* <--P_G_CUOBJ text
*----------------------------------------------------------------------*
INTO pr_g_cuobj
IF sy-subrc EQ 0.
ELSE.
* No Instance found
ENDIF.
ELSE.
* raise exception
ENDIF.
ENDFORM.
==================================================
FUNCTION zpp_prodord_update_table.
*"----------------------------------------------------------------------
*" IMPORTING
*" REFERENCE(IS_HEADER) TYPE Z100217_INBOUNDSI_IA_WORK_INST
*" REFERENCE(IT_OPERATION) TYPE Z100217_INBOUNDMATERIAL_TAB
*" OPTIONAL
*" REFERENCE(IT_ORDER) TYPE Z100217_INBOUNDSI_IA_WORK__TAB
*" OPTIONAL
*"----------------------------------------------------------------------
*&---------------------------------------------------------------------*
* Program Description: Function module to update Prod Order Custom *
* Table *
*
*----------------------------------------------------------------------*
* Update Header Table

PERFORM update_header USING is_header
it_operation[].
* Update Item Table

PERFORM update_item USING is_header
it_operation[].
* Update Order and Relation Table

PERFORM update_order_table USING is_header
it_order[].
ENDFUNCTION.
*----------------------------------------------------------------------*
***INCLUDE LZPP_PRODUCTION_ORDERF02.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Form UPDATE_HEADER
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_IS_HEADER text
*----------------------------------------------------------------------*
FORM update_header USING pr_is_header TYPE z100217_inboundsi_ia_work_inst
pr_it_operation TYPE z100217_inboundmaterial_tab.

aufnr TYPE aufnr,
END OF lty_afko.

aplzl TYPE co_aplzl,
vornr TYPE vornr,
END OF lty_afvc.
*----------------------------------------------------------------------*
DATA : ls_zpp_wi_header TYPE zpp_wi_header,
ls_operation TYPE z100217_inboundmaterial,
lv_times TYPE i,
lv_index TYPE i,
ls_afvc TYPE lty_afvc.
*----------------------------------------------------------------------*
CONSTANTS : lc_times TYPE i VALUE '10'.
*----------------------------------------------------------------------*
CLEAR :ls_zpp_wi_header,
ls_operation,
lv_index,
ls_afko,
ls_afvc.
*----------------------------------------------------------------------*
IF pr_is_header IS NOT INITIAL .
* Update Header Table
ls_zpp_wi_header-aufnr = pr_is_header-work_instruction_number.
* Conversion Exit
EXPORTING
input = ls_zpp_wi_header-aufnr
IMPORTING
output = ls_zpp_wi_header-aufnr.
ls_zpp_wi_header-gstrp = pr_is_header-basic_start_date.
ls_zpp_wi_header-gltrp = pr_is_header-basic_start_time.
*ls_zpp_wi_header-GSUZP = pr_is_header-
*ls_zpp_wi_header-GLUZP = pr_is_header-
ls_zpp_wi_header-sstrp = pr_is_header-basic_start_date.
ls_zpp_wi_header-ssuzp = pr_is_header-basic_start_time.
ls_zpp_wi_header-bdmng = pr_is_header-order_item_quantity.
ls_zpp_wi_header-meins = pr_is_header-base_unit_of_measure.

EXPORTING
iso_code = ls_zpp_wi_header-meins
IMPORTING
sap_code = ls_zpp_wi_header-meins
* UNIQUE =
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
ENDIF.
ls_zpp_wi_header-auart = pr_is_header-order_type.
ls_zpp_wi_header-werks = pr_is_header-plant.
ls_zpp_wi_header-arbid = pr_is_header-object_id.
*ls_zpp_wi_header-VORNR = pr_is_header-
ls_zpp_wi_header-setup_time = pr_is_header-setup_time.
*ls_zpp_wi_header-SETUP_UNIT = pr_is_header-
ls_zpp_wi_header-proc_time = pr_is_header-proc_time.
*ls_zpp_wi_header-PROC_UNIT = pr_is_header-
*ls_zpp_wi_header-ZTIMESTAMP = pr_is_header-
SELECT SINGLE aufnr

aufpl
FROM afko
INTO ls_afko
WHERE aufnr EQ ls_zpp_wi_header-aufnr.
IF sy-subrc EQ 0.
SELECT SINGLE aufpl
aplzl
plnfl
vornr
FROM afvc INTO ls_afvc
WHERE aufpl EQ ls_afko-aufpl.
IF sy-subrc EQ 0.
ls_zpp_wi_header-vornr = ls_afvc-vornr.
ENDIF.
ENDIF.
* Lock Table
IF ls_zpp_wi_header IS NOT INITIAL.
lv_times = 10.
DO .
lv_index = sy-index.
CALL FUNCTION 'ENQUEUE_EZPP_WI_HEADER'
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc EQ 0.
* Update Table
MODIFY zpp_wi_header FROM ls_zpp_wi_header .
IF sy-subrc EQ 0.
COMMIT WORK AND WAIT.
ELSE.
ROLLBACK WORK.
ENDIF.
* UnLock Table
CALL FUNCTION 'DEQUEUE_EZPP_WI_HEADER'.
EXIT.
ELSE.
IF lv_index EQ lc_times.
EXIT.
ENDIF.
ENDIF.
ENDDO.
ENDIF.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form UPDATE_ITEM
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_IS_HEADER text
* -->P_IT_OPERATION[] text
*----------------------------------------------------------------------*
FORM update_item USING pr_is_header TYPE z100217_inboundsi_ia_work_inst
pr_it_operation TYPE z100217_inboundmaterial_tab.
*-----------L O C A L T Y P E S D E C L A R A T I O N---------------*
TYPES : BEGIN OF lty_cabn,
atinn TYPE atinn,
atnam TYPE atnam,
atfor TYPE atfor,
END OF lty_cabn.
*----------------------------------------------------------------------*
DATA : ls_zpp_wi_header TYPE zpp_wi_header,
ls_operation TYPE z100217_inboundmaterial,
ls_zpp_wi_item TYPE zpp_wi_item,
lt_zpp_wi_item TYPE STANDARD TABLE OF zpp_wi_item INITIAL SIZE 0,
lv_index TYPE i,
lt_zpp_item_char TYPE STANDARD TABLE OF zpp_item_char INITIAL SIZE 0,
ls_zpp_item_char TYPE zpp_item_char,
ls_char TYPE z100217_inboundsi_ia_work_ins5,
lt_cabn TYPE STANDARD TABLE OF lty_cabn INITIAL SIZE 0,
ls_cabn TYPE lty_cabn.
*----------------------------------------------------------------------*
CONSTANTS : lc_times TYPE i VALUE '10',
lc_char(4) TYPE c VALUE 'CHAR'.
*-----------------------------------------------------------------------*
REFRESH :lt_zpp_wi_item,
lt_zpp_item_char,
lt_cabn.
CLEAR :ls_zpp_wi_header,
ls_operation,
ls_zpp_wi_item,
lv_index,
ls_zpp_item_char,
ls_char,
ls_cabn.
*----------------------------------------------------------------------*
IF pr_it_operation IS NOT INITIAL.
* Fetch Characteristic Name
SELECT atinn
atnam
atfor
FROM cabn INTO TABLE lt_cabn.
IF sy-subrc EQ 0.
SORT lt_cabn BY atnam.
ENDIF.
* Component and Operation Data

LOOP AT pr_it_operation INTO ls_operation.
ls_zpp_wi_item-aufnr = pr_is_header-work_instruction_number.
EXPORTING
input = ls_zpp_wi_item-aufnr
IMPORTING
output = ls_zpp_wi_item-aufnr.
ls_zpp_wi_item-posnr = ls_operation-position.
ls_zpp_wi_item-matnr = ls_operation-material_number.
EXPORTING
input = ls_zpp_wi_item-matnr
IMPORTING
output = ls_zpp_wi_item-matnr.
ls_zpp_wi_item-charg = ls_operation-batch_number.
ls_zpp_wi_item-type = ls_operation-movement_type.
ls_zpp_wi_item-lgort = ls_operation-storage_location.
ls_zpp_wi_item-werks = ls_operation-plant.
ls_zpp_wi_item-bdmng = ls_operation-order_item_quantity.
ls_zpp_wi_item-meins = ls_operation-base_unit_of_measure.
EXPORTING
iso_code = ls_zpp_wi_item-meins
IMPORTING
sap_code = ls_zpp_wi_item-meins
* UNIQUE =
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
ENDIF.
ls_zpp_wi_item-units = ls_operation-pieces_end_product.
APPEND ls_zpp_wi_item TO lt_zpp_wi_item.
CLEAR : ls_zpp_wi_item.
LOOP AT ls_operation-material_characteristics-sequence-
material_characteristic INTO ls_char.
ls_zpp_item_char-aufnr = pr_is_header-work_instruction_number.
EXPORTING
input = ls_zpp_item_char-aufnr
IMPORTING
output = ls_zpp_item_char-aufnr.
ls_zpp_item_char-posnr = ls_operation-position.
ls_zpp_item_char-atnam = ls_char-char_name.
READ TABLE lt_cabn INTO ls_cabn WITH KEY atnam = ls_char-char_name
BINARY SEARCH.
IF sy-subrc EQ 0.
IF ls_cabn-atfor = lc_char.
ls_zpp_item_char-atwrt = ls_char-char_value.
ELSE.
ls_zpp_item_char-atflv = ls_char-char_value.
ENDIF.
ENDIF.
APPEND ls_zpp_item_char TO lt_zpp_item_char.
CLEAR : ls_zpp_item_char.
ENDLOOP.
ENDLOOP.
ENDIF.
CLEAR : lv_index.
IF lt_zpp_item_char IS NOT INITIAL.

DO .
* Lock Table
CALL FUNCTION 'ENQUEUE_EZPP_ITEM_CHAR'
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc EQ 0.
* Update Table
MODIFY zpp_item_char FROM TABLE lt_zpp_item_char.
IF sy-subrc EQ 0.
ELSE.
ROLLBACK WORK.
ENDIF.
* UnLock Table
CALL FUNCTION 'DEQUEUE_EZPP_ITEM_CHAR'.
EXIT.
ELSE.
IF lv_index EQ lc_times .
EXIT.
ENDIF.
ENDIF.
ENDDO.
ENDIF.
CLEAR : lv_index.
IF lt_zpp_wi_item IS NOT INITIAL.

DO .
* Lock Table
CALL FUNCTION 'ENQUEUE_EZPP_WI_ITEM'
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc EQ 0.
* Update Table
MODIFY zpp_wi_item FROM TABLE lt_zpp_wi_item.
IF sy-subrc EQ 0.
ELSE.
ROLLBACK WORK.
ENDIF.
* UnLock Table
CALL FUNCTION 'DEQUEUE_EZPP_WI_ITEM'.
EXIT.
ELSE.
EXIT.
ENDIF.
ENDIF.
ENDDO.
ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form UPDATE_ORDER_TABLE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_ZPP_WI_PROD[] text
*----------------------------------------------------------------------*
FORM update_order_table USING pr_is_header TYPE z100217_inboundsi_ia_work_ins
t
pr_zpp_wi_prod TYPE z100217_inboundsi_ia_work__
tab.
DATA : ls_wi_prod TYPE z100217_inboundsi_ia_work_ins2,
lt_zpp_rel_wi_op TYPE STANDARD TABLE OF zpp_rel_wi_op INITIAL SIZE 0,
ls_zpp_rel_wi_op TYPE zpp_rel_wi_op,
lt_zpp_wi_prod TYPE STANDARD TABLE OF zpp_wi_prod INITIAL SIZE 0,
ls_zpp_wi_prod TYPE zpp_wi_prod,
lv_index TYPE i.
*----------------------------------------------------------------------*
CONSTANTS : lc_times TYPE i VALUE '10'.
*----------------------------------------------------------------------*
REFRESH : lt_zpp_rel_wi_op,
lt_zpp_wi_prod.
CLEAR : ls_wi_prod,
ls_zpp_rel_wi_op,
ls_zpp_wi_prod,
lv_index.
*----------------------------------------------------------------------*
IF pr_zpp_wi_prod IS NOT INITIAL .

LOOP AT pr_zpp_wi_prod INTO ls_wi_prod.
ls_zpp_rel_wi_op-aufnr = ls_wi_prod-work_instruction_number.
* Conversion Exit
EXPORTING
input = ls_zpp_rel_wi_op-aufnr
IMPORTING
output = ls_zpp_rel_wi_op-aufnr.
ls_zpp_rel_wi_op-paufnr = ls_wi_prod-order_number.
* Conversion Exit
EXPORTING
input = ls_zpp_rel_wi_op-paufnr
IMPORTING
output = ls_zpp_rel_wi_op-paufnr.
ls_zpp_rel_wi_op-wi_post = pr_is_header-prev_order_number.
* Conversion Exit
EXPORTING
input = ls_zpp_rel_wi_op-wi_post
IMPORTING
output = ls_zpp_rel_wi_op-wi_post.
* ls_zpp_rel_wi_op-plnfl = ls_wi_prod-sequence_in_pattern.
IF pr_is_header-prev_order_number IS NOT INITIAL.
ls_zpp_rel_wi_op-final = abap_false.
ELSE.
ls_zpp_rel_wi_op-final = abap_true.
ENDIF.
APPEND ls_zpp_rel_wi_op TO lt_zpp_rel_wi_op.
CLEAR : ls_zpp_rel_wi_op.
ls_zpp_wi_prod-aufnr = ls_wi_prod-work_instruction_number.
* Conversion Exit
EXPORTING
input = ls_zpp_wi_prod-aufnr
IMPORTING
output = ls_zpp_wi_prod-aufnr.
ls_zpp_wi_prod-posnr = ls_wi_prod-sequence_in_pattern.
ls_zpp_wi_prod-paufnr = ls_wi_prod-order_number.
* Conversion Exit
EXPORTING
input = ls_zpp_wi_prod-paufnr
IMPORTING
output = ls_zpp_wi_prod-paufnr.
ls_zpp_wi_prod-vornr = ls_wi_prod-operation_number.
ls_zpp_wi_prod-werks = ls_wi_prod-plant.
ls_zpp_wi_prod-bdmng = ls_wi_prod-order_item_quantity.
ls_zpp_wi_prod-meins = ls_wi_prod-quantity_uom.
EXPORTING
iso_code = ls_zpp_wi_prod-meins
IMPORTING
sap_code = ls_zpp_wi_prod-meins
* UNIQUE =
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
ENDIF.
ls_zpp_wi_prod-units = ls_wi_prod-pieces_end_product .
APPEND ls_zpp_wi_prod TO lt_zpp_wi_prod.
CLEAR : ls_zpp_wi_prod.
ENDLOOP.
ENDIF.
IF lt_zpp_rel_wi_op IS NOT INITIAL.

DO .
* Lock Table
CALL FUNCTION 'ENQUEUE_EZPP_REL_WI_OP'
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc EQ 0.
* Update Table
MODIFY zpp_rel_wi_op FROM TABLE lt_zpp_rel_wi_op.
IF sy-subrc EQ 0.
ELSE.
ROLLBACK WORK.
ENDIF.
* UnLock Table
CALL FUNCTION 'DEQUEUE_EZPP_REL_WI_OP'.
EXIT.
ELSE.
EXIT.
ENDIF.
ENDIF.
ENDDO.
ENDIF.
CLEAR : lv_index.
IF lt_zpp_wi_prod IS NOT INITIAL.

DO .
* Lock Table
CALL FUNCTION 'ENQUEUE_EZPP_WI_PROD'
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc EQ 0.
* Update Table
MODIFY zpp_wi_prod FROM TABLE lt_zpp_wi_prod.
IF sy-subrc EQ 0.
ELSE.
ROLLBACK WORK.
ENDIF.
* UnLock Table
CALL FUNCTION 'DEQUEUE_EZPP_WI_PROD'.
EXIT.
ELSE.
EXIT.
ENDIF.
ENDIF.
ENDDO.
ENDIF.
ENDFORM.
=====================================================
FUNCTION zpp_vc_uom_conv_factors.
*"----------------------------------------------------------------------
*" IMPORTING
*" VALUE(GLOBALS) LIKE CUOV_00 STRUCTURE CUOV_00
*" TABLES
*" QUERY STRUCTURE CUOV_01
*" MATCH STRUCTURE CUOV_01
*" EXCEPTIONS
*" FAIL
*" INTERNAL_ERROR
*"----------------------------------------------------------------------
*---------------------------------------------------------------------*
* Function : VC UOM conversion factors
* Development name : E_O2C_010
* Author : Bhaskar patil
* Date (dd-mm-yyyy): 11-03-2016
* Specification : VC UOM conversion factors.
* :
*---------------------------------------------------------------------*
* Modification : Meter ratio Logic Changed
* Date (dd-mm-yyyy): 16-03-2016
* Reason : NA
*---------------------------------------------------------------------*
*---------------------------------------------------------------------*
TYPES : BEGIN OF lty_zpp_vc_uomconv,

gewei TYPE gewei,
denominator TYPE zpp_uomvalue,
END OF lty_zpp_vc_uomconv.
DATA : lv_meter_ratio TYPE atflv,

lv_length TYPE atflv,
lv_density TYPE atflv,
lv_width TYPE atflv,
lv_thickness TYPE atflv,
lv_value TYPE zpp_uomvalue,
lv_z_r_gewei TYPE atwrt,
lt_zpp_vc_uomconv TYPE STANDARD TABLE OF lty_zpp_vc_uomconv INITIAL S
IZE 0,
ls_zpp_vc_uomconv TYPE lty_zpp_vc_uomconv.
CONSTANTS : lc_width TYPE atnam VALUE 'Z_WIDTH',

lc_kg_metre_ratio TYPE atnam VALUE 'Z_KG_METRE_RATIO',
lc_z_r_gewei TYPE atnam VALUE 'Z_R_GEWEI',
lc_ea(3) TYPE c VALUE 'EA',
lc_m2(3) TYPE c VALUE 'M2',
lc_mtr(3) TYPE c VALUE 'M'.
REFRESH : match,
lt_zpp_vc_uomconv.
CLEAR : lv_meter_ratio,
lv_length,
lv_density,
lv_width,
lv_thickness,
lv_value,
ls_zpp_vc_uomconv.
SELECT gewei denominator INTO TABLE lt_zpp_vc_uomconv

FROM zpp_vc_uomconv .
IF sy-subrc EQ 0.
SORT lt_zpp_vc_uomconv BY gewei.
ENDIF.
*..get value of input characteristic WIDTH

CALL FUNCTION 'CUOV_GET_FUNCTION_ARGUMENT'
EXPORTING
argument = lc_width
IMPORTING
num_val = lv_width
TABLES
query = query
EXCEPTIONS
arg_not_found = 01.
IF sy-subrc <> 0.
ENDIF.
*..get value of input characteristic Sales Unit

EXPORTING
argument = lc_z_r_gewei
IMPORTING
sym_val = lv_z_r_gewei
TABLES
query = query
EXCEPTIONS
arg_not_found = 01.
IF sy-subrc <> 0.
ENDIF.
*..get value of input characteristic Thickness

EXPORTING
argument = lc_thickness
IMPORTING
num_val = lv_thickness
TABLES
query = query
EXCEPTIONS
arg_not_found = 01.
IF sy-subrc <> 0.
ENDIF.
*..get value of input characteristic Length

EXPORTING
argument = lc_length
IMPORTING
num_val = lv_length
TABLES
query = query
EXCEPTIONS
arg_not_found = 01.
IF sy-subrc <> 0.
ENDIF.
*..get value of input characteristic Density
EXPORTING
argument = lc_density
IMPORTING
num_val = lv_density
TABLES
query = query
EXCEPTIONS
arg_not_found = 01.
IF sy-subrc <> 0.
ENDIF.
CASE lv_z_r_gewei.
WHEN lc_ea.
IF lv_width IS NOT INITIAL OR

lv_density IS NOT INITIAL OR
lv_length IS NOT INITIAL OR
lv_thickness IS NOT INITIAL .
READ TABLE lt_zpp_vc_uomconv INTO ls_zpp_vc_uomconv WITH KEY gewei = l

c_ea
BINARY SEARCH.
IF sy-subrc EQ 0 AND ls_zpp_vc_uomconv-denominator IS NOT INITIAL.
lv_meter_ratio = ( ( lv_width * lv_density * lv_length * lv_thicknes

s ) / ls_zpp_vc_uomconv-denominator ).
ENDIF.
ENDIF.
WHEN lc_m2.
IF lv_density IS NOT INITIAL OR
lv_thickness IS NOT INITIAL .

c_m2
BINARY SEARCH.
IF sy-subrc EQ 0.
lv_meter_ratio = ( ( lv_density * lv_thickness ) / ls_zpp_vc_uomcon
v-denominator ).
ENDIF.
ENDIF.
WHEN lc_mtr.
IF lv_density IS NOT INITIAL OR
lv_thickness IS NOT INITIAL OR
lv_width IS NOT INITIAL .

c_mtr
BINARY SEARCH.
IF sy-subrc EQ 0.
lv_meter_ratio = ( ( lv_density * lv_thickness * lv_width ) / ls_zp
p_vc_uomconv-denominator ).
ENDIF.
ENDIF.
WHEN OTHERS.
ENDCASE.
*..add result to the table of output characteristics
CALL FUNCTION 'CUOV_SET_FUNCTION_ARGUMENT'
EXPORTING
argument = lc_kg_metre_ratio
vtype = 'NUM'
num_val = lv_meter_ratio
TABLES
match = match
EXCEPTIONS
existing_value_replaced = 01.
ENDFUNCTION.
=========================================================================
CO_ZV_ORDER_POST
3823
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
""""""""""""""""$"$\SE:(1) Enhancement Exit EHP603_CO_ZV_ORDER_POST, Enhancem
ent PS_ST_EHP3_SFWS_SC_CO_ZV_POST, End
A
*$*$-Start: (1)--------------------------------------------------------------
-------------------$*$*
ENHANCEMENT 1 ZPP_ENH_CO_ZV_ORDER_POST. "active version
*---------------------------------------------------------------------*
* Modification : {To trigger IDOC we have to pass logical system to RCCLO
RD
* In Test Client Logical sys name is SAPPIQ, change made
* to assign correct Logical system.
* To trigger IDOC program RCCLORD is called. in Productio
n Order
uirement is
* to trigger IDOC when Prod created or change}
* Date (dd-mm-yyyy): 03-02-2016
* Reason : {RFC, SIR or Ticket}
* Searchkey :
*---------------------------------------------------------------------*
-*
low TYPE aufnr,
high TYPE aufnr,
END OF lty_aufnr.

low TYPE werks_d,
high TYPE werks_d,
END OF lty_werks.

low TYPE matnr,
high TYPE matnr,
END OF lty_matnr.
CONSTANTS : lc_sign(1) type c VALUE 'I',
lc_dev TYPE LOGSYS VALUE 'SAPPID',
lc_test TYPE LOGSYS VALUE 'SAPPIQ',
lc_prod TYPE LOGSYS VALUE 'SAPPIP',
lc_dv9 TYPE SYSID VALUE 'DV9',
lc_ts9 TYPE SYSID VALUE 'TS9',
lwa_header TYPE caufvdb,
lv_LOGSYS TYPE LOGSYS .
REFRESH : lt_aufnr,
lt_werks.
CLEAR : lwa_aufnr,
lwa_werks,
lwa_header,
lv_LOGSYS.
* -------------------------------------------------------------------------*
IF caufvd-auart eq lc_auart.
IF sy-sysid eq lc_dv9.
lv_LOGSYS = lc_dev.
ELSEIF sy-sysid eq lc_ts9.
lv_LOGSYS = lc_test.
ELSEIF sy-sysid eq lc_pr9.
lv_LOGSYS = lc_prod.
else.
lv_LOGSYS = space.
ENDIF.
export gs_caufvd = caufvd to MEMORY id 'PRODORD'.

lwa_werks-low = caufvd-werks.
CLEAR : lwa_werks.
lwa_aufnr-low = caufvd-aufnr.
CLEAR : lwa_aufnr.
lwa_matnr-low = caufvd-matnr.
CLEAR : lwa_matnr.
* COMMIT WORK AND WAIT.
wait UP TO 5 SECONDS.
with s_matnr in lt_matnr
WITH opt_sys EQ lv_LOGSYS
ENDIF.
ENDENHANCEMENT.
*$*$-End: (1)--------------------------------------------------------------
-------------------$*$*
ENDENHANCEMENT.
*$*$-End: EHP603_CO_ZV_ORDER_POST------------------------------------------
-------------------$*$*
ENDFUNCTION.
***INCLUDE MV45AFZA .
************************************************************************
* *
* This include is reserved for user modifications *
* *
* Forms for sales document processing *
* *
* The name of modification modules should begin with 'ZZ'. *
* *
************************************************************************
*---------------------------------------------------------------------*
* FORM USEREXIT_MOVE_FIELD_TO_KOMKD *
*---------------------------------------------------------------------*
* This userexit can be used to move some fields into the *
* communication workarea for product substitution. *
* *
* This form is called from form KOMKD_KOMPD_FUELLEN. *
* *
*---------------------------------------------------------------------*
FORM USEREXIT_MOVE_FIELD_TO_KOMKD.
* KOMKD-zzfield = xxxx-zzfield2.
ENDFORM.
*eject
*---------------------------------------------------------------------*
* FORM USEREXIT_MOVE_FIELD_TO_KOMPD *
*---------------------------------------------------------------------*
* communication workarea for product substitution. *
* *
* This form is called from form KOMKD_KOMPD_FUELLEN. *
* *
*---------------------------------------------------------------------*
FORM USEREXIT_MOVE_FIELD_TO_KOMPD.
* KOMPD-zzfield = xxxx-zzfield2.
ENDFORM.
*eject
*---------------------------------------------------------------------*
* FORM USEREXIT_MOVE_FIELD_TO_KOMKG *
*---------------------------------------------------------------------*
* communication workarea for product listing or exclusion. *
* *
* This form is called from form KOMKG_KOMPG_FUELLEN. *
* *
*---------------------------------------------------------------------*
FORM USEREXIT_MOVE_FIELD_TO_KOMKG.
* KOMKG-zzfield = xxxx-zzfield2.
ENDFORM.
*eject
*---------------------------------------------------------------------*
* FORM USEREXIT_MOVE_FIELD_TO_KOMPG *
*---------------------------------------------------------------------*
* communication workarea for product listing or exclusion. *
* *
* This form is called from form KOMKG_KOMPG_FUELLEN. *
* *
*---------------------------------------------------------------------*
FORM USEREXIT_MOVE_FIELD_TO_KOMPG.
* KOMPG-zzfield = xxxx-zzfield2.
ENDFORM.
*eject
*---------------------------------------------------------------------*
* FORM USEREXIT_REFRESH_DOCUMENT *
*---------------------------------------------------------------------*
* It is always necessary to refresh user-specific data before *
* the next document will be processed. *
* This can be done in this userexit. *
* This userexit can be used to refresh user-specific data *
* when the processing of a sales document is finished *
* - after the document is saved *
* - when you leave the document processing with F3 or F15 *
* It may be necessary to refresh user-specific data before *
* the next document will be processed. *
* *
* This form is called in dialog at the end of form *
* BELEG_INITIALISIEREN *
* *
*---------------------------------------------------------------------*
FORM USEREXIT_REFRESH_DOCUMENT.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
""""""""""""""""$"$\SE:(1) Form USEREXIT_REFRESH_DOCUMENT, Start
A
*$*$-Start: (1)--------------------------------------------------------------
-------------------$*$*
ENHANCEMENT 1 ZPP_ENH_PROD_ORDER_IDOC. "active version
include ZI_PP_PROD_ORDR_SEND_QUINTIQ.
ENDENHANCEMENT.
*$*$-End: (1)--------------------------------------------------------------
-------------------$*$*
* clear: zz45a.
* refresh: zzitemtab.
ENDFORM.
*eject
=================================================================
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*---------------------------------------------------------------------*
uirement is
* Date (dd-mm-yyyy): 10-03-2016
* Reason : NA
*---------------------------------------------------------------------*
* DATE : 20.04.2016 *
*&---------------------------------------------------------------------*
-*
low TYPE aufnr,
high TYPE aufnr,
END OF lty_aufnr.

low TYPE werks_d,
high TYPE werks_d,
END OF lty_werks.

low TYPE matnr,
high TYPE matnr,
END OF lty_matnr.
*-------------------------------------------------------------------------*

*-------------------------------------------------------------------------*
REFRESH : lt_aufnr,
lt_werks.
CLEAR : lwa_aufnr,
lwa_werks,
lv_logsys.
CLEAR : gs_caufvd.
*-------------------------------------------------------------------------*
*-------------------------------------------------------------------------*
lv_logsys = lc_dev.
ELSE.
lv_logsys = space.
ENDIF.
CLEAR : lwa_werks.
CLEAR : lwa_aufnr.
CLEAR : lwa_matnr.

REFRESH : lt_aufnr,
lt_werks.
CLEAR : lwa_aufnr,
lwa_werks,
lv_logsys.
CLEAR : gs_caufvd.
ENDIF.

Method: z100217 - Inboundii - Si - Ia - Work - I Notify

Uploaded by

Copyright:

Available Formats

Method: z100217 - Inboundii - Si - Ia - Work - I Notify

Uploaded by

Document Information

Original Title

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

Method: z100217 - Inboundii - Si - Ia - Work - I Notify

Uploaded by

Copyright:

Available Formats

What are the main modifications that have been done to the program?

What are the main modifications that have been done to the program?

What issues have been addressed by the modifications?

What issues have been addressed by the modifications?

METHOD z100217_inboundii_si_ia_work_i~notify.

*** **** INSERT IMPLEMENTATION HERE **** ***

* End of A236938 DV9K902874

* End of A236938 DV9K902740

* ls_order TYPE z100217_inboundsi_ia_work_ins2. "Proxy

IF ( ls_return-type EQ lc_success AND

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

IF ( ls_return-type EQ lc_success AND

IF ( ls_return-type EQ lc_success AND

DELETE FROM zpp_wi_header WHERE aufnr EQ ls_header-

* End of A236938 DV9K901707

IF ls_header IS NOT INITIAL.

* Assign Data to BAPI Header

CALL FUNCTION 'UNIT_OF_MEASURE_ISO_TO_SAP'

IF ls_header-object_id IS NOT INITIAL.

* Begin of A236938 DV9K902874

* End of A236938 DV9K902874

* Assign Characteristic Value

* Begin of A236938 DV9K902874

* Begin of A236938 DV9K902874

* End of A236938 DV9K902874

* Begin of A236938 DV9K902740

* Insert Component for the below type

** begin of A236938 DV9K901707

IF ls_material-material_number IS NOT INITIAL.

READ TABLE lt_zpp_wi_component INTO ls_zpp_wi_component

* Begin of A236938 DV9K902874

* CALL FUNCTION 'UNIT_OF_MEASURE_ISO_TO_SAP'

* End of A236938 DV9K902874

*************************** Scrap Component******************

* Begin of A236938 DV9K902874

* Begin of A236938 DV9K902740

* IF lv_meins EQ lc_kg AND lv_base_unit EQ lc_mtk.

* Begin of A236938 DV9K902874

IF ls_orderdata-order_number IS NOT INITIAL.

IF ( ls_return-type EQ lc_success AND

* Update Error log in SLG1

CONSTANTS : lc_ea TYPE meins VALUE 'EA',

DATA : ls_density_tmp TYPE p DECIMALS 2,

* Check Production Order already exist or not

* Create Production Order

* insert operation into Production Order

* release Production Order Data

* Delete Dummy Settlement Rule and insert New Rule

* Delete Operation and Component of production order

IF ( pr_ex_order_number IS NOT INITIAL OR

* fetch object number from Production order Header

* check production order is not already released

SELECT SINGLE purchasing_group

LOOP AT lt_p_im_operation INTO ls_p_im_operation .

IF ls_p_im_operation-work_center IS NOT INITIAL .

IF ls_p_im_operation-control_key EQ lc_zpp2 AND lv_ekgrp IS NOT INITIAL

IF ls_p_im_operation-control_key EQ lc_zpp2 AND lv_matkl IS NOT INITIAL

IF lt_operation IS NOT INITIAL .

CALL FUNCTION 'CO_SE_PRODORD_OPR_DELETE'

* INSERT IMPLEMENTATION HERE *

********* Scrap Component