Output not coming right, if we give LIFNR in selection screen

Hi,
i have LIFNR in selection screen, when i execute my report without inserting value in it...output is proper coming, but when i insert value in LIFNR, report doesn't display any data...
please check my code and guide me...
TABLES : bsik,bkpf,bseg,j_1imovend,lfa1,t001,t005u,bsak,ekko,bsis, ekkn, anla, anlc.
TYPE-POOLS : slis.
DATA : BEGIN OF itab OCCURS 0,
       belnr LIKE bsik-belnr, "Document number
       buzei LIKE bseg-buzei, "line item
       hkont LIKE bseg-hkont, "Gl account
       mwskz LIKE bseg-mwskz, "Tax Code
       dmbtr LIKE bseg-dmbtr, "Amount
       ebeln LIKE bseg-ebeln, "Purchasing Document
       ebelp LIKE bseg-ebelp, "line item nbr
       hwbas TYPE i,
       shkzg LIKE bseg-shkzg, "Debit/Credit code
       wrbtr LIKE bseg-wrbtr,
       gjahr LIKE bsik-gjahr, "Fiscal Year
       bldat LIKE bsik-bldat, "Document Date
       budat LIKE bsik-budat, "Posting Date
       lifnr LIKE bsik-lifnr, "Vendor number
       xblnr LIKE mkpf-xblnr, "Ven invoice nbr
       name1(25),                                           "name1
       ort01 LIKE lfa1-ort01, "City
       j_1ilstno LIKE j_1imovend-j_1ilstno, " Vendor tin nbr
       regio LIKE lfa1-regio, "Region Code
       bezei LIKE t005u-bezei, "Region desc
       bland LIKE t005u-bland,
       tax TYPE p DECIMALS 2,
       matkl LIKE ekpo-matkl,
END OF itab.
DATA : x TYPE bseg-lifnr,
       y TYPE j_1imovend-j_1ilstno,
       z TYPE bseg-mwskz,
       a TYPE bseg-hwbas,
       b TYPE t005u-bezei.
DATA:
v_bldat TYPE bldat,
v_budat TYPE budat,
v_gjahr TYPE gjahr,
v_lifnr TYPE lifnr,
v_name1 TYPE name1,
v_j_1ilstno TYPE j_1ilstno,
v_bezei TYPE bezei,
v_ebeln TYPE ebeln,
v_mwskz TYPE mwskz,
v_dmbtr TYPE dmbtr,
v_hwbas TYPE hwbas,
v_xblnr TYPE xblnr,
v_buzei TYPE buzei,
v_wrbtr TYPE wrbtr,
v_matkl TYPE matkl,
v_tax TYPE i,
v_regio TYPE regio,
v_hkont TYPE hkont.
DATA : BEGIN OF itab1 OCCURS 0.
        INCLUDE STRUCTURE itab.
DATA:END OF itab1.
DATA : BEGIN OF itab2 OCCURS 0.
        INCLUDE STRUCTURE itab.
DATA : END OF itab2.
DATA : itab3 LIKE STANDARD TABLE OF itab2 WITH HEADER LINE.
***********************************Purchase order history
DATA:   BEGIN OF bet OCCURS 50.
        INCLUDE STRUCTURE ekbe.
DATA:   END OF bet.
DATA:   BEGIN OF bzt OCCURS 50.
        INCLUDE STRUCTURE ekbz.
DATA:   END OF bzt.
DATA:   BEGIN OF betz OCCURS 50.
        INCLUDE STRUCTURE ekbez.
DATA:   END OF betz.
DATA:   BEGIN OF bets OCCURS 50.
        INCLUDE STRUCTURE ekbes.
DATA:   END OF bets.
DATA:   BEGIN OF xekbnk OCCURS 10.
        INCLUDE STRUCTURE ekbnk.
DATA:   END OF xekbnk.
DATA : w_container TYPE scrfname VALUE 'CL_GRID',
       w_cprog TYPE lvc_s_layo,
       g_repid LIKE sy-repid,
       w_save TYPE c,
       w_exit TYPE c,
       cl_grid TYPE REF TO cl_gui_alv_grid,
       cl_custom_container TYPE REF TO cl_gui_custom_container,
       it_fld_catalog TYPE slis_t_fieldcat_alv,
       wa_fld_catalog TYPE slis_t_fieldcat_alv WITH HEADER LINE ,
       layout TYPE slis_layout_alv,
       col_pos LIKE sy-cucol ,
       alvfc TYPE slis_t_fieldcat_alv.
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS   : hkont FOR bsis-hkont ."OBLIGATORY.
SELECT-OPTIONS   : lifnr FOR bsik-lifnr ."OBLIGATORY.
*PARAMETERS       : lifnr for bsik-lifnr.
SELECT-OPTIONS   : belnr FOR bsik-belnr .
SELECT-OPTIONS   : gjahr FOR bsik-gjahr .
SELECT-OPTIONS   : bldat FOR bsik-bldat.
SELECT-OPTIONS   : budat FOR bsik-budat.
SELECTION-SCREEN : END OF BLOCK b1.
PERFORM fill_catalog1 USING:
'HKONT'    'ITAB2'    'G/L',
'BELNR'    'ITAB2'    'Document Number',
'BLDAT'    'ITAB2'    'Doc. date' ,
'BUDAT'    'ITAB2'    'Posting Date',
'LIFNR'    'ITAB2'    'Vendor',
'NAME1'    'ITAB2'    'Name',
'J_1ILSTNO' 'ITAB2'   'TIN No.',
'BEZEI'     'ITAB2'   'Region',
'MATKL'    'ITAB2'    'Material Group',
'EBELN'    'ITAB2'    'Purchasing Document',
'MWSKZ'    'ITAB2'    'Tax Code',
'HWBAS'    'ITAB2'    'Base Amount',
'DMBTR'    'ITAB2'    'Tax Amount',
'TAX'      'ITAB2'    'Tax Rate',
'XBLNR'    'ITAB2'    'Vendor Inv. No.'.
SELECT DISTINCT hkont belnr gjahr bldat budat INTO CORRESPONDING FIELDS OF TABLE itab
                  FROM bsis
                  WHERE bukrs = '1000'
                  AND hkont IN hkont
                  AND belnr IN belnr
                  AND gjahr IN gjahr
                  AND bldat IN bldat
                  AND budat IN budat
                  AND blart <> 'JV'.
SORT itab BY belnr.
LOOP AT itab.
SELECT * FROM bseg WHERE belnr = itab-belnr AND gjahr = itab-gjahr AND bukrs = '1000' AND ( ebeln <> ' ' OR hkont IN hkont ).
    IF sy-subrc = 0.
      itab-buzei = bseg-buzei.
      itab-mwskz = bseg-mwskz.
      IF bseg-ebeln <> ' '.
        itab-ebeln = bseg-ebeln.
        itab-ebelp = bseg-ebelp.
        MODIFY itab.
      ENDIF.
      IF bseg-hkont = itab-hkont.
        itab-shkzg = bseg-shkzg.
        itab-hwbas = bseg-hwbas.
        itab-dmbtr = bseg-dmbtr.
        IF itab-hwbas NE '0'.
          itab-tax = itab-dmbtr / itab-hwbas * 100.
          MODIFY itab INDEX sy-tabix TRANSPORTING tax.
        ENDIF.
        IF itab-shkzg = 'H'.
          itab-dmbtr = itab-dmbtr * ( -1 ).
        ENDIF.
        MOVE-CORRESPONDING itab TO itab2.
        APPEND itab2.
      ENDIF.
    ENDIF.
ENDSELECT.
ENDLOOP.
LOOP AT itab2.
SELECT SINGLE * FROM ekko WHERE ebeln = itab2-ebeln .
IF sy-subrc = 0.
    itab2-lifnr = ekko-lifnr.
ENDIF.
CALL FUNCTION 'ME_READ_HISTORY'
    EXPORTING
      ebeln = itab2-ebeln
      ebelp = itab2-ebelp
      webre = 'X'
    TABLES
      xekbe = bet
      xekbz = bzt
      xekbes = bets
      xekbez = betz
      xekbnk = xekbnk.
itab2-xblnr = bet-xblnr.
SELECT SINGLE * FROM lfa1 WHERE lifnr = itab2-lifnr.
itab2-name1 = lfa1-name1.
itab2-ort01 = lfa1-ort01.
itab2-regio = lfa1-regio.
SELECT SINGLE * FROM t005u WHERE bland = itab2-regio
                              AND spras = 'EN'
                              AND land1 = 'IN'.
