Custom Fiscal week table update

Hi All,
I am Basis person but was assigned a task to look into an issue one of the user was getting. Below is the issue
We have a Info Object ZFISCWEEK which we were told by consultant that it pull from table ZFISWKTBL and has to be updated using SM30. Here are 2 issues we have
1) All the entries in SM30 are not showing up when Fiscal week field is selected in Query Designer and try to add restrictions.
2) Even after deleting all the entries from table ZFISWKTBL we are seeing some entries in Fiscal Week restrictions.
I notice that the selection fields for Fiscal Week are coming from /BIC/RZFISCWEEK and this table is not having all the entries that are there in ZFISWKTBL table.
Other than the Basis person which is me, we don't have any one else who know SAP, so any inputs to fix this issue will be very much helpful.
Regards,
Praveen

Hi Ajay,
We were updating table "ZFISWKTBL" using SM30 and not /BIC/SZFISCWEEK. I tried to run the steps as mentioned by you and I don't see option for Maintain Master data. I was only able to enter "ZFISCWEEK" as InfoObject and not the /BIC/**** and when I click on Display and don't see an option of Maintain Master Data. Under Extras I see Master data and under that I see Maintain but it is greyed out. So can you let me know if I am running the steps wrongly or what. In RSA1 I tried to delete Master data for ZFISWEEK Infoobject and I got error not all data is deleted, But I do see some of the stale entries in /BIC/SZFISCWEEK got deleted.
Can you guide what else need to be done to get this done.
Thanks,
Praveen

Similar Messages

Customer Classification..table update AUSP

Hi Guru's
I have to update the customer classification via table AUSP
Table AUSP is only table which stores the Information Characterstics Values maintained for a Class type.
I am updating this table directly via Z program.
data : it type STANDARD TABLE OF ausp WITH HEADER LINE.
it-objek = 'N231512'.
it-ATINN = '0000000068'.
it-atwrt = 'ST'.
it-klart = 'Z01'.
it-mafid = 0.
it-atzhl = '001'.
it-adzhl = '0001'.
it-mandt = '200'.
APPEND it.
MODIFY ausp from table IT.
But when i am going in XD03 to see the characterstic value (ST in this case) . Then ST is not getting set in XD03 classification view.
also when i am setting the same value ST via XD02 then value is getting updated in Table AUSP with duplicate entry what i have updated via above progm.I don't know how table is allowing duplicate entry.
suggest me somthing
Best Regards
Subham

Hi,
Please don't update directly to the table AUSP.. Also the ATINN will be different in each client for one particular classfication data..
I would suggest use the LSMW
Standard Batch/Direct Input
- Object: 0130
- Method: 0002
- Program name: RCCLBI03
- Program type: D
Regards,
Nagaraj

Creating a fiscal date table that includes Day of Year and Week of Year column

Hi,
Our fiscal year runs between 1st October through to 30th September and I'm trying to create a date table that I can use to represent this in Powerpivot (I'm using Excel 2013). I had no probably creating columns for Fiscal month or fiscal year, however I am
having issue breaking it down more than that, specifically I cannot work out how to calculate:
- day of the year
- week of the year (with week one starting on the first day of the year rather than the first Monday)
I worked out how to do the day of the year until I had to try and account for leap years which broke the formula I had! Can anyone please recommend solutions, I cannot see anything online about this. Obviously I know that it is simple to do this for a normal
calendar year but this approach doesn't work with a custom fiscal year.
Whilst it is useful for several reasons, my main reason for wanting week is so that I can plot my Pivotcharts more smoothly (although I may have missed an easier way to do that).
Thanks,
James

For my example I started with 1 column in Power Pivot called [Date]
I created the following Columns
[DayofMonth] =Day([Date])
[MonthNumber] =Month([Date])
[Fiscal Year] =IF([MonthNumber]< 10, Year([Date]), (Year([Date])+1))
[Fiscal Day] =[Date] - DATE(([Fiscal Year] -1), 10,1) +1
[Fiscal Week] =RoundUp([Fiscal Day] / 7, 0)
Change [Date] to whatever your date column is and those DAX formulas will get you what you need

Updating custom field in table EKKO within user exit when PO is saved

I am trying to update a custom field in table EKKO when a PO is saved. I am using FM EXIT_SAPMM06E_013, within enhancement MM06E005. Since EKKO is not a table that can be updated with this user exit, I am using a technic that I read about on SDN where I assign a field symbol to the calling program variable and then am able to access data within EKKO table. But when I pass this data back into the field symbol, for some reason this field is not getting saved when the PO is saved. In debug mode, it looks like this field is getting updated, but when I look in the table after the PO is saved, it is not there. My code sample is below. What I am doing wrong?
data:
CHAR(50) VALUE '(SAPLMEPO)EKKO-ZHDRCSTCENTER',
g_zhdrcstcenter like ekko-zhdrcstcenter,
FIELD-SYMBOLS <F1> type any.
if i_ekko-ekorg = '5401'.
ASSIGN (char) to <F1>.
g_zhdrcstcenter = <F1>.
move '0000113322' to g_zhdrcstcenter.
<F1> = g_zhdrcstcenter.
endif.
Thanks!
Sarah Smyth.

Firstly, have you investigated using EXIT_SAPMM06E_008 to set any custom fields you have added in the EKKO_CI / CI_EKKODB structure?.. that might work more easily.
In terms of doing an assign back into a calling program's memory, it can work but it's probably worth setting a break point in your code then stepping through watching the values in EKKO - sometimes you can find subsequent code that re-writes an earlier copy of values back into the structure, thereby preventing you doing your change... SAP does warn this method is for "internal use". Also check in your debugger that it's SAPLMEPO and not SAPMM06E you need.

BADI or User exit for FB50 to update custom field in table COEP

Hi all,
i have added one custom field in table COEP through include CI_COBL .
when i do posting through sales order(VA02) or purchase order(ME22n) that custom fields in COEP get updated with controlling document
and through BADI AC_DOCUMENT i m updating that custom field in COEP.
but when i do manual posting through FB50 controlling document is generated in COEP but i m not able to update that custom field
because in this case BADI AC_DOCUMENT is not get triggered.
is there any BADI or User exit or enhancement spot for FB50 through which i can update that custom field in table COEP

