Particular Item for specific vendor

Hi All,
I wanted to know is there any way through which we can select a particular item while creating a Purchase order? I want the system to display a particular item as soon as i select a particular vendor! Can this be achieved? Or is there any other way to handle this?
The scenario is, we have an item which we purchase both from local vendors as well as we import the same. We have created two items so that we can trace the details whether the item was purchased locally or imported. Now, the need arises as when we select the foreign vendor, we would like to get the item (which we created for import purpose) by default. Can this be achieved? Please let me know.
Thanks in advance,
Joseph

If you define a UDF on business partner master e.g. as U_DefItem, then you can make an FS like this:
Select U_DefItem From OCRD Where OCRD.CardCode=$[$4.1.0]
and connect it to the Item No. field autorefresh when Customer/Vendor code changes.
If you already have an FMS on this field which executes an SP then you can incorporate this code into it. If your original FMS selects an item code at some condition, you can modify it to select this default one otherwise.
Edited by: István K#rös on Nov 9, 2009 10:06 AM

Similar Messages

Vendor Reconciliation account change for specific vendor

Hi All,
Client want to change the Reconciliation account in the Vendor Master but same reconciliation account assign to multiple vendor master but client want to change specific vendor not for all vendor . The vendor has postings to it right now. We want that all the existing postings should be transferred to the new recon account line item wise and the new postings will go to the new recon account.
Please suggest some approach so that this can be effected.
Regards,
Dev

Hi Debabrata ,
To clear the reconciliation Account one option is that you create a new open item managed GL Account and use Transaction FB05 to clear each open item in the Vendor Account one at a Time and post on the new open item clearing Account. Then change the reconciliation Account in the master data and then again use FB05 to post the transactions back on the Vendor Account one at a time,
As far as impact on Balance sheet is concerned, there should not be an impact except that the balance will be reflected in a different GL Account.
Thanks
Muthu

Min Max planning report - ability to run for specific vendor

Hi,
We have a unique requirement wherein business users would like to run min-max planning report for a specific vendor. Vendor here is item sourcing vendor. We are on R12 12.0.4. This version of applications doesnot support sourcing vendor as the min-max report parameter.
Other than setting up item category for ASL vendor, i can't think of any other easy way to accomplish above requirement. Please suggest workaround for above requirement.
Thank you

If you have to do this, here is a complex workaround.
Create a request set that contains a custom program as first stage and the regular min-max as the second stage.
The custom program accepts vendor name as a parameter and disables min-max planning flag for all items EXCEPT those that are sourced from that vendor.
Then the 2nd stage runs and creates requisition.
You may add a 3rd stage that resets the min-max planning flag.
Make this program incompatible with itself so 2 users won't run it at the same time.
Hope this helps,
Sandeep Gandhi

Report to find open items and close items for given vendor

Hi All,
What are the steps needed to write a REPORT to find out
open and close items for a given vendor.
Which are the fields i'll have to take and what are the comparisons i'll have to make.
I know,
BSIK is for open Vendor &
BSAK for closed Vendors..
what are the conditions i'll have to check.
Thanks in Advance..
Pradeep Alex

Hi Pradeep,
This report I developed is definitely useful to you.
*& Report ZFI_PROV_IT_VENDOR
REPORT ZFI_VENDOR.
TYPE-POOLS: slis.
tables: BKPF,
        BSEG,
        bsik,
        bsak,
        bsid,
        bsad,
        lfa1,
        t005u,           "Region Description
        J_1IMOVEND.
TYPES: BEGIN OF ty_bkpf,
        bukrs type bkpf-bukrs,
        belnr TYPE bkpf-belnr,
        gjahr type bkpf-gjahr,
        blart TYPE bkpf-blart,
        budat TYPE bkpf-budat,
       END   OF ty_bkpf.
types: begin of ty_J_1IMOVEND,
         lifnr     type lfa1-lifnr,
         J_1IPANNO type J_1IMOVEND-J_1IPANNO,
         J_1ICSTNO type J_1IMOVEND-J_1ICSTNO,
         J_1ISERN type J_1IMOVEND-J_1ISERN,
       end   of ty_J_1IMOVEND.
TYPES: BEGIN OF ty_bseg,
        belnr TYPE bseg-belnr,
        gjahr type bseg-gjahr,
        bschl TYPE bseg-bschl,
        umskz type bseg-umskz,
        shkzg type bseg-shkzg,
        wrbtr TYPE bseg-wrbtr,
        hkont type bseg-hkont,
        lifnr TYPE bseg-lifnr,
       END   OF ty_bseg.
types: begin of ty_t005u,
        bland type t005u-bland,
        bezei type t005u-bezei,
       end   of ty_t005u.
