Purchase order SAPFM06P print program to smartform

Purchase order SAPFM06P,
The above programs referes to PO script form. Now i have created PO smartform. I am looking for program to call smartform. But this program refers to script. So how can i find the smartform calling program.
Regards,
Vasudeva

You have to create a new program. You can copy SAPFM06P into Z program and should make some changes in new program.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
     EXPORTING
           formname = "write the formname you created
     IMPORTING
           fm_name = function_module_name.
CALL FUNCTION function_module_name
After writing this program, go to NACT transaction and set your Z program.

Similar Messages

Purchase order SAPFM06P print program

Dear all,
Does anyone know how this print program works? In standard I seems that there are only two includes and when I look inside it the ME_READ_PO_FOR_PRINTING function module is repeated several times. My goal is to add field at the item level but I did even not identified where the open_form FM is declared...
Best regards.
NC.

Hi Milind,
Hereafter is the code I find within FM06PF02 include.
INCLUDE FM06PE02                                                   *
form entry_neu using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
        l_nast like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
clear ent_retco.
if nast-aende eq space.
    l_druvo = '1'.
else.
    l_druvo = '2'.
endif.
call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
       exporting
            ix_nast        = l_nast
            ix_druvo       = l_druvo
            doc            = l_doc
            ix_screen      = ent_screen
            ix_from_memory = l_from_memory
            ix_toa_dara    = toa_dara
            ix_arc_params = arc_params
            ix_fonam       = tnapr-fonam          "HW 214570
       importing
            ex_retco       = ent_retco.
endform.
*eject
Umlagerungsbestellung, Hinweis 670912                               *
form entry_neu_sto using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
        l_nast like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print,
        F_STO.                                              "670912
clear ent_retco.
if nast-aende eq space.
    l_druvo = '1'.
else.
    l_druvo = '2'.
endif.
F_STO = 'X'.                                              "670912
call function 'ME_READ_PO_FOR_PRINTING'
       EXPORTING
            ix_nast        = nast
            ix_screen      = ent_screen
       IMPORTING
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       CHANGING
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
       EXPORTING
            ix_nast        = l_nast
            ix_druvo       = l_druvo
            doc            = l_doc
            ix_screen      = ent_screen
            ix_from_memory = l_from_memory
            ix_toa_dara    = toa_dara
            ix_arc_params = arc_params
            ix_fonam       = tnapr-fonam                    "HW 214570
            ix_sto         = F_STO                          "670912
       IMPORTING
            ex_retco       = ent_retco.
endform.
*eject
Mahnung
form entry_mahn using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
        l_nast like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
clear ent_retco.
l_druvo = '3'.
call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
       exporting
            ix_nast        = l_nast
            ix_druvo       = l_druvo
            doc            = l_doc
            ix_screen      = ent_screen
            ix_from_memory = l_from_memory
            ix_toa_dara    = toa_dara
            ix_arc_params = arc_params
            ix_fonam       = tnapr-fonam          "HW 214570
       importing
            ex_retco       = ent_retco.
endform.
*eject
Auftragsbestätigungsmahnung
form entry_aufb using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
        l_nast like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
clear ent_retco.
l_druvo = '7'.
call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
       exporting
            ix_nast        = l_nast
            ix_druvo       = l_druvo
            doc            = l_doc
            ix_screen      = ent_screen
            ix_from_memory = l_from_memory
            ix_toa_dara    = toa_dara
            ix_arc_params = arc_params
            ix_fonam       = tnapr-fonam          "HW 214570
       importing
            ex_retco       = ent_retco.
endform.
*eject
Lieferabrufdruck für Formular MEDRUCK mit Fortschrittszahlen
form entry_lphe using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
        l_nast like nast,
        l_from_memory,
        l_xfz,
        l_doc   type meein_purchase_doc_print.
clear ent_retco.
l_druvo = '9'.
l_xfz = 'X'.
call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
       exporting
            ix_nast        = l_nast
            ix_druvo       = l_druvo
            doc            = l_doc
            ix_xfz         = l_xfz
            ix_screen      = ent_screen
            ix_from_memory = l_from_memory
            ix_toa_dara    = toa_dara
            ix_arc_params = arc_params
            ix_fonam       = tnapr-fonam          "HW 214570
       importing
            ex_retco       = ent_retco.
