Dialogue program to create/modify entries of ztable

hi experts,
i want to create a ztable. After creating the ztable i want to create an dialogue program using that dialogue program i have to create/modify entries of that ztable using text box and push button options.
can anybody having sample coding pls send me.....
thanks in advance,
ravi

Hi Ravi ,
Instead creating the Dailog Program u can creat the Table Maintanance Generator (TMG). Here u will have all the option of creation, deleting , modifying the record.
In se11 main screen go to utilities:-> Table Maintanance Generator .
here u have to enteg the Function group name and screen NO. system wil generate the dialog program for u to maintan the data in that table. Then go to T-CODE SM30 give the same table name and click on maintanance push button and maintain ur entries the table.
IF helpfull reward points
Anees
9886358645

Similar Messages

Creating multiple entries in ztable with the same name

Dear sir / madam,
iam new in sap-abap , i have created ztable in se11, table name zrajesh
and fields i have created zemp_name and zempid which has data element and domain also. and zprice.
when iam creating entries in table mataince generator
eg: zemp_name     zempid       zprice
      rajesh              001             100
      raj                     002            110
      rajesh              001             200
      rajesh             001              300
     rajesh              001              250
i am looking forward to create multiple entries of the same employ name .. as shown in example . iam able to create numbers of entries with the help of different names. is it possible to create numbers of entries with same name..
and it will show all the entries in the list when display.
please help me..
regards,
rajesh swami

hi,
have a look at these tables
VBAK - Header table
VBAP - Item table
here in table VBAK we have a key field VBELN(document no.)
Whereas for the same document no. we can have many entries in the the table VBAP where the key is VBELN(document no.)
and POSNR (line item no.).
You have to do something of this type i suppose ............
Hope it helps you,
Regards,
Abhijit G. Borkar

Dialogue program for modifying ztable

hi experts,
i want to create a ztable. After creating the ztable i want to create an dialogue program using that dialogue program i have to create/modify entries of that ztable using text box and push button options.
can anybody having sample coding pls send me.....
thanks in advance,
ravi

HI,
chek this sample code
data: begin of itab occurs 0.
include structure ZTESTVENKATESH.
data: end of itab.
call screen 100.
*&      Module STATUS_0100 OUTPUT
      text
module STATUS_0100 output.
SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.
endmodule.                 " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
      text
module USER_COMMAND_0100 input.
if sy-ucomm = 'HAI'.
APPEND ITAB.
modify ZTESTVENKATESH from table itab.
ENDIF.
thanks & regards,
venkatesh

CREATING ENTRIES IN ZTABLE

I 've created a ztable....with field mandt, id (both are key) fname, lname.I was sucessfully created one entry..could'n proceed to create other entries...Getting a display....a datarecord already exists...How can i avoid this

here MANDT is primary key.
so u can enter only one record.
if u want to enter other record you have to remove primary key to MANDT.
no other option.
suppose you logged in 100 client record in that table will be only one and that too the MANDT with 100.
if u tries to enter 2nd record, that record also hold MANDT as 100, it won't accept coz it already exist.
reward if useful
Message was edited by:
santhosh reddy

SD Flow program using For all entries.

using simple ALV grid: I have the urgent requirement of changing the following program using 'For all entries' instead of joins and I should not use 'TABLES' -- For top-of-page I need to get dynamic fields like if I select company code in the selection screen then I need to get 'This report is base on COMPANY CODE'.
This program is about sales flow where i shud get only those records that have ebeln in vbak, delivery, invoice.
The original program is as follows:
*& Report ZSD_DOCU_FLOW *
REPORT zsd_docu_flow NO STANDARD PAGE HEADING .
* Program : ZCOS_SALES *
* Dev. Class : ZSD
* Functional :
* Created on : *
* Project :
* CR Number :
* Transaction : ZSDCSUT *
* Description : * Sales document life cylce for given customer
* to declaired period displaying the sales document
* details ,with relevant del details and corresponding
* Invocie Details
*----------- Tables Declaration -----------*
TABLES: vbak,vbap,vbfa,kna1,vbrk,vbrp,likp,lips,t001.
TYPE-POOLS : slis.
*----------- Internal Tables Declaration -----------*
* Internal Table for Sales Order data *
DATA: BEGIN OF it_so OCCURS 0,
 vbeln LIKE vbak-vbeln,
 kunnr LIKE vbak-kunnr,
 posnr LIKE vbap-posnr,
 matnr LIKE vbap-matnr,
 kwmeng LIKE vbap-kwmeng,
 netwr LIKE vbap-netwr,
 END OF it_so.
* Internal Table for Delivery Order data *
DATA: BEGIN OF it_del OCCURS 0,
 delnum LIKE likp-vbeln,
 lfdat LIKE likp-lfdat,
 delitem LIKE lips-posnr,
 lfimg LIKE lips-lfimg,
 END OF it_del.
* Internal Table for Invoice data *
DATA: BEGIN OF it_inv OCCURS 0,
 invnum LIKE vbrk-vbeln,
 invitem LIKE vbrp-posnr,
 fkimg LIKE vbrp-fkimg,
 amount LIKE vbrp-netwr,
 END OF it_inv.
* Internal Table for Final data *
DATA: BEGIN OF it_final OCCURS 0,
 vbeln LIKE vbak-vbeln,
 posnr LIKE vbap-posnr,
 kunnr LIKE vbak-kunnr,
 name LIKE kna1-name1,
 matnr LIKE vbap-matnr,
 kwmeng LIKE vbap-kwmeng,
 netwr LIKE vbap-netwr,
 delnum LIKE likp-vbeln,
 lfdat LIKE likp-lfdat,
 delitem LIKE lips-posnr,
 lfimg LIKE lips-lfimg,
 invnum LIKE vbrk-vbeln,
 invitem LIKE vbrp-posnr,
 fkimg LIKE vbrp-fkimg,
 amount LIKE vbrp-netwr,
 END OF it_final.
*----------- Variables Declaration -----------*
DATA: v_name LIKE kna1-kunnr," variable for customer name
 v_delnum LIKE likp-vbeln," variable for delivery number
 v_invnum LIKE vbrk-vbeln." variable for invoce number
DATA : ls_layout TYPE slis_layout_alv,
 it_fcat TYPE slis_t_fieldcat_alv ,
 wa_fcat TYPE slis_fieldcat_alv,
 lh TYPE slis_t_listheader,
 ls TYPE slis_listheader,
 it_events TYPE slis_t_event ,
 ls_event TYPE slis_alv_event ,
 i_sort TYPE slis_t_sortinfo_alv,
 w_var TYPE i.
DATA : l_date(10).
DATA : l_date1(20).
DATA : l_repid LIKE trdir-name.
l_repid = 'ZSD_DOCU_FLOW1'.
*----------- Select-options & parameters Declaration ---*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_bukrs LIKE vbak-bukrs_vf,
 p_vkorg LIKE vbak-vkorg,
 p_vtweg LIKE vbak-vtweg,
 p_spart LIKE vbak-spart.
SELECT-OPTIONS: s_kunnr FOR vbak-kunnr,
 s_audat FOR vbak-audat.
SELECTION-SCREEN END OF BLOCK b1.
*----------- AT SELECTION-SCREEN --------------------------*
AT SELECTION-SCREEN.
SELECT SINGLE * FROM t001 INTO t001
 WHERE bukrs = p_bukrs.
IF sy-subrc <> 0.
 MESSAGE e000(8i) WITH 'Enter a Valid Company Code'.
ENDIF.
SELECT SINGLE * FROM vbak INTO vbak
 WHERE vkorg = p_vkorg.
IF sy-subrc <> 0.
 MESSAGE e000(8i) WITH 'Enter a Valid Sales Organization'.
ENDIF.
SELECT SINGLE * FROM vbak INTO vbak
 WHERE vtweg = p_vtweg.
IF sy-subrc <> 0.
 MESSAGE e000(8i) WITH 'Enter a Valid distribution channel'.
ENDIF.
SELECT SINGLE * FROM vbak INTO vbak
 WHERE spart = p_spart.
IF sy-subrc <> 0.
 MESSAGE e000(8i) WITH 'Enter a Valid Division'.
ENDIF.
SELECT SINGLE * FROM kna1 INTO kna1
 WHERE kunnr IN s_kunnr.
IF sy-subrc <> 0.
 MESSAGE e000(8i) WITH 'Enter a Valid Customer Number'.
ENDIF.
*----------- START-OF-SELECTION-----------------------------*
START-OF-SELECTION.
ls-typ = 'H'.
ls-info = 'Sales Document Flow'.
APPEND ls TO lh.
ls-typ = 'S'.
WRITE: sy-datum TO l_date USING EDIT MASK '__/__/____'.
CONCATENATE 'DATE :' l_date INTO l_date1 SEPARATED BY space.
ls-info = l_date1.
APPEND ls TO lh.
PERFORM field_cat.
PERFORM t_sort_build USING i_sort.
PERFORM get-data.
*----------- END-OF-SELECTION-----------------------------*
END-OF-SELECTION.
IF it_final[] IS INITIAL.
 MESSAGE i000(8i) WITH 'No data Found'.
 EXIT.
ENDIF.
PERFORM print-data.
*& Form get-data
* text
* --> p1 text
* <-- p2 text
FORM get-data .
* Accesing Sales Data
SELECT a~vbeln a~kunnr b~posnr b~matnr b~kwmeng b~netwr
 INTO CORRESPONDING FIELDS OF TABLE it_so
 FROM vbak AS a INNER JOIN vbap AS b
 ON a~vbeln = b~vbeln
 WHERE a~bukrs_vf = p_bukrs
 AND a~vkorg = p_vkorg
 AND a~vtweg = p_vtweg
 AND a~spart = p_spart
 AND a~kunnr IN s_kunnr
 AND a~audat IN s_audat.
LOOP AT it_so.
 SELECT SINGLE name1 FROM kna1 INTO v_name
 WHERE kunnr = it_so-kunnr.
 SELECT SINGLE vbeln FROM vbfa INTO v_delnum
 WHERE vbelv = it_so-vbeln
 AND vbtyp_n = 'J'.
 IF sy-subrc = 0.
 SELECT SINGLE vbeln FROM vbfa INTO v_invnum
 WHERE vbelv = v_delnum
 AND vbtyp_n = 'M'.
 ENDIF.
 MOVE-CORRESPONDING it_so TO it_final.
 it_final-name = v_name.
 it_final-delnum = v_delnum.
 it_final-invnum = v_invnum.
 APPEND it_final.
 CLEAR it_final.
 CLEAR v_delnum.
 CLEAR v_invnum.
ENDLOOP.
LOOP AT it_final.
 IF it_final-delnum NE ' '.
* Reading Del Data.
 SELECT SINGLE a~vbeln a~lfdat b~posnr b~lfimg INTO
 (it_del-delnum, it_del-lfdat, it_del-delitem,
 it_del-lfimg ) FROM
 likp AS a INNER JOIN lips AS b ON a~vbeln = b~vbeln
 WHERE a~vbeln = it_final-delnum
 AND b~posnr = it_final-posnr.
 MOVE-CORRESPONDING it_del TO it_final.
 MODIFY it_final.
 ENDIF.
 IF it_final-invnum NE ' '.
* Reading Invoice Data.
 SELECT SINGLE vbeln posnr fkimg netwr INTO
 (it_inv-invnum, it_inv-invitem, it_inv-fkimg, it_inv-amount )
 FROM vbrp WHERE vbeln = it_final-invnum
 AND posnr = it_final-posnr.
 MOVE-CORRESPONDING it_inv TO it_final.
 MODIFY it_final.
 ENDIF.
ENDLOOP.
ENDFORM. " get-data
*& Form print-data
* text
* --> p1 text
* <-- p2 text
FORM print-data .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
 i_callback_program = l_repid
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
 i_callback_top_of_page = 'TOP'
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID = ' '
* I_GRID_TITLE =
* I_GRID_SETTINGS =
* IS_LAYOUT =
 it_fieldcat = it_fcat
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
 IT_SORT = i_sort[]
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
* IT_EVENTS =
* IT_EVENT_EXIT =
* IS_PRINT =
* IS_REPREP_ID =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* I_HTML_HEIGHT_TOP =
* I_HTML_HEIGHT_END =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
 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. " print-data
