topic Zvoucher printing for multiple docs in Application Development and Automation Discussions

Zvoucher printing for multiple docs

Former Member — Fri, 25 Oct 2013 06:12:58 GMT

Dear all,

I have an issue in printing voucher for multiple docs through smartforms. Iam not able to print more than one voucher. My requirement is to print more than one doc

by giving the doc no "BELNR" in the select option. Below is the code used in the driver program. Can anybody help me in this regard.

*&---------------------------------------------------------------------*
*& Include           ZVOUCHER_TOP
*&---------------------------------------------------------------------*

TABLES:bkpf.

DATA : fm_name TYPE rs38l_fnam,
         fname TYPE tdsfname,
         g_belnr TYPE bkpf-belnr.

PARAMETERS : co_code TYPE BKPF-bukrs OBLIGATORY .
*PARAMETERS : doc_no TYPE BKPF-belnr ." OBLIGATORY .   commented on 03.10.2013 - Dennis.
PARAMETERS : s_yr TYPE BKPF-gjahr ."OBLIGATORY .
SELECT-options s_belnr for bkpf-belnr.

AT SELECTION-SCREEN .

* SELECT SINGLE belnr
* FROM bkpf
* INTO g_belnr
* WHERE bukrs = co_code
* AND belnr = doc_no
* AND gjahr = s_yr.

   SELECT belnr
   FROM bkpf
   INTO g_belnr
   WHERE belnr in s_belnr
   AND bukrs = co_code
   AND gjahr = s_yr.
   ENDSELECT.

   IF sy-subrc NE 0.
     MESSAGE 'This document Number does not exist' TYPE 'E'.
     EXIT.
   ENDIF.

*************structure : zdoc***********************************
*************search help : zdoc*********************************
*************search help : zyear********************************

Regards,

Sam.

Re: Zvoucher printing for multiple docs

nabheetscn — Fri, 25 Oct 2013 06:15:51 GMT

Simply fetch the data into internal table first. Are you passing one number at a time to smartform..? If yes then just loop on table and call samrtform.

Re: Zvoucher printing for multiple docs

Former Member — Fri, 25 Oct 2013 06:22:30 GMT

Hi Nabheet ,

Should i loop in the driver program or in the smartform coding?

Regards,

Sam.

Re: Zvoucher printing for multiple docs

nabheetscn — Fri, 25 Oct 2013 06:25:14 GMT

That depends on the business need. How do they want to print. For each voucher one page or multiple voucher on single page. If multiple voucher on one page then simple pass internal table to smartform and print via loop else if they want one voucher on one page then after every loop trigger a new page command and get it done.

Re: Zvoucher printing for multiple docs

Former Member — Fri, 25 Oct 2013 06:27:36 GMT

Each voucher on one page...

Re: Zvoucher printing for multiple docs

nabheetscn — Fri, 25 Oct 2013 06:32:51 GMT

choose any one of these

call your smartform in LOOP or pass all data at once and then in MAIN window after every loop trigger NEW-PAGE command.

Re: Zvoucher printing for multiple docs

Sijin_Chandran — Tue, 29 Oct 2013 05:05:44 GMT

Hello Samuel ,

The best and simple approach is using Multi forms in one Print request technique ,

http://help.sap.com/saphelp_nw04s/helpdata/en/71/9ccd9c8e0e11d4b608006094192fe3/content.htm

Collect all your data in an Internal table related to Selections made ( just the same you do while creating reports ) and for Printing purpose use the above technique , calling the SF in a Loop.

Re: Zvoucher printing for multiple docs

Former Member — Wed, 06 Nov 2013 07:00:05 GMT

Hello Sijin,

Should i give the same internal table name as in smartform or should i declare another internal name for the driver prog?

Rgds,

Sam.

Re: Zvoucher printing for multiple docs

Former Member — Wed, 06 Nov 2013 07:53:03 GMT

This message was moderated.

Re: Zvoucher printing for multiple docs

