Sap script doubt

Question

hi all,
i have problem with the print program.in this it is printing the from in pre printed format.
but as comapny's pre printed format has been changed so
they are not willing to carry it on.
so they have given me a format to design the form .
i have designed the form and assined my from name in the
print program but i was not able to see output ie my form
which i have designed.
my form name is zinv.
so for this i am sending my print prog so what changes i have to make in it so that i can see my form after executing it.
plz give me the solution.
REPORT ZSI-01 LINE-SIZE 132.
PROGRAM NAME : ZINVOICE                    AUTHOR       : SATYA      *
START DATE   : 11-04-98                    END DATE     :            *
REQUEST NO   :                             REQUESTED BY : SELVAM     *
CHANGE DATE  : 12.05.98                    CHANGED BY   :            *
OBJECTIVE    :INVOICE PRINTING ON LAYOUT SET.                        *
              LAYOUT SET ZINVOICE                                    *
              PF-STATUS 100.                                         *
changed and transfered on 16.04.99 REQUESTED BY SELVAM.              *
THIS IS THE LATEST VERSION OF INVOICE PROG CHANGES MADE BY raghu     *
           ON 16/04/99                                               *
  RECENT COPY WITH  SECOND SALES & TAX EMPTED REQ SELVAM 24/6/98     *
  copy with form sale req by selvam 27/07/98                         *
PRINT-CONTROL FUNCTION 'CI015'.
*TRANSPARETN TABLES
TABLES : KOMK.
TABLES : KOMV.
TABLES : KOMP.
TABLES : KNVK.
TABLES : OBJK.
TABLES : SER01.
TABLES : T001W.
TABLES : MKPF.
TABLES : KONV .
TABLES : LIKP.
TABLES : VBFA .                                             "
TABLES : VBAK .     "Header table for the invoice document
TABLES : VBAP .     "Line item table for the invoice document
TABLES : KNA1 .     "Customer master table for the customer details
TABLES : MARA .                        "Material master table
TABLES : ITCPO.     "SYSTEM TABLE FOR LAYOUT SETS COMMUNICATION
TABLES : ITCPP.     "SYSTEM TABLE FOR LAYOUT SETS COMMUNICATION
TABLES : VBRK.      "HEADER TABLE FOR BILLING DOCUMENT
TABLES : VBRP.                         "LINE ITEM FOR BILLING DOCUMENT
TABLES : VBPA.                         "PARTNER FOR SALES DOCUMENT
TABLES : KNB1.
TABLES : LIPS.
TABLES : TVM1T.
TABLES : SADR.
*INTERNAL TABLES
DATA : BEGIN OF INV_TAB OCCURS 0.
DATA : BILLNO LIKE VBRP-VBELN.
DATA : END OF INV_TAB.
DATA : BEGIN OF I_TAB OCCURS 0.
DATA : SDNO LIKE LIKP-VBELN.
DATA : INVO LIKE VBRK-VBELN.
DATA : ORNO LIKE VBAK-VBELN.
DATA : END OF I_TAB.
*FOR READ PRICE
DATA: BEGIN OF TKOMV OCCURS 0.
        INCLUDE STRUCTURE KOMV.
DATA: END OF TKOMV.
DATA: BEGIN OF TKOMVD OCCURS 0.
        INCLUDE STRUCTURE KOMVD.
DATA: END OF TKOMVD.
DATA : BEGIN OF CTYPE OCCURS 0.
DATA :SIGN(1).
DATA :OPTIONS(2).
DATA :LOW(4).
DATA :HIGH(4).
DATA : END OF CTYPE.
*header data
DATA : BEGIN OF HEAD_TAB.
DATA : DOCNO LIKE VBRK-VBELN.
DATA : SALOF LIKE VBRK-VKORG.
DATA : DOCDT LIKE VBRK-FKDAT.
DATA : PLANT LIKE LIKP-WERKS.
DATA : PNAM1 LIKE T001W-NAME1.
DATA : PNAM2 LIKE T001W-NAME2.
DATA : PNAM3 LIKE T001W-NAME1.
DATA : PNAM4 LIKE T001W-NAME2.
DATA : PNAM5 LIKE T001W-PSTLZ.
DATA : PCSTNO(35).
DATA : PLSTNO(35).
*DATA : POREF LIKE VBAK-BSTNK.
DATA : POREF(30).
DATA : PODAT LIKE VBAK-BSTDK.
DATA : CCODE LIKE KNA1-KUNNR.
DATA : CPERSON LIKE KNVK-NAME1.
DATA : TPHONE LIKE VBPA-PARNR.
DATA : SALESOR LIKE VBAK-AUFNR.
DATA : BILLCUR LIKE VBAK-WAERK.
DATA : CARNAME(35).
DATA : SPSHIPI(40).
DATA : SPCARIN(40).
DATA : LRNO(20).
DATA : LRDT(20).
DATA : MODEPAY(20).
DATA : CSTNO(30).
DATA : LSTNO(30).
DATA : STAMT TYPE P DECIMALS 2.        "SUB TOTAL
DATA : STAXAMT TYPE P DECIMALS 2.      "SALES TAX AMOUNT
DATA : FCHRG TYPE P DECIMALS 2.
DATA : OCHRG LIKE VBRP-NETWR.
DATA : AMOUNTINWORDS(150).
DATA : GTOTAL TYPE P DECIMALS 2.
DATA : FROMDATE(10).
DATA : ENDDATE(10).
DATA : END OF HEAD_TAB.
DATA : B_PRNCTR TYPE I VALUE 0 .
*sold to party
DATA : BEGIN OF SOLDP_TAB.
DATA : NAME LIKE KNA1-NAME1.
DATA : ADD1 LIKE KNA1-NAME2.
DATA : ADD2 LIKE KNA1-NAME3.
DATA : ADD3 LIKE KNA1-ORT01.
DATA : ADD4 LIKE KNA1-PSTLZ.
DATA : ADD5 LIKE KNA1-REGIO.
DATA : ADD6 LIKE KNA1-NAME4.
DATA : END OF SOLDP_TAB.
DATA : B_SURCHARG VALUE 'N'.
ship to party
DATA : BEGIN OF SHIPP_TAB.
DATA : NAME LIKE KNA1-NAME1.
DATA : ADD1 LIKE KNA1-NAME2.
DATA : ADD2 LIKE KNA1-NAME3.
DATA : ADD3 LIKE KNA1-ORT01.
DATA : ADD4 LIKE KNA1-PSTLZ.
DATA : ADD5 LIKE KNA1-REGIO.
DATA : ADD6 LIKE KNA1-NAME4.
DATA : END OF SHIPP_TAB.
LINE ITEMS
DATA : BEGIN OF LINE_TAB OCCURS 0.
DATA : B_LONO(4).
DATA : CFAMOUNT LIKE VBRK-NETWR.
DATA : SLNO(4).
DATA : PRODCODE(6).
DATA : SERNO(20).
DATA : DESC(40).
DATA : UOM(4).
DATA : QTY(5).
DATA : RATE TYPE P DECIMALS 2.
DATA : AMOUNT TYPE P DECIMALS 2.
DATA : STAX(5).
DATA : OTAX(5).
DATA : B_TAXAMOUNT_LINE LIKE VBRP-NETWR.
DATA : POSNR LIKE VBRP-POSNR .         "     ADDED BY ANIL
DATA : END OF LINE_TAB.
*serial Nos
DATA : BEGIN OF SER_TAB OCCURS 0.
DATA : SERNO(20).
DATA : SLNO(4).
DATA : END OF SER_TAB.
*structure for carried forward.
DATA : BEGIN OF SUBTOT.
DATA : B_SUBTOTAL LIKE VBRK-NETWR.
DATA : END OF SUBTOT.
*STRUCTURE for layout set
DATA : BEGIN OF SERALIGN.
DATA : TEXT(10).
DATA : B_SL1 LIKE SER_TAB-SERNO.
DATA : B_SL2 LIKE SER_TAB-SERNO.
DATA : B_SL3 LIKE SER_TAB-SERNO.
DATA : END OF SERALIGN.
*VARIABLES
DATA : B_DIVIDE LIKE VBRP-NETWR.
DATA : B_PRNUCOMM LIKE SY-UCOMM.
DATA : B_NEWPAGE.
DATA : B_INVRATE LIKE VBRP-NETWR.
DATA : B_INVSTAX LIKE VBRP-NETWR.
DATA : B_TAX(4),B_TOT(4).
DATA : B_DIFFCOUNT TYPE I.
DATA : B_COUNTOFRECORDS TYPE I.
DATA : B_TOTALINDICATOR(256).
DATA : B_TEMP(25).
DATA : B_TEMP1(25).
DATA : B_AMOUNTSTRING1(36).
DATA : B_AMOUNTSTRING2(35).
DATA : B_AMOUNTSTRING3(35).
DATA : B_ORDERREFNO LIKE VBRK-XBLNR.
DATA : B_RATEFORITEM LIKE VBRK-NETWR.
DATA : B_TOTALAMOUNT TYPE P DECIMALS 2 VALUE 0.  "TOTAL INVOICE AMOUNT
DATA : B_CUSTOMERNO LIKE VBAK-KUNNR.   "CUSTOMER NO FROM VBAK TABLE
DATA : B_RECORDCOUNTER TYPE I.         "RECORD COUNTER
DATA : B_AMOUNTINWORDS(200).           "AMOUNT STORED IN WORDS
DATA : B_DECIMALAMOUNTINWORDS(40).     "DEC PART OF THE AMOUNT WORD
DATA : B_AMOUNTINWORDSFINAL(256).      "TOTAL AMOUNT IN WORDS
DATA : B_CUSTOMERCODE LIKE VBAK-KUNNR. "CUSTOMER CODE
DATA : B_STRINGLENGTH TYPE I.
DATA : B_INVFORCHARGE LIKE VBRP-NETWR.
DATA : B_INVOCTROI LIKE VBRP-NETWR.
DATA : B_INVTOT LIKE VBRP-NETWR.
DATA : B_INVNO LIKE VBAK-VBELN.
DATA : B_RECCOUNT TYPE I VALUE 0 , START TYPE I VALUE 0.
DATA : IFSELECTED TYPE C VALUE 'X'.
DATA : B_TOTAL_TAX LIKE VBRK-NETWR.
DATA : B_IFSERVICEORDER(1) VALUE 'T'.
DATA : ANS(1).
DATA : B_SHIP_TO_PARTY LIKE KNA1-KUNNR.
DATA : B_SOLDTOPARTYCODE LIKE KNA1-KUNNR.
DATA  B_STR(35).
DATA : RECNO LIKE SY-INDEX VALUE 1.
DATA : B_SPCFLAG VALUE 'F'.
DATA : B_TAX_INFO1(80) .
DATA : B_SECOND_SALE(250) .
DATA : B_EXEMPTED(250) .
DATA : B_HEXEMPTED(250) .
DATA : B_TAX_STR(250).
DATA : B_FORM_TEXT(250) .
DATA : B_FORM_TYPE(25) .
DATA : TXT(60).
DATA : BEGIN OF FORM_TAB OCCURS 0 ,
       MVGR1 LIKE VBRP-MVGR1 ,
       SLNO(5) ,
       END OF FORM_TAB .
