Posted: Tue Oct 30, 2007 5:59 pm Post subject: Настройка прайсинговой процедуры в IMG
SPRO -> Sales and Distributions -> Basic Functions -> Pricing -> Pricing Control -> Define and Assign Pricing Procedures -> Maintain pricing procedures
Расчет прайсинга:
Программа
SALPV61A
Инклюде
LV61AA55
Подпрограмма
XKOMV_BEWERTEN
Прайсинговые формулы
RV64Axxx
User-exit:
Code:
***INCLUDE RV61AFZA .
************************************************************************
* *
* This include is reserved for user modifications *
* Forms for pricing *
* The name of modification modules should begin with 'Z'. *
* *
************************************************************************
* USEREXIT_PRICING_RULE *
************************************************************************
*---------------------------------------------------------------------*
* FORM USEREXIT_PRICING_RULE *
*---------------------------------------------------------------------*
* Define new rules for data element KNPRS or *
* modify existing rules *
*---------------------------------------------------------------------*
FORM USEREXIT_PRICING_RULE.
* the following example for the new pricing type 'X' makes new
* pricing for condition types X,Y,Z when creating an invoice
* (use pricing type 'X' in the document flow for invoicing)
*
* STEU-KNPRS = 'X'.
* STEU-KNTYP = 'XYZ.......'. "new pricing for condition types
* STEU-KOAID = '..........'. "new pricing for condition class
* STEU-MAUEB = ' '. "X means: manually entered
* APPEND STEU. "conditions will be copied
ENDFORM.
*eject
*---------------------------------------------------------------------*
* FORM USEREXIT_PRICING_COPY *
*---------------------------------------------------------------------*
* modify KONV before copying *
*---------------------------------------------------------------------*
FORM USEREXIT_PRICING_COPY.
* the following example modifies the calculation rule within invoices
* for condition type HD00
*
* CHECK VBTYP_NEW CA VBTYP_FAKT.
* IF KONV-KSCHL = 'HD00'.
* KONV-KRECH = 'B'.
* ENDIF.
ENDFORM.
Code:
* INCLUDE RV61AFZB
*---------------------------------------------------------------------*
* FORM USEREXIT_PRINT_ITEM *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM userexit_print_item.
ENDFORM.
*---------------------------------------------------------------------*
* FORM USEREXIT_PRINT_HEAD *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM userexit_print_head.
** Example: Dual currency prices output in SD printed docs.
* DATA : EURO_CURRENCY LIKE KOMK-WAERK VALUE 'EUR'.
* DATA : ENDVALUE_CONVERT(1) VALUE 'X'.
* DATA : HEAD_CONDITIONS_CONVERT(1) VALUE 'X'.
* DATA : SEPARATE_BLOCK(1) VALUE 'X'.
*
* CHECK : SY-UNAME NE 'PODHAJSKY'.
* CHECK : KOMK-WAERK EQ 'ATS' OR
* KOMK-WAERK EQ 'BEF' OR
* KOMK-WAERK EQ 'DEM' OR
* KOMK-WAERK EQ 'ESP' OR
* KOMK-WAERK EQ 'FIM' OR
* KOMK-WAERK EQ 'FRF' OR
* KOMK-WAERK EQ 'IEP' OR
* KOMK-WAERK EQ 'ITL' OR
* KOMK-WAERK EQ 'LUF' OR
* KOMK-WAERK EQ 'NLG' OR
* KOMK-WAERK EQ 'PTE' OR
* KOMK-WAERK EQ EURO_CURRENCY.
* IF KOMK-WAERK EQ EURO_CURRENCY.
** determine national currency of the ship-to country
* CASE KOMK-LAND1.
* WHEN 'AT'. KOMK-WAERK_EURO = 'ATS'.
* WHEN 'BE'. KOMK-WAERK_EURO = 'BEF'.
* WHEN 'DE'. KOMK-WAERK_EURO = 'DEM'.
* WHEN 'ES'. KOMK-WAERK_EURO = 'ESP'.
* WHEN 'FI'. KOMK-WAERK_EURO = 'FIM'.
* WHEN 'FR'. KOMK-WAERK_EURO = 'FRF'.
* WHEN 'IE'. KOMK-WAERK_EURO = 'IEP'.
* WHEN 'IT'. KOMK-WAERK_EURO = 'ITL'.
* WHEN 'LU'. KOMK-WAERK_EURO = 'LUF'.
* WHEN 'NL'. KOMK-WAERK_EURO = 'NLG'.
* WHEN 'PT'. KOMK-WAERK_EURO = 'PTE'.
* WHEN OTHERS. EXIT.
* ENDCASE.
* ELSE.
* KOMK-WAERK_EURO = EURO_CURRENCY.
* ENDIF.
*
* IF NOT ENDVALUE_CONVERT IS INITIAL.
** issue additional currency in end line
* CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
* EXPORTING
* DATE = SY-DATUM
* FOREIGN_AMOUNT = KOMK-FKWRT
* FOREIGN_CURRENCY = KOMK-WAERK
* LOCAL_CURRENCY = KOMK-WAERK_EURO
* IMPORTING
* LOCAL_AMOUNT = KOMK-FKWRT_EURO
* EXCEPTIONS
* NO_RATE_FOUND = 1
* OVERFLOW = 2
* NO_FACTORS_FOUND = 3
* NO_SPREAD_FOUND = 4
* OTHERS = 5.
* ENDIF.
*
* IF NOT HEAD_CONDITIONS_CONVERT IS INITIAL.
** Issue additional currency in sum lines
* DATA : LD_KOMVD_WA LIKE TKOMVD.
* DATA : LT_KOMVD LIKE TKOMVD OCCURS 5 WITH HEADER LINE.
* DATA : LD_TABIX LIKE SY-TABIX.
*
* LD_TABIX = 1.
* LOOP AT TKOMVD FROM LD_TABIX.
* LD_KOMVD_WA = TKOMVD.
* CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
* EXPORTING
* DATE = SY-DATUM
* FOREIGN_AMOUNT = TKOMVD-KWERT
* FOREIGN_CURRENCY = KOMK-WAERK
* LOCAL_CURRENCY = KOMK-WAERK_EURO
* IMPORTING
* LOCAL_AMOUNT = LD_KOMVD_WA-KWERT
* EXCEPTIONS
* NO_RATE_FOUND = 1
* OVERFLOW = 2
* NO_FACTORS_FOUND = 3
* NO_SPREAD_FOUND = 4
* OTHERS = 5.
*
* CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
* EXPORTING
* DATE = SY-DATUM
* FOREIGN_AMOUNT = TKOMVD-KAWRT
* FOREIGN_CURRENCY = KOMK-WAERK
* LOCAL_CURRENCY = KOMK-WAERK_EURO
* IMPORTING
* LOCAL_AMOUNT = LD_KOMVD_WA-KAWRT
* EXCEPTIONS
* NO_RATE_FOUND = 1
* OVERFLOW = 2
* NO_FACTORS_FOUND = 3
* NO_SPREAD_FOUND = 4
* OTHERS = 5.
*
* IF NOT SEPARATE_BLOCK IS INITIAL.
* APPEND LD_KOMVD_WA TO LT_KOMVD.
* ELSE.
* LD_KOMVD_WA-KAWRT = TKOMVD-KAWRT.
* CONCATENATE TEXT-001 KOMK-WAERK_EURO
* INTO LD_KOMVD_WA-VTEXT SEPARATED BY SPACE.
* ADD 1 TO LD_TABIX.
* INSERT LD_KOMVD_WA INTO TKOMVD INDEX LD_TABIX.
* ADD 1 TO LD_TABIX.
* ENDIF.
* ENDLOOP.
* IF NOT SEPARATE_BLOCK IS INITIAL.
** Additional currency in separated block
* READ TABLE LT_KOMVD INDEX 1.
* IF SY-SUBRC IS INITIAL.
* CLEAR LD_KOMVD_WA.
* CONCATENATE TEXT-001 KOMK-WAERK_EURO
* INTO LD_KOMVD_WA-VTEXT SEPARATED BY SPACE.
* ADD 1 TO LD_TABIX.
* INSERT LD_KOMVD_WA INTO LT_KOMVD INDEX 1.
* ENDIF.
* APPEND LINES OF LT_KOMVD TO TKOMVD.
* ENDIF.
* ENDIF.
ENDFORM.
*---------------------------------------------------------------------*
* FORM USEREXIT_XKOMV_BEWERTEN_INIT *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM userexit_xkomv_bewerten_init.
ENDFORM.
*---------------------------------------------------------------------*
* FORM USEREXIT_XKOMV_BEWERTEN_END *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM userexit_xkomv_bewerten_end.
DATA: ls_xkomv LIKE xkomv.
*RFC call checking
IF sy-oncom NE c_true.
IF NOT xt_komv[] IS INITIAL.
LOOP AT xkomv INTO ls_xkomv.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You cannot download files in this forum
All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG. SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG. Every effort is made to ensure content integrity. Use information on this site at your own risk.
