topic Re: smartform issue in Application Development and Automation Discussions

smartform issue

Former Member — Thu, 23 Oct 2008 12:21:42 GMT

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

Parameters: S_MATE like mseg-matnr obligatory.

SELECT-OPTIONS: S_AUDAT1 FOR mkpf-budat obligatory.

s_audat = s_audat1.

SELECTION-SCREEN END OF BLOCK b1.

this is my selection screen code.....

in output i want like this

"ITEM REGISTER for <material description> from <lower date> to <Upper date>"

i am getting like this:

ITEM REGISTER for <material description> from <lowerdate>

how can i get my desired result...

while fetching the data i wrote the code like this

ITEM REGISTER for &wa_it_item-maktx& from &wa_it_item-budat&

what changes i should do....pls help me

Re: smartform issue

Former Member — Thu, 23 Oct 2008 12:34:35 GMT

Hi,

While calling smartform function module from your driver

program, you should pass some parameter to smartform

e.g. s_audat1-low, s_audat1-high, or text which you can use in your smartform to display from date and to date.

prior to this you should make provision in your smartform using import parameter.

Regards,

Vishal

Re: smartform issue

Former Member — Thu, 23 Oct 2008 12:40:57 GMT

vishal...thanx...

what u said is correct...i am a fresher...could u pls tell me how can i do that in driver program...i mean

how can i split s_audat as s_audat-low and s_audat-high

Re: smartform issue

Former Member — Thu, 23 Oct 2008 12:49:25 GMT

Hi,

You have to pass select option su_audit as a export parameter while calling smart form .

There in smart form you to define this parameter in Form interface as a assiciated type of table .

Now, use it

ITEM REGISTER for from &su_audit-low& to &su_audit-high&.

Thanks,

Smita

Re: smartform issue

Former Member — Thu, 23 Oct 2008 13:10:43 GMT

Hi ,

You dont need to split this select option.

its internally saved as a table which contain lower and higher value.

You can directly access that.

Thanks,

Smita

Re: smartform issue

Former Member — Fri, 24 Oct 2008 08:58:32 GMT

Hi Smita

i thank u that u try to help me...

but i am getting an error like this...

The data object "S_AUDAT" has no structure and therefore no component called "LOW".

why i am getting like this?

what should i do now friend...

BR,

Rajkamal

Re: smartform issue

Former Member — Fri, 24 Oct 2008 09:33:19 GMT

friends...help pls...

Re: smartform issue

Former Member — Fri, 24 Oct 2008 09:42:03 GMT

Hi Rajkamal,

I see that you are using S_AUDIT1 as your select option name and not S_AUDIT. so instead of S_AUDIT try using

S_AUDIT1-LOW. I hope this should solve your issue.

Best Regards,

Ram.

Re: smartform issue

Former Member — Fri, 24 Oct 2008 09:49:25 GMT

Hi,

In your function module under export parameters take two fields like s_audat1-low and s_audat1-high.

In source code take statement ranges : r_audit for mkpf-budat.

then make

r_audit-low = s_audat1-low,

r_audit-high = s_audat1-high,

r_audit-sign = 'I'.

r_audit-option ='BT'.

append r_audit.

now select based on r_audit , in this way u can pass select options to function module...

Hope this is helpful..

Rgds.,

subash

Re: smartform issue

Former Member — Fri, 24 Oct 2008 09:54:26 GMT

Ram,

it didnt solve the problem...

it says the same error....The data object "S_AUDAT1" has no structure and therefore no component called "HIGH". .

anything else can i try

Re: smartform issue

Former Member — Fri, 24 Oct 2008 10:16:38 GMT

Subash,

should i create a structure for r_audat....

i am getting error like r_audat is not having a structure so there is no component like low...

pls clarify it to me

Edited by: Rajkamal Ayamperumal on Oct 24, 2008 12:17 PM

Re: smartform issue

Former Member — Fri, 24 Oct 2008 10:20:47 GMT

hi,

No man befor r_audit i am declaring it as ranges.

Ranges is similar like a selopt structure... so no need to decalre seperate structure for that.

If u still do not understand then declare in the same way, check in debugging what that

r_audit holds u can see four fields low high sign option..

Rgds.,

subash

Re: smartform issue

Former Member — Fri, 24 Oct 2008 14:47:21 GMT

friends,

i tried what suggested...still i am getting errors...can u pls give me the codings...

I'll give u my program...

REPORT ITEM_REGISTER.

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

*Tables Decleration

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

TABLES : makt,lfa1, mseg, mkpf, rbkp.

DATA : FNAME TYPE RS38L_FNAM.

*data: r_audat like mkpf-budat.

DATA : s_audat LIKE mkpf-budat.

DATA: DATE1 LIKE mkpf-budat.

DATA: DATE2 LIKE mkpf-budat.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

Parameters: S_MATE like mseg-matnr obligatory.

SELECT-OPTIONS: S_AUDAT1 FOR mkpf-budat obligatory.

s_audat = s_audat1.

*ranges : r_audat for mkpf-budat.

*r_audat-low = s_audat1-low.

*r_audat-high = s_audat1-high.