endform.
*eject
Lieferabrufdruck für Formular MEDRUCK ohne Fortschrittszahlen
form entry_lphe_cd using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
        l_nast like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
clear ent_retco.
l_druvo = '9'.
call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
       exporting
            ix_nast        = l_nast
            ix_druvo       = l_druvo
            doc            = l_doc
            ix_screen      = ent_screen
            ix_from_memory = l_from_memory
            ix_toa_dara    = toa_dara
            ix_arc_params = arc_params
            ix_fonam       = tnapr-fonam          "HW 214570
       importing
            ex_retco       = ent_retco.
endform.
*eject
Feinabrufdruck für Formular MEDRUCK mit Fortschrittszahlen
form entry_lpje using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
        l_nast like nast,
        l_from_memory,
        l_xfz,
        l_doc   type meein_purchase_doc_print.
clear ent_retco.
l_druvo = 'A'.
l_xfz = 'X'.
call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
       exporting
            ix_nast        = l_nast
            ix_druvo       = l_druvo
            doc            = l_doc
            ix_xfz         = l_xfz
            ix_screen      = ent_screen
            ix_from_memory = l_from_memory
            ix_toa_dara    = toa_dara
            ix_arc_params = arc_params
            ix_fonam       = tnapr-fonam          "HW 214570
       importing
            ex_retco       = ent_retco.
endform.
*eject
Feinabrufdruck für Formular MEDRUCK ohne Fortschrittszahlen
form entry_lpje_cd using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
        l_nast like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
clear ent_retco.
l_druvo = 'A'.
call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
       exporting
            ix_nast        = l_nast
            ix_druvo       = l_druvo
            doc            = l_doc
            ix_screen      = ent_screen
            ix_from_memory = l_from_memory
            ix_toa_dara    = toa_dara
            ix_arc_params = arc_params
            ix_fonam       = tnapr-fonam          "HW 214570
       importing
            ex_retco       = ent_retco.
endform.
*eject
INCLUDE FM06PE02                                                   *
form entry_neu_matrix using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
        l_nast like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
clear ent_retco.
if nast-aende eq space.
    l_druvo = '1'.
else.
    l_druvo = '2'.
endif.
call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
       exporting
            ix_nast        = l_nast
            ix_druvo       = l_druvo
            doc            = l_doc
            ix_screen      = ent_screen
            ix_from_memory = l_from_memory
            ix_mflag       = 'X'
            ix_toa_dara    = toa_dara
            ix_arc_params = arc_params
            ix_fonam       = tnapr-fonam          "HW 214570
       importing
            ex_retco       = ent_retco.
endform.
*eject
Angebotsabsage
form entry_absa using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
        l_nast like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
l_druvo = '4'.
clear ent_retco.
call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
       exporting
            ix_nast        = l_nast
            ix_druvo       = l_druvo
            doc            = l_doc
            ix_screen      = ent_screen
            ix_from_memory = l_from_memory
            ix_toa_dara    = toa_dara
            ix_arc_params = arc_params
            ix_fonam       = tnapr-fonam          "HW 214570
       importing
            ex_retco       = ent_retco.
endform.
*eject
Lieferplaneinteilung
form entry_lpet using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
        l_nast like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
clear ent_retco.
if nast-aende eq space.
    l_druvo = '5'.
else.
    l_druvo = '8'.
endif.
call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
       exporting
            ix_nast        = l_nast
            ix_druvo       = l_druvo
            doc            = l_doc
            ix_screen      = ent_screen
            ix_from_memory = l_from_memory
            ix_toa_dara    = toa_dara
            ix_arc_params = arc_params
            ix_fonam       = tnapr-fonam          "HW 214570
       importing
            ex_retco       = ent_retco.
endform.
*eject
Lieferplaneinteilung
form entry_lpfz using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
        l_nast like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
clear ent_retco.
if nast-aende eq space.
    l_druvo = '5'.
else.
    l_druvo = '8'.
endif.
call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
       exporting
            ix_nast        = l_nast
            ix_druvo       = l_druvo
            doc            = l_doc
            ix_screen      = ent_screen
            ix_from_memory = l_from_memory
            ix_xfz         = 'X'
            ix_toa_dara    = toa_dara
            ix_arc_params = arc_params
            ix_fonam       = tnapr-fonam          "HW 214570
       importing
            ex_retco       = ent_retco.