itab2-bezei = t005u-bezei.
SELECT SINGLE * FROM j_1imovend WHERE lifnr = itab2-lifnr.
IF sy-subrc = 0 .
    itab2-j_1ilstno = j_1imovend-j_1ilstno. " Vendor tin nbr
ENDIF.
MODIFY itab2.
ENDLOOP.
SORT itab2 BY belnr.
LOOP AT itab2.
v_dmbtr = v_dmbtr + itab2-dmbtr.
v_hwbas = v_hwbas + itab2-hwbas.
v_bldat = itab2-bldat.
v_budat = itab2-budat.
v_gjahr = itab2-gjahr.
v_lifnr = itab2-lifnr.
v_name1 = itab2-name1.
v_j_1ilstno = itab2-j_1ilstno.
v_bezei = itab2-bezei.
v_ebeln = itab2-ebeln.
v_mwskz = itab2-mwskz.
v_xblnr = itab2-xblnr.
v_buzei = itab2-buzei.
v_wrbtr = itab2-wrbtr.
v_matkl = itab2-matkl.
v_tax   = itab2-tax.
v_regio = itab2-regio.
v_hkont = itab2-hkont.
AT END OF belnr.
    itab2-bldat = v_bldat.
    itab2-budat = v_budat.
    itab2-gjahr = v_gjahr.
    itab2-lifnr = v_lifnr.
    itab2-name1 = v_name1.
    itab2-j_1ilstno = v_j_1ilstno.
    itab2-bezei = v_bezei.
    itab2-ebeln = v_ebeln.
    itab2-mwskz = v_mwskz.
    itab2-dmbtr = v_dmbtr.
    itab2-hwbas = v_hwbas.
    itab2-xblnr = v_xblnr.
    itab2-buzei = v_buzei.
    itab2-wrbtr = v_wrbtr.
    itab2-matkl = v_matkl.
    itab2-tax   = v_tax.
    itab2-regio = v_regio.
    itab2-hkont = v_hkont.
    APPEND itab2 TO itab3.
    CLEAR: itab2, v_dmbtr, v_hwbas, v_bldat, v_budat, v_gjahr, v_lifnr, v_name1, v_j_1ilstno, v_ebeln,
                  v_mwskz, v_xblnr, v_buzei, v_wrbtr, v_matkl, v_tax, v_regio, v_hkont.
ENDAT.
ENDLOOP.
LOOP AT itab3.
IF itab3-lifnr = ' '.
    SELECT SINGLE lifnr FROM bseg INTO x WHERE belnr = itab3-belnr AND gjahr = itab3-gjahr AND bukrs = '1000' AND koart = 'K'." AND lifnr IN lifnr.
    IF sy-subrc = 0.
      itab3-lifnr = x .
      SELECT SINGLE * FROM lfa1 WHERE lifnr = itab3-lifnr.
      itab3-name1 = lfa1-name1.
      itab3-ort01 = lfa1-ort01.
      itab3-regio = lfa1-regio.
      MODIFY itab3.
    ENDIF.
ENDIF.
SELECT SINGLE bezei FROM t005u INTO itab3-bezei WHERE bland = itab3-regio AND spras EQ 'EN' AND land1 EQ 'IN'.
MODIFY itab3 INDEX sy-tabix TRANSPORTING bezei.
SELECT j_1ilstno FROM j_1imovend INTO y WHERE lifnr = itab3-lifnr .
    itab3-j_1ilstno = y.
    MODIFY itab3 INDEX sy-tabix TRANSPORTING j_1ilstno .
ENDSELECT.
SELECT mwskz FROM bseg INTO z WHERE belnr = itab3-belnr AND gjahr = itab3-gjahr AND bukrs = '1000' .
    MODIFY itab3 INDEX sy-tabix TRANSPORTING mwskz .
ENDSELECT.
IF sy-subrc = 0.
    itab3-mwskz = z .
    MODIFY itab3.
ENDIF.
IF itab3-hwbas = ' '.
    SELECT wrbtr FROM bseg INTO itab3-hwbas WHERE belnr = itab3-belnr AND gjahr = itab3-gjahr AND bukrs = '1000' AND buzei = '2'.
      MODIFY itab3 INDEX sy-tabix TRANSPORTING wrbtr.
    ENDSELECT.
ENDIF.
SELECT matkl FROM ekpo INTO itab3-matkl WHERE ebeln = itab3-ebeln .
    MODIFY itab3 INDEX sy-tabix TRANSPORTING matkl .
ENDSELECT.
SHIFT itab3-lifnr LEFT DELETING LEADING '0'.                  " For Removing 0's
SHIFT itab3-hkont LEFT DELETING LEADING '0'.                  " For Removing 0's
MODIFY itab3.
IF itab3-hwbas NE '0'.
    itab3-tax = itab3-dmbtr / itab3-hwbas * 100.
    MODIFY itab3 INDEX sy-tabix TRANSPORTING tax.
ENDIF.
ENDLOOP.
layout-zebra = 'X' .
layout-colwidth_optimize(1) = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
    i_callback_program = 'ZFI_LP07'
    is_layout          = layout
    it_fieldcat        = it_fld_catalog
    i_default          = 'X'
    i_save             = 'A'
TABLES
    t_outtab           = itab3
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.
*&      Form FILL_CATALOG1
      text
     -->P_FIELDNAME text
     -->P_REF_TABLE text
     -->P_SCRTEXT    text
FORM fill_catalog1 USING   p_fieldname TYPE any
                            p_ref_table TYPE any
                            p_scrtext   TYPE any.
CLEAR : wa_fld_catalog.
wa_fld_catalog-fieldname = p_fieldname.
wa_fld_catalog-tabname    = p_ref_table.
wa_fld_catalog-seltext_s = p_scrtext.
wa_fld_catalog-seltext_m = p_scrtext.
wa_fld_catalog-seltext_l = p_scrtext.
wa_fld_catalog-datatype = 'CURR'.
wa_fld_catalog-outputlen = 20.
APPEND wa_fld_catalog TO it_fld_catalog.
ENDFORM.                    " fill_catalog1.
Thanks

Hi Anil,
check for the availability of records for values entered in selection screen lifnr..
select single lifnr
into wa_lifnr
from lfa1
where lifnr in s_lifnr.
check sy-subrc.
Regards,
Mdi.Deeba

Similar Messages

Output not coming correct

Hi,
I had developed this code and after all modifications and alterations in it ,i am pasting here bcoz it is still giving the problem that the values of ITAB does not contain the correct data as it keep on repeating the same value for the data in ITFINAL.
Plzz go through this code and help me out as i tried whole day and still it is not coming right.
My job is online bcoz if it start displaying correct data then i have to make addition in other code also. plzz helpme out as help will be definately rewarded.
here's the code:-
TABLES: BKPF,MKPF,BSIK.
DATA: BEGIN OF ITBKPF OCCURS 0,
      BUKRS LIKE BKPF-BUKRS,
      BELNR LIKE BKPF-BELNR,
      GJAHR LIKE BKPF-GJAHR,
      AWTYP LIKE BKPF-AWTYP,
      AWKEY LIKE BKPF-AWKEY,
      BUDAT LIKE BKPF-BUDAT,
      END OF ITBKPF.
DATA: BEGIN OF ITMKPF OCCURS 0,
      MBLNR LIKE MKPF-MBLNR,
      MJAHR LIKE MKPF-MJAHR,
      END OF ITMKPF.
DATA: BEGIN OF ITAB OCCURS 0,
      BELNR LIKE BSIK-BELNR,
      WRBTR LIKE BSIK-WRBTR,
      LIFNR LIKE BSIK-LIFNR,
      BUKRS LIKE BSIK-BUKRS,
      GJAHR LIKE BSIK-GJAHR,
      BUDAT LIKE BKPF-BUDAT,
      END OF ITAB.
DATA: BEGIN OF ITFINAL OCCURS 0,
      BUKRS LIKE BKPF-BUKRS,
      BELNR LIKE BKPF-BELNR,
      GJAHR LIKE BKPF-GJAHR,
      AWTYP LIKE BKPF-AWTYP,
      AWKEY LIKE BKPF-AWKEY,
      MBLNR LIKE MKPF-MBLNR,
      MJAHR LIKE MKPF-MJAHR,
      WRBTR LIKE BSIK-WRBTR,
      LIFNR LIKE BSIK-LIFNR,
      END OF ITFINAL.
*PARAMETERS: P_BUKRS LIKE BKPF-BUKRS,
           P_GJAHR LIKE BKPF-GJAHR,
           S_LIFNR LIKE BSIK-LIFNR.
