Processing routine ENTRY_NEU in program ZSK_PO does not exist ?

[Former Member]

Hi People,

I have created a zform for purchase order and have assigned it to NACE.

Now everything works fine, i could take print as well as see the preview. Now the problem is after everything gets processed im getting the following message at the bottom of the purchase order :

' Processing routine ENTRY_NEU in program ZSK_PO does not exist

Message no. VN068 '

when i searched the thread i got the following solution but i dont know how to do it ? is this the correct solution , if yes can u people tel me how to do it ?

my return code is : 999

us_screen : 'X'

solution :

I found out what the problem was. Apparently, I had to change a return code to avoid this error. Thx anyway

thanks,

siva

[Former Member · Accepted solution]

Enclose all your code in ZSK_PO within;

Form ENTRY_NEU.
"Your program code should come here
EndForm.

This will solve your problem.

Regards

Karthik D

[Former Member · Accepted solution]

Hi karthik,

i have done that....all my code are within form ...endform.

i think we should do something with return code or shud use FM : nast_protocol_update

thanks,

siva.

[Former Member · Accepted solution]

Are you accessing details from NAST?

[Former Member · Accepted solution]

Hi Vishwaa & Karthik,

I cleared the returncode inside the routine and now its working fine.

and the other problem tat im facing is my Pur.Ord paper size is 255 * 300 mm....

i have changed the paper size in windows XP to 8.5 * 12 inch ( this is the max size available in windows)

already i have created a new page format of size (255 * 300 mm) .........but when printing the form.....

the end portion ( horizontally ) is not printing..... can you people tel me where and how should i change the settings to print the form properly ? ( windows or sap ) ?

thanks,

Siva.

[Former Member · Accepted solution]

Have you tried DINA3 Format ?. Even though its big to your requirement try using appropriate position of texts and check it.

Regards

Karthik D

[Former Member · Accepted solution]

Hi,

Im using continuos sheets and dotmatrix printer , so if i use DINA3 the total alignment will change in the second page ? after printing the printer should stop at the end of 30 cm .. then only my alignment in the second page will be proper.if i use dina3 , the printer will stop at that the end of 42nd cm ?

thanks,

siva

[mauriciolauffer]

If your program is working as expected, make sure that return code in variable "ENT_RETCO" is clear before you leave the FORM ENTRY_NEW.

[bandal_amol]

Hello Please try this code , It will 100% work.

REPORT  ZSD_SFPL_EXCISE_INV.

TABLES :NAST.

TABLES : VBAK,VBAP,VBRK,VBRP,J_1IEXCHDR,J_1IEXCDTL,J_1IMOCUST,LIKP,LIPS,VBKD.

DATA : FM_NAME TYPE RS38L_FNAM.

DATA : IT_VBRK LIKE VBRK OCCURS 0 WITH HEADER LINE,

IT_VBRP LIKE VBRP OCCURS 0 WITH HEADER LINE,

IT_VBKD LIKE VBKD OCCURS 0 WITH HEADER LINE,

IT_LIPS LIKE LIPS OCCURS 0 WITH HEADER LINE.

DATA : IT_CHDR LIKE J_1IEXCHDR OCCURS 0 WITH HEADER LINE,

IT_CDTL LIKE J_1IEXCDTL OCCURS 0 WITH HEADER LINE,

IT_KNA1 LIKE KNA1 OCCURS 0 WITH HEADER LINE,

IT_ADRC LIKE ADRC OCCURS 0 WITH HEADER LINE,

IT_KONV LIKE KONV OCCURS 0 WITH HEADER LINE,

IT_T001W LIKE T001W OCCURS 0 WITH HEADER LINE,

IT_LIKP LIKE LIKP  OCCURS 0 WITH HEADER LINE,

IT_J_1IMOCUST LIKE J_1IMOCUST OCCURS 0 WITH HEADER LINE.

*****************************************************

**********Changes By Amol for Company Name Change*****220811

DATA: BEGIN OF IT_T001 ,

BUKRS TYPE T001-BUKRS,

ADRNR TYPE T001-ADRNR,

END OF IT_T001.

DATA: BEGIN OF IT_ADRC1,

ADDRNUMBER TYPE ADRC-ADDRNUMBER,

NAME1 TYPE ADRC-NAME1,

END OF IT_ADRC1.

DATA: C_NAME LIKE ADRC-NAME1.

**********Changes End By Amol*****22.08.2011*********

