Hi, currently im trying to add some validation to my editable ALV report.
This is what i am trying to do:
1. Make EBELN field mandatory in header and line item
2. When append (method: CREATE_PURCHASE_ORDERS, in url below) a new record in header, once key in ebeln in header, press enter, it will auto populate sy-datum in header (bedat field) and ebeln in line item,
Any appropriate source for me to look into? couldnt find a suitable one
Looked through BCALV_EDIT_04
My source code can be seen in this url, in the comment section:
- SAP Managed Tags:
Hi,
You should be able to solve this by implementing logic in the data_changed event of the ALV.
An example can be found in following question:
https://answers.sap.com/questions/6638943/how-to-validate-editable-field-in-alv.html
Best regards,
Geert-Jan Klaps
- SAP Managed Tags:
Hi,
When Append (&LOCAL&APPEND), key in PO header details in a new entry.
If without entering ebeln field in PO header and click 'save' button, it will prompt error message 'Please enter PO number hdr'
How do i apply this data_change subroutine in PAI on the 'save', it prompts the following error when i added it on PAI 'save'.
- SAP Managed Tags:
Hi sir, cant actually include perform in method, perform can only be included in program, else it will prompt this error
Im doing it this way instead, not sure if its correct logically. When the code is added, it affects the update, meaning update not reflected
value( IT_ZHEADER ) TYPE ZEKKO03_TT PO Header Table Type
value( IT_ZITEMS ) TYPE ZEKPO03_TT PO Item Table Type
value( IV_SAVE ) TYPE C OPTIONAL
value( ES_BAPIRET2 ) TYPE BAPIRET2 Return Parameter
METHOD UPDATE_PURCHASE_ORDERS.
DATA: ls_zheader LIKE LINE OF it_zheader,
lv_ebeln TYPE zekko03-ebeln.
if iv_save = 'Y'.
if it_zheader IS NOT INITIAL.
modify zekko03 FROM TABLE it_zheader .
IF SY-SUBRC = 0.
COMMIT WORK.
ES_BAPIRET2-TYPE = 'S'.
ES_BAPIRET2-MESSAGE = 'Successfully updated for table ZEKKO03'.
ELSE.
ROLLBACK WORK.
ES_BAPIRET2-TYPE = 'E'.
ES_BAPIRET2-MESSAGE = 'Error updating table ZEKKO03'.
ENDIF.
modify zekpo03 FROM TABLE it_zitems .
IF SY-SUBRC = 0.
COMMIT WORK.
ES_BAPIRET2-TYPE = 'S'.
ES_BAPIRET2-MESSAGE = 'Successfully updated for table ZEKKO03'.
ELSE.
ROLLBACK WORK.
ES_BAPIRET2-TYPE = 'E'.
ES_BAPIRET2-MESSAGE = 'Error updating table ZEKKO03'.
ENDIF.
endif.
else.
MESSAGE 'Please enter PO number' TYPE 'S' DISPLAY LIKE 'S'.
endif.
ENDMETHOD.
<br>DATA: GT_ZHEADER TYPE TABLE OF ZEKKO03, ""global variable for ZEKKO03
GT_ZITEMS TYPE TABLE OF ZEKPO03. ""global variable for ZEKPO03
DATA: GS_ZHEADER TYPE ZEKKO03,
GS_ZITEMS LIKE LINE OF GT_ZITEMS,
gv_save TYPE c LENGTH 1 VALUE ' '.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
WHEN 'SAVE'.
PERFORM SAVE_DATABASE_UPDATE.
PERFORM validate_update.
ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Form SAVE TO DB
*&---------------------------------------------------------------------*
* text : saving into DDIC from internal table
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM SAVE_DATABASE_UPDATE.
CALL METHOD G_GRID_LEFT->CHECK_CHANGED_DATA
IMPORTING
E_VALID = CHECK.
CALL METHOD G_GRID_RIGHT->CHECK_CHANGED_DATA
IMPORTING
E_VALID = CHECK.
* CALL METHOD ZCL_03_DATA_MODEL=>UPDATE_PURCHASE_ORDERS
* EXPORTING
* IT_ZHEADER = GT_ZHEADER
* IT_ZITEMS = GT_ZITEMS
* IMPORTING
* ES_BAPIRET2 = BAPIRET2.
CALL METHOD ZCL_03_DATA_MODEL=>UPDATE_PURCHASE_ORDERS
EXPORTING
IT_ZHEADER = gt_zheader
IT_ZITEMS = gt_zitems
IV_SAVE = gv_save
* IMPORTING
* ES_BAPIRET2 =
.
ENDFORM.
FORM validate_update.
gv_save = 'Y'.
LOOP AT gt_zheader INTO gs_zheader.
IF gs_zheader-ebeln = ' '.
gv_save = 'N'.
ENDIF.
endloop.
ENDFORM.- SAP Managed Tags:
