Error in GETWA_NOT_ASSIGNED in VL10A
Dear All,<br><br>
Recently we upgrade 4.6c to ECC 6. After that we have a problem, while we run the Sales return useing VL10A in background, it's going to dump.<br><br>
<br>Error is,
<pre>GETWA_NOT_ASSIGNED.
What happened?
Error in the ABAP Application Program
The current ABAP program "SAPLV50S" had to be terminated because it has
come across a statement that unfortunately cannot be executed.
Error analysis
You attempted to access an unassigned field symbol
(data segment 466).
This error may occur if
- You address a typed field symbol before it has been set with
ASSIGN
- You address a field symbol that pointed to the line of an
internal table that was deleted
- You address a field symbol that was previously reset using
UNASSIGN or that pointed to a local field that no
longer exists
- You address a global function interface, although the
respective function module is not active - that is, is
not in the list of active calls. The list of active calls
can be taken from this short dump.
*Trigger Location of Runtime Error *
Program SAPLV50S
Include /SPE/V50SF07
Row 437
Module type (FORM)
Module Name /SPE/RET_HUS_GET
429 ****************************************************
430 * This should only run in delivery item processing
431 ****************************************************
432 CHECK if_get_hus IS INITIAL.
433
434
435
436 *...First: Read corresponding item(s) of HU(S) to delivery item
>>>> LOOP AT verpo_tab ASSIGNING <fs_verpo_tab> WHERE vbeln = xlips-vbeln AND
438 posnr = xlips-posnr.
439
440 *...Second: Read corresponing HU head send by EWM for necessary compare of VENUM
441
442 READ TABLE verko_tab INTO ls_verko_tab WITH KEY venum = <fs_verpo_tab>-venum
443 BINARY SEARCH.
<fs_verko_tab> local data field was not found in subroutine SAPLV50S</pre>
<br><br>
Please could you help me as soon as possible.
<br><br>
Thanks & Regards,<br>
Ahmed Arsath. A
<br><br>
Edited by: Ahmed Arsath Abdul Azees on Dec 15, 2009 7:48 AM
<br><br>Edited by: Matt on Dec 15, 2009 12:48 PM - fixed formatting
The code is
LOOP AT verpo_tab ASSIGNING <fs_verpo_tab> WHERE vbeln = xlips-vbeln AND
posnr = xlips-posnr.
Total nonsense to say that the problem is caused by verpo_tab being empty.
As I've already said: unless this is part of a user exit it is standard SAP code. The original poster hasn't left anything out! Therefore OSS is the correct place to look.
Edited by: Matt on Dec 15, 2009 4:52 PM
Similar Messages
-
Error in "GETWA_NOT_ASSIGNED" in cor1 tocde ?
Hi Exports,
In Development system process order is creating successfully in COR1 tcode but
in production system while creating process order it is giving error,
The error is "GETWA_NOT_ASSIGNED"
what is the problem ? pls help me in this.Hi Ram ,
GETWA_NOT_ASSIGNED means that any field-symbol is unassigned.
You can do the following:
a) Go to st22
b) Check Active Call events.
c) Isolate the field-symbol which is unassigned.
d) Make sure you have performed the check if the field-symbol is assigned.
If you need further help please post the code which is dumping.
Regards
Kavindra -
Facing a Runtime Error u201C GETWA_NOT_ASSIGNED u201C in report at background
Hi All,
I am facing a Runtime Error u201C GETWA_NOT_ASSIGNED u201C when a custom report is executed in the background,
whereas the same report in getting executed properly in foreground.
The reason, which, the Dump Analysis specifies is u201C Field symbol has not yet been assigned in the ABAP program "SAPLKKBL "
Any one pls. let me know the solution
I have already checked my field catalog & all the field names are in Capital.
Please suggest the solution.
Thanks in advance.
Thanks & Regards,
Sudhir Dure
9972097464please check the fields in the output display with currency /quantity fields/packed decimal fields...
try by moving the data into a char field..it will work.. -
Getting error message GETWA_NOT_ASSIGNED"
Hi,
I created a report for the uploading of the excel data in the system and displaying in the alv grid display.
I am getting an error message "GETWA_NOT_ASSIGNED" .
Can anyone tell whats the problem in the feildcat and how to resolve it.
I think the problem is in BUILD_CATALOG.
{ FORM BUILD_CATALOG.
WA_FIELDCAT-OUTPUTLEN = '15' .
WA_FIELDCAT-FIELDNAME = 'PROCESSING TYPE'.
wa_fieldcat-fieldname = 'proctype'.
wa_fieldcat-tabname = 'ZNEWFINE_045'.
APPEND WA_FIELDCAT TO IT_FIELDCAT .
CLEAR WA_FIELDCAT .
WA_FIELDCAT-OUTPUTLEN = '15' .
WA_FIELDCAT-FIELDNAME = 'PROCESSING TYPE'.
wa_fieldcat-fieldname = 'BLART'.
wa_fieldcat-tabname = 'ZNEWFINE_045'.
APPEND WA_FIELDCAT TO IT_FIELDCAT .
CLEAR WA_FIELDCAT.
wa_fieldcat-no_out = ''.
ENDFORM.
FORM BUILD_LAYOUT.
FS_LAYOUT-WINDOW_TITLEBAR = 'EXCEL JOURNAL UPLOAD'.
FS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
ENDFORM.
Edited by: neel_arya15 on May 24, 2011 1:04 PMHi,
Instead of
wa_fieldcat-fieldname = 'proctype'.
Try with
wa_fieldcat-fieldname = 'PROCTYPE'.
Thanks and Regards,
Chandra -
Urgent: getting error while pressing SAVE button on final grid screen
Hi ABAPers,
please help me to sort this problem, i want to save the records selected by the user to database table. but when i m pressing save on o/p grid screen its giving error as GETWA_NOT_ASSIGNED.
This is my code
TABLES: plaf,
mara,
makt,
zcdr_d.
Type Pools for ALV *************************************
TYPE-POOLS: SLIS,
ABAP.
TYPES DECLARATION ************************************
TYPES:
******Types declaration for the plaf
BEGIN OF ty_plaf,
plnum TYPE plaf-plnum,
matnr TYPE plaf-matnr,
END OF ty_plaf,
******Types declaration for the makt
BEGIN OF ty_makt,
maktx TYPE makt-maktx,
END OF ty_makt.
INTERNAL TABLE DECLARATION ***************************
DATA:
*---internal table for the type ty_plaf
it_plaf TYPE TABLE OF ty_plaf,
*---internal table for the type t_bseg
it_makt TYPE TABLE OF ty_makt,
*---internal table for fieldcat
it_fcat TYPE TABLE OF slis_fieldcat_alv WITH NON-UNIQUE DEFAULT KEY
WITH HEADER LINE INITIAL SIZE 0,
*it_fcat1 TYPE TABLE OF slis_fieldcat_alv WITH NON-UNIQUE DEFAULT KEY
*WITH HEADER LINE INITIAL SIZE 0,
*---internal table for alv events
it_events TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
WITH HEADER LINE INITIAL SIZE 0,
*it_events1 TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
*WITH HEADER LINE INITIAL SIZE 0,
*---final Internal table
BEGIN OF it_final OCCURS 0,
plnum LIKE plaf-plnum,
sel TYPE C,
matnr LIKE plaf-matnr,
maktx LIKE makt-maktx,
END OF it_final,
BEGIN OF it_zcdr_d OCCURS 0,
DSEL TYPE C,
CBOOKNO LIKE zcdr_d-CBOOKNO,
PLNUM LIKE zcdr_d-plnum,
MATNR LIKE zcdr_d-matnr,
MAKTX LIKE zcdr_d-maktx,
END OF it_zcdr_d,
*-------to pass the internal table data to database table
itab TYPE TABLE OF zcdr_d with header line,
it_save TYPE TABLE OF zcdr_d with header line.
WORK AREA DECLARATION ********************************
DATA:
*---workarea for the type ty_plaf
wa_plaf TYPE ty_plaf,
*---workarea for the type ty_makt
wa_makt TYPE ty_makt,
*---workarea for the fieldcatalog
wa_fcat TYPE slis_fieldcat_alv,
wa_final LIKE LINE OF it_final,
*---WORKAREA FOR THE PROCESSED DOCUMENT
wa_zcdr_d LIKE LINE OF it_zcdr_d,
*---LAYA OUT DECLARATION
wa_layout TYPE slis_layout_alv.
*---LAYA OUT DECLARATION
*wa_layout1 TYPE slis_layout_alv.
Variables DECLARATION ********************************
DATA: v_repid LIKE SY-REPID,
v_hkont LIKE bseg-hkont,
v_pifno(16) TYPE C,
v_pifdat LIKE SY-DATUM,
v_pif(6) TYPE C,
Field_Cat type Slis_T_fieldcat_alv with HEADER LINE,
List_Top_Of_Page type Slis_T_Listheader.
PARAMETERS ****************************************
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS : CBOOKNO(16) TYPE n OBLIGATORY. "Customs Book number
SELECTION-SCREEN END OF BLOCK b1.
SELECT OPTION ****************************************
SELECTION-SCREEN : BEGIN OF BLOCK blk WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS:
Date
so_pertr for plaf-pertr,
Material
so_matnr for plaf-matnr,
Material Group
so_matkl for mara-matkl,
Plant
so_plwrk for plaf-plwrk OBLIGATORY,
Sales Order
so_kdauf for plaf-kdauf.
SELECTION-SCREEN : END OF BLOCK blk.
LOAD OF PROGRAM ***************************************
*LOAD-OF-PROGRAM.
*IF sy-tcode NE text-002. "Condition for TCode Check
MESSAGE 'RUN THROUGH THE TRANSACTION CODE' TYPE 'X'.
*ENDIF. "End Condition for TCode
INITIALIZATION ****************************************
INITIALIZATION.
PERFORM CLEAR_DATA.
CLEAR: wa_layout.
START-OF-SELECTION *************************************
START-OF-SELECTION.
*-------Getting the data from database
PERFORM GET_DATA.
*-------Populating field catalog
PERFORM populate_fieldcatalog.
PERFORM set_events USING it_events[].
PERFORM top_of_page.
*------Processing the Data and Moving to final Internal Table
*PERFORM PROCESS_DATA.
*------Displaying the data in the Output
PERFORM DISPLAY_OUTPUT.
*end-of-SELECTION.
*call screen 0500.
**& Module d0100_set_status OUTPUT
text
*module d0500_set_status output.
data : rt_extab TYPE slis_t_extab.
perform set_pf_status USING rt_extab.
*endmodule. " d0100_set_status OUTPUT
*module d0100_fcode input.
perform user_command.
*endmodule. " d0100_fcode INPUT
form CLEAR_DATA .
**CLEARDING THE TABLES AND WORK AREAS
CLEAR: it_plaf[],
it_makt[],
wa_plaf,
wa_makt.
endform. " CLEAR_DATA
*& Form GET_DATA
text
--> p1 text
<-- p2 text
form populate_fieldcatalog.
DATA: L_POS TYPE I.
FIELD_CAT-COL_POS = L_POS.
L_POS = L_POS + 1.
CLEAR FIELD_CAT.
field_cat-SELTEXT_M = 'Planned Order Nos.'.
field_cat-tabname = wa_final.
field_cat-fieldname = 'PLNUM'.
append field_cat.
FIELD_CAT-COL_POS = L_POS.
L_POS = L_POS + 1.
CLEAR FIELD_CAT.
*field_cat-checkbox = 'X'.
field_cat-SELTEXT_M = 'Check Box'.
Field_Cat-outputlen = '1'.
field_cat-tabname = wa_final.
field_cat-checkbox = abap_true.
field_cat-edit = abap_true.
field_cat-fieldname = 'CHK'.
append field_cat.
FIELD_CAT-COL_POS = L_POS.
L_POS = L_POS + 1.
CLEAR FIELD_CAT.
field_cat-SELTEXT_M = 'Material'.
field_cat-tabname = wa_final.
field_cat-fieldname = 'MATNR'.
append field_cat.
FIELD_CAT-COL_POS = L_POS.
L_POS = L_POS + 1.
CLEAR FIELD_CAT.
field_cat-SELTEXT_M = 'Material Description'.
field_cat-tabname = wa_final.
field_cat-fieldname = 'MAKTX'.
append field_cat.
endform. " build_fieldcatalog
form GET_DATA .
SELECT
a~PLNUM
a~MATNR
b~MAKTX
c~matkl
INTO CORRESPONDING FIELDS OF TABLE it_final
FROM plaf as a
Inner join makt as b
on amatnr = bmatnr
Inner join mara as c
on cmatnr = bmatnr
where a~pertr in so_pertr
or a~matnr in so_matnr
or c~matkl in so_matkl
or a~kdauf in so_kdauf
or a~plwrk in so_plwrk.
SORT it_final by plnum.
endform. " GET_DATA
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = List_Top_Of_Page.
ENDFORM.
form DISPLAY_OUTPUT .
DATA: repid LIKE sy-REPID,
Eventcat type Slis_T_Event,
LAYOUT TYPE SLIS_LAYOUT_ALV.
LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
LAYOUT-ZEBRA = 'X'.
repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = repid
I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE = 'PLANNED ORDERS'
I_GRID_SETTINGS =
IS_LAYOUT = layout
IT_FIELDCAT = Field_Cat[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = 'X'
IS_VARIANT =
IT_EVENTS = IT_EVENTS[]
TABLES
T_OUTTAB = it_final
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.
FORM set_events USING it_events TYPE slis_t_event.
DATA: x_event TYPE LINE OF slis_t_event.
clear x_event.
x_event-name = 'USER_COMMAND'.
x_event-form = 'USER_COMMAND'.
append x_event to it_events.
CLEAR x_event.
call function 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = IT_EVENTS
EXCEPTIONS
LIST_TYPE_WRONG = 1
OTHERS = 2
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
read table it_events into x_event with key name = 'USER_COMMAND'.
if sy-subrc = 0.
x_event-form = 'USER_COMMAND'.
modify it_events from x_event index sy-tabix transporting form .
endif.
ENDFORM.
FORM set_pf_status USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'Z_PFSTAT'.
ENDFORM. "set_pf_status
*& Form user_command
text
-->R_UCOMM text
-->RS_SELFIELDtext
FORM user_command USING
r_ucomm TYPE sy-ucomm
rs_selfield TYPE slis_selfield. "#EC *
if r_ucomm = '&DATA_SAVE' .
LOOP AT it_final INTO wa_final.
IF wa_final-sel EQ 'X'.
MOVE: wa_final-plnum TO it_save-plnum,
wa_final-matnr TO it_save-matnr,
wa_final-maktx TO it_save-maktx,
v_pifno TO it_save-CBOOKNO,
SY-MANDT TO it_save-mandt.
MOVE it_save to zcdr_d.
*INSERT zcdr_d.
*if l_valid = 'X'.
MODIFY zcdr_d FROM TABLE it_save.
endif.
ENDLOOP.
IF it_save is initial.
MESSAGE 'Select Atleast one Check Box' TYPE 'E' .
ELSE.
*CONCATENATE 'Number ' V_PIFNO ' Genrated'
IF SY-SUBRC EQ 0.
MESSAGE S001(zcdr_d) WITH 'Number ' CBOOKNO ' Genrated'.
ENDIF.
endif.
ENDFORM.Thanks a lot for the reply Kiran, but i have already checked it, but its the same one. In debugging mode its going for error when there is a call for method like:
call method gt_grid-grid->set_function_code
changing
c_ucomm = l_okcode.
so i dont know where is the problem. & this is in PAI module of the system program.
Thanks
Pankaj -
Asset master creation (run time error)
Dear all
I am facing problem with asset accounting at that time creation of asset master getting to run time error message
Error message: GETWA_NOT_ASSIGNED
Fields symbol not yet been assigned(segment 32770)
Thanks & Regards
suresh
Edited by: prasad y on Jul 5, 2011 3:23 PMDear:
Please check notes, they have to be implemented in the system
992846
988238
Regards -
Error when select posting level in document type
Hi,
Did anyone have an experience to face the Abab run time error when select "posting level" in document type?
The Error is : GETWA_NOT_ASSIGNED
Short text
Field symbol has not yet been assigned.
What happened?
Error in the ABAP Application Program
The current ABAP program "CL_UC_ITKEY_FACTORY===========CP" had to be
terminated because it has
come across a statement that unfortunately cannot be executed.If you searched the notes, as Dan proposed (and didn't find anything relevant), and the answer to the Greg's question is positive, then I would suggest regeneration data basis and ConsArea due to data model inconsistency.
If it doesn't not help - open customer message to SAP.
Edited by: Eugene Khusainov on Jan 26, 2010 10:26 AM -
hi,
when i am creating an quotation from the existing quotation using the COPY button in the crmd_order
i get an runtime error (DUMP)
"GETWA_NOT_ASSIGNED" C
"SAPLSLVC" or "LSLVCF36"
"DATA_TABLE_FILL"
this is happenning in production server, but in the development and quality and maintenance servers
we are not facing this dump.
can you please explain, how to proceed in fixing this dump..
ADV. thanks
dhineshsm.Try SAP Notes 431889 and 1004771. See if they help.
Edited by: Amar Nath on Aug 28, 2008 7:27 PM -
Problem in migration of Territory Attributes - dump : GETWA_NOT_ASSIGNED
Hi,
I am trying to migrate CRM Territory attributes using rule builder. But, I am getting run time error saying 'GETWA_NOT_ASSIGNED.
Program : CRM_TERRMAN_DATA_MIGRATION
Termination occurred in the ABAP program "CRM_TERRMAN_DATA_MIGRATION" - in
"EXECUTE_DM".
Code Extract:
777 LOOP AT lt_data_mig_output_all ASSIGNING <fs_data_mig_output_all> .
778 READ TABLE lt_terr_rule_dm ASSIGNING <fs_terr_rule_dm>
779 WITH KEY terr_id = <fs_data_mig_output_all>-terr_id .
780 IF <fs_data_mig_output_all>-success = '3'. "green
781 <fs_terr_rule_dm>-status = '@08@'.
782 ELSE.
783 <fs_terr_rule_dm>-status = '@0A@'. "red.
784 ENDIF.
>>>>> MODIFY lt_terr_rule_dm INDEX sy-tabix
786 FROM <fs_terr_rule_dm> TRANSPORTING status .
787 ENDLOOP.
Can you please let me know, how can I solve my issue.
Thanks,
SandeepHi Sandeep,
Can you please check what's the value in lt_terr_rule_dm, sy-tabix and <fs_terr_rule_dm> in debug mode?
If possible, can you please attach the debuggin screen?
Or, please report an SAP Customer Message, because it seems to be a standard coding problem.
Best regards,
Maggie -
Run time error in ALV editable
Hi Gurus
I am getting a run time error when I edit a field in the ALV report and press enter. The run time error is : GETWA_NOT_ASSIGNED. It says I tried to access an unassigned field symbol. I have not used any field symbols in my field catalog or anywhere. It also says that the location of the termination was : cl_gui_alv_grid .
I have to get this report working today at anycost. Any help will be very usefulYes , I have internal tables , a whole lot of them ...here is the code.
REPORT ZSCREENREPORT NO STANDARD PAGE HEADING MESSAGE-ID YE.
TABLES : VBUK ,
VEPVG ,
LIKP ,
VTTP ,
LIPS ,
LQUA ,
MAKT.
DATA : PWERKS TYPE LIPS-WERKS , PLGNUM TYPE LIPS-LGNUM.
DATA PTKNUM TYPE VTTP-TKNUM.
DATA PVBELN TYPE LIPS-VBELN.
DATA : t_toolbar type ui_functions with header line.
DATA OKCODE LIKE SY-UCOMM.
DATA S_OKCODE LIKE SY-UCOMM.
DATA B_VIEWREPORT.
DATA B_CLEARALL.
DATA B_PRINT.
DATA pr_data_changed TYPE REF TO cl_alv_changed_data_protocol.
*DATA: g_event_receiver TYPE REF TO lcl_event_receiver.
*TYPES: PR_DATA_CHANGED TYPE xxxxxx.
*TYPES: LCL_EVENT_RECEIVER TYPE .
class lcl_event_receiver definition deferred.
selection-screen begin of block b2 with frame title text-001.
selection-screen begin of block b1 with frame.
BLOCK B1 FOR FIRST SET OF SELECT OPTIONS
ALL ENTRIES ARE NECESSARY IN THIS BLOCK
SELECT-OPTIONS : S_ORG FOR LIKP-VKORG MODIF ID B1, "Sales Org
S_DISCHA FOR LIKP-VTWIV MODIF ID B1, "Dis Cha
S_DIV FOR LIKP-SPAIV MODIF ID B1, "Division
S_SPOINT FOR LIKP-VSTEL MODIF ID B1. "Shipping
"point
selection-screen end of block b1.
selection-screen begin of block b3 with frame.
*BLOCK B3 FOR PICKING DATE . THIS FIELD IS OBLIGATORY
PARAMETERS : P_DEL LIKE VBUK-KOSTK DEFAULT 'A'.
SELECT-OPTIONS : S_PICDAT FOR LIKP-KODAT OBLIGATORY ,
S_PGDAT FOR LIKP-WADAT .
selection-screen end of block b3.
selection-screen begin of block b4 with frame.
BLOCK B4 FOR SHIPMENT NUMBER / DELIVERY NUMBER. ONLY ONE CAN BE
*ENTERED
SELECT-OPTIONS: S_SHNUM FOR VTTP-TKNUM MODIF ID B2 , " Shipment
"Number
S_DENUM FOR LIKP-VBELN MODIF ID B2 . " Delivery
" Number
selection-screen end of block b4.
PARAMETERS : C_BBINS AS CHECKBOX .
selection-screen end of block b2.
RANGES : R_ORG FOR VEPVG-VKORG , "Sales Org
R_DISCHA FOR VEPVG-VTWEG , "Dis Cha
R_DIV FOR VEPVG-SPART , "Division
R_SPOINT FOR VEPVG-VSTEL , "Shipping point
R_PICDAT FOR LIKP-KODAT , " Planned Pick Date
R_PGDAT FOR LIKP-WADAT , " Planned goods issue
R_SHNUM FOR VTTK-TKNUM , " Shipment Number
R_DENUM FOR LIKP-VBELN , " Delivery Number
R_VBELN FOR VBUK-VBELN ,
R_MATNR FOR LIPS-MATNR .
DATA : BEGIN OF ITAB1 OCCURS 0.
DATA: MATL LIKE LIPS-MATNR,
QUANT LIKE LIPS-LFIMG,
UOM LIKE LIPS-VRKME,
KUNR LIKE LIKP-KUNNR ,
WERKS LIKE LIKP-WERKS,
LGNUM LIKE LIPS-LGNUM,
LGTYP LIKE LIPS-LGTYP ,
VBELN LIKE LIPS-VBELN ,
TKNUM LIKE VTTP-TKNUM.
DATA : END OF ITAB1.
DATA : BEGIN OF ITAB2 OCCURS 0.
DATA :
MATL LIKE LIPS-MATNR,
QUANT TYPE I,
UOM LIKE LIPS-VRKME,
KUNR LIKE LIKP-KUNNR.
DATA : END OF ITAB2.
DATA : BEGIN OF ITAB3 OCCURS 0.
DATA : MATL LIKE LIPS-MATNR,
QUANT LIKE LIPS-LFIMG,
UOM LIKE LIPS-VRKME,
KUNR LIKE LIKP-KUNNR.
DATA : END OF ITAB3.
DATA : BEGIN OF ITAB_VBELN OCCURS 0.
DATA : IBLN LIKE VBUK-VBELN.
DATA : END OF ITAB_VBELN.
DATA : BEGIN OF DEMANDTAB OCCURS 0.
DATA : D_MATL LIKE LIPS-MATNR,
D_MQUANT LIKE LIPS-LFIMG,
D_MUOM LIKE LIPS-VRKME,
D_QUANT LIKE LIPS-LFIMG,
D_UOM LIKE LIPS-VRKME,
D_KUNR LIKE LIKP-KUNNR.
DATA : END OF DEMANDTAB.
DATA : VMATNR LIKE LIPS-MATNR,
VKUNR LIKE LIKP-KUNNR,
VQUANT LIKE LIPS-VRKME.
DATA : BEGIN OF INVTAB OCCURS 0.
DATA : IMATL LIKE LIPS-MATNR,
IBINLOC LIKE LQUA-LGPLA,
IBATCH LIKE LQUA-CHARG,
IWARSTK LIKE LQUA-VERME,
IUOM LIKE LQUA-MEINS.
DATA : END OF INVTAB.
DATA : BEGIN OF ITABX OCCURS 0.
DATA : XMATL LIKE LIPS-MATNR,
XMATDESC LIKE MAKT-MAKTX,
XQUANT TYPE I,
XUOM LIKE LIPS-VRKME,
XBALQ TYPE I.
EXPAND.
DATA : END OF ITABX.
DATA : BEGIN OF ITABMASTER OCCURS 0 .
DATA : MMATL LIKE LIPS-MATNR,
MKUNR LIKE LIKP-KUNNR,
M_KQUANT TYPE I,
M_KUOM LIKE LIPS-VRKME,
MBINLOC LIKE LQUA-LGPLA,
MBATCH LIKE LQUA-CHARG,
MWATSTK LIKE LQUA-VERME,
M_IUOM LIKE LQUA-MEINS.
DATA : END OF ITABMASTER.
DATA : BEGIN OF ITABDESC OCCURS 0.
DATA : MATNR LIKE MAKT-MATNR,
MATDESC LIKE MAKT-MAKTX.
DATA : END OF ITABDESC.
TYPES : BEGIN OF ITABT ,
FMATL LIKE LIPS-MATNR,
FINDEX LIKE SY-TABIX,
FKEY LIKE LIPS-MATNR,
FMATDESC LIKE MAKT-MAKTX,
FQUANT LIKE LIPS-LFIMG,
FUOM LIKE ITAB1-UOM,
FKUNR LIKE LIKP-KUNNR,
F_KQUANT LIKE LIPS-LFIMG,"TYPE I,
F_KUOM LIKE LIPS-VRKME,
F_BALQUANT LIKE LIPS-LFIMG,"TYPE I,
FBINLOC LIKE LQUA-LGPLA,
FBATCH LIKE LQUA-CHARG,
FWATSTK LIKE LQUA-VERME,
F_IUOM LIKE LQUA-MEINS ,
SEL_QUANT type LIPS-LFIMG," corr_1,
END OF ITABT.
DATA : BEGIN OF FLAGTAB OCCURS 0 .
DATA : SEL_QUANT TYPE I , FKEY LIKE LIPS-MATNR.
DATA : END OF FLAGTAB.
DATA : ITAB type ITABT occurs 0 with header line .
data : itab_w like line of itab .
DATA t_layout type lvc_s_layo.
DATA: ok_code LIKE sy-ucomm .
DATA:
go_grid TYPE REF TO cl_gui_alv_grid,
go_custom_container TYPE REF TO cl_gui_custom_container.
DATA : I_SELECTED_ROWS TYPE LVC_T_ROW,
W_SELECTED_ROWS TYPE LVC_T_ROW,
I_MODIFIED TYPE STANDARD TABLE OF ITABT,
W_MODIFIED TYPE ITABT,
WA TYPE ITABT.
*field catalogs -
DATA : WA_FIELDCAT TYPE lvc_t_fcat with header line.
data : fcat type lvc_t_fcat WITH HEADER LINE .
FIELD-SYMBOLS : <FS_FIELDCAT> TYPE LVC_S_FCAT .
DATA : V_VALID TYPE C.
clear fcat.
CLASS LCL_EVENTS_D0100 DEFINITION
CLASS LCL_EVENT_receiver DEFINITION.
PUBLIC SECTION.
METHODS :
handle_data_changed for event data_changed
of cl_gui_alv_grid
IMPORTING er_data_changed.
ENDCLASS.
data : my_application type ref to lcl_event_receiver.
CLASS LCL_EVENTS_D0100 IMPLEMENTATION
CLASS LCL_EVENT_receiver IMPLEMENTATION.
METHOD handle_data_changed.
DATA: ls_good TYPE lvc_s_modi.
DATA : L_PLANETYPE TYPE LIPS-ANZSN.
data : swapper type LIPS-ANZSN .
LOOP AT er_data_changed->mt_good_cells INTO ls_good.
CASE ls_good-fieldname.
WHEN 'SEL_QUANT'.
CALL METHOD pr_data_changed->get_cell_value
EXPORTING
i_row_id = ls_good-row_id
i_fieldname = ls_good-fieldname
IMPORTING
e_value = l_planetype.
*read table itab into itab_w index ls_good-row_id.
swapper = itab_w-f_balquant - l_planetype.
move swapper to itab_w-f_balquant.
modify itab FROM itab_w .
ENDCASE.
ENDLOOP.
ENDMETHOD.
ENDCLASS.
DATA: g_event_receiver TYPE REF TO lcl_event_receiver.
INITIALIZATION.
S_PICDAT-SIGN = 'I'.
S_PICDAT-OPTION = 'BT'.
S_PGDAT-SIGN = 'I'.
S_PGDAT-OPTION = 'BT'.
S_PICDAT-LOW = SY-DATUM.
S_PICDAT-HIGH = SY-DATUM + 1.
APPEND S_PICDAT.
S_PGDAT-LOW = SY-DATUM.
S_PGDAT-HIGH = SY-DATUM + 1.
APPEND S_PGDAT.
**--VALIDATIONS--
AT SELECTION-SCREEN .
IF S_ORG IS initial AND S_DISCHA IS INITIAL AND S_DIV IS
INITIAL AND S_SPOINT IS initial AND S_SHNUM IS INITIAL AND S_DENUM IS
INITIAL .
MESSAGE E082(YE) WITH 'AT LEAST ONE FIELD MUST BE ENTERED'.
ENDIF.
DATA LV_COUNT TYPE I VALUE 0.
IF NOT S_ORG IS initial OR NOT S_DISCHA IS INITIAL OR NOT S_DIV IS
INITIAL OR NOT S_SPOINT IS initial.
lv_COUNT = 1.
ENDIF.
IF NOT S_SHNUM IS INITIAL .
LV_COUNT = LV_COUNT + 1.
ENDIF.
IF NOT S_DENUM IS INITIAL .
LV_COUNT = LV_COUNT + 1.
ENDIF.
IF LV_COUNT > 1.
MESSAGE E081(YE) WITH 'Please Enter Only in Block1 Or Block3' .
endif.
read table s_PICDAT index 1.
data: days type i.
days = s_PICDAT-high - s_PICDAT-low .
if days > 2.
message e080(YE) with 'Range can not be > 2 days'.
endif.
read table s_PGDAT index 1.
data: days2 type i.
days2 = s_PGDAT-high - s_PGDAT-low .
if days2 > 2.
message e080(YE) with 'Range can not be > 2 days'.
endif.
VALIDATIONS FOR FIRST BLOCK---------------------------------------
*IF S_SHNUM IS INITIAL AND S_DENUM IS INITIAL.
IF S_ORG IS INITIAL OR S_SPOINT IS INITIAL OR S_DISCHA IS INITIAL OR
*S_DIV IS INITIAL .
*MESSAGE E083(YE) WITH 'ALL FIELDS IN BLOCK ONE REQUIRED'.
ENDIF.
*ENDIF.
*--START OF SELECTION--
START-OF-SELECTION .
IF NOT S_ORG IS initial OR NOT S_DISCHA IS INITIAL OR NOT S_DIV IS
INITIAL OR NOT S_SPOINT IS initial.
PERFORM INPUTBLOCK1.
PERFORM TABPRINT1.
ENDIF.
IF NOT S_SHNUM IS INITIAL .
PERFORM INPUTBLOCK2 .
PERFORM TABPRINT1.
ENDIF .
IF NOT S_DENUM IS INITIAL .
PERFORM INPUTBLOCK3 .
PERFORM TABPRINT1.
ENDIF .
CLEAR ITAB2.
*LOOP AT ITABX.
R_MATNR-SIGN = 'I'.
R_MATNR-OPTION = 'EQ'.
R_MATNR-LOW = ITABX-XMATL.
APPEND R_MATNR. CLEAR R_MATNR.
*ENDLOOP.
PERFORM WARINVENTORY.
PERFORM WARMASTERUPLD.
CALL SCREEN 100.
*=====================================================
*& Module user_command_0100 input
text
MODULE USER_COMMAND_0100 INPUT.
SAVED_OKCODE = OKCODE.
S_OKCODE = OKCODE.
CLEAR OKCODE.
CASE S_OKCODE.
WHEN 'EXIT' OR 'BACK' OR 'CANC'.
LEAVE PROGRAM.
WHEN OTHERS.
call method go_grid->check_changed_data
importing
e_valid = V_VALID .
PERFORM SAVE_ITAB.
endcase.
case sy-ucomm.
when 'b_clearall'.
loop at itab.
itab-sel_quant = 30.
modify itab.
endloop.
CALL TRANSACTION 'YWMINI'.
ENDCASE.
call method go_grid->check_changed_data.
importing
e_valid = v_valid.
*LOOP AT ITAB.
*IF ITAB-SEL_QUANT NE 0.
*MOVE ITAB-SEL_QUANT TO FLAGTAB-SEL_QUANT.
*MOVE ITAB-FKEY TO FLAGTAB-FKEY.
*COLLECT FLAGTAB.
*ENDIF.
*ENDLOOP.
LOOP AT ITAB.
LOOP AT FLAGTAB WHERE FKEY = ITAB-FKEY.
ITAB-F_BALQUANT = ITAB-F_BALQUANT - FLAGTAB-SEL_QUANT.
MODIFY ITAB.
ENDLOOP.
*ENDLOOP.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Module STATUS_0100 OUTPUT
text
MODULE STATUS_0100 OUTPUT.
*SET PF-STATUS 'ZSTAT'.
set pf-status 'STAT'.
SET TITLEBAR 'WAVEPICK'.
*call screen 1010 .
IF go_custom_container IS INITIAL.
CREATE OBJECT go_custom_container
EXPORTING container_name = 'ALV_CONTAINER'.
CREATE OBJECT go_grid
EXPORTING
i_parent = go_custom_container.
set handler pr_data_changed=>on_data_changed
*for all instances.
call method go_grid->register_edit_event
exporting
i_event_id = cl_gui_alv_grid=>mc_evt_enter.
CREATE OBJECT g_event_receiver.
SET HANDLER g_event_receiver->handle_data_changed FOR go_grid.
PERFORM xclude_toolbar.
PERFORM CREATE_FIELDCAT.
PERFORM load_data_into_grid.
ENDIF.
else .
call method my_application->refresh_table_display.
endif.
*call method go_grid->register_edit_event
*exporting
*i_event_id = cl_gui_alv_grid=>mc_evt_enter.
*CALL METHOD GO_GRID->REFRESH_TABLE_DISPLAY
perform load_data_into_grid.
CLEAR ITAB1.
READ TABLE ITAB1 .
PWERKS = ITAB1-WERKS.
PLGNUM = ITAB1-LGNUM.
PVBELN = ITAB1-VBELN.
PTKNUM = ITAB1-TKNUM.
ENDMODULE. " STATUS_0100 OUTPUT
FORM INPUTBLOCK1 *
FORM INPUTBLOCK1.
SELECT LIPSMATNR LIPSLFIMG LIPSVRKME LIKPKUNNR LIPS~WERKS
LIPS~LGNUM
LIPSLGTYP LIPSVBELN INTO TABLE ITAB1 FROM
LIPS JOIN LIKP ON LIPSVBELN = LIKPVBELN JOIN VBUK ON LIKP~VBELN =
VBUK~VBELN WHERE
LIKP~VKORG IN S_ORG AND
LIKP~VTWIV IN S_DISCHA AND
LIKP~SPAIV IN S_DIV AND
LIKP~VSTEL IN S_SPOINT AND
LIKP~KODAT IN S_PICDAT AND
LIKP~WADAT IN S_PGDAT AND
LIPS~LGTYP = '001' ." AND
*VBUK~KOSTK = 'A' .
ENDFORM .
FORM INPUTBLOCK2 *
FORM INPUTBLOCK2.
SELECT LIPSMATNR LIPSLFIMG LIPSVRKME LIKPKUNNR INTO
TABLE ITAB1
FROM LIPS JOIN LIKP ON LIPSVBELN = LIKPVBELN JOIN VTTP ON LIKP~VBELN =
VTTPVBELN JOIN VBUK ON LIKPVBELN = VBUK~VBELN WHERE
VTTP~TKNUM IN S_SHNUM
AND
LIKP~KODAT IN S_PICDAT AND
LIKP~WADAT IN S_PGDAT AND
VBUK~KOSTK = 'A'.
ENDFORM.
FORM INPUTBLOCK3 *
FORM INPUTBLOCK3 .
SELECT LIPSMATNR LIPSLFIMG LIPSVRKME LIKPKUNNR INTO
TABLE ITAB1
FROM LIPS JOIN LIKP ON LIPSVBELN = LIKPVBELN JOIN VBUK ON LIKP~VBELN =
VBUKVBELN WHERE LIKPVBELN IN
S_DENUM
AND
LIKP~KODAT IN S_PICDAT AND
LIKP~WADAT IN S_PGDAT AND
VBUK~KOSTK = 'A'.
ENDFORM.
FORM TABPRINT1 *
FORM TABPRINT1.
LOOP AT ITAB1 .
MOVE: ITAB1-MATL TO ITAB2-MATL,
ITAB1-UOM TO ITAB2-UOM,
ITAB1-KUNR TO ITAB2-KUNR,
ITAB1-QUANT TO ITAB2-QUANT.
COLLECT ITAB2.
ENDLOOP.
LOOP AT ITAB2.
MOVE ITAB2-MATL TO ITABX-XMATL.
MOVE ITAB2-QUANT TO ITABX-XQUANT.
MOVE ITAB2-UOM TO ITABX-XUOM.
MOVE ITABX-XQUANT TO ITABX-XBALQ.
COLLECT ITABX.
ENDLOOP.
clear ITABX .
LOOP AT ITABX.
R_MATNR-SIGN = 'I'.
R_MATNR-OPTION = 'EQ'.
R_MATNR-LOW = ITABX-XMATL.
APPEND R_MATNR. CLEAR R_MATNR.
ENDLOOP.
SELECT MAKTMATNR MAKTMAKTX INTO TABLE ITABDESC FROM MAKT
WHERE MAKT~MATNR IN R_MATNR .
DATA C_DESC LIKE MAKT-MAKTX.
C_DESC = '0'.
LOOP AT ITABDESC .
IF ITABDESC-MATNR = C_DESC .
DELETE ITABDESC.
ELSE .
C_DESC = ITABDESC-MATNR.
ENDIF.
ENDLOOP.
LOOP AT ITABDESC.
LOOP AT ITABX WHERE XMATL = ITABDESC-MATNR.
ITABX-XMATDESC = ITABDESC-MATDESC.
MODIFY ITABX.
ENDLOOP.
ENDLOOP.
CLEAR ITABX.
*ENDSELECT.
ENDFORM.
FORM WARINVENTORY *
FORM WARINVENTORY.
*Select matnr from LQUA
into LQUA where
matnr in r_matnr.
endselect.
*if not r_matnr-low is initial .
MESSAGE E080(YE) WITH 'NOT IN RANGE'.
SELECT LQUAMATNR LQUALGPLA LQUACHARG LQUAVERME LQUA~MEINS INTO TABLE
INVTAB FROM LQUA WHERE LQUA~MATNR
IN R_MATNR AND LQUAWERKS = ITAB1-WERKS AND LQUALGNUM = ITAB1-LGNUM AND
LQUA~LGTYP = '001' AND
NOT LQUA~LGPLA = '000'.
ENDFORM .
FORM WARMASTERUPLD *
FORM WARMASTERUPLD .
LOOP AT ITAB2.
DELETE ITAB2.
LOOP AT INVTAB WHERE IMATL = ITAB2-MATL.
MOVE: ITAB2-MATL TO ITABMASTER-MMATL ,
ITAB2-KUNR TO ITABMASTER-MKUNR,
ITAB2-QUANT TO ITABMASTER-M_KQUANT,
ITAB2-UOM TO ITABMASTER-M_KUOM ,
INVTAB-IBINLOC TO ITABMASTER-MBINLOC,
INVTAB-IBATCH TO ITABMASTER-MBATCH,
INVTAB-IWARSTK TO ITABMASTER-MWATSTK,
INVTAB-IUOM TO ITABMASTER-M_IUOM.
APPEND ITABMASTER.
DELETE INVTAB.
CLEAR INVTAB.
CLEAR ITAB2.
EXIT.
ENDLOOP.
ENDLOOP.
IF NOT INVTAB[] IS INITIAL.
LOOP AT INVTAB.
MOVE: INVTAB-IMATL TO ITABMASTER-MMATL,
INVTAB-IBINLOC TO ITABMASTER-MBINLOC,
INVTAB-IBATCH TO ITABMASTER-MBATCH,
INVTAB-IWARSTK TO ITABMASTER-MWATSTK,
INVTAB-IUOM TO ITABMASTER-M_IUOM.
ITABMASTER-MKUNR = SPACE.
ITABMASTER-M_KQUANT = SPACE.
ITABMASTER-M_KUOM = SPACE.
APPEND ITABMASTER.
ENDLOOP.
ENDIF.
*-- BEGIN ITAB UPLOAD--
DATA : MATCHK LIKE ITABX-XMATL VALUE 0.
LOOP AT ITABX.
DELETE ITAB2.
LOOP AT ITABMASTER WHERE MMATL = ITABX-XMATL.
IF ITABX-XMATL NE MATCHK .
IF ITABMASTER-MMATL = ITABX-XMATL.
MOVE:
ITABX-XMATL TO ITAB-FMATL,
ITABMASTER-MMATL TO ITAB-FKEY,
ITABX-XMATDESC TO ITAB-FMATDESC,
ITABX-XQUANT TO ITAB-FQUANT,
ITABX-XUOM TO ITAB-FUOM ,
ITABX-XBALQ TO ITAB-F_BALQUANT.
MATCHK = ITABX-XMATL.
ELSE .
MOVE ITABMASTER-MMATL TO ITAB-FKEY.
ITAB-FMATL = SPACE .
ITAB-FMATDESC = SPACE.
ITAB-FQUANT = SPACE .
ITAB-FUOM = SPACE .
ITAB-F_BALQUANT = SPACE.
ENDIF.
MOVE:
ITABMASTER-MKUNR TO ITAB-FKUNR,
ITABMASTER-M_KQUANT TO ITAB-F_KQUANT,
ITABMASTER-M_KUOM TO ITAB-F_KUOM,
ITABMASTER-MBINLOC TO ITAB-FBINLOC,
ITABMASTER-MBATCH TO ITAB-FBATCH,
ITABMASTER-MWATSTK TO ITAB-FWATSTK,
ITABMASTER-M_IUOM TO ITAB-F_IUOM.
ITAB-FINDEX = SY-TABIX.
ITAB-SEL_QUANT = 0.
APPEND ITAB.
DELETE INVTAB.
CLEAR INVTAB.
CLEAR ITABX.
*EXIT.
ENDLOOP.
ENDLOOP.
*----- END ITAB UPLOAD--
*TEST----
*LOOP AT ITABMASTER.
DELETE ITAB2.
LOOP AT ITABX WHERE XMATL = ITABMASTER-MMATL.
**IF ITABX-XMATL NE MATCHK .
*MOVE:
ITABX-XMATL TO ITAB-FMATL,
ITABX-XMATDESC TO ITAB-FMATDESC,
ITABX-XQUANT TO ITAB-FQUANT,
ITABX-XUOM TO ITAB-FUOM ,
ITABX-XBALQ TO ITAB-F_BALQUANT,
ITABMASTER-MKUNR TO ITAB-FKUNR,
ITABMASTER-M_KQUANT TO ITAB-F_KQUANT,
ITABMASTER-M_KUOM TO ITAB-F_KUOM,
ITABMASTER-MBINLOC TO ITAB-FBINLOC,
ITABMASTER-MBATCH TO ITAB-FBATCH,
ITABMASTER-MWATSTK TO ITAB-FWATSTK,
ITABMASTER-M_IUOM TO ITAB-F_IUOM.
APPEND ITAB.
DELETE INVTAB.
CLEAR INVTAB.
CLEAR ITABX.
**EXIT.
ENDLOOP.
*ENDLOOP.
*SORT ITAB BY FMATL.
*END TEST----
ENDFORM.
FORM load_data_into_grid *
FORM load_data_into_grid.
CALL METHOD go_grid->set_table_for_first_display
EXPORTING
IS_LAYOUT = t_layout
i_structure_name = 'ITABT'
IT_TOOLBAR_EXCLUDING = t_toolbar[]
CHANGING
it_outtab = ITAB[]
IT_FIELDCATALOG = fcat[]
*call method go_grid->refresh_table_display
*EXPORTING
*i_event_id = cl_gui_alv_grid=>mc_evt_modified.
i_structure_name = 'ITABT'
CHANGING
IT_OUTTAB = ITAB[]
ENDFORM.
form create_fieldcat.
CLEAR wa_fieldcat.
WA_FIELDCAT-REPTEXT = 'MATERIAL'.
WA_FIELDCAT-COLTEXT = 'MATERIAL'.
wa_fieldcat-fieldname = 'FMATL'.
wa_fieldcat-col_pos = 1.
wa_FIELDCAT-ref_table = 'ITAB'.
wa_fieldcat-outputlen = 8.
APPEND wa_fieldcat to fcat .
CLEAR wa_fieldcat.
WA_FIELDCAT-REPTEXT = 'MATERIAL'.
WA_FIELDCAT-COLTEXT = 'MATERIAL DESCRIPTION'.
wa_fieldcat-fieldname = 'FMATDESC'.
wa_fieldcat-col_pos = 2.
wa_FIELDCAT-ref_table = 'ITAB'.
wa_fieldcat-outputlen = 20.
APPEND wa_fieldcat to fcat .
CLEAR wa_fieldcat.
WA_FIELDCAT-COLTEXT = 'QUANTITY'.
wa_fieldcat-fieldname = 'FQUANT'.
wa_fieldcat-col_pos = 8.
wa_FIELDCAT-ref_table = 'ITAB'.
wa_fieldcat-outputlen = 8.
WA_FIELDCAT-QUANTITY = 'VRKME'.
WA_FIELDCAT-QFIELDNAME = 'VRKME'.
APPEND wa_fieldcat to fcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'FUOM'.
wa_fieldcat-col_pos = 4.
wa_FIELDCAT-ref_table = 'ITAB'.
WA_FIELDCAT-COLTEXT = 'UOM'.
wa_fieldcat-outputlen = 4.
APPEND wa_fieldcat to fcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'FKUNR'.
wa_fieldcat-col_pos = 5.
wa_FIELDCAT-ref_table = 'ITAB'.
WA_FIELDCAT-COLTEXT = 'CUSTOMER'.
wa_fieldcat-outputlen = 8.
APPEND wa_fieldcat to fcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'F_KQUANT'.
wa_fieldcat-col_pos = 6.
wa_FIELDCAT-ref_table = 'ITAB'.
WA_FIELDCAT-COLTEXT = 'QUANTITY'.
wa_fieldcat-outputlen = 8.
WA_FIELDCAT-QUANTITY = 'VRKME'.
WA_FIELDCAT-QFIELDNAME = 'VRKME'.
APPEND wa_fieldcat to fcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'F_KUOM'.
wa_fieldcat-col_pos = 7.
wa_FIELDCAT-ref_table = 'ITAB'.
WA_FIELDCAT-COLTEXT = 'UOM'.
wa_fieldcat-outputlen = 4.
APPEND wa_fieldcat to fcat.
CLEAR wa_fieldcat.
WA_FIELDCAT-COLTEXT = 'BALANCE QTY TO PICK'.
wa_fieldcat-fieldname = 'F_BALQUANT'.
wa_fieldcat-col_pos = 8.
wa_FIELDCAT-ref_table = 'ITAB'.
wa_fieldcat-outputlen = 8.
WA_FIELDCAT-QUANTITY = 'VRKME'.
WA_FIELDCAT-QFIELDNAME = 'VRKME'.
APPEND wa_fieldcat to fcat .
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'FBINLOC'.
wa_fieldcat-col_pos = 9.
wa_FIELDCAT-ref_table = 'ITAB'.
WA_FIELDCAT-COLTEXT = 'BIN LOCATION'.
wa_fieldcat-outputlen = 8.
APPEND wa_fieldcat to fcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'FBATCH'.
wa_fieldcat-col_pos = 10.
wa_FIELDCAT-ref_table = 'ITAB'.
WA_FIELDCAT-COLTEXT = 'BATCH'.
wa_fieldcat-outputlen = 8.
APPEND wa_fieldcat to fcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'FWATSTK'.
wa_fieldcat-col_pos = 11.
wa_FIELDCAT-ref_table = 'ITAB'.
WA_FIELDCAT-COLTEXT = 'WAREHOUSE STK'.
wa_fieldcat-outputlen = 8.
APPEND wa_fieldcat to fcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'F_IUOM'.
wa_fieldcat-col_pos = 12.
wa_FIELDCAT-ref_table = 'ITAB'.
WA_FIELDCAT-COLTEXT = 'UOM'.
wa_fieldcat-outputlen = 4.
APPEND wa_fieldcat to fcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'SEL_QUANT'.
wa_fieldcat-col_pos = 13.
wa_FIELDCAT-ref_table = 'ITAB'.
WA_FIELDCAT-COLTEXT = 'SELECTED QTY'.
wa_fieldcat-edit = 'X'.
wa_fieldcat-outputlen = 8.
WA_FIELDCAT-QUANTITY = 'VRKME'.
WA_FIELDCAT-QFIELDNAME = 'VRKME'.
APPEND wa_fieldcat to fcat.
*LOOP AT FCAT ASSIGNING <FS_FIELDCAT>.
*CASE <FS_FIELDCAT>-FIELDNAME.
*WHEN 'SEL_QUANT'.
*<FS_FIELDCAT>-EDIT = 'X'.
*ENDCASE.
*ENDLOOP.
*CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
*EXPORTING
*I_STRUCTURE_NAME = 'ITABT'
*CHANGING
*CT_FIELDCATALOG = FCAT.
*LOOP AT FCAT ASSIGNING <FS_FIELDCAT>.
*CASE <FS_FIELDCAT>-FIELDNAME.
*WHEN 'SEL_QUANT'.
*<FS_FIELDCAT>-EDIT = 'X'.
*ENDCASE.
*ENDLOOP.
endform.
form xclude_toolbar .
t_toolbar = '&DETAIL'.
append t_toolbar.
t_toolbar = '&&SEP00'.
append t_toolbar.
t_toolbar = '&&SEP01'.
append t_toolbar.
t_toolbar = '&&SEP02'.
append t_toolbar.
t_toolbar = '&SORT_ASC'.
append t_toolbar.
t_toolbar = '&SORT_DSC'.
append t_toolbar.
t_toolbar = '&FIND'.
append t_toolbar.
t_toolbar = '&MB_FILTER'.
append t_toolbar.
t_toolbar = '&&SEP04'.
append t_toolbar.
t_toolbar = '&MB_SUM'.
append t_toolbar.
t_toolbar = '&MB_SUB_TOTAL'.
append t_toolbar.
t_toolbar = '&PRINT_BACK'.
append t_toolbar.
t_toolbar = '&MB_VIEW'.
append t_toolbar.
t_toolbar = '&MB_EXPORT'.
append t_toolbar.
t_toolbar = '&GRAPH'.
append t_toolbar.
t_toolbar = '&COLO'.
append t_toolbar.
t_toolbar = '&&SEP06'.
append t_toolbar.
t_toolbar = '&&SEP07'.
append t_toolbar.
t_toolbar = '&INFO'.
append t_toolbar.
t_toolbar = '&&SEP03'.
append t_toolbar.
endform.
FORM SAVE_ITAB.
*CALL METHOD GO_GRID->GET_SELECTED_ROWS
*IMPORTING
*ET_INDEX_ROWS = I_SELECTED_ROWS.
*LOOP AT I_SELECTED_ROWS INTO W_SELECTED_ROWS.
*READ TABLE ITAB INTO WA INDEX W_SELECTED_ROWS-INDEX.
*IF SY-SUBRC EQ 0.
*MOVE-CORRESPONDING WA TO W_MODIFIED.
*APPEND W_MODIFIED TO I_MODIFIED.
*ENDIF.
*ENDLOOP.
*MODIFY ITAB FROM TABLE I_MODIFIED.
*ENDFORM.
ENDFORM. -
Hi Friends,
I am working on open enrollment benefits workflow scenario. Basically when even a health plan is entered through ESS for an employee, I have to send an email to set of people. I have done following workflow steps, but getting an error : RFC_ERROR_SYSTEM_FAILURE , GETWA_NOT_ASSIGNED
Step 1: BUS3029 extended to ZBUS3029 to include Custom event CREATED. Delegated.
Step 2 : SWEHR1. u2013 Made following .
type : P , Info type : 0167 , Object Type : BUS3029
Step 3: SWEHR3
Object type : P , Infotype : 0167 , Update op : INS , Event object type : BUS302901 and event : CREATED.
Step 4: Create a custom workflow and Liked event CREATED to it.
I would really appreciate if you could help me out.
Thanks
NashHi Babar. How are you? I am good.
When you hire any dummy employee, did you make sure all the master data information are exactly the same as an existing employee including date range etc. Is the HDHP and HSA together in your system?
Can you try posting the screen shot here in this forum? You can upload the screen shot on any free sites, like photobucket etc and paste the link here.
Giving email addresses is against the SDN rules. -
Hi all,
When I am executing MIGO transaction in Pre-Production I am getting error as 'GETWA_NOT_ASSIGNED'. IF I check thru ST22, showing message as 'Field symbol has not yet been assigned'. Could anybody please assist in this regard.Thanks in advance.
Thanks & Regards.
I. Reddy PrasadHi
Pls check the following notes
Note 496258 - MIGO: ABAP runtime error GETWA_NOT_ASSIGNED
Note 712454 - MB1B/MIGO aborts with GETWA_NOT_ASSIGNED
Note 979013 MIGO: Programmabbruch GETWA_NOT_ASSIGNED in LMIGOKC2
Note 379448 GETWA_NOT_ASSIGNED for return delivery with MIGO
Note 965675 MIGO: Termination after setting OK flag for tied empties
Pls take opinion from SAP / Basis before implementing the note
Regards
Madhan -
Dump while creating Process Order -COR1
Hi,
I am getting dump while creating a Process Order thru COR1. the dump error discription GETWA_NOT_ASSIGNED .HI omprasath rajendiran,
Do you solve the problème, because i get the same problème with COR1 ? -
While loading the data in transaction RSA1 we are getting dump in SCM 5.1
Hi,
I am getting runtime error while loading the data in transaction RSA1.
Runtime error is GETWA_NOT_ASSIGNED associated with program /SAPAPO/CL_PDEM_WORKDAYS.
Please help me out with this.Hi Rahul,
Check whether sap note 482494 can be applicable to you. -
Hello all
i am using variable in BPS in order to multiply data with the value in the variable.
When i execute the FOX, i get a dump, error.
The error goes " GETWA_NOT_ASSIGNED - Field Symbol has not yet been assigned"
Can you tell me what can be the problems?
Best
YuvalHi,
May be you set up incorrectly a value for the vaiable. This value is not in master data of charater for this variable.
Regards,
Veronika.
Maybe you are looking for
-
New iMac 750 GB Hard Drive Fail Smart Drive Test - Glitch or Problem
Greetings! I have a new 24" imac with 750 GB hard drive which has had problems out of the box (system crashing several times a day/unable to re-start/application crashes/general sluggishness). Five re-installs of Leopard (upgrade/clean install/instal
-
Down payment request against PO
Hi SAP Guru, When user entering down payment request in F-47 against a purchase oder the system is allowing to post the amount more than PO value which is logically incorrect. How can I prevent this ? Kindly reply with details. Regards, Sajib
-
JTDS version for UCCX 9.0?
What is the recommended/supported version of JTDS for UCCX 9.0? I have used 1.2.5 successfully with 8.5.1, but I see recently released version of 1.2.6, 1.2.7, and 1.3.0. Anybody have any expereience with the newer JTDS versions?
-
New AP2 with serial no. but "not for resale"??
I just received a copy of AP2 from a seller on Amazon and it does include the serial number, but only came with CD/DVD, no box. Upon installation (I first deleted the trial version, even though I suspect I didn't have to, but wanted the fresh install
-
a family member tried to break my pass code and phone has now frozen i can't do anything any ideas?