Hi Sandy,
Thanks for u r reply,
RFAVIS01 is not getting triggered through FB50
and F180A001 ( EXIT_SAPLF048_001) is getting triggered but it doesnt contain COEP field in its parameter
import - F180A_DOC_HEAD_TAB
F180A_DOC_ITEM_TAB
changing - RELATION_TAB

Custom Table updation thru table control

Hi All,
My requirement is to update the custom table by creating a custom screen with table control,say my z table has 2 fields name1 and bukrs.
if i enter the value in table control then i click the save icon these fields should get updated in the z table .can any one send me the piece of code for this,since i have not worked on table control i need it in detail.
Useful answers will be rewarded....
Thanks in Advance.....

PROGRAM ZSD_REBATE_MASTER MESSAGE-ID FV
         NO STANDARD PAGE HEADING.
TABLES: KONA,
        ZSD_BILLINFO,
        ZSD_RBT_ELG_INV,
        KNVV.
DATA: OK_CODE LIKE SY-UCOMM,
      L_CODE LIKE SY-UCOMM.
DATA : BEGIN OF I_KNVV_DATA OCCURS 0,
       GJAHR LIKE ZSD_RBT_MAS_DATA-GJAHR,
       KNUMA LIKE ZSD_RBT_MAS_DATA-KNUMA,
       VKBUR LIKE ZSD_RBT_MAS_DATA-VKBUR,
       VKORG LIKE ZSD_RBT_MAS_DATA-VKORG,
       VTWEG LIKE ZSD_RBT_MAS_DATA-VTWEG,
       SPART LIKE ZSD_RBT_MAS_DATA-SPART,
       OTQTY LIKE ZSD_RBT_MAS_DATA-OTQTY,
       PCPDAYS LIKE ZSD_RBT_MAS_DATA-PCPDAYS,
       OTPC LIKE ZSD_RBT_MAS_DATA-OTPC,
       MATKL LIKE ZSD_RBT_MAS_DATA-MATKL,
      EBDFROM LIKE ZSD_RBT_MAS_DATA-EBDFROM,
      EBDTO LIKE ZSD_RBT_MAS_DATA-EBDTO,
       STATUS LIKE ZSD_RBT_MAS_DATA-STATUS,
     END OF I_KNVV_DATA.
DATA : G_ANS(1), GR1, FLAG(1),LS(1).
*&      Module STATUS_1500 OUTPUT
      text
MODULE STATUS_1500 OUTPUT.
SET PF-STATUS '1500'.
SET TITLEBAR 'HEADING_1500'.
ENDMODULE.                 " STATUS_1500 OUTPUT
*&      Module USER_COMMAND_1500 INPUT
      text
MODULE USER_COMMAND_1500 INPUT.
OK_CODE = SY-UCOMM.
L_CODE = OK_CODE.
IF L_CODE = 'EXIT'.
    LEAVE PROGRAM.
ELSEIF L_CODE = 'OK'.
    PERFORM ERROR_MESSGE.
    IF FLAG <> '1'.
      SELECT SINGLE * FROM ZSD_RBT_ELG_INV WHERE KNUMA = KONA-KNUMA.
      IF SY-SUBRC = 0.
        UPDATE ZSD_RBT_MAS_DATA SET STATUS = 'C'
                       WHERE KNUMA = KONA-KNUMA.
        COMMIT WORK.
      ENDIF.
      CALL SCREEN 1600.
    ENDIF.
ENDIF.
ENDMODULE.                 " USER_COMMAND_1500 INPUT
*&      Module MOD_CHECK_INPUT INPUT
      text
MODULE MOD_CHECK_INPUT INPUT.
SELECT SINGLE * FROM KONA WHERE KNUMA = KONA-KNUMA.
IF SY-SUBRC <> 0.
    MESSAGE E999 WITH 'Agreement No. ' KONA-KNUMA 'does not exists'.
ENDIF.
ENDMODULE.                 " MOD_CHECK_INPUT INPUT
*&      Module EXIT INPUT
      text
MODULE EXIT INPUT.
OK_CODE = SY-UCOMM.
L_CODE = OK_CODE.
CLEAR OK_CODE.
IF L_CODE = 'EXIT'.
    LEAVE PROGRAM.
ENDIF.
ENDMODULE.                 " EXIT INPUT
***&SPWIZARD: DATA DECLARATION FOR TABLECONTROL 'GRID_MAST'
*&SPWIZARD: DEFINITION OF DDIC-TABLE
TABLES:   ZSD_RBT_MAS_DATA.
*&SPWIZARD: TYPE FOR THE DATA OF TABLECONTROL 'GRID_MAST'
TYPES: BEGIN OF T_GRID_MAST,
         GJAHR LIKE ZSD_RBT_MAS_DATA-GJAHR,
         KNUMA LIKE ZSD_RBT_MAS_DATA-KNUMA,
         VKBUR LIKE ZSD_RBT_MAS_DATA-VKBUR,
         VKORG LIKE ZSD_RBT_MAS_DATA-VKORG,
         VTWEG LIKE ZSD_RBT_MAS_DATA-VTWEG,
         SPART LIKE ZSD_RBT_MAS_DATA-SPART,
         OTQTY LIKE ZSD_RBT_MAS_DATA-OTQTY,
         PCPDAYS LIKE ZSD_RBT_MAS_DATA-PCPDAYS,
         OTPC LIKE ZSD_RBT_MAS_DATA-OTPC,
         MATKL LIKE ZSD_RBT_MAS_DATA-MATKL,
        EBDFROM LIKE ZSD_RBT_MAS_DATA-EBDFROM,
        EBDTO LIKE ZSD_RBT_MAS_DATA-EBDTO,
         STATUS LIKE ZSD_RBT_MAS_DATA-STATUS,
       END OF T_GRID_MAST.
*&SPWIZARD: INTERNAL TABLE FOR TABLECONTROL 'GRID_MAST'
DATA:     G_GRID_MAST_ITAB   TYPE T_GRID_MAST OCCURS 0 WITH HEADER LINE,
          G_GRID_MAST_WA     TYPE T_GRID_MAST. "work area
