cancel
Showing results for 
Search instead for 
Did you mean: 

smartform

Former Member
0 Kudos

hi all,

this is the documentation in main window in script. i have migrated it into smartform. now what r the changes needed to do for this code in smartform. pls help me . its very urgent.

MAIN

Get Header data from LIKP table

IF &FLAG& NE 1

PERFORM GET_HEADER_DATA IN PROGRAM ZPTFS_PICKLISTROUTINES

USING &LTAK-VBELN&

CHANGING &LIKP-WADAT&

CHANGING &LIKP-KODAT&

CHANGING &LIKP-LFDAT&

CHANGING &LIKP-KUNNR&

CHANGING &CONTACT_NAME&

CHANGING &CONTACT_NUMBER&

CHANGING &LIKP-VSTEL&

ENDPERFORM

DEFINE &FLAG& = 1

ENDIF

Check the change in Storage type to reprint the column headings

PERFORM CHECK_STORAGE_TYPE IN PROGRAM ZPTFS_PICKLISTROUTINES

USING &LTAP-VLTYP&

USING &OLD_VLTYP&

CHANGING &PRINTHEADER&

CHANGING &OLD_VLTYP&

ENDPERFORM

Get the No. of Containers and Container Unit

PERFORM GET_CONT_INFO IN PROGRAM ZPTFS_PICKLISTROUTINES

USING &LTAP-TANUM&

USING &LTAP-LGNUM&

USING &LTAP-TAPOS&

CHANGING &CONT_NO&

CHANGING &CONT_UNIT&

CHANGING &ORD_REF&

ENDPERFORM

Print the column headings

IF &PRINTHEADER(C)& NE '1' OR &VPAGE& NE &PAGE&

PROTECT

From Storage Type &ltap-vltyp&

,, ,,,,, ,, ,, ,, ,, ,, ,,,,

Material/ Line No.of Cntr Batch Source Cntr Picked

Description Item Qty UM Cntr Type Number Bin Number Order Reference by

&SYST-ULINE(125)&

ENDPROTECT

ENDIF

DEFINE &VPAGE& = &PAGE&

Print detail lines

PROTECT

SIR001000 - Wasimkhan - Aug 18, 2006

&LTAP-MATNR(09)& &LTAP-TAPOS(6)& &LTAP-VSOLA(11)& &LTAP-ALTME(3)& &CONT_NO(C)& &CONT_UNIT(3)& &LTAP-CHARG& &LTAP-VLPLA& &ORD_REF(C)&

Material Description Taken on Second Line

&LTAP-MAKTX(40)& ________ ____________ ____________

&LTAP-VLENR&

Get Item Picking Instructions from long text

DEFINE &LANGU& = &SYST-LANGU&

DEFINE &TEXTID& = 'ZNOI'

DEFINE &TEXTOBJECT& = 'VBBP'

PERFORM READ_TEXT_ITEM IN PROGRAM ZPTFS_PICKLISTROUTINES

USING &LTAK-VBELN&

USING &LTAP-POSNR&

USING &LANGU&

USING &TEXTID&

USING &TEXTOBJECT&

CHANGING &LINE_INST&

ENDPERFORM

IF &LINE_INST& NE &SPACE&

&LINE_INST(80)&

ENDIF

ENDPROTECT

thanks in advance,

Ramana

Accepted Solutions (0)

Answers (2)

Answers (2)

Former Member
0 Kudos

Hi Ramana Prasad,

If you closely look into the given code, you can find there are some dynamic calls for the routines to the program <i><b>'ZPTFS_PICKLISTROUTINES'</b></i> all the variables are getting populated from these routines.

In that way, what I can suggest is

1. Declare all the variables to be printed in the smartform first,

2. Create some code lines in smart form by right clicking on respective node,

3. Copy the code of respective routine from the program <i><b>'ZPTFS_PICKLISTROUTINES'</b></i>.

4. Now when you have all the values populated, print them by creating text windows.

5. Finally you need to take care of page breaks. (Instead of PROTECT ...ENDPROTECT)

If you feel this info is not enough, you can contact me for more information.

<i><b>

Thanks & Regards

Ali S</b></i>

Former Member
0 Kudos

hi Ali,

this is for the first time i am wrking with such type of task. so can u help me more about how to write the code. this is my mail id. u can reply to this. rmnprasad@yahoo.co.in. pls its very urgent.

Former Member
0 Kudos

hi idenify the requirement, then find the code in program ZPTFS_PICKLISTROUTINES,,

write this code in u smartform based the requirement