One PO multiple vendors

We have a process, not currently in SAP where we would issue one purchase order for a product but pay two vendors. It is not currently in an ERP system, so the manual entries are made how they need to be made. We are trying to get this same process now into SAP.
Example: quantity of 10    PO value 1000 for the cost of the product
                in the value of that $1000 is $900 for the actual product and $100 for sourcing.
                The full value of the PO ($1000) must go into inventory
                We will issue two checks to two separate vendors for the above amounts ($900 to vendor 1, $100 to vendor 2)
Has anyone had this situation and how did you handle such a posting? We need to get a posting to both vendors so we can clear the payment made to each from that vendor account.
Thanks

Hi,
   Create a custom condition type by copying FRA1 or similar. Maintain the condition category as B (Delivery cost) and the acrual flag. Add the condition type to the pricing schema and assign the acrual key. Maintain the GL against acrual key in OBYC.
   Now, while creating the PO, you may create PO for the main vendor and then maintain the different vendor for the custom condition type in condition detail screen. Refer the help doc: Planned Delivery Costs (SAP Library - Logistics Invoice Verification (MM-IV-LIV)) and the wiki: http://wiki.scn.sap.com/wiki/display/ERPLO/Posting+planned+delivery+cost+to+Non-inventory+account
   In your example, maintain 900 as PB00 and 100 in freight condition type.
Regards,
AKPT

Similar Messages

One cheque for multiple vendors

hi,
is it possible to generate one cheque for multiple vendors ?
cheque will be sent to bank and bank will deposit the amounts into vendor banks.
Can you anybody help me?
regards,
kalyan

Hi
Yes. you can do it
First transfer the amount to bank and from there bank will transfer the amount to respective vendors through ther banks.
Go for implementing automatic payment programme according to your client reqyuirement. Check TCode F110 which is master transaction for APP. Check at TCode F110-Environment-maintain Config.....
Cheers
Srinivas

One RFQ for multiple vendors

Hello Experts,
In SAP, whether an RFQ can be sent to multiple vendors.?
In ME41 (RFQ Creation), we have the option of mentioning only one vendor.Whether the same RFQ can be created/sent to multiple vendors?
Please clarify.
Regards
Mahesh

Hi,
We can surely send one RFQ to multiple vendors (vendors having master record as well as one time vendor). At first we create RFQ for material or service i.e. we maintain header data and item description in item overview, after that u can send it to multiple vendors by entering vendor name or entering one time vendor detail in vendor address tab which opens separate screen, here when u press save a particular RFQ is generated for the relevant vendor u maintain. Than u will get the item overview screen again if u want than do some changes or not and again send it to another vendor by the same process.
Item overview serves as a template in which u maintain ur requirements and than u use this to send multiple vendors, to end end the RFQ creation press exit.
Regards,
Man

One cheque for multiple vendors in diff comp codes

Good day all
My client wants to pay multiple vendors in multipe company codes with one cheque.
Ex.1. Vendor 123 in Comp code 1
          Vendor 555 in Comp code 2
          Vendor 789 in Comp code 3
          Must all be paid with one cheque to Vendor 987 in Comp code 1.
OR
2. Vendor 123 in Comp 1
    Vendor 123 in Comp 2
    Vendor 123 in Comp 3
    Must all be paid with one cheque to Vendor 123 in Comp code 1.
Only ONE cheque in both cases must be created.
Is this at all possible with F110, check payments?
Any advice or ideas would be greatly appreciated.
Regards
Louise

HI,
Do vendor transfer posting from one to another company code that transfer remaining two vendors to one main vendor through cross company transaction and then clear the open items of remaining two vendors. And run F110 for Main vendor to whom who want to print cheque.

Automatic Payments - one payment to multiple vendors

Hello experts,
I have searched through the SDN but didn´t find a solution.
I have a requirement to create a single payment (Financial document) to multiple vendors when using automatic payments (F110).
For example, creating a document like the one below:
Deb - vendor 1 - 300
Deb - vendor 2 - 700
Cred - Bank A - 1000
The vendors have the same payment method.
I tried with Payment Method Supplement, grouping key, but only works with documents of the same vendor.
Note: I have no problem with grouping items from the same vendor.
Thanks in advance

