Field too big

Dear All,
i am very new in Oracle, so may be you can help me.
We have some 'very' big views here. So when i look with the
Schema Manager i see only a littel part of this view.
I have tryed to change or copy this view, but oracle tells me
that the view is valid !!!
We are working on a Unixbox with Windows 95 Clients.
Thanks
Thomas
null

Extending the field length would not make the error going away. Instead it makes it easier for the user to enter wrong units and conversions. As SAP will less often dump, you will encounter your errors much later than now.
analyse your materials and correct the wrong entries, conversions to alternative units are stored in table MARM

Similar Messages

  • Field Length too big to display

    Hi
    We have a scenario where the wrong unit of measure was used and resulted in numbers that were too big to display on deliveries and reports eg 555, 000, 000, 000, 000.00.  We are now changing the UOM for the affected PNs but wondered if anybody has any other solutions on how SAP can cope with displaying fields that are too large for its defined length for all the old deliveries created previously.  Currently these hit run time display errors.  We have already extended the field length once but need a more robust solution in case there are any more materials like this.
    Thanks

    Extending the field length would not make the error going away. Instead it makes it easier for the user to enter wrong units and conversions. As SAP will less often dump, you will encounter your errors much later than now.
    analyse your materials and correct the wrong entries, conversions to alternative units are stored in table MARM

  • Safari font specifically in Google search is way too BIG

    The font in Google search is way too big. Only in Google. Other websites show normal fonts. Did someone encounter such problem? Please help me! Thank you!

    Hello How Goes It,
    select the cells you want to have no margin and choose the text inspector of the infopalette and the text tab button. At the bottom is a slider and a number field. There you can adjust the margin thickness.
    Frank.

  • ODI-40406: Bytes are too big for array error

    Hello ,
    I am trying to load a flat file from a table. I am working on ODI 11G.
    Following are performed.
    Staging area different from SOurce is checked.
    IKM used is : IKM SQL to File Append
    Truncate is True
    No LKM is used.
    I am getting following error:
    java.lang.IllegalArgumentException: ODI-40406: Bytes are too big for array
    create header (RECORDTYPE,
    ASSIGN_NUM,
    USR_ID,
    START_TIME,
    JOBCODEID,
    AISLE_AREA_ID,
    PLANE_DATE,
    CLIENT_ID,
    CSTNUM,
    WH_ID)
    /*$$SNPS_START_KEYSNP$CRDWG_TABLESNP$CRTABLE_NAME=UNITIME TO RPSNP$CRLOAD_FILE=C:\Program Files\ODI_BI_APPS/UNITIME TO RP.txtSNP$CRFILE_FORMAT=FSNP$CRFILE_SEP_FIELD=0x0009SNP$CRFILE_SEP_LINE=0x000D0x000ASNP$CRFILE_FIRST_ROW=0SNP$CRFILE_ENC_FIELD=SNP$CRFILE_DEC_SEP=SNP$CRSNP$CRDWG_COLSNP

    There is a possibility of mismatch of datatype, that can cause the problem.
    Say in ODI model, you have defined a 'Date type' field to be stored as 'String' however at the time of mapping in 'Interface', no conversion happens (from date to string)  for this particular object. This causes the problem.
    The original query remains valid at DB side (fires for datetype) however fails while integrating (anticipating String which may be longer than defined in modelbecause of your NLS setting in DB). Therefore the best way would be to apply conversion for that particular field (in this case, use TO_CHAR(Date type,'Desired Date Format').

  • ODI-40406: Bytes are too big for array

    I am getting the following error: java.lang.IllegalArgumentException: ODI-40406: Bytes are too big for array
    I am trying to a file to file mapping and all of my columns match in size. Does anyone have any ideas what this problem could be? I am getting an error when it tries to perform an integration step while trying to create the target table. I am assuming it is something wrong with one of my datastores
    Edited by: 897642 on Nov 16, 2011 5:19 PM

    There is a possibility of mismatch of datatype, that can cause the problem.
    Say in ODI model, you have defined a 'Date type' field to be stored as 'String' however at the time of mapping in 'Interface', no conversion happens (from date to string)  for this particular object. This causes the problem.
    The original query remains valid at DB side (fires for datetype) however fails while integrating. Therefore the best way would be to apply conversion for that particular field (in this case, use TO_CHAR(Date type,'Desired Date Format').

  • DBIF_RSQL_INVALID_RSQL statement too big

    Hi All,
    We are on SAP R/3 4.6C (kernel 46D 64 bit pacth 2113 with last DBLS library, AIX 5.2, DB2 7.1 on z/os 1.4) and for a BW extraction we have the following dump:
    "ABAP runtime error DBIF_RSQL_INVALID_RSQL, RSQL error 13 occurred.
    The following message also appears in the developer trace:
    B *** ERROR => dbtran ERROR (set_input_da_spec): statement too big
    B marker count = 1195 > max. marker count = 726."
    For the OSS note 655018 the limit of marker count is 2000, but in the trace of work process we read 726.
    Many thanks for your help
    Bob

    Hi Bernhard,
    thak you for reply. This is the dump:
    ============================================================
    ABAP runtime errors    DBIF_RSQL_INVALID_RSQL
           Occurred on     16.01.2008 at 10:29:04
    RSQL error 13 when accessing table "EKKO ".
    What happened?
    The current ABAP/4 program "SAPDBERM " had to be terminated because
    one of the statements could not be executed.
    This is probably due to an error in the ABAP/4 program.
    What can you do?
    Note the actions and input that caused the error.
    Inform your SAP system administrator.
    You can print out this message by choosing "Print". Transaction ST22
    allows you to display and manage termination messages, including keeping
    them beyond their normal deletion date.
    Error analysis
    The SQL statement generated from SAP Open SQL violates a
    restriction imposed by the database system used in R/3.
    For details, refer to either the system log or the developer trace.
    Possible reasons for error:
    o Maximum size of an SQL statement exceeded.
    o The statement contains too many input variables.
    o The input data requires more space than is available.
    o ...
    You can usually find details in the system log (SM21) and in
    the developer trace of the relevant work process (ST11).
    In the event of an error, the developer trace often gives the
    current restrictions.
    How to correct the error
    The SAP Open SQL statement concerned must be divided into several
    smaller units.
    If the problem occurred because an excessively large table was used
    in an IN itab construct, you can use FOR ALL ENTRIES instead.
    When you use this addition, the statement is split into smaller units
    according to the restrictions of the database system used.
    System environment
    SAP Release.............. "46C"
    Application server....... "R3PRD"
    Network address.......... "172.24.10.50"
    Operating system......... "AIX"
    Release.................. "5.2"
    Hardware type............ "00C7A3EC4C00"
    Database server.......... "r3prddb_gb"
    Database type............ "DB2"
    Database name............ "PRD"
    Database owner........... "SAPR3"
    Character set............ "en_US.ISO8859-1"
    SAP kernel............... "46D"
    Created on............... "Aug 25 2005 20:51:50"
    Created in............... "AIX 1 5 00447C4A4C00"
    Database version......... " "
    Patch level.............. "2113"
    Patch text............... " "
    Supported environment....
    Database................. "DB2 for OS/390 6.1"
    SAP database version..... "46D"
    Operating system......... "AIX 1 4, AIX 2 4, AIX 3 4, AIX 1 5, AIX 2 5, AIX 3
    5, , System build information:, -
    , LCHN :
    775484"
    User, transaction...
    Client.............. 300
    User................ "ALEREMOTE"
    Language key........ "E"
    Transaction......... " "
    Program............. "SAPDBERM "
    Screen.............. "SAPMSSY0 1000"
    Screen line......... 6
    Information on where termination occurred
    The termination occurred in the ABAP/4 program "SAPDBERM " in
    "PUT_EKKO".
    The main program was "AQZZSYSTBWGENER0SY000000000361 ".
    The termination occurred in line 333
    of the source code of program "SAPDBERM " (when calling the editor 3330).
    The program "SAPDBERM " was started as a background job.
    Source code extract
    003030   ENDFORM.
    003040
    003050   ----
    003060   FORM PUT_EKKO.
    003070
    003080     CONSTANTS: LC_PACKAGE_SIZE LIKE SY-TFILL VALUE 10.
    003090     DATA: BEGIN OF LT_SEKKO OCCURS 0,
    003100             EBELN LIKE EKKO-EBELN,
    003110           END OF LT_SEKKO.
    003120     DATA: BEGIN OF LT_TEKKO OCCURS 0,
    003130             EBELN LIKE EKKO-EBELN,
    003140           END OF LT_TEKKO.
    003150     DATA: L_INDEX_FROM LIKE SY-TABIX,
    003160           L_INDEX_TO   LIKE SY-TABIX,
    003170           L_EKPO_TABIX LIKE SY-TABIX.
    003180     PERFORM KSCHL_SETZEN.
    003190     ONEST = P_ONEST.
    003200     TEST  = TESTLAUF.
    003210     DB_DEL  = ' '.    "VETVG und Komponenten bleiben noch stehen
    003220     DETPROT = P_PROT.
    003230     ANDAT = ER_ANDAT.
    003240     PERFORM AKTIVITAET_SETZEN(SAPFM06D) USING '06'.
    003250     SELECT EBELN    FROM  EKKO INTO TABLE LT_SEKKO
    003260       WHERE EBELN  IN ER_EBELN
    003270         AND EKORG  IN ER_EKORG
    003280         AND BSTYP  IN ER_BSTYP
    003290         AND BEDAT  IN ER_BEDAT
    003300         AND BSART  IN ER_BSART
    003310         AND EKGRP  IN ER_EKGRP
    003320   *   AND MEMORY NE 'X'
    >         ORDER BY EBELN.
    003340     L_INDEX_FROM = 1.
    003350
    003360     DO.
    003370       REFRESH LT_TEKKO.
    003380       L_INDEX_TO = L_INDEX_FROM + LC_PACKAGE_SIZE - 1.
    003390       LOOP AT LT_SEKKO FROM L_INDEX_FROM
    003400                        TO   L_INDEX_TO.
    003410         APPEND LT_SEKKO TO LT_TEKKO.
    003420       ENDLOOP.
    003430       IF SY-SUBRC NE 0.
    003440         EXIT.
    003450       ENDIF.
    003460       SELECT        * FROM  EKKO INTO TABLE XEKKO
    003470         FOR ALL ENTRIES IN LT_TEKKO
    003480              WHERE  EBELN  = LT_TEKKO-EBELN
    003490         ORDER BY PRIMARY KEY.
    003500       SELECT        * FROM  EKPO INTO TABLE XEKPO
    003510         FOR ALL ENTRIES IN LT_TEKKO
    003520              WHERE  EBELN  = LT_TEKKO-EBELN
    Contents of system fields
    SY field contents..................... SY field contents.....................
    SY-SUBRC 0                             SY-INDEX 0
    SY-TABIX 1                             SY-DBCNT 152
    SY-FDPOS 1                             SY-LSIND 0
    SY-PAGNO 0                             SY-LINNO 1
    SY-COLNO 1
    ============================================================
    We have also installed the last kernel and the DBSL 2342.
    Thank you and regards
    Bob

  • Offset declaration too big for structure (unicode checks)

    Has anyone worked with this user exit to Derive values for co/pa?
    Enhancement COPA0001
    Comp ZXKKEU11
    I set up WA_CE1AWG1 as data: WA_CE1AWG1 like CE1AWG1.
    and tried to copy I_COPA_ITEM to this variable
    WA_CE1AWG1 = I_COPA_ITEM.
    I get a runtime error Offset declaration too big for structure.
    will I have to change program SAPLXKKE to remove unicode checks. Is there any other way to read in the fields from input structure I_COPA_ITEM?

    hi
    1.r u sure I_COPA_ITEM is structure or table.
    2. if it is a struccture make sure the WA_CE1AWG1 and  I_COPA_ITEM are with same structures and types..
    i think I_COPA_ITEM is table type --> to find it open in debugging mode then try to resolve.
    Please Close this thread.. when u r problem is solved
    Reward if Helpful
    Regards
    Naresh Reddy K

  • ParseInt integer too big

    Hello,
    In my application I have a form field which a non-negative number should be entered in.
    In order to make my application maximally user-friendly, I validate that field if it has a value entered, if the value entered is a number and if the number entered is negative.
    I validate the string with a Integer.parseInt() method. If it throws a NumberFormatException, then the input string is not a number (empty or text) and I display a message "The input string is not a number...". When it doesn't throw anything, then I validate the number to negativity.
    But when I enter string "5000000000" (five billions), the result is NumberFormatException and the resulting message is "The input string is not a number...", which is obviously bad. Is there a way to know whether the NumberFormatException was thrown because of invalid string or because of too large number was entered?
    Moreover, if value -5000000000 (minus five billions) was entered, I would like to display message "Input number must be non-negative...", instead of "Number too big...".
    Thanks
    Edited by: Shagrat on Feb 19, 2009 2:20 AM

    Shagrat wrote:
    Thanks for a quick response.
    I appreciate your suggestions, but using BigInteger would only move the size a little big futherWell, quite a lot further, to be honest. I'm currently running this code:
         String x = "1";
         while(true) {
              BigInteger b = new BigInteger(x);
              System.err.println(x.length());
              x = x.concat("0");
         }And it hasn't died yet, after several minutes, by which point the numbers are massive. Like, 10^10000 and counting. I wonder what on Earth your users will be doing that requires bigger numbers than that.
    Sounds like you want to do some input validation before you even decide if you've got a number or not

  • I need to downsize phots to publish on a website but they are too big . In help it says when I select a photo it gives me the option to downsize. It does NOT. ?

    I can't figure out how to downsize my photos for a website that won't take anything above 3MB my Photos are 4MB. Even when I send them in an email, they are too big to send more than 3 at a time and I don't know how to fix it! Help says that when I select a photo it gives me the option to downsize. It does NOT?????

    This is the iPhoto for iOS forum. Are you asking about iPhoto on your Mac?
    In iPhoto on your Mac select Export and you will have the option to select a size for your photo.
    In iPhoto for iOS this capability is not there. I use PhotoForege2 on my iPad to resize my photos to meet the requirements you describe.

  • Saving animated gif error - canvas size too big?

    Hi,
    i have been asked to create an animated gif which has a snow effect in the background. The animation runs pretty well using the pattern style to move the animated snow down. The problem is when I try to export the animation the save for web dialogue window freezes and I can't quit photoshop. I have tried to make the canvas (image size) smaller and it works.
    Is there a memory problem with creating animations in Photoshop if the document size is too big, im running a 3000x1000px at 72dpi
    TThe animation would be used on a web app, which a script could probably do a better job, but I need to try this first.
    thanks
    lister

    Something is very wrong here. The point behind using GIFs is that they are small and OK to put on a Web site.
    First thing: forget all about PPI - this has absolutely no relevance to Web/screen images; it is only used for printing. You need to think about the pixel size.
    So, how big in pixels are your starting images?
    How big do you want the resulting GIF to be? Again, you have to decide in pixels, as the viewing size will depend upon screen resolution of the person looking at it. You can use a notional PPI of 70-100 to guess how big it will be in inches, but that's all it is - a guess.
    Is this getting you going in the right direction?
    I cannot resist commenting that I hate almost all animated GIFs as they reduce Web site usability so much.

  • When I open my iPad the page is too big for the screen and won't shrink down. The keypad has also become very 'sticky'

    Recently when I open any apps the pages are too big for the screen. They shrink when pinched but immediately become bigger again. It's very difficult to scroll too. The keypad has become very sticky. Missing letters and spaces when I type and needing to tap the keys much harder than usual

    I have the exact same problem, I think.  I was on my iPad 3's home page swiping R-L to locate a certain icon when all of a sudden the screen appeared to get HUGE.  So big I could only see one or two icons.  I couldn't even turn it off to try a reboot because after I pushed the sleep/wake button, I couldn't find the red slide bar.  I finally just had to wait for the battery to die, then recharge it, and it looked normal again.  I also spoke with several friends who haven either iPads or iPhones, and they've all had this happen to them.  I checked my accessibility settings, and Zoom was already off.  So what is causing this problem for so many people, and what can we do to prevent it?  Please help.

  • Field too short-DUMP

    Hi Folks,
    I am getting the following dump error.Can any one here please throw some light on this.
    Field too small when calculating totals in internal table.
    <b>In the internal table "\PROGRAM=ZFI\DATA=IT_HEADER[]", a SUM statement is used to calculate totals. However, the values are too large for the designated field.
    The name of the field is "KURSF".
    The name of the field is "KURSF".</b>
    The field "KURSF" in the program "ZFIR_IMPORT_REGISTER"
    be a different
    type (e.g. type P of appropriate length).
    REPORT  ZFI.
    TABLES: rbkp,
            rseg,
            bset,
            mara,
            lfa1,
            ekko,
            t161t.
    TYPE-POOLS: slis.
    TYPES: BEGIN OF TY_CUSTOM,
              WRBTR TYPE RSEG-WRBTR,
              KSCHL TYPE RSEG-KSCHL,
              EBELN TYPE RSEG-EBELN,
              EBELP TYPE RSEG-EBELP,
           END OF TY_CUSTOM.
    TYPES: BEGIN OF ty_itab,
          lfbnr LIKE rseg-lfbnr,               " GR NO
          belnr LIKE rbkp-belnr,               " MIRO doc.no.
          buzei LIKE rseg-buzei,               " MIRO line item number
          fidoc LIKE bkpf-belnr,               " accounting doc.no.
          matnr LIKE rseg-matnr,               " Material number
          maktx LIKE makt-maktx,               " material description
          xblnr LIKE rbkp-xblnr,               " Reference Document Number
          budat LIKE rbkp-budat,               " Posting Date in Document
          mwskz LIKE rseg-mwskz,               " Tax Code
          bklas LIKE rseg-bklas,               " Valuation Class
          menge LIKE rseg-menge,               " Quantity
          gjahr LIKE rseg-gjahr,               " Fiscal Year
          bldat LIKE rbkp-bldat,               " Document Date
          lifnr TYPE rbkp-lifnr,                "Vendor Code
          stcd1 TYPE lfa1-stcd1,                "Tin number
          matkl TYPE mara-matkl,                "Mat Desc
          name1 TYPE lfa1-name1,                "Vendor Name
          awkey TYPE bkpf-awkey,                "Reference Key
          str_suppl1 TYPE adrc-str_suppl1,      "Street
          post_code1 TYPE adrc-post_code1,      "Pincode
          city1 TYPE adrc-city1,                "City
          region TYPE adrc-region,              "Region
          adrnr TYPE lfa1-adrnr,                "Address Number
          dms(3) TYPE c,                        "DMS
          werks TYPE rseg-werks,                "PLANT
          bukrs TYPE rseg-bukrs,                "COMPANY CODE
          stblg TYPE rbkp-stblg,                "DOCUMENT REVERSAL INDICATOR
          mtart TYPE mara-mtart,                "MATERIAL TYPE
          wrbtr TYPE rseg-wrbtr,                "Base Amount
          tax_amount TYPE konv-kwert,           "Tax amount for summary
          vgart TYPE rbkp-vgart,                "Transaction Type
          ivtyp TYPE rbkp-ivtyp,                "Invoice Category
          reverse(2),                           "Invoice Reversed
          land1 TYPE lfa1-land1,                "Country Key
    *Fields added for customs
          BED TYPE RSEG-WRBTR,                  "BASIC ED FOR CUSTOMS
          CVD TYPE RSEG-WRBTR,                  "CVD FOR CUSTOMS
          ECVD TYPE RSEG-WRBTR,                 "CESS ON VD FOR CUSTOMS
          ECED TYPE RSEG-wrbtr,                 "CESS ON DUTIES
          lfgja type rseg-lfgja,                "Mat Doc Year
          frbnr type mkpf-frbnr,                "Bill of Lading No
          waers type rbkp-waers,
          txz01 TYPE ekpo-txz01,                "Short Text for Material
          ebeln TYPE rseg-ebeln,                "Purchasing Doc
          bsart type ekko-bsart,                "Pur.Doc Type
          batxt type t161t-batxt,               "Desc for Pur Doc.Type
          ebelp TYPE ekpo-ebelp,                "Purchase Ord Ln Item
          NCVD TYPE RSEG-WRBTR,                 "CESS ON VD FOR CUSTOMS
          SBED TYPE RSEG-wrbtr,                 "CESS ON DUTIES
          TEXT(30),
          qtr_yr(4),
          qtr_mth(10),
    *Fields added for Inr Value for exchange rate
          kursf type rbkp-kursf,
          inrval type rseg-wrbtr,
          BELNR1 TYPE RBKP-BELNR,
          remarks(15),
    END OF ty_itab.
    TYPES: BEGIN OF ty_header,
          belnr LIKE rbkp-belnr,               " MIRO doc.no.
          fidoc LIKE bkpf-belnr,               " accounting doc.no.
          xblnr LIKE rbkp-xblnr,               " Reference Document Number
          budat LIKE rbkp-budat,               " Posting Date in Document
          mwskz LIKE rseg-mwskz,               " Tax Code
          bklas LIKE rseg-bklas,               " Valuation Class
          gjahr LIKE rseg-gjahr,               " Fiscal Year
          bldat LIKE rbkp-bldat,               " Document Date
          lifnr TYPE rbkp-lifnr,                "Vendor Code
          stcd1 TYPE lfa1-stcd1,                "Tin number
          name1 TYPE lfa1-name1,                "Vendor Name
          awkey TYPE bkpf-awkey,                "Reference Key
          str_suppl1 TYPE adrc-str_suppl1,      "Street
          post_code1 TYPE adrc-post_code1,      "Pincode
          city1 TYPE adrc-city1,                "City
          region TYPE adrc-region,              "Region
          adrnr TYPE lfa1-adrnr,                "Address Number
          dms(3) TYPE c,                        "DMS
          werks TYPE rseg-werks,                "PLANT
          bukrs TYPE rseg-bukrs,                "COMPANY CODE
          stblg TYPE rbkp-stblg,                "DOCUMENT REVERSAL INDICATOR
          mtart TYPE mara-mtart,                "MATERIAL TYPE
          wrbtr TYPE rseg-wrbtr,                "Base Amount
          tax_amount TYPE konv-kwert,           "Tax amount for summary
          vgart TYPE rbkp-vgart,                "Transaction Type
          ivtyp TYPE rbkp-ivtyp,                "Invoice Category
          reverse(2),                           "Invoice Reversed
          land1 TYPE lfa1-land1,                "Country Key
          BED TYPE RSEG-WRBTR,                  "BASIC ED FOR CUSTOMS
          CVD TYPE RSEG-WRBTR,                  "CVD FOR CUSTOMS
          ECVD TYPE RSEG-WRBTR,                 "CESS ON VD FOR CUSTOMS
          ECED TYPE RSEG-wrbtr,                 "CESS ON DUTIES
          lfgja type rseg-lfgja,                "Mat Doc Year
          frbnr type mkpf-frbnr,                "Bill of Lading No
          waers type rbkp-waers,
          txz01 TYPE ekpo-txz01,                "Short Text for Material
          NCVD TYPE RSEG-WRBTR,                 "CESS ON VD FOR CUSTOMS
          SBED TYPE RSEG-wrbtr,                 "CESS ON DUTIES
          TEXT(30),
          qtr_yr(4),
          qtr_mth(10),
    *Fields added for Inr Value for exchange rate
          kursf type rbkp-kursf,
          inrval type rseg-wrbtr,
          BELNR1 TYPE RBKP-BELNR,
          remarks(15),
    END OF ty_header.
    types: begin of ty_pohistory,
            xblnr type ekbe-xblnr,
            bewtp type ekbe-bewtp,
            belnr type ekbe-belnr,
            gjahr type ekbe-gjahr,
           end of ty_pohistory.
    TYPES: BEGIN OF ty_temp,
            fidoc TYPE bkpf-belnr,              "FIDOC No
            awkey TYPE bkpf-belnr,              "Reference Key
            gjahr TYPE bkpf-gjahr,              "Fiscal Year
            budat TYPE bkpf-budat,              "Posting Date
            belnr TYPE rbkp-belnr,              "Doc No
            blart TYPE bkpf-blart,              "Document Type
           END OF ty_temp.
    *Internal Table
    DATA: itab TYPE ty_itab OCCURS 0 WITH HEADER LINE.
    DATA: itab_temp TYPE ty_temp OCCURS 0 WITH HEADER LINE.
    DATA : IT_CUSTOM TYPE TY_CUSTOM OCCURS 0 WITH HEADER LINE.
    data: it_pohistory type ty_pohistory occurs 0 with header line.
    data : it_header type ty_header occurs 0 with header  line.
    data : it_temp14 type ty_header occurs 0 with header  line.
    *Data Declaration
    DATA: BKTXT TYPE MKPF-BKTXT.
    DATA: FRBNR TYPE MKPF-FRBNR.
    data: budat type mkpf-budat.
    DATA: BELNR TYPE RSEG-BELNR.
    data: gjahr type rseg-gjahr.
    data: date1(10).
    data: date2(10).
    data: title(70).
    DATA : adrnr1 LIKE t001w-adrnr.
    DATA: plant_name1 LIKE adrc-name1.
    DATA: plant_name2 type adrc-name2.
    data: plant_name(70).
    DATA: comp_name1 LIKE adrc-name1.
    DATA: comp_name2 type adrc-name2.
    data: comp_name(70).
    DATA: month(2).
    For ALV display
    DATA: itfieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
          gd_layout TYPE slis_layout_alv,
          itsort TYPE slis_t_sortinfo_alv WITH HEADER LINE.
    DATA: gd_prntparams TYPE slis_print_alv.
    DATA : it_data TYPE slis_t_listheader,
           wa_data LIKE LINE OF it_data.
    **ALV Declaration
    DATA: it_alv1 LIKE TABLE OF itab WITH HEADER LINE.
    DATA : i TYPE n.
    DATA : col_name(10) TYPE c.
    data: text(70).
    *Selection Screen
    SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
    PARAMETERS:p_bukrs LIKE rbkp-bukrs OBLIGATORY.
    SELECT-OPTIONS: s_werks FOR rseg-werks NO INTERVALS OBLIGATORY.
    SELECT-OPTIONS: s_regio FOR lfa1-regio NO INTERVALS.
    SELECT-OPTIONS: s_lifnr FOR lfa1-lifnr NO INTERVALS.
    select-options: s_bsart for ekko-bsart no intervals.
    SELECT-OPTIONS:s_bldat FOR rbkp-bldat.
    SELECT-OPTIONS:s_budat FOR rbkp-budat OBLIGATORY.
    SELECTION-SCREEN END OF BLOCK block1.
    SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-002.
    PARAMETERS : R1  RADIOBUTTON GROUP G1.
    PARAMETERS : R2  RADIOBUTTON GROUP G1.
    SELECTION-SCREEN END OF BLOCK block2.
    SELECT-OPTIONS: s_mwskz FOR rseg-mwskz NO-DISPLAY.
    SELECT-OPTIONS: s_land1 FOR lfa1-land1 NO-DISPLAY.
    START-OF-SELECTION.
    PERFORM get_data.
    **Filtering the Data based on the Document Type and Document Status in the Internal Table
    LOOP AT itab_temp.
    IF itab_temp-blart = 'RE'.
    itab_temp-belnr = itab_temp-awkey+0(10).
    MODIFY itab_temp.
    ELSE.
    DELETE itab_temp.
    ENDIF.
    ENDLOOP.
    WRITE : s_budat-low TO date1,
             s_budat-high TO date2.
    CONCATENATE 'Import Purchase Register From :' date1 ' To : '   date2 INTO text.
    if r1 = 'X'.
    PERFORM taxvalues.
    PERFORM filtering.
    PERFORM CUSTOMS.
    perform filtering2.
    PERFORM build_layout.
    PERFORM build_fieldcat.
    PERFORM alv_display.
    endif.
    if r2 = 'X'.
    PERFORM taxvalues.
    PERFORM filtering.
    PERFORM CUSTOMS.
    perform filtering2.
    PERFORM importheader.
    PERFORM build_layout.
    PERFORM build_fieldcat1.
    PERFORM alv_display_header.
    endif.
    *&      Form  get_data
          text
    -->  p1        text
    <--  p2        text
    FORM get_data .
    SELECT belnr AS fidoc
           awkey
           budat
           gjahr
           blart
           FROM bkpf INTO CORRESPONDING FIELDS OF TABLE itab_temp
           WHERE bukrs = p_bukrs
           AND budat IN s_budat
           AND bstat = space.
    IF sy-subrc NE 0.
      MESSAGE 'No Values exist for the Selection.' TYPE 'S'.
      STOP.
    ENDIF.
    ENDFORM.
    *&      Form  taxvalues
          text
    -->  p1        text
    <--  p2        text
    FORM taxvalues .
    LOOP AT itab_temp.
    MOVE-CORRESPONDING itab_temp TO itab.
      SELECT SINGLE
              lifnr
              xblnr
              belnr
              gjahr
              stblg
              bldat
              vgart
              ivtyp
              waers
              kursf
              FROM rbkp INTO CORRESPONDING FIELDS OF itab
                 WHERE belnr = itab_temp-belnr
                   AND gjahr = itab_temp-gjahr.
      SELECT  menge
              bklas
              matnr
              lfbnr
              werks
              mwskz
              buzei
              wrbtr
              pstyp
              kschl
              ebeln
              ebelp
              lfgja
              shkzg FROM rseg INTO CORRESPONDING FIELDS OF itab
              WHERE belnr = itab_temp-belnr
              AND gjahr = itab_temp-gjahr.
    APPEND itab.
    ENDSELECT.
    CLEAR itab.
    CLEAR itab_temp.
    ENDLOOP.
    LOOP AT itab .
    *Purchase Order Document Type.
    select single bsart from ekko into corresponding fields of itab
    where ebeln = itab-ebeln.
    select single batxt from t161t into corresponding fields of itab
    where spras = 'EN' AND
          bsart = itab-bsart.
    *Material Details
    SELECT SINGLE  matkl mtart FROM mara
                    INTO CORRESPONDING FIELDS OF itab
                    WHERE mara~matnr = itab-matnr.
    SELECT SINGLE name1 adrnr land1 FROM lfa1 INTO
                    (itab-name1,itab-adrnr,itab-land1) WHERE lifnr = itab-lifnr.
    *Short Text
    SELECT SINGLE txz01 INTO itab-maktx FROM ekpo
                WHERE ebeln = itab-ebeln
                and ebelp = itab-ebelp.
    **Vendor Address
    SELECT SINGLE str_suppl1
           post_code1
           city1
           region
           FROM adrc INTO CORRESPONDING FIELDS OF itab
                 WHERE addrnumber = itab-adrnr.
    itab-qtr_yr = itab-bldat+0(4).
    month = itab-bldat+4(2).
    CASE month.
      WHEN '01'.
        itab-qtr_mth = 'JAN'.
      WHEN '02'.
        itab-qtr_mth = 'FEB'.
      WHEN '03'.
        itab-qtr_mth = 'MAR'.
      WHEN '04'.
        itab-qtr_mth = 'APR'.
      WHEN '05'.
        itab-qtr_mth = 'MAY'.
      WHEN '06'.
        itab-qtr_mth = 'JUN'.
      WHEN '07'.
        itab-qtr_mth = 'JUL'.
      WHEN '08'.
        itab-qtr_mth = 'AUG'.
      WHEN '09'.
        itab-qtr_mth = 'SEP'.
      WHEN '10'.
        itab-qtr_mth = 'OCT'.
      WHEN '11'.
        itab-qtr_mth = 'NOV'.
      WHEN '12'.
        itab-qtr_mth = 'DEC'.
    ENDCASE.
    *INR VALUE CALCULATION
    <b>itab-inrval = itab-wrbtr * itab-kursf.</b>MODIFY itab.
    ENDLOOP.
    ENDFORM.                    " taxvalues
    *&      Form  build_layout
          text
    -->  p1        text
    <--  p2        text
    FORM build_layout .
      CLEAR itab.
      gd_layout-zebra = 'X'.
      gd_layout-colwidth_optimize = 'X'.
    ENDFORM.                    " build_layout
    *&      Form  build_fieldcat
          text
    -->  p1        text
    <--  p2        text
    FORM build_fieldcat .
    IF itab[] IS INITIAL.
      MESSAGE 'No Values exist for the Selection.' TYPE 'S'.
      STOP.
    ENDIF.
      DEFINE m_fieldcat.
        itfieldcat-fieldname = &1.
        itfieldcat-col_pos = &2.
        itfieldcat-seltext_l = &3.
        itfieldcat-do_sum = &4.
        itfieldcat-outputlen = &5.
        append itfieldcat to itfieldcat.
        clear itfieldcat.
      END-OF-DEFINITION.
      m_fieldcat 'LFBNR' '' 'GR NO' '' 10.
      m_fieldcat 'BELNR' '' 'MIRO NO' '' 10.
      m_fieldcat 'BUZEI' '' 'MIRO LN ITM' '' 10.
      m_fieldcat 'LIFNR' '' 'VENDOR CODE' '' 10.
      m_fieldcat 'NAME1' '' 'VENDOR NAME'  '' 14.
      m_fieldcat 'STR_SUPPL1' '' 'VENDOR ADDRESS' '' '15'  .
      m_fieldcat 'POST_CODE1' '' 'PINCODE' '' 6.
      m_fieldcat 'XBLNR' '' 'VEN INV NO' '' 16.
      m_fieldcat 'BLDAT' '' 'VEN INV DATE' '' 8.
      m_fieldcat 'EBELN' '' 'PUR ORD NO' '' 10.
    m_fieldcat 'BATXT' '' 'PUR ORD DOC.TYPE' '' 20.  "Pur Doc. Type Description
      m_fieldcat 'EBELP' '' 'PUR LN ITM' '' 5.
      m_fieldcat 'WERKS' '' 'PLANT' '' 8.
      m_fieldcat 'MATNR' '' 'MAT NO' '' 18.
      m_fieldcat 'MAKTX' '' 'MAT DESC' '' 15.
      m_fieldcat 'MATKL' '' 'MAT CC' '' 7.
      m_fieldcat 'MENGE' '' 'QTY' '' 13.
      m_fieldcat 'WRBTR' '' 'VAL. OF GOODS' '' 11.
      m_fieldcat 'WAERS' '' 'CURR' '' 5.
      m_fieldcat 'INRVAL' '' 'INR VALUE' '' 13.
      m_fieldcat 'BED' '' 'BED' '' 10.
      m_fieldcat 'CVD' '' 'CVD' '' 10.
      m_fieldcat 'ECVD' '' 'CESS ON CVD' '' 10.
      m_fieldcat 'ECED' '' 'CESS ON DUTIES' '' 13.
    *Bill of Lading Removed and Bill of Entry Added.
    m_fieldcat 'FRBNR' '' 'BILL OF LADING' '' 13.
      m_fieldcat 'BELNR1' '' 'BILL OF ENTRY' '' 13.
      m_fieldcat 'REVERSE' '' 'Reversed' '' 2.
      m_fieldcat 'FIDOC' '' 'FI DOC NO' '' 10.
      m_fieldcat 'MWSKZ' '' 'TC' '' 2.
      m_fieldcat 'BKLAS' '' 'VL CLS' '' 4.
      m_fieldcat 'CITY1' '' 'VENDOR CITY' '' 10.
      m_fieldcat 'QTR_MTH' '' 'MONTH' '' 10.
      m_fieldcat 'QTR_YR' '' 'YEAR' '' 4.
      m_fieldcat 'REMARKS' '' 'REMARKS' '' 15.
    ENDFORM.                    " build_fieldcat
    *&      Form  list1
          text
         -->R_UCOMM    text
         -->RS_SELFIELDtext
    FORM list1 USING r_ucomm LIKE sy-ucomm
                      rs_selfield TYPE slis_selfield.
    Check function code
      CASE r_ucomm.
        WHEN '&IC1'.
      Check field clicked on within ALVgrid report
          IF rs_selfield-fieldname = 'LFBNR'.
       AND rs_selfield-fieldname = 'GJAHR'.
        Read data table, using index of row user clicked on
            READ TABLE itab
         INTO wa_ekko
            INDEX rs_selfield-tabindex.
        Set parameter ID for transaction screen field
            SET PARAMETER ID 'MBN' FIELD itab-lfbnr.
            SET PARAMETER ID 'GJR' FIELD itab-gjahr.
        Sxecute transaction ME23N, and skip initial data entry screen
            CALL TRANSACTION 'MB03' AND SKIP FIRST SCREEN.
          ENDIF.
          IF rs_selfield-fieldname = 'FIDOC'.
       AND rs_selfield-fieldname = 'GJAHR'.
        Read data table, using index of row user clicked on
            READ TABLE itab
         INTO wa_ekko
            INDEX rs_selfield-tabindex.
        Set parameter ID for transaction screen field
            SET PARAMETER ID 'BLN' FIELD itab-fidoc.
            SET PARAMETER ID 'BUK' FIELD p_bukrs.
            SET PARAMETER ID 'GJR' FIELD itab-gjahr.
        Sxecute transaction ME23N, and skip initial data entry screen
            CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
          ENDIF.
          IF rs_selfield-fieldname = 'BELNR'.
       AND rs_selfield-fieldname = 'GJAHR'.
        Read data table, using index of row user clicked on
            READ TABLE itab
         INTO wa_ekko
            INDEX rs_selfield-tabindex.
        Set parameter ID for transaction screen field
            SET PARAMETER ID 'RBN' FIELD itab-BELNR.
            SET PARAMETER ID 'GJR' FIELD itab-gjahr.
        Sxecute transaction ME23N, and skip initial data entry screen
            CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
          ENDIF.
          IF rs_selfield-fieldname = 'BELNR1'.
       AND rs_selfield-fieldname = 'GJAHR'.
        Read data table, using index of row user clicked on
            READ TABLE itab
         INTO wa_ekko
            INDEX rs_selfield-tabindex.
        Set parameter ID for transaction screen field
            SET PARAMETER ID 'RBN' FIELD itab-BELNR1.
            SET PARAMETER ID 'GJR' FIELD itab-gjahr.
        Sxecute transaction ME23N, and skip initial data entry screen
            CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
          ENDIF.
      ENDCASE.
    ENDFORM.
    *&      Form  alv_display
          text
    -->  p1        text
    <--  p2        text
    FORM alv_display .
    IF sy-batch = space.
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
        EXPORTING
          i_callback_program      = sy-repid
          is_layout               = gd_layout
          i_callback_user_command = 'LIST1'
          I_CALLBACK_TOP_OF_PAGE  = 'TOP_OF_PAGE'
          it_fieldcat             = itfieldcat[]
          i_save                  = 'A'
          is_print                = gd_prntparams
          it_sort                 = itsort[]
        TABLES
          t_outtab                = itab
          EXCEPTIONS
          program_error           = 1
          OTHERS                  = 2.
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    ELSEIF sy-batch = 'X'.
      CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
       EXPORTING
         i_callback_program             = sy-repid
         it_fieldcat                    = itfieldcat[]
          it_sort                       = itsort[]
        TABLES
          t_outtab                       = itab
       EXCEPTIONS
         program_error                  = 1
         OTHERS                         = 2
      IF sy-subrc <> 0.
       MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    ENDIF.
    ENDFORM.                    " alv_display
    *&      Form  FILTERING
          text
    -->  p1        text
    <--  p2        text
    FORM filtering .
    Material type should be of ROH or HALB or FERT
    *CLEAR s_mtart.
    *REFRESH s_mtart.
    *s_mtart-sign = 'I'.
    *s_mtart-option = 'EQ'.
    *s_mtart-low = 'ROH'.
    *APPEND s_mtart.
    *s_mtart-low = 'HALB'.
    *APPEND s_mtart.
    *s_mtart-low = 'FERT'.
    *APPEND s_mtart.
    *CLEAR  s_mtart.
    *Tax Code for WCT should not be included.
    s_mwskz-sign = 'I'.
    s_mwskz-option = 'EQ'.
    s_mwskz-low = 'W1'.
    APPEND s_mwskz.
    s_mwskz-low = 'W2'.
    APPEND s_mwskz.
    s_mwskz-low = 'W3'.
    APPEND s_mwskz.
    s_mwskz-low = 'W4'.
    APPEND s_mwskz.
    s_mwskz-low = 'W5'.
    APPEND s_mwskz.
    s_mwskz-low = 'W6'.
    APPEND s_mwskz.
    s_land1-sign = 'I'.
    s_land1-option = 'NE'.
    s_land1-low = 'IN'.
    APPEND s_land1.
    LOOP AT itab.
        IF itab-mwskz NOT IN s_mwskz
          AND itab-shkzg EQ 'S'
           AND itab-bldat IN s_bldat
           AND itab-region IN s_regio
           AND itab-lifnr IN s_lifnr
           AND itab-land1 IN s_land1
           AND itab-werks IN s_werks
           AND itab-bsart IN s_bsart.
         ELSE.
           DELETE itab.
           CONTINUE.
        ENDIF.
        IF itab-vgart EQ 'RS'
           AND itab-ivtyp EQ '5'
           AND itab-stblg NE ' '.
             itab-reverse = 'RS'.
        ELSEIF  itab-vgart EQ 'RD'
           AND itab-ivtyp EQ ' '
           AND itab-stblg NE ' '.
             itab-reverse = 'RD'.
        ENDIF.
       MODIFY itab.
    ENDLOOP.
    ENDFORM.                    " FILTERING
    *&      Form  CUSTOMS
          text
    -->  p1        text
    <--  p2        text
    form CUSTOMS .
    LOOP AT ITAB.
    IF ITAB-LFBNR IS NOT INITIAL.
    SELECT SINGLE BKTXT
                  FRBNR
                  budat
                  FROM MKPF INTO (BKTXT,FRBNR,budat)
                  WHERE MBLNR = ITAB-LFBNR
                  and mjahr = itab-lfgja.
      move frbnr to itab-frbnr.
      perform get_custom_invoice.
    else.
    select xblnr
           bewtp
           belnr
           gjahr
           from ekbe into table it_pohistory
           where ebeln = itab-ebeln
           and ebelp = itab-ebelp.
    sort it_pohistory by xblnr.
    read table it_pohistory with key xblnr = itab-xblnr bewtp = 'E' binary search.
    if sy-subrc = 0.
        SELECT SINGLE BKTXT
                  FRBNR
                  budat
                  FROM MKPF INTO (BKTXT,FRBNR,budat)
                  WHERE MBLNR = it_pohistory-belnr
                  and mjahr = it_pohistory-gjahr.
        move it_pohistory-belnr to itab-lfbnr.
        move frbnr to itab-frbnr.
        perform get_custom_invoice.
    endif.
    ENDIF.
    MODIFY ITAB.
    clear: bktxt,frbnr,budat.
    ENDLOOP.
    SORT itab BY lfbnr belnr. " Sorting by GR no.
    endform.                    " CUSTOMS
    *&      Form  get_custom_invoice
          text
    -->  p1        text
    <--  p2        text
    form get_custom_invoice .
    CALL FUNCTION 'GET_CURRENT_YEAR'
    EXPORTING
       BUKRS         = p_bukrs
       DATE          =  budat
    IMPORTING
       CURRY         = gjahr
    determine if wrong characters were entered
    IF ( BKTXT CN '1234567890' ).
    *string contains wrong characters!
          ITAB-BELNR1 = BKTXT.
          ITAB-remarks = 'Wrng BoE Ref'.
        EXIT.
      ENDIF.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input         = BKTXT
    IMPORTING
       OUTPUT        = BELNR
    ITAB-BELNR1 = BELNR.
    *For getting the Customs MIRO doc, it is assumed that the Fiscal Year of Customs Miro is same as Fiscal Year of Migo Posting Date
    clear it_custom.
    refresh it_custom.
    SELECT WRBTR
           KSCHL
           EBELN
           EBELP
           FROM RSEG INTO CORRESPONDING FIELDS OF IT_CUSTOM
           WHERE BELNR = BELNR
           and gjahr = gjahr.
    if sy-subrc = 0.
      APPEND IT_CUSTOM.
    endif.
    ENDSELECT.
    LOOP AT IT_CUSTOM.
        IF IT_CUSTOM-EBELN = ITAB-EBELN AND IT_CUSTOM-EBELP = ITAB-EBELP.
             CASE IT_CUSTOM-KSCHL.
                 WHEN 'JCDB'.
                     MOVE IT_CUSTOM-WRBTR TO ITAB-BED.
                 WHEN 'JCV1'.
                     MOVE IT_CUSTOM-WRBTR TO ITAB-CVD.
                 WHEN 'JECV'.
                     MOVE IT_CUSTOM-WRBTR TO ITAB-ECVD.
                 WHEN 'JEDB'.
                     MOVE IT_CUSTOM-WRBTR TO ITAB-ECED.
                 WHEN 'JCDS'.
                     MOVE IT_CUSTOM-WRBTR TO ITAB-SBED.
                 WHEN 'JCV2'.
                     MOVE IT_CUSTOM-WRBTR TO ITAB-NCVD.
              ENDCASE.
        ENDIF.
    ENDLOOP.
    endform.                    " get_custom_invoice
    *&      Form  filtering2
          text
    -->  p1        text
    <--  p2        text
    form filtering2 .
    loop at itab.
      if itab-lfbnr is initial.
          delete itab.
      endif.
    endloop.
    endform.                    " filtering2
    *& Form top_of_page
    text
    FORM top_of_page.
    CLEAR IT_DATA.
    REFRESH IT_DATA.
    *Company Details
    SELECT adrnr FROM t001 INTO adrnr1 WHERE bukrs = p_bukrs.
    ENDSELECT.
    SELECT name1 name2 FROM adrc INTO (comp_name1,comp_name2) WHERE addrnumber = adrnr1.
    ENDSELECT.
    concatenate comp_name1 comp_name2 into comp_name.
    wa_data-typ = 'H'.
    wa_data-info = comp_name.
    APPEND wa_data TO it_data.
    *Plant Details for Display
    loop at s_werks.
    SELECT single adrnr FROM t001w INTO adrnr1 WHERE werks = s_werks-low.
    SELECT single name1 name2 FROM adrc INTO (plant_name1,plant_name2) WHERE addrnumber = adrnr1.
    concatenate s_werks-low ' - ' plant_name1 ',' plant_name2 into plant_name.
    wa_data-info = plant_name.
    APPEND wa_data TO it_data.
    endloop.
    WRITE : s_budat-low TO date1,
            s_budat-high TO date2.
    if r1 = 'X'.
    CONCATENATE 'Import Purchase Register From :' date1 ' To : '   date2 INTO title.
    elseif r2 = 'X'.
    CONCATENATE 'Imp.Pur.Reg- Inv.Header From :' date1 ' To : '   date2 INTO title.
    endif.
    wa_data-info = title.
    APPEND wa_data TO it_data.
    CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
    it_list_commentary = it_data
    I_LOGO =
    I_END_OF_LIST_GRID =
    CLEAR WA_DATA.
    CLEAR IT_DATA.
    ENDFORM. "top_of_page
    *&      Form  importheader
          text
    -->  p1        text
    <--  p2        text
    form importheader .
    LOOP AT itab.
      MOVE-CORRESPONDING itab TO it_header.
      APPEND it_header.
    ENDLOOP.
    SORT it_header BY belnr.
    <b>LOOP AT it_header.
    AT END OF belnr.
      READ TABLE it_header INDEX sy-tabix.
      SUM.                </b>                                      " Summing the Amount for each Vendor Invoice No.
      MOVE-CORRESPONDING it_header TO it_temp14.
      APPEND it_temp14.
      CLEAR it_temp14.
    ENDAT.
    ENDLOOP.
    SORT it_temp14  BY belnr  ASCENDING.                                 " SORTING BY MIRO NUMBER
    endform.                    " importheader
    *&      Form  build_fieldcat1
          text
    -->  p1        text
    <--  p2        text
    form build_fieldcat1 .
    IF itab[] IS INITIAL.
      MESSAGE 'No Values exist for the Selection.' TYPE 'S'.
      STOP.
    ENDIF.
      DEFINE m_fieldcat.
        itfieldcat-fieldname = &1.
        itfieldcat-col_pos = &2.
        itfieldcat-seltext_l = &3.
        itfieldcat-do_sum = &4.
        itfieldcat-outputlen = &5.
        append itfieldcat to itfieldcat.
        clear itfieldcat.
      END-OF-DEFINITION.
      m_fieldcat 'BELNR' '' 'MIRO NO' '' 10.
      m_fieldcat 'LIFNR' '' 'VENDOR CODE' '' 10.
      m_fieldcat 'NAME1' '' 'VENDOR NAME'  '' 14.
      m_fieldcat 'STR_SUPPL1' '' 'VENDOR ADDRESS' '' '15'  .
      m_fieldcat 'POST_CODE1' '' 'PINCODE' '' 6.
      m_fieldcat 'XBLNR' '' 'VEN INV NO' '' 16.
      m_fieldcat 'BLDAT' '' 'VEN INV DATE' '' 8.
      m_fieldcat 'WERKS' '' 'PLANT' '' 8.
      m_fieldcat 'WRBTR' '' 'VAL. OF GOODS' '' 11.
      m_fieldcat 'WAERS' '' 'CURR' '' 5.
      m_fieldcat 'INRVAL' '' 'INRVALUE' '' 11.
      m_fieldcat 'BED' '' 'BED' '' 10.
      m_fieldcat 'CVD' '' 'CVD' '' 10.
      m_fieldcat 'ECVD' '' 'CESS ON CVD' '' 10.
      m_fieldcat 'ECED' '' 'CESS ON DUTIES' '' 13.
    *Bill of Lading Removed and Bill of Entry Added.
    m_fieldcat 'FRBNR' '' 'BILL OF LADING' '' 13.
      m_fieldcat 'BELNR1' '' 'BILL OF ENTRY' '' 13.
      m_fieldcat 'REVERSE' '' 'Reversed' '' 2.
      m_fieldcat 'FIDOC' '' 'FI DOC NO' '' 10.
      m_fieldcat 'MWSKZ' '' 'TC' '' 2.
      m_fieldcat 'BKLAS' '' 'VL CLS' '' 4.
      m_fieldcat 'CITY1' '' 'VENDOR CITY' '' 10.
      m_fieldcat 'QTR_MTH' '' 'MONTH' '' 10.
      m_fieldcat 'QTR_YR' '' 'YEAR' '' 4.
      m_fieldcat 'REMARKS' '' 'REMARKS' '' 15.
      ENDFORM.                    " build_fieldcat
    *&      Form  alv_display_header
          text
    -->  p1        text
    <--  p2        text
    form alv_display_header .
    IF sy-batch = space.
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
        EXPORTING
          i_callback_program      = sy-repid
          is_layout               = gd_layout
          i_callback_user_command = 'LIST2'
          I_CALLBACK_TOP_OF_PAGE  = 'TOP_OF_PAGE'
          it_fieldcat             = itfieldcat[]
          i_save                  = 'A'
          is_print                = gd_prntparams
          it_sort                 = itsort[]
        TABLES
          t_outtab                = it_temp14
          EXCEPTIONS
          program_error           = 1
          OTHERS                  = 2.
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    ELSEIF sy-batch = 'X'.
      CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
       EXPORTING
         i_callback_program             = sy-repid
         it_fieldcat                    = itfieldcat[]
          it_sort                       = itsort[]
        TABLES
          t_outtab                       = it_temp14
       EXCEPTIONS
         program_error                  = 1
         OTHERS                         = 2
      IF sy-subrc <> 0.
       MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    ENDIF.
    endform.                    " alv_display_header
    *&      Form  list1
          text
         -->R_UCOMM    text
         -->RS_SELFIELDtext
    FORM list2 USING r_ucomm LIKE sy-ucomm
                      rs_selfield TYPE slis_selfield.
    Check function code
      CASE r_ucomm.
        WHEN '&IC1'.
          IF rs_selfield-fieldname = 'FIDOC'.
       AND rs_selfield-fieldname = 'GJAHR'.
        Read data table, using index of row user clicked on
            READ TABLE it_temp14
         INTO wa_ekko
            INDEX rs_selfield-tabindex.
        Set parameter ID for transaction screen field
            SET PARAMETER ID 'BLN' FIELD it_temp14-fidoc.
            SET PARAMETER ID 'BUK' FIELD p_bukrs.
            SET PARAMETER ID 'GJR' FIELD it_temp14-gjahr.
        Sxecute transaction ME23N, and skip initial data entry screen
            CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
          ENDIF.
          IF rs_selfield-fieldname = 'BELNR'.
       AND rs_selfield-fieldname = 'GJAHR'.
        Read data table, using index of row user clicked on
            READ TABLE it_temp14
         INTO wa_ekko
            INDEX rs_selfield-tabindex.
        Set parameter ID for transaction screen field
            SET PARAMETER ID 'RBN' FIELD it_temp14-BELNR.
            SET PARAMETER ID 'GJR' FIELD it_temp14-gjahr.
        Sxecute transaction ME23N, and skip initial data entry screen
            CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
          ENDIF.
          IF rs_selfield-fieldname = 'BELNR1'.
       AND rs_selfield-fieldname = 'GJAHR'.
        Read data table, using index of row user clicked on
            READ TABLE it_temp14
         INTO wa_ekko
            INDEX rs_selfield-tabindex.
        Set parameter ID for transaction screen field
            SET PARAMETER ID 'RBN' FIELD it_temp14-BELNR1.
            SET PARAMETER ID 'GJR' FIELD it_temp14-gjahr.
        Sxecute transaction ME23N, and skip initial data entry screen
            CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
          ENDIF.
      ENDCASE.
    ENDFORM.
    Message was edited by:
            Kiran K

    Sandeep,
    It is working fine for all the dates,but going giving dump only for a particular date.
    KURSF is of length 9.Is it including decimal places.
    So,if i declare a varibale of type p decimals 5 and then move actual kursf value to this variable and then SUM,it will work fine.
    data:kursf1 type p decimals 5.
    move it_header-kursf to it_header-kursf1.
    or
    just declare the existing kursf as type p decimals 5
    But why it is not giving dump for other dates.
    Thanks,
    K.Kiran.

  • Hi! I need help, today I connected my mac Book Air to a tv for a presentation and as soon as I conected it the image on my screen went bigger. And I cant find the way to put it back as it was before. The Images are too big! heelp

    Hi! I need help, today I connected my mac Book Air to a tv for a presentation and as soon as I conected it the image on my screen went bigger. And I cant find the way to put it back as it was before. The Images are too big! heelp

    Morning DeeHutton,
    Thanks for using Apple Support Communities.
    For more information on this, take a look at this article:
    iPhone: Hardware troubleshooting
    http://support.apple.com/kb/ts2802
    Best of luck,
    Mario

  • My homescreen won't resize and I can't access anything because everything is too big to navigate.  Help.

    My homescreen won't resize and I can't access anything because everything is too big to navigate.  Help.

    Double-tap the screen with three fingers to disable Zoom.
    To turn off Zoom go to Settings > General > Accessibility > Zoom and turn this Off.

  • When doing a second "Organize Library" cuz the first was too big, will iTunes recognize what's already copied over?

    I'm stuck with a large folder of music on my PC in My Music folder. And I used "Organize Library" in iTunes but it didn't copy everything over because the amount of music was too big. I've deleted the original copies of music outside of iTunes to open up more space and was wondering if I do a second "Organize Library" if it will recognize that some of the music has already been copied over.

    I don't know what "restore the iPod" is
    It's usually the second thing to do (after Reset) when the iPod is not working correctly.
    Select the iPod in iTunes and click Restore.
    See this -> Restoring iPod to factory settings
    what about my main question? Can I go back to "sync all" but manually block certain albums?
    No because sync all is just that.
    Sycning specific playlists should work fine. And you can create more than one and sync which ones you want.

Maybe you are looking for

  • Oracle forms to j2ee/web application

    Hello all, I need help with converting "oracle forms" to j2ee/web application. There are only 2-3 forms. But I needed to know how to do it from scratch. I looked at some softwares available to do it. But its costly. Basically the company I am working

  • The plastic around the screen of iPhone 5 is sink showing some light from the inside

    As I say, my iPhone 5 is not too good anymore. It maybe because of the time, but it only sink in one spot. So, do this happen to the others? Please help.

  • Bluetooth in a Car and Lock Code

    Hello, in our companny we use Nokia E51 Phones, and we use Mail for Exchange to syncronisize. Our Policy request a lock code every 15 minutes. The Problem is now when the Phone is with Bluetooth concectet to a Car, you can only make calls if the lock

  • Macbook shutoff is a bad battery issue - free replacements offered

    MacBook and MacBook Pro Battery Update 1.2 Apple has recently discovered that some batteries used in its MacBook and MacBook Pro notebooks may have battery performance issues. Apple is offering a software update that is designed to address these issu

  • Delta Linked object: reset attribute to inherit from parent

    Hi all, I inherited an ESS system where the SAP content had changes made to it.  The SAP supplied Employee Self-Service Role had some of the worksets set to Invisible in Navigation Areas.  I would like to clear the indicator that says that attribute