endform.
*eject
Mahnung
form entry_lpma using ent_retco ent_screen.
data: l_druvo like t166k-druvo,
        l_nast like nast,
        l_from_memory,
        l_doc   type meein_purchase_doc_print.
clear ent_retco.
l_druvo = '6'.
call function 'ME_READ_PO_FOR_PRINTING'
       exporting
            ix_nast        = nast
            ix_screen      = ent_screen
       importing
            ex_retco       = ent_retco
            ex_nast        = l_nast
            doc            = l_doc
       changing
            cx_druvo       = l_druvo
            cx_from_memory = l_from_memory.
check ent_retco eq 0.
call function 'ME_PRINT_PO'
       exporting
            ix_nast        = l_nast
            ix_druvo       = l_druvo
            doc            = l_doc
            ix_screen      = ent_screen
            ix_from_memory = l_from_memory
            ix_toa_dara    = toa_dara
            ix_arc_params = arc_params
            ix_fonam       = tnapr-fonam          "HW 214570
       importing
            ex_retco       = ent_retco.
endform.
Now I would like to know how does this get the purchase order title from transparent table t166u in order to copy the procedure within my client customized program.
Does this include refers to the MEDRUCK function module?
Regards.
NC.

Urgent,About Purchase order SAPFM06P print program

Hi ,
We define a form("ZFORM") for contract printing in language EN,and we want to use it no matter what language the vendor master data is.But now we have a problem that
when the vendor master data is maintained in ZF language,the print program can not call the form in EN , Do we have to delete other language define of "ZFORM"?
Does anyone can help? thanks a lot.
Pole

Solved by ourself. In fact,we have EN version only, and when we transported the form from DEV to PRD,an unfinished version of ZH form was transported, so it showed the wrong result.

Order confirmation Print Program and Smartform

Hi,
I found a smartform for the order confirmation.'/SMB40/SDORC_A'.I have searched the forums and found the print program to be the same.But we don't have it.We're on ECC 6.0Where can we download the program from?
Thanks..
Edited by: John G on Feb 4, 2008 5:19 PM

Hi John,
He has given some FM that is generated by that form. But that FM will vary from system to system . So thats very very wrong.
Some times smartforms will not be there in our system . You have to request your superiors to place the forms in place.
Reward points if useful
Regards,
Nageswar.

Can we create purchase order through report programming?

hi experts.....
can we create purchase order through report programming?If yes plz give me the thread details?