DATA:     G_GRID_MAST_COPIED.           "copy flag
*&SPWIZARD: DECLARATION OF TABLECONTROL 'GRID_MAST' ITSELF
CONTROLS: GRID_MAST TYPE TABLEVIEW USING SCREEN 1600.
*&SPWIZARD: LINES OF TABLECONTROL 'GRID_MAST'
DATA:     G_GRID_MAST_LINES LIKE SY-LOOPC.
DATA: L_LINE LIKE GRID_MAST-CURRENT_LINE.
*&SPWIZARD: OUTPUT MODULE FOR TC 'GRID_MAST'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: COPY DDIC-TABLE TO ITAB
**&      Module GRID_INACT OUTPUT
      text
MODULE GRID_MAST_INIT OUTPUT.
DATA: L_FLAG(1).
IF G_GRID_MAST_COPIED IS INITIAL.
*&SPWIZARD: COPY DDIC-TABLE 'ZSD_RBT_MAS_DATA'
*&SPWIZARD: INTO INTERNAL TABLE 'g_GRID_MAST_itab'
    PERFORM GET_DATA.
    LOOP AT I_KNVV_DATA.
      G_GRID_MAST_ITAB-GJAHR = I_KNVV_DATA-GJAHR.
      G_GRID_MAST_ITAB-KNUMA = I_KNVV_DATA-KNUMA.
      G_GRID_MAST_ITAB-VKBUR = I_KNVV_DATA-VKBUR.
      G_GRID_MAST_ITAB-VKORG = I_KNVV_DATA-VKORG.
      G_GRID_MAST_ITAB-VTWEG = I_KNVV_DATA-VTWEG.
      G_GRID_MAST_ITAB-SPART = I_KNVV_DATA-SPART.
      G_GRID_MAST_ITAB-OTQTY = I_KNVV_DATA-OTQTY.
      G_GRID_MAST_ITAB-PCPDAYS = I_KNVV_DATA-PCPDAYS.
      G_GRID_MAST_ITAB-OTPC = I_KNVV_DATA-OTPC.
      G_GRID_MAST_ITAB-MATKL = I_KNVV_DATA-MATKL.
     G_GRID_MAST_ITAB-EBDFROM = I_KNVV_DATA-EBDFROM.
     G_GRID_MAST_ITAB-EBDTO = I_KNVV_DATA-EBDTO.
      G_GRID_MAST_ITAB-STATUS = I_KNVV_DATA-STATUS.
     G_GRID_MAST_ITAB-OTPC = I_KNVV_DATA-OTPC.
      APPEND G_GRID_MAST_ITAB.
    ENDLOOP.
    L_FLAG = 'X'.
    G_GRID_MAST_COPIED = 'X'.
    REFRESH CONTROL 'GRID_MAST' FROM SCREEN '1600'.
ENDIF.
IF L_FLAG IS INITIAL.
    L_LINE = GRID_MAST-CURRENT_LINE.
    IF NOT G_GRID_MAST_WA IS INITIAL.
     READ TABLE G_GRID_MAST_ITAB INDEX GRID_MAST-CURRENT_LINE.
     IF SY-SUBRC <> 0.
      MOVE-CORRESPONDING G_GRID_MAST_WA TO G_GRID_MAST_ITAB.
      APPEND G_GRID_MAST_ITAB.
      REFRESH CONTROL 'GRID_MAST' FROM SCREEN '1600'.
     CLEAR G_GRID_MAST_WA.
     ENDIF.
    ENDIF.
ELSE.
    CLEAR L_FLAG.
ENDIF.
ENDMODULE.                    "GRID_MAST_INIT OUTPUT
*&SPWIZARD: OUTPUT MODULE FOR TC 'GRID_MAST'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: MOVE ITAB TO DYNPRO
MODULE GRID_MAST_MOVE OUTPUT.
IF NOT G_GRID_MAST_WA IS INITIAL.
    MOVE-CORRESPONDING G_GRID_MAST_WA TO ZSD_RBT_MAS_DATA.
    CLEAR G_GRID_MAST_WA.
ENDIF.
GRID_MAST-LINES = G_GRID_MAST_LINES + 100.
ENDMODULE.                    "GRID_MAST_MOVE OUTPUT
**&SPWIZARD: OUTPUT MODULE FOR TC 'GRID_MAST'. DO NOT CHANGE THIS LINE!
**&SPWIZARD: GET LINES OF TABLECONTROL
MODULE GRID_MAST_GET_LINES OUTPUT.
SELECT SINGLE * FROM ZSD_RBT_ELG_INV WHERE KNUMA = KONA-KNUMA.
IF SY-SUBRC = 0.
    UPDATE ZSD_RBT_MAS_DATA SET STATUS = 'C'
                   WHERE KNUMA = KONA-KNUMA.
    COMMIT WORK.
    IF ZSD_RBT_ELG_INV-ZFLAG = 'C'.
      LOOP AT SCREEN.
        IF SCREEN-GROUP1 = 'GR1'.
          SCREEN-INPUT = '0'.
        ENDIF.
        MODIFY SCREEN.
      ENDLOOP.
    ENDIF.
ENDIF.
G_GRID_MAST_LINES = SY-LOOPC.
ENDMODULE.                    "GRID_MAST_GET_LINES OUTPUT
*&SPWIZARD: INPUT MODULE FOR TC 'GRID_MAST'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: MODIFY TABLE
MODULE GRID_MAST_MODIFY INPUT.
MOVE-CORRESPONDING ZSD_RBT_MAS_DATA TO G_GRID_MAST_WA.
IF L_FLAG IS INITIAL.
    L_LINE = GRID_MAST-CURRENT_LINE.
    IF NOT G_GRID_MAST_WA IS INITIAL.
    IF L_LINE = GRID_MAST-CURRENT_LINE.
     READ TABLE G_GRID_MAST_ITAB INDEX GRID_MAST-CURRENT_LINE.
     IF SY-SUBRC = 0.
      MODIFY G_GRID_MAST_ITAB    FROM G_GRID_MAST_WA
    INDEX GRID_MAST-CURRENT_LINE.
    ELSE.
      MOVE-CORRESPONDING G_GRID_MAST_WA TO G_GRID_MAST_ITAB.
      APPEND G_GRID_MAST_ITAB.
      REFRESH CONTROL 'GRID_MAST' FROM SCREEN '1600'.
    ENDIF.
    ELSE.
      MOVE-CORRESPONDING G_GRID_MAST_WA TO G_GRID_MAST_ITAB.
      APPEND G_GRID_MAST_ITAB.
      REFRESH CONTROL 'GRID_MAST' FROM SCREEN '1600'.
     CLEAR G_GRID_MAST_WA.
     ENDIF.
    ENDIF.
