RFKORD10 - FB12 - Customer Account Statement - SmartFORM Driver Program ?

[Former Member]

Hi,

Does anybody has smartform driver program for this RFKORD10's SAPScript Driver program?

Or anybody done customized code? Please provide the code.

Thanks in Advance

Vinaa

[Former Member]

Hi,

I copied the form for account statement F140_OPI_LIST_01 into custom form using transaction SFP. Just one text field is added in the custom for (for testing purposes). And i configured the program name RFKORD10 and form name ZF140_OPI_LIST_01 under PDF-based form.But still the standard form is displayed when i executed the transaction FBL5N(Customer line item display) and see the output of the request. Is there any more configurations that need to be done?

Thanks

Poornima

[Former Member]

Hi Poornima,

Please dont post your questions in someone else's post.

you can open your own thread..

BTW to answer your question, you need to change your standard form in customizing with your new form and program.

[Former Member]

Hi Vinay,

Driver program is also a normal program,which is to b created in SE38 or SE80.

But,in the driver program,u need to use some functions such as OPEN_FORM,WRITE_FORM,CLOSE_FORM etc.....

We've one option called Pattern in the tool bar,click that & type OPEN_FORM in that,then automatically the function comes into ur code.That function will have one importing parameter related to the Layoutset or Form.U just mention the form name over there,then automatically that form will b opened.Then use WRITE_FORM if u want to do some manipulations on that.

Finally dont forget to close the form using CLOSE_FORM.

Here is a sample code for u.

This is the sample code.Here zpavscript1 is the form name.

Just neglect the other parameters which r commented out.

In Write _form,Address,Logo,Main etc are the Text element names which u've created in the form & where u want to place the particular code,just go through this.I hope will b useful for u..

CALL FUNCTION 'OPEN_FORM'

EXPORTING

• APPLICATION = 'TX'

• ARCHIVE_INDEX =

• ARCHIVE_PARAMS =

• DEVICE = 'PRINTER'

• DIALOG = 'X'

FORM = 'ZPAVSCRIPT1 '

LANGUAGE = SY-LANGU

• OPTIONS =

• MAIL_SENDER =

• MAIL_RECIPIENT =

• MAIL_APPL_OBJECT =

• RAW_DATA_INTERFACE = '*'

• SPONUMIV =

• IMPORTING

• LANGUAGE =

• NEW_ARCHIVE_PARAMS =

• RESULT =

• EXCEPTIONS

• CANCELED = 1

• DEVICE = 2

• FORM = 3

• OPTIONS = 4

• UNCLOSED = 5

• MAIL_OPTIONS = 6

• ARCHIVE_ERROR = 7

• INVALID_FAX_NUMBER = 8

• MORE_PARAMS_NEEDED_IN_BATCH = 9

• SPOOL_ERROR = 10

• CODEPAGE = 11

• OTHERS = 12

.

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 'WRITE_FORM'

EXPORTING

ELEMENT = 'ADDRESS'

FUNCTION = 'APPEND'

TYPE = 'BODY'

WINDOW = 'ADDRESS'

• IMPORTING

• PENDING_LINES =

• EXCEPTIONS

• ELEMENT = 1

• FUNCTION = 2

• TYPE = 3

• UNOPENED = 4

• UNSTARTED = 5

• WINDOW = 6

• BAD_PAGEFORMAT_FOR_PRINT = 7

• SPOOL_ERROR = 8

• CODEPAGE = 9

• OTHERS = 10

.

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 'WRITE_FORM'

EXPORTING

ELEMENT = 'ADDRESS1'

FUNCTION = 'APPEND'

TYPE = 'BODY'

WINDOW = 'ADDRESS1'

• IMPORTING

• PENDING_LINES =

• EXCEPTIONS

• ELEMENT = 1

• FUNCTION = 2

• TYPE = 3

• UNOPENED = 4

• UNSTARTED = 5

• WINDOW = 6

• BAD_PAGEFORMAT_FOR_PRINT = 7

• SPOOL_ERROR = 8

• CODEPAGE = 9

• OTHERS = 10

.

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 'WRITE_FORM'

EXPORTING

ELEMENT = 'LOGO'

FUNCTION = 'APPEND'

TYPE = 'BODY'

WINDOW = 'LOGO'

• IMPORTING

• PENDING_LINES =

• EXCEPTIONS

• ELEMENT = 1

• FUNCTION = 2

• TYPE = 3

• UNOPENED = 4

• UNSTARTED = 5

• WINDOW = 6

• BAD_PAGEFORMAT_FOR_PRINT = 7

• SPOOL_ERROR = 8

• CODEPAGE = 9

• OTHERS = 10

.

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 'WRITE_FORM'

EXPORTING

ELEMENT = 'LOGO1'

FUNCTION = 'APPEND'

TYPE = 'BODY'

WINDOW = 'LOGO1'.

• IMPORTING

• PENDING_LINES =

• EXCEPTIONS

• ELEMENT = 1

• FUNCTION = 2

• TYPE = 3

• UNOPENED = 4

• UNSTARTED = 5

• WINDOW = 6

• BAD_PAGEFORMAT_FOR_PRINT = 7

• SPOOL_ERROR = 8

• CODEPAGE = 9

• OTHERS = 10

• .

*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 'WRITE_FORM'

• EXPORTING

• ELEMENT = 'HEADER'

• FUNCTION = 'APPEND'

• TYPE = 'BODY'

• WINDOW = 'MAIN'.

LOOP AT I_VBAP INTO WA_VBAP.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'MAIN'

FUNCTION = 'APPEND'

TYPE = 'BODY'

WINDOW = 'MAIN'

• IMPORTING

• PENDING_LINES =

• EXCEPTIONS

• ELEMENT = 1

• FUNCTION = 2

• TYPE = 3

• UNOPENED = 4

• UNSTARTED = 5

• WINDOW = 6

• BAD_PAGEFORMAT_FOR_PRINT = 7

• SPOOL_ERROR = 8

• CODEPAGE = 9

• OTHERS = 10

.

IF sy-subrc 0.

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

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

ENDIF.

ENDLOOP.

CALL FUNCTION 'CLOSE_FORM'

• IMPORTING

• RESULT =

• RDI_RESULT =

• TABLES

• OTFDATA =

• EXCEPTIONS

• UNOPENED = 1

• BAD_PAGEFORMAT_FOR_PRINT = 2

• SEND_ERROR = 3

• SPOOL_ERROR = 4

• CODEPAGE = 5

• OTHERS = 6

.

IF sy-subrc 0.

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

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

ENDIF.

kindly reward if found helpful.,

cheers,

Hema.

[Former Member]

Hi,

Thanks for your reply.

RFKORD10 - This is SAPScript driver program for FB12.

But I am asking the driver program in SMARTFORMS the code that you have pasted is SAPSCRIPT, which is not required.

So, please send me the SMARTFORM driver program code at vinaa.vinaa@gmail.com or paste here itself.

Thanks in Advance,

Vinaa

Edited by: Vinayakam V on Jan 24, 2008 7:55 AM