*& Form field_cat
* text
* --> p1 text
* <-- p2 text
FORM field_cat .
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'VBELN'.
wa_fcat-key = 'X'.
wa_fcat-ref_fieldname = 'VBELN'.
wa_fcat-ref_tabname = 'VBAK'.
wa_fcat-seltext_m = 'Sales Order NO'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'POSNR'.
wa_fcat-ref_fieldname = 'POSNR'.
wa_fcat-ref_tabname = 'VBAP'.
wa_fcat-seltext_m = 'SalesItemNO'.
wa_fcat-fix_column = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'KUNNR'.
wa_fcat-seltext_m = 'CUSTNUM'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'NAME'.
wa_fcat-seltext_m = 'CUSTNAME'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'MATNR'.
wa_fcat-seltext_m = 'MATNUM'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'KWMENG'.
wa_fcat-seltext_m = 'Sales Quantity'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'NETWR'.
wa_fcat-seltext_m = 'Value'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'DELNUM'.
wa_fcat-seltext_m = 'DeloveryNum'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'DELITEM'.
wa_fcat-seltext_m = 'DelItemNO'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'LFDAT'.
wa_fcat-seltext_m = 'DelDate'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'LFIMG'.
wa_fcat-seltext_m = 'DelQuantity'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'INVNUM'.
wa_fcat-seltext_m = 'InvoiceNum'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'INVITEM'.
wa_fcat-seltext_m = 'InvoiceItem'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'FKIMG'.
wa_fcat-seltext_m = 'INVQuantity'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
wa_fcat-col_pos = w_var.
wa_fcat-tabname = 'IT_FINAL'.
wa_fcat-fieldname = 'AMOUNT'.
wa_fcat-seltext_m = 'INVvalue'.
wa_fcat-do_sum = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ADD 1 TO w_var.
ENDFORM. " field_cat
*& Form top
* text
FORM t_sort_build USING l_sort TYPE slis_t_sortinfo_alv.
DATA: ls_sort TYPE slis_sortinfo_alv.
ls_sort-fieldname = 'VBELN'.
ls_sort-spos = 1.
ls_sort-up = 'X'.
ls_sort-subtot = 'X'.
APPEND ls_sort TO l_sort.
ls_sort-fieldname = 'KUNNR'.
ls_sort-spos = 2.
ls_sort-up = 'X'.
APPEND ls_sort TO l_sort.
ENDFORM. "t_sort_bui
FORM top.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = lh
* I_LOGO =
* I_END_OF_LIST_GRID =
ENDFORM. "TOP
===========================================================================
I have started the new program but i have trouble with the final internal table. Since i'm using For all entries I have declared internal tables for each table. My incomplete new program is as follows(not sure if the logic is correct till what I have coded):
*& Report Z_SDFLOW *
REPORT Z_SDFLOW NO STANDARD PAGE HEADING.
********* TABLES TO BE USED ***********************
**** VBAK - SALES DOCUMENT HEADER
* VBAP - SALES ITEM
* VBFA - SALES DOCUMENT FLOW
* KNA1- CUSTOMER MASTER
* VBRK - BILLING DOCUMENT HEADER
* VBRP - BLLING DOCUMENT ITEM
* LIKP - DELIVERY HEADER
* LIPS - DELIVERY ITEM
* TOO1 - COMPANY CODES
* SLIS.
TYPE-POOLS: SLIS.
** STRUCTURE DECLARATIONS ********
**STRUCTURE FOR ENQUIRY.
**STRUCTURE FOR QUOTATION.
**STRUCTURE FOR SALES ORDER HEADER- VBAK.
TYPES: BEGIN OF XT_VBAK,
VBELN TYPE VBAK-VBELN, "SALES DOCUMENT NUMBER
KUNNR TYPE VBAK-KUNNR, " SOLD-TO-PARTY
END OF XT_VBAK.
**STRUCTURE FOR SALES ORDER ITEM-VBAP
TYPES: BEGIN OF XT_VBAP,
POSNR TYPE VBAP-POSNR, " SALES ITEM NUMBER
MATNR TYPE VBAP-MATNR, " MATERIAL NUMBER
KWMENG TYPE VBAP-KWMENG, " CUMMULATIVE ORDER QUANTITY IN SALES UNITS
NETWR TYPE VBAP-NETWR, " NET VALUE OF THE ORDER ITEM
END OF XT_VBAP.
** STRUCTURE FOR DELIVERY HEADER -LIKP
TYPES: BEGIN OF XT_LIKP,
DELVBELN TYPE LIKP-VBELN, "DELIVERY DOCUMENT NUMBER
LFDAT TYPE LIKP-LFDAT, " DELIVERY DATE
END OF XT_LIKP.
**STRUCTURE FOR DELIVERY ITEM - LIPS
TYPES: BEGIN OF XT_LIPS,
DELPOSNR TYPE LIPS-POSNR, " DELIVERY ITEM NUMBER
LFIMG TYPE LIPS-LFIMG, " ACTUAL QUANTITY DELIVERED
END OF XT_LIPS.
**STRUCTURE FOR BILLING DOCUMENT HEADER -VBRK
TYPES: BEGIN OF XT_VBRK,
INVVBELN TYPE VBRK-VBELN, "BILLING DOCUMENT NUMBER
END OF XT_VBRK.
**STRUCTURE FOR BILLING DOCUMENT ITEM - VBRP
TYPES: BEGIN OF XT_VBRP,
INVPOSNR TYPE VBRP-POSNR, "BILLING ITEM NUMBER
FKIMG TYPE VBRP-FKIMG, "ACTUAL INVOICED QUANTITY
INVNETWR TYPE VBRP-NETWR, "NET VALUE OF THE BILLING ITEM
END OF XT_VBRP.
**STRUCTURE FOR FINAL INTERNAL TABLE.
TYPES: BEGIN OF XT_FINAL,
VBELN TYPE VBAK-VBELN,
DELVBELN TYPE LIKP-VBELN,
INVBELN TYPE VBRK-VBELN,
KUNNR TYPE VBAK-KUNNR,
POSNR TYPE VBAP-POSNR,
DELPOSNT TYPE LIPS-POSNR,
INVPOSNR TYPE VBRP-POSNR,
MATNR TYPE VBAP-MATNR,
KWMENG TYPE VBAP-KWMENG,
NETWR TYPE VBAP-NETWR,
INVNETWR TYPE VBRP-NETWR,
LFDAT TYPE LIKP-LFDAT,
LFIMG TYPE LIPS-LFIMG,
FKIMG TYPE VBRP-FKIMG,
NAME1 TYPE KNA1-NAME1,
END OF XT_FINAL.
**DATA DECLARATIONS
DATA: V_NAME1 TYPE KNA1-NAME1, "#EC *
 V_DELVBELN TYPE LIKP-VBELN,
 V_INVVBELN TYPE VBRK-VBELN,
 V_BUKRS TYPE T001-BUKRS, "COMPANY CODE "#EC *
 V_AUDAT TYPE VBAK-AUDAT,
 V_VKORG TYPE VBAK-VKORG,
 V_VKGRP TYPE VBAK-VKGRP,
 V_SPART TYPE VBAK-SPART.
