Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

smartforms

Former Member
0 Likes
470

Hi,

can any one send me a sample smartform for printing invoice

and the code for printing this. I tried lb_bil_invoice ,but not working. if u could send me the smartform in XML and print prg wld be very helpful .

thanks

3 REPLIES 3
Read only

Former Member
0 Likes
444

Hi,

i think it's simple to say what was wrong with your test, and correct it, instead of doing a new one from scratch.

I customized lb_bil_invoice and it worked fined.

Could you tell us what you do?

Best regards,

Read only

Former Member
0 Likes
444

Hi Mamatha,

Refer this code :

SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME.

SELECT-OPTIONS : P_VBELN FOR VBUK-VBELN .

SELECTION-SCREEN END OF BLOCK BL1.

*FUNCTION THAT GIVES ALL INVOICE HEADER & ITEMS DETAILS

WA_VBELN-VBELN = P_VBELN-LOW.

APPEND WA_VBELN TO D_VBELN.

CALL FUNCTION 'LB_BIL_INV_OUTP_READ_DBDATA'

EXPORTING

IT_BIL_NUMBER = D_VBELN

  • IF_LANGUAGE =

  • IS_DB_DATA_TO_READ =

  • IF_READ_MODE = ' '

  • IF_REFRESH_BUFFER = ' '

IMPORTING

ES_BIL_OUTP_DBDATA = D_DATA

EXCEPTIONS

RECORDS_NOT_FOUND = 1

RECORDS_NOT_REQUESTED = 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.

*POPULATING DATA INTO INTERNAL TABLE IT_VBRK

LOOP AT D_DATA-VBRK INTO IT_VBRK.

APPEND IT_VBRK.

ENDLOOP.

*POPULATING DATA INTO INTERNAL TABLE IT_VBRP

LOOP AT D_DATA-VBRP INTO IT_VBRP.

APPEND IT_VBRP.

ENDLOOP.

*POPULATING DATA INTO INTERNAL TABLE IT_LIKP

LOOP AT D_DATA-LIKP INTO IT_LIKP.

APPEND IT_LIKP.

ENDLOOP.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

FORMNAME = P_FORM

  • VARIANT = ' '

  • DIRECT_CALL = ' '

IMPORTING

FM_NAME = P_FUNCTION

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 P_FUNCTION

  • EXPORTING

  • ARCHIVE_INDEX =

  • ARCHIVE_INDEX_TAB =

  • ARCHIVE_PARAMETERS =

  • CONTROL_PARAMETERS =

  • MAIL_APPL_OBJ =

  • MAIL_RECIPIENT =

  • MAIL_SENDER =

  • OUTPUT_OPTIONS =

  • USER_SETTINGS = 'X'

  • IMPORTING

  • DOCUMENT_OUTPUT_INFO =

  • JOB_OUTPUT_INFO =

  • JOB_OUTPUT_OPTIONS =

TABLES

D_VBRK = IT_VBRK

D_VBRP = IT_VBRP

D_LIKP = IT_LIKP

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.

Reward points if helpful.

Regards,

Hemant