SELECT-OPTIONS: P_BUKRS FOR BKPF-BUKRS,
                P_GJAHR FOR BKPF-GJAHR,
                S_LIFNR FOR BSIK-LIFNR.
      SELECT ABUKRS ABELNR AGJAHR AAWTYP AAWKEY ABUDAT INTO TABLE ITBKPF FROM BKPF AS A
      WHERE AAWTYP = 'MKPF' AND ABUKRS IN P_BUKRS AND A~GJAHR IN P_GJAHR.
      IF NOT ITBKPF[] IS INITIAL.
      SELECT AMBLNR AMJAHR INTO TABLE ITMKPF FROM MKPF AS A FOR ALL ENTRIES IN ITBKPF WHERE A~MBLNR = ITBKPF-AWKEY(10).
      SELECT ABELNR AWRBTR ALIFNR ABUKRS AGJAHR BBUDAT FROM BSIK AS A
      INNER JOIN BKPF AS B ON BBELNR = ABELNR
      INTO TABLE ITAB
      WHERE
      A~LIFNR IN S_LIFNR.
      ENDIF.
SORT ITAB BY BELNR.
LOOP AT ITBKPF.
CLEAR ITMKPF.
READ TABLE ITMKPF
WITH KEY MBLNR = ITBKPF-AWKEY+(10)
          MJAHR = ITBKPF-AWKEY+10(4).
CHECK sy-subrc EQ 0.
ITFINAL-BELNR = ITBKPF-BELNR.
ITFINAL-GJAHR = ITBKPF-GJAHR.
ITFINAL-AWKEY = ITBKPF-AWKEY.
READ TABLE ITAB
WITH KEY BUKRS = ITBKPF-BUKRS.
CHECK sy-subrc EQ 0.
ITFINAL-WRBTR = ITAB-WRBTR.
ITFINAL-LIFNR = ITAB-LIFNR.
APPEND ITFINAL.
CLEAR ITFINAL.
ENDLOOP.
LOOP AT ITFINAL.
WRITE: / ITFINAL-BELNR , ITFINAL-GJAHR, ITFINAL-AWKEY+(10),ITFINAL-WRBTR ,ITFINAL-LIFNR .
ENDLOOP.

Hi,
I had checked the all Interenal Tables and each and every table is having the desiered data except ITFINAL.,it is storing the value of ITAB
i.e. displaying the same record for the data coming from the ITBKPF ,now my problelm is how to display the correct data from ITAB to the ITFINAL which is not able to store this coreect data,plzz help me out in solving this problem .
The code in am using right now is:-
TABLES: BKPF,MKPF,BSIK.
DATA: BEGIN OF ITBKPF OCCURS 0,
      BUKRS LIKE BKPF-BUKRS,
      BELNR LIKE BKPF-BELNR,
      GJAHR LIKE BKPF-GJAHR,
      AWTYP LIKE BKPF-AWTYP,
      AWKEY LIKE BKPF-AWKEY,
      BUDAT LIKE BKPF-BUDAT,
      END OF ITBKPF.
DATA: BEGIN OF ITMKPF OCCURS 0,
      MBLNR LIKE MKPF-MBLNR,
      MJAHR LIKE MKPF-MJAHR,
      END OF ITMKPF.
DATA: BEGIN OF ITAB OCCURS 0,
      BELNR LIKE BSIK-BELNR,
      WRBTR LIKE BSIK-WRBTR,
      LIFNR LIKE BSIK-LIFNR,
      BUKRS LIKE BSIK-BUKRS,
      GJAHR LIKE BSIK-GJAHR,
      BUDAT LIKE BKPF-BUDAT,
      END OF ITAB.
DATA: BEGIN OF ITFINAL OCCURS 0,
      BUKRS LIKE BKPF-BUKRS,
      BELNR LIKE BKPF-BELNR,
      GJAHR LIKE BKPF-GJAHR,
      AWTYP LIKE BKPF-AWTYP,
      AWKEY LIKE BKPF-AWKEY,
      MBLNR LIKE MKPF-MBLNR,
      MJAHR LIKE MKPF-MJAHR,
      WRBTR LIKE BSIK-WRBTR,
      LIFNR LIKE BSIK-LIFNR,
      END OF ITFINAL.
*PARAMETERS: P_BUKRS LIKE BKPF-BUKRS,
           P_GJAHR LIKE BKPF-GJAHR,
           S_LIFNR LIKE BSIK-LIFNR.
SELECT-OPTIONS: P_BUKRS FOR BKPF-BUKRS,
                P_GJAHR FOR BKPF-GJAHR,
                S_LIFNR FOR BSIK-LIFNR.
      SELECT ABUKRS ABELNR AGJAHR AAWTYP AAWKEY ABUDAT INTO TABLE ITBKPF FROM BKPF AS A
      WHERE AAWTYP = 'MKPF' AND ABUKRS IN P_BUKRS AND A~GJAHR IN P_GJAHR.
      IF NOT ITBKPF[] IS INITIAL.
      SELECT AMBLNR AMJAHR INTO TABLE ITMKPF FROM MKPF AS A FOR ALL ENTRIES IN ITBKPF WHERE A~MBLNR = ITBKPF-AWKEY(10).
      SELECT ABELNR AWRBTR ALIFNR ABUKRS AGJAHR BBUDAT FROM BSIK AS A      "
      INNER JOIN BKPF AS B ON BBELNR = ABELNR
      INTO TABLE ITAB
      WHERE
      ALIFNR IN S_LIFNR.    "ABUKRS = B~BUKRS.
      ENDIF.
      SORT ITAB BY BELNR.
     SELECT ABELNR AWRBTR ALIFNR ABUKRS A~GJAHR FROM BSIK AS A INTO TABLE ITAB
     FOR ALL ENTRIES IN ITBKPF
     WHERE
     ABUKRS = ITBKPF-BUKRS AND ALIFNR = S_LIFNR.
     ENDIF.
LOOP AT ITBKPF.
CLEAR ITMKPF.
READ TABLE ITMKPF
WITH KEY MBLNR = ITBKPF-AWKEY+(10)
          MJAHR = ITBKPF-AWKEY+10(4).
CHECK sy-subrc EQ 0.
ITFINAL-BELNR = ITBKPF-BELNR.
ITFINAL-GJAHR = ITBKPF-GJAHR.
ITFINAL-AWKEY = ITBKPF-AWKEY.
SORT ITAB[] BY BELNR GJAHR BUKRS.
READ TABLE ITAB
WITH KEY
BELNR = ITBKPF-BELNR
GJAHR = ITBKPF-GJAHR
BUKRS = ITBKPF-BUKRS
BINARY SEARCH.
CHECK sy-subrc EQ 0.
ITFINAL-WRBTR = ITAB-WRBTR.
ITFINAL-LIFNR = ITAB-LIFNR.
APPEND ITFINAL.
CLEAR ITFINAL.
ENDLOOP.
LOOP AT ITFINAL.
WRITE: / ITFINAL-BELNR , ITFINAL-GJAHR, ITFINAL-AWKEY+(10),ITFINAL-WRBTR ,ITFINAL-LIFNR .
ENDLOOP.
Edited by: abaper2008 on May 29, 2008 6:35 AM
Edited by: abaper2008 on May 29, 2008 9:21 AM

Invoice output not coming properly

Dear Experts,
I have maintained condition record for the billing type and assigned it to the printer. Some of the invoices output are coming properly but for 4 to 5 invoices, print out prview is just skipping and when I click for printing, the system throws an error " output could not be issued" and the error is in green colour. I am not able to understand the reason behind it.
Can anybody help me out to solve the issue please.
Thanks & Regards,
Reji

Dear Reji,
T. Code: VF02/ VF03
Key-in your Invoice No. and Don't hit "enter".
On to the same Page, from Menu-bar, Click: Billing Document --> Issue Output to
A Window: Output Output, will pop-up.
Here, select the Output-line and Click Icon: Print Preview
Now, you would able to see Invoice Preview, providing Output Condition record is maintained.
If still, Invoice Preview doesn't appear, on to the same window: Output Output, Click Tab: Print Options.
Another Window will pop-up. Here, maintain Output Device (say, LP01) and tick Box: Print Immediately, and OK.
Again Select Output line and Click: Print Preview.
Best Regards,
Amit

File read write program output not coming correct

this code is compiling without issues but the output is not what i am expecting .. the contents of delta.txt are as follows
*4014254420*
*2897449776*
*4207405601*
and the output thats coming is
+4014254420+
+40142544204207405601+
+4207405601+
its not reading the 2nd line somehow
import java.awt.FlowLayout;
import java.awt.event.ActionEvent;
import java.awt.event.ActionListener;
import java.io.File;
import java.io.*;
import java.io.FileWriter;
import javax.swing.*;
import java.util.Scanner;
public class testloop
          static int i;
           static char c;
           static int j = 1;
                static String filename;