ELSE.
    CLEAR L_FLAG.
ENDIF.
MODIFY G_GRID_MAST_ITAB
   FROM G_GRID_MAST_WA
   INDEX GRID_MAST-CURRENT_LINE.
ENDMODULE.                    "GRID_MAST_MODIFY INPUT
*&SPWIZARD: INPUT MODULE FOR TC 'GRID_MAST'. DO NOT CHANGE THIS LINE!
*&SPWIZARD: PROCESS USER COMMAND
MODULE GRID_MAST_USER_COMMAND INPUT.
OK_CODE = SY-UCOMM.
PERFORM USER_OK_TC USING    'SY-UCOMM'
                              'G_GRID_MAST_ITAB'
                              'FLAG'
                     CHANGING OK_CODE.
SY-UCOMM = OK_CODE.
ENDMODULE.                    "GRID_MAST_USER_COMMAND INPUT
*&      Module STATUS_1600 OUTPUT
      text
MODULE STATUS_1600 OUTPUT.
SET PF-STATUS 'STATUS_1600'.
SET TITLEBAR 'HEADING_1600'.
ENDMODULE.                 " STATUS_1600 OUTPUT
*&      Module USER_COMMAND_1600 INPUT
      text
MODULE USER_COMMAND_1600 INPUT.
CASE SY-UCOMM.
    WHEN 'CAN'.
      CLEAR: G_GRID_MAST_COPIED, G_GRID_MAST_ITAB.
      LEAVE TO SCREEN '1500'.
    WHEN 'BACK'.
      CLEAR: G_GRID_MAST_COPIED, G_GRID_MAST_ITAB.
      LEAVE TO SCREEN '1500'.
    WHEN 'EXIT'.
      LEAVE TO SCREEN '1500'.
    WHEN 'SAVE'.
    DELETE FROM ZSD_RBT_MAS_DATA WHERE KNUMA EQ KONA-KNUMA.
      PERFORM SAVE_DATA.
   WHEN 'DELE'.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_1600 INPUT
*&      Form FCODE_INSERT_ROW                                         *
FORM fcode_insert_row
              USING    P_TC_NAME           TYPE DYNFNAM
                       P_TABLE_NAME             .
&SPWIZARD: BEGIN OF LOCAL DATA----
DATA L_LINES_NAME       LIKE FELD-NAME.
DATA L_SELLINE          LIKE SY-STEPL.
DATA L_LASTLINE         TYPE I.
DATA L_LINE             TYPE I.
DATA L_TABLE_NAME       LIKE FELD-NAME.
FIELD-SYMBOLS <TC>                 TYPE CXTAB_CONTROL.
FIELD-SYMBOLS <TABLE>              TYPE STANDARD TABLE.
FIELD-SYMBOLS <LINES>              TYPE I.
&SPWIZARD: END OF LOCAL DATA----
ASSIGN (P_TC_NAME) TO <TC>.
*&SPWIZARD: get the table, which belongs to the tc                     *
CONCATENATE P_TABLE_NAME '[]' INTO L_TABLE_NAME. "table body
ASSIGN (L_TABLE_NAME) TO <TABLE>.                "not headerline
*&SPWIZARD: get looplines of TableControl                              *
CONCATENATE 'G_' P_TC_NAME '_LINES' INTO L_LINES_NAME.
ASSIGN (L_LINES_NAME) TO <LINES>.
*&SPWIZARD: get current line                                           *
GET CURSOR LINE L_SELLINE.
IF SY-SUBRC <> 0.                   " append line to table
    L_SELLINE = <TC>-LINES + 1.
*&SPWIZARD: set top line                                               *
    IF L_SELLINE > <LINES>.
      <TC>-TOP_LINE = L_SELLINE - <LINES> + 1 .
    ELSE.
      <TC>-TOP_LINE = 1.
    ENDIF.
ELSE.                               " insert line into table
    L_SELLINE = <TC>-TOP_LINE + L_SELLINE - 1.
    L_LASTLINE = <TC>-TOP_LINE + <LINES> - 1.
ENDIF.
*&SPWIZARD: set new cursor line                                        *
L_LINE = L_SELLINE - <TC>-TOP_LINE + 1.
*&SPWIZARD: insert initial line                                        *
INSERT INITIAL LINE INTO <TABLE> INDEX L_SELLINE.
<TC>-LINES = <TC>-LINES + 1.
*&SPWIZARD: set cursor                                                 *
SET CURSOR LINE L_LINE.
ENDFORM.                              " FCODE_INSERT_ROW
*&      Form FCODE_DELETE_ROW                                         *
FORM fcode_delete_row
              USING    P_TC_NAME           TYPE DYNFNAM
                       P_TABLE_NAME
                       P_MARK_NAME   .
&SPWIZARD: BEGIN OF LOCAL DATA----
DATA L_TABLE_NAME       LIKE FELD-NAME.
FIELD-SYMBOLS <TC>         TYPE cxtab_control.
FIELD-SYMBOLS <TABLE>      TYPE STANDARD TABLE.
FIELD-SYMBOLS <WA>.
FIELD-SYMBOLS <MARK_FIELD>.
&SPWIZARD: END OF LOCAL DATA----
ASSIGN (P_TC_NAME) TO <TC>.
*&SPWIZARD: get the table, which belongs to the tc                     *
CONCATENATE P_TABLE_NAME '[]' INTO L_TABLE_NAME. "table body
ASSIGN (L_TABLE_NAME) TO <TABLE>.                "not headerline
*&SPWIZARD: delete marked lines                                        *
DESCRIBE TABLE <TABLE> LINES <TC>-LINES.
LOOP AT <TABLE> ASSIGNING <WA>.
*&SPWIZARD: access to the component 'FLAG' of the table header         *
    ASSIGN COMPONENT P_MARK_NAME OF STRUCTURE <WA> TO <MARK_FIELD>.
    IF <MARK_FIELD> = 'X'.
      DELETE <TABLE> INDEX SYST-TABIX.
      IF SY-SUBRC = 0.
        <TC>-LINES = <TC>-LINES - 1.
      ENDIF.
    ENDIF.