DATA : OLD_MVGR1 LIKE TVM1T-MVGR1 , B_FORM_IND LIKE SY-TABIX .
DATA : B_TAX_LEN TYPE I .
DATA : FKART LIKE VBRK-FKART.
SET PF-STATUS '100'.
SELECTION-SCREEN BEGIN OF BLOCK B_1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS SEL1 FOR VBRK-VBELN MATCHCODE OBJECT VMCF MEMORY ID VF.
SELECT-OPTIONS SEL2 FOR LIKP-VBELN MATCHCODE OBJECT VMVL MEMORY ID VL.
SELECT-OPTIONS SEL4 FOR VBAK-KUNNR MEMORY ID VAG.
SELECTION-SCREEN END OF BLOCK B_1.
SELECTION-SCREEN BEGIN OF BLOCK B_2 WITH FRAME TITLE TEXT-005.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(3) TEXT-002.
PARAMETERS : PRINTSL RADIOBUTTON GROUP GRP1.
SELECTION-SCREEN COMMENT 7(2) TEXT-003.
PARAMETERS : NPRINTSL RADIOBUTTON GROUP GRP1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B_2.
PERFORM INIT.
CLEAR HEAD_TAB.
IF SEL2 EQ SPACE AND SEL1 EQ SPACE.
  IF SEL4 EQ SPACE.
    PERFORM WIN_INFO(ZURL) USING 'Error' 'Enter atleast one' 'Value'.
    EXIT.
  ENDIF.
ENDIF.
PERFORM WRITEITEMS.                    "Selection Screen
      FORM MAIN                                                     *