Hi Vishnu,
Thanks for your answer,
Unfortunately alternative payee can´t be the solution for this case, because vendors 1 and 2 have different bank accounts.
Nonetheless, I tried the solution with the same alternative payee (updated in General data of the two vendors), and the system created two documents (one for each vendor).
The option u201Cindividual paymentu201D isn´t selected in any of the vendors (including the alternative)
The question here is if I try to create the payment manually it is possible to have a single document, but automatically I can´t find a solution.
Regards

How to Maintain Payment with one check for Multiple Vendors?

Dear Gurus,
i have a scenario for outgoing payment, here it is
i have some open items for multiple vendors. say it for open item
1. with amount 5000 USD for vendor A
2. wiht amount 10000 USD for vendor B
my company pay both open item 1 & 2 with one check, say the check no is 27382830 and the amount is 15000 USD. The check is given to the Bank as an order to Pay the vendor. so the check does not have receiver name. i attach a formal letter to the bank to ask them for making payment with that check. the letter contains a detail the amount, vendor bank account number, account holder, and the vendor name.
so how i can threat this business scenario into SAP? i want to trace check number used to pay the vendors.
hope you can give some clues. is it possible to maintain scenario above with automatic payment?
best regards,
land lord

Hi,
Yes you can map this scenario in SAP and use F110 for this. But you will also have to use some Z programs..
1. For F110 FBZP configuration, maintain outgoing bank clearing Account (this will be a dummy account and not the actual Outgoing Bank Account) as the Bank Sub Account.
By doing this when you run payment in F110, entry will be
Vendor A A/c...Dr.
outgoing bank clearing Account Cr.(1)
Vendor B A/C... Dr.
outgoing bank clearing Account Cr.(2)
2.Then you will have to use Post with clearing transaction codes and make one entry
outgoing bank clearing Account Cr.(1)..Dr.
outgoing bank clearing Account Cr.(2)..Dr.
To Bank Outgoing Account(Actual Bank outgoing Account) Cr.
3. Now, when you get the single cheque no. from Bank against both the vendors, then thru FB02, change the assignment field/Reference field for Che No. updates.
But do check BRS also for its reconciliation.. If you do it on a daily basis.. then it would not be difficult.
Hope this helps you..
Regards,
SAPFICO

Multiple Vendors for one Document Number in BW

Hello All,
We are getting Multiple Vendors for one document in BW. In R/3, standard table and RSA3, we are able to see correct vendor where as when it is coming into BW it is showing incorrect vendor in PSA and Data Target.
All issues are coming for Process Key 1 only.
*For Example:*
Document: 9400000007
Schedule Line:1
Doc Item: 1
Vendor:
0010019229 - Incorrect Vendor
0010018962 - Correct Vendor
Committed Quantity: 0
Doc Type:
ZNB
ZNPP
Process Key: 1
Not sure how to upload screen shot.
Please suggest.
Thanks,
Vijay

Hi ,
Are you loading for the first time ? If yes have you checked Transaction BF11 settings.
Regards
Rahul Bindroo

Multiple Vendors for one Purchase order in delta load

Hello,
While Extracing data from 2LIS_02_SCL we are getting 2 vendors for a singe purchase order , as we know that for a purchase order we cannot have multiple vendors.
When i checked data in deta queue (RSA7) we are able to see only single vendor for 1PO, but when we load to bw and checked data in PSA we are getting 2 different vendors for same PO.
Regards,
Vasu.

Hello,
As per my understanding you are getting data upto delat queue (RSA7) Correctly and you are getting incorrect data at PSA level In bw.
i think you must have some customer exit in ECC for the datsource 2lis_02_scl. so i would say that there may be some problem in the code since the customer exit code will get triggered after RSA7 and before PSA in BW..
Additionally you can cross check in RSA3 with update mode as 'D' which gives delta before loading to BW.
Debugging option :
Load data to BW and pick the PO having multiple vendors and in ECC dubug using RSA3 with update mode as "R" inorder to fing the problem in customer exit code.
Hope this helps you..
Regards,
Srikanth.

Split deliveries/shipments when having multiple vendors on one sales order.

When creating a sales order (ZOST) in VA01 if there are multiple vendors represented on the order the process wants to split the shipment/delivery of the items on the order. This problem manifests itself when the vendor is being brought forward to the billing document for chargeback purposes. Suggested fixes are to do an enhancement in the Vistex CB program to source vendor ID from the material master or use VK11 to allow Vistex to source Vendor ID for chargebacks. Is this the result of a configuration problem in SAP or is it standard that SAP can not bring forward multiple vendors on a line item basis from sales order to billing document?