Former Member — Wed, 06 Nov 2013 11:12:30 GMT

Dear Zahid,

Can you pls tell me how to pass itab from driver prog to smartforms. I tried but it din't work out.

Rgds,

Sam.

Re: Zvoucher printing for multiple docs

Former Member — Wed, 06 Nov 2013 11:33:51 GMT

Hi,

After fetching complete data into final internal table.

In driver program, call SSF_OPEN function module.

After that LOOP the final internal table and wirte AT END OF BELNR.

Call FM using funciton module from Smart form.

ENDAT.

ENDLOOP.

Close the form using SSF_CLOSE

Try this..

Regards

Kusuma

Re: Zvoucher printing for multiple docs

jyotsna_singam — Wed, 06 Nov 2013 11:57:26 GMT

declare the same in form interface of smart form

Re: Zvoucher printing for multiple docs

Former Member — Wed, 06 Nov 2013 15:36:52 GMT

data: fm_name type rs38l_fnam.

data:itab1 type table of zstructure1, "make a data dictionary structure

data: wa type zstructure1.

your logic.

call function 'SSF_FUNCTION_MODULE_NAME'

exporting

formname = 'ZH_MM_REQUEST_QUOTATION_MILL' "your smartform name

importing

fm_name = fm_name

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 fm_name

exporting

waquotation = wa "your structure if you are sending some header area values.(which has to be displayed only once)

tables

itab1 = itab1 "your Itab name

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.

In th smart form dbl click on the interface.
goto tables tab.
itab1 like zstructure1.
in the import tab.
waquotation like zstructure

Message was edited by: Matthew Billingham - removed forbidden site reference

Re: Zvoucher printing for multiple docs

Sijin_Chandran — Mon, 11 Nov 2013 09:00:17 GMT

Should i give the same internal table name as in smartform or should i declare another internal name for the driver prog?

Name is not the thing which matters ,

The thing which matters is TYPE.

Type of Internal Table should be same at Driver Pgm and at SF Interface.

Re: Zvoucher printing for multiple docs

Former Member — Mon, 18 Nov 2013 04:41:52 GMT

Hello,

Still my issue has not been solved.

Iam pasting the driver program for your kind ref.

REPORT zvoucher5.

tables: bkpf, bseg, ADRC, t001, t003t, pc207, t001w.

TYPES : BEGIN OF struct,
         belnr type bkpf-belnr,
         buzei TYPE bseg-buzei, "item no
         bschl TYPE bseg-bschl, "credit/debit
         shkzg TYPE bseg-shkzg, "s/h
         acct(10) TYPE c, " ACCOUNT
         desc(50) TYPE c, "PARTICULARS
         debit TYPE bseg-wrbtr, "DEBIT amount
         credit TYPE bseg-wrbtr, " CREDIT AMOUNT
         SGTXT TYPE BSEG-SGTXT,"ITEM TEXT
         g_belnr type bkpf-belnr,
*        co_code type bkpf-bukrs,
*        doc_no type bkpf-belnr,
*        period type bkpf-gjahr,
         END OF struct.

TYPES : new(250) TYPE c,
NEW1(15) TYPE C,
PHONE(6) TYPE C.

data:
DUM(2) TYPE C,
g_belnr TYPE bkpf-belnr,
co_code type bkpf-bukrs,
doc_no type bkpf-belnr,
period type bkpf-gjahr,
WA_ADRC TYPE ADRC,
G_ADRNR TYPE T001-ADRNR,
G_STREET1 TYPE ADRC-STREET,
G_STREET2 TYPE ADRC-STREET,
G_BLART TYPE BKPF-BLART,
G_LTEXT TYPE T003T-LTEXT,
G_DATE TYPE BKPF-BLDAT,
G_KUNNR TYPE BSEG-KUNNR,
G_CREDIT TYPE BSEG-WRBTR,
G_DEBIT TYPE BSEG-WRBTR,
AMT LIKE PC207-BETRG,
WORDS TYPE NEW,
CREDIT TYPE NEW1,
DEBIT TYPE NEW1,
G_XBLNR TYPE BKPF-XBLNR,
G_BKTXT TYPE BKPF-BKTXT,
PHONE TYPE PHONE,
G_KOART TYPE BSEG-KOART,
G_LIFNR TYPE BSEG-LIFNR,
G_ADRNR1 TYPE T001W-ADRNR,
WA_ADRC1 TYPE ADRC.

DATA : fm_name TYPE rs38l_fnam,
         fname TYPE tdsfname,
         it_main type table of struct,
         wa_main type struct.

SELECT-options:
s_belnr for bkpf-belnr,
s_bukrs for bkpf-bukrs,
s_gjahr for bkpf-gjahr.
*SELECT-options s_bukrs for bkpf-bukrs.
*SELECT-options s_gjahr for bkpf-gjahr.

AT SELECTION-SCREEN.

* SELECT belnr
* FROM bkpf
* INTO wa_main-belnr
* WHERE "belnr = doc_no
** AND bukrs = co_code
** AND gjahr = period
*   belnr in s_belnr.
* endselect.

   SELECT belnr
   FROM bkpf
   INTO g_belnr
   WHERE belnr in s_belnr
   AND bukrs = co_code
   AND gjahr = period"s_yr.
   and belnr = doc_no.
   ENDSELECT.

   IF sy-subrc NE 0.
     MESSAGE 'This document Number does not exist' TYPE 'E'.
     EXIT.
   ENDIF.
*SELECT belnr bukrs gjahr from bkpf
* into CORRESPONDING FIELDS OF TABLE it_main
* where belnr in s_belnr and bukrs in s_bukrs and gjahr in s_gjahr.

SELECT BUZEI BSCHL SHKZG
FROM BSEG
INTO (WA_MAIN-BUZEI, WA_MAIN-BSCHL ,WA_MAIN-SHKZG)
WHERE BUKRS = CO_CODE
AND BELNR = DOC_NO
AND GJAHR = PERIOD.

APPEND WA_MAIN TO IT_MAIN.

ENDSELECT.

LOOP AT IT_MAIN INTO WA_MAIN.

SELECT SINGLE SGTXT
FROM BSEG
INTO WA_MAIN-SGTXT
WHERE BUKRS = CO_CODE
AND BELNR = DOC_NO
AND GJAHR = PERIOD
AND BUZEI = WA_MAIN-BUZEI.

* TRANSLATE wa_main-sgtxt TO UPPER CASE.

*************DESCRIPTION**************

SELECT SINGLE KUNNR KOART LIFNR"ADDED
FROM BSEG
INTO (G_KUNNR,G_KOART,G_LIFNR)
WHERE BUKRS = CO_CODE
AND BELNR = DOC_NO
AND GJAHR = PERIOD
AND BUZEI = WA_MAIN-BUZEI.

IF G_KUNNR = ' '.

SELECT SINGLE HKONT
FROM BSEG
INTO WA_MAIN-ACCT
WHERE BUKRS = CO_CODE
AND BELNR = DOC_NO
AND GJAHR = PERIOD
AND BUZEI = WA_MAIN-BUZEI.

   ENDIF. "ADDED

   IF G_KOART = 'S'."ADDED

SELECT SINGLE TXT50
FROM SKAT
INTO WA_MAIN-DESC
WHERE SPRAS = 'EN'
AND KTOPL = 'GTNC'
AND SAKNR = WA_MAIN-ACCT.

   ELSEIF G_KOART = 'D'.

*ELSEIF G_KUNNR NE ' '. "COMMENT

WA_MAIN-ACCT = G_KUNNR.

SELECT SINGLE NAME1
FROM KNA1
INTO WA_MAIN-DESC
WHERE KUNNR = G_KUNNR.

   ELSEIF G_KOART = 'K'.

     SELECT SINGLE NAME1
     FROM LFA1
     INTO WA_MAIN-DESC
     WHERE LIFNR = G_LIFNR.

    ENDIF.