*r_audat-sign = 'I'.

*r_audat-option ='BT'.

*append r_audat.

SELECTION-SCREEN END OF BLOCK b1.

data : itab LIKE zitab OCCURS 0 WITH HEADER LINE.

Data : it_item like zitem1 OCCURS 0 WITH HEADER LINE.

data : it_makt LIKe makt occurs 0 WITH HEADER LINE.

data : it_mseg like mseg occurs 0 WITH HEADER LINE.

data : it_mkpf like mkpf occurs 0 WITH HEADER LINE,

it_lfa1 like lfa1 OCCURS 0 WITH HEADER LINE.

Perform intialization.

perform fill_it_item.

perform call_form.

&----

*& Form INTIALIZATION

&----

FORM INTIALIZATION .

clear it_item.

clear it_makt.

clear it_mseg.

clear it_mkpf.

clear it_lfa1.

clear it_item[].

clear it_makt[].

clear it_mseg[].

clear it_mkpf[].

clear it_lfa1[].

ENDFORM. " INTIALIZATION

&----

*& Form FILL_IT_ITEM

&----

FORM FILL_IT_ITEM .

select * from mseg

into table it_mseg

where matnr = s_mate.

LOOP at it_mseg.

select * from mkpf into TABLE it_mkpf

where budat in s_audat1

where budat in r_audat

and mblnr = it_mseg-mblnr.

LOOP AT IT_MKPF.

IF DATE1 = '00000000'.

At FIRST.

DATE1 = iT_MKPF-budat.

ENDAT.

ENDIF.

AT LAST.

DATE2 = IT_MKPF-budat.

ENDAT.

ENDLOOP.

LOOP at it_mkpf.

itab-budat = it_mkpf-budat.

itab-mblnr = it_mkpf-mblnr.

append itab.

ENDLOOP.

Endloop.

loop at itab.

select * from mseg into table it_mseg where mblnr = itab-mblnr and matnr = s_mate.

Loop at it_mseg.

it_item-matnr = it_mseg-matnr.

it_item-dmbtr = it_mseg-dmbtr.

it_item-mblnr = it_mseg-mblnr.

it_item-bwart = it_mseg-bwart.

it_item-budat = itab-budat.

it_item-erfmg = it_mseg-erfmg.

it_item-lifnr = it_mseg-lifnr.

it_item-rate = it_item-dmbtr / it_item-erfmg.

append it_item.

*DELETE ADJACENT DUPLICATES FROM It_item COMPARING ALL FIELDS.

SORT It_item BY budat ASCENDING.

DELETE ADJACENT DUPLICATES FROM It_item COMPARING ALL FIELDS.

Endloop.

loop at it_item.

Select single maktx

from makt

into it_item-maktx

where matnr = it_item-matnr.

modify it_item.

Endloop.

loop at it_item.

Select single name1

from lfa1

into it_item-name1

where lifnr = it_item-lifnr.

modify it_item.

DELETE ADJACENT DUPLICATES FROM It_item COMPARING ALL FIELDS.

Endloop.

LOOP AT IT_ITEM.

*delete it_item where bwart <> '101''501''122''161''201''261'.

delete it_item where bwart <> '501'.
delete it_item where bwart <> '122'.
delete it_item where bwart <> '161'.
delete it_item where bwart <> '201'.
delete it_item where bwart <> '261'.

"'501''122''161''201''261'.

DELETE it_item WHERE bwart NE '101'

AND bwart NE '501'

AND bwart NE '122'

AND bwart NE '161'

AND bwart NE '201'

AND bwart NE '261'.

MODIFY it_item.

*DELETE ADJACENT DUPLICATES FROM It_item COMPARING ALL FIELDS.

ENDLOOP.

ENDFORM. " FILL_IT_ITEM

*Loop at it_item.

if it_item-bwart = '101' or '501'.
it_item-new1 = '001'.
else.
it_item-new1 = '002'.
ENDIF.

*modify it_item.

*SORT It_item BY new1 ASCENDING.

*ENDLOOP.

&----

*& Form CALL_FORM

&----

FORM CALL_FORM .

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = 'ZITEM_REGISTER' "sfname

VARIANT = ' '
DIRECT_CALL = ' '

IMPORTING

FM_NAME = FNAME

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 '/1BCDWB/SF00000022'

EXPORTING

ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =
CONTROL_PARAMETERS =
MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
OUTPUT_OPTIONS =
USER_SETTINGS = 'X'

DATE1 = DATE1

DATE2 = DATE2

*R_AUDAT = R_AUDAT

*S_AUDAT1-LOW = S_AUDAT1-LOW

*S_AUDAT1-HIGH = S_AUDAT1-HIGH

S_AUDAT = S_AUDAT

S_MATE = S_MATE

IMPORTING
DOCUMENT_OUTPUT_INFO =
JOB_OUTPUT_INFO =
JOB_OUTPUT_OPTIONS =

TABLES

IT_ITEM = IT_ITEM

ITAB = ITAB

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.

clear it_item.

clear it_item[].

ENDFORM. " CALL_FORM

subash...pls have a look at it...