public static void main(String[] args) throws IOException
try {
     FileReader fmi = new FileReader("delta.txt");
     FileWriter fmo = new FileWriter("Updated.txt");
     BufferedReader br = new BufferedReader(fmi);
               String temp=null;
                    do{
                    temp = br.readLine();
                    if(temp.startsWith("*"))
                         String tempc = temp.substring(1);
                         System.out.print(tempc+"\n");
                        long tp = Long.valueOf(tempc);
                         System.out.print(tp);
               else
               fmo.write(temp);
                    }while((temp=br.readLine()) != null);
               fmi.close();
               fmo.close();
               }catch (FileNotFoundException e){ System.out.print("not found");     }
               catch (IOException e){System.out.print("io"+e);
               e.printStackTrace();
    also if i use the following delta.txt
**4014254420*
**2897449776*
**4207405601*
mmm+
i get the output as
+4014254420+
+40142544204207405601+
+4207405601Exception in thread "main" java.lang.NullPointerException+
at testloop.main(testloop.java:33)*
its not writing the text to the file updated.txt
Edited by: adhiraj on Nov 27, 2007 6:58 AM

You are getting the next line twice.
do{
                    temp = br.readLine();
                    if(temp.startsWith("*"))
                         String tempc = temp.substring(1);
                         System.out.print(tempc+"\n");
                        long tp = Long.valueOf(tempc);
                         System.out.print(tp);
               else
               fmo.write(temp);
                    }while((temp=br.readLine()) != null);You need to change your code around so that you only call
temp=br.readLine();once per iteration of the loop.

Barcode in PDF output not coming in Oracle R12.1.3

Hi,
We have a rtf template for Invoice report. In this report we have to display barcode in PDF output. In our development instance barcode is coming properly. But in our test instance barcode is not coming(same template is available in Development and Test instance).
We are using wocrb.ttf and w128l.ttf font files and we have these files available at $OA_JRE_TOP/lib/fonts path.
Also, we have config file available on $OA_JRE_TOP/lib directory. and this config file has correct path of both the font files.
Still the barcode is not coming in Test instance.
Request you all to please help me with this issue.
Thanks,
SA

PDF requires the font be registered correctly, since it is not appearing you have missed something in your configuration.
The most common error is the font family name does not exactly match the font name in Word. (Open the font on your PC and the name is present there also.)
You can use the xdodebug.cfg troubleshooting method, then see what error appears in the xdo.log when the font is accessed.
See the following note for xdo.log:
Note 364547.1 : Troubleshooting Oracle XML Publisher For The Oracle E-Business Suite
Thank you
Eugen

WBS element output not coming properly .

Hi ,
I have a customized report with , project(proj-pspid) ,wbs element( prps-posid) as selection parameters . The output is coming preperly when project is given as output but is not coming properly when wbs element is given as input. I am using PSJ logical database . Not sure why in debugging while giving only wbs element it is going to 'Conversion_exit_abpsn_input' instead of teh conversion exit 'Conversion_exit_abpsp_input' . Any idea on how it can be resolved?

Hi,
Please refer the WBS element to PSPNR (PRPS-PSPNR) instead of prps-posid ,
prps-posid refers to exit 'Conversion_exit_abpsn_input' and not 'Conversion_exit_abpsp_input'.
Regards,
Srini.

Data is not coming right for few Document nos.

Hi All,
I have a problem in my report that in 10-12 records, data not picking the values against Document Number...means from where i pick the lifnr, there a few records not showing related information...
I tell u in detail..
I pick Document Number from BSIK table, Purchasing Doc. No, with ref. to Document Number...Vendor Code with Purchasing Ref. and Vendor Name with Ref. to Vendor Code...
But in some document we have not maintain Purchasing document no. against Document Number...
So we cann't display Vendor Code and name...
This is the problem...
Now i have a link between Document Number and Vendor Code without Purchasing Document No...in BSEG table...
But what will the condition with my existing query on BSEG...please tell me....
My Code is---
REPORT zak_form_c4 NO STANDARD PAGE HEADING LINE-SIZE 125 .
TABLES : bsik,bkpf,bseg,j_1imovend,lfa1,t001,t005u,bsak,ekko,bsis, ekkn, anla, anlc.
TYPE-POOLS : slis.
DATA : BEGIN OF itab OCCURS 0,
       belnr LIKE bsik-belnr, "Document number
       buzei LIKE bseg-buzei, "line item
       hkont LIKE bseg-hkont, "Gl account
       mwskz LIKE bseg-mwskz, "Tax Code
       dmbtr LIKE bseg-dmbtr, "Amount
       ebeln LIKE bseg-ebeln, "Purchasing Document
       ebelp LIKE bseg-ebelp, "line item nbr
       hwbas LIKE bseg-hwbas, "Base amount
       shkzg LIKE bseg-shkzg, "Debit/Credit code
       gjahr LIKE bsik-gjahr, "Fiscal Year
       bldat LIKE bsik-bldat, "Document Date
       budat LIKE bsik-budat, "Posting Date
       lifnr LIKE bsik-lifnr, "Vendor number
       xblnr LIKE mkpf-xblnr, "Ven invoice nbr
       name1(25),                                           "name1
       ort01 LIKE lfa1-ort01, "City
       j_1ilstno LIKE j_1imovend-j_1ilstno, " Vendor tin nbr
       regio LIKE lfa1-regio, "Region Code
       bezei LIKE t005u-bezei, "Region desc
       dmbtr1 LIKE bseg-dmbtr, "Amount
       hwbas1 LIKE bseg-hwbas, "Base amount
END OF itab.
DATA:
v_bldat TYPE bldat,
v_budat TYPE budat,
v_lifnr TYPE lifnr,
v_name1 TYPE name1,
v_ebeln TYPE ebeln,
v_mwskz TYPE mwskz,
v_dmbtr TYPE dmbtr,
v_hwbas TYPE hwbas,
v_xblnr TYPE xblnr.
DATA : BEGIN OF itab1 OCCURS 0.
        INCLUDE STRUCTURE itab.
DATA:END OF itab1.
DATA : BEGIN OF itab2 OCCURS 0.
        INCLUDE STRUCTURE itab.
DATA : END OF itab2.
DATA : itab3 LIKE STANDARD TABLE OF itab2 WITH HEADER LINE.
***********************************Purchase order history
DATA:   BEGIN OF bet OCCURS 50.
        INCLUDE STRUCTURE ekbe.
DATA:   END OF bet.
DATA:   BEGIN OF bzt OCCURS 50.
        INCLUDE STRUCTURE ekbz.
DATA:   END OF bzt.
DATA:   BEGIN OF betz OCCURS 50.
        INCLUDE STRUCTURE ekbez.
DATA:   END OF betz.
DATA:   BEGIN OF bets OCCURS 50.
        INCLUDE STRUCTURE ekbes.
DATA:   END OF bets.
DATA:   BEGIN OF xekbnk OCCURS 10.
        INCLUDE STRUCTURE ekbnk.
DATA:   END OF xekbnk.
DATA : w_container TYPE scrfname VALUE 'CL_GRID',
       w_cprog TYPE lvc_s_layo,
       g_repid LIKE sy-repid,
       w_save TYPE c,
       w_exit TYPE c,
       cl_grid TYPE REF TO cl_gui_alv_grid,
       cl_custom_container TYPE REF TO cl_gui_custom_container,
       it_fld_catalog TYPE slis_t_fieldcat_alv,
       wa_fld_catalog TYPE slis_t_fieldcat_alv WITH HEADER LINE ,
       layout TYPE slis_layout_alv,
       col_pos LIKE sy-cucol ,
       alvfc TYPE slis_t_fieldcat_alv.
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS       : hkont LIKE bseg-hkont OBLIGATORY. "GL Code
*SELECT-OPTIONS   : hkont FOR bseg-hkont .
SELECT-OPTIONS   : belnr FOR bsik-belnr .
SELECT-OPTIONS   : gjahr FOR bsik-gjahr .
SELECT-OPTIONS   : bldat FOR bsik-bldat.
SELECT-OPTIONS   : budat FOR bsik-budat.
SELECTION-SCREEN : END OF BLOCK b1.
PERFORM fill_catalog1 USING:
'HKONT'    'ITAB2'    'G/L Code' ,
'BELNR'    'ITAB2'    'Document Number',
'GJAHR'    'ITAB2'    'Year',
'BLDAT'    'ITAB2'    'Doc. date' ,
'BUDAT'    'ITAB2'    'Posting Date',
'LIFNR'    'ITAB2'    'Vendor',
'NAME1'    'ITAB2'    'Name',
'EBELN'    'ITAB2'    'Purchasing Document',
'MWSKZ'    'ITAB2'    'Tax Code',
'HWBAS'    'ITAB2'    'Base Amount',
'DMBTR'    'ITAB2'    'Tax Amount',
'XBLNR'    'ITAB2'    'Vendor Inv. No.'.
SELECT DISTINCT hkont belnr gjahr bldat budat INTO CORRESPONDING FIELDS OF TABLE itab
                  FROM bsis
                  WHERE bukrs = '1000'
                  AND hkont = hkont
                  AND belnr IN belnr
                  AND gjahr IN gjahr
                  AND bldat IN bldat
                  AND budat IN budat.
SORT itab BY belnr.
LOOP AT itab.
SELECT * FROM bseg WHERE belnr = itab-belnr AND gjahr = itab-gjahr
                                               AND bukrs = '1000'
                                               AND ( ebeln <> ' ' OR hkont = hkont ).
    IF sy-subrc = 0.
      itab-buzei = bseg-buzei.
      itab-mwskz = bseg-mwskz.
      IF bseg-ebeln <> ' '.
        itab-ebeln = bseg-ebeln.
        itab-ebelp = bseg-ebelp.
        MODIFY itab.
      ENDIF.
      IF bseg-hkont = hkont.
        itab-shkzg = bseg-shkzg.
        itab-hwbas = bseg-hwbas.
        itab-dmbtr = bseg-dmbtr.
        IF itab-shkzg = 'H'.
          itab-dmbtr = itab-dmbtr * ( -1 ).
        ENDIF.
        MOVE-CORRESPONDING itab TO itab2.
        APPEND itab2.
      ENDIF.
    ENDIF.
ENDSELECT.
ENDLOOP.
LOOP AT itab2.
SELECT SINGLE * FROM ekko WHERE ebeln = itab2-ebeln.
IF sy-subrc = 0.
    itab2-lifnr = ekko-lifnr.
ENDIF.
CALL FUNCTION 'ME_READ_HISTORY'
    EXPORTING
      ebeln = itab2-ebeln
      ebelp = itab2-ebelp
      webre = 'X'
    TABLES
      xekbe = bet
      xekbz = bzt
      xekbes = bets
      xekbez = betz
      xekbnk = xekbnk.
itab2-xblnr = bet-xblnr.
SELECT SINGLE * FROM lfa1 WHERE lifnr = itab2-lifnr.
itab2-name1 = lfa1-name1.
itab2-ort01 = lfa1-ort01.
itab2-regio = lfa1-regio.
SELECT SINGLE * FROM t005u WHERE bland = itab2-regio
                              AND spras = 'EN'
                              AND land1 = 'IN'.
itab2-bezei = t005u-bezei.
SELECT SINGLE * FROM j_1imovend WHERE lifnr = itab2-lifnr.
IF sy-subrc = 0 .
    itab2-j_1ilstno = j_1imovend-j_1ilstno. " Vendor tin nbr
ENDIF.
MODIFY itab2.
ENDLOOP.
SORT itab2 BY belnr.
LOOP AT itab2.
v_dmbtr = v_dmbtr + itab2-dmbtr.
v_hwbas = v_hwbas + itab2-hwbas.
v_bldat = itab2-bldat.
v_budat = itab2-budat.
v_lifnr = itab2-lifnr.
v_name1 = itab2-name1.
v_ebeln = itab2-ebeln.
v_mwskz = itab2-mwskz.
v_xblnr = itab2-xblnr.
AT END OF belnr.
    itab2-bldat = v_bldat.
    itab2-budat = v_budat.
    itab2-lifnr = v_lifnr.
    itab2-name1 = v_name1.
    itab2-ebeln = v_ebeln.
    itab2-mwskz = v_mwskz.
    itab2-dmbtr = v_dmbtr.
    itab2-hwbas = v_hwbas.
    itab2-xblnr = v_xblnr.
    APPEND itab2 TO itab3.
    CLEAR: itab2, v_dmbtr, v_hwbas, v_bldat, v_budat, v_lifnr, v_name1, v_ebeln, v_mwskz, v_xblnr.
ENDAT.
ENDLOOP.
layout-zebra = 'X' .
layout-colwidth_optimize(1) = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
    i_callback_program = 'ZAK_FORM_C4'
    is_layout          = layout
    it_fieldcat        = it_fld_catalog
    i_default          = 'X'
    i_save             = 'A'
TABLES
    t_outtab           = itab3
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.
*&      Form FILL_CATALOG1
*       text
*      -->P_FIELDNAME text
*      -->P_REF_TABLE text
*      -->P_SCRTEXT    text
FORM fill_catalog1 USING   p_fieldname TYPE any
                            p_ref_table TYPE any
                            p_scrtext   TYPE any.
CLEAR : wa_fld_catalog.
wa_fld_catalog-fieldname = p_fieldname.
wa_fld_catalog-tabname    = p_ref_table.
wa_fld_catalog-seltext_s = p_scrtext.
wa_fld_catalog-seltext_m = p_scrtext.
wa_fld_catalog-seltext_l = p_scrtext.
* wa_fld_catalog-datatype = 'CURR'.
wa_fld_catalog-outputlen = 20.
APPEND wa_fld_catalog TO it_fld_catalog.
ENDFORM.                    " fill_catalog1.
Plz help....
Edited by: Prince Kumar on Jan 16, 2009 12:29 PM
Edited by: Vijay Babu Dudla on Jan 16, 2009 4:27 AM

Hi Dear,
Thanks for reply....
I use this code, in the LOOP AT ITAB...
      IF bseg-ebeln = ' ' AND bseg-KOART eq 'K' .
        itab-lifnr = bseg-lifnr.
      ENDIF.
But, not working....means its not displaying Vendor name against Document Number in BSEG.
Plz let me know...How...where i can change,,,

Output not coming

Hi ALL,
             I am very much frustrated with my program codeing, i am not getting any output
but it is correct with no errors i am suspecting with my linking fields ,
Please resolve my program and get me output, it will be kind enough to u.
This is my program codeing.
======================
REPORT zsdr_omsa40.
                          TYPE-POOLS
TYPE-POOLS: slis.
                       TABLE DECLARATIONS
TABLES : vbak, vbkd, zzvbak, kna1, vbrk, vbrp, knvp .
                            INTERNALTABLE DECLARATION                 *
DATA: BEGIN OF i_vbak OCCURS 0,
       vbeln LIKE vbak-vbeln,                " Sales Order no
       erdat LIKE vbak-erdat,                " Date on Which Record Was Created
       kunnr LIKE vbak-kunnr,
       ps_psp_pnr LIKE vbak-ps_psp_pnr,      " Work Breakdown Structure Element
      END OF i_vbak.
DATA : BEGIN OF i_zzvbak OCCURS 0,
         vbeln LIKE zzvbak-vbeln,
         zssidc LIKE zzvbak-zssidc,         "Salesman ID
       END OF i_zzvbak.
DATA : BEGIN OF i_vbrk OCCURS 0,
         vbeln LIKE vbrk-vbeln,
         fkdat LIKE vbrk-fkdat,          "Invoice Date
          kunag LIKE vbrk-kunag,    "Sold-to party
         END OF i_vbrk.
DATA : BEGIN OF i_kna1 OCCURS 0,
       pstlz LIKE kna1-pstlz ,               " Postal Code
       kunnr LIKE kna1-kunnr ,               " Customer Number 1
       name1 LIKE kna1-name1,                " Customer Name
       END OF i_kna1.
DATA : BEGIN OF i_vbrp OCCURS 0,
       vbeln LIKE vbrp-vbeln,
       netwr LIKE vbrp-netwr ,               " Net Value in Document Currency
       kzwi1 LIKE vbrp-kzwi1,               " Subtotal 1 from pricing procedure for condition
       END OF i_vbrp.
DATA : BEGIN OF i_knvp OCCURS 0,
       parvw LIKE knvp-parvw ,               " Partner Function
       kunnr LIKE knvp-kunnr ,
       parnr LIKE knvp-parnr ,              " Number of contact person
       END OF i_knvp .
DATA : BEGIN OF i_vbfa OCCURS 0,
       vbelv   LIKE vbfa-vbelv,
       vbeln   LIKE vbfa-vbeln,
       vbtyp_v LIKE vbfa-vbtyp_v,
       END OF i_vbfa.
DATA : BEGIN OF i_vbfa1 OCCURS 0,
       vbelv LIKE vbfa-vbelv,
       vbeln LIKE vbfa-vbeln,
       zssidc LIKE zzvbak-zssidc,
       END OF i_vbfa1.
DATA : BEGIN OF i_data OCCURS 0,
       erdat LIKE vbak-erdat,               " Date on Which Record Was Created
       vbeln LIKE vbak-vbeln,               " Sales Order no
       fkdat LIKE vbrk-fkdat,               " Invoice date.
       kunnr LIKE kna1-kunnr ,               " Customer Number 1
       ps_psp_pnr LIKE vbak-ps_psp_pnr,      " Work Breakdown Structure Element
       name1 LIKE kna1-name1,                " Customer Name
        netwr LIKE vbrp-netwr ,               " Net Value in Document Currency
        kzwi1 LIKE vbrp-kzwi1,               " Subtotal 1 from pricing procedure for condition
        parnr LIKE knvp-parnr ,              " Number of contact person
        zssidc LIKE zzvbak-zssidc,            "Salesman ID
       pstlz LIKE kna1-pstlz ,                " Postal Code
      END OF i_data.
ALV Declaraton
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
     gd_tab_group TYPE slis_t_sp_group_alv,
     gd_layout    TYPE slis_layout_alv,
    it_listheader TYPE slis_t_listheader,
     gd_repid     LIKE sy-repid.
Selection - Screen
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS    s_odate            FOR vbak-erdat .          " Sales Order Date
SELECT-OPTIONS    s_ivdate           FOR vbrk-fkdat .          " Invoice Date
SELECT-OPTIONS    s_order            FOR vbak-vbeln .          " Sales order no
SELECT-OPTIONS    s_name             FOR kna1-name1 .          " Customer Group
SELECT-OPTIONS    s_cname            FOR knvp-parnr .          " Contact Name.
SELECT-OPTIONS    s_ssid            FOR zzvbak-zssidc    .    " Salesman ID
SELECT-OPTIONS    s_pid                  FOR vbak-ps_psp_pnr .      " Work Breakdown Structure Element
SELECTION-SCREEN : END OF BLOCK b1.
START-OF-SELECTION
START-OF-SELECTION.
PERFORM data_retrieval.
   PERFORM build_fieldcatalog.
PERFORM BUILD_LAYOUT.
PERFORM top_of_page.
PERFORM fill_listheader USING it_listheader.
PERFORM display_alv_report.
END-OF-SELECTION.
*TOP-OF-PAGE.
TOP-OF-PAGE.
END-OF-PAGE.
*&      Form BUILD_FIELDCATALOG
      text
FORM build_fieldcatalog.
fieldcatalog-fieldname   = 'KUNNR'.
fieldcatalog-seltext_m   = 'Sold to Party'.
fieldcatalog-col_pos     = 0.
fieldcatalog-outputlen   = 10.
fieldcatalog-tabname   = 'I_data'.
fieldcatalog-emphasize   = 'X'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'NAME1'.
fieldcatalog-seltext_m   = 'Hlev Customer'.
fieldcatalog-col_pos     = 1.
fieldcatalog-tabname   = 'I_data'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'PARNR'.
fieldcatalog-seltext_m   = 'Contact name'.
fieldcatalog-col_pos     = 2.
fieldcatalog-tabname   = 'I_data'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'PS_PSP_PNR'.
fieldcatalog-seltext_m   = 'Project ID'.
fieldcatalog-col_pos     = 3.
fieldcatalog-do_sum = 'X'.
fieldcatalog-tabname   = 'I_data'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'VBELN'.
fieldcatalog-seltext_m   = 'Sales Document Type'.
fieldcatalog-col_pos     = 4.
fieldcatalog-tabname   = 'I_data'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'ZSSIDC'.
fieldcatalog-seltext_m   = 'SSID'.
fieldcatalog-col_pos     = 5.
fieldcatalog-tabname   = 'I_data'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'ERDAT'.
fieldcatalog-seltext_m   = 'so date'.
fieldcatalog-col_pos     = 6.
fieldcatalog-tabname   = 'I_data'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'FKDAT'.
fieldcatalog-seltext_m   = 'inv date'.
fieldcatalog-col_pos     = 7.
fieldcatalog-tabname   = 'I_data'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'KWZI1'.
fieldcatalog-seltext_m   = 'gross amt'.
fieldcatalog-col_pos     = 8.
fieldcatalog-tabname   = 'I_data'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'NETWR'.
fieldcatalog-seltext_m   = 'net amt'.
fieldcatalog-col_pos     = 9.
fieldcatalog-tabname   = 'I_data'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'PSTLZ'.
fieldcatalog-seltext_m   = 'Postal code'.
fieldcatalog-col_pos     = 10.
fieldcatalog-tabname   = 'I_data'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
ENDFORM.                    "BUILD_FIELDCATALOG
*&      Form DATA_RETRIEVAL
      text
FORM data_retrieval.
SELECT a~vbeln
         a~fkdat
         b~netwr
         b~vbeln
         b~kzwi1
         FROM vbrk AS a INNER JOIN vbrp AS b ON bvbeln = avbeln
          INTO CORRESPONDING FIELDS OF TABLE i_vbrk
              where fkdat IN s_ivdate.
    SELECT vbelv
           vbeln
           vbtyp_v
           FROM VBFA INTO corresponding fields of table I_VBFA
           for all entries in i_VBRK
           where vbeln = i_VBRK-vbeln
           and   VBTYP_V = 'C'.
IF I_VBFA[] IS NOT INITIAL.
    SELECT vbeln ZSSIDC
      FROM ZZVBAK INTO corresponding fields of table i_zzvbak
           for all entries in i_vbfa
             WHERE VBELN = I_VBFA-VBELV.
ENDIF.
SELECT vbeln erdat kunnr ps_psp_pnr from vbak INTO CORRESPONDING FIELDS OF TABLE i_vbak
                     FOR ALL ENTRIES IN i_vbak WHERE kunnr = i_vbak-kunnr
                     AND erdat IN s_odate AND vbeln IN s_ORDER AND
                      ps_psp_pnr IN s_pid.
SELECT kunnr
          name1
         FROM kna1 INTO CORRESPONDING FIELDS OF TABLE i_kna1
         FOR ALL ENTRIES IN i_vbrk
         WHERE kunnr = i_vbrk-kunag.
    SELECT kunnr parnr parvw FROM knvp INTO CORRESPONDING FIELDS OF TABLE i_knvp FOR ALL ENTRIES IN i_vbrk
    WHERE kunnr = i_vbrk-kunag
    AND   parvw = 'AP'
    AND   parnr IN s_cname.
LOOP AT i_vbrk.
    CLEAR i_data.
      i_data-erdat =        vbrk-erdat.               " Date on Which Record Was Created
       i_data-vbeln =       vbak-vbeln.               " Sales Order no
       i_data-fkdat =       vbrk-fkdat.               " Invoice date.
       i_data-kunnr =       kna1-kunnr .               " Customer Number 1
       i_data-ps_psp_pnr = vbak-ps_psp_pnr.      " Work Breakdown Structure Element
       i_data-name1 =       kna1-name1.                " Customer Name
       i_data-netwr   =     vbrp-netwr .               " Net Value in Document Currency
        i_data-kzwi1 =      vbrp-kzwi1.               " Subtotal 1 from pricing procedure for condition
        i_data-parnr =     knvp-parnr .              " Number of contact person
        i_data-zssidc =     zzvbak-zssidc.            "Salesman ID
       i_data-pstlz =      kna1-pstlz .                " Postal Code
    read table I_VBFA1 With key VBELV = i_vbak-vbeln.
    if sy-subrc is initial.
      i_data-vbeln = I_VBFA1-vbelv.
      read table i_zzvbak with key vbeln = i_vbfa-vbelv.
      if sy-subrc is initial.
        i_data-zssidc = I_zzvbak-ZSSIDC.
      endif.
    endif.
    READ TABLE i_kna1 WITH KEY kunnr = i_vbak-kunnr.
    if sy-subrc is initial.
      i_data-kunnr = i_kna1-kunnr.
      i_data-kunnr = i_kna1-name1.
    endif.
    collect i_data.
ENDLOOP.
ENDFORM.
*&      Form DISPLAY_ALV_REPORT
      text
FORM display_alv_report.
GD_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
I_INTERFACE_CHECK                 = ' '
I_BYPASSING_BUFFER                = ' '
I_BUFFER_ACTIVE                   = ' '
      i_callback_program                = sy-repid
I_CALLBACK_PF_STATUS_SET          = ' '
I_CALLBACK_USER_COMMAND           = ' '
      i_callback_top_of_page            = 'TOP_OF_PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
I_CALLBACK_HTML_END_OF_LIST       = ' '
I_STRUCTURE_NAME                  =
I_BACKGROUND_ID                   = ' '
I_GRID_TITLE                      =
I_GRID_SETTINGS                   =
IS_LAYOUT                         =
      it_fieldcat                       = fieldcatalog[]
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
IT_SORT                           =
IT_FILTER                         =
IS_SEL_HIDE                       =
I_DEFAULT                         = 'X'
I_SAVE                            = ' '
IS_VARIANT                        =
IT_EVENTS                         =
IT_EVENT_EXIT                     =
IS_PRINT                          =
IS_REPREP_ID                      =
I_SCREEN_START_COLUMN             = 0
I_SCREEN_START_LINE               = 0
I_SCREEN_END_COLUMN               = 0
I_SCREEN_END_LINE                 = 0
I_HTML_HEIGHT_TOP                 = 0
I_HTML_HEIGHT_END                 = 0
IT_ALV_GRAPHICS                   =
IT_HYPERLINK                      =
IT_ADD_FIELDCAT                   =
IT_EXCEPT_QINFO                   =
IR_SALV_FULLSCREEN_ADAPTER        =
IMPORTING
E_EXIT_CAUSED_BY_CALLER           =
ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = i_data.
EXCEPTIONS
PROGRAM_ERROR                     = 1
OTHERS                            = 2 .
*IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*ENDIF.
ENDFORM.                    "DISPLAY_ALV_REPORT
        FORM FOR FILLING LISTHEADER                                    *
FORM fill_listheader USING it_listheader TYPE slis_t_listheader.
DATA : wa_listheader TYPE slis_listheader.
wa_listheader-typ = 'H'.
wa_listheader-info = 'Noel Gifts International Limited '.
APPEND wa_listheader TO it_listheader.
wa_listheader-typ = 'S'.
wa_listheader-info = 'CUSTOMER CREDIT EXCEPTION REPORT' .
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
ENDFORM.                    "fill_listheader
*&      Form top_of_page
      text
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = it_listheader.
ENDFORM.      "top_of_page

There were a couple of mistakes:
a) You did not select Kunag from VBRK which u have used for selecting from KNA1.
SELECT a~vbeln
         a~fkdat
         a~kunag
         b~netwr
         b~vbeln
         b~kzwi1