**INTERNAL TABLE DECLARATIONS
DATA: IT_VBAK TYPE STANDARD TABLE OF XT_VBAK,
 WA_VBAK TYPE XT_VBAK,
 IT_VBAP TYPE STANDARD TABLE OF XT_VBAP,
 WA_VBAP TYPE XT_VBAP,
 IT_LIKP TYPE STANDARD TABLE OF XT_LIKP,
 WA_LIKP TYPE XT_LIKP,
 IT_LIPS TYPE STANDARD TABLE OF XT_LIPS,
 WA_LIPS TYPE XT_LIPS,
 IT_VBRK TYPE STANDARD TABLE OF XT_VBRK,
 WA_VBRK TYPE XT_VBRK,
 IT_VBRP TYPE STANDARD TABLE OF XT_VBRP,
 WA_VBRP TYPE XT_VBRP,
 IT_FINAL TYPE STANDARD TABLE OF XT_FINAL,
 WA_FINAL TYPE XT_FINAL.
**ALV DECLARATIONS
DATA: IT_FLDCAT TYPE SLIS_T_FIELDCAT_ALV,
 WA_FLDCAT TYPE SLIS_FIELDCAT_ALV,
 IT_LSTHDR TYPE SLIS_T_LISTHEADER,
 WA_LSTHDR TYPE SLIS_LISTHEADER,
 IT_EVENTS TYPE SLIS_T_EVENT,
 WA_EVENTS TYPE SLIS_ALV_EVENT,
 IT_SORT TYPE SLIS_T_SORTINFO_ALV,
 IT_LAYOUT TYPE SLIS_LAYOUT_ALV.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: S_BUKRS FOR V_BUKRS NO INTERVALS NO-EXTENSION,
 S_VBELN FOR WA_VBAK-VBELN, "SALES DOCUMENT NUMBER
 S_KUNNR FOR WA_VBAK-KUNNR, "SOLD-TO-PARTY
 S_AUDAT FOR V_AUDAT, "SALES DOCUMENT DATE
 S_VKORG FOR V_VKORG, "SALES ORGANISATION
 S_VKGRP FOR V_VKGRP, "SALES GROUP
 S_SPART FOR V_SPART. "DIVISION
SELECTION-SCREEN END OF BLOCK b1.
*****************SCREEN VALIDATION***************
AT SELECTION-SCREEN.
SELECT SINGLE BUKRS FROM T001 INTO V_BUKRS WHERE BUKRS IN S_BUKRS."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID COMPANY CODE'.
ENDIF.
SELECT SINGLE VBELN FROM VBAK INTO
 CORRESPONDING FIELDS OF WA_VBAK WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER VALID SALES DOCUMENT NUMBER'.
ENDIF.
SELECT SINGLE KUNNR FROM VBAK INTO
 CORRESPONDING FIELDS OF WA_VBAK WHERE KUNNR IN S_KUNNR. "EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID CUSTOMER NUMBER'.
ENDIF.
SELECT SINGLE AUDAT FROM VBAK INTO V_AUDAT WHERE AUDAT IN S_AUDAT."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES DOCUMENT DATE'.
ENDIF.
SELECT SINGLE VKORG FROM VBAK INTO V_VKORG WHERE VKORG IN S_VKORG."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES ORGANISATION'.
ENDIF.
SELECT SINGLE VKGRP FROM VBAK INTO V_VKGRP WHERE VKGRP IN S_VKGRP."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES GROUP'.
ENDIF.
SELECT SINGLE SPART FROM VBAK INTO V_SPART WHERE SPART IN S_SPART."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES DIVISION'.
ENDIF.
PERFORM GET_DATA.
*& Form GET_DATA
FORM GET_DATA .
SELECT VBELN KUNNR
 INTO TABLE IT_VBAK
 FROM VBAK
 WHERE VBELN IN S_VBELN.
* BUKRS_VF IN S_BUKRS AND
* VKORG IN S_VKORG AND
* VKGRP IN S_VKGRP AND
* SPART IN S_SPART AND
* KUNNR IN S_KUNNR AND
* AUDAT IN S_AUDAT.
IF IT_VBAK[] IS NOT INITIAL.
SELECT POSNR MATNR KWMENG NETWR
 INTO TABLE IT_VBAP
 FROM VBAP
 FOR ALL ENTRIES IN IT_VBAK
 WHERE VBELN = IT_VBAK-VBELN.
ENDIF.
IF IT_VBAK[] IS NOT INITIAL.
SELECT VBELN LFDAT
 INTO TABLE IT_LIKP
 FROM LIKP
 FOR ALL ENTRIES IN IT_VBAK
 WHERE VBELN = IT_VBAK-VBELN.
ENDIF.
IF IT_VBAP[] IS NOT INITIAL.
SELECT POSNR LFIMG
 INTO TABLE IT_LIPS
 FROM LIPS
 FOR ALL ENTRIES IN IT_VBAP
 WHERE POSNR = IT_VBAP-POSNR.
ENDIF.
IF IT_LIKP[] IS NOT INITIAL.
SELECT VBELN
 INTO TABLE IT_VBRK
 FROM VBRK
 FOR ALL ENTRIES IN IT_LIKP
 WHERE VBELN = IT_LIKP-DELVBELN.