*ENDIF. "COMMENT

*********AMOUNT***************
IF WA_MAIN-SHKZG = 'S'.

SELECT SINGLE WRBTR
FROM BSEG
INTO WA_MAIN-DEBIT
WHERE BUKRS = CO_CODE
AND BELNR = DOC_NO
AND GJAHR = PERIOD
AND BUZEI = WA_MAIN-BUZEI.

ELSEIF WA_MAIN-SHKZG = 'H'.

SELECT SINGLE WRBTR
FROM BSEG
INTO WA_MAIN-CREDIT
WHERE BUKRS = CO_CODE
AND BELNR = DOC_NO
AND GJAHR = PERIOD
AND BUZEI = WA_MAIN-BUZEI.

ENDIF.

MODIFY IT_MAIN FROM WA_MAIN .

DEBIT = WA_MAIN-DEBIT.
CREDIT = WA_MAIN-CREDIT.

SPLIT DEBIT AT '-' INTO DEBIT DUM.
SPLIT CREDIT AT '-' INTO CREDIT DUM.

G_DEBIT = G_DEBIT + DEBIT.
G_CREDIT = G_CREDIT + CREDIT.

ENDLOOP.

IF G_CREDIT = G_DEBIT.

AMT = G_CREDIT.

CALL FUNCTION 'HR_IN_CHG_INR_WRDS'
EXPORTING
AMT_IN_NUM               = AMT
IMPORTING
AMT_IN_WORDS              = WORDS
* EXCEPTIONS
*   DATA_TYPE_MISMATCH       = 1
*   OTHERS                   = 2
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

TRANSLATE WORDS TO UPPER CASE.

ENDIF.

START-OF-SELECTION.

   fname = 'ZVOUCHER5'.
*LOOP AT it_main into wa_main.

   CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
     EXPORTING
       formname               = fname
*   VARIANT                  = ' '
*   DIRECT_CALL              = ' '
IMPORTING
    fm_name                   = fm_name
* 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 fm_name "'/1BCDWB/SF00000019'
    EXPORTING
*     ARCHIVE_INDEX              =
*     ARCHIVE_INDEX_TAB          =
*     ARCHIVE_PARAMETERS         =
*     CONTROL_PARAMETERS         =
*     MAIL_APPL_OBJ              =
*     MAIL_RECIPIENT             =
*     MAIL_SENDER                =
*     OUTPUT_OPTIONS             =
*     USER_SETTINGS              = 'X'
       doc_no                     = doc_no
       co_code                    = co_code
       period                     = period
*   IMPORTING
*     DOCUMENT_OUTPUT_INFO       =
*     JOB_OUTPUT_INFO            =
*     JOB_OUTPUT_OPTIONS         =
*   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.
* ENDLOOP.

Re: Zvoucher printing for multiple docs

nabheetscn — Mon, 18 Nov 2013 04:46:33 GMT

What is thje issue you are facing?

Re: Zvoucher printing for multiple docs

Former Member — Mon, 18 Nov 2013 04:52:22 GMT

im not able to get more than one voucher . my requirement is to print more then one voucher at a time.

Re: Zvoucher printing for multiple docs

nabheetscn — Mon, 18 Nov 2013 04:55:00 GMT

Are you planning to call smartform for each voucher or passing all data at one go?

Re: Zvoucher printing for multiple docs

Former Member — Mon, 18 Nov 2013 05:06:20 GMT

calling smartform for each voucher.

Re: Zvoucher printing for multiple docs

nabheetscn — Mon, 18 Nov 2013 05:09:15 GMT

Samuel

Then i do not see a loop at table ITAB(containing all vouchers detail) and inside it smartform shoudl be called.

Lets say for each voucher you want to pass 10 fields. So create a structure containing these 10 fields.

Before calling smartform get for all voucher theses fields into an internal table ITAB.

simply loop at itab pass first voucher detail to smartfrom and so on.

Nabheet