FROM vbrk AS a INNER JOIN vbrp AS b
ON b~vbeln = a~vbeln
INTO CORRESPONDING FIELDS OF TABLE i_vbrk
WHERE fkdat IN s_ivdate.
b) This one is a Big Mistake
LOOP AT i_vbrk.
    CLEAR i_data.
    i_data-erdat = i_vbrk-erdat. "VBRK is the structure with no Data in it
    i_data-vbeln = i_vbak-vbeln. " replace the Structure with the Proper Table name and their Logic
Hope That Helps
Anirban M.

I am trying to print a photo its not coming right

Hi my printer is not the right colour photo of my dog he is black but I can not see him itswas working ok but now its gone wrone please can you help
This question was solved.
View Solution.

Can I send you the photo

Not able to hide all fields on PNP selection screen.

Dear Freinds,
           i wanted to hide all the field which are given on PNP selection screen, with the help of the
report category i have hided all the field including the Person selection period as i require only the
Data selection period. further through coding as below iam able to remove all the radio buttons
Today, Current month,Current year, from today, upto today,Other Period . But i am getting spaces above period (PNPBEGDA and PNPENDA) . i.e in the frame Period i have spaces being left due to
the radio buttons being Hidden . Could any one let me know how to remove the spaces so that
Period range will set exactly in the frame.
LOOP AT SCREEN.
    IF screen-name = 'PNPTIMR4' .
      screen-input = '0'.
      screen-invisible = '1'.
    ENDIF.
    IF screen-name = 'PNPTIMR2 .
      screen-input = '0'.
      screen-invisible = '1'.
    ENDIF
    IF screen-group4 = '090' .
      screen-input = '0'.
      screen-invisible = '1'.
    ENDIF.
    IF screen-name = 'PNPTIMR1' .
      screen-input = '0'.
      screen-invisible = '1'.
    ENDIF.
    IF screen-group4 = '092' .
      screen-input = '0'.
      screen-invisible = '1'.
    ENDIF.
    IF screen-group4 = '094' .
      screen-input = '0'.
      screen-invisible = '1'.
    ENDIF.
    IF screen-group4 = '100' .
      screen-input = '0'.
      screen-invisible = '1'.
    ENDIF.
    MODIFY SCREEN.