ENDIF.
IF IT_LIPS[] IS NOT INITIAL.
SELECT POSNR FKIMG NETWR
 INTO TABLE IT_VBRP
 FROM VBRP
 FOR ALL ENTRIES IN IT_LIPS
 WHERE POSNR = IT_LIPS-DELPOSNR.
ENDIF.
ENDFORM. " GET_DATA
Edited by: srk s on Jan 29, 2008 7:33 PM
Edited by: Alvaro Tejada Galindo on Jan 29, 2008 9:49 AM

Hi Satish,
I have started the new program but i have trouble with the final internal table. Since i'm using For all entries, I have declared internal tables for each table. My incomplete new program is as follows(not sure if the logic is correct till what I have coded):
*& Report Z_SDFLOW *
REPORT Z_SDFLOW NO STANDARD PAGE HEADING.
********* TABLES TO BE USED ***********************
**** VBAK - SALES DOCUMENT HEADER
* VBAP - SALES ITEM
* VBFA - SALES DOCUMENT FLOW
* KNA1- CUSTOMER MASTER
* VBRK - BILLING DOCUMENT HEADER
* VBRP - BLLING DOCUMENT ITEM
* LIKP - DELIVERY HEADER
* LIPS - DELIVERY ITEM
* TOO1 - COMPANY CODES
* SLIS.
TYPE-POOLS: SLIS.
** STRUCTURE DECLARATIONS ********
**STRUCTURE FOR ENQUIRY.
**STRUCTURE FOR QUOTATION.
**STRUCTURE FOR SALES ORDER HEADER- VBAK.
TYPES: BEGIN OF XT_VBAK,
VBELN TYPE VBAK-VBELN, "SALES DOCUMENT NUMBER
KUNNR TYPE VBAK-KUNNR, " SOLD-TO-PARTY
END OF XT_VBAK.
**STRUCTURE FOR SALES ORDER ITEM-VBAP
TYPES: BEGIN OF XT_VBAP,
POSNR TYPE VBAP-POSNR, " SALES ITEM NUMBER
MATNR TYPE VBAP-MATNR, " MATERIAL NUMBER
KWMENG TYPE VBAP-KWMENG, " CUMMULATIVE ORDER QUANTITY IN SALES UNITS
NETWR TYPE VBAP-NETWR, " NET VALUE OF THE ORDER ITEM
END OF XT_VBAP.
** STRUCTURE FOR DELIVERY HEADER -LIKP
TYPES: BEGIN OF XT_LIKP,
DELVBELN TYPE LIKP-VBELN, "DELIVERY DOCUMENT NUMBER
LFDAT TYPE LIKP-LFDAT, " DELIVERY DATE
END OF XT_LIKP.
**STRUCTURE FOR DELIVERY ITEM - LIPS
TYPES: BEGIN OF XT_LIPS,
DELPOSNR TYPE LIPS-POSNR, " DELIVERY ITEM NUMBER
LFIMG TYPE LIPS-LFIMG, " ACTUAL QUANTITY DELIVERED
END OF XT_LIPS.
**STRUCTURE FOR BILLING DOCUMENT HEADER -VBRK
TYPES: BEGIN OF XT_VBRK,
INVVBELN TYPE VBRK-VBELN, "BILLING DOCUMENT NUMBER
END OF XT_VBRK.
**STRUCTURE FOR BILLING DOCUMENT ITEM - VBRP
TYPES: BEGIN OF XT_VBRP,
INVPOSNR TYPE VBRP-POSNR, "BILLING ITEM NUMBER
FKIMG TYPE VBRP-FKIMG, "ACTUAL INVOICED QUANTITY
INVNETWR TYPE VBRP-NETWR, "NET VALUE OF THE BILLING ITEM
END OF XT_VBRP.
**STRUCTURE FOR FINAL INTERNAL TABLE.
TYPES: BEGIN OF XT_FINAL,
VBELN TYPE VBAK-VBELN,
DELVBELN TYPE LIKP-VBELN,
INVBELN TYPE VBRK-VBELN,
KUNNR TYPE VBAK-KUNNR,
POSNR TYPE VBAP-POSNR,
DELPOSNT TYPE LIPS-POSNR,
INVPOSNR TYPE VBRP-POSNR,
MATNR TYPE VBAP-MATNR,
KWMENG TYPE VBAP-KWMENG,
NETWR TYPE VBAP-NETWR,
INVNETWR TYPE VBRP-NETWR,
LFDAT TYPE LIKP-LFDAT,
LFIMG TYPE LIPS-LFIMG,
FKIMG TYPE VBRP-FKIMG,
NAME1 TYPE KNA1-NAME1,
END OF XT_FINAL.
**DATA DECLARATIONS
DATA: V_NAME1 TYPE KNA1-NAME1, "#EC *
 V_DELVBELN TYPE LIKP-VBELN,
 V_INVVBELN TYPE VBRK-VBELN,
 V_BUKRS TYPE T001-BUKRS, "COMPANY CODE "#EC *
 V_AUDAT TYPE VBAK-AUDAT,
 V_VKORG TYPE VBAK-VKORG,
 V_VKGRP TYPE VBAK-VKGRP,
 V_SPART TYPE VBAK-SPART.
**INTERNAL TABLE DECLARATIONS
DATA: IT_VBAK TYPE STANDARD TABLE OF XT_VBAK,
 WA_VBAK TYPE XT_VBAK,
 IT_VBAP TYPE STANDARD TABLE OF XT_VBAP,
 WA_VBAP TYPE XT_VBAP,
 IT_LIKP TYPE STANDARD TABLE OF XT_LIKP,
 WA_LIKP TYPE XT_LIKP,
 IT_LIPS TYPE STANDARD TABLE OF XT_LIPS,
 WA_LIPS TYPE XT_LIPS,
 IT_VBRK TYPE STANDARD TABLE OF XT_VBRK,
 WA_VBRK TYPE XT_VBRK,
 IT_VBRP TYPE STANDARD TABLE OF XT_VBRP,
 WA_VBRP TYPE XT_VBRP,
 IT_FINAL TYPE STANDARD TABLE OF XT_FINAL,
 WA_FINAL TYPE XT_FINAL.