ENDLOOP.
ENDFORM.                              " FCODE_DELETE_ROW
*&      Form COMPUTE_SCROLLING_IN_TC
      text
     -->P_TC_NAME name of tablecontrol
     -->P_OK       ok code
FORM COMPUTE_SCROLLING_IN_TC USING    P_TC_NAME
                                      P_OK.
&SPWIZARD: BEGIN OF LOCAL DATA----
DATA L_TC_NEW_TOP_LINE     TYPE I.
DATA L_TC_NAME             LIKE FELD-NAME.
DATA L_TC_LINES_NAME       LIKE FELD-NAME.
DATA L_TC_FIELD_NAME       LIKE FELD-NAME.
FIELD-SYMBOLS <TC>         TYPE cxtab_control.
FIELD-SYMBOLS <LINES>      TYPE I.
&SPWIZARD: END OF LOCAL DATA----
ASSIGN (P_TC_NAME) TO <TC>.
*&SPWIZARD: get looplines of TableControl                              *
CONCATENATE 'G_' P_TC_NAME '_LINES' INTO L_TC_LINES_NAME.
ASSIGN (L_TC_LINES_NAME) TO <LINES>.
*&SPWIZARD: is no line filled?                                         *
IF <TC>-LINES = 0.
*&SPWIZARD: yes, ...                                                   *
    L_TC_NEW_TOP_LINE = 1.
ELSE.
*&SPWIZARD: no, ...                                                    *
    CALL FUNCTION 'SCROLLING_IN_TABLE'
         EXPORTING
              ENTRY_ACT             = <TC>-TOP_LINE
              ENTRY_FROM            = 1
              ENTRY_TO              = <TC>-LINES
              LAST_PAGE_FULL        = 'X'
              LOOPS                 = <LINES>
              OK_CODE               = P_OK
              OVERLAPPING           = 'X'
         IMPORTING
              ENTRY_NEW             = L_TC_NEW_TOP_LINE
         EXCEPTIONS
             NO_ENTRY_OR_PAGE_ACT = 01
             NO_ENTRY_TO           = 02
             NO_OK_CODE_OR_PAGE_GO = 03
              OTHERS                = 0.
ENDIF.
*&SPWIZARD: get actual tc and column                                   *
GET CURSOR FIELD L_TC_FIELD_NAME
             AREA L_TC_NAME.
IF SYST-SUBRC = 0.
    IF L_TC_NAME = P_TC_NAME.
*&SPWIZARD: et actual column                                           *
      SET CURSOR FIELD L_TC_FIELD_NAME LINE 1.
    ENDIF.
ENDIF.
*&SPWIZARD: set the new top line                                       *
<TC>-TOP_LINE = L_TC_NEW_TOP_LINE.
ENDFORM.                              " COMPUTE_SCROLLING_IN_TC
*&      Form FCODE_TC_MARK_LINES
      marks all TableControl lines
     -->P_TC_NAME name of tablecontrol
FORM FCODE_TC_MARK_LINES USING P_TC_NAME
                               P_TABLE_NAME
                               P_MARK_NAME.
&SPWIZARD: EGIN OF LOCAL DATA----
DATA L_TABLE_NAME       LIKE FELD-NAME.
FIELD-SYMBOLS <TC>         TYPE cxtab_control.
FIELD-SYMBOLS <TABLE>      TYPE STANDARD TABLE.
FIELD-SYMBOLS <WA>.
FIELD-SYMBOLS <MARK_FIELD>.
&SPWIZARD: END OF LOCAL DATA----
ASSIGN (P_TC_NAME) TO <TC>.
*&SPWIZARD: get the table, which belongs to the tc                     *
CONCATENATE P_TABLE_NAME '[]' INTO L_TABLE_NAME. "table body
ASSIGN (L_TABLE_NAME) TO <TABLE>.                "not headerline
*&SPWIZARD: mark all filled lines                                      *
LOOP AT <TABLE> ASSIGNING <WA>.
*&SPWIZARD: access to the component 'FLAG' of the table header         *
    ASSIGN COMPONENT P_MARK_NAME OF STRUCTURE <WA> TO <MARK_FIELD>.
    <MARK_FIELD> = 'X'.
ENDLOOP.
ENDFORM.                                          "fcode_tc_mark_lines
*&      Form FCODE_TC_DEMARK_LINES
      demarks all TableControl lines
     -->P_TC_NAME name of tablecontrol
FORM FCODE_TC_DEMARK_LINES USING P_TC_NAME
                                 P_TABLE_NAME
                                 P_MARK_NAME .
&SPWIZARD: BEGIN OF LOCAL DATA----
DATA L_TABLE_NAME       LIKE FELD-NAME.
FIELD-SYMBOLS <TC>         TYPE cxtab_control.
FIELD-SYMBOLS <TABLE>      TYPE STANDARD TABLE.
FIELD-SYMBOLS <WA>.
FIELD-SYMBOLS <MARK_FIELD>.
&SPWIZARD: END OF LOCAL DATA----
ASSIGN (P_TC_NAME) TO <TC>.
*&SPWIZARD: get the table, which belongs to the tc                     *
CONCATENATE P_TABLE_NAME '[]' INTO L_TABLE_NAME. "table body
ASSIGN (L_TABLE_NAME) TO <TABLE>.                "not headerline
*&SPWIZARD: demark all filled lines                                    *
LOOP AT <TABLE> ASSIGNING <WA>.
*&SPWIZARD: access to the component 'FLAG' of the table header         *
    ASSIGN COMPONENT P_MARK_NAME OF STRUCTURE <WA> TO <MARK_FIELD>.
    <MARK_FIELD> = SPACE.