FORM MAIN.
  B_PRNCTR = 0 .
  LOOP AT I_TAB.
    CLEAR : B_SECOND_SALE , B_EXEMPTED , B_TAX_LEN .
   read table i_tab index recno.
    PERFORM SOLD_TO_PARTY_CHANGE USING I_TAB-INVO.
   if sy-subrc eq 0.
    B_INVNO = I_TAB-SDNO.
    PERFORM FILL_CHAR(ZURL) USING 10 '0' I_TAB-SDNO CHANGING B_INVNO.
    PERFORM FILL_CHAR(ZURL) USING 10 '0' I_TAB-INVO
                            CHANGING I_TAB-INVO.
    CLEAR HEAD_TAB-GTOTAL.
    PERFORM ASSIGN.
     perform alignwrite.
    PERFORM OPENFORM USING 'ZINVOICEDUMMY'.
    PERFORM LAYOUTSETWRITE.
    DATA : B_SRLNO(4) VALUE 0.
    DATA : B_CTR TYPE I VALUE 0.
    DATA : B_LOOPCTR TYPE I VALUE 0.
    DATA : B_AMT1 LIKE VBRK-NETWR.
    DATA : B_TEXTELEMENT(3).
    SUBTOT-B_SUBTOTAL = 0.
    B_SRLNO = 0.
    LOOP AT LINE_TAB.
      ADD 1 TO B_SRLNO.
      MOVE B_SRLNO TO LINE_TAB-B_LONO.
      PERFORM TAX_INFO_DETERMINE USING B_SRLNO.
                                               "  ADDED BY ANIL
      SUBTOT-B_SUBTOTAL = B_AMT1 + LINE_TAB-AMOUNT.
      "add line_tab-amount to subtot-b_subtotal.
      MOVE SUBTOT-B_SUBTOTAL TO B_AMT1.
      PERFORM LAYOUTSETMAIN USING '100'.
      MOVE '101' TO B_TEXTELEMENT.
      IF PRINTSL EQ 'X'.
        MOVE 'Serial No:' TO SERALIGN-TEXT.
        LOOP AT SER_TAB WHERE SLNO EQ LINE_TAB-SLNO.
          IF B_LOOPCTR EQ B_CTR.
            MOVE SER_TAB-SERNO TO SERALIGN-B_SL1.
            ADD 1 TO B_CTR.
            PERFORM LAYOUTSETMAIN USING B_TEXTELEMENT.
          ENDIF.
          IF B_LOOPCTR EQ B_CTR.
            MOVE SER_TAB-SERNO TO SERALIGN-B_SL2.
            ADD 1 TO B_CTR.
            PERFORM LAYOUTSETMAIN USING B_TEXTELEMENT.
          ENDIF.
          IF B_LOOPCTR EQ B_CTR.
            MOVE SER_TAB-SERNO TO SERALIGN-B_SL3.
            ADD 1 TO B_CTR.
            PERFORM LAYOUTSETMAIN USING B_TEXTELEMENT.
          ENDIF.
          B_LOOPCTR = B_LOOPCTR + 1.
          MOVE '103' TO B_TEXTELEMENT.
          MOVE ' ' TO SERALIGN-TEXT.
        ENDLOOP.
      ENDIF.
    ENDLOOP.
    HEAD_TAB-GTOTAL = B_INVRATE + B_INVSTAX + B_INVTOT +
                      B_INVOCTROI + B_INVFORCHARGE.
    HEAD_TAB-OCHRG = B_INVTOT.
    IF HEAD_TAB-PLANT EQ '0020'.
      PERFORM LAYOUTSETMAIN USING '104'.
    ENDIF.
    IF B_SURCHARG = 'Y'.
      PERFORM LAYOUTSETMAIN USING '105'.
    ENDIF.
    DESCRIBE TABLE FORM_TAB LINES SY-TABIX .
    IF SY-TABIX > 0 .
      SORT FORM_TAB BY MVGR1 .
      CLEAR : OLD_MVGR1 , B_FORM_IND .
      LOOP AT FORM_TAB .
        IF FORM_TAB-MVGR1 <> OLD_MVGR1 AND B_FORM_IND > 1 .
          SELECT SINGLE * FROM TVM1T WHERE MVGR1 = OLD_MVGR1 .
          CONCATENATE '. :' TVM1T-BEZEI INTO B_FORM_TYPE
                               SEPARATED BY SPACE .
          PERFORM PRINT_TAX_INFO USING B_FORM_TEXT B_FORM_TYPE .
          CLEAR B_FORM_TEXT .
        ENDIF .
        ADD 1 TO B_FORM_IND .
        OLD_MVGR1 = FORM_TAB-MVGR1 .
        CONCATENATE B_FORM_TEXT ',' FORM_TAB-SLNO INTO B_FORM_TEXT
                      SEPARATED BY SPACE .
      ENDLOOP .
      SELECT SINGLE * FROM TVM1T WHERE MVGR1 = OLD_MVGR1 .
      CONCATENATE '. :' TVM1T-BEZEI INTO B_FORM_TYPE
                           SEPARATED BY SPACE .
      PERFORM PRINT_TAX_INFO USING B_FORM_TEXT B_FORM_TYPE .
      CLEAR B_FORM_TEXT .
    ENDIF .
    PERFORM LAYOUTSETMAIN USING '109'.
    B_TAX_LEN = STRLEN( B_SECOND_SALE ) .
    IF B_TAX_LEN > 0 .
      PERFORM PRINT_TAX_INFO USING B_SECOND_SALE
                                    '. : Second Sales - No Tax' .
    ENDIF .
    B_TAX_LEN = STRLEN( B_EXEMPTED ) .
    IF B_TAX_LEN > 0 .
      PERFORM PRINT_TAX_INFO USING B_EXEMPTED
                             '. : Software Exempted From Tax' .
    ENDIF .
    B_TAX_LEN = STRLEN( B_HEXEMPTED ) .
    IF B_TAX_LEN > 0 .
      PERFORM PRINT_TAX_INFO USING B_HEXEMPTED
                             '. : Exempted From Tax' .
    ENDIF .
    MOVE 'Sales Tax Shown is inclusive of surcharge @ 10%'
          TO B_TAX_STR.
    REFRESH : FORM_TAB .
    CLEAR : B_SECOND_SALE , B_EXEMPTED , B_TAX_LEN ,B_FORM_TEXT,
            FORM_TAB , B_HEXEMPTED .
    PERFORM CONVERT.
    PERFORM LAYOUTFOOTER USING '102'.
    PERFORM CLOSEFORM(ZURL).
    PERFORM INIT.
  endif.
  ENDLOOP.
ENDFORM.
      FORM ASSIGN                                                   *
FORM ASSIGN.
  B_INVSTAX = 0.
  B_INVRATE = 0.
  REFRESH SER_TAB.
perform gettax using i_tab-invo.
  HEAD_TAB-DOCNO = I_TAB-INVO.
  SELECT SINGLE * FROM VBRK WHERE VBELN EQ HEAD_TAB-DOCNO.
  HEAD_TAB-DOCDT = VBRK-FKDAT.
  FKART  = VBRK-FKART.
  CLEAR HEAD_TAB-SALESOR.
  SELECT SINGLE * FROM VBAK WHERE VBELN = I_TAB-ORNO.
  MOVE VBAK-VKBUR TO HEAD_TAB-SALOF.
  MOVE VBAK-BSTNK TO HEAD_TAB-POREF.
  MOVE VBAK-BSTDK TO HEAD_TAB-PODAT.
  MOVE HEAD_TAB-PODAT TO B_STR.
  CONCATENATE B_STR6(2) '.' B_STR4(2) '.' B_STR+2(2) INTO B_STR.
  CONCATENATE HEAD_TAB-POREF '/' B_STR INTO B_STR.
  MOVE B_STR TO HEAD_TAB-POREF.
  SELECT SINGLE * FROM VBPA WHERE VBELN EQ I_TAB-INVO AND PARVW EQ 'RE'.
  IF B_SPCFLAG EQ 'T'.
    SELECT SINGLE * FROM KNA1 WHERE KUNNR EQ B_SOLDTOPARTYCODE.
    SELECT SINGLE * FROM KNB1 WHERE KUNNR EQ B_SOLDTOPARTYCODE.
    SELECT SINGLE * FROM KNVK WHERE KUNNR EQ B_SOLDTOPARTYCODE.
         move knvk-name1 to head_tab-cperson.
         move knvk-telf1 to head_tab-tphone.
    MOVE KNA1-NAME1 TO SOLDP_TAB-NAME. "SOLD TO PARTY
    MOVE KNA1-NAME2 TO SOLDP_TAB-ADD1. "SOLD TO PARTY
    MOVE KNA1-NAME3 TO SOLDP_TAB-ADD2. "SOLD TO PARTY
    MOVE KNA1-NAME4 TO SOLDP_TAB-ADD6. "added By deepak 26/11/98
    MOVE KNA1-ORT01 TO SOLDP_TAB-ADD3. "SOLD TO PARTY
    MOVE KNA1-PSTLZ TO SOLDP_TAB-ADD4. "SOLD TO PARTY
    MOVE KNA1-REGIO TO SOLDP_TAB-ADD5. "SOLD TO PARTY
  ELSE.
    SELECT SINGLE * FROM KNB1 WHERE KUNNR EQ VBPA-KUNNR.
    IF VBPA-ADRNR EQ SPACE.
      SELECT SINGLE * FROM KNA1 WHERE KUNNR EQ VBPA-KUNNR.
      MOVE KNA1-NAME1 TO SOLDP_TAB-NAME.   "SOLD TO PARTY
      MOVE KNA1-NAME2 TO SOLDP_TAB-ADD1.   "SOLD TO PARTY
      MOVE KNA1-NAME3 TO SOLDP_TAB-ADD2.   "SOLD TO PARTY
      MOVE KNA1-NAME4 TO SOLDP_TAB-ADD6.  "added By deepak 26/11/98
      MOVE KNA1-ORT01 TO SOLDP_TAB-ADD3.   "SOLD TO PARTY
      MOVE KNA1-PSTLZ TO SOLDP_TAB-ADD4.   "SOLD TO PARTY
      MOVE KNA1-REGIO TO SOLDP_TAB-ADD5.   "SOLD TO PARTY
    ELSE.
      SELECT SINGLE * FROM SADR WHERE ADRNR EQ VBPA-ADRNR.
      MOVE SADR-NAME1 TO SOLDP_TAB-NAME.   "SOLD TO PARTY
      MOVE SADR-NAME2 TO SOLDP_TAB-ADD1.   "SOLD TO PARTY
      MOVE SADR-NAME3 TO SOLDP_TAB-ADD2.   "SOLD TO PARTY
      MOVE SADR-NAME4 TO SOLDP_TAB-ADD6.
      MOVE SADR-ORT01 TO SOLDP_TAB-ADD3.   "SOLD TO PARTY
      MOVE SADR-PSTLZ TO SOLDP_TAB-ADD4.   "SOLD TO PARTY
      MOVE SADR-REGIO TO SOLDP_TAB-ADD5.   "SOLD TO PARTY
    ENDIF.
  ENDIF.