DATA : VAL_RATE LIKE KONV-KWERT,

       VAL_BED LIKE KONV-KWERT,

       VAL_BEDP LIKE KONV-KBETR,

       VAL_ECESS LIKE KONV-KWERT,

       VAL_ECESSP LIKE KONV-KBETR,

       VAL_SHCESS LIKE KONV-KWERT,

       VAL_SHCESSP LIKE KONV-KBETR,

       VAL_VAT LIKE KONV-KWERT,

       VAL_VATP LIKE KONV-KBETR,

       VAL_CST LIKE KONV-KWERT,

*************       23.05.2011

       VAL_DIFF LIKE KONV-KWERT,

       VAL_CSTP LIKE KONV-KBETR,

       VAL_DISC LIKE KONV-KWERT,

       VAL_DISCP LIKE KONV-KBETR,

       VAL_ZDIC LIKE KONV-KWERT,            "new condio type define for ZNPK

       VAL_ZDICP LIKE KONV-KBETR,           "new condion type define for ZNPK

************************FREIGHT CONDION ADDED 17.06.2011********************

       VAL_ZD00 LIKE KONV-KWERT,

       VAL_ZD00P LIKE KONV-KBETR,

       VAL_ZKF0 LIKE KONV-KWERT,

       VAL_ZKF0P LIKE KONV-KBETR,

       VAL_ZKFD LIKE KONV-KWERT,

       VAL_ZKFDP LIKE KONV-KBETR,

*********************END OF FRIGHT CONDTION**************************

       VAL_AMOT LIKE KONV-KWERT,

       VAL_AMOT1 LIKE KONV-KWERT,

       VAL_TCS LIKE KONV-KWERT,

       VAL_TCSP LIKE KONV-KBETR,

       SUB_TOT LIKE KONV-KWERT,

       SUB_SUM LIKE KONV-KWERT,

       SUB_SUB LIKE KONV-KWERT,

       TOTAL LIKE KONV-KWERT,

       CESS LIKE KONV-KWERT,

       TOTAL_WORDS TYPE C LENGTH 200,

       DUTY_WORDS TYPE C LENGTH 200,

       TESS_WORDS TYPE C LENGTH 200,

       CESS_WORDS TYPE C LENGTH 200,

       TOT_QTY LIKE VBRP-FKIMG,

       VAL_BSTKD LIKE VBKD-BSTKD,

       VAL_BSTDK LIKE VBKD-BSTDK,

       VTEXT LIKE TVZBT-VTEXT,

       CHAPID LIKE J_1IMTCHID-J_1ICHID.

DATA : AMT_IN_NUM LIKE PC207-BETRG.

DATA : VBELN LIKE VBRK-VBELN.

DATA  : MRP TYPE KONV-KWERT.

DATA  : MRP1 TYPE KONV-KWERT.

*&---------------------------------------------------------------------*

*&      Form  ENTRY

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

*      -->RETURN_CODE  text

*      -->US_SCREEN    text

*----------------------------------------------------------------------*

FORM ENTRY USING RETURN_CODE US_SCREEN.

  DATA : RETCODE LIKE SY-SUBRC.

  DATA : LF_RETCODE TYPE SY-SUBRC.

  DATA : XSCREEN(1) TYPE C.

  DATA : REPEAT(1) TYPE C.

  DATA : NAST_ANZAL LIKE NAST-ANZAL.

  DATA : NAST_TDARMOD LIKE NAST-TDARMOD.

  DATA : GF_LANGUAGE LIKE SY-LANGU.

  CLEAR RETCODE.

  XSCREEN = US_SCREEN.

  VBELN = NAST-OBJKY.

*to display Invoice only if FI Document is generated for the Invoice

  TABLES: BKPF.

  DATA : IT_BKPF TYPE STANDARD TABLE OF BKPF.

  DATA: V_VBELN TYPE VBELN_VF.

  DATA: BEGIN OF IT_VBRP OCCURS 1,

        VBELN TYPE VBRP-VBELN,

        POSNR TYPE VBRP-POSNR,

        PSTYV TYPE VBRP-PSTYV,

        END OF IT_VBRP.

  V_VBELN = NAST-OBJKY.

  SELECT * FROM BKPF INTO TABLE IT_BKPF UP TO 1 ROWS WHERE AWTYP EQ 'VBRK'  AND

                                                           AWKEY EQ V_VBELN AND

                                                           AWSYS EQ SPACE.

  IF SY-SUBRC NE 0.

    SELECT VBELN

           POSNR

           PSTYV

           FROM VBRP

           INTO TABLE IT_VBRP

           WHERE VBELN = V_VBELN.

    DELETE IT_VBRP WHERE PSTYV = 'KLN'.

    IF NOT IT_VBRP[] IS INITIAL.

      MESSAGE 'FI Document is not created for the Invoice' TYPE 'E' DISPLAY LIKE 'I'.

    ENDIF.

  ENDIF.

  PERFORM GET_DATA.

  PERFORM CALLFORM.

  PERFORM CLEAR_DATA.

  IF LF_RETCODE NE 0.

    RETURN_CODE = 1.

  ELSE.

    RETURN_CODE = 0.

  ENDIF.