Hi,
Use this code in a program by using a BAPI function module
Anothe rway is using classical/ALV report using call transaction from a report for changing the PO
loop at i_header.
    header-ref_1         = i_header-legacy.
    headerx-ref_1        = c_x.
    header-doc_type      = i_header-bsart.
    headerx-doc_type     = c_x.
    header-comp_code     = i_header-bukrs.
    headerx-comp_code    = c_x.
    header-purch_org     = i_header-ekorg.
    headerx-purch_org    = c_x.
    header-pur_group     = i_header-ekgrp.
    headerx-pur_group    = c_x.
    header-vendor        = i_header-lifnr.
    headerx-vendor       = c_x.
    concatenate i_header-bedat+4(4)
                i_header-bedat+0(2)
                i_header-bedat+2(2)
                into header-doc_date.
    headerx-doc_date     = c_x.
    header-created_by    = i_header-ernam.
    headerx-created_by   = c_x.
    header-currency      = i_header-waers.
    headerx-currency     = c_x.
    concatenate i_header-kdatb+4(4)
                i_header-kdatb+0(2)
                i_header-kdatb+2(2)
                into header-vper_start.
    headerx-vper_start   = c_x.
    loop at i_items where legacy = i_header-legacy.
      item-po_item            = i_items-ebelp.
      itemx-po_item           = i_items-ebelp.
      itemx-po_itemx          = c_x.
      if i_header-bsart = 'NB'.
        item-material            = i_items-ematn.
        itemx-material           = c_x.
        schedule-quantity        = i_items-menge * 1000.
        schedulex-quantity       = c_x.
      else.
        item-short_text          = i_items-ematn.
        itemx-short_text         = c_x.
        item-matl_group          = '1000'.
        itemx-matl_group         = c_x.
        schedule-quantity        = '1'.
        schedulex-quantity       = c_x.
      endif.
      item-plant               = i_items-werks.
      itemx-plant              = c_x.
      schedule-po_item         = i_items-ebelp.
      schedule-sched_line      = '1'.
      schedulex-po_item        = i_items-ebelp.
      schedulex-sched_line     = '1'.
      schedulex-po_itemx       = c_x.
      schedulex-sched_linex    = c_x.
      concatenate i_items-eildt+0(2)
                   i_items-eildt+2(2)
                   i_items-eildt+4(4)
                   into schedule-delivery_date.
      schedulex-delivery_date = c_x.
      item-price_unit          = i_items-peinh * 100.
      itemx-price_unit         = c_x.
      item-tax_code            = i_items-mwskz.
      itemx-tax_code           = c_x.
      item-shipping            = i_items-evers.
      itemx-shipping           = c_x.
      account-po_item          = i_items-ebelp.
      accountx-po_item         = i_items-ebelp.
      accountx-po_itemx        = c_x.
      if i_header-bsart = 'FO'.
        item-pckg_no = sy-tabix.
        itemx-pckg_no = 'X'.
        limits-pckg_no        = sy-tabix.
        limits-limit          = i_items-overalllimit.
        limits-exp_value      = i_items-expectedoverall.
        posrvaccessvalues-pckg_no    = sy-tabix.
        posrvaccessvalues-line_no    = '0'.
        posrvaccessvalues-serno_line = '00'.
        posrvaccessvalues-percentage = '100.0'.
        posrvaccessvalues-serial_no = '01'.
        account-serial_no     = '1'.
        accountx-serial_no    = '1'.
        accountx-serial_nox   = c_x.
        account-quantity = '1'.
        accountx-quantity = c_x.
        call function 'CONVERSION_EXIT_ALPHA_INPUT'
          exporting
            input = i_items-kostl
          importing
            output = account-costcenter.
        accountx-costcenter   = c_x.
        call function 'CONVERSION_EXIT_ALPHA_INPUT'
          exporting
            input = i_items-sakto
          importing
            output = account-gl_account.
        accountx-gl_account   = c_x.
        item-acctasscat       = i_items-knttp.
        itemx-acctasscat      = c_x.
        item-item_cat         = i_items-epstp.
        itemx-item_cat        = c_x.
      endif.
      append:item,itemx,schedule,schedulex,account,accountx,limits,posrvaccessvalues.
      clear :item,itemx,schedule,schedulex,account,accountx,limits,posrvaccessvalues.
    endloop.
    call function 'BAPI_PO_CREATE1'
      exporting
        poheader                     = header
        poheaderx                    = headerx
*   POADDRVENDOR                 =
*   TESTRUN                      =
*   MEMORY_UNCOMPLETE            =
*   MEMORY_COMPLETE              =
*   POEXPIMPHEADER               =
*   POEXPIMPHEADERX              =
*   VERSIONS                     =
*   NO_MESSAGING                 =
*   NO_MESSAGE_REQ               =
*   NO_AUTHORITY                 =
*   NO_PRICE_FROM_PO             =
        importing
        exppurchaseorder             = ponumber
*   EXPHEADER                    =
*   EXPPOEXPIMPHEADER            =
        tables
        return                       = return
        poitem                       = item
        poitemx                      = itemx
*   POADDRDELIVERY               =
        poschedule                   = schedule
        poschedulex                  = schedulex
        poaccount                    = account
*   POACCOUNTPROFITSEGMENT       =
        poaccountx                   = accountx
*   POCONDHEADER                 =
*   POCONDHEADERX                =
*   POCOND                       =
*   POCONDX                      =
        polimits                     = limits
*   POCONTRACTLIMITS             =
*   POSERVICES                   =
   posrvaccessvalues            = posrvaccessvalues.
*   POSERVICESTEXT               =
*   EXTENSIONIN                  =
*   EXTENSIONOUT                 =
*   POEXPIMPITEM                 =
*   POEXPIMPITEMX                =
*   POTEXTHEADER                 =
*   POTEXTITEM                   =
*   ALLVERSIONS                  =
*   POPARTNER                    =
    if ponumber eq space.
      loop at return where type = 'E'.
        clear buffer.
        move-corresponding return to e_return.
        concatenate i_header-legacy e_return into buffer.
        transfer buffer to p2_file.
      endloop.
      move-corresponding i_header to i_eheader.
      transfer i_eheader to p3_file.
      loop at i_items where legacy = i_header-legacy.
        move-corresponding i_items to i_eitems.
        transfer i_eitems to p4_file.
      endloop.
    else.
      commit work and wait.
    endif.
    clear:ponumber,header,headerx,item,itemx,account,accountx,limits,return,schedule,schedulex,posrvaccessvalues.
    refresh:item,itemx,account,accountx,limits,return,schedule,schedulex,posrvaccessvalues.
