Regaring code ,its urgent

hi,
i had amde dis code for displaying the changes made on material in purticular month,70% report is working fine but problem is dat when i want to see the deatils of changes made to it ,it is not displaying all records,i.e. if dere are 5 changes made to a purticular materail den it is displaying only 3 ,but i want to show all of dem .
plzzz help me out as it is very urgent to me and help will be definately rewrded.
dis is my report code.plzz try to help me:-
REPORT ZNEW01 no standard page heading LINE-SIZE 310.
TABLES: CDHDR,CDPOS.
DATA: BEGIN OF ITAB OCCURS 0,
      OBJECTCLAS LIKE CDHDR-OBJECTCLAS,
      OBJECTID LIKE CDHDR-OBJECTID,
      USERNAME LIKE CDHDR-USERNAME,
      UDATE LIKE CDHDR-UDATE,
      UTIME LIKE CDHDR-UTIME,
      TCODE LIKE CDHDR-TCODE,
      CHANGE_IND LIKE CDHDR-CHANGE_IND,
      END OF ITAB.
DATA: BEGIN OF ITAB1 OCCURS 0,
      OBJECTCLAS LIKE CDPOS-OBJECTCLAS,
      OBJECTID LIKE CDPOS-OBJECTID,
      FNAME LIKE CDPOS-FNAME,
      CHNGIND LIKE CDPOS-CHNGIND,
      VALUE_OLD LIKE CDPOS-VALUE_OLD,
      VALUE_NEW LIKE CDPOS-VALUE_NEW,
      END OF ITAB1.
SELECT-OPTIONS: M_DATE FOR CDHDR-UDATE,
                U_ID FOR CDHDR-CHANGE_IND.
SELECT BOBJECTCLAS BOBJECTID BUSERNAME BUDATE BUTIME BTCODE B~CHANGE_IND INTO
TABLE ITAB
FROM CDHDR AS B WHERE B~OBJECTCLAS = 'MATERIAL' AND UDATE IN M_DATE AND CHANGE_IND IN U_ID.
Check not itab[] is initial.
SELECT OBJECTCLAS OBJECTID FNAME CHNGIND VALUE_OLD VALUE_NEW INTO TABLE
ITAB1 FROM CDPOS
FOR ALL ENTRIES IN ITAB WHERE OBJECTID = itab-objectid and objectclas = ITAB-OBJECTCLAS .
ULINE.
LOOP AT ITAB.
WRITE:/ ITAB-OBJECTID,22 ITAB-USERNAME,ITAB-UDATE,ITAB-UTIME,ITAB-TCODE.
LOOP AT ITAB1 WHERE OBJECTCLAS = ITAB-OBJECTCLAS AND OBJECTID = ITAB-OBJECTID.
WRITE: 60 ITAB1-FNAME,ITAB1-CHNGIND,ITAB1-VALUE_OLD(40),ITAB1-VALUE_NEW(40).
ENDLOOP.
ENDLOOP.

Hi,
  As you are using FOR ALL ENTRIES to fetch itab1, it will remove the duplicate entries.
SELECT OBJECTCLAS OBJECTID FNAME CHNGIND VALUE_OLD VALUE_NEW INTO TABLE
ITAB1 FROM CDPOS
FOR ALL ENTRIES IN ITAB WHERE OBJECTID = itab-objectid and objectclas = ITAB-OBJECTCLAS .
ex:  new_value   old_value
        10              20
         20             30
         30             10
         10             20
         20             30
  In the output you will get only 3 records. i.e., first 3 records.
rest of the code is looking fine. This may be the problem.
Instead of using FOR ALL ENTRIES, fetch data for each record.