ENDLOOP.
ENDFORM.                                          "fcode_tc_mark_lines
FORM GET_DATA...
FORM GET_DATA.
CLEAR : I_KNVV_DATA, ZSD_BILLINFO, G_GRID_MAST_COPIED,
G_GRID_MAST_ITAB, ZSD_RBT_MAS_DATA, KNVV, ZSD_RBT_ELG_INV.
REFRESH: I_KNVV_DATA, G_GRID_MAST_ITAB.
SELECT SINGLE * FROM KONA WHERE KNUMA = KONA-KNUMA.
IF SY-SUBRC = 0.
    SELECT * FROM ZSD_RBT_MAS_DATA
           INTO
           CORRESPONDING FIELDS OF
           TABLE I_KNVV_DATA
           WHERE KNUMA = KONA-KNUMA.
    IF SY-SUBRC <> 0.
      SELECT * INTO CORRESPONDING FIELDS OF TABLE I_KNVV_DATA
      FROM KNVV
      WHERE KUNNR = KONA-BONEM.
      SELECT SINGLE * FROM ZSD_BILLINFO WHERE KUNAG = KONA-BONEM.
      LOOP AT I_KNVV_DATA.
        SELECT SINGLE * FROM ZSD_RBT_ELG_INV
            WHERE KNUMA = KONA-KNUMA
              AND VKORG = I_KNVV_DATA-VKORG
              AND VTWEG = I_KNVV_DATA-VTWEG
              AND SPART = I_KNVV_DATA-SPART.
        IF SY-SUBRC = 0.
          I_KNVV_DATA-STATUS = ZSD_RBT_ELG_INV-ZFLAG.
        ENDIF.
        I_KNVV_DATA-GJAHR = ZSD_BILLINFO-GJAHR.
        I_KNVV_DATA-KNUMA = KONA-KNUMA.
        MODIFY I_KNVV_DATA INDEX SY-TABIX.
      ENDLOOP.
    ENDIF.
ENDIF.
ENDFORM.                    "GET_DATA
FORM SAVE_DATA...
FORM SAVE_DATA.
IF NOT G_GRID_MAST_ITAB IS INITIAL.
    CALL FUNCTION 'POPUP_TO_CONFIRM'
       EXPORTING
        TITLEBAR                    = 'Confirmation'
DIAGNOSE_OBJECT             = ' '
   TEXT_QUESTION               = 'Do you want to save the document?'
        TEXT_BUTTON_1               = 'YES'
ICON_BUTTON_1               = ' '
        TEXT_BUTTON_2               = 'NO'
ICON_BUTTON_2               = ' '
         DEFAULT_BUTTON              = '1'
         DISPLAY_CANCEL_BUTTON       = ''
USERDEFINED_F1_HELP         = ' '
START_COLUMN                = 25
START_ROW                   = 6
POPUP_TYPE                  =
IV_QUICKINFO_BUTTON_1       = ' '
IV_QUICKINFO_BUTTON_2       = ' '
      IMPORTING
        ANSWER                      = G_ANS
TABLES
PARAMETER                   =
      EXCEPTIONS
        TEXT_NOT_FOUND              = 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.
    IF G_ANS = '1'.
      SELECT SINGLE * FROM ZSD_RBT_MAS_DATA
          WHERE KNUMA = KONA-KNUMA.
      IF SY-SUBRC = 0.
        LOOP AT G_GRID_MAST_ITAB.
         IF G_GRID_MAST_ITAB-OTQTY > 0.
              I_KNVV_DATA-PCPDAYS
              I_KNVV_DATA-OTPC
              I_KNVV_DATA-EBDFROM
              I_KNVV_DATA-EBDTO
          ZSD_RBT_MAS_DATA-GJAHR = G_GRID_MAST_ITAB-GJAHR.
          ZSD_RBT_MAS_DATA-KNUMA = G_GRID_MAST_ITAB-KNUMA.
          ZSD_RBT_MAS_DATA-VKBUR = G_GRID_MAST_ITAB-VKBUR.
          ZSD_RBT_MAS_DATA-VKORG = G_GRID_MAST_ITAB-VKORG.
          ZSD_RBT_MAS_DATA-VTWEG = G_GRID_MAST_ITAB-VTWEG.
          ZSD_RBT_MAS_DATA-SPART = G_GRID_MAST_ITAB-SPART.
          ZSD_RBT_MAS_DATA-MATKL = G_GRID_MAST_ITAB-MATKL.
          ZSD_RBT_MAS_DATA-OTQTY = G_GRID_MAST_ITAB-OTQTY.
          ZSD_RBT_MAS_DATA-PCPDAYS = G_GRID_MAST_ITAB-PCPDAYS.
          ZSD_RBT_MAS_DATA-OTPC = G_GRID_MAST_ITAB-OTPC.
         ZSD_RBT_MAS_DATA-EBDFROM = G_GRID_MAST_ITAB-EBDFROM.
         ZSD_RBT_MAS_DATA-EBDTO = G_GRID_MAST_ITAB-EBDTO.
          MODIFY ZSD_RBT_MAS_DATA.
          COMMIT WORK.
         ENDIF.
        ENDLOOP.
      ELSE.
        LOOP AT G_GRID_MAST_ITAB.
         IF G_GRID_MAST_ITAB-OTQTY > 0.
              I_KNVV_DATA-PCPDAYS
              I_KNVV_DATA-OTPC
              I_KNVV_DATA-EBDFROM
              I_KNVV_DATA-EBDTO
          ZSD_RBT_MAS_DATA-GJAHR = G_GRID_MAST_ITAB-GJAHR.
          ZSD_RBT_MAS_DATA-KNUMA = G_GRID_MAST_ITAB-KNUMA.
          ZSD_RBT_MAS_DATA-VKBUR = G_GRID_MAST_ITAB-VKBUR.
          ZSD_RBT_MAS_DATA-VKORG = G_GRID_MAST_ITAB-VKORG.
          ZSD_RBT_MAS_DATA-VTWEG = G_GRID_MAST_ITAB-VTWEG.
          ZSD_RBT_MAS_DATA-SPART = G_GRID_MAST_ITAB-SPART.
          ZSD_RBT_MAS_DATA-OTQTY = G_GRID_MAST_ITAB-OTQTY.
          ZSD_RBT_MAS_DATA-PCPDAYS = G_GRID_MAST_ITAB-PCPDAYS.
          ZSD_RBT_MAS_DATA-OTPC = G_GRID_MAST_ITAB-OTPC.
         ZSD_RBT_MAS_DATA-EBDFROM = G_GRID_MAST_ITAB-EBDFROM.
         ZSD_RBT_MAS_DATA-EBDTO = G_GRID_MAST_ITAB-EBDTO.
          ZSD_RBT_MAS_DATA-STATUS = G_GRID_MAST_ITAB-STATUS.
          ZSD_RBT_MAS_DATA-MATKL = G_GRID_MAST_ITAB-MATKL.
          INSERT ZSD_RBT_MAS_DATA.
          COMMIT WORK.
         ENDIF.
        ENDLOOP.
      ENDIF.
    ENDIF.