insereted by anil on request by raghu 4/7/98
     select single * from knvk where kunnr eq vbpa-kunnr.
  CLEAR VBPA .
  SELECT * FROM VBPA WHERE VBELN EQ VBAK-VBELN AND PARVW = 'AP' AND
    ( PARNR NE SPACE OR ADRNR NE SPACE ) .
    IF  NOT VBPA-ADRNR IS INITIAL .
      SELECT SINGLE * FROM SADR WHERE ADRNR = VBPA-ADRNR .
      MOVE SADR-NAME3 TO HEAD_TAB-CPERSON.
      MOVE SADR-TELF1 TO HEAD_TAB-TPHONE.
    ELSE .
      SELECT SINGLE * FROM KNVK WHERE PARNR = VBPA-PARNR .
      MOVE KNVK-NAME1 TO HEAD_TAB-CPERSON.
      MOVE KNVK-TELF1 TO HEAD_TAB-TPHONE.
    ENDIF .
    EXIT .
  ENDSELECT .
  MOVE VBAK-VKBUR TO HEAD_TAB-SALOF.
  MOVE VBAK-VBELN TO HEAD_TAB-SALESOR.
  MOVE VBAK-WAERK TO HEAD_TAB-BILLCUR.
  MOVE KNA1-KUNNR TO HEAD_TAB-CCODE.
END OF INSERTION
  SELECT SINGLE * FROM VBPA WHERE VBELN EQ I_TAB-INVO AND PARVW EQ 'WE'.
  IF VBPA-ADRNR EQ SPACE.
    SELECT SINGLE * FROM KNA1 WHERE KUNNR EQ VBPA-KUNNR.
    MOVE KNA1-KUNNR TO B_SHIP_TO_PARTY."SHIP TO PARTY
    MOVE KNA1-NAME1 TO SHIPP_TAB-NAME. "SHIP TO PARTY
    MOVE KNA1-NAME2 TO SHIPP_TAB-ADD1. "SHIP TO PARTY
    MOVE KNA1-NAME3 TO SHIPP_TAB-ADD2. "SHIP TO PARTY
    MOVE KNA1-NAME4 TO SHIPP_TAB-ADD6. " add by deepak on 26/11/98
    MOVE KNA1-ORT01 TO SHIPP_TAB-ADD3. "SHIP TO PARTY
    MOVE KNA1-PSTLZ TO SHIPP_TAB-ADD4. "SHIP TO PARTY
    MOVE KNA1-REGIO TO SHIPP_TAB-ADD5. "SHIP TO PARTY
  ELSE.
    SELECT SINGLE * FROM SADR WHERE ADRNR EQ VBPA-ADRNR.
    move kna1-kunnr to b_ship_to_party.  "SHIP TO PARTY
    MOVE SADR-NAME1 TO SHIPP_TAB-NAME. "SHIP TO PARTY
    MOVE SADR-NAME2 TO SHIPP_TAB-ADD1. "SHIP TO PARTY
    MOVE SADR-NAME3 TO SHIPP_TAB-ADD2. "SHIP TO PARTY
    MOVE SADR-NAME4 TO SHIPP_TAB-ADD6.
    MOVE SADR-ORT01 TO SHIPP_TAB-ADD3. "SHIP TO PARTY
    MOVE SADR-PSTLZ TO SHIPP_TAB-ADD4. "SHIP TO PARTY
    MOVE SADR-REGIO TO SHIPP_TAB-ADD5. "SHIP TO PARTY
  ENDIF.
IF B_IFSERVICEORDER EQ 'F'.
       SELECT SINGLE * FROM LIPS WHERE VBELN EQ B_INVNO.
       MOVE LIPS-WERKS TO HEAD_TAB-PLANT.
ELSE.
  SELECT SINGLE * FROM VBRP WHERE VBELN EQ I_TAB-INVO
                              AND FKIMG NE 0.
  MOVE VBRP-WERKS TO HEAD_TAB-PLANT.
endif.
  SELECT SINGLE * FROM T001W WHERE WERKS EQ HEAD_TAB-PLANT.
  SELECT SINGLE * FROM SADR WHERE ADRNR EQ T001W-ADRNR.
  MOVE SADR-NAME1 TO HEAD_TAB-PNAM1.
  MOVE SADR-NAME2 TO HEAD_TAB-PNAM2.
  MOVE SADR-NAME3 TO HEAD_TAB-PNAM3.
  MOVE SADR-NAME4 TO HEAD_TAB-PNAM4.
  MOVE SADR-PSTLZ TO HEAD_TAB-PNAM5.
  PERFORM GETCST-LST USING T001W-ADRNR.
  DATA : B_AMOUNT_ITEM LIKE VBRP-NETWR .
  PERFORM GETTAXFORLINEITEMS USING I_TAB-INVO.
  B_INVOCTROI = 0.
  B_INVFORCHARGE = 0.
  B_INVTOT = 0.
  SELECT * FROM VBRP WHERE VBELN = I_TAB-INVO   "changed on 15/4
                       AND FKIMG NE 0.
    B_AMOUNT_ITEM = 0.
    MOVE VBRP-POSNR+2(4) TO LINE_TAB-SLNO.
    MOVE VBRP-POSNR TO LINE_TAB-POSNR.
    MOVE VBRP-MATNR+13(5) TO LINE_TAB-PRODCODE.
    MOVE VBRP-ARKTX TO LINE_TAB-DESC.
    SELECT SINGLE * FROM LIPS WHERE VBELN EQ B_INVNO
                                AND VGPOS EQ VBRP-POSNR.
    SELECT SINGLE * FROM SER01 WHERE LIEF_NR EQ LIPS-VBELN
                                 AND POSNR EQ LIPS-POSNR.
    IF SY-SUBRC EQ 0.
      SELECT * FROM OBJK WHERE OBKNR EQ SER01-OBKNR.
        MOVE OBJK-SERNR TO SER_TAB-SERNO.
        MOVE VBRP-POSNR+2(4) TO SER_TAB-SLNO.
        WRITE SER_TAB-SERNO NO-ZERO TO SER_TAB-SERNO.
        CONDENSE SER_TAB-SERNO NO-GAPS.
        APPEND SER_TAB.
      ENDSELECT.
    ENDIF.
    MOVE VBRP-FKIMG TO B_TEMP.
    SPLIT B_TEMP AT '.' INTO B_TEMP1 B_TEMP.
    CONDENSE B_TEMP1 NO-GAPS.
    MOVE B_TEMP1 TO LINE_TAB-QTY.
    IF VBRP-KZWI2 GT 0.
      B_DIVIDE = VBRP-KZWI2 / VBRP-FKIMG.
      MOVE B_DIVIDE TO  LINE_TAB-RATE.
      B_DIVIDE = 0.
    ELSE.
      B_DIVIDE = VBRP-KZWI1 / VBRP-FKIMG.
      MOVE B_DIVIDE TO LINE_TAB-RATE.
      B_DIVIDE = 0.
    ENDIF.
    B_AMOUNT_ITEM = LINE_TAB-RATE * VBRP-FKIMG.
  add line_tab-rate to b_invrate.
    ADD B_AMOUNT_ITEM TO B_INVRATE.
    MOVE B_AMOUNT_ITEM TO LINE_TAB-AMOUNT.
    MOVE VBRP-VRKME TO LINE_TAB-UOM.
    B_TOTAL_TAX = 0.
   write : / 'before loop' , vbrp-posnr.
    LOOP AT TKOMV WHERE KPOSN EQ VBRP-POSNR AND KNUMV = VBRK-KNUMV.
     write : / vbrp-posnr , tkomv-kposn.
      IF TKOMV-KSCHL IN CTYPE.
        B_TOTAL_TAX = B_TOTAL_TAX +
                  ( ( ( TKOMV-KBETR * TKOMV-KAWRT ) * 100 ) / 100000 ).
       b_total_tax = b_total_tax + tkomv-kwert.
        ADD TKOMV-KWERT TO B_INVSTAX.
      ENDIF.
      IF TKOMV-KSCHL EQ 'ZOCT'.
        ADD TKOMV-KWERT TO B_INVOCTROI.
      ENDIF.
      IF TKOMV-KSCHL EQ 'ZF00' OR TKOMV-KSCHL EQ 'ZF01'.
        ADD TKOMV-KWERT TO B_INVFORCHARGE.
      ENDIF.
      IF TKOMV-KSCHL EQ 'ZIN6'.
        ADD TKOMV-KWERT TO B_INVTOT.
      ENDIF.
    ENDLOOP.
    B_SURCHARG = 'N'.
    B_TOT = 0.
    SORT TKOMV BY KSCHL.
    LOOP AT TKOMV WHERE KPOSN EQ VBRP-POSNR AND KNUMV = VBRK-KNUMV AND
                                                KSCHL IN CTYPE.
      IF TKOMV-KSCHL = 'ZIN1' OR TKOMV-KSCHL = 'ZIN2'.
        B_TAX = TKOMV-KBETR / 10.
      ENDIF.
      IF TKOMV-KSCHL = 'ZIN3'.
        B_TAX = B_TAX + ( B_TAX * ( TKOMV-KBETR / 10 ) / 100 ).
      ENDIF.
      IF TKOMV-KSCHL = 'ZIN4'.
        B_TAX = B_TAX + ( B_TAX * ( TKOMV-KBETR / 10 ) / 100 ).
        B_SURCHARG = 'Y'.
      ENDIF.
    ENDLOOP.
    LOOP AT TKOMV WHERE KSCHL = 'ZIN6'.
      B_TOT = TKOMV-KBETR / 10.
    ENDLOOP.
    MOVE B_TOTAL_TAX TO LINE_TAB-B_TAXAMOUNT_LINE.
    " b_tax =  ( line_tab-b_taxamount_line / line_tab-amount ) * 100.
    MOVE B_TAX TO LINE_TAB-STAX .
    MOVE B_TOT TO LINE_TAB-OTAX.