types: begin of ty_lfa1,
        lifnr type lfa1-lifnr,
        name1 type lfa1-name1,   "35
        ort01 type lfa1-ort01,   "35
        ort02 type lfa1-ort02,   "35
        pfach type lfa1-pfach,   "10
        pstlz type lfa1-pstlz,   "10
        regio type lfa1-regio,   "3
        stras type lfa1-stras,   "35
        ktokk type lfa1-ktokk,
        telf1 type lfa1-telf1,   "16
        telf2 type lfa1-telf2,   "16
       end   of ty_lfa1.
types: begin of ty_bsik,
        bukrs type bsik-bukrs,
        lifnr type bsik-lifnr,
        augdt type bsik-augdt,
        augbl type bsik-augbl,
        belnr type bsik-belnr,
        budat type bsik-budat,
        blart type bsik-blart,
        shkzg type bsik-shkzg,
        wrbtr type bsik-wrbtr,
       end   of ty_bsik.
types: begin of ty_bsid,
        bukrs type bsid-bukrs,
        lifnr type bsid-kunnr,
        augdt type bsid-augdt,
        augbl type bsid-augbl,
        belnr type bsid-belnr,
        budat type bsid-budat,
        blart type bsid-blart,
        shkzg type bsid-shkzg,
        wrbtr type bsid-wrbtr,
       end   of ty_bsid.
types: begin of ty_out2,
        lifnr type bsik-lifnr,
        wrbtr type bsik-wrbtr,
        end of ty_out2.
types: begin of ty_out,
        lifnr type lfa1-lifnr,
        name1 type lfa1-name1,
        addr(162) type c,
        J_1IPANNO type J_1IMOVEND-J_1IPANNO,
        J_1ICSTNO type J_1IMOVEND-J_1ICSTNO,
        J_1ISERN type J_1IMOVEND-J_1ISERN,
        opbal type bseg-wrbtr,
        purch type bseg-wrbtr,
        PAYM type bseg-wrbtr,
        grdeb type bseg-wrbtr,
        othdeb type bseg-wrbtr,
        othcre type bseg-wrbtr,
        tds   type bseg-wrbtr,
        bal   type bseg-wrbtr,
        blart type bkpf-blart,
        bschl type bseg-bschl,
       end of ty_out.
types: begin of ty_bsegtemp,
        lifnr TYPE bseg-lifnr,
       end   of ty_bsegtemp.
types: begin of ty_bsegnew,
        wrbtr TYPE bseg-wrbtr,
        lifnr TYPE bseg-lifnr,
       end   of ty_bsegnew.
data: it_bsik type table of ty_bsik with header line,
      it_bsid type table of ty_bsid with header line,
      it_bsak type table of ty_bsik with header line,
      it_out2 type table of ty_out2 with header line,
      it_out3 type table of ty_out2 with header line.
DATA : it_fieldcat TYPE slis_t_fieldcat_alv,
       it_listheader TYPE slis_t_listheader,
       it_alvevent TYPE slis_t_event,
       gt_events TYPE slis_t_event WITH HEADER LINE.
DATA: I_SORT TYPE SLIS_T_SORTINFO_ALV.
DATA : wa_fieldcat TYPE slis_fieldcat_alv,
       wa_listheader TYPE slis_listheader,
       wa_alvevent TYPE slis_alv_event.
DATA: WA_SORT TYPE SLIS_SORTINFO_ALV.
DATA: ls_line TYPE slis_listheader.
DATA : g_repid LIKE sy-repid,                  " Program ID
       g_layout TYPE slis_layout_alv.           " Layout Workarea
DEFINE m_fieldcat.
wa_fieldcat-col_pos       = &1.               " Fieldcat column postion
wa_fieldcat-fieldname     = &2.               " Field name
wa_fieldcat-DO_SUM        = &3.
wa_fieldcat-seltext_m     = &4.               " Column Text
wa_fieldcat-outputlen    = &5.
append wa_fieldcat to it_fieldcat.
clear wa_fieldcat.
END-OF-DEFINITION.
DATA: wa_lfa1 TYPE ty_lfa1,
      wa_bkpf TYPE ty_bkpf,
      wa_bkpf1 type ty_bkpf,
      wa_bsegtemp type ty_bsegtemp,
      wa_bsegnew type ty_bsegnew,
      wa_bsegnew1 type ty_bsegnew,
      wa_J_1IMOVEND type ty_J_1IMOVEND,
      wa_t005u type ty_t005u,
      wa_bseg TYPE ty_bseg,
      wa_out    TYPE ty_out.