ENDFORM.                    "ENTRY

*&---------------------------------------------------------------------*

*&      Form  get_data

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

FORM GET_DATA.

  SELECT * FROM VBRK

  INTO TABLE IT_VBRK WHERE VBELN = VBELN.

  IF SY-SUBRC <> 0.

    MESSAGE 'Invoice Not Found' TYPE 'I'.

    LEAVE PROGRAM.

  ENDIF.

  SELECT SINGLE BUKRS ADRNR FROM T001 INTO  IT_T001

  WHERE BUKRS = '5011'.

  IF SY-SUBRC = 0.

    SELECT SINGLE ADDRNUMBER NAME1 FROM ADRC INTO  IT_ADRC1

    WHERE ADDRNUMBER = IT_T001-ADRNR.

  ENDIF.

  IF SY-SUBRC = 0.

    C_NAME = IT_ADRC1-NAME1.

  ENDIF.

  SELECT * FROM VBRP INTO TABLE IT_VBRP

  FOR ALL ENTRIES IN IT_VBRK WHERE VBELN = IT_VBRK-VBELN AND FKIMG <> ''.

  IF IT_VBRP[] IS NOT INITIAL.

    SELECT * FROM VBKD INTO TABLE IT_VBKD FOR ALL ENTRIES IN IT_VBRP

       WHERE VBELN = IT_VBRP-AUBEL.

    SELECT * FROM LIPS INTO TABLE IT_LIPS FOR ALL ENTRIES IN IT_VBRP

      WHERE VBELN = IT_VBRP-VGBEL.

    SELECT * FROM LIKP INTO TABLE IT_LIKP FOR ALL ENTRIES IN IT_LIPS WHERE

      VBELN = IT_LIPS-VBELN.

    SELECT * FROM KONV INTO TABLE IT_KONV FOR ALL ENTRIES IN IT_VBRK

    WHERE KNUMV = IT_VBRK-KNUMV.

  ENDIF.

  SELECT * FROM J_1IEXCHDR

  INTO TABLE IT_CHDR WHERE RDOC = VBELN.

  IF IT_CHDR[] IS NOT INITIAL.

    SELECT * FROM J_1IEXCDTL INTO TABLE IT_CDTL

    FOR ALL ENTRIES IN IT_CHDR WHERE DOCNO = IT_CHDR-DOCNO AND DOCYR = IT_CHDR-DOCYR.

  ENDIF.

  SELECT * FROM T001W INTO TABLE IT_T001W

    WHERE WERKS = '5431'.

  READ TABLE IT_VBRK INDEX 1.

  SELECT * FROM KNA1 INTO TABLE

  IT_KNA1 WHERE KUNNR = IT_VBRK-KUNAG.

  READ TABLE IT_KNA1 INDEX 1.

  SELECT * FROM J_1IMOCUST INTO TABLE IT_J_1IMOCUST WHERE KUNNR = IT_KNA1-KUNNR.

  LOOP AT IT_VBRP.

    READ TABLE IT_VBKD WITH KEY VBELN = IT_VBRP-AUBEL.

    READ TABLE IT_LIPS WITH KEY VBELN = IT_VBRP-VGBEL.

    IF SY-SUBRC = 0.

      READ TABLE IT_LIKP WITH KEY VBELN = IT_LIPS-VBELN.

    ENDIF.

    TOT_QTY = TOT_QTY + IT_VBRP-FKIMG.

    SELECT SINGLE BSTKD BSTDK INTO (VAL_BSTKD,VAL_BSTDK) FROM VBKD WHERE VBELN = IT_VBRP-AUBEL.

    SELECT SINGLE VTEXT FROM TVZBT INTO VTEXT WHERE ZTERM = IT_VBRK-ZTERM AND SPRAS = 'E'.

    SELECT SINGLE J_1ICHID FROM J_1IMTCHID INTO CHAPID WHERE MATNR = IT_VBRP-MATNR AND WERKS = IT_VBRP-WERKS.

    LOOP AT IT_KONV WHERE KNUMV = IT_VBRK-KNUMV

                    AND KPOSN = IT_VBRP-POSNR.

      CASE IT_KONV-KSCHL.

          WHEN'ZEX' OR 'ZNPK'.

          VAL_RATE = VAL_RATE + IT_KONV-KBETR.

        WHEN 'ZEXI'.                                        "ZEXI

          VAL_BED = VAL_BED + IT_KONV-KWERT.

          VAL_BEDP = IT_KONV-KBETR / 10.

          MRP1 = VAL_BED.

        WHEN 'ZEDU'.                                        "ZEDU

          VAL_ECESS = VAL_ECESS + IT_KONV-KWERT.

          VAL_ECESSP = IT_KONV-KBETR / 10.

        WHEN 'ZHEC'.                                         "ZHEC

          VAL_SHCESS = VAL_SHCESS + IT_KONV-KWERT.

          VAL_SHCESSP = IT_KONV-KBETR / 10.

        WHEN 'JLST'.                                         "JLST -----Used for VAT

          VAL_VAT = VAL_VAT + IT_KONV-KWERT.

          VAL_VATP = IT_KONV-KBETR / 10.

        WHEN 'JCST'.                                         "JCST

          VAL_CST = VAL_CST + IT_KONV-KWERT.

          VAL_CSTP = IT_KONV-KBETR / 10.

        WHEN 'DIFF'.

          VAL_DIFF = VAL_DIFF  + IT_KONV-KWERT.

        WHEN 'K007'.

          VAL_DISC = VAL_DISC + IT_KONV-KWERT.

          VAL_DISCP = IT_KONV-KBETR / 10.