Hi
To know t he reasons of splitting in deliveries, see SAP Note 546668 - FAQ: Delivery split when creating deliveries.
If you want other criteria to define split in deliveries, see SAP Note 166397 - Delivery split according to customer field ZUKRL.
I hope this helps you
Regards
Eduardo

Balance Confirmation Report for multiple vendors

Hi all,
I have developed report in FI which gives details about opening balance,fiscal year, document number, posting date and amount in the output.In selection screen I am passing single values of fiscal year(GJAHR), vendor(LIFNR) and company code(BUKLRS). This report is working fine for single vendor but now I need to change it for multiple vendors. I tried but not getting desired result in the output.
Following is code for single vendor in selection screen.
SORT t_bsikbsak BY bukrs belnr gjahr buzei.
LOOP AT t_bsikbsak.
    t_pre_bal-netpr = t_bsikbsak-dmbtr.
    t_pre_bal-sgtxt = 'Opening Balance'.
    IF t_bsikbsak-shkzg EQ 'H'.
      t_pre_bal-netpr = t_pre_bal-netpr * -1.
    ENDIF.
    COLLECT t_pre_bal.
ENDLOOP.
LOOP AT t_pre_bal.
    itab-netpr = t_pre_bal-netpr.
    itab-sgtxt = t_pre_bal-sgtxt.
    APPEND itab.
ENDLOOP.
SORT t_bseg BY bukrs belnr gjahr buzei.
CLEAR itab.
LOOP AT t_bseg.
    ON CHANGE OF t_bseg-bukrs OR t_bseg-belnr OR t_bseg-gjahr.
      READ TABLE t_bkpf WITH KEY bukrs = t_bseg-bukrs
                               belnr = t_bseg-belnr
                               gjahr = t_bseg-gjahr.
      IF sy-subrc IS INITIAL.
        itab-budat = t_bkpf-budat.
        itab-belnr = t_bkpf-belnr.
        itab-gjahr = t_bkpf-gjahr.
      ENDIF.
    ENDON.
    IF t_bseg-koart = 'K' AND t_bseg-lifnr = s_lifnr.
      itab-sgtxt = t_bseg-sgtxt.
     READ TABLE t_bsak WITH KEY bukrs = t_bseg-bukrs
                                belnr = t_bseg-belnr
                                gjahr = t_bseg-gjahr.
      IF t_bseg-shkzg EQ 'H'.
        t_bseg-dmbtr = t_bseg-dmbtr * -1.
      ENDIF.
      itab-netpr = itab-netpr + t_bseg-dmbtr.
    ELSEIF t_bseg-hkont = '0044100040'. " G/L for INTEREST EXPENSES
      itab-inamt = t_bseg-dmbtr.
    ELSEIF t_bseg-hkont = '0012300060'. " G/L for TDS ON INTEREST
      itab-tdamt = t_bseg-dmbtr.
    ENDIF.
    AT END OF bukrs.
      append_flag = 'X'.
    ENDAT.
    AT END OF belnr.
      append_flag = 'X'.
    ENDAT.
    AT END OF gjahr.
      append_flag = 'X'.
    ENDAT.
    IF append_flag = 'X'.
      APPEND itab.
      CLEAR itab.
      CLEAR : append_flag.
    ENDIF.
ENDLOOP.
Closing Balance
LOOP AT itab.
    t_temp-netpr = itab-netpr.
    t_temp-sgtxt = 'Closing Balance'.
    COLLECT t_temp.
ENDLOOP.
CLEAR itab.
LOOP AT t_temp.
    itab-netpr = t_temp-netpr.
    itab-sgtxt = 'Closing Balance'.
    APPEND itab.
ENDLOOP.
Kindly provide some input how to do it for multiple vendors in same code otherwise provide some suggestions for new code.
Thanks in Advance.waiting for response.
Thanks & Regards,
Harshada Patil