endloop.
close dataset p2_file.
close dataset p3_file.
close dataset p4_file.
Regards
Krishna

How to write print program for smartforms

Hi all
I need to develop new smartform and its print program.
But Im not experience in writing print program for smartform.
Ive gone through the simple print program sample that use only one table as input and one table for output.
But my smartforms require few tables for input and output.
How should I define the Data?
Can anyone guide me on how to write it.
Thanks & Regards
az

Transaction code SMARTFORMS
Create new smartforms call ZSMART
2. Define looping process for internal table
Pages and windows
First Page -> Header Window (Cursor at First Page then click Edit -> Node -> Create)
Here, you can specify your title and page numbering
&SFSY-PAGE& (Page 1) of &SFSY-FORMPAGES(Z4.0)& (Total Page)
Main windows -> TABLE -> DATA
In the Loop section, tick Internal table and fill in
ITAB1 (table in ABAP SMARTFORM calling function) INTO ITAB2
3. Define table in smartforms
Global settings :
Form interface
Variable name Type assignment Reference type
ITAB1 TYPE Table Structure
Global definitions
Variable name Type assignment Reference type
ITAB2 TYPE Table Structure
4. To display the data in the form
Make used of the Table Painter and declare the Line Type in Tabstrips Table
e.g. HD_GEN for printing header details,
IT_GEN for printing data details.
You have to specify the Line Type in your Text elements in the Tabstrips Output options.
Tick the New Line and specify the Line Type for outputting the data.
Declare your output fields in Text elements
Tabstrips - Output Options
For different fonts use this Style : IDWTCERTSTYLE
For Quantity or Amout you can used this variable &GS_ITAB-AMOUNT(12.2)&
5. Calling SMARTFORMS from your ABAP program
REPORT ZSMARTFORM.
Calling SMARTFORMS from your ABAP program.
Collecting all the table data in your program, and pass once to SMARTFORMS
SMARTFORMS
Declare your table type in :-
Global Settings -> Form Interface
Global Definintions -> Global Data
Main Window -> Table -> DATA
Written by : SAP Hints and Tips on Configuration and ABAP/4 Programming
http://sapr3.tripod.com
TABLES: MKPF.
DATA: FM_NAME TYPE RS38L_FNAM.
DATA: BEGIN OF INT_MKPF OCCURS 0.
INCLUDE STRUCTURE MKPF.
DATA: END OF INT_MKPF.
SELECT-OPTIONS S_MBLNR FOR MKPF-MBLNR MEMORY ID 001.
SELECT * FROM MKPF WHERE MBLNR IN S_MBLNR.
MOVE-CORRESPONDING MKPF TO INT_MKPF.
APPEND INT_MKPF.
ENDSELECT.
At the end of your program.
Passing data to SMARTFORMS
call function 'SSF_FUNCTION_MODULE_NAME'
exporting
formname = 'ZSMARTFORM'
VARIANT = ' '
DIRECT_CALL = ' '
IMPORTING
FM_NAME = FM_NAME
EXCEPTIONS
NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3.
if sy-subrc 0.
WRITE: / 'ERROR 1'.
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
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
GS_MKPF = INT_MKPF
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.
Reward points...

Regarding passing an internal table from print program to smartform....

Hi All,
can any body let me how to pass an internal table to the smartform, i have processed the data in the print program then i want to pass the final internal table from the print program to smartform and with that data in the internal table i have to process it in the smartform (i want to get some more data based on the internal table data from the print program) and then i will display finally.
for example: i have it_qals which contains all the lot numbers which is processed in teh printprogram, now i want to pass all these (it_qals) lotnumbers to smartform , and in the smartform i will use the lotnumbers in the it_qals table and will process other data accordingly
can any body help me plzz.. its very urgent