*****************************New condition defined************************

        WHEN 'ZDIC'.                                    "new condition type defined for Nutrients

          VAL_ZDIC = VAL_ZDIC + IT_KONV-KWERT.

          VAL_ZDICP = IT_KONV-KBETR / 10.

*****************************End of New conditon********************************

*************************************New Condion type for Freight 17.06.2011**************************

        WHEN 'ZD00'.                                    "new condition type defined for Freight

          VAL_ZD00 = VAL_ZD00 + IT_KONV-KWERT.

          VAL_ZD00P = IT_KONV-KBETR / 10.

        WHEN 'ZKF0'.                                   "freight to pay

          VAL_ZKF0 = VAL_ZKF0 + IT_KONV-KWERT.

          VAL_ZKF0P = IT_KONV-KBETR / 10.

        WHEN 'ZKFD'.                                  "Freight to pay

          VAL_ZKFD = VAL_ZKF0 + IT_KONV-KWERT.

          VAL_ZKFDP = IT_KONV-KBETR / 10.

*****************************End of New conditon********************************

        WHEN OTHERS.

      ENDCASE.

    ENDLOOP.

  ENDLOOP.

ENDFORM. " GET_DATA

*&---------------------------------------------------------------------*

*& Form CALLFORM

*&---------------------------------------------------------------------*

* text

*----------------------------------------------------------------------*

FORM CALLFORM.

  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

    EXPORTING

      FORMNAME           = 'ZSD_SFPL_EXCISE_INV'

    IMPORTING

      FM_NAME            = FM_NAME

    EXCEPTIONS

      NO_FORM            = 1

      NO_FUNCTION_MODULE = 2

      OTHERS             = 3.

  IF SY-SUBRC <> 0.

    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  ENDIF.

  CALL FUNCTION FM_NAME

    EXPORTING

AMT_IN_NUM      =  AMT_IN_NUM

VAL_RATE         = VAL_RATE

VAL_DIFF         = VAL_DIFF

VAL_DISC         = VAL_DISC

VAL_ZDIC          = VAL_ZDIC                   "new condion type defined for ZNPK

***********************fREIGHT CONDITION *****************

VAL_ZD00          = VAL_ZD00

VAL_ZKF0          = VAL_ZKF0

VAL_ZKFD          = VAL_ZKFD

*******************END OF FREIGHT CONDION*******************

VAL_BED          = VAL_BED

VAL_BEDP         = VAL_BEDP

VAL_ECESS        = VAL_ECESS

VAL_ECESSP       = VAL_ECESSP