**ALV DECLARATIONS
DATA: IT_FLDCAT TYPE SLIS_T_FIELDCAT_ALV,
 WA_FLDCAT TYPE SLIS_FIELDCAT_ALV,
 IT_LSTHDR TYPE SLIS_T_LISTHEADER,
 WA_LSTHDR TYPE SLIS_LISTHEADER,
 IT_EVENTS TYPE SLIS_T_EVENT,
 WA_EVENTS TYPE SLIS_ALV_EVENT,
 IT_SORT TYPE SLIS_T_SORTINFO_ALV,
 IT_LAYOUT TYPE SLIS_LAYOUT_ALV.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: S_BUKRS FOR V_BUKRS NO INTERVALS NO-EXTENSION,
 S_VBELN FOR WA_VBAK-VBELN, "SALES DOCUMENT NUMBER
 S_KUNNR FOR WA_VBAK-KUNNR, "SOLD-TO-PARTY
 S_AUDAT FOR V_AUDAT, "SALES DOCUMENT DATE
 S_VKORG FOR V_VKORG, "SALES ORGANISATION
 S_VKGRP FOR V_VKGRP, "SALES GROUP
 S_SPART FOR V_SPART. "DIVISION
SELECTION-SCREEN END OF BLOCK b1.
*****************SCREEN VALIDATION***************
AT SELECTION-SCREEN.
SELECT SINGLE BUKRS FROM T001 INTO V_BUKRS WHERE BUKRS IN S_BUKRS."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID COMPANY CODE'.
ENDIF.
SELECT SINGLE VBELN FROM VBAK INTO
 CORRESPONDING FIELDS OF WA_VBAK WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER VALID SALES DOCUMENT NUMBER'.
ENDIF.
SELECT SINGLE KUNNR FROM VBAK INTO
 CORRESPONDING FIELDS OF WA_VBAK WHERE KUNNR IN S_KUNNR. "EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID CUSTOMER NUMBER'.
ENDIF.
SELECT SINGLE AUDAT FROM VBAK INTO V_AUDAT WHERE AUDAT IN S_AUDAT."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES DOCUMENT DATE'.
ENDIF.
SELECT SINGLE VKORG FROM VBAK INTO V_VKORG WHERE VKORG IN S_VKORG."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES ORGANISATION'.
ENDIF.
SELECT SINGLE VKGRP FROM VBAK INTO V_VKGRP WHERE VKGRP IN S_VKGRP."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES GROUP'.
ENDIF.
SELECT SINGLE SPART FROM VBAK INTO V_SPART WHERE SPART IN S_SPART."#EC *
IF SY-SUBRC <> 0.
MESSAGE E000(Z_SD2) WITH 'ENTER A VALID SALES DIVISION'.
ENDIF.
PERFORM GET_DATA.
*& Form GET_DATA
FORM GET_DATA .
SELECT VBELN KUNNR
 INTO TABLE IT_VBAK
 FROM VBAK
 WHERE VBELN IN S_VBELN.
* BUKRS_VF IN S_BUKRS AND
* VKORG IN S_VKORG AND
* VKGRP IN S_VKGRP AND
* SPART IN S_SPART AND
* KUNNR IN S_KUNNR AND
* AUDAT IN S_AUDAT.
IF IT_VBAK[] IS NOT INITIAL.
SELECT POSNR MATNR KWMENG NETWR
 INTO TABLE IT_VBAP
 FROM VBAP
 FOR ALL ENTRIES IN IT_VBAK
 WHERE VBELN = IT_VBAK-VBELN.
ENDIF.
IF IT_VBAK[] IS NOT INITIAL.
SELECT VBELN LFDAT
 INTO TABLE IT_LIKP
 FROM LIKP
 FOR ALL ENTRIES IN IT_VBAK
 WHERE VBELN = IT_VBAK-VBELN.
ENDIF.
IF IT_VBAP[] IS NOT INITIAL.
SELECT POSNR LFIMG
 INTO TABLE IT_LIPS
 FROM LIPS
 FOR ALL ENTRIES IN IT_VBAP
 WHERE POSNR = IT_VBAP-POSNR.
ENDIF.
IF IT_LIKP[] IS NOT INITIAL.
SELECT VBELN
 INTO TABLE IT_VBRK
 FROM VBRK
 FOR ALL ENTRIES IN IT_LIKP
 WHERE VBELN = IT_LIKP-DELVBELN.
ENDIF.
IF IT_LIPS[] IS NOT INITIAL.
SELECT POSNR FKIMG NETWR
 INTO TABLE IT_VBRP
 FROM VBRP
 FOR ALL ENTRIES IN IT_LIPS
 WHERE POSNR = IT_LIPS-DELPOSNR.
ENDIF.
ENDFORM. " GET_DATA
Code Formatted by: Alvaro Tejada Galindo on Jan 29, 2008 9:48 AM

How to Create/Modify/Delete a query view from the web template in BI 7.0

All:
In BW 3.5, the Query Selection View web item was introduced for users to create a query view to save the navigational state of a query. This web item was also available to modify and delete an existing query view.
The Query Selection View web item does not exist in BI 7.0. I see the drop down web item can be used to display the query views associated to a query.
Can anyone share how to create,modify,save or delete a query view on the web in BI 7.0
Thanks,
Kumar

Sanjay, we experienced the same issue. Below are a few pieces of information that may be of help: 1-The Save As button on the 0ANALYZER template saves the query to the portal. From Bex Web or Bex Analyzer, you have no access to these saved views. We created a ZANALYZER copy of the 0ANALYZER template and removed the Save As button. 2- If you right mouse click on any item in the query results grid of Bex Web, you get a small menu. Clicking on the menu item Save View will save the view to BI. You do not have the ability to delete the saved views from Bex Web. However, you can delete them from Bex Analyzer. This was not an option for us since most of our users are using Bex Web. 3- On the same menu, clicking on Bookmark, saves the navigation and also opens the Internet Explorer Favorites maintence window. The navigation is saved as an entry into the users Internet Explorer favorites where they can organize and delete their entries. However, deleting the favorite does not delete the entry for the bookmark in BI. The bookmarks are stored in table RSWR_DATA. Program RSWR_BOOKMARK_REORG can be used to manage the saved bookmarks. We are loading RSWR_DATA into a chracteristic so that we can query the information in order to help us manage it. I hope this helps you and others that appear to be struggling with the issue of saved views in Bex Web.