DATA: gt_out TYPE STANDARD TABLE OF ty_out,
      gt_out1 TYPE STANDARD TABLE OF ty_out,
      gt_lfa1 TYPE STANDARD TABLE OF ty_lfa1,
      gt_bsegtemp type standard table of ty_bsegtemp with header line,
      gt_bsegnew type standard table of ty_bsegnew with header line,
      gt_bsegnew1 type standard table of ty_bsegnew with header line,
      gt_J_1IMOVEND type standard table of ty_J_1IMOVEND,
      gt_bkpf1 TYPE STANDARD TABLE OF ty_bkpf WITH HEADER LINE,
      gt_t005u type standard table of ty_t005u,
      gt_bseg TYPE STANDARD TABLE OF ty_bseg WITH HEADER LINE,
      gt_bkpf TYPE STANDARD TABLE OF ty_bkpf WITH HEADER LINE.
selection-screen begin of block b1 with frame title text-001.
select-options: s_budat for bkpf-budat obligatory,
                s_ktokk for lfa1-ktokk obligatory.
               s_wrbtr for bseg-wrbtr.
parameters: p_bukrs type bkpf-bukrs obligatory default '1000'.
           p_gjahr type bkpf-gjahr obligatory.
           p_lifnr type bseg-lifnr obligatory default '300040',
           p_ktokk type lfa1-ktokk obligatory default 'Z200'.
selection-screen end   of block b1.
START-OF-SELECTION.
PERFORM sub_fetch_data.
PERFORM sub_process_data.
END-OF-SELECTION.
PERFORM sub_build_fieldcat.
PERFORM sub_build_layout.
PERFORM eventtab_build USING gt_events[].
PERFORM comment_build USING it_listheader[].
PERFORM sub_disp_data.
*&      Form SUB_BUILD_FIELDCAT
      text
--> p1        text
<-- p2        text
FORM sub_build_fieldcat .
sort gt_out by name1.
*DEFINE M_SORT.
   ADD 1 TO WA_SORT-SPOS.
   WA_SORT-FIELDNAME = &1.
   WA_SORT-UP        = 'X'.
   WA_SORT-SUBTOT    = &2.
   APPEND WA_SORT TO I_SORT.
END-OF-DEFINITION.
*m_sort 'NAME1' 'X'.
*M_SORT 'ADDR' 'X'.
m_fieldcat 1 'LIFNR' ' ' text-026 10.
m_fieldcat 2 'NAME1' ' ' text-006 35.
m_fieldcat 3 'ADDR' ' ' text-007 162.
m_fieldcat 4 'J_1IPANNO' '' text-008 40.
m_fieldcat 5 'J_1ICSTNO' '' text-009 40.
m_fieldcat 6 'J_1ISERN' '' text-010 40.
m_fieldcat 7 'OPBAL' '' text-011 18.
m_fieldcat 8 'PURCH'    '' text-012 18.
m_fieldcat 9 'PAYM' '' text-013 18.
m_fieldcat 10 'GRDEB' '' text-014 18.
m_fieldcat 11 'OTHDEB' '' text-020 18.
m_fieldcat 12 'OTHCRE' '' text-021 18.
m_fieldcat 13 'BAL' '' text-023 18.
m_fieldcat 14 'TDS' '' text-022 18.
ENDFORM.                    " SUB_BUILD_FIELDCAT
*&      Form SUB_BUILD_LAYOUT
      text
--> p1        text
<-- p2        text
FORM sub_build_layout .
g_layout-zebra             = 'X'.
g_layout-colwidth_optimize = 'X'.
ENDFORM.                    " SUB_BUILD_LAYOUT
*&      Form EVENTTAB_BUILD
      text
     -->P_GT_EVENTS[] text
FORM eventtab_build USING    gt_events TYPE slis_t_event.
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = gt_events.
READ TABLE gt_events WITH KEY name = slis_ev_top_of_page
                           INTO ls_event.
IF sy-subrc = 0.
    MOVE 'TOP_OF_PAGE' TO ls_event-form.
    APPEND ls_event TO gt_events.
ENDIF.
ENDFORM.                    " EVENTTAB_BUILD
*&      Form COMMENT_BUILD
      text
     -->P_IT_LISTHEADER[] text
FORM comment_build USING    p_it_listheader TYPE
                                        slis_t_listheader.
data: v_text(30) type c,
      v_datelow(10) type c,
      v_datehigh(10) type c,
      v_month(2) type c,
      v_day(2) type c,
      v_year(4) type c.
v_day = s_budat-low+6(2).
v_month = s_budat-low+4(2).
v_year = s_budat-low+0(4).
concatenate v_day '.' v_month '.' v_year into v_datelow.
clear: v_day,v_month,v_year.
v_day = s_budat-high+6(2).
v_month = s_budat-high+4(2).
v_year = s_budat-high+0(4).
concatenate v_day '.' v_month '.' v_year into v_datehigh.
clear: v_day,v_month,v_year.
concatenate 'From' v_datelow 'To' v_datehigh into v_text
                                    separated by space.