**Recently added**
    B_AMOUNT_ITEM = 0.
    B_TOTAL_TAX = 0.
    B_TAX = 0.
    B_TOT = 0.
   b_invrate = 0.
***till here
    APPEND LINE_TAB.
  ENDSELECT.
  PERFORM PRINTTEXT.
ENDFORM.
END-OF-SELECTION .
      FORM WRITEITEMS                                               *
FORM WRITEITEMS.
  DATA : POPULATE TYPE I.
  PERFORM SELECTDATA.
  DESCRIBE TABLE INV_TAB LINES POPULATE.
  IF POPULATE NE 0.
    LOOP AT INV_TAB.
      ULINE AT 5(83).
      AT FIRST.
        WRITE : /5 '|'  ,10 '|SALES DOCUMENT NO' COLOR 3,
                30 '|DELIVERY DOCUMENT NO' COLOR 3,
                52 '|PAYER..      ' COLOR 3 ,
                87 '|'.
        ULINE AT /5(83).
      ENDAT.
      SELECT * FROM VBRK WHERE VBELN EQ INV_TAB-BILLNO.
      CLEAR LIKP-VBELN.
      IF VBRK-RFBSK = 'C'.
        MOVE VBRK-VBELN TO HEAD_TAB-DOCNO.
        MOVE VBRK-FKDAT TO HEAD_TAB-DOCDT.
        SELECT * FROM VBFA WHERE VBELN EQ VBRK-VBELN.
                  "      and vbtyp_v ca 'JBGC'.
          IF  VBFA-VBTYP_V EQ 'G' OR VBFA-VBTYP_V EQ 'C'.
            B_IFSERVICEORDER = 'F'.
          ENDIF.
          IF VBFA-VBTYP_V = 'J'.
             B_IFSERVICEORDER = 'T'.
          ENDIF.
        ENDSELECT.
        IF B_IFSERVICEORDER EQ 'T'.
          SELECT SINGLE * FROM VBFA WHERE VBELN EQ VBRK-VBELN
          AND VBTYP_V EQ 'J'.
          SELECT * FROM LIKP WHERE VBELN EQ VBFA-VBELV.
            IF SY-SUBRC NE 4.
              SELECT SINGLE * FROM KNA1 WHERE KUNNR EQ VBRK-KUNRG.
              IFSELECTED = 'X'.
              WRITE : /5 '|' ,8 IFSELECTED AS CHECKBOX ,10 '|',
                      11 VBRK-VBELN ,30 '|' ,31 LIKP-VBELN ,52 '|',
                      53 KNA1-NAME1 ,87 '|', LIKP-WERKS.
              ULINE AT /5(83).
              B_RECCOUNT = B_RECCOUNT + 1.
            ENDIF.
          ENDSELECT.
        ELSE.
          SELECT SINGLE * FROM KNA1 WHERE KUNNR EQ VBRK-KUNRG.
          IFSELECTED = 'X'.
          WRITE : /5 '|' ,8 IFSELECTED AS CHECKBOX ,10 '|',
                  11 VBRK-VBELN ,30 '|' ,31 LIKP-VBELN ,52 '|',
                  53 KNA1-NAME1 ,87 '|', LIKP-WERKS.
          ULINE AT /5(83).
          B_RECCOUNT = B_RECCOUNT + 1.
        ENDIF.
        ELSE.
          IFSELECTED = ' '.
    CASE VBRK-RFBSK.
       WHEN 'A'.
       TXT = 'Billing document blocked for forwarding to FI'.
       WHEN 'B'.
       TXT = 'Posting document not created (account determ.error)'.
       WHEN 'D'.
       TXT = 'Billing document is not relevant for accounting'.
       WHEN 'E'.
       TXT = 'Billing document has been completed by cancellation'.
       WHEN 'F'.
       TXT = 'Posting document not created (pricing error)'.
       WHEN 'G'.
       TXT = 'Posting document not created (export data missing)'.
       WHEN 'H'.
       TXT = 'Posting using invoice list'.
       WHEN 'I'.
      TXT = 'Posting using invoice list (account determination error)'.
      WHEN 'J'.
      TXT = 'Accounting document created, accrual still incomplete'.
      ENDCASE.
          ULINE AT /5(83).
          WRITE : /5 '|' ,8 IFSELECTED  AS CHECKBOX INPUT OFF ,10 '|',
                  11 VBRK-VBELN ,30 '|' ,52 '|',
                  53 KNA1-NAME1 ,87 '|', LIKP-WERKS.
          ULINE AT /5(83).
          WRITE :/5 '|' , 8 TXT , 87 '|'.
          ULINE AT /5(83).
        ENDIF.
      ENDSELECT.
    ENDLOOP.
  ENDIF.
ENDFORM.
AT USER-COMMAND.
  DATA : CHECK(1).
  DATA : TOTALLINES LIKE SY-INDEX.
  START = 4.
  REFRESH LINE_TAB.
  REFRESH SER_TAB.
  B_PRNUCOMM = SY-UCOMM.
  DESCRIBE TABLE I_TAB LINES TOTALLINES.
  IF SY-UCOMM NE 'NEXT' AND SY-UCOMM NE 'LAST'.