Tab strip - dialogue programming

Hi all,
I want to make an dialogue program application which is similar to transaction code pp01. It would have two or three dropdown list boxes. Depending on what options I choose in the list box, certain options will come in the table below ( please refer to pp01).
Now when i click on any of these options to choose it and then click on create button, it should open the corresponding infotype which I already created separately using transaction pm01 - to input entries in that infotype.
When I click on display button, it should display the infotype record if it has been already created - just like pa30.
I knoow how to create list boxes. But depending on the choices in these list boxes , in the tab strip below - on the first screen - should come some values , which will change when i change the listbox options.
can you pls help me in this? My concern is not the list boxes but the action corresponding to list box choices I make and the tabstrip in transaction pp01. how to create it and how to add funcrtionality to the tab strip so it will open my required infotype in display or edit mode.
Please suggest something in this.
Thanks
Ribhu

Hi,
Following links will be helpful:
http://help.sap.com/saphelp_46c/helpdata/en/d1/801bd2454211d189710000e8322d00/frameset.htm
Tabstrip Control
TabStrip ViewSet example
http://help.sap.com/saphelp_bw30b/helpdata/en/04/10f2469e0811d1b4700000e8a52bed/content.htm
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/webas/abap/abap-code-samples/alv-grid/abap%20code%20sample%20for%20tab%20strip%20in%20alv.pdf
Also you can try these sample programs:
try these sample programs in the system
demo_dynpro_tabstrip_local
demo_dynpro_tabstrip_server
Raja T
Message was edited by:
Raja T

Program for creating a model is locked by User

Hi Guys,
We have created a process chain to create the Integration Model and to activate the Integration Model using this prg RIMODGEN. So, This prg we have created variants for different location wise. This process chain contains 13 processes For each location, which is running in parallel. Some time we are getting the error message " Program for creating a model is locked by User
Regards

Dear Pullaiah,
Locking happens if there is any overlap of models or duplicate scheduling of jobs with same variant.
See include LCIFIF01
CALL FUNCTION 'ENQUEUE_ECIF_IMOD'
EXPORTING
    mode_cif_imod = 'E'
    modelname      = i_modid
    logsys         = i_logsys
    apoapp         = i_appl
EXCEPTIONS
    foreign_lock   = 1
    system_failure = 2
    OTHERS         = 3.
So this means for you, you get the lockentry if the modelname, logsys and apoapp is the same. So please check again your variants if there is one with the same integrationmodels.
This can be the only reason we you get here this entry in your joblog.
Regards,
Tibor

Error in creating New Entry from the Client in NW Mobile 7.1

Hi All,
I have created a mobile application for Laptops in NW Mobile 7.1.
I have a requirement to create an entry from the client, i.e., I need to create a PR in the client. The model bindind, the backend adapters, bapi wrappers are in place.
I have used the standard create BAPI for PR and wrapped it in a BAPI wrapper. I just have to give the PR details and save the entry in the client. The BAPI wrapper has the logic for generating the new PR number.
My problem here is, when I try to create a new PR, give the details and save, the entry is not getting updated in the backend and the sync state is '201'.
I checked the "Message Monitoring" in the NW Mobile Administrator for the particular SWCV.
For this create PR transaction, the particulars are as below
Message State: Error - Stop Flow
Message Type: Transaction
Error: "Error occurred while fetching synckeys from table ZDOE01700000SL"
"ZDOE01700000SL" is the Sync key look up table for PR(my data object).
Please let me know where I have gone wrong and guide me in rectifying this problem.
Thanks and Regards,
Sunil

Hi Sunil,
From my understanding, looks like you are not filling synckey when you are creating a PR in your client. Synckey is a unique key on the DOE using which you can uniquely identify any node.
There are two scenario's atleast as I know, where this error would have come.
Case 1. If you are modifying something on client, which has been send by DOE, then you are not supposed to change synckey because it is a primary key. Now if we assume that you are not modifying synckey but when you are sending an update, check if by any chance the synckey is not going to DOE which is one case, and the second one is, after DOE has end that record to client, someone has cleaned up all the tables on DOE for that dataobject or someone has deleted that entry on the backend because of which the entry has been deleted on DOE. In either case, you are modifying something on client which is actually not present on DOE because of which when the DOE tries to look up based on synckey it doesn't find the needed record.
Case 2. If you are creating something on client, then you are supposed to create a synckey which is a 32 bit character GUID. I think in your case, you are missing the synckey when you are sending it to DOE. Check if there is any API for doing that or you have manually create a GUID and send it.
Hope it works out.
Best Regards,
Siva.
PS: Reward with points if you find the post useful.

Not able to create new entry in RSADMIN Table

Hi All,
        I am going thru the OSS note 1275837 (Note 1275837 - PrecServer: process based load distribution (ABAP part)), as it recommends
        add the entry "BWPREC_USE_NEW_LOAD" with value "X" in table "RSADMIN"
      When I check in SE11 and SE16 there is no option to create button for above entry in table RSADMIN.
      Please advise for any help to create above entry.
Thanks
Ganesh Reddy.
Edited by: Ganesh Reddy on Jan 11, 2010 4:20 PM
   I got access key from our basis team. But still not able to create new entry as mentioned in OSS note. Any further help....
Thanks
Ganesh Reddy.
Edited by: Ganesh Reddy on Jan 11, 2010 9:13 PM

Hi
Goto SM30 - Table Maintanance Generator and enter the table name and click on button maintain ,it will show the error message
"The maintenance dialog for RSADMIN is incomplete or not defined" because the table maintenance is not allowed manually.
First Option
When you double click the error message a performance assistant screen will open in that you can see Procedure
"Generate the required maintenance dialog" click on that and try to maintain the table using Access Key, as i dont have access key i have not tried this option.
Second Option
You can write an SE38 program with an insert statement.
TABLES rsadmin.
DATA: wa TYPE rsadmin.
wa-object = 'object name'.
wa-value = 'X'.
INSERT into rsadmin values wa.
Thanks