Chek this code i am coping my whole program here.
REPORT ZDP_SMARTFORMS_REPORT3 .
TABLES: MARA,
MAKT.
DATA: FNAME TYPE RS38L_FNAM.
DATA: BEGIN OF ITJOIN OCCURS 0.
INCLUDE STRUCTURE ZDP_JOIN__IN_SMARTFORM.
INCLUDE STRUCTURE MARA.
INCLUDE STRUCTURE MAKT.
data: END OF ITJOIN.
*DATA: BEGIN OF ITJOIN OCCURS 0,
MATNR LIKE MARA-MATNR,
END OF ITJOIN.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: MAT FOR MARA-MATNR.
SELECTION-SCREEN END OF BLOCK B1.
SELECT MARA~MATNR MAKTX "UP TO 5 ROWS
FROM MARA JOIN MAKT ON MARAMATNR = MAKTMATNR
INTO TABLE ITJOIN
WHERE MARAMATNR IN MAT and maktspras eq 'EN'.
into corresponding fields of table it
*SELECT MATNR UP TO 5 ROWS FROM MARA INTO TABLE ITJOIN
WHERE MATNR IN MAT.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = 'ZDP_SMARTFORMS_3'
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.
not necessar y above function if u copy function name from
**- smartforms>environment>function name
CALL FUNCTION '/1BCDWB/SF00000037'
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
ITJ = ITJOIN
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.
Also check these links
Check out this link,
http://www.erpgenie.com/abap/smartforms.htm
and also refer these threads,
Passing table to smartform
PASSING INTERNAL TABLE IN SMARTFORM
Hope this helps.
ashish

To find print program for smartforms.

pls tell me how to find print programs for smartforms.pls tell me with all steps.clearly.i tried with tanpr table but unable to find

hi,
Please take a look at the NACE transaction where all the output conditions will be configured. Drill down into you specific application and you should be able to find the print program as well as the smart form name.
Steps..
Use NACE and follow procedure as follows
1)Choose Application from list(eg PO)
2)Click OP type
3)Chose one OP type from Right pane.
4)Click on processing routines
and you got it
regards,
keerthi

Need Print Program for Smartform /SAPSLL/SF_GL_EPL for Export Packing list

Hello Friends,
I need a print program for Smartform /SAPSLL/SF_GL_EPL for Export Packing list. Please reply ASAP.
Thanks,
Ziad.

Hi Sowjanya,
I am using FUEP o/p type for Export Packing list for Billing . I Copied SAPscript SD_EXPORT_FUEP form and the print program for this is same RVADAUS1. Can we use the same print program for Smartform /SAPSLL/SF_GL_EPL?
Thanks,
Ziad

How to define a purchase order output print view as my element

Dear all :
I have created a purchase order and want to print,but i found the details of print doc is not my requirements.So,I want to change it .I don't know where the path is .THKS
Brian

Hello Jianfeng,
The purchase order layout can be changed using the SAP script/Form. You need to identify what you need to put on the purchase order output also you can include the client's logo and other standard and constant details (tax number / registration number etc).
You have to give this requirement to the technical person (ABAPer). (S)he will make the changes in the script program and you need to assign this form to the PO printing program.
In standard SAP version, Form MENDRUK is available for Purchase order printing.
Once form is developed by the developer, you need to assign this form in customization,
SPRO--> Mat Managmenet --> Purchasing --> Messages --> Forms Layouts for messages --> Assign form and output program for purchase order.
Hope this helps.
Regards
Arif Mansuri
Reward the points if answer is helpful.

Va32-standard print program, and smartform

Hi experts,
i need to find out the standard print program for va32 or va33. how to find out.
i have a smartform /SMB40/SDSDA_L,,,,,for this one which print program i can use. is this one correct for for va32, ifany change is there,,,u can suggest me.

Hi
check the NACE tcode or in TNAPR table by entering the output type field
You can use the driver program of SO:<b> /SMB40/RVADOR01</b> of Sales order to Sch Agreement also, use this
script details for
SALES ORDER/ENQUIRY/QUOTATION/SCH AGREEMENT/CONTRACT
Output type : BA00
ScriptForm Name : RVORDER01
Driver Program Name : RVADOR01
<b>Reward points for useful Answers</b>
Regards
Anji

Migrating SAPscript print program to Smartform

hello everyone,
Requirement is to print transfer orders. Current functionality supports SAPscripts and its print program. Since we are going to be using Smartforms, I need to change the print program so that it calls the custom smartform created by me.
Can anybody help me out by telling me a step-by-step process as to WHERE and WHAT changes I can do in the SAPscript print program so that I can use it for my Smartform?
The SAPscript print program that needs to be changed is: RLVSDR40.
Thanks in advance.
Regards,
Fred.