ENDIF.
ENDFORM.                    "SAVE_DATA
ENDMODULE.                 " GRID_CHECK OUTPUT

Advanced Custom Field help. Need fiscal quarter/fiscal week.

A coworker is setting up an MS Project...project, and she asked
for some help adding a custom field that would convert the Start date field into our Fiscal Quarter Fiscal Week schema, to display as FQFW, e.g. Q1W1. I've written a formula that accomplishes this quite nicely in excel, but I've never even touched Project
until this week. Apparently it doesn't take formulas quite the same way as Excel does. I tried using the ''Switch" function in Project, and it worked, but it only accepts 14 arguments(right?), and there are obviously 52 weeks we're dealing with. Does
anyone have any suggestions? Would there be a way to do this using VBA? (I know next to nothing here as well.)
Formula in excel where A1 is the Start Date:
=IF(AND(A1>=DATE(2014,2,1),A1<=DATE(2014,5,2)),CONCATENATE("Q1","W",(INT((A1-DATE(2014,2,1))/7)+1)),IF(AND(A1>=DATE(2014,5,3),A1<=DATE(2014,8,1)),CONCATENATE("Q2","W",(INT((A1-DATE(2014,5,3))/7)+1)),IF(AND(A1>=DATE(2014,8,2),A1<=DATE(2014,10,31)),CONCATENATE("Q3","W",(INT((A1-DATE(2014,8,2))/7)+1)),IF(AND(A1>=DATE(2014,11,1),A1<=DATE(2015,1,30)),CONCATENATE("Q4","W",(INT((A1-DATE(2014,11,1))/7)+1)),FALSE))))
Any and all suggestions welcome.
Thanks.

msinnen,
You're correct, switch statements and if statements can only be nested to 15 levels. However, VBA can get you there. This macro should do what your coworker needs with the following assumptions - the fiscal year starts in January and quarters end on the
last day of the month, not the last Friday. If either or both of those assumptions are incorrect, then this macro will need some tweaking. Note: the quarter and work week designator will be written into the Text1 field.
Sub FQuartsandWeeks90()
Dim t As Task
Dim Mon As Integer
Dim Qtr As String, Wk As String
For Each t In ActiveProject.Tasks
If Not t Is Nothing Then
t.Text1 = ""
Mon = Month(t.Start)
Select Case Mon
Case 1 To 3
Qtr = "Q1"
Wk = "W" & CStr(DatePart("ww", t.Start))
Case 4 To 6
Qtr = "Q2"
Wk = "W" & CStr(DatePart("ww", t.Start) - 13)
Case 7 To 9
Qtr = "Q3"
Wk = "W" & CStr(DatePart("ww", t.Start) - 26)
Case Else
Qtr = "Q4"
Wk = "W" & CStr(DatePart("ww", t.Start) - 39)
End Select
t.Text1 = Qtr & Wk
End If
Next t
End Sub
John

Updating Custom field in Table BUT000 using BAPI 'BAPI_ISUPARTNER_CHANGE'.

Hi,
I have added a new custom field in table BUT000. Now i want to update that field with 'X' and i have used EXTENSIONIN parameter in the BAPI 'BAPI_ISUPARTNER_CHANGE'. i have populated the field name(Custom field name) and value 'X' to that structure and passed to BAPI. But that field value was not getting updated. So can any one help me how to resolve this issue.
Thanks,
Sushma

Hi Ravi,
Thanks for your response.
I have passed the Structure name in parameter EXTENSIONIN, but still i am facing the same problem.
Thanks,
Sushma

"BFOD_A" Table update (FI Subsequent BA/PC Adjustment: Customer Items)

Hi Friends,
I have posted a payment document 120001 in company code please see the below entry.
Itm     PK     Account     Account short text     Assignment     Tx               Amount
1     40     12519002     GL                      20081117                             25,330.98
2     40     12519002     GL                      20081117                          1,225,915.04
3     40     12519002     GL                      20081117                                 9,417.00
4     50     12519002     GL                      20081117                                -2,541.67
5     4     1072698     Customer                      CC REFUND                               3,060.00
6     40     12519002     GL                       20081117                1,354.97
7     17     1000368     Customer                                                     -4,933.66
8     17     1005152     Customer                                                      -512.26
9     17     1024054     Customer                                                    -3,971.08
10     50     10703001     GL            14007930912008.00          1,251,764.35
11     50     10703002     GL              14007930912008.00                -1,354.97
but the same documet updated in table BFOD_A (FI Subsequent BA/PC Adjustment: Customer Items) with diffrent values in customer.
for example 1072698 customer accounted was debited with document value :3060.00
but in the BFOD_A table updated with debit( 606260.43)and credit (603260.43) with diffrent values but the balance was document value (3060.00) .
1072698           120001 doc value -
3060.00
1076698           120001 Doc value in BFOD_A : Dr : 606260.43
1076698           120001 Doc value in BFOD_A : Cr : 603260.43
The BFOD_A table Dr and cr vaue equl to document value : 3060.00 ( 606260.43 - 603260.43)
Can you please let me know how this table BFOD_A (FI Subsequent BA/PC Adjustment: Customer Items) updating with debit and credit diffrent values not the document value. the debit and credit variation is original document value.
Please explain on this, i will assign full points to you.
BFOD_A table updated with below detail for same document with diffrent values in customer accounts.
CoCd     DocumentNo Year     Itm     BknIm     G/L     Customer     D/C       Amount LC
100     120001       2008     5     1     12501000     1072698     S     606,260.43
100     120001       2008     5     2     12501000     1072698     H     603,200.43
100     120001       2008     7     1     12501000     1000368     H     977,478.05
100     120001       2008     7     2     12501000     1000368     S     972,544.39
100     120001       2008     8     1     12501000     1005152     H     101,491.17
100     120001       2008     8     2     12501000     1005152     S     100,978.91
100     120001       2008     9     1     12501000     1024054     H     786,767.54
100     120001       2008     9     2     12501000     1024054     S     782,796.46

closed

Regarding Customer exit to calculate fiscal week