do b_reccount times.
    REFRESH I_TAB.
    DO.
      READ LINE START FIELD VALUE IFSELECTED INTO CHECK.
      IF SY-SUBRC EQ 0.
        IF CHECK EQ 'X'.
          READ LINE START FIELD VALUE LIKP-VBELN INTO I_TAB-SDNO.
          READ LINE START FIELD VALUE VBRK-VBELN INTO I_TAB-INVO.
       SELECT SINGLE * FROM VBFA WHERE VBELN EQ I_TAB-INVO
                                      AND VBTYP_V EQ 'C'.
        SELECT SINGLE * FROM VBRK WHERE VBELN EQ I_TAB-INVO.
          I_TAB-ORNO = VBRK-ZUONR.
          APPEND I_TAB.
          CLEAR I_TAB.
          CHECK = ' '.
        ENDIF.
        START = START + 2.
      ELSE.
        EXIT.
      ENDIF.
    ENDDO.
  ENDIF.
  DATA : B_UCOMM LIKE SY-UCOMM.
  MOVE SY-UCOMM TO B_UCOMM.
  CASE B_UCOMM.
    WHEN 'NEXT'.
      RECNO = RECNO + 1.
      IF RECNO GT TOTALLINES.
        RECNO = 1.
      ENDIF.
       read table i_tab index recno.
       perform sold_to_party_change using i_tab-invo.
      PERFORM MAIN.
    WHEN 'LAST'.
      RECNO = RECNO - 1.
      IF RECNO LT 1.
        RECNO = 1.
      ENDIF.
       read table i_tab index recno.
       perform sold_to_party_change using i_tab-invo.
      PERFORM MAIN.
    WHEN 'PRIN'.
       read table i_tab index recno.
       set pf-status '101'.
       perform sold_to_party_change using i_tab-invo.
      PRINT-CONTROL FUNCTION 'CI015'.
      PERFORM MAIN.
    WHEN 'PREV'.
      READ TABLE I_TAB INDEX RECNO.
     NEW-PAGE PRINT OFF NO-TITLE NO-HEADING LINE-SIZE 132 LINE-COUNT 65.
     set pf-status '102'.
     perform sold_to_party_change using i_tab-invo.
      PRINT-CONTROL FUNCTION 'CI015'.
      PERFORM MAIN.
    WHEN 'QUIT'.
      LEAVE SCREEN .
      EXIT.
  ENDCASE.
      FORM PRINTTEXT                                                *
FORM PRINTTEXT.
  PERFORM READTEXT USING '0002' 'VBBK'.
  PERFORM READTEXT USING '0003' 'VBBK'.
  PERFORM READTEXT USING '0004' 'VBBK'.
  PERFORM READTEXT USING '0012' 'VBBK'.
  PERFORM READTEXT USING '0013' 'VBBK'.
  PERFORM READTEXT USING '0022' 'VBBK'.
  PERFORM READTEXT USING 'Z103' 'VBBP' .
  PERFORM READTEXT USING 'Z104' 'VBBP' .
added by praveen as per selvam's request.
  IF FKART = 'FV'.
  PERFORM READTEXT USING 'ZIS1' 'VBBK'.
  PERFORM READTEXT USING 'ZIS2' 'VBBK'.
  ENDIF.
ENDFORM.
      FORM READTEXT                                                 *
-->  B_ID                                                          *
FORM READTEXT USING B_ID B_OBJECT.
  DATA : BEGIN OF HEADER1 OCCURS 0.
          INCLUDE STRUCTURE THEAD.
  DATA : END OF HEADER1.
  DATA : BEGIN OF LINE1 OCCURS 0.
          INCLUDE STRUCTURE TLINE.
  DATA : END OF LINE1.
  DATA : B_NAME LIKE THEAD-TDNAME.
  B_NAME = I_TAB-SDNO.
  PERFORM FILL_CHAR(ZURL) USING 10 '0' I_TAB-SDNO CHANGING B_NAME.
added by praveen to pick up from and to date for invoice.
  IF B_ID = 'ZIS1' OR B_ID = 'ZIS2'.
       B_NAME = I_TAB-INVO.
  ENDIF.
  IF B_OBJECT = 'VBBP'.
    CONCATENATE I_TAB-ORNO VBRP-POSNR INTO B_NAME.
  ENDIF.
  CALL FUNCTION 'READ_TEXT'
       EXPORTING
           ID                       = B_ID
           LANGUAGE                 = 'E'
            NAME                    = B_NAME
            OBJECT                  = B_OBJECT
        header                    = header1
   IMPORTING
           HEADER                   = HEADER1
       TABLES
            LINES                   = LINE1
       EXCEPTIONS
            ID                      = 1
            LANGUAGE                = 2
            NAME                    = 3
            NOT_FOUND               = 4
            OBJECT                  = 5
            REFERENCE_CHECK         = 6
            WRONG_ACCESS_TO_ARCHIVE = 7
            OTHERS                  = 8.
  DATA : LINE(40).
  LOOP AT LINE1.
    LINE = LINE1-TDLINE.
  ENDLOOP.
  CASE B_ID.
    WHEN '0002'.
      HEAD_TAB-CARNAME = LINE.
    WHEN '0012'.
      HEAD_TAB-SPSHIPI = LINE.
    WHEN '0013'.
      HEAD_TAB-SPCARIN = LINE.
    WHEN '0003'.
      HEAD_TAB-LRNO = LINE.
    WHEN '0004'.
      HEAD_TAB-LRDT = LINE.
    WHEN '0022'.
      HEAD_TAB-MODEPAY = LINE.
    WHEN 'Z103'.
      HEAD_TAB-CSTNO = LINE.
    WHEN 'Z104'.
      HEAD_TAB-LSTNO = LINE.
    WHEN 'ZIS1'.
      HEAD_TAB-FROMDATE = LINE.
      CONDENSE HEAD_TAB-FROMDATE NO-GAPS.
     WHEN 'ZIS2'.
      HEAD_TAB-ENDDATE = LINE.
      CONDENSE HEAD_TAB-ENDDATE NO-GAPS.
  ENDCASE.
ENDFORM.
      FORM INIT                                                     *
FORM INIT.
  CLEAR HEAD_TAB.
  REFRESH LINE_TAB.
  CLEAR LINE_TAB.
  REFRESH SER_TAB.
  CLEAR SER_TAB.
  B_DIFFCOUNT = 0.
  B_COUNTOFRECORDS = 0.
  B_ORDERREFNO = ' '.
  B_RATEFORITEM = ' '.
  B_TOTALAMOUNT = 0.
  B_CUSTOMERNO = ' '.
  B_RECORDCOUNTER = 0.
  B_AMOUNTINWORDS = ' '.
  B_DECIMALAMOUNTINWORDS = ' '.
  B_AMOUNTINWORDSFINAL = ' '.
  B_CUSTOMERCODE = ' '.
  B_STRINGLENGTH = 0.
  B_INVNO = ' '.
  B_RECCOUNT = 0 .
  START = 0.
  IFSELECTED = ' '.
  ANS = ' '.
ENDFORM.
      FORM GETTAX                                                   *
-->  INVO                                                          *
FORM GETTAX USING INVO.
  DATA: BEGIN OF TKOMVD OCCURS 0.
          INCLUDE STRUCTURE KOMVD.
  DATA: END OF TKOMVD.
  DATA: BEGIN OF COMM_ITEM_E OCCURS 0.
          INCLUDE STRUCTURE KOMP .
  DATA: END OF COMM_ITEM_E.
  REFRESH TKOMV.
  MOVE 'I' TO CTYPE-SIGN.
  MOVE 'BT' TO CTYPE-OPTIONS.
  MOVE 'ZIN4' TO CTYPE-HIGH.
  MOVE 'ZIN1' TO CTYPE-LOW.
  APPEND CTYPE.
  SELECT SINGLE * FROM VBRK WHERE VBELN = INVO.
  MOVE-CORRESPONDING VBRK TO KOMK.
  CALL FUNCTION 'RV_PRICE_PRINT_ITEM'
       EXPORTING
            COMM_HEAD_I = KOMK
            COMM_ITEM_I = KOMP
       TABLES
            TKOMV       = TKOMV
            TKOMVD      = TKOMVD
       EXCEPTIONS
            OTHERS      = 1.
SUB TOTAL AMOUNT
  LOOP AT TKOMV .
    IF TKOMV-KSCHL EQ 'ZSRP'.
      HEAD_TAB-STAMT = HEAD_TAB-STAMT + TKOMV-KWERT.
    ENDIF.
  ENDLOOP.