Hi Fred,
The system does not migrate the print program (data retrieval) or the form logic contained in the print program. You must make the required changes to the respective print program yourself. PL take a look at the following
<a href="http://help.sap.com/saphelp_47x200/helpdata/en/9d/9599386185c064e10000009b38f8cf/frameset.htm">SAP help</a>
Regards,
Suresh Datti

Order Confirmation Print Program

Hi,
Can any body tell me the standard print program for order Confirmation?
Thanks and Regards,
Alok

Can you tell me which one are you using ( SMART form or SAP Script).
If it is Sap Script just copy the Layout Set and Program to Custom then do the modifications.
If you want to do it in smartform,
I don't think there is a standard smartform exists for this.
In this case you can migrate the SAP Script to Smartform . and then you can do the changes.
Thanks
Sekhar.

Printed XML Purchase Order Report - Printing blank Blanket PO page

Hi,
When printing the xml report of a Blanket PO Release, the release lines and headers print first but the last page is a page for the primary blanket PO (PO Num without any releases attached). This page does not contain any information in the header or line fields therefore it is a waste of paper. Looking into the XML code the blanket PO page is pulled in the same manner as the Release lines, against G_Headers. I'm going to look into the Reports Developer SQL to see if I can find something but I would rather not mess with the configuration of the SQL if I did not have to.
Any ideas on how to get rid of this extra unnecessary page?
Thanks,
-Steve

Hi,
RDBMS : 11.2.0.1.0
Oracle Applications : 11.5.10.2
OS: Unix
The issue can be reproduced.
The report in question has had customization but the blank page prints in the Printed Purchase Order Report(Portrait) seeded function as well. From what I see the SQL might be able to modified based off of the input paramet "Print Blanket PO". When this is selected "No" the Blanket header is printed with no lines (that's where the blank PO page is coming from). When selected Yes the blanket header with all the blanket lines are printed. So I may be able to go in and change how that input parameter changes the output, unless there is a better way.
-Steve

Purchase order form printing is required in preprinted stationary format

Dear All,
I need one VERY URGENT HELP from you.
Client wants to do printing Purchase order form in preprinted stationary format i.e. using this format they want to print PO document only for certain variable fields each time in our Laser printer,but some fields (which are already) lying will not be printed. (But in the PDF Download of the form for each document number all the fields must appear).
Could you please guide me what are the sequential steps need to be followed, where & how in order to incorporate "preprinted stationary format" scenario in my
Purchase order form. Also, if possible, please tell me in brief what is the meaning of preprinted stationary format & why we are using it / purpose of it.
Awaiting your favorable reply at the earliest.
FYI. Anyways, I have convinced Client that we will provide PDF attachment of form only to them, not Excel attachment. Thanks very much for encouraging me.
Thanks & Regards
Sudipta

Hi,
Thank you for your valuable input.
Please tell me what should be my approach i.e. sequential steps need to be followed & where ( with the related configuration / settings changes, necessary coding changes & where, if possible, please send me one realtime scenario and its related documentation related to my concerned issues at the earliest as it will be very beneficial for mine. I have come across this scenario for the 1st time. Kindly guide me with your documents) in order the incorporate the below requirement:
After modication of standard Purchase order form using SAPSCRIPT I / Client want to download it into PDF attachment individually corresponding to each PO number. In this PDF attachment all the fields will appear.
But when I / Client will take Printout of this modified PO form (say for example ZMEDRUCK) only certain important information / certain field values will be getting printed, not all.
User will be able to give ranges of PO document numbers for printing at a time based on their requirement, here all documents as specified by the user will be getting printed at a time, but one document printout followed by another document printout , and so on.
We want to print PO sapscript form in "Print output" only. Also, please guide me how many & which output types, message type etc we need to configure & how for the above requirement ( i.e. download of the ZMEDRUCK form into PDF with its all the fields values + printing this ZMEDRUCK form for printing certain important information using "preprinted stationary format".)
FYI. We are using Laser Printer for printing SAPSCRIPT forms.
Awaiting your valuable fruitful feedback with necessary documents at the earliest.
Thanks a lot.
Have a very nice time ahead.
Thanks & Regards
Sudipta

Purchase order SAPFM06P print program to smartform

Similar Messages

Maybe you are looking for