Similar Messages

  • Hi pls respond my code its urgent

    hi,
    my prblm is in this program i used bapi function module for upload excel data.
    bapi_incominginvoice_park.
    in my output park number showing increasing for each item.
    so i need parknumber it should be same for all items.
    i am sending my code pls check this.
    *& Report  ZBAPI_MIRO
    && Developed By : ESWAR
    *& Created Date : 29.10.2007
    *& Requested By : GANESH(MM)
    *& SAP Area     : MM
    *& Output       : Excel format,Using BDC for Tcode MIRO
    REPORT  ZBAPI_MIRO.
    DATA: BEGIN OF INTERN OCCURS 0.
            INCLUDE STRUCTURE  ALSMEX_TABLINE.
    DATA: END OF INTERN.
    DATA : IT_INTERN LIKE INTERN OCCURS 0 WITH HEADER LINE.
      No of columns
    DATA: BEGIN OF DATA_TAB OCCURS 0,
          VALUE_0001(10), "DOC.TYPE
          VALUE_0002(10), "DOC DATE
          VALUE_0003(10), " PSTNG.DATE
        VALUE_0003(10), " GROSS_AMNT
          VALUE_0004(10), " REF_DOC_NO
          VALUE_0005(10),  "BLINE_DATE
          VALUE_0006(10),  "HEADER_TXT
          VALUE_0007(10),  "INVOICE_DOC_ITEM
          VALUE_0008(10),  "PO_NUMBER
          VALUE_0009(10), " PO_ITEM
          VALUE_0010(10),  "TAX_CODE
          VALUE_0011(11), "ITEM_AMOUNT
          VALUE_0012(10),  "SHEET_NO
          VALUE_0013(10),  "ITEM_TEXT
          VALUE_0014(10),  "SHEET_ITEM
          END OF DATA_TAB.
    DATA : BEGIN OF IT_DATA OCCURS 0,
         invoice_ind like  BAPI_INCINV_CREATE_HEADER-invoice_ind,
          doc_type    like  BAPI_INCINV_CREATE_HEADER-doc_type,
          doc_date    like  BAPI_INCINV_CREATE_HEADER-doc_date,
         pstng_date  like  BAPI_INCINV_CREATE_HEADER-pstng_date,
         comp_code   like  BAPI_INCINV_CREATE_HEADER-comp_code,
         currency    like  BAPI_INCINV_CREATE_HEADER-currency,
         gross_amount like  BAPI_INCINV_CREATE_HEADER-gross_amount,
         calc_tax_ind like  BAPI_INCINV_CREATE_HEADER-calc_tax_ind,
        REF_DOC_NO LIKE BAPI_INCINV_CREATE_HEADER-REF_DOC_NO,
          bline_date like  BAPI_INCINV_CREATE_HEADER-bline_date,
          header_txt like  BAPI_INCINV_CREATE_HEADER-header_txt,
        invoice_doc_item like BAPI_INCINV_CREATE_ITEM-invoice_doc_item,
        po_number like    BAPI_INCINV_CREATE_ITEM-po_number,
        po_item like    BAPI_INCINV_CREATE_ITEM-po_item,
        tax_code like    BAPI_INCINV_CREATE_ITEM-tax_code,
        item_amount like    BAPI_INCINV_CREATE_ITEM-ITEM_AMOUNT,
        sheet_no like    BAPI_INCINV_CREATE_ITEM-sheet_no,
        item_text like    BAPI_INCINV_CREATE_ITEM-item_text,
        sheet_item like    BAPI_INCINV_CREATE_ITEM-sheet_item,
          END OF IT_DATA.
         DATA : BEGIN OF IT_CHAR OCCURS 0,
           IND(6) TYPE N,     ""Index for comparison
           CHARN LIKE RCTMS-MNAME, "CHAR NAME
           CHARV LIKE RCTMS-MWERT, "CHAR VALUE
          END OF IT_CHAR.
          DATA: BEGIN OF it_msg OCCURS 0,
            po_number LIKE BAPI_INCINV_CREATE_ITEM-po_number,
            po_item like BAPI_INCINV_CREATE_ITEM-po_item,
            message(20),
            message1(90),
            mblnr     TYPE mkpf-mblnr,
          END OF it_msg.
    DATA : W_DATA LIKE LINE OF IT_DATA.
    DATA : W_CHAR LIKE LINE OF IT_CHAR.
    DATA: T_EXCELFILE TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
    FIELD-SYMBOLS : <L_FS> .
    DATA : W_INTERN   LIKE LINE OF INTERN,
           W_INTERN1  LIKE LINE OF IT_INTERN,
          W_DATA_TAB LIKE LINE OF DATA_TAB.
      DATA: TIND(4) TYPE N.
    DATA: ZWFELD(19),ZWFELD1(19).
    FIELD-SYMBOLS: <FS1>,<FS2>.
    DATA : G_MODE(1),G_UPDATE(1).
    DATA :   G_FLG(1).
    DATA : TOT_REC(6) TYPE N,
           DUP_REC(6) TYPE N,
           UPL_REC(6) TYPE N.
        DATA:  WA_DATA LIKE LINE OF IT_DATA,
                WA_DATA1 LIKE WA_DATA.
       DATA:WA_HEADER LIKE BAPI_INCINV_CREATE_HEADER,
            WA_INVOICEDOCNUMBER  TYPE BAPI_INCINV_FLD-INV_DOC_NO,
            IT_ITEM LIKE   BAPI_INCINV_CREATE_ITEM OCCURS 0 WITH HEADER LINE,
            IT_RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
    DATA:BEGIN OF IT_MBLNR OCCURS 0,
           MBLNR LIKE MKPF-MBLNR,
          MJAHR LIKE MKPF-MJAHR,
       END OF IT_MBLNR.
    *& Selection screen
    SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.
    PARAMETERS:  P_FILE   LIKE RLGRAP-FILENAME OBLIGATORY.
    SELECTION-SCREEN END  OF BLOCK BLK.
    *& AT SELECTION-SCREEN
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
      PERFORM GET_FILE.
    *& Start of selection
    START-OF-SELECTION.
      PERFORM GET_BDC_DATA.
      PERFORM PROCESS_BDC_DATA.
      PERFORM BDC_UPLOAD.
      PERFORM display_log.
    *&      Form  GET_FILE
    FORM GET_FILE .
    *F4-HELP FILE
      CALL FUNCTION 'F4_FILENAME'
       EXPORTING
         PROGRAM_NAME        = SYST-CPROG
      DYNPRO_NUMBER       = SYST-DYNNR
      FIELD_NAME          = ' '
       IMPORTING
         FILE_NAME           = P_FILE.
    ENDFORM.                    " GET_FILE
    FORM GET_BDC_DATA .
      DATA : WRK_FLG(1).
      DATA : GIDX LIKE SY-TABIX.
      CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
        EXPORTING
          FILENAME                = P_FILE
          I_BEGIN_COL             = '1'
          I_BEGIN_ROW             = '1'
          I_END_COL               = '250'
          I_END_ROW               = '50000'
        TABLES
          INTERN                  = INTERN
        EXCEPTIONS
          INCONSISTENT_PARAMETERS = 1
          UPLOAD_OLE              = 2
          OTHERS                  = 3.
      IF SY-SUBRC <> 0.
        WRITE:/ 'Upload Error ', SY-SUBRC.
      ELSE.
        SORT INTERN BY ROW COL.
        LOOP AT INTERN.
          TIND = INTERN-COL.
          CONCATENATE 'DATA_TAB-VALUE_' TIND INTO ZWFELD.
          ASSIGN (ZWFELD) TO <FS1>.
          <FS1> = INTERN-VALUE.
          AT END OF ROW.
            APPEND DATA_TAB.
            CLEAR:IT_CHAR,DATA_TAB.
          ENDAT.
        ENDLOOP.
      ENDIF.
    ENDFORM.                    " GET_BDC_DATA
    *&      Form  PROCESS_BDC_DATA
    FORM PROCESS_BDC_DATA .
      DATA : WRK_IND(6) TYPE N.
      DATA : WRK_ROW TYPE I,
             GIDX LIKE SY-TABIX.
      IF NOT DATA_TAB[] IS INITIAL.
        LOOP AT DATA_TAB INTO W_DATA_TAB.
          WRK_ROW = SY-TABIX.
         IT_DATA-DOC_TYPE    = W_DATA_TAB-VALUE_0001.
          IT_DATA-DOC_DATE    = W_DATA_TAB-VALUE_0002.
          IT_DATA-PSTNG_DATE    = W_DATA_TAB-VALUE_0003.
          it_data-ref_doc_no   = w_data_tab-value_0004.
         IT_DATA-GROSS_AMOUNT    = W_DATA_TAB-VALUE_0004.
          IT_DATA-BLINE_DATE     = W_DATA_TAB-VALUE_0005.
          IT_DATA-HEADER_TXT      = W_DATA_TAB-VALUE_0006.
          IT_DATA-INVOICE_DOC_ITEM = W_DATA_TAB-VALUE_0007.
          IT_DATA-PO_NUMBER      = W_DATA_TAB-VALUE_0008.
          IT_DATA-PO_ITEM     = W_DATA_TAB-VALUE_0009.
          IT_DATA-TAX_CODE     = W_DATA_TAB-VALUE_0010.
          IT_DATA-ITEM_AMOUNT     = W_DATA_TAB-VALUE_0011.
          IT_DATA-SHEET_NO   = W_DATA_TAB-VALUE_0012.
          IT_DATA-ITEM_TEXT  = W_DATA_TAB-VALUE_0013.
          IT_DATA-SHEET_ITEM  = W_DATA_TAB-VALUE_0014.
          APPEND IT_DATA.
        ENDLOOP.
      ENDIF.
    ENDFORM.
    FORM BDC_UPLOAD.
    DATA:LW_DATE(10).
    DELETE ADJACENT DUPLICATES FROM it_data.
    LOOP AT IT_DATA INTO WA_DATA1.
    WA_DATA = WA_DATA1.
    While program finds the header record, post the previous entries
      if      WA_data-DOC_TYPE   NE ' '
         AND  wa_data-doc_date NE ' '
          AND wa_data-pstng_date NE ' '
          AND WA_data-REF_DOC_NO NE ' '
          AND WA_data-BLINE_DATE NE ' '
          AND WA_data-HEADER_TXT NE ' ' .
                  WA_HEADER-INVOICE_IND = 'X'.
                  WA_HEADER-COMP_CODE           = 'TSKY'.
                  WA_HEADER-CURRENCY            = 'INR'.
                  WA_HEADER-CALC_TAX_IND        = 'X'.
          IF sy-tabix NE 1.
    update
            PERFORM f0301_exe_bapi TABLES it_item USING wa_header.
            REFRESH it_item.
            CLEAR: it_item, wa_header.
          ENDIF.
    *CONCATENATE WA_DATA-PSTNG_DATE+4(4)
                WA_DATA-PSTNG_DATE+2(2)
                WA_DATA-PSTNG_DATE+0(2) INTO LW_DATE.
                WA_HEADER-DOC_DATE = LW_DATE.
                WA_HEADER-PSTNG_DATE = LW_DATE.
              wa_header-doc_type = wa_data-doc_type.
             wa_header-doc_date  =  WA_DATA-DOC_DATE.
           wa_header-pstng_date =  WA_DATA-PSTNG_DATE.
           WA_HEADER-REF_DOC_NO  = WA_DATA-REF_DOC_NO.
           WA_HEADER-BLINE_DATE =  WA_DATA-BLINE_DATE.
           WA_HEADER-HEADER_TXT =  WA_DATA-HEADER_TXT.
          ENDIF.
          IT_item-INVOICE_DOC_ITEM = WA_DATA-INVOICE_DOC_ITEM.
          IT_item-PO_NUMBER = WA_DATA-PO_NUMBER.
          IT_item-PO_ITEM = WA_DATA-PO_ITEM.
          IT_item-TAX_CODE = WA_DATA-TAX_CODE.
          IT_item-ITEM_AMOUNT = WA_DATA-ITEM_AMOUNT.
          IT_item-SHEET_NO = WA_DATA-SHEET_NO.
          IT_item-ITEM_TEXT = WA_DATA-ITEM_TEXT.
          IT_item-SHEET_ITEM = WA_DATA-SHEET_ITEM.
          APPEND it_item.
        CLEAR it_item.
      ENDLOOP.
      PERFORM f0301_exe_bapi TABLES it_item USING wa_header.
    ENDFORM.                    " f0200_UPDATE
       FORM f0301_exe_bapi  TABLES   p_it_item STRUCTURE it_item
                         USING    p_wa_header.
         CALL FUNCTION 'BAPI_INCOMINGINVOICE_PARK'
          EXPORTING
            headerdata                = wa_header
          ADDRESSDATA               =
         IMPORTING
           INVOICEDOCNUMBER          = WA_INVOICEDOCNUMBER
          FISCALYEAR                = lc_gjahr
          tables
            itemdata                  = it_item
          ACCOUNTINGDATA            =
          GLACCOUNTDATA             =
          MATERIALDATA              =
          TAXDATA                   =
          WITHTAXDATA               =
          VENDORITEMSPLITDATA       =
            return                    = it_return.
            READ TABLE it_return INDEX 1.
      READ TABLE it_item INDEX 1.
      IF it_return-type EQ 'E'.
        MOVE it_item-po_number   TO it_msg-po_number.
       move it_item-po_item to it_msg-po_itm.
        MOVE 'Discrepancy in PO' TO it_msg-message.
        MOVE it_return-message to it_msg-message1.
        APPEND it_msg.
        CLEAR it_msg.
        clear it_return.
      ELSE.
        MOVE it_item-po_number   TO it_msg-po_number.
       move it_item-po_item to it_msg-po_item.
        MOVE 'Successfully parked' TO it_msg-message.
       MOVE  WA_INVOICEDOCNUMBER TO it_msg-mblnr.
        APPEND it_msg.
        CLEAR: it_msg, WA_INVOICEDOCNUMBER.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
      ENDIF.
    ENDFORM.                    "f0301_exe_bapi
    FORM display_log .
    Display the log
      WRITE :  '10 Po_number',  25 'Message',  55 'Error message' ,135 'ParkedDocumentNumber'.
      ULINE.
      LOOP AT it_msg.
        WRITE : /10 it_msg-po_number,
              25 it_msg-message,
              55 it_msg-message1,
              135 it_msg-mblnr.
              ULINE.
      ENDLOOP.
    ENDFORM.                    " display_log

    hi,
    my prblm is in this program i used bapi function module for upload excel data.
    bapi_incominginvoice_park.
    in my output park number showing increasing for each item.
    so i need parknumber it should be same for all items.
    i am sending my code pls check this.
    *& Report  ZBAPI_MIRO
    && Developed By : ESWAR
    *& Created Date : 29.10.2007
    *& Requested By : GANESH(MM)
    *& SAP Area     : MM
    *& Output       : Excel format,Using BDC for Tcode MIRO
    REPORT  ZBAPI_MIRO.
    DATA: BEGIN OF INTERN OCCURS 0.
            INCLUDE STRUCTURE  ALSMEX_TABLINE.
    DATA: END OF INTERN.
    DATA : IT_INTERN LIKE INTERN OCCURS 0 WITH HEADER LINE.
      No of columns
    DATA: BEGIN OF DATA_TAB OCCURS 0,
          VALUE_0001(10), "DOC.TYPE
          VALUE_0002(10), "DOC DATE
          VALUE_0003(10), " PSTNG.DATE
        VALUE_0003(10), " GROSS_AMNT
          VALUE_0004(10), " REF_DOC_NO
          VALUE_0005(10),  "BLINE_DATE
          VALUE_0006(10),  "HEADER_TXT
          VALUE_0007(10),  "INVOICE_DOC_ITEM
          VALUE_0008(10),  "PO_NUMBER
          VALUE_0009(10), " PO_ITEM
          VALUE_0010(10),  "TAX_CODE
          VALUE_0011(11), "ITEM_AMOUNT
          VALUE_0012(10),  "SHEET_NO
          VALUE_0013(10),  "ITEM_TEXT
          VALUE_0014(10),  "SHEET_ITEM
          END OF DATA_TAB.
    DATA : BEGIN OF IT_DATA OCCURS 0,
         invoice_ind like  BAPI_INCINV_CREATE_HEADER-invoice_ind,
          doc_type    like  BAPI_INCINV_CREATE_HEADER-doc_type,
          doc_date    like  BAPI_INCINV_CREATE_HEADER-doc_date,
         pstng_date  like  BAPI_INCINV_CREATE_HEADER-pstng_date,
         comp_code   like  BAPI_INCINV_CREATE_HEADER-comp_code,
         currency    like  BAPI_INCINV_CREATE_HEADER-currency,
         gross_amount like  BAPI_INCINV_CREATE_HEADER-gross_amount,
         calc_tax_ind like  BAPI_INCINV_CREATE_HEADER-calc_tax_ind,
        REF_DOC_NO LIKE BAPI_INCINV_CREATE_HEADER-REF_DOC_NO,
          bline_date like  BAPI_INCINV_CREATE_HEADER-bline_date,
          header_txt like  BAPI_INCINV_CREATE_HEADER-header_txt,
        invoice_doc_item like BAPI_INCINV_CREATE_ITEM-invoice_doc_item,
        po_number like    BAPI_INCINV_CREATE_ITEM-po_number,
        po_item like    BAPI_INCINV_CREATE_ITEM-po_item,
        tax_code like    BAPI_INCINV_CREATE_ITEM-tax_code,
        item_amount like    BAPI_INCINV_CREATE_ITEM-ITEM_AMOUNT,
        sheet_no like    BAPI_INCINV_CREATE_ITEM-sheet_no,
        item_text like    BAPI_INCINV_CREATE_ITEM-item_text,
        sheet_item like    BAPI_INCINV_CREATE_ITEM-sheet_item,
          END OF IT_DATA.
         DATA : BEGIN OF IT_CHAR OCCURS 0,
           IND(6) TYPE N,     ""Index for comparison
           CHARN LIKE RCTMS-MNAME, "CHAR NAME
           CHARV LIKE RCTMS-MWERT, "CHAR VALUE
          END OF IT_CHAR.
          DATA: BEGIN OF it_msg OCCURS 0,
            po_number LIKE BAPI_INCINV_CREATE_ITEM-po_number,
            po_item like BAPI_INCINV_CREATE_ITEM-po_item,
            message(20),
            message1(90),
            mblnr     TYPE mkpf-mblnr,
          END OF it_msg.
    DATA : W_DATA LIKE LINE OF IT_DATA.
    DATA : W_CHAR LIKE LINE OF IT_CHAR.
    DATA: T_EXCELFILE TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
    FIELD-SYMBOLS : <L_FS> .
    DATA : W_INTERN   LIKE LINE OF INTERN,
           W_INTERN1  LIKE LINE OF IT_INTERN,
          W_DATA_TAB LIKE LINE OF DATA_TAB.
      DATA: TIND(4) TYPE N.
    DATA: ZWFELD(19),ZWFELD1(19).
    FIELD-SYMBOLS: <FS1>,<FS2>.
    DATA : G_MODE(1),G_UPDATE(1).
    DATA :   G_FLG(1).
    DATA : TOT_REC(6) TYPE N,
           DUP_REC(6) TYPE N,
           UPL_REC(6) TYPE N.
        DATA:  WA_DATA LIKE LINE OF IT_DATA,
                WA_DATA1 LIKE WA_DATA.
       DATA:WA_HEADER LIKE BAPI_INCINV_CREATE_HEADER,
            WA_INVOICEDOCNUMBER  TYPE BAPI_INCINV_FLD-INV_DOC_NO,
            IT_ITEM LIKE   BAPI_INCINV_CREATE_ITEM OCCURS 0 WITH HEADER LINE,
            IT_RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
    DATA:BEGIN OF IT_MBLNR OCCURS 0,
           MBLNR LIKE MKPF-MBLNR,
          MJAHR LIKE MKPF-MJAHR,
       END OF IT_MBLNR.
    *& Selection screen
    SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.
    PARAMETERS:  P_FILE   LIKE RLGRAP-FILENAME OBLIGATORY.
    SELECTION-SCREEN END  OF BLOCK BLK.
    *& AT SELECTION-SCREEN
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
      PERFORM GET_FILE.
    *& Start of selection
    START-OF-SELECTION.
      PERFORM GET_BDC_DATA.
      PERFORM PROCESS_BDC_DATA.
      PERFORM BDC_UPLOAD.
      PERFORM display_log.
    *&      Form  GET_FILE
    FORM GET_FILE .
    *F4-HELP FILE
      CALL FUNCTION 'F4_FILENAME'
       EXPORTING
         PROGRAM_NAME        = SYST-CPROG
      DYNPRO_NUMBER       = SYST-DYNNR
      FIELD_NAME          = ' '
       IMPORTING
         FILE_NAME           = P_FILE.
    ENDFORM.                    " GET_FILE
    FORM GET_BDC_DATA .
      DATA : WRK_FLG(1).
      DATA : GIDX LIKE SY-TABIX.
      CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
        EXPORTING
          FILENAME                = P_FILE
          I_BEGIN_COL             = '1'
          I_BEGIN_ROW             = '1'
          I_END_COL               = '250'
          I_END_ROW               = '50000'
        TABLES
          INTERN                  = INTERN
        EXCEPTIONS
          INCONSISTENT_PARAMETERS = 1
          UPLOAD_OLE              = 2
          OTHERS                  = 3.
      IF SY-SUBRC <> 0.
        WRITE:/ 'Upload Error ', SY-SUBRC.
      ELSE.
        SORT INTERN BY ROW COL.
        LOOP AT INTERN.
          TIND = INTERN-COL.
          CONCATENATE 'DATA_TAB-VALUE_' TIND INTO ZWFELD.
          ASSIGN (ZWFELD) TO <FS1>.
          <FS1> = INTERN-VALUE.
          AT END OF ROW.
            APPEND DATA_TAB.
            CLEAR:IT_CHAR,DATA_TAB.
          ENDAT.
        ENDLOOP.
      ENDIF.
    ENDFORM.                    " GET_BDC_DATA
    *&      Form  PROCESS_BDC_DATA
    FORM PROCESS_BDC_DATA .
      DATA : WRK_IND(6) TYPE N.
      DATA : WRK_ROW TYPE I,
             GIDX LIKE SY-TABIX.
      IF NOT DATA_TAB[] IS INITIAL.
        LOOP AT DATA_TAB INTO W_DATA_TAB.
          WRK_ROW = SY-TABIX.
         IT_DATA-DOC_TYPE    = W_DATA_TAB-VALUE_0001.
          IT_DATA-DOC_DATE    = W_DATA_TAB-VALUE_0002.
          IT_DATA-PSTNG_DATE    = W_DATA_TAB-VALUE_0003.
          it_data-ref_doc_no   = w_data_tab-value_0004.
         IT_DATA-GROSS_AMOUNT    = W_DATA_TAB-VALUE_0004.
          IT_DATA-BLINE_DATE     = W_DATA_TAB-VALUE_0005.
          IT_DATA-HEADER_TXT      = W_DATA_TAB-VALUE_0006.
          IT_DATA-INVOICE_DOC_ITEM = W_DATA_TAB-VALUE_0007.
          IT_DATA-PO_NUMBER      = W_DATA_TAB-VALUE_0008.
          IT_DATA-PO_ITEM     = W_DATA_TAB-VALUE_0009.
          IT_DATA-TAX_CODE     = W_DATA_TAB-VALUE_0010.
          IT_DATA-ITEM_AMOUNT     = W_DATA_TAB-VALUE_0011.
          IT_DATA-SHEET_NO   = W_DATA_TAB-VALUE_0012.
          IT_DATA-ITEM_TEXT  = W_DATA_TAB-VALUE_0013.
          IT_DATA-SHEET_ITEM  = W_DATA_TAB-VALUE_0014.
          APPEND IT_DATA.
        ENDLOOP.
      ENDIF.
    ENDFORM.
    FORM BDC_UPLOAD.
    DATA:LW_DATE(10).
    DELETE ADJACENT DUPLICATES FROM it_data.
    LOOP AT IT_DATA INTO WA_DATA1.
    WA_DATA = WA_DATA1.
    While program finds the header record, post the previous entries
      if      WA_data-DOC_TYPE   NE ' '
         AND  wa_data-doc_date NE ' '
          AND wa_data-pstng_date NE ' '
          AND WA_data-REF_DOC_NO NE ' '
          AND WA_data-BLINE_DATE NE ' '
          AND WA_data-HEADER_TXT NE ' ' .
                  WA_HEADER-INVOICE_IND = 'X'.
                  WA_HEADER-COMP_CODE           = 'TSKY'.
                  WA_HEADER-CURRENCY            = 'INR'.
                  WA_HEADER-CALC_TAX_IND        = 'X'.
          IF sy-tabix NE 1.
    update
            PERFORM f0301_exe_bapi TABLES it_item USING wa_header.
            REFRESH it_item.
            CLEAR: it_item, wa_header.
          ENDIF.
    *CONCATENATE WA_DATA-PSTNG_DATE+4(4)
                WA_DATA-PSTNG_DATE+2(2)
                WA_DATA-PSTNG_DATE+0(2) INTO LW_DATE.
                WA_HEADER-DOC_DATE = LW_DATE.
                WA_HEADER-PSTNG_DATE = LW_DATE.
              wa_header-doc_type = wa_data-doc_type.
             wa_header-doc_date  =  WA_DATA-DOC_DATE.
           wa_header-pstng_date =  WA_DATA-PSTNG_DATE.
           WA_HEADER-REF_DOC_NO  = WA_DATA-REF_DOC_NO.
           WA_HEADER-BLINE_DATE =  WA_DATA-BLINE_DATE.
           WA_HEADER-HEADER_TXT =  WA_DATA-HEADER_TXT.
          ENDIF.
          IT_item-INVOICE_DOC_ITEM = WA_DATA-INVOICE_DOC_ITEM.
          IT_item-PO_NUMBER = WA_DATA-PO_NUMBER.
          IT_item-PO_ITEM = WA_DATA-PO_ITEM.
          IT_item-TAX_CODE = WA_DATA-TAX_CODE.
          IT_item-ITEM_AMOUNT = WA_DATA-ITEM_AMOUNT.
          IT_item-SHEET_NO = WA_DATA-SHEET_NO.
          IT_item-ITEM_TEXT = WA_DATA-ITEM_TEXT.
          IT_item-SHEET_ITEM = WA_DATA-SHEET_ITEM.
          APPEND it_item.
        CLEAR it_item.
      ENDLOOP.
      PERFORM f0301_exe_bapi TABLES it_item USING wa_header.
    ENDFORM.                    " f0200_UPDATE
       FORM f0301_exe_bapi  TABLES   p_it_item STRUCTURE it_item
                         USING    p_wa_header.
         CALL FUNCTION 'BAPI_INCOMINGINVOICE_PARK'
          EXPORTING
            headerdata                = wa_header
          ADDRESSDATA               =
         IMPORTING
           INVOICEDOCNUMBER          = WA_INVOICEDOCNUMBER
          FISCALYEAR                = lc_gjahr
          tables
            itemdata                  = it_item
          ACCOUNTINGDATA            =
          GLACCOUNTDATA             =
          MATERIALDATA              =
          TAXDATA                   =
          WITHTAXDATA               =
          VENDORITEMSPLITDATA       =
            return                    = it_return.
            READ TABLE it_return INDEX 1.
      READ TABLE it_item INDEX 1.
      IF it_return-type EQ 'E'.
        MOVE it_item-po_number   TO it_msg-po_number.
       move it_item-po_item to it_msg-po_itm.
        MOVE 'Discrepancy in PO' TO it_msg-message.
        MOVE it_return-message to it_msg-message1.
        APPEND it_msg.
        CLEAR it_msg.
        clear it_return.
      ELSE.
        MOVE it_item-po_number   TO it_msg-po_number.
       move it_item-po_item to it_msg-po_item.
        MOVE 'Successfully parked' TO it_msg-message.
       MOVE  WA_INVOICEDOCNUMBER TO it_msg-mblnr.
        APPEND it_msg.
        CLEAR: it_msg, WA_INVOICEDOCNUMBER.
        CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
      ENDIF.
    ENDFORM.                    "f0301_exe_bapi
    FORM display_log .
    Display the log
      WRITE :  '10 Po_number',  25 'Message',  55 'Error message' ,135 'ParkedDocumentNumber'.
      ULINE.
      LOOP AT it_msg.
        WRITE : /10 it_msg-po_number,
              25 it_msg-message,
              55 it_msg-message1,
              135 it_msg-mblnr.
              ULINE.
      ENDLOOP.
    ENDFORM.                    " display_log

  • Can anyone help me to solve this code , its in a swing , jseparator...

    hey
    can any one solve this code ??
    import java.awt.*;
    import java.awt.event.*;
    import javax.swing.*;
    public class File1 extends JFrame
              public static void showgui()
                   frame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
                   JLabel emptyLabel = new JLabel("");
         emptyLabel.setPreferredSize(new Dimension(640, 480));
         frame.getContentPane().add(emptyLabel, BorderLayout.CENTER);
                   JButton b1= new JButton("JENIS");
                   add(b1);
                   b1.setBounds(350,220,120,20);
                   JSeparator jE =new JSeparator(JSeparator.HORIZONTAL);
                   jE.setBounds(350, 205, 120, 20);
                   add(jE);
                   add(new JSeparator(JSeparator.HORIZONTAL));
                   JButton b2= new JButton("MODI");
                   add(b2);
                   b2.setBounds(100,210,100,100);
                   frame.pack();
         frame.setVisible(true);
    public static void main(String[] args)
         javax.swing.SwingUtilities.invokeLater(new Runnable()
              public void run()
                   showgui();
    actually i want to use jseparator , so if this cant be solved , send me another code that uses jseparator and gives the vertical / horizontal line between two buttons??
    Its urgent ,
    waiting for reply............

    Hi,
    Is this ok?
    public class NewJFrameSep extends javax.swing.JFrame {
            public NewJFrameSep() {
            initComponents();
        private void initComponents() {
            jSeparator1 = new javax.swing.JSeparator();
            jButton1 = new javax.swing.JButton();
            jButton2 = new javax.swing.JButton();
            getContentPane().setLayout(null);
            setDefaultCloseOperation(javax.swing.WindowConstants.EXIT_ON_CLOSE);
            getContentPane().add(jSeparator1);
            jSeparator1.setBounds(110, 120, 170, 100);
            jButton1.setText("jButton1");
            getContentPane().add(jButton1);
            jButton1.setBounds(160, 80, 71, 23);
            jButton2.setText("jButton2");
            getContentPane().add(jButton2);
            jButton2.setBounds(160, 140, 71, 23);
            pack();
        public static void main(String args[]) {
            java.awt.EventQueue.invokeLater(new Runnable() {
                public void run() {
                    new NewJFrameSep().setVisible(true);
       private javax.swing.JButton jButton1;
        private javax.swing.JButton jButton2;
        private javax.swing.JSeparator jSeparator1;
    }regards
    dina

  • Hi All requirement on Purchase Order.Its Urgent

    Hi All,
            Pls provide me the soure code for the following requirement ASAP. Its urgent.
    Program: Z_PO_PRINT_MAIL
    Transaction: ZPOP
    Purchase order number: (should be a parameter not a select option) (Code the lookup using search help MEKK)
    Radio button for:     1. Print Preview
                   2. Print
                   3. E-mail
    Additional parameters based on above selection:
    1.     No additional parameters needed
    2.     Printer (code the F4 to search printers)(default user’s default printer)
    3.     E-mail address, cc (should also have same validations as e-mail address)
    Description:
    On pressing enter, use the Purchase order number to look up vendor number and name and display either to the right or below the purchase order number.
    Vendor Number: EKPO-LIFNR
    Vendor Name:    LFA1-NAME1
    1.     Print Preview: Use function ME_DISPLAY_PURCHASE_DOCUMENT with 2 parameters only:
    I_EBELN = PO Number
    I_PREVIEW = ‘X’
    2.     Print:  For this we have to do a BDC.Use transaction ME9F. Enter the purchase order number, blank out the rest. Select the first message, hit ‘Message details’. Enter a new message via Edit>new Entries. For new entries, you will need to enter ‘NEU’ for Output type with Medium 1 (Print output). Hit enter. Select the message and click on further data. Set dispatch time to 4. Green arrow back. Select the message and click on “Communication” method. Enter the ‘Logical destination’ as the printer, select ‘Print Immediately’ and ‘Release after output’. Green arrow back and save.
    3.     E-mail: Use the following function modules:
    ECP_PO_OTF_CREATE
    CONVERT_OTF_2_PDF
    SO_NEW_DOCUMENT_ATT_SEND_API1

    Hi,
    You can explore following link for more details;
    http://www.sap-basis-abap.com/sapmo017.htm
    http://www.erpgenie.com/sap/sapfunc/purchasing.htm
    Bye,
    Muralidhara

  • Maximize Purchase Order -- Error -- Its Urgent!!!!

    Hai To All,
                  Iam customizing Purchase Order Form. There iam adding one button near cancel button. If i maximum purchase order form i got the following error and SAP Application is closed.
    The instruction at "0x77fcb333" referenced memory at "0x000c0101". The memeory could not be "written".
    Click on OK to terminate the program
    Click on CANCEL to debug the program
    OK           CANCEL
    Can anyone help me........... Its Urgent
    Regards,
    Anitha
    Edited by: ani nazir on Mar 27, 2008 11:43 AM

    Hello Petr,
             S where i change place also its showing error.
    The following code i used to place the button
    oItem = PO_Frm.Items.Add("rm", SAPbouiCOM.BoFormItemTypes.it_BUTTON)
                oItem.Left = PO_Frm.Items.Item("2").Left + 75 '150 '
                oItem.Width = PO_Frm.Items.Item("2").Width  '65 'PO_Frm.Items.Item("51").Width
                oItem.Height = PO_Frm.Items.Item("2").Height '20 '
                oItem.Top = PO_Frm.Items.Item("2").Top + 10 '505 '
                oItem.Visible = True
                oItem.Enabled = True
                Dim d As SAPbouiCOM.Button = oItem.Specific
                d.Caption = "RateMaster"
    Regards,
    Anitha

  • Hi pls help me its urgent

    hi experts'
    i have to generate asset utilization report in webdynpro
    inputs for report are some rfcs
    i get result from rfcs
    i need to float report i used bussinessgraphic object
    its not interactive
    if i go for tables
    how to create tables with drill down inside table
    how to set color for each cell of table depending on condition
    please help me
    its urgent
    and send me code n link

    Hi Vani,
    Your requirement has many things
    1. How to call RFCs
       https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/webcontent/uuid/28113de9-0601-0010-71a3-c87806865f26?rid=/library/uuid/49f2ea90-0201-0010-ce8e-de18b94aee2d#15 [original link is broken]
    2. Once you have data, how to work with BusinessGraphics ?
      https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/ba2db0e5-0601-0010-9790-e271902f2c38
    (This docs contatins all the required info on webDynpro UIElements)
    3.Tables
    https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/webcontent/uuid/28113de9-0601-0010-71a3-c87806865f26?rid=/library/uuid/49f2ea90-0201-0010-ce8e-de18b94aee2d#46 [original link is broken]
    Regards,Anilkumar

  • Lsmw issue plz help its urgent

    Hi Experts ,
    i need to create a LSMW using batch input .
    but the requirement is on the basis of conditions my recording need to be changed .
    dat means
    3127POL09 3127POL09-1 CTR 3127-1003E 100 FUL
    3127POL09 3127POL09-2 WBS 3127POL01 60 FUL
    for ctr i ill have to post data in screen number 200
    and for wbs i ill have to post data in screen number 400 .
    can we put some conditions in recording in lsmw ?
    i no we can create multiple recording but how can we use them to fullfill my requirement .
    plz help its urgent
    thanx in advance

    Hi,
    Within LSMW, there is an option to write our own code wherein this code can be incorporated.
    This is in the Field Mapping Option...
    Just go to the Menu Extras->Layout
    and click on the check box Form Routines
    Global Data.
    Here you can define Global Variables and also perform your ABAP Coding.
    Regards,
    Balaji.

  • Doubt in ORA_FFI(Its urgent)

    Hi,
    I've created a test.dll which contains caps func as follows:
    int caps()
         int * ptr=0x417;
         if (*ptr==64)
              return 1;
    else
    return 0;
    Then I called this func through ORA_FFI package..
    DECLARE
    dll_handle ORA_FFI.LIBHANDLETYPE;
    winexec_handle ORA_FFI.FUNCHANDLETYPE;
    vn_ret PLS_INTEGER;
    FUNCTION Runp( handle IN ORA_FFI.FUNCHANDLETYPE)
    RETURN PLS_INTEGER;
    PRAGMA INTERFACE(C, Runp, 11265);
    BEGIN
    break;
    dll_handle := ORA_FFI.REGISTER_LIBRARY(NULL,'test.dll');
    winexec_handle := ORA_FFI.REGISTER_FUNCTION(dll_handle,'caps');
    ORA_FFI.REGISTER_RETURN(winexec_handle,ORA_FFI.C_INT);
    vn_ret := Runp(winexec_handle);
    IF vn_ret = 2 THEN
    MESSAGE('Cannot find file ' );
    END IF;
    EXCEPTION WHEN OTHERS THEN
    FOR i IN 1..Tool_Err.NErrors LOOP
    message(Tool_Err.Message);
    Tool_Err.Pop;
    END LOOP;
    END;
    When I debug this code,It gives error as caps func not found in test.dll.
    But the only func in test.dll is caps..
    I'm using forms 6i in client server mode.
    I created test.dll using Microsoft visual c++ by creating new win32 Dynamic link library.
    One more doubt:
    How can I find functions in a already compiled DLL?
    Pls reply me..Its urgent..
    Adios..
    Prashanth Deshmukh

    Hi,
    refer these ,u will get some help
    Standard Buttons:
    https://www.sdn.sap.com/irj/sdn/wiki?path=/display/snippets/webDynproABAP-ALVControllingStandard+Buttons&
    alv-pfstatus:
    http://www.sapdevelopment.co.uk/reporting/alv/alvgrid_pfstatus.htm
    then how to capture that button click.
    http://www.sapdevelopment.co.uk/reporting/alv/alvgrid_ucomm.htm
    http://www.sapdevelopment.co.uk/reporting/alv/alvgrid_rowsel.htm

  • Hi All, How we can handle a table control in bdc - in detail its urgent pls

    Hi All, How we can handle a table control in bdc - in detail its urgent. Please send me the explanation in detail.
    Thanks&regards.
    Bharat

    hi,
    Create Table Control
    • Step 1 (Create new structure for table control)
    Type is name of structure (ZTC_EKKO) and press create
    • Step 2 (Create Program)
    Goto transaction SE80(Object Navigator) -> Repository Browser -> Program.
    Enter your program name, please ensure that is begins with SAPMZ…… as this is a module pool (dialog program).
    Press enter to create, and press yes!
    Ensure that you create a top include, and press Enter.
    Accept the name created for the top include.
    Press Enter.
    Press Save
    • Step 3 (Create TOP include)
    Double click on the top include and enter following ABAP code:
    Tables: ZTC_EKKO.
    controls: tc100 type tableview using screen 100.
    data: ok_code type sy-ucomm.
    data: it_ekko type standard
    table of ZTC_EKKO initial size 0,
    wa_ekko type ZTC_EKKO.
    data: ok_code type sy-ucomm.
    Press Save and Activate
    • Step 4 (Create screen)
    Right click the program to create a screen 100 for the dialog. Enter Short description, set screen type to Normal and enter 0 or blank into Next screen. Then move to Element List tab and enter the OK code as OK_CODE (i.e. the same as what you declared in the top include with data: ok_code type sy-ucomm).
    • Step 5 (Create table control)
    Press the Layout button to bring up the screen painter editor.
    Press table control button and drag it on to the screen, enter the name of table control created in TOP include (TC100). Now press the yellow button for attributes and set the table control as below options
    • Step 6 (Populate table control )
    Press the orange button (Fields). On the next screen enter ZTC_EKKO and press the ‘Get from Dict’ button. Select the fields you want (all) and press enter. Now drag them onto your Table Control.
    Below is the result, there will been syntax errors if we check now! So Save and go back into the flow logic tab.
    • Step 7 (Create flow control )
    Within the flow logic of screen 100 and create two modules, one to select the data from the database and the other to move the selected fields into the table control. Also insert the two loop statements to populate and retrieve the lines of the table control.
    PROCESS BEFORE OUTPUT.
    MODULE STATUS_0100.
    module data_retrieval.
    loop at it_ekko into wa_ekko with control TC100.
    module populate_screen.
    endloop.
    PROCESS AFTER INPUT.
    loop at it_ekko.
    endloop.
    MODULE USER_COMMAND_0100.
    Double click the module data_retrieval to create and click yes to get past the popup. Ensure that a new include is created to hold all the PBO modules (default). Press enter.
    Select 10 rows of data from the EKKO table and load into the internal table it_ekko. Go back to the flow logic to load this data into the Table Control.
    check this one
    REPORT ZCALL_TRANS_TAB1 .
    TABLES: LFA1,LFBK,lfb1.
    data: BEGIN OF it_vendor occurs 0,
    LIFNR LIKE LFA1-LIFNR,
    bukrs like lfb1-bukrs,
    END OF it_vendor.
    DATA: BEGIN OF IT_BANK occurs 0,
    LIFNR LIKE LFA1-LIFNR,
    BANKS LIKE LFBK-BANKS,
    BANKL LIKE LFBK-BANKL,
    BANKN LIKE LFBK-BANKN,
    koinh like lfbk-koinh,
    END OF IT_BANK.
    data: it_bdcdata like bdcdata occurs 0 with header line.
    data: it_messages like bdcmsgcoll occurs 0 with header line.
    *selection screen.
    selection-screen: begin of block b1 with frame.
    parameters: p_file like rlgrap-filename default 'c:/vendor.txt'
    obligatory.
    parameters: p_file1 like rlgrap-filename default 'c:/xyz.txt'
    obligatory.
    selection-screen: end of block b1.
    *at selection screen.
    at selection-screen on value-request for p_file.
    perform f4_help using p_file.
    at selection-screen on value-request for p_file1.
    perform f4_help1 using p_file1.
    *start of selection
    start-of-selection.
    *******uploading file
    perform upload_file using p_file P_FILE1.
    ******open session.
    perform populate_data.
    *& Form f4_help
    form f4_help using p_p_file.
    data: l_file type ibipparms-path.
    call function 'F4_FILENAME'
    importing
    file_name = l_file.
    p_file = l_file.
    endform. " f4_help
    *& Form POPULATE_DATA
    form populate_data .
    DATA: L_STRING TYPE STRing.
    DATA: L_COUNTER(2) TYPE n.
    loop at it_vendor.
    perform bdc_dynpro using 'SAPMF02K' '0106'.
    perform bdc_field using 'BDC_CURSOR'
    'RF02K-D0130'.
    perform bdc_field using 'BDC_OKCODE'
    '/00'.
    perform bdc_field using 'RF02K-LIFNR'
    it_vendor-lifnr.
    perform bdc_field using 'RF02K-BUKRS'
    it_vendor-bukrs.
    perform bdc_field using 'RF02K-D0130'
    'X'.
    perform bdc_dynpro using 'SAPMF02K' '0130'.
    perform bdc_field using 'BDC_CURSOR'
    'LFBK-bankn(03)'.
    perform bdc_field using 'BDC_OKCODE'
    '=UPDA'.
    *********bank details
    CLEAR l_COUNTER.
    LOOP AT IT_BANK WHERE LIFNR = IT_VENDOR-LIFNR.
    l_COUNTER = l_COUNTER + 1.
    clear l_string.
    CONCATENATE 'lfbk-banks(' l_counter ')' into l_string.
    perform bdc_field using l_string
    it_bank-banks.
    clear l_string.
    CONCATENATE 'lfbk-bankl(' l_counter ')' into l_string.
    perform bdc_field using l_string
    it_bank-bankl.
    clear l_string.
    CONCATENATE 'lfbk-bankn(' l_counter ')' into l_string.
    perform bdc_field using l_string
    it_bank-bankn.
    endloop.
    ******CALL TRANSACTION.
    call transaction 'FK02' using it_bdcdata mode 'A'
    messages into it_messages.
    write:/ sy-subrc.
    perform format_messages.
    clear it_bdcdata.
    refresh it_bdcdata.
    endloop.
    endform. " POPULATE_DATA
    *& Form FORMAT_MESSAGES
    form format_messages .
    data: l_msg(100).
    loop at it_messages.
    call function 'FORMAT_MESSAGE'
    exporting
    id = it_messages-msgid
    lang = sy-langu
    no = it_messages-msgnr
    v1 = it_messages-msgv1
    v2 = it_messages-msgv2
    v3 = it_messages-msgv3
    v4 = it_messages-msgv4
    importing
    msg = l_msg
    exceptions
    not_found = 1
    others = 2
    write:/ l_msg.
    endloop.
    endform. " FORMAT_MESSAGES
    *& Form bdc_dynpro
    form bdc_dynpro using value(p_program)
    value(p_screen).
    it_bdcdata-program = p_program.
    it_bdcdata-dynpro = p_screen.
    it_bdcdata-dynbegin = 'X'.
    append it_bdcdata.
    clear it_bdcdata.
    endform. " bdc_dynpro
    *& Form bdc_field
    form bdc_field using value(p_fnam)
    value(p_fval).
    it_bdcdata-fnam = p_fnam.
    it_bdcdata-fval = p_fval.
    append it_bdcdata.
    clear it_bdcdata.
    endform. " bdc_field
    *& Form upload_file
    form upload_file using p_p_file
    p_p_file1.
    CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
    CODEPAGE = ' '
    FILENAME = P_P_FILE
    FILETYPE = 'DAT'
    HEADLEN = ' '
    LINE_EXIT = ' '
    TRUNCLEN = ' '
    USER_FORM = ' '
    USER_PROG = ' '
    DAT_D_FORMAT = ' '
    IMPORTING
    FILELENGTH =
    TABLES
    data_tab = IT_VENDOR
    EXCEPTIONS
    CONVERSION_ERROR = 1
    FILE_OPEN_ERROR = 2
    FILE_READ_ERROR = 3
    INVALID_TYPE = 4
    NO_BATCH = 5
    UNKNOWN_ERROR = 6
    INVALID_TABLE_WIDTH = 7
    GUI_REFUSE_FILETRANSFER = 8
    CUSTOMER_ERROR = 9
    NO_AUTHORITY = 10
    OTHERS = 11
    IF sy-subrc <> 0.
    MESSAGE I000(ZZ) WITH 'UNABLE TO UPLOAD'.
    STOP.
    ENDIF.
    *******UPLOADING BANK DETAILS
    CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
    CODEPAGE = ' '
    FILENAME = P_P_FILE1
    FILETYPE = 'DAT'
    HEADLEN = ' '
    LINE_EXIT = ' '
    TRUNCLEN = ' '
    USER_FORM = ' '
    USER_PROG = ' '
    DAT_D_FORMAT = ' '
    IMPORTING
    FILELENGTH =
    TABLES
    data_tab = IT_BANK
    EXCEPTIONS
    CONVERSION_ERROR = 1
    FILE_OPEN_ERROR = 2
    FILE_READ_ERROR = 3
    INVALID_TYPE = 4
    NO_BATCH = 5
    UNKNOWN_ERROR = 6
    INVALID_TABLE_WIDTH = 7
    GUI_REFUSE_FILETRANSFER = 8
    CUSTOMER_ERROR = 9
    NO_AUTHORITY = 10
    OTHERS = 11
    IF sy-subrc <> 0.
    MESSAGE I000(ZZ) WITH 'UNABLE TO UPLOAD'.
    STOP.
    ENDIF.
    endform. " upload_file
    *& Form f4_help1
    -->P_P_FILE1 text
    form f4_help1 using p_p_file1.
    data:l_file1 type ibipparms-path.
    CALL FUNCTION 'F4_FILENAME'
    IMPORTING
    FILE_NAME = l_file1.
    p_file1 = l_file1.
    endform. " f4_help1
    http://sap-img.com/abap/bdc-example-using-table-control-in-bdc.htm
    Regards,
    Sankar

  • Data adding to database table Its urgent

    How to add data from jsp page to DB table ...
    If jsp contain login&password the n I want to store in table CMS in sql-server ...
    The CMS contain two colomns name & pwd.
    How to add?
    Please tell me by two ways like by inserting to data base by bean using <jsp:useBean> tag...
    And also by adding scriplet in JSP which directly adds to database.
    If any body gives the sample code its good...
    Please I want it urgent.
    thanks in advance...
    by
    amit bhadre

    JSTL has a special sql taglib that you can use to execute queries if you want. I wouldn't recommend that however, JSP's should be used for presentation only. Database transactions should be done in servlets and/or beans, and for that you need to JDBC API.
    JDBC tutorial:
    http://java.sun.com/docs/books/tutorial/jdbc/index.html
    JSTL SQL examples:
    http://java.sun.com/j2ee/1.4/docs/tutorial/doc/JSTL7.html

  • CODE PLEASE URGENT

    HI GEMS,
    PLEASE SEND ME THE CODE PLEASE ITS URGENT.
    The retrieval logic is to be used only for displaying the accounting and assessment year
    1) Accounting Year: GJAHR-(GJAHR+1)
    Assessment Year GJAHR1) – (GJAHR2)
    2) Get the following details from BSIS/BSAS
    BSIS/BSAS – BELNR
    BSIS/BSAS – DMBTR
    BSIS/BSAS – SHKZG
    Where
    BSIS/BSAS – GJAHR = P_GJAHR
    BSIS/BSAS – HKONT = (334551, 499001, 402001, 402002, 403000) and store them in an internal table INTAB1
    Summate the BSIS/BSAS –DMBTR and depict it in the first line of the table
    3) For the documents contained in the INTAB1 table check whether there are any line items posted to HKONT’s =(260501,260502,260503) and store them in an internal table INTAB2
    If yes then get the following fields from BSIS/BSAS table
    BSIS/BSAS – BELNR
    BSIS/BSAS – DMBTR
    BSIS/BSAS – SHKZG
    Where
    BELNR = INTAB2-BELNR
    GJAHR = P_GJAHR
    HKONT = (260501, 260502 and, 260503)
    SHKZG = “H”.
    Summate the BSIS/BSAS – DMBTR and depict against second line item and fourth line.
    4) Subtract line1 and line2 and depict against the 3 line.
    5) Subtract the DMBTR of 4th line from the 2nd line DMBTR and depict against the 5th line item.

    select BELNR DMBTR SHKZG
    from BSIS
    into itab
    Where
    GJAHR = P_GJAHR and
    HKONT in (334551, 499001, 402001, 402002, 403000).
    data s1 type i value 0.
    loop at itab.
    s1 = s1 + itab-dmbtr.
    endloop.
    Read itab where index = 1.
    itab-dmbtr = s1.
    append itab.
    clear s1.
    If itab1[] is not initial.
    select BELNR DMBTR SHKZG
    from BSIS
    into itab2
    Where
    BELNR = INTAB2-BELNR and
    GJAHR = P_GJAHR and
    HKONT in (260501, 260502 , 260503) and
    SHKZG = “H”.
    endif.
    data s2 type i value 0.
    loop at itab2.
    s2 = s2 + itab2-dmbtr.
    endloop.
    read itab2 where index =2.
    itab2-dmbtr = s2.
    append itab2.
    read itab2 where index =4.
    itab2-dmbtr = s2.
    append itab2.
    clear s2.

  • In put variable to have default from date as current date..its urgent

    query has input data as an interval it could be replaced with a single start end date parameters.only the start date needs a default value...
    plz its urgent..
    i will assign points...

    Hi,
    Steps to follow,
    1) In bex, Create a new variable of 0Calday characteristic.
    Set the following attributes:
    Type of Variable: Characteristic Value
    Variable name: ZCEMONT
    Variable Description: Caldate
    Processing by: Customer Exit (Drop down combo box)
    Characteristic: Calendar date
    Press Next
    Variable Represents: Range Value
    Variable Entry is: Mandatory
    Check Ready for Input
    And Press Next
    Press Finish.
    2) Transaction CMOD
    Create a new project, maintain the short text, and assign a development class.
    (It’s better to ask somebody senior in our project about this, because every project have one main project and development class)
    If you have project say Zproject. Choose option components. Click Change.
    Double-click on EXIT_SAPLRRS0_001.Then double-click on ZXRSRU01.
    Enter the coding .Save and activate the coding.
    INCLUDE ZXRSRU01 *
    DATA: L_S_RANGE TYPE RSR_S_RANGESID. 'In global area
    DATA: LOC_VAR_RANGE LIKE RRRANGEEXIT. 'In global area
    DATA: zdate like sy-datum.
    CASE I_VNAM.
    WHEN 'ZCEMONT'.
    IF i_step = 1.
    zdate = 'your default value'.
    l_s_range-low = zdate.
    l_s_range-sign = 'I'.
    l_s_range-opt = 'BT'.
    APPEND l_s_range TO e_t_range.
    ENDIF.
    ENDCASE.
    Activate the project. This is very important.
    3) TO test now, use that variable ZCEMONT in query some where by going to BEx designer.save the query.Don;t run it.
    4) First run it in RSRT(Tran code).
    Hope i m clear.
    Now your report
    1)Place your Priority infoobject in rows
    2)In column area in Bex, Right Click and New Structure.
    3) Right click the New Structure->New Selection"DOWNTIME"->Drag your KF ZDOWNTIME
    4) Now Create a New Formula and drag  DOWNTIME->
    ='DOWNTIME'<4
    5) same for other two.
    Regards,
    San!
    Message was edited by: San!
    Message was edited by: San!

  • ITS URGENT QUES ON AT LINE-SELECTION AND AT USER-COMMAND

    ITS URGENT...WHEN I SELECT MULTIPUL VALUES IN BASIC LIST ,I HAVE TO GET THOSE SELECTED MULTIPUL VALUES IN SECONDARY LIST THAT CAN BE AFTER(AT LINE-SELECTION OR AT USER-COMMAND)............?

    hey
    this code modify's simlarly u can read n  display secondary window
        DO .
    Reading the internal table whose data is displayed into wrk area.....
          READ LINE SY-INDEX FIELD VALUE INT_DISPLAY-SHIPMENT_ID INTO WF_SHIPMENT_ID.
    Reading the check box value
          READ LINE SY-INDEX FIELD VALUE WG_CHK.
    If all the records are read and there is no code left to read
          IF SY-SUBRC <> 0 .
            EXIT.
          ENDIF.
    To highlight the line which is selected by the user
          IF WG_CHK = WL_X.
            MODIFY CURRENT LINE
            LINE FORMAT COLOR COL_NEGATIVE INVERSE
            FIELD VALUE WG_CHK FROM WL_SPACE.
            MODIFY CURRENT LINE
            LINE FORMAT INPUT OFF.
    Also append the record read into new internal table which u will display in secondary window.......
          ENDIF.
        ENDDO.
    AT USER-COMMAND. or AT LINE SELECTION . u can write this code.........
    DISPLAYING A POP-UP WINDOW .
          WINDOW STARTING AT 10 50
                 ENDING AT 120 70.
    and then write the table into which u have stored the read entry which user had selected
    reward points if useful

  • Routine--- help its urgent.

    hai gurus,
    Here is the scenario.
    I am extracting the data from r/3.There is one field called "ITM_DESCRIPTION" in this i am gettting an # char only for single record and due to this delta loads are getting failed.
    we had already wriiten the code for eliminating # for that field but dont know its not working. So i am planning out to skip that particular record for a particular Purchase order number.
    Is there any such code to eliminate the particular record.
    Many thanks in advance.
    any one has the code plz send the code.
    Help its urgent.
    full points assured
    regards
    KP

    hai Oscar,
    I had already done this one.
    still geting the same problem.
    can u send me any code that i can add in SR of TR.
    regards
    Kp

  • Java (JMX) vs WLST (Please Reply.. Its Urgent!)

    HI,
    I know that there are two ways to admin weblogic server. One way is by WLST scripts which we write in WLST console. Second way is by JMX which we write in JAVA language.
    I know that java language gives more flexibility but still all the scripts present in my companies Weblogic servers are WLST scripts.
    Can anyone tell me about all the benefits and advantages I can have if I change them to Java (JMX) code.
    One of the Flexibility is that I can implement multithreading and start multiple AdminServer (in multiple domain) at same time.
    Thanks
    Nitish Kumar

    Doublepost: http://forum.java.sun.com/thread.jspa?threadID=5192841
    Crosspost: http://forum.java.sun.com/thread.jspa?threadID=5192927
    Like I said in your former topic: just debug it. Run the debugger or put some simple System.out.println() lines to check if the array has a length, if the array elements are not null, if the final SQL statement is correct, etcetera.
    By the way, with putting pressure by shouting "please reply its urgent" you don't gain that much respect from our side. Some will refuse to reply. Urgency is your issue, not ours.