*SALES TAX AMOUNT
SELECT * FROM VBRP WHERE VBELN EQ INVO AND FKIMG NE 0. "changed on 15/4
    LOOP AT TKOMV WHERE KPOSN EQ VBRP-POSNR.
      IF TKOMV-KSCHL IN CTYPE.
        HEAD_TAB-STAXAMT = HEAD_TAB-STAXAMT +  TKOMV-KWERT.
      ENDIF.
    ENDLOOP.
  ENDSELECT.
FORWARDING CHARGES
  LOOP AT TKOMV.
    IF TKOMV-KSCHL EQ 'ZF00'.
      HEAD_TAB-FCHRG = HEAD_TAB-FCHRG + TKOMV-KWERT.
    ENDIF.
    IF TKOMV-KSCHL EQ 'ZIN6'.
      HEAD_TAB-OCHRG = HEAD_TAB-OCHRG + TKOMV-KWERT.
    ENDIF.
  ENDLOOP.
*grand total
  CLEAR HEAD_TAB-GTOTAL.
  HEAD_TAB-GTOTAL = HEAD_TAB-GTOTAL + HEAD_TAB-FCHRG.
  HEAD_TAB-GTOTAL = HEAD_TAB-GTOTAL + HEAD_TAB-STAXAMT.
  HEAD_TAB-GTOTAL = HEAD_TAB-GTOTAL + HEAD_TAB-STAMT.
  HEAD_TAB-GTOTAL = HEAD_TAB-GTOTAL + HEAD_TAB-OCHRG.
  PERFORM CONVERT.
ENDFORM.
*&      Form  GETCST-LST
FORM GETCST-LST USING B_REGION.
  SELECT SINGLE * FROM SADR WHERE ADRNR EQ B_REGION.
  MOVE SADR-TELTX TO HEAD_TAB-PLSTNO.
  MOVE SADR-TELX1 TO HEAD_TAB-PCSTNO.
ENDFORM.                               " GETCST-LST
*&      Form  ALIGNWRITE
FORM ALIGNWRITE.
*set pf-status '102'.
  PERFORM HEADER.
  DATA : LINECTR TYPE I VALUE 0.
  DATA : B_RATE(12),B_AMOUNT(13).
  DATA : B_SCOUNT TYPE I VALUE 0.
  DATA B_SRLNO TYPE I VALUE 0.
  DATA : B_FLAG TYPE I VALUE 0.
  DATA : B_SUBTOTAL LIKE VBRP-NETWR VALUE 0.
  LOOP AT LINE_TAB.
    ADD 1 TO LINECTR.
    ADD 1 TO B_SRLNO.
    B_RATE = LINE_TAB-RATE.
    B_AMOUNT = LINE_TAB-AMOUNT.
    WRITE : / ' ',7(4) B_SRLNO.
    WRITE :14 LINE_TAB-PRODCODE.
    WRITE :23 LINE_TAB-DESC.
    WRITE :67(3) LINE_TAB-UOM.
    WRITE :73(5) LINE_TAB-QTY RIGHT-JUSTIFIED.
    WRITE :80(14) LINE_TAB-RATE RIGHT-JUSTIFIED.
    B_SUBTOTAL = B_SUBTOTAL + LINE_TAB-AMOUNT.
    WRITE :95(12) LINE_TAB-AMOUNT RIGHT-JUSTIFIED.
    CONDENSE LINE_TAB-STAX NO-GAPS.
    LINE_TAB-STAX =
             ( LINE_TAB-B_TAXAMOUNT_LINE / LINE_TAB-AMOUNT ) * 100.
    WRITE :110 LINE_TAB-STAX(5).
    PERFORM IFENDOFPAGE USING LINECTR B_SUBTOTAL.
                                       " write :95 line_tab-otax.
    B_SCOUNT = 0.
    IF PRINTSL EQ 'X'.
      DESCRIBE TABLE SER_TAB LINES B_FLAG.
      IF B_FLAG NE 0.
        WRITE : / ' ',12 'Serial Nos :'.
        ADD 1 TO LINECTR.
      ENDIF.
      LOOP AT SER_TAB WHERE SLNO EQ LINE_TAB-SLNO.
        B_SCOUNT = B_SCOUNT + 1.
        WRITE : (18)SER_TAB-SERNO NO-GAP,'  '.
        IF B_SCOUNT EQ 3.
          WRITE : /23 ' '.
          ADD 1 TO LINECTR.
          B_SCOUNT = 0.
        ENDIF.
        PERFORM IFENDOFPAGE USING LINECTR B_SUBTOTAL.
      ENDLOOP.
      B_SCOUNT = 0.
    ENDIF.
  ENDLOOP.
  DATA : B_EXTRA TYPE I.
  B_EXTRA = 23 - LINECTR.
  DO B_EXTRA TIMES.
    WRITE : ' ' ,/.
  ENDDO.
  PERFORM FOOTER.
ENDFORM.                               " ALIGNWRITE
**form footer **
FORM FOOTER.
  WRITE :/ ' '.
  WRITE :/ ' ',24 HEAD_TAB-BILLCUR,58 B_INVRATE,
          101 HEAD_TAB-CARNAME+0(15).
  WRITE :/58 B_INVSTAX ,79 HEAD_TAB-CARNAME+15(20).
  WRITE :/54 'TOT:', HEAD_TAB-OCHRG ,95 HEAD_TAB-LRNO.
  WRITE :/58 B_INVFORCHARGE , 89 HEAD_TAB-LRDT.
  WRITE :/17 HEAD_TAB-LSTNO,58 B_INVOCTROI , 99 HEAD_TAB-MODEPAY.
HEAD_TAB-GTOTAL = B_INVRATE + B_INVSTAX + B_INVOCTROI + B_INVFORCHARGE.
  WRITE :/17 HEAD_TAB-CSTNO,61 HEAD_TAB-GTOTAL.
  PERFORM CONVERT.
  WRITE :/ ' ',/,/.
  WRITE :/17 HEAD_TAB-PLSTNO4(31),44 B_AMOUNTINWORDS0(100).
  WRITE :/17 HEAD_TAB-PCSTNO4(31),44 B_AMOUNTINWORDS100(100).
  WRITE : /.
ENDFORM.
*HEADER INFO PRINTING*
FORM HEADER.
  DATA : B_POREF(35).
*concatenate head_tab-poref '/' head_tab-podat into b_poref.
  CONDENSE HEAD_TAB-PODAT.
  CONDENSE HEAD_TAB-POREF.
  FORMAT INTENSIFIED OFF.
  WRITE : / ' ',/,/.                   "a line feed is removed
  WRITE : / '  ',83 HEAD_TAB-PNAM1.
  WRITE : / '  ',83 HEAD_TAB-PNAM2.
  WRITE : / '  ',83 HEAD_TAB-PNAM3.
  PRINT-CONTROL FUNCTION 'CI010'.
  WRITE : /13 HEAD_TAB-DOCNO,61 HEAD_TAB-DOCDT.
  PRINT-CONTROL FUNCTION 'CI015'.
  WRITE : '  ',86 HEAD_TAB-PNAM5.
  WRITE :/83 HEAD_TAB-PNAM4.
  WRITE : / ' ',/, 90 HEAD_TAB-SPSHIPI+0(30).
  WRITE : /8 SOLDP_TAB-NAME ,47 SHIPP_TAB-NAME,
            90 HEAD_TAB-SPSHIPI+30(10).
  WRITE : / ' ',8 SOLDP_TAB-ADD1 , 47 SHIPP_TAB-ADD1.
  WRITE : / ' ',8 SOLDP_TAB-ADD2 , 47 SHIPP_TAB-ADD2.
  WRITE : / ' ',8 SOLDP_TAB-ADD6 , 47 SHIPP_TAB-ADD6,
                90 HEAD_TAB-SPCARIN+0(30).
  WRITE : / ' ',8 SOLDP_TAB-ADD3 , 47 SHIPP_TAB-ADD3,
             90 HEAD_TAB-SPCARIN+30(10).
  WRITE : / ' ',8 SOLDP_TAB-ADD4 , 47 SHIPP_TAB-ADD4.
  WRITE : / ' ',25 HEAD_TAB-CCODE ,68 HEAD_TAB-CPERSON ,
               109 HEAD_TAB-SALESOR,/.
  MOVE HEAD_TAB-PODAT TO B_STR.
  CONCATENATE B_STR6(2) '.' B_STR4(2) '.' B_STR+2(2) INTO B_STR.
  CONCATENATE HEAD_TAB-POREF '/' B_STR INTO B_STR.
  MOVE B_STR TO HEAD_TAB-POREF.
  WRITE : / ' ',25 B_STR.
  WRITE : ' ',64 HEAD_TAB-TPHONE NO-ZERO,109 HEAD_TAB-SALOF.
  WRITE : / ' ',/,/,/,/.