clear: v_datelow, v_datehigh.
ls_line-typ = 'H'.
ls_line-info = text-116.
APPEND ls_line TO p_it_listheader.
ls_line-typ = 'S'.
ls_line-key = text-090.
ls_line-info = v_text.
APPEND ls_line TO p_it_listheader.
ENDFORM.                    " COMMENT_BUILD
*&      Form TOP_OF_PAGE
      text
--> p1        text
<-- p2        text
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = it_listheader.
ENDFORM.                    " TOP_OF_PAGE
*&      Form SUB_DISP_DATA
      text
--> p1        text
<-- p2        text
FORM sub_disp_data .
g_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = g_repid
      it_fieldcat        = it_fieldcat[]
      is_layout          = g_layout
      i_save             = 'U'
      it_events          = gt_events[]
    IT_SORT             = I_SORT[]
    TABLES
      t_outtab           = gt_out1[].
ENDFORM.                    " SUB_DISP_DATA
*&      Form sub_fetch_data
      text
--> p1        text
<-- p2        text
form sub_fetch_data .
select bukrs
       belnr
       gjahr
       blart
       budat
       from bkpf
       into table gt_bkpf
       where budat in s_budat
       and   bukrs = p_bukrs
      and   gjahr = p_gjahr
       and   blart in ('KR','KG','KZ','RE','DK','Z1','AB','SA','KA','DZ').
select belnr
       gjahr
       bschl
       umskz
       shkzg
       wrbtr
       hkont
       lifnr
       from bseg
       into table gt_bseg
       for all entries in gt_bkpf
       where belnr = gt_bkpf-belnr
       and   gjahr = gt_bkpf-gjahr
      and gjahr = p_gjahr
       and   bschl in (21,25,29,31,50,39,38,19,35).
      and kunnr in gt_
      and lifnr = '0000300019'.
select belnr
       gjahr
       bschl
       umskz
       shkzg
       wrbtr
       hkont
       kunnr
       from bseg
       appending table gt_bseg
       for all entries in gt_bkpf
       where belnr = gt_bkpf-belnr
       and   gjahr = gt_bkpf-gjahr
      and gjahr = p_gjahr
       and   bschl in (21,25,29,31,50,39,38,19).
break manukapur.
sort gt_bseg by lifnr bschl.
delete adjacent duplicates from gt_bseg comparing all fields.
loop at gt_bseg into wa_bseg.
if wa_bseg-lifnr is not initial.
move: wa_bseg-lifnr to wa_bsegtemp-lifnr.
      append wa_bsegtemp to gt_bsegtemp.
      endif.
endloop.
delete adjacent duplicates from gt_bsegtemp comparing lifnr.
select lifnr
        name1
        ort01
        ort02
        pfach
        pstlz
        regio
        stras
        ktokk
        telf1
        telf2
        from lfa1
        into table gt_lfa1
        for all entries in gt_bseg
        where lifnr = gt_bseg-lifnr
        and ktokk in s_ktokk.
       and lifnr = '0000300030'.
select bland
        bezei
        from t005u
        into table gt_t005u
        for all entries in gt_lfa1
        where bland = gt_lfa1-regio
        and land1 = 'IN'
        and spras = sy-langu.
select lifnr
       J_1IPANNO
       J_1ICSTNO
       J_1ISERN
       from J_1IMOVEND
       into table gt_J_1IMOVEND
       for all entries in gt_bseg
       where lifnr = gt_bseg-lifnr.
*select bukrs
      belnr
      blart
      budat
      from bkpf
      into table gt_bkpf1
      where budat < s_budat-low.
      and zfdbt < s_budat-low.
select
       wrbtr
       lifnr
       from bseg
       into table gt_bsegnew
       for all entries in gt_bkpf
       where belnr = gt_bkpf-belnr
       and xopvw = 'X' .
      and zfbdt < s_budat-low.
select bukrs
       lifnr
       augdt
       augbl
       belnr
       budat
       blart
       shkzg
       wrbtr
       from bsik
       into table it_bsik
       for all entries in gt_bseg
       where lifnr = gt_bseg-lifnr
      and   lifnr = '0000300000'
       and   bukrs = '1000'
       and   budat <= s_budat-low.
select bukrs
       lifnr
       augdt
       augbl
       belnr
       budat
       blart
       shkzg
       wrbtr
       from bsak
       appending table it_bsik
       for all entries in gt_bseg
       where bukrs = '1000'
       and   lifnr = gt_bseg-lifnr
      and   lifnr = '0000300000'
       and   budat <= s_budat-low
       and   augdt > s_budat-low.
select bukrs
       kunnr
       augdt
       augbl
       belnr
       budat
       blart
       shkzg
       wrbtr
       from bsid
       into table it_bsid
       for all entries in gt_bseg
       where bukrs = '1000'
       and   kunnr = gt_bseg-lifnr
      and   kunnr = '0000300000'
       and   budat <= s_budat-low.