Maybe you are looking for

  • Standard SAP PM  reports

    dear all, does standard reports contain any reports related to counter (reading/difference etc)? where i can find PM Standard reports and how they are executed ? please give useful link if there is any, Thanks and regards Edited by: Pravin on Nov 20,

  • How to read a line from a file which contains 45000 characters?

    Hi all,      Iam a receiving a .CSV file which contains n number of rows ,each row has a data seperated with delimiter. These values based on delimiter it is seperated and certain validations are handled. Iam using UTL_FILE.GET_LINE operator to read

  • Some songs do not copy from iTunes to iPod

    This is very frustrating. I have a 5th Generation 60gig iPod. There are about 20,300 songs in my library, none of them from the iTunes store. All legal, all owned by me and I have the CDs to prove it. When I update the iPod all but about 4 or 5 songs

  • How to do Credential and Policy migration in 10g?

    Hi, I installed BPEL manager 10g on my machine and want to run the embed demos/tutorials. I noticed the demos are using JAZN as identity service but my installation on Weblogic Server does not support it. As a result I couldn't use JDeveloper BPEL UI

  • BI Content Transformation Rule for Data Source 2LIS_03_BX

    Hi All, I am using BI content info cube 0RT_C54 for queries. I am uanble to find BI content transformation rules for the Data Source 2LIS_03_BX. In "Network Display of the data flow" I am able to see the transformation rules for this data source. How