How to create Infotype entry in table T777D

Hi All,
We have undergone Upgrade from 4.6C to ECC 6.0.
Now we get an error while maintaining certain data infotype 0122 does not exists.
I looked at the entries in table T777D in both the system. In older system the entry is there but not in the new system.
When i tried creating the entry in this table the error comes 'Module pool program MP012200 is not present'. This program was there in 4.6C but is not there in ECC 6.0.
How do we genrate this program or how do we create the entry for this infotype to correct the error.
Is there any customizing settings that is required?
Please advice.
Regards,
Vidya.

Look at OSS [Note 546167 - Termination in PA10: Infotype 0122 does not exist|https://service.sap.com/sap/support/notes/546167]
>Symptom
>
>When you edit the master data (transaction PA10) after you upgrade Release 4.6C to Release 4.70 or higher, a termination occurs and an error message is issued informing you that infotype 0122 does not exist.
>
>Other terms
>
>No entry in table T777D
>
>Solution
>
>In the 'Infotype attributes (Customizing)' view (extended table maintenance for view V_T582A), delete the entry for infotype 0122.
>In the 'Infotypes - country-specific settings' view (extended table maintenance for view V_T582L), delete the entry for infotype 0122.
Regards

Program to create Debit and Credit Memos

Hello everybody!
I am new to SAP and I need to develop ABAP program to create Debit and Credit Memos...
1. Debit/Credit memos created with header (Higher level) item and sub item/s
2. One Debit/Credit memo created per customer
3. A part of information for memos program will receive through XI (Excel file coming through XI)
maybe someone can help?
Helpfull answers will be awarded!
BR, M.

You dont need a custom prog to create a debit memo or credit memo.
You can raise a Credit Memo for a Vendor using the transction code FB65 (without reference to an invoice) or MIRO (if it is with reference to an invoice) and the system would pass the following accounting entry
Dr. Expenses A/c
Cr. Vendor A/c
This particular document would have a payment term and payment due date. While running Automatic Payment Process, depending on the payment method the system will pick up the document and create a cheque / electronic transfer etc for the vendor with the following entry
Dr. Vendor A/c
Cr. Bank Clearing A/c
In the case of Customer you can account the credit memo (without reference to invoice) using FB75 or VA01 (Order Type CR, if it is with reference to an invoice). While you create the billing document for the order type CR the system would raise the following accounting
Dr. Expenses A/c
Cr. Customer A/c
This particular document would have a payment term and payment due date. While running Automatic Payment Process, depending on the payment method the system will pick up the document and create a cheque / electronic transfer etc for the customer with the following entry
Dr. Customer A/c
Cr. Bank Clearing A/c

How to make the fields of the table mandatory while creating new entries..?

Hi,
I have created a new Z table which has 6 fields. All the 6 fields are KEY fields and all are of CHAR type. I have generated the table maintenance generator for the same. My requirement is all the fields should be MANDATORY while creating the entries. No field should be BLANK.
When creating the new entries in the table, even if I don't give any values to some of the fields, it is saving the entry. But, it shouldn't happen like that. If any of the field is kept blank, it should not allow the user to save the entry. Can someone tell me how to approach this. Will there be any settings while creating the table which takes care of this.
I read somewhere that this can be done using the Table EVENTS. Can someone tell me what is the code that we should write there in the Events which prevents the user from saving the blank fields. While writing the logic in the events, how to check whether the particular field is BLANK or not. Will the values be stored in any internal table kind of thing..?
My table name is ZCRF_TAB and the fields are FLD!, FLD2, FLD3, FLD4, FLD5 & FLD6. Can someone provide me sample code for my requirement. Thanks in advance.
Best regards,
Paddu.

Hi,I think u have generated Table Maintainance Generator, goto Environment->Modifications->Events
Select appropriate option by using F4,I think value 05 is appropriate for u r requirement.Enter From routine name.Dbl click on the routine.
Write the appropriate code like:
If ZTABLE-FIELD1 is initial.
Message (E000) with "Fill all the manadatory fields".
Thats it.Just look at the following docu with screenshots,by this understand how u can use Table Events:
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/abap/how%20to%20implement%20events%20in%20table%20maintenance.doc
Regards,
Rock.

Modify Entries in DZL

Hi,
I have a scenario where in Time Pairs are to be converted to number of days instead of number of hours.
Function GMT is processing TIP (time pairs) and is creating wagetypes in DZL with number of hours in number field wherein i need number of days in number field. Each day has 12 hrs.
I am planning to write a PCR to divide the number of hours field by 12 to arrive at number of days. For this input for my rule should be DZL. What is the function that I need to use to modify entries in DZL ?
Any help will be greatly appreciated.
Thanks !

You can use the function PZL.
A recommendation would be not to hard-code 12 hours in your PCR -- try and use the HRS=Snnnn operation to get the number of hours from the DWS and use this information; in case the future calls for DWS with different number of hours.

Modifying entries via the System Server Console (GUI's) 'Import From LDIF'

Hello,
I've created an LDIF file with "changeType: modify" entries but when I import the file via the GUI's 'Import From LDIF' button (taking care to have "Add only" unchecked), the entries are rejected with a "Error adding object ... The error sent by the server was 'Already exists'" error.
Here is an example entry:
dn: nxResource=Administrative Policies,nxResource=eCentre,nxResource=Network,o
u=securitypolicy,dc=ECENTRE
changeType: modify
replace: nxRule
nxRule: rule=deny,cn=SeniorAdministrators,ou=Administration,ou=Groups,dc=ECEN
TRE
I get similar results when trying to delete an entry. If I use the command-line ldapmodify tool, it works fine. Is there a different syntax for the GUI-based import?
Thanks!
Gregg

Hi Gregg,
I'm afraid that the term import for the GUI means ADD and not apply a set of modifications.
Usually, import also imply that the current content of the database is removed.
DS6 has this new option to allow appending new entries instead of replacing the DB. The "add only" check box is meant for this.
I don't think there is a way to apply a set of changes from an LDIF file through the console. ldapmodify is the usual and default way to proceed.
Regards,
Ludovic.

Dialogue program to create/modify entries of ztable

Similar Messages

Maybe you are looking for