Hello All,
I have a requirement to calculate the fiscal week from fiscal period. Here i used the FM 'UMC_FISCPER_TO_CALWEEK' to calculate the fiscal week. But the problem here is i created variable on fiscal year /week so when i pass the fiscal period i should get fiscal week, here i am getting calweek which make no sence. Is there any function module to calculate the Fiscal week if we pass fiscal period.
Thanx in Advance
Anil

We cant calculate fiscal week from just fiscal period. we need date or this.
You can try this function ZFI_GET_FISCAL_WEEK_QUARTER or some other similar function. However, the input should be a date.
Looks like there is no funciton to calculate fiscal week. we may need to write our own code for this based on other FMs.
Re: Get Week number in a particular Fiscal year
~ Arun KK
Edited by: arun kk on May 8, 2008 10:22 AM

How to get changes of a custom PL/SQL package updated in ISG?

Hi All,
I need some help on how to change a custom PL/SQL package in ISG integration repository:
I already uploaded my custom PL/SQL package to the integration repositoy some time ago. Now I have made some changes to PL/SQL record/table types defined in the package (added some fields and removed some others). These changed record/table types are used by a procedure I already uploaded to the integration repository. When regenerating the WSDL for my PL/SQL package in integration repository I get an error that the wrapper for respective procedure can't be found. When checking up the SQL types that were automatically generated (by JPublisher) for corresponding PL/SQL types, these generated SQL types are invalid...
So it seems that in one case JPublisher generated an empty SQL type (with no attributes). In another case JPublisher generated the SQL type with old attribute list, so it didn't adopt the changes of corresponding PL/SQL type in the package...
Can anybody tell me how to get the changes of a cusotm PL/SQL package updated in ISG? Or is there any possibility to first remove a whole PL/SQL package from the ISG integration repository (and getting rid of all old automatically generated SQL types), so that I can newly upload my PL/SQL package afterwards?
Thanks
Konrad
Edited by: Konrad on 24.10.2011 10:51

Thanks Daniel, for your reply...
(-> for info: I'm a colleague of Konrad...)
Yes, we used a higher version number - and the upload of iLDT file works fine...
But, the problem occured when generating the WSDL...
However, I think we have found an approach of how to get the changes of a custom PL/SQL package updated correctly in ISG:
1. Save a copy of PL/SQL package and then delete it in the database
2. Regenerate the WSDL for PL/SQL package in ISG (seems that all atutomatically generated JPub wrappers and SQL types are also deleted)
3. Restart all processes
4. Create the changed version of PL/SQL package in the database again
5. upload of iLDT
6. Regenerate the WSDL for PL/SQL package in ISG
Best Regards
Carolin

Auto update of Ztable when ever BSID or BSAD tables updated

Auto update of Ztable when ever DB table updated
Hi experts
I want my Ztable get updated automatically when ever a record is created or updated in BSID or BSAD tables.
Here clear requirement
Generally using Company code & Allocation number ( 18 char ) my programs access BSID & BSAD tables it is taking very long time for execution almost more than 30 minutes ( data in millions ).
Step 1.
I created a new Ztable with limited fields Company Code, Customer, Document, Allocation Number and Posting date.
Step 2.
Before look into BSID or BSAD my program searches Ztable for Customer number & Document number using Allocation field and Company code.
Step 3.
Once get the Customer & Document numbers accessing BSID & BSAD table is very easy (now just taking less than 1 minute).
Created a new program to update Ztable every day but BSID and BSAD are live table so I want my Ztable get updated immediately when any entry posted in BSID or BSAD
Please help me
Satya
Singapore

You need to check what is the procedure (T-Code) from which the data gets updated into these tables.
For example
when we craete a material from MM01 the data gets updated in the corresponding table i.e. EKPO.
In same way you need to find the process and then you can use BTE (Busineess transaction events) for that process. BTE are only for FI module and these tables are also related to FI .

Problem in MSEG Table updation

Hello All,
The problem is related to MSEG table updation after Stock Transport Order (STO) is done between Manufacturing plant & Depot. The problem is described below with an example.
In case of STO the Supplying Plant or vendor is SP02 and the Receiving Plant or the customer is RP15.in the STO under the shipping tab for Customer the system is showing RP15 and under the Delivery address tab for Vendor the system is showing SP02.
While during PGI when the material document is generated when we check the MSEG table two line items have been generated where we found that the field WERKS contained SP02 & RP15 against which the feld XAUTO is showing blank space & X symbol respectively.But in case of both LIFNR & KUNNR fields it is showing blank space, which indicates that both the vendor & customer fields are not getting updated in the MSEG table.
Now I want the system to pick up the data for KUNNR field (in case of XAUTO is X) also in the MSEG table i.e. RP15 should also be displayed in the MSEG table.
Is there any configuration to attain my requirement?
Looking forward to some valuable suggestions.
Thanks & Regards
Priyanka Mitra

the ADRx tables are central tables that are used from various transactions in SAP.
e.g. from customizing, master data maintenance, transactional data, such as purchase orders and sales orders.
use the ADRNR from ADR6 table and then lookup an entry in table ADRC to find and hint to its origin field ADDR_GROUP

Loading custom price condition table

We have a custom price condition table for intercompany price.
This table needs to be updated monthly from a file generated from another system not on SAP.
BDC is one way of doing it, but that takes too much time.
Is there any other simpler way of achieving the same ?

Hi
Have your tried LSMW. You can upload conditions using LSMW.
Regads
Yatin Thakkar

W_DAY_D is not getting Loaded with Enterprise WEEK or FISCAL week informati

HI Experts,
We have OBI Application 7.9.6.1 (FIN,SCM,PSA analytics application).
We are using Oracle EBS 12.0.6 as the source system.
we are using the Enteprise Calendar in EBS to load the W_DAY_D,but the W_DAY_D is not getting Loaded with Enterprise WEEK or FISCAL week informations,
does any one have an answer to this question,how to load theEnterprise WEEK or FISCAL week information in the W_DAY_D table??
We have raised an SR with Oracle Support & got the reply that this is a product BUG & they have internaly raised an Enhancement Request.
God knows when this will be fixed??
Can any one provide me with a work around ?/
Thanks

Hello:
Please look at these W_MCAL_PERIOD_D, and W_MCAL_DAY_D Tables for Fiscal information. For more information you can look at the RPD BMM Layer Dim - Date Fiscal Calendar.
With Regards,
Mohan

Custom Fiscal week table update

Similar Messages

Maybe you are looking for