Hi,
Thanks for quick response.Following is the structure of internal tables which I am using in this program.
TYPES : BEGIN OF ty_bsikbsak ,
        bukrs TYPE bsik-bukrs,
        lifnr TYPE bsik-lifnr,
        umsks TYPE bsik-umsks,
        umskz TYPE bsik-umskz,
        augdt TYPE bsik-augdt,
        augbl TYPE bsik-augbl,
        gjahr TYPE bsik-gjahr,
        belnr TYPE bsik-belnr,
        buzei TYPE bsik-buzei,
        zuonr TYPE bsik-zuonr,
        shkzg TYPE bsik-shkzg,
        dmbtr TYPE bsik-dmbtr,
        END OF ty_bsikbsak.
TYPES : BEGIN OF ty_bkpf ,
        bukrs TYPE bkpf-bukrs,
        belnr TYPE bkpf-belnr,
        gjahr TYPE bkpf-gjahr,
        bldat TYPE bkpf-bldat,
        budat TYPE bkpf-budat,
        stblg TYPE bkpf-stblg,
        stjah TYPE bkpf-stjah,
        END OF ty_bkpf.
TYPES : BEGIN OF ty_bseg ,
        bukrs TYPE bseg-bukrs,
        belnr TYPE bseg-belnr,
        gjahr TYPE bseg-gjahr,
        buzei TYPE bseg-buzei,
        koart TYPE bseg-koart,
        shkzg TYPE bseg-shkzg,
        dmbtr TYPE bseg-dmbtr,
        sgtxt TYPE bseg-sgtxt,
        hkont TYPE bseg-hkont,
        lifnr TYPE bseg-lifnr,
        END OF ty_bseg.
DATA : t_bsik     TYPE TABLE OF ty_bsikbsak WITH HEADER LINE.
DATA : t_bsak     TYPE TABLE OF ty_bsikbsak WITH HEADER LINE.
DATA : t_bsikbsak TYPE TABLE OF ty_bsikbsak WITH HEADER LINE.
DATA : t_bkpf     TYPE TABLE OF ty_bkpf     WITH HEADER LINE.
DATA : t_bkpf2    TYPE TABLE OF ty_bkpf     WITH HEADER LINE.
DATA : wa_bkpf    TYPE ty_bkpf     .
DATA : t_bseg     TYPE TABLE OF ty_bseg     WITH HEADER LINE.
DATA: BEGIN OF t_pre_bal OCCURS 0,
      netpr TYPE bseg-dmbtr,
      sgtxt TYPE bseg-sgtxt,
      lifnr TYPE bseg-lifnr,
      END OF t_pre_bal.
DATA: t_pre_bal1 LIKE t_pre_bal.
DATA: BEGIN OF t_temp OCCURS 0,
      netpr TYPE bseg-dmbtr,
      sgtxt TYPE bseg-sgtxt,
      lifnr TYPE bseg-lifnr,
      END OF t_temp.
DATA: BEGIN OF itab OCCURS 0,
      gjahr LIKE bsik-gjahr,
      belnr LIKE bsik-belnr,
      budat LIKE bkpf-budat,
      sgtxt LIKE bseg-sgtxt,
      lifnr LIKE lfa1-lifnr,
      netpr LIKE bseg-dmbtr, " Net Amount
      inamt LIKE bseg-dmbtr, " Interest Amount
      tdamt LIKE bseg-dmbtr, " TDS Amount
      END   OF itab.
RANGES: r_budat FOR bkpf-budat.
I have Included vendor(LIFNR) in all these structures.Now I am using three internal tables to hold opening balance, Closing balance and line item accounting documents from bseg table respectively.here, I need to collect all these three internal tables into one internal table according to vendor(LIFNR) with it's opening balance, accounting documents and closing balance. can anyone guide me through this so that I can collect all these three internal tables into single one.
Thanks & Regards,
Harshada Patil
Edited by: Harshada.up on Feb 15, 2011 9:33 AM

Third Party Order processing in case of multiple vendors

Hi,
With the third party order processing; purchase requisition gets created automatically based on the scheduling item category. This process works fine when there is only one vendor. In case if we have multiple vendors for the same product; purchase requisition gets created with out any vendor reference. These orders needs manual intervention to assign the source of supply.
In stead of this; we would like to automate the process of the selecting the vendor automatically? Is there any by means? Currently we do populate the corresponding vendor partner function in the sales order item level. Can this be used as reference vendor during purchase requisition creation process? Is there any configuration or customitization?
Have any one come across this?
Thanks for the answer..
Regards,
Nagarjuna

There's a default vendor in source lists.

Need Multiple Units of Measure for a given material due to multiple vendors

Hello,
We have a requirement where we must have multiple units of measue (each, box, case, pallet) for a given material.
Background:
We have multiple vendors for one SAP material number. We need to store 4 levels of units of measure for each vendor+material combination.
Unit of Meaure levels
1. Each
2. Innerpack (ex: 12 each = 1 innerpack)
3. Box (ex: 36 eaches = 1 box)
4. Pallet (ex: 100 eaches = 1 pallet)
Standard SAP allows in MM01 additional data --> Units of Measure only 1 Ea, Box, Plt, etc.
Our requirement is to allow multiple Units of Measure due to multiple vendors providing the same material.
So, our unique combination is by a Material+Vendor.
We are considering adding the vendor name and vendor number to the material master --> additional data --> Units of Measure tab.
Does this seem like a good solution? What impacts do you foresee with approach?
Any alternatve solutions?
We thought we could enhance the purchasing info records to allow multiple units of measure too but then we need to also add many fields to hold the weight, lenght, height, width, volume, country of origin, etc.
Please recommend a best practice or solution to handle this requirement.
Thanks in advance!!!

Hi,
Maintain the alternative units in Material Master in Additional Data -> Units of Measure section with proper conversion factors.
Create individual info-records i.e. per mtl-vendor combination & in the info-record maintain the order unit, along with other details as required.
Now when you create a PO, the details will be read from the info-record. To test the same, create them in your sandbox & see if it meets your requirement.
Hope the above clarifies your query.
Regards,
Vivek

Reg:Single Check for Multiple Vendors

Hi Experts,
I want to Issue a Single check for all vendor open items...
For this is I created one Group Key and assigned in the vendor master record, but while doing the payment separate check issuing for each vendor,
any idea

Hi,
Can you check the below thread of urs.
[Reg:Single Check for Multiple Vendors]
In addition to the above, please make sure that in OBVU, the check box separate payment for each ref is deselected for your questioned comapny code.
You would have continued your earlier thread instead, rather than a new thread.
Thanks,
Srinu

Payment advice for multiple vendor using tcode F110

Hi all
I am facing problem while printing payment advice program for Multiple vendors using transaction F110. If I passed single or multiple vendor , I am getting only single vendor payment advice details ( if I passed more than one vendor also) .I need solution for multiple vendors .
Tcode : F110
Program : RFFOD__U .
How to print multiple vendor for payment advice details.
pls provide the solution for this..
waiting for Reply.

I have used different program RFFOD__S. It was working fine.

Converting report output to pdf by submit spooland email to multiple vendor

Hi all,
           my current program converting the report output to pdf and then downaloding andsending to vendor email.If user enter single vendor is o.k. but if suppose user enter multiple vendors,report is dipalying with multiple vendor information and all this information converting to one pdf file only.but i need particular vendor pdf have particular vendor info only excluding remaining vendor info.I am pasting my code.can anyone suggest?
TYPES: BEGIN OF type_data,
       lifnr TYPE ekko-lifnr,
       matnr TYPE lips-matnr,
       vgbel TYPE lips-vgbel,
       vgpos TYPE lips-vgpos,
       mfrgr TYPE lips-mfrgr,
       vbeln TYPE ekes-vbeln,
       erdat TYPE ekes-erdat,
       lfdat TYPE ekes-eindt,
       lgort TYPE lips-lgort,
       verur TYPE ekes-xblnr,
       lfuhr TYPE ekes-uzeit,
       lfimg TYPE lips-lfimg,
       meins TYPE lips-meins,
       posnr TYPE lips-posnr,
       kdmat TYPE lips-kdmat,
       dabmg TYPE ekes-dabmg,
       eindt TYPE eket-eindt,
* Add by liza DEVK989704
       park TYPE ZPO_PARK-menge,
* End by liza DEVK989704
       END OF type_data.
DATA: gt_data TYPE STANDARD TABLE OF type_data.
DATA: gw_data LIKE LINE OF gt_data.
form display_list.
DATA: lv_maktx   TYPE makt-maktx,
        lv_adv(01) TYPE c.
DATA: lv_menge TYPE zomm_t0104m-menge.
*-- Set titles
title1 = 'Shipping notifications'.
title2 = '(Formerly Known As Matsushita Industrial )'.
title3 = sy-title.
IF NOT pa_fax IS INITIAL.
    NEW-PAGE LINE-SIZE 120 LINE-COUNT 44.
    title3 = 'Outstanding shipping notifications by supplier'.
ENDIF.
SORT gt_data BY lifnr lfdat matnr vgbel vgpos eindt.
LOOP AT gt_data INTO gw_data.
    AT NEW lifnr.
      NEW-PAGE.
      sy-pagno = 1.
*-- Get the vendor name
      CLEAR: gv_name1,
             gv_telf1,
             gv_telfx.
      SELECT SINGLE name1 telf1 telfx
             INTO (gv_name1, gv_telf1, gv_telfx)
             FROM lfa1
             WHERE lifnr = gw_data-lifnr.
    ENDAT.
AT NEW matnr.
*-- Get the material description
      CLEAR lv_maktx.
      SELECT SINGLE maktx INTO lv_maktx
             FROM makt
             WHERE matnr = gw_data-matnr
               AND spras = sy-langu.
    ENDAT.
*-- If "only pending shipping notifications" is selected, remove all
*   entries with no pending quantity
    IF gw_data-lfimg LE gw_data-dabmg AND
       pa_pend = 'X'.
      CONTINUE.
    ENDIF.
*-- Highlight entries where the SN delivery date is before the PO
*   delivery date
    IF gw_data-lfdat < gw_data-eindt.
      FORMAT INTENSIFIED ON.
      lv_adv = 'X'.
    ELSE.
      FORMAT INTENSIFIED OFF.
      CLEAR lv_adv.
    ENDIF.
    lv_menge = gw_data-lfimg - gw_data-dabmg.
* Add by liza DEVK989704
    clear: PARKING, T_PARK.
    refresh: T_PARK.
    Select * from ZPO_PARK into T_PARK
    where vbeln = gw_data-vbeln
    and lifnr = gw_data-lifnr
    and matnr = gw_data-matnr.
    Append T_PARK.
    Endselect.
    Loop at T_PARK.
      PARKING = PARKING + T_PARK-menge.
    Endloop.
    gw_data-park = PARKING.
* End by liza DEVK989704
    IF pa_fax IS INITIAL.
      WRITE:/2(18) gw_data-matnr,
              (40) lv_maktx,
                   gw_data-vgbel,
                   gw_data-eindt,
              (04) gw_data-mfrgr,
              (18) gw_data-verur,
                   gw_data-vbeln,
                   gw_data-lfdat,
              (07) gw_data-lfimg UNIT gw_data-meins,
              (07) gw_data-dabmg UNIT gw_data-meins,
              (07) lv_menge UNIT gw_data-meins,
                   gw_data-lgort,
                   gw_data-erdat,
              (01) lv_adv,
* Add by liza DEVK989704
              (08) gw_data-park.
* End by liza DEVK989704
    ELSE.
      WRITE:/2(12) gw_data-matnr,
              (26) lv_maktx,
                   gw_data-vgbel,
              (16) gw_data-verur,
                   gw_data-vbeln,
                   gw_data-lfdat,
              (07) gw_data-lfimg UNIT gw_data-meins,
              (07) gw_data-dabmg UNIT gw_data-meins,
              (07) lv_menge UNIT gw_data-meins,
                   gw_data-lgort.
    ENDIF.
    PERFORM write_vline.

AT END OF lifnr.
     If pa_dtim NE '000000'.
      ULINE.
      SKIP.
      WRITE:/12 TS_VEND.
      WRITE:/12 TS_ATT.
      WRITE:/12 TS_FROM.
      SKIP.                                     "D01K934099
      WRITE:/12'DELIVERY TIME:',pa_dtim.        "D01K934099
      SKIP.                                     "D01K934099
      WRITE:/12 TS_TEXT1.
      WRITE:/12 TS_TEXT2.
      WRITE:/12 TS_TEXT3.
      WRITE:/12 TS_TEXT4.
    Else.
      ULINE.
      SKIP.
      WRITE:/12 TS_VEND.
      WRITE:/12 TS_ATT.
      WRITE:/12 TS_FROM.
      WRITE:/12 TS_TEXT1.
      WRITE:/12 TS_TEXT2.
      WRITE:/12 TS_TEXT3.
      WRITE:/12 TS_TEXT4.
Endif.
ENDAT.
     move-corresponding gw_data to t_data.
     move : lv_maktx to t_data-maktx,
            lv_menge to t_data-menge,
            lv_adv    to t_data-adv,
            parking   to t_data-park.
       append t_data.
L_X = 'X'.
CALL FUNCTION 'GET_PRINT_PARAMETERS'
   EXPORTING
     NO_DIALOG                      = L_X
   IMPORTING
     OUT_PARAMETERS                 = GS_PRINT_PARAMS
     VALID                          = G_VALID
IF SY-SUBRC 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
      GS_PRINT_PARAMS-PAART = 'X_65_80'.
      GS_PRINT_PARAMS-LINSZ = '185'.
*   /*----------store the current selection screen details---------/
CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'
    EXPORTING
      CURR_REPORT           = SY-REPID
    TABLES
      SELECTION_TABLE       = T_RSPARAMS
   EXCEPTIONS
     NOT_FOUND             = 1
     NO_REPORT             = 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.
*   /*--- importing variable value set at first time to restrict the infinite loop --------/.
IMPORT VAR FROM MEMORY ID 'abc' .
VAR = VAR + 1 .
P_UNAME = SY-UNAME .
P_REPID = SY-REPID .
* /*------checking variable to restricted scecond time exction of this block of code---------/
IF VAR = 1 .
    V_MEMID = 1 .
    EXPORT VAR TO MEMORY ID 'abc' .
* /*-----------submitting the spool request--------------/
    SUBMIT (P_REPID) WITH SELECTION-TABLE T_RSPARAMS
                       TO SAP-SPOOL
                     SPOOL PARAMETERS GS_PRINT_PARAMS
                     WITHOUT SPOOL DYNPRO
                     AND RETURN.
endif.
FREE MEMORY ID 'abc'.
* /*-------Calculating the lenth of report name--------/
v_len = STRLEN( P_REPID ) .
* /*-------consutrucing the database variable rq2name to search the spool request---------/
IF v_len >= 9 .
    CONCATENATE P_REPID+0(9)
                P_UNAME+0(3) INTO LC_RQ2NAME .
ELSE.
    V_LEN1 = 9 - V_LEN .
    DO V_LEN1 TIMES .
      CONCATENATE V_TEMP '_' INTO V_TEMP .
    ENDDO.
    CONCATENATE P_REPID V_TEMP
                P_UNAME INTO LC_RQ2NAME .
ENDIF.
* /*--------selecting the spool request using the above constructed variable----------/
SELECT * FROM TSP01 INTO TABLe IT_TSP01
          WHERE RQ2NAME = LC_RQ2NAME .
* /*--------sorting the internal table-----------/
SORT it_tsp01 BY RQCRETIME DESCENDING .
* /*--------reading the first spool request-------/
READ TABLE IT_TSP01 INDEX 1.
* /*--------Convert Spool to PDF-----------/
IF GS_PRINT_PARAMS-PDEST IS INITIAL.
    GS_PRINT_PARAMS-PDEST = 'LOCL'.
ENDIF.
CONCATENATE P_DEST T_DATA-LIFNR '.PDF' INTO G_FILENAME.
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
    EXPORTING
      SRC_SPOOLID                    = IT_TSP01-RQIDENT
     NO_DIALOG                      = SPACE
   IMPORTING
     PDF_BYTECOUNT                  = G_BYTECOUNT
   TABLES
     PDF                            = T_PDF
   EXCEPTIONS
     ERR_NO_ABAP_SPOOLJOB           = 1
     ERR_NO_SPOOLJOB                = 2
     ERR_NO_PERMISSION              = 3
     ERR_CONV_NOT_POSSIBLE          = 4
     ERR_BAD_DESTDEVICE             = 5
     USER_CANCELLED                 = 6
     ERR_SPOOLERROR                 = 7
     ERR_TEMSEERROR                 = 8
     ERR_BTCJOB_OPEN_FAILED         = 9
     ERR_BTCJOB_SUBMIT_FAILED       = 10
     ERR_BTCJOB_CLOSE_FAILED        = 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.

One PO multiple vendors

Similar Messages

Maybe you are looking for