VAL_SHCESS       = VAL_SHCESS

VAL_SHCESSP      = VAL_SHCESSP

VAL_VAT          = VAL_VAT

VAL_VATP         = VAL_VATP

VAL_AMOT         = VAL_AMOT

VAL_AMOT1        = VAL_AMOT1

SUB_TOT          = SUB_TOT

TOTAL            = TOTAL

CESS             = CESS

TOTAL_WORDS      = TOTAL_WORDS

DUTY_WORDS       = DUTY_WORDS

CESS_WORDS       = CESS_WORDS

TESS_WORDS       = TESS_WORDS

TOT_QTY          = TOT_QTY

VAL_BSTKD        = VAL_BSTKD

VAL_BSTDK        = VAL_BSTDK

VAL_CST          = VAL_CST

VAL_CSTP         = VAL_CSTP

VAL_TCS          = VAL_TCS

VAL_TCSP         = VAL_TCSP

VTEXT            = VTEXT

CHAPID           = CHAPID

C_NAME           = C_NAME

MRP             = IT_KONV-KWERT

MRP1             = IT_KONV-KWERT

SUB_SUM         = SUB_SUM

SUB_SUB         = SUB_SUB

TABLES

IT_VBRK          = IT_VBRK

IT_VBRP          = IT_VBRP

IT_CHDR          = IT_CHDR

IT_CDTL          = IT_CDTL

IT_KNA1          = IT_KNA1

IT_ADRC          = IT_ADRC

IT_KONV          = IT_KONV

IT_T001W         = IT_T001W

IT_LIKP          = IT_LIKP

IT_LIPS          = IT_LIPS

IT_VBKD          = IT_VBKD

IT_J_1IMOCUST    = IT_J_1IMOCUST

*************************      14.06.2011************************

*      IT_FINAL         = IT_FINAL

EXCEPTIONS

FORMATTING_ERROR = 1

INTERNAL_ERROR   = 2

SEND_ERROR       = 3

USER_CANCELED    = 4

OTHERS           = 5.

  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. "CALLFORM

*&---------------------------------------------------------------------*

*&      Form  CLEAR_DATA

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

FORM CLEAR_DATA .

  CLEAR : IT_VBRK,IT_VBRP,IT_CHDR,IT_CDTL,IT_KNA1,IT_ADRC,IT_KONV,IT_VBKD,IT_LIKP,IT_T001W.

  REFRESH :  IT_VBRK,IT_VBRP,IT_CHDR,IT_CDTL,IT_KNA1,IT_ADRC,IT_KONV,IT_VBKD,IT_LIKP,IT_T001W.

  CLEAR : VAL_BED,VAL_BEDP,VAL_ECESS,VAL_ECESSP,CHAPID,VAL_DISC,VAL_DIFF,VAL_RATE,

  VAL_SHCESS,VAL_SHCESSP,VAL_VAT,VAL_VATP,VAL_CST,VTEXT,

  VAL_CSTP,VAL_AMOT,VAL_AMOT1,SUB_TOT,TOTAL,CESS,

  TOTAL_WORDS,DUTY_WORDS,CESS_WORDS,TESS_WORDS,TOT_QTY,VAL_BSTKD,VAL_BSTDK,VAL_ZDIC,VAL_ZDICP,VAL_ZD00,

  VAL_ZD00P,VAL_ZKF0,VAL_ZKF0P,VAL_ZKFD,VAL_ZKFDP,MRP,SUB_SUM,SUB_SUB,MRP1.

ENDFORM.                    "CLEAR_DATA

[Former Member]

Hi

This is how it is given in standard program:

FORM entry_neu USING ent_retco ent_screen.

  DATA: l_druvo LIKE t166k-druvo.
  DATA: ls_xfz  TYPE char1.

  xscreen = ent_screen.

  CLEAR ent_retco. "are you clearing the return code as it is given here??
  IF nast-aende EQ space.
    l_druvo = '1'.
  ELSE.
    l_druvo = '2'.
  ENDIF.

*>>> Start of Insertion >>> OSS 754573 (Liu Ke)
*  IF xscreen EQ 'X' AND ( nast-tdarmod EQ '2' OR nast-tdarmod EQ '3').
*    nast-tdarmod = '1'.
*  ENDIF.
*<<< End of Insertion <<<

  PERFORM processing_po USING nast ls_xfz
                     CHANGING ent_retco ent_screen l_druvo.

ENDFORM.                    "entry_neu

Regards,

Vishwa.