select bukrs
       kunnr
       augdt
       augbl
       belnr
       budat
       blart
       shkzg
       wrbtr
       from bsad
       appending table it_bsid
       for all entries in gt_bseg
       where bukrs = '1000'
       and   kunnr = gt_bseg-lifnr
      and   kunnr = '0000300000'
       and   budat <= s_budat-low
       and   augdt > s_budat-low.
if it_bsid[] is not initial.
append lines of it_bsid to it_bsik.
endif.
*delete gt_bsegnew where lifnr <> '0000300000'.
*break manukapur.
*sort gt_bsegnew by lifnr.
*loop at gt_bsegnew into wa_bsegnew.
*collect wa_bsegnew into gt_bsegnew1.
*endloop.
loop at it_bsik .
it_out2-lifnr = it_bsik-lifnr.
*it_out1-budat = it_bsik-budat.
*it_out1-blart = it_bsik-blart.
if it_bsik-SHKZG = 'H'.
it_out2-wrbtr = it_bsik-wrbtr.
else .
it_out2-wrbtr = it_bsik-wrbtr * -1.
endif.
append it_out2.
clear: it_out2, it_bsik.
*endif.
*clear it1.
endloop.
sort it_out2 by lifnr.
loop at it_out2.
it_out3-lifnr = it_out2-lifnr.
it_out3-wrbtr = it_out2-wrbtr.
collect it_out3.
clear: it_out3, it_out2.
endloop.
endform.
*&      Form sub_process_data
      text
--> p1        text
<-- p2        text
form sub_process_data .
*sort gt_bsegtemp by lifnr .
sort gt_bseg by lifnr bschl.
sort gt_bsegnew by lifnr.
sort it_out3 by lifnr.
*loop at gt_bsegnew into wa_bsegnew.
*at end of lifnr.
*sum.
*endat.
*endloop.
sort gt_bkpf by blart.
loop at gt_bseg into wa_bseg.
if wa_bseg-lifnr is not initial.
read table gt_lfa1 into wa_lfa1 with key lifnr = wa_bseg-lifnr.
move: wa_lfa1-name1 to wa_out-name1,
     wa_lfa1-lifnr to wa_out-lifnr.
read table gt_t005u into wa_t005u with key bland = wa_lfa1-regio.
concatenate wa_lfa1-stras ',' wa_lfa1-ort01 ','
            wa_lfa1-ort02 ',' wa_t005u-bezei ','
            wa_lfa1-pfach ','
            wa_lfa1-pstlz ',' 'Ph:'
            wa_lfa1-telf1 ','
            wa_lfa1-telf2
            into wa_out-addr separated by space.
read table gt_J_1IMOVEND into wa_J_1IMOVEND with key lifnr = wa_bseg-lifnr.
move: wa_J_1IMOVEND-J_1IPANNO to wa_out-J_1IPANNO,
      wa_J_1IMOVEND-J_1ICSTNO to wa_out-J_1ICSTNO,
      wa_J_1IMOVEND-J_1ISERN to wa_out-J_1ISERN.
      read table gt_bkpf into wa_bkpf with key belnr = wa_bseg-belnr.
