on 11-26-2012 3:16 AM
Dear Experts,
I am have an error that refer cross dvision:
1. Sales Document
2. Delivery Document
My requirement: Division on delivery item must be the same division on sales order line
What customization is required to copy the item division form sales document in item division in delivery document?
Please help me solve this issue!
Thanks,
BinhTC
dear,
you would run VTLA (your sales doc type -> your deliv. type) and look at Details on item level (select your item cat.) - do you use standard routines there (say, as copied from OR->LF) or custom ?
regards,
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
hi
you write logic at VTLA copy controls ,
go to VTLA here at item level , select your item category , go to details
data transfer tab
item data requirement : 101 routine here actual logic is
Organizational data
lips-vtweg = cvbak-vtweg.
lips-spart = cvbak-spart.
lips-vkbur = cvbak-vkbur.
lips-vkgrp = cvbak-vkgrp.
it means header division = delivery item division
you can change the logic like below
Organizational data
lips-vtweg = cvbak-vtweg.
lips-spart = cvbap-spart.
lips-vkbur = cvbak-vkbur.
lips-vkgrp = cvbak-vkgrp.
then it will come delivery item division as a order item division
pl try this
Dear BOJJA SIVASANKAR REDDY,
I see Requiement 101 _ Item that has more enhancements
Therefor, I want to create a new requirement by copying code from Requirement 101-Line and change lips-spart = cvbak-spart to lips-spart = cvbap-spart.
I am worry that do you must be delete these enhancements?
Thanks,
BinhTC
hi
yes you can change the logic , nothing it will happen ,
do not worry, you create the new requirement type by copying the 101 , then change the logic , then you will check your requirement its full fill
you do not worry , nothing will happen , because of this is for business requirement .
same process my company fallow last 7 years ,
pl modify the requirement
Dear BOJJA SIVASANKAR REDDY,
I create Requirement 998 as below byut not solve this issue
Please help me solve this issue
Thanks,
BinhTC
==================================================
FORM DATEN_KOPIEREN_998.
*{ INSERT EWMK900101 1
* Organizational data
lips-vtweg = cvbak-vtweg.
lips-spart = cvbap-spart.
lips-vkbur = cvbak-vkbur.
lips-vkgrp = cvbak-vkgrp.
* Customer reserve fields
lips-kvgr1 = cvbak-kvgr1.
lips-kvgr2 = cvbak-kvgr2.
lips-kvgr3 = cvbak-kvgr3.
lips-kvgr4 = cvbak-kvgr4.
lips-kvgr5 = cvbak-kvgr5.
lips-mvgr1 = cvbap-mvgr1.
lips-mvgr2 = cvbap-mvgr2.
lips-mvgr3 = cvbap-mvgr3.
lips-mvgr4 = cvbap-mvgr4.
lips-mvgr5 = cvbap-mvgr5.
lips-magrv = cvbap-magrv.
* Article identification
lips-matnr = cvbap-matnr.
lips-matwa = cvbap-matwa.
lips-kdmat = cvbap-kdmat.
lips-prodh = cvbap-prodh.
lips-arktx = cvbap-arktx.
lips-eannr = cvbap-eannr.
lips-ean11 = cvbap-ean11.
lips-cuobj = cvbap-cuobj.
lips-sernr = cvbap-sernr.
lips-matkl = cvbap-matkl. "46A
* Stock relevant data
lips-werks = cvbap-werks.
lips-berid = cvbap-berid.
if cvbap-lgort ne space.
*ENHANCEMENT-SECTION FV50C101 SPOTS ES_FV50C101 INCLUDE BOUND.
lips-lgort = cvbap-lgort.
*END-ENHANCEMENT-SECTION.
*$*$-Start: FV50C101----------------------------------------------------------------------------$*$*
*ENHANCEMENT 1 ISAUTO_VHU_PO_FV50C101. "active version
* Begin of DI46C2 - Auto 3.0 - VHU
* in case of VL10HU, storage location is given by selected hus
* it must not overwrite by storage location from sales order
IF LIPS-LGORT IS INITIAL.
LIPS-LGORT = CVBAP-LGORT.
ENDIF.
* End of DI46C2 - Auto 3.0 - VHU
*ENDENHANCEMENT.
*$*$-End: FV50C101----------------------------------------------------------------------------$*$*
endif.
if not cvbap-charg is initial.
lips-charg = cvbap-charg.
endif.
if not cvbap-cuobj_ch is initial.
lips-cuobj_ch = cvbap-cuobj_ch.
endif.
lips-gsber = cvbap-gsber.
lips-xchpf = cvbap-xchpf.
lips-xchar = cvbap-xchar.
lips-bwtex = cvbap-bwtex.
lips-bwtar = cvbap-bwtar.
* Availability checking and requirements
lips-mtvfp = cvbap-mtvfp.
lips-vpzuo = cvbap-vpzuo.
lips-knttp = cvbap-knttp.
lips-kzvbr = cvbap-kzvbr.
lips-sobkz = cvbap-sobkz.
lips-vbelv = cvbap-vbelv.
lips-posnv = cvbap-posnv.
lips-vpmat = cvbap-vpmat.
lips-vpwrk = cvbap-vpwrk.
lips-prbme = cvbap-prbme.
lips-umref = cvbap-umref.
lips-ps_psp_pnr = cvbap-ps_psp_pnr.
lips-kzbws = cvbap-kzbws.
* Account determination fields
if not cvbak-kostl is initial.
lips-kostl = cvbak-kostl.
if not cvbak-gskst is initial.
lips-gsber = cvbak-gskst.
endif.
endif.
lips-kokrs = cvbak-kokrs.
* LIPS-GSBER = CVBAP-GSBER. "bereits übergeben
* LIPS-PS_PSP_PNR = CVBAP-PS_PSP_PNR. "bereits übergeben
lips-aufnr = cvbap-aufnr.
lips-prctr = cvbap-prctr.
lips-kzvbr = cvbap-kzvbr.
lips-paobjnr = cvbap-paobjnr.
if not cvbap-paobjnr is initial.
perform kontierung_pruefen(sapfv50w) using lips-kokrs
lips-paobjnr.
endif.
* IF NOT CVBAP-PAOBJNR IS INITIAL.
* PERFORM TVKO_SELECT(SAPMV50A) USING CVBAK-VKORG SPACE SY-SUBRC.
* IF SY-SUBRC = 0.
* PERFORM T001W_SELECT(SAPMV50A) USING CVBAP-WERKS
* SPACE SY-SUBRC.
* IF SY-SUBRC = 0.
* PERFORM T001K_SELECT(SAPMV50A) USING T001W-BWKEY
* SPACE SY-SUBRC.
* IF SY-SUBRC = 0 AND
* TVKO-BUKRS NE T001K-BUKRS.
** no COPA object in case of cross company
* CLEAR: LIPS-PAOBJNR.
* ENDIF.
* ENDIF.
* ENDIF.
* ENDIF.
* Quantity units
lips-meins = cvbap-meins.
lips-vrkme = cvbap-vrkme.
lips-umvkz = cvbap-umvkz.
lips-umvkn = cvbap-umvkn.
* KZ: Prominent quantity unit for the fulfillment of a process
lips-kzfme = cvbap-kzfme.
* Units for weight and volume
lips-gewei = cvbap-gewei.
lips-voleh = cvbap-voleh.
* Weight
lips-ntgew = cvbap-ntgew.
lips-brgew = cvbap-brgew.
* Partial delivery agreements
lips-kztlf = cvbap-kztlf.
lips-uebtk = cvbap-uebtk.
lips-uebto = cvbap-uebto.
lips-untto = cvbap-untto.
lips-chspl = cvbap-chspl.
* Invoice control
lips-fkrel = cvbap-fkrel.
lips-kowrr = cvbap-kowrr.
* LEB / POD Proof of Delivery
case cvbkd-podkz.
when charx.
lips-podrel = chara.
*ENHANCEMENT-POINT DATEN_KOPIEREN_101_14 SPOTS ES_FV50C101 INCLUDE BOUND .
when others.
lips-podrel = space.
*ENHANCEMENT-POINT DATEN_KOPIEREN_101_15 SPOTS ES_FV50C101 INCLUDE BOUND .
endcase.
* Transport field
lips-mfrgr = cvbap-mfrgr.
* Reference document
lips-vgbel = cvbap-vbeln.
lips-vgpos = cvbap-posnr.
lips-vgtyp = cvbak-vbtyp.
*ENHANCEMENT-POINT DATEN_KOPIEREN_101_10 SPOTS ES_FV50C101 INCLUDE BOUND.
*$*$-Start: DATEN_KOPIEREN_101_10---------------------------------------------------------------$*$*
*ENHANCEMENT 2 OID_FV50C101. "active version
* LIPS-OICONTNR = CVBAP-OICONTNR. "SO3K000465 HJF
* LIPS-OIC_KMPOS = CVBAP-OIC_KMPOS. "SO3K000465 HJF
*ENDENHANCEMENT.
*$*$-End: DATEN_KOPIEREN_101_10---------------------------------------------------------------$*$*
lips-wktnr = cvbap-wktnr.
lips-wktps = cvbap-wktps.
lipsd-vgvgbel = cvbap-vgbel.
lipsd-vgvgpos = cvbap-vgpos.
lipsd-vguepos = cvbap-uepos.
lipsd-vgvgtyp = cvbak-vgtyp.
* Item structure
lips-pstyv = cvbap-pstyv.
lips-uepos = cvbap-uepos.
lips-posar = cvbap-posar.
lips-grkor = cvbap-grkor.
lips-shkzg = cvbap-shkzg.
lips-stafo = cvbap-stafo.
lips-prosa = cvbap-prosa.
lips-uepvw = cvbap-uepvw.
lipsd-lstanr = cvbap-lstanr.
* Delivery component quantity with BOMs
lips-kmpmg = cvbap-kmpmg. "ULa, 4.6c
* Object number Header/Item
lips-objko = cvbak-objnr.
lips-objpo = cvbap-objnr.
* Credit Management
lips-cmpnt = cvbap-cmpnt.
* Foreign Trade: Preference indicator in export/import
lips-prefe = cvbap-prefe.
*ENHANCEMENT-POINT DATEN_KOPIEREN_101_13 SPOTS ES_FV50C101 INCLUDE BOUND.
*$*$-Start: DATEN_KOPIEREN_101_13---------------------------------------------------------------$*$*
*ENHANCEMENT 1 OID_EXTD_FV50C101. "active version
*----------- IS-Oil amendment MCOE "SO3K000254 CEF
* Default Pipeline Details to Delivery Item "SO3K000254 CEF
PERFORM SET_OID_FIELDS_TO_LIPS(SAPFV50C). "SO3K000254 CEF
*ENDENHANCEMENT.
*ENHANCEMENT 1 OIH_FV50C101. "active version
*---------- IS-Oil amendment TDP "SO3K000145
* set OIH items to LIPS "SO3K000145
PERFORM SET_OIH_FIELDS_TO_LIPS(SAPFV50C). "SO3K000145
*ENDENHANCEMENT.
*$*$-End: DATEN_KOPIEREN_101_13---------------------------------------------------------------$*$*
* Handelsaktionsnummer
*
lips-aktnr = cvbkd-waktion.
* Delivery call-off dates
if not CVBAP-VKAUS is initial. "v_n_660624
LIPS-ABRVW = CVBAP-VKAUS.
else.
LIPS-ABRVW = CVBAK-ABRVW.
endif. "^_n_660624
if not cvbak-abdis is initial.
call function 'SD_VBLB_CALL_OFF_DETERMINE'
EXPORTING
i_document_number = cvbap-vbeln
i_item_number = cvbap-posnr
i_document_abdis = cvbak-abdis
i_item_plavo = cvbap-plavo
IMPORTING
e_abart = lips-abart
e_abrli = lips-abrli.
endif.
* Receiving point and department
lips-empst = cvbkd-empst.
lips-abtnr = cvbkd-abtnr.
* Withdrawal during service management development handling (supply)
if not cvbap-sobkz is initial and
not cvbap-vgbel is initial.
call function 'SD_VBAK_SELECT'
EXPORTING
i_document_number = cvbap-vgbel
IMPORTING
e_vbak = ovbak
EXCEPTIONS
document_not_found = 0.
if ovbak-vbtyp ca vbtyp_lp_edl and
not ovbak-abdis is initial.
lips-abart = char3.
endif.
endif.
* Kanban sequence number
lips-kannr = cvbap-kannr.
* Delivery order
if cvbak-vbklt eq vbklt_ausl_auft.
lips-abart = char6.
endif.
* Returns for scheduling agreement
if cvbak-vbtyp ca vbtyp_retour or
not cvbap-shkzg is initial.
call function 'SD_VBAK_SELECT'
EXPORTING
i_document_number = cvbap-vgbel
IMPORTING
e_vbak = ovbak
EXCEPTIONS
document_not_found = 0.
if ovbak-vbtyp ca vbtyp_lp and
not ovbak-abdis is initial.
lips-abart = char4.
endif.
* Delivery order returns
if ovbak-vbklt eq vbklt_ausl_auft.
lips-abart = char7.
endif.
lips-nachl = cvbap-nachl.
endif.
* Security data
lips-abfor = cvbap-abfor.
* lips-abstp = cvbap-abstp.
* Brazilian fields from order copy
call function 'J_1B_SD_SH_COPY_SALES'
EXPORTING
i_vbap = cvbap
i_lips = lips
i_vbak = cvbak
IMPORTING
e_lips = lips.
* Übernahme Klassifizierung Auftragsposition (I.M. Reparaturabwicklung)
* Copy classification from order item (Repair order development)
lips-vkgru = cvbap-vkgru.
if cvbap-vgtyp = 'e'.
lips-abeln = cvbap-vgbel.
lips-abelp = cvbap-vgpos.
endif.
*ENHANCEMENT-POINT DATEN_KOPIEREN_101_11 SPOTS ES_FV50C101 INCLUDE BOUND.
*$*$-Start: DATEN_KOPIEREN_101_11---------------------------------------------------------------$*$*
*ENHANCEMENT 1 OIA_FV50C101. "active version
*----------- IS-Oil ammendment EXG
PERFORM EXG_COPY_FROM_VBAP(SAPFV50C). "SO3K000696 DR
*ENDENHANCEMENT.
*ENHANCEMENT 2 OIK_FV50C101. "active version
* IS-Oil BDRP
perform oik_oik37_read(sapfv50c). "SODK005222 SK SO6K000906
*ENDENHANCEMENT.
*$*$-End: DATEN_KOPIEREN_101_11---------------------------------------------------------------$*$*
*} INSERT
ENDFORM.
User | Count |
---|---|
103 | |
12 | |
11 | |
6 | |
5 | |
4 | |
3 | |
3 | |
3 | |
3 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.