ENDFORM.
      FORM CONVERT                                                  *
FORM CONVERT.
  DATA : B_WORDS(100).
  DATA : B_DECIS(100).
  DATA : TEMP1(40).
  DATA : TEMP2(40).
  CALL FUNCTION 'Z_CONVERSION_TO_WORDS'
       EXPORTING
            AMOUNT    = HEAD_TAB-GTOTAL
       IMPORTING
            IN_WORDS  = B_WORDS
            IN_DECMS  = B_DECIS
       EXCEPTIONS
            TOO_LARGE = 1
            OTHERS    = 2.
  MOVE HEAD_TAB-GTOTAL TO TEMP1.
  SPLIT TEMP1 AT '.' INTO TEMP1 TEMP2.
  IF HEAD_TAB-BILLCUR EQ 'INR'.
    IF TEMP2 NE '00'.
      CONCATENATE 'Rupees' B_WORDS 'and paise' B_DECIS
                  INTO B_AMOUNTINWORDS SEPARATED BY SPACE.
    ELSE.
      CONCATENATE 'Rupees' B_WORDS B_DECIS
                  INTO B_AMOUNTINWORDS SEPARATED BY SPACE.
    ENDIF.
  ELSE.
    CONCATENATE HEAD_TAB-BILLCUR B_WORDS B_DECIS
                INTO B_AMOUNTINWORDS SEPARATED BY SPACE.
  ENDIF.
ENDFORM.
      FORM GETTAXFORLINEITEMS                                       *
-->  INVO                                                          *
FORM GETTAXFORLINEITEMS USING INVO.
  DATA: BEGIN OF TKOMVD OCCURS 0.
          INCLUDE STRUCTURE KOMVD.
  DATA: END OF TKOMVD.
  CLEAR CTYPE.
  CLEAR KOMK.
  SELECT SINGLE * FROM VBRK WHERE VBELN = INVO.
  MOVE-CORRESPONDING VBRK TO KOMK.
  CALL FUNCTION 'RV_PRICE_PRINT_ITEM'
       EXPORTING
            COMM_HEAD_I = KOMK
            COMM_ITEM_I = KOMP
       TABLES
            TKOMV       = TKOMV
            TKOMVD      = TKOMVD
       EXCEPTIONS
            OTHERS      = 1.
  DATA : B_TAX TYPE I.
*SALES TAX pervcentage for line items.
  MOVE 'I' TO CTYPE-SIGN.
  MOVE 'BT' TO CTYPE-OPTIONS.
  MOVE 'ZIN4' TO CTYPE-HIGH.
  MOVE 'ZIN1' TO CTYPE-LOW.
  APPEND CTYPE.
ENDFORM.
      FORM IFENDOFPAGE                                              *
-->  LINECTR                                                       *
-->  B_SUBTOTAL                                                    *
FORM IFENDOFPAGE USING LINECTR B_SUBTOTAL.
  IF LINECTR EQ 19.
    WRITE : / ' ',/,10 'Carried forward '.
    PERFORM PUTALINE.
    WRITE :83 B_SUBTOTAL.
    ADD 1 TO LINECTR.
                                       "do 37 times.
    DO 24 TIMES.
      WRITE : ' ',/.
    ENDDO.
    PERFORM HEADER.
    WRITE : /10 'Brought forward'.
    PERFORM PUTALINE.
    WRITE : 83 B_SUBTOTAL.
    LINECTR = 1.
  ENDIF.
ENDFORM.
      FORM PUTALINE                                                 *
FORM PUTALINE.
  DO 27 TIMES.
    WRITE : '-'.
  ENDDO.
  WRITE '>'.
ENDFORM.
      FORM ERRORCHECK                                               *
-->  SY-SUBRC                                                      *
FORM ERRORCHECK USING SY-SUBRC.
  IF SY-SUBRC NE 0.
    PERFORM WIN_INFO(ZURL) USING 'Error' 'Document does not exists'
                                 'Please re-enter the doc #'.
    SET SCREEN 1000.
    LEAVE SCREEN.
    EXIT.
  ENDIF.
ENDFORM.
      FORM SOLD_TO_PARTY_CHANGE                                     *
-->  B_INVNO                                                       *
FORM SOLD_TO_PARTY_CHANGE USING B_INVNO.
*TO CHANGE THE SOLD TO PARTY FOR THE BILLING DOCUMENT.
  DATA : BEGIN OF NEW_SHIP_TAB OCCURS 0.
  DATA : DESC(20).
  DATA : CUSTCODE LIKE KNA1-KUNNR.
  DATA : DUMMY(5).
  DATA : CUSTNAME LIKE KNA1-NAME1.
  DATA : END OF NEW_SHIP_TAB.
  DATA : B_TABIX LIKE SY-TABIX.
  DATA : B_SOLDCODE LIKE KNA1-KUNNR.
  DATA : B_PAYCODE LIKE KNA1-KUNNR.
  SELECT * FROM VBPA WHERE VBELN EQ B_INVNO
                            AND PARVW IN ('RE','WE','AG').
    SELECT SINGLE * FROM KNA1 WHERE KUNNR EQ VBPA-KUNNR.
    MOVE KNA1-NAME1 TO NEW_SHIP_TAB-CUSTNAME.
    MOVE KNA1-KUNNR TO NEW_SHIP_TAB-CUSTCODE.
    MOVE '      ' TO NEW_SHIP_TAB-DUMMY.
    CASE VBPA-PARVW.
      WHEN 'WE'.
        MOVE 'SHIP TO PARTY' TO NEW_SHIP_TAB-DESC.
        MOVE KNA1-KUNNR TO B_PAYCODE.
      WHEN 'RE'.
        MOVE KNA1-KUNNR TO B_SOLDTOPARTYCODE.
        MOVE 'PAYER        ' TO NEW_SHIP_TAB-DESC.
      WHEN 'AG'.
        MOVE KNA1-KUNNR TO B_SOLDCODE.
        MOVE 'SOLD TO PARTY' TO NEW_SHIP_TAB-DESC.
    ENDCASE.
    APPEND NEW_SHIP_TAB.
  ENDSELECT.
  B_SPCFLAG = 'F'.
  IF B_SOLDCODE NE B_SOLDTOPARTYCOD

Answer 1

Hi Sanjeev ,
Please observe your code carefully.
You say you have assigned your form name in the Print Program ,but i am not able to find it.
Your program uses the Subroutine
PERFORM OPENFORM USING 'ZINVOICEDUMMY'
where the 'ZINVOICEDUMMY' is the parameter value your are passing for FORM but your form name is zinv.
so you have to pass your form name using this subroutine.
PERFORM OPENFORM USING 'ZINV'
FORM OPENFORM USING B_FORMNAME.
CALL FUNCTION 'OPEN_FORM'
EXPORTING
FORM = B_FORMNAME
OPTIONS = ITCPO
DEVICE = B_ELEMENT
IMPORTING
RESULT = ITCPP
EXCEPTIONS
CANCELLED = 1
DEVICE = 2
FORM = 3
OPTIONS = 4
UNCLOSED = 5
OTHERS = 6.
ENDFORM.
Regards,
AShwini