topic Re: Module Pool Issue in Application Development and Automation Discussions

Module Pool Issue

Former Member — Fri, 05 Mar 2010 05:14:57 GMT

Hi Experts,

I have one query regarding module pool. In screen I have one field named as Vendor Number. I want whenever user enter's the number, it will be validated.

If entry is not found then error message should display in status bar & cursor should be stopped in that field also.

In PAI, I wrote validation logic, but neither my respective message is getting displayed as well as the field becomes disabled. So, always again I need to enter the tcode & start the processing from scratch.

Can anybody suggest me how to resolve this?

Regards,

Neha

Re: Module Pool Issue

Former Member — Fri, 05 Mar 2010 05:19:01 GMT

Try this

CHAIN.
   FIELD 'field name (Vendor)'.
   MODULE 'module for Error Logic ' ON CHAIN-REQUEST.
 ENDCHAIN.

Re: Module Pool Issue

Former Member — Fri, 05 Mar 2010 05:20:15 GMT

Hi ,

Please do your validation in CHAIN and ENDCHAIN command .

You can throw error message is validation fails.

Press F1 on these to know more.

Hope this helps you.

Re: Module Pool Issue

Former Member — Fri, 05 Mar 2010 05:22:21 GMT

hi,

1) To make the validated field active for editing use the field statement in your PAI.

2) To make the cursor stay on that field use set cursor statement in your PAI.

3) To make the message appear in the status bar us ethe FM GUI_PROGRESS_INDICATOR.

hope it helps.

regards,

sakshi

Re: Module Pool Issue

sridhar_meesala — Fri, 05 Mar 2010 05:30:28 GMT

Hi,

Try this. In the main screen.

PROCESS BEFORE OUTPUT.
 MODULE STATUS_1000.

PROCESS AFTER INPUT.

CHAIN.
 FIELD vendor_number MODULE check-vendor_no.
ENDCHAIN.

Now create an include F01. In that write the code.

MODULE check-vendor_no INPUT.

  SELECT SINGLE <vendornumber>
    FROM dbtable
    INTO lv_vendorno  " take a local variable to store vendor number
    WHERE <vendornumber> = <vendor number given on the screen by user>.

  IF sy-subrc NE 0.
   MESSAGE 'Vendor number does not exist' TYPE 'E'.
  ENDIF.

ENDMODULE.                 " check-vendor_no INPUT

Hope this solves your problem.

Thanks,

Sri.

Re: Module Pool Issue

Former Member — Fri, 05 Mar 2010 05:50:03 GMT

Hi Sri,

Thanks for your valuable reply. But still my desired message is not getting displayed.

I wrote the below code in PAI.

CHAIN.

FIELD LFA1-LIFNR MODULE VALIDATE_VENDOR.

ENDCHAIN.

Module VALIDATE_VENDOR.

SELECT SINGLE LIFNR FROM LFA1 INTO GV_LIFNR WHERE LIFNR = LFA1-LIFNR.

IF SY-SURBC <> 0.

MESSAGE TEXT-001 TYPE 'E'.

ENDIF.

ENDMODULE.

Can anybody suggest?

Re: Module Pool Issue

Former Member — Fri, 05 Mar 2010 05:53:53 GMT

in PAI

CHAIN.

FIELD vendor MODULE validate_vendor. " the vendor screen field name

ENDCHAIN.

create a module validate_vendor and write vaidation code

Thanks

Chinni

Re: Module Pool Issue

sridhar_meesala — Fri, 05 Mar 2010 05:55:29 GMT

Hi,

Write the CHAIN...ENDCHAIN part in the main screen flow logic.

Thanks,

Sri.

Re: Module Pool Issue

Former Member — Fri, 05 Mar 2010 05:59:53 GMT

Hi Neha,

In screen painter you can write in PAI as:

PROCESS AFTER INPUT.

MODULE CANCEL AT EXIT-COMMAND.

loop at itab.

chain.

field lfa1-LIFNR.

MODULE TCTRL_0100_MODIFY on chain-request.

endchain.

endloop.

MODULE READ_DATA INPUT.

When you writing the logic in your abap editor you can mention it as:

MODULE READ_DATA INPUT.

SINGLE LIFNR FROM LFA1 INTO GV_LIFNR WHERE LIFNR = LFA1-LIFNR.

IF SY-SUBRC NE 0.

MESSAGE ID '00' TYPE 'S' NUMBER '058' DISPLAY LIKE 'E'

WITH lfa1-lifnr.

EXIT.

ENDIF.

let me know if this works.

Regrds,

Nikhil.

Re: Module Pool Issue

Former Member — Fri, 05 Mar 2010 06:00:39 GMT

HI NEHA,

If you want to validate that Vendor not found then error should raise.

Add on chain-request after your MODULE Command .

Help this will solve your prob.

Edited by: NISHIT JOSHI on Mar 5, 2010 11:30 AM

Edited by: NISHIT JOSHI on Mar 5, 2010 11:31 AM

Re: Module Pool Issue

Former Member — Fri, 05 Mar 2010 06:03:11 GMT

Please use this code in the validate_vendor module

MODULE validate_vendor INPUT.

DATA : gv_lifnr TYPE lifnr.

SELECT SINGLE lifnr FROM lfa1 INTO gv_lifnr WHERE lifnr = lfa1-lifnr.

IF sy-subrc NE 0.

MESSAGE text-001 TYPE 'E'.

ENDIF.

ENDMODULE. " VALIDATE_VENDOR INPUT

Thanks

Chinni

Edited by: Tirumula Rao Chinni on Mar 5, 2010 11:34 AM