ENDLOOP
Please could any one let me know how can i push up the Period date (PNPBEGDA and PNPENDDA)
so that i will not have any blank space left out in the frame(Period) .
Thanks & Regards
Divya.
Edited by: Divya Kumari on Jan 4, 2009 1:53 PM

hi, sorry i think i misunderstand you question,
if i can understand it right now? the following code can help you i am using "PNP" Screen no '900'.
tables:pc207, hrp1000,pernr, pyorgscreen.
infotypes: 0001.          "Organizational Assignments
nodes: payroll type pay99_result.
at selection-screen output.
loop at screen.
    if ( screen-group1 = 'RES' or screen-group1 = 'YB1' or
         screen-group1 = 'YB2' or screen-group1 = 'YB3' ).
      screen-active = '0'.
      screen-invisible = '1'.
      modify screen.
    endif.
endloop.
try the following too,
TABLES:pc207, hrp1000,pernr, pyorgscreen.
INFOTYPES: 0001.          "Organizational Assignments
NODES: payroll TYPE pay99_result.
AT SELECTION-SCREEN OUTPUT.
BREAK-POINT.
LOOP AT SCREEN.
    IF (
*       screen-name = '%BYB1005_BLOCK_1000'
       screen-name = '%FYTI007_1000'
     or screen-name = '%FBIS010_1000'
     or screen-name = 'PYVW0_0'
     or screen-name = '%_PYPERNR_%_APP_%-TEXT'
     or screen-name = 'PYPERNR-LOW'
     or screen-name = '%_PYPERNR_%_APP_%-VALU_PUSH'
      screen-active = '0'.
      screen-invisible = '1'.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.
Replay if any problem,
Kind Regards,
Faisal
Edited by: Faisal Altaf on Jan 4, 2009 6:55 PM

How to give input on selection screen

hi all,
i want to provide text to thr report on selction screen
i.e for example i have to write the text 'not valid reason for it ' on selction screen
how do i write it ?
kindly let me know
thanks in advance

Hi Deepthi,
Please go thru the following code.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS cg1 RADIOBUTTON GROUP CTU. "create session
SELECTION-SCREEN COMMENT 3(20) TEXT-S07 FOR FIELD cg1.
selection-screen position 45.
PARAMETERS cg2 RADIOBUTTON GROUP CTU. "call transaction
SELECTION-SCREEN COMMENT 48(20) TEXT-S08 FOR FIELD cg2.
SELECTION-SCREEN END OF LINE.
You can Give text for a particular screen element.
You can set the position of the text as well.
U should make use of events like AT SELECTION-SCREEN for getting the input data back to the report
Thanks,
Lakshman
Edited by: Lakshman N on Dec 4, 2008 2:52 PM

Report output not coming correctly

Hi All,
my query is like
select 'gggohpoopiokoljmkjjg@@@@@' record from dual;
where record string's length is more than 2000 characters.
I am using oracle report for this purpose as i have some other validations associated with it.
i am printing the report output in a flat file.i want ALL THE OUTPUT SHOULD COME IN ONE LINE.
but this is not happenning so...for the string lengths more than 1000 it's coming in diff line.
How can i make sure that my output file WILL BE IN SINGLE LINE.
i tried in unix vi editor i can give 3000 charecters but it doesn't go to the second line.
any help on this issue will be helpful
thanks in advance

If there's no easy way to do it, you may use a "special character", like chr(xx), as your long line delimiter to chop a line into a couple of lines. Then you write a very simple C program to post-process the report output file to remove these "special character".
If all characters are possible in your report file, you may use a string as the delimiter.

Print output not coming from ECC 5.0

Hi all,
Following are the settings done in my system
In SPAD -> Device attributes
Device Type              SWIN SWIN     : Windows printing via SAPlpd
Spool Server             sapdev_DEV_00         SAPTRANS
                               135.147.150.178
Device Class              Standard printer
Model         hp LaserJet 1010
Location      135.147.150.178
Message       Laser jet printer
SPAD -> Access Method
Host Spool Access Method     U U: Print Using Berkeley Protocol
Host printer                            DEFAULT
Destination host                     135.147.150.178
.when i shoot a printoutput SAPLD is launched and it says
(12:06:25 PM) Number of processors: 2
(12:06:25 PM) Icon DLL loaded.
(12:06:25 PM)
(12:06:25 PM) Network Communication via SAP-NiLib
(12:06:25 PM) Hostname : IT08
(12:06:25 PM) IP Address: 135.147.150.178
(12:06:25 PM)
(12:06:25 PM) SAPLPD Version 6.28 for Windows/NT (OPT) is listening
(12:06:25 PM) OS-Info: version = 5.1, build = 0/2600, text = Service Pack 2
(12:06:25 PM) Copyright © 1992-2001 SAP AG
(12:06:25 PM)
(12:06:34 PM)
(12:06:34 PM) Receive job for printer __default (Berkeley LPD protocol / RFC1179)
(12:06:34 PM) send_status called
(12:06:34 PM) send_status called
(12:06:34 PM) send_status called
(12:06:34 PM) send_status called
(12:06:34 PM) send_status called
(12:06:34 PM) Job 000000969800002.DEV for user ABAP03 queued.
(12:06:34 PM) Job 000000969800002.DEV (raw) started on printer HP LASERJET 1010 SERIES DRIVER
(12:06:35 PM) Job 000000969800002.DEV (raw) with 1881 bytes finished
but the output is a blank page with just these words in O/P   :
Unsupported personality : PCL
Eagerly waiting for the answers,
Sachin Soni

Hi,
change access method from berkely to F or G . if you are intrested in Frontend printing , you need not give the IP address of the printer. __default will select the default printer of the Workstation from which GUI is operated.
Thanks,
Tanuj

Output not coming properly in SF

Hi all,
This is the select stmt i have written in the Program lines of Smartform.
SELECT VKORG VBELN FKTYP VTWEG
               FROM VBRK
               INTO TABLE ITAB
               WHERE VBELN BETWEEN '0090022987'   AND
               '0090023500'.
but i am geting the output like this, even though i have all the records
in the VBRK Table.
VKORG      VBELN               FKTYP             VTWEG
                 0090022987          1
                 0090022988          R
                 0090022989          R
                 0090022990          R
                 0090022991          R
But the Actual values of FKTYP are
1000 ,but in the output it is appearing as 1
R300, but in the output it is appearing as R.
and rest of fields(vkorg vtweg) are not displaying.
What could be the cause of Error ?
Thanks in advance
Krupali...

Hello KR
Check your table or template cell width . Make them wider.
This is surely happening because of your table/template's cell size. Make it more broder so that the values and text doesn't break.
Regards
Swetha
Edited by: Swetha on May 28, 2008 7:39 AM

Reports output not coming in Excel

Hello everyone,
Here Application is 11.5.10.2
We are not getting output in EXCEL format for reports.
We r getting output in PDF and all....
Report is completed successfully............
Please do need full, It's urgent...
Thanks,

I have a requirement for the following scenario.
when I try to click on Privew Button to see the payslip report I get this Error
Please any help
Thanks alot for everbody
Error
java.sql.SQLException: No corresponding LOB data found : SELECT FILE_DATA, DBMS_LOB.GETLENGTH(FILE_DATA), FILE_NAME, LAST_UPDATE_DATE FROM XDO_LOBS WHERE LOB_TYPE = :1 AND APPLICATION_SHORT_NAME = :2 AND LOB_CODE = :3 AND LANGUAGE = :4 AND TERRITORY = :5 at oracle.apps.xdo.oa.schema.server.XdoLobsInputStream.<init>(XdoLobsInputStream.java:108) at oracle.apps.xdo.oa.schema.server.LobHelper.getLob(LobHelper.java:884) at oracle.apps.xdo.oa.schema.server.LobHelper.getBlobDomain(LobHelper.java:918) at oracle.apps.xdo.oa.template.server.TemplatesAMImpl.processTemplate(TemplatesAMImpl.java:2056) at sun.reflect.NativeMethodAccessorImpl.invoke0(Native Method) at sun.reflect.NativeMethodAccessorImpl.invoke(NativeMethodAccessorImpl.java:39) at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java:25) at java.lang.reflect.Method.invoke(Method.java:585) at oracle.apps.fnd.framework.server.OAUtility.invokeMethod(OAUtility.java:190) at oracle.apps.fnd.framework.server.OAUtility.invokeMethod(OAUtility.java:153) at oracle.apps.fnd.framework.server.OAApplicationModuleImpl.invokeMethod(OAApplicationModuleImpl.java:762) at oracle.apps.xdo.oa.template.webui.TemplateGeneralCO.previewTemplate(TemplateGeneralCO.java:751) at oracle.apps.xdo.oa.template.webui.TemplateGeneralCO.processRequest(TemplateGeneralCO.java:158) at oracle.apps.fnd.framework.webui.OAWebBeanHelper.processRequest(OAWebBeanHelper.java:596) at oracle.apps.fnd.framework.webui.OAWebBeanContainerHelper.processRequest(OAWebBeanContainerHelper.java:251) at oracle.apps.fnd.framework.webui.OAPageLayoutHelper.processRequest(OAPageLayoutHelper.java:1166) at oracle.apps.fnd.framework.webui.beans.layout.OAPageLayoutBean.processRequest(OAPageLayoutBean.java:1569) at oracle.apps.fnd.framework.webui.OAWebBeanHelper.processRequestChildren(OAWebBeanHelper.java:964) at oracle.apps.fnd.framework.webui.OAWebBeanHelper.processRequestChildren(OAWebBeanHelper.java:931) at oracle.apps.fnd.framework.webui.OAWebBeanHelper.processRequest(OAWebBeanHelper.java:655) at oracle.apps.fnd.framework.webui.OAWebBeanContainerHelper.processRequest(OAWebBeanContainerHelper.java:251) at oracle.apps.fnd.framework.webui.beans.form.OAFormBean.processRequest(OAFormBean.java:385) at oracle.apps.fnd.framework.webui.OAWebBeanHelper.processRequestChildren(OAWebBeanHelper.java:964) at oracle.apps.fnd.framework.webui.OAWebBeanHelper.processRequestChildren(OAWebBeanHelper.java:931) at oracle.apps.fnd.framework.webui.OAWebBeanHelper.processRequest(OAWebBeanHelper.java:655) at oracle.apps.fnd.framework.webui.OAWebBeanContainerHelper.processRequest(OAWebBeanContainerHelper.java:251) at oracle.apps.fnd.framework.webui.beans.OABodyBean.processRequest(OABodyBean.java:353) at oracle.apps.fnd.framework.webui.OAPageBean.processRequest(OAPageBean.java:2496) at oracle.apps.fnd.framework.webui.OAPageBean.preparePage(OAPageBean.java:1892) at oracle.apps.fnd.framework.webui.OAPageBean.preparePage(OAPageBean.java:536) at oracle.apps.fnd.framework.webui.OAPageBean.preparePage(OAPageBean.java:424) at OA.jspService(_OA.java:212) at com.orionserver.http.OrionHttpJspPage.service(OrionHttpJspPage.java:59) at oracle.jsp.runtimev2.JspPageTable.service(JspPageTable.java:335) at oracle.jsp.runtimev2.JspServlet.internalService(JspServlet.java:478) at oracle.jsp.runtimev2.JspServlet.service(JspServlet.java:401) at javax.servlet.http.HttpServlet.service(HttpServlet.java:856) at com.evermind.server.http.ResourceFilterChain.doFilter(ResourceFilterChain.java:64) at oracle.apps.jtf.base.session.ReleaseResFilter.doFilter(ReleaseResFilter.java:26) at com.evermind.server.http.EvermindFilterChain.doFilter(EvermindFilterChain.java:15) at oracle.apps.fnd.security.AppsServletFilter.doFilter(AppsServletFilter.java:318) at com.evermind.server.http.ServletRequestDispatcher.invoke(ServletRequestDispatcher.java:610) at com.evermind.server.http.ServletRequestDispatcher.forwardInternal(ServletRequestDispatcher.java:359) at com.evermind.server.http.HttpRequestHandler.doProcessRequest(HttpRequestHandler.java:870) at com.evermind.server.http.HttpRequestHandler.processRequest(HttpRequestHandler.java:451) at com.evermind.server.http.AJPRequestHandler.run(AJPRequestHandler.java:299) at com.evermind.server.http.AJPRequestHandler.run(AJPRequestHandler.java:187) at oracle.oc4j.network.ServerSocketReadHandler$SafeRunnable.run(ServerSocketReadHandler.java:260) at com.evermind.util.ReleasableResourcePooledExecutor$MyWorker.run(ReleasableResourcePooledExecutor.java:303) at java.lang.Thread.run(Thread.java:595)

Output not coming right, if we give LIFNR in selection screen

Similar Messages

Maybe you are looking for