if wa_bkpf-blart = 'RE' and wa_bseg-bschl = 31 or
wa_bkpf-blart = 'KR' and wa_bseg-bschl = 31.
if wa_bseg-shkzg = 'H'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-purch = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-purch = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'KR' and wa_bseg-bschl = 50.
*wa_out-tds = wa_out-tds + wa_bseg-wrbtr.
if wa_bseg-shkzg = 'H'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-tds = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-tds = wa_bseg-wrbtr * -1.
endif.
endif.
*wa_out-tds = wa_bseg-wrbtr.
endif.
if wa_bkpf-blart = 'KG' and wa_bseg-bschl = 21.
*wa_out-grdeb = wa_out-grdeb + wa_bseg-wrbtr.
if wa_bseg-shkzg = 'H'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-grdeb = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-grdeb = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'RE' and wa_bseg-bschl = 21.
*wa_out-grdeb = wa_out-grdeb + wa_bseg-wrbtr.
if wa_bseg-shkzg = 'H'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-grdeb = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-grdeb = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'KZ' and wa_bseg-bschl = 25
*or wa_bkpf-blart = 'KZ' and wa_bseg-bschl = 29
**and wa_bseg-umskz = 'A'
or wa_bkpf-blart = 'SA' and wa_bseg-bschl = 25.
if wa_bseg-shkzg = 'H'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-paym = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
*wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
wa_out-paym = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'DK' and wa_bseg-bschl = 31.
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'AB' and wa_bseg-bschl = 31.
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'SA' and wa_bseg-bschl = 31.
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'KZ' and wa_bseg-bschl = 38.
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'DZ' and wa_bseg-bschl = 19
and wa_bseg-umskz = 'A'.
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'KA' and wa_bseg-bschl = 39
and wa_bseg-umskz = 'G' or
       wa_bseg-umskz = 'H' or
       wa_bseg-umskz = 'J' or
       wa_bseg-umskz = 'L' OR
       wa_bseg-umskz = 'A'.
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'KA' and wa_bseg-bschl = 35.
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if ( wa_bkpf-blart = 'KZ' and wa_bseg-bschl = 29 )
   and wa_bseg-umskz = 'A' or
       wa_bseg-umskz = 'B' or
       wa_bseg-umskz = 'I' or
       wa_bseg-umskz = 'M' or
       wa_bseg-umskz = 'O' or
       wa_bseg-umskz = 'V'.
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'AB' and wa_bseg-bschl = 27.
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
if wa_bkpf-blart = 'Z1' and wa_bseg-bschl = 21 .
if wa_bseg-shkzg = 'H'.
wa_out-othcre = wa_bseg-wrbtr.
else.
if wa_bseg-shkzg = 'S'.
wa_out-othcre = wa_bseg-wrbtr * -1.
endif.
endif.
endif.
**if wa_bseg-shkzg = 'H'.
***wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
**wa_out-othdeb = wa_bseg-wrbtr.
**else.
**if wa_bseg-shkzg = 'S'.
***wa_out-purch = wa_out-purch + wa_bseg-wrbtr.
**wa_out-othdeb = wa_bseg-wrbtr * -1.
**endif.
**endif.
**endif.
***if wa_bkpf-blart = 'AB' and wa_bseg-bschl = 27.
      wa_out-othdeb = wa_bseg-wrbtr.
***endif.
***if wa_bkpf-blart = 'Z1' and wa_bseg-bschl = 21.
      wa_out-othdeb = wa_bseg-wrbtr.
***endif.
read table it_out3 with key lifnr = wa_bseg-lifnr binary search.
on change of wa_bseg-lifnr.
*move: wa_lfa1-name1 to wa_out-name1,
    wa_lfa1-lifnr to wa_out-lifnr.
wa_out-opbal = it_out3-wrbtr.
endon.
*if wa_out-opbal is not initial.
*wa_out-bal = wa_out-opbal + wa_out-purch - wa_out-grdeb - wa_out-othdeb + wa_out-othcre.
**else.
*wa_out-bal = wa_out-purch - wa_out-grdeb - wa_out-othdeb + wa_out-othcre.
*endif.
wa_out-bal = wa_out-opbal + wa_out-purch + wa_out-paym + wa_out-grdeb + wa_out-othdeb + wa_out-othcre.
at end of lifnr.
*wa_out-bal = wa_out-opbal + wa_out-purch - wa_out-grdeb - wa_out-othdeb + wa_out-othcre.
append wa_out to gt_out.
*collect wa_out into gt_out.
clear wa_out.
clear it_out3.
clear wa_bsegnew1.
endat.
endif.
clear: wa_bseg, wa_bkpf, wa_J_1IMOVEND.
endloop.
loop at gt_out into wa_out.
collect wa_out into gt_out1.
endloop.
endform.                    " sub_process_data
Regards,
Santosh Kumar M.

Stored procedure in purchase order for duplicate item for a vendor

Hi all
I have written a stored procedure for duplicate item for vendor the output i need from this SP is whenever for a vendor we will raise purchase order the system should check that their shouldn't be any po in the system for the same item by the selected vendor. Its working fine when only one item is selected but it is behaving wrongly when more than one item is selected.
If (@object_type='22' and @transaction_type='A')
BEGIN
Declare @Vend as varchar(200)
Declare @ItemCode as varchar(200)
Select @Vend =CardCode From OPOR Where DocEntry = @list_of_cols_val_tab_del
Select @ItemCode=ItemCode From POR1 Where DocEntry=@list_of_cols_val_tab_del
IF 1 !=(Select Count(T0.DocEntry) From OPOR T0 Inner Join POR1 T1 On T0.DocEntry=T1.DocEntry Where T0.CardCode=@Vend and T1.ItemCode=@ItemCode)
Begin
select @error =1
select @error_message = 'Item Code Already Exists For This Vendor'
end
end
Thanks
Rashid.

Hi Rashid,
Try this,
if @object_type = N'22' and @transaction_type in (N'A', N'U')
begin
declare @line1 int
declare @lin1 int
declare @out1 int
Set @out1 = 0
SET @lin1 = 0
Declare @Vend as varchar(200)
Declare @ItemCode as varchar(200)
Select @Vend = CardCode From OPOR Where DocEntry = @list_of_cols_val_tab_del
Select @line1 = Max (LineNum)FROM POR1 WHERE POR1.DocEntry = @list_of_cols_val_tab_del
While @lin1 < @line1
Begin
     Select @ItemCode=ItemCode From POR1 Where DocEntry=@list_of_cols_val_tab_del and LineNum = @lin1
      if (SELECT COUNT(T0.DocEntry) FROM POR1 T0 inner join OPOR T1 on T0.DocEntry = T1.DocEntry
      WHERE T0.ItemCode = @ItemCode and T1.CardCode = @Vend)> 1
      Begin
           Set @Out1 = 1
           Break;
      END
           Else
           Begin
           Set @lin1 = @lin1+1
           Continue
      END
END
Set @lin1 = @lin1 + 1
if @out1 = 1
begin
      Set @error = 1
      Set @error_message = 'Item Code in line ' + CONVERT(nvarchar(4), @lin1) + N'already Exists For This Vendor!'
End
END
Regards,
Bala

How to clear noted items for a vendor

Hi Gurus,
User has crated a noted item in F-47, when i run FBL1N for that vendor and select the noted itmes option, it shows open itmes which i created using F-47, now the user do not want to pay the Vendor.
How can i clear the doc which i have created using F-47, i tryied F-48 but it will not work as user do not want to pay the vendor and also i tryied FB08 still it is not working.
Regards

Hi,
You have to reverse those noted items throough T.code FB08 with proper reversal reason.
Can you give what is the error message you getting in tcode FB08.
Regards,
Sankar

SQL Query for specific vendor

Hi Experts,
The user has requested to prepare reports with specific vendor name in PO. Please guide me with this.
Edited by: shaichandan on Sep 27, 2011 9:48 AM

Hi,
Check this if it helps :
select t0.DocNum as 'PO Num', t0.DocStatus as 'Status', t0.DocDate as 'Date',
t0.CardCode as 'BP Code', t0.CardName as 'BP Name', t0.DocTotal as 'Document Amount',
t1.ItemCode as 'Item', t1.Dscription as 'Item Description',t1.Quantity as 'Qty',
t1.ShipDate as 'Shiping Date'
from OPOR t0 inner join POR1 t1 on t0.docentry = t1.docentry
where t0.cardname in ('Almats Printing Solution','Safe Offset')
Order By t0.cardname
Kind Regards,
Jitin
SAP Business One Forum Team

How to determine plant code for specific vendor

Hi Experts,
I am getting list of vendors(EORD-LIFNR) from Purchasing source list (i.e EORD) for every material.
After that I would like to know how to determine plant code of any specific vendor.
Please let me know all tables links where i can get this or transactions as well if i can see this??
Thanks,
Yogesh

Hi ,
The vendor will not be created at the plant level.so we cannot get a vendor never at plant level in standard( otherwise customized)
Know if i am not wrong ,if the requirement is to find the source list of the vendor and there presence in plants it is done in the same table EORD-Werks
if there is something else let me know
Regards
Anjanna

Error: Automatic tick in free Item in purchase order on line for specific vendor

Hello All,
Sales order is created then running mrp through MD01,requisitions are created.while creating purchase order for a particular vendor it is automatically ticking on free item indicator and giving error as material is not maintained in the plant (XXX) Free trade. while PR is not created for plant(XXX).
i have checked they are not doing any transaction in plant (xxx).
Please do needful in above issue.

Hi all ;
Can you share screen-shoots for your sales document ?
1-What is your sales document type ? Go to VOV8 find it and share.
2-What is your item category for this sales order? Go to VOV7 find it and share us.
3-What is your schedule line ? Go to VOV6 find it and share us.
Regards.
M.Ozgur Unal

Change of G/L Account for specific vendors in Transaction MIGO

HI Friends,
I have a requirement to change the G/L Account no for particular set of Vendors instead of G/L account maintained in the Transaction OBYC while doing MIGO.
I need a user exit through which i can change the G/L account number .
Thanks in advance.
Regards,
Sivani.

I tried this ...... but it is not working.....My requirement is to change G/L Account no for Accounting document ....
By default it is picking up from transaction OBYC according to the configuration done .......I need to assign different G/L account which is not assigned in OBYC Transaction .......and SAP should not pick it from the configuration
Regards,
Sivani.

Dnt want Auto Multiple Ship Costs items for Same Vendor

Hi All,
I have a problem..
In my shipment my header as well as Legs are cost relevant.
And i have given automatic determination of item categories in my shipment costs.
Now the problem is when i have say 2 stages in my route den in my shipment costs
determines 3 line items automatically and gives the same price for all based on the condition
records..
I dont want this to happen coz the charges are the same and paid once only.
My scenario works fine if vendors are diffrent stage wise.
But when the vendor is same for the entire route then this leads to duplication of costs.
Plz any inputs on this.
Rgds

Hello,
Where would I go to set different pricing for the item? We've negotiated different pricing for the same item number at different vendors? Right now the solution addresses only the allocation of product.
With regards to the % split; let's say I set the split to 50/50. The Planners override mrp and create a PO for the full 100pcs to 1 vendor and not the system suggested 50pcs to vendor A and 50pcs to vendor B.
Will the system be able to figure out that the allocation has been ignored and re-adjust? Will MRPto buy 100pcs at vendor B and 0pcs at vendor A?
Or
Will the system only look forward and say "Whatever the next requirement is, I'm splitting the order 50/50 between the 2 vendors"?
Thanks again,
BG

Set Output Type for specific Vendors Only

Hi,
I have created an output type to send external mail for PO. I want to restrict it to send the email to only a specific number of users. So I created consition records based on Companycode/vendor num/doc type.
I entered the records for say x and y vendor only .
But , Still when i test it with some other vendor whose record is not maintained it still sends the email?
Is it the rt path I am on ? Is it the rt way to do this ? Based on the info available online and sdn i tried these steps ...I m not sure if thats correct.
Pls let me know how to achieve this restriction ?
Thanks,
Shilpi

Hi
You check the access sequence for purchase order output type. Access sequence will determine which condition record to be checked first. If any other condition table with records has priority (defined in access sequence) then your condition record will not be taken into account for output type.
Bala
Note: Award points if helpful

Maintaining Frieght Forwarder Information for specific Vendor

Dear All,
I have a business requirement where i need to provide a facility for user to maintain frieght forwarder with relations to a vendor.
The user needs a facility to capture the freight forwarders details while creating the SAP Purchase Order.
How to i go about doing this, shall await your feedback.
Thanks & Regards
Shabeen Buhary

Hi,
Thanks for your feedback. Basically the above requirement is only for information purposes, would there be any additional process that the business have to adhere to if we maintain partner profiles etc.
How do i go about maintaining the partner profiles,
Thanks & Regards
Shabeen Buhary

Single line item for multiple line item payment.

Hi
I have booked the 3 vendor invoices (in FB60) for a single vendor. Now today i paid (with F-53) all the three invoices together. One payment document number was generated.
However when i saw the vendor line item, i saw that three debit line items was generated for the clearing the open invoices (i..e 3 credit line items). so when i say vendor line item report, there were total 6 cleared line items (3 for credit i.e invoice and 3 for debit i.e. payments)
But is it possible to get single debit line item for all the three invoices cleared. If yes, please let me know how i can get it.
If i will have one single line item for payment, vendor report would be simpler. Please help

Hi,
1. If you do payment through F-53, then each invoice have separate payment line item. This is not avoidable. If you do payment through F110, then you can group the line items for payment, so there only one payment line item for many number of invoices.
2. While clearing through F-44, system is generating automatic line items because, there are exchange rate fluctuations. You can't avoid these line items, as these automatic line items only match Debit and Credit amounts in order to post the document.
Rgds
Murali. N

PO acknowledgement for SUS vendor in MM-SUS scenario?

Dear Experts,
We have SRM 7.01 system with ECC 6.0 enhpk 5 in our client landscape. We have configured classic scenario with MM-SUS in our landscape. Our client wants to have the PO acknowledgement functionality for all SUS vendors.
I have checked and found that SUS portal have standard functionality to confirm the Purchase Orders from MM system. However, we need to configure the few things from MM side to enable the PO acknowledgement by default.
1. Create a confirmation key for PO acknowledgement in MM spro settings.
2. Assign the confirmation key to the SUS vendors in MM side .
Now, there are two questions in the MM side?
1. How can the client easily identify the SUS vendor from MM side (say XK02 or MK02) to maintain the required confirmation control key in the master data?
2. Along with the confirmation control key, the purchase order item for such vendors should also have default checking of the checkbox 'Acknowledgement Required' to enable the SUS vendor to confirm such PO item. How can we default the checkbox in PO item for SUS vendors?
Thanska nd regards,
Ranjan
Ranjan Sutradhar

Hi Nikhil/Soumya,
How to proceed with vendor classification to enable the client to easily identify which ECC vendors are SUS vendors to maintain the additional master data settings?
With use of classification, the system will automatically populate the vendor master data with a class say Z_SUS?
Could you please help me how to proceed with the same? is it similar to proceed with material classification?
Actually, the client has over 10,000 suppliers and the client is bringing only 1200 suppliers initially to SUS. I am looking for easier way for the client to identify the SUS vendors from ECC side.
Thanks and regards,
Ranjan
Ranjan Sutradhar

Particular Item for specific vendor

Similar Messages

Maybe you are looking for