SAP R/3 форум ABAP консультантов
Russian ABAP Developer's Club

Home - FAQ - Search - Memberlist - Usergroups - Profile - Log in to check your private messages - Register - Log in - English
Blogs - Weblogs News

Изменения алгоритма обмена данными в Open_FI (c версии 470)



 
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> Enhancement and Modification | Расширения и модификация
View previous topic :: View next topic  
Author Message
admin
Администратор
Администратор



Joined: 01 Sep 2007
Posts: 1636

PostPosted: Fri Nov 02, 2007 11:39 am    Post subject: Изменения алгоритма обмена данными в Open_FI (c версии 470) Reply with quote

Note 530655 - Performance improvements in Business Transaction Events
SAP note number 530655
________________________________________________________________________

Number 530655
Version 4 vom 09.04.2003
Status Released for Customer
Set on ,09.04.2003

Language EN
Mastersprache DE
Short text Performance improvements in Business Transaction
Events

Responsible SAP AG
Component FI
Financial Accounting
________________________________________________________________________

Long text

Symptom
For the processing of BTEs (Business Transaction Events) in modul FI
performance improvements are possible.
Other terms
Performance, BTE, Business Transaction Events, FI
Reason and Prerequisites
Solution
Implement the attached correction instructions in your system.This
implements the source code corrections in your system that are required
for the performance improvements.

PLEASE NOTE:
After implementing this note, accesses to the memory of the BTEs
mentioned in this note (which represents a modification not provided in
the SAP Standard System) are ineffective.
________________________________________________________________________

Valid releases
Software component Release
from to

SAP_APPL SAP Application
470 - 470

________________________________________________________________________

References to related notes

Number Short text
____________________________________________________________
575074 Thailand: Changes in VAT numbering

________________________________________________________________________





References to Support Packages

Software component Release Package name
________________________________________________________________________
SAP Application
470 SAPKH47001

________________________________________________________________________





Assigned correction instructions
________________________________________________________________________


Code:
*$*$--------------------------------------------------------------$*$*
*$ Correction Inst. 0120061532 0000541663 $*
*$------------------------------------------------------------------$*
*$ Valid for : $*
*$ Software Component SAP_APPL SAP Application $*
*$ Release 470 To SAPKH47001 $*
*$*$--------------------------------------------------------------$*$*
*&-------------------------------------------------------------------*
*& Object FUNC OPEN_FI_PERFORM_00001020_E
*& Object Header FUGR BFFM
*&-------------------------------------------------------------------*
*& FUNCTION OPEN_FI_PERFORM_00001020_E
*&-------------------------------------------------------------------*
...
FUNCTION OPEN_FI_PERFORM_00001020_E.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*" TABLES
*" T_BSEG STRUCTURE BSEG
*" T_BKPF STRUCTURE BKPF
*"----------------------------------------------------------------------
************************************************************************

********* SAMPLE FOR NORMAL EVENT WITH EXPORT TO MEMORY ****************

************************************************************************
*>>>> START OF DELETION <<<<<CALL>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<DATA>>>> END OF INSERTION <<<<<<EXPORTING>>>> START OF DELETION <<<<<MEMID>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<MEMID>>>> END OF INSERTION <<<<<<CALL>>>> START OF DELETION <<<<<IMPORT>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<IMPORT>>>> END OF INSERTION <<<<<<Object>>>> START OF DELETION <<<<<CALL>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<DATA>>>> END OF INSERTION <<<<<<EXPORTING>>>> START OF DELETION <<<<<MEMID>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<MEMID>>>> END OF INSERTION <<<<<<CALL>>>> START OF DELETION <<<<<IMPORT>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<IMPORT>>>> END OF INSERTION <<<<<<Object>>>> START OF DELETION <<<<<CALL>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<DATA>>>> END OF INSERTION <<<<<<EXPORTING>>>> START OF DELETION <<<<<MEMID>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<MEMID>>>> END OF INSERTION <<<<<<CALL>>>> START OF DELETION <<<<<IMPORT>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<IMPORT>>>> END OF INSERTION <<<<<<Object>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<IMPORTING>>>> END OF INSERTION <<<<<<CALL>>>> START OF DELETION <<<<<MEMID>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<MEMID>>>> END OF INSERTION <<<<<<CALL>>>> START OF DELETION <<<<<IMPORT>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<IMPORT>>>> END OF INSERTION <<<<<<Object>>>> START OF DELETION <<<<<CALL>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<DATA>>>> END OF INSERTION <<<<<<ENDIF>>>> START OF DELETION <<<<<MEMID>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<memid>>>> END OF INSERTION <<<<<<CALL>>>> START OF DELETION <<<<<IMPORT>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<import>>>> END OF INSERTION <<<<<<Object>>>> START OF DELETION <<<<<call>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<DATA>>>> END OF INSERTION <<<<<<endif>>>> START OF DELETION <<<<<memid>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<memid>>>> END OF INSERTION <<<<<<call>>>> START OF DELETION <<<<<import>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<import>>>> END OF INSERTION <<<<<<Object>>>> START OF DELETION <<<<<

*>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<DATA>>>> END OF INSERTION <<<<<<CALL>>>> START OF DELETION <<<<<MEMID>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<MEMID>>>> END OF INSERTION <<<<<<SAP> Setting --> P/S Function module --> of SAP

Application
Event Cntry Appl. Function module
From: 00001025 TH __ J_1H_VAT_NUMBERING
To: 00001025 TH __ TURKEY_BOE_PERFORM_00001025

2. The new parameters will be added in function modle
'OFF_NUMBER_GLOBAL_NUMBERING' as the following:-

export parameter : O_BKTXT

Table parameter : I_BSEG

3. Changes in function module 'OFF_NUMBER_GLOBAL_NUMBERING' for
Thailand.

4. Changes in function module 'J_1H_VAT_NUMBERING'.

5. Changes in function module 'RV_INVOICE_DOCUMENT_ADD'.

to transfer tax code to numbering routine.

6. Change in view maintenance 'J_1HVAT_OFF_NUMV' and 'J_1HVAT_OFF_NUMA'

The numbergroup customizing is allowed to define all combination of
the fields from table 'J_1HVAT_OFF_NUM' include the wildcard entry.

Add field document type for view J_1HVAT_OFF_NUMV and field tax
code for view J_1HVAT_OFF_NUMA.

1) Call SE11, enter View 'J_1HVAT_OFF_NUMV' (and
'J_1HVAT_OFF_NUMA' ).

2) At tab Table/join condition, add table T007A by mark table
'J_1HVAT_OFF_NUM' and press 'Relationship'

3) At tab View field, Remove attribute 'H' for BLART ( and
MWSKZ ). append new field from T007A-MWART (Tax type), use
attribute 'R'.



4) At tab Selection Condition, replace all line with
- for view J_1HVAT_OFF_NUMV
Table Field Op Coparison Value AND/OR
----- ----- -- --------------- ------
T007A KALSM EQ 'TAXTH' AND
T007A MWART EQ 'V' OR
T007A MWART EQ ' '
----- ----- -- --------------- ------
- for view J_1HVAT_OFF_NUMA
Table Field Op Coparison Value AND/OR
----- ----- -- --------------- ------
T007A KALSM EQ 'TAXTH' AND
T007A MWART EQ 'A' OR
T007A MWART EQ ' '
----- ----- -- --------------- ------

5) Activate the view.

6) Re-generate the view maintenance. Goto Utilities --> Table
maintenance generator. Press 'Change' and select "Expert
mode" select all activities in popup and execute.

The two view maintenance will be availabe for both input and
output tax. Both view maintenance screen will have same
columns ( company, bupla, year, doc.type, tax code and tax
type ) but diffrence for entries according to tax type. If no
tax code assigned, the entry will be visible for both view
maintenance screens.

________________________________________________________________________





Valid releases
Software component Release
from to

SAP_APPL SAP Application
470 - 470
46C - 46C

Other components

FI
Financial Accounting
________________________________________________________________________

References to related notes

Number Short text
____________________________________________________________
700325 Changes to IMG for Tax Invoice Numbering for Thailand
698815 View V_T003_B_I missing from IMG
571938 FI: Program enhancements for Thailand
530655 Performance improvements in Business Transaction Events
368965 VAT numbering for Thailand

________________________________________________________________________

References to Support Packages

Software component Release Package name
________________________________________________________________________
SAP Application
46C SAPKH46C47
470 SAPKH47005
470 SAPKH47006
470 SAPKH47021

________________________________________________________________________





Assigned correction instructions
________________________________________________________________________


Code:
*$*$--------------------------------------------------------------$*$*
*$ Correction Inst. 0120031469 0000294325 $*
*$ Req. Corr. Instructions 0120031469 0000219583 Note 0000380299 $*
*$ 0120031469 0000299292 Note 0000706150 $*
*$ 0120061532 0000251085 Note 0000370565 $*
*$ 0120061532 0000377155 Note 0000502521 $*
*$ 0120061532 0000402352 Note 0000518579 $*
*$ 0120061532 0000438786 Note 0000541174 $*
*$ 0120061532 0000478672 Note 0000539442 $*
*$ 0120061532 0000493777 Note 0000580528 $*
*$ 0120061532 0000502923 Note 0000586172 $*
*$ 0120061532 0000514148 Note 0000594358 $*
*$ 0120061532 0000532565 Note 0000571376 $*
*$ 0120061532 0000597816 Note 0000670741 $*
*$ 0120061532 0000603901 Note 0000674599 $*
*$------------------------------------------------------------------$*
*$ Valid for : $*
*$ Software Component SAP_APPL SAP Application $*
*$ Release 46C SAPKH46C30 - SAPKH46C45 $*
*$*$--------------------------------------------------------------$*$*
*&-------------------------------------------------------------------*
*& Object REPS F110SFB0_BELEG_ERZEUGEN
*& Object Header PROG F110SFB0_BELEG_ERZEUGEN
*&-------------------------------------------------------------------*
*& FORM BELEG_ERZEUGEN
*&-------------------------------------------------------------------*
...
call function 'OFF_NUMBER_GLOBAL_NUMBERING'
exporting
i_fin1_param = fin1_param
i_bkpf = xbkpf
importing
*>>>> START OF DELETION <<<<<o_xblnr>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<o_xblnr>>>> END OF INSERTION <<<<<<Object>>>> START OF INSERTION <<<<INCLUDE>>>> END OF INSERTION <<<<<<Object>>>> START OF DELETION <<<<<REFERENCE>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<VALUE>>>> START OF DELETION <<<<<WHEN>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<WHEN>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<VALUE>>>> START OF DELETION <<<<<WHEN>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<WHEN>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<o_xblnr>>>> END OF INSERTION <<<<<<Object>>>> START OF INSERTION <<<<INCLUDE>>>> END OF INSERTION <<<<<<Object>>>> START OF DELETION <<<<<FIELD>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<FIELD>>>> END OF INSERTION <<<<<<CHAIN>>>> START OF DELETION <<<<<MODULE>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<FIELD>>>> END OF INSERTION <<<<<<Object>>>> START OF DELETION <<<<<FIELD>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<FIELD>>>> END OF INSERTION <<<<<<FIELD>>>> START OF DELETION <<<<<FIELD>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<FIELD>>>> END OF INSERTION <<<<<<Object>>>> START OF DELETION <<<<<DATA>>>> END OF INSERTION <<<<<<PERFORM>>>> START OF DELETION <<<<<endif>>>> START OF DELETION <<<<<
*------ If the calling from payment, the proposal must existed
* ... <Run>-<ID> is in BKTXT,

*------ Invoice verification
* ... not for simulation mode "Note 406966
* ... and tax item must existed "Note 531893
IF sy-tcode = 'MIRO'
OR t_bkpf-awtyp = 'RMRP'.
PERFORM check_simulation(saplmr1m)
USING simulation
IF FOUND.
READ TABLE t_bset INDEX 1.
IF sy-subrc <0>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<Cash>>>> END OF INSERTION <<<<<<ENDIF>>>> START OF DELETION <<<<<

ENDLOOP.

*------ Save back to memory ID
EXPORT t_bkpf TO MEMORY ID 'OPENFI00001025E'.


* OPEN FORM FOR BILL OF EXCHANGE TRANSACTION RECORD
***************************************************
READ TABLE t_bkpf INDEX 1 INTO t_bkpf.

*------ Active only for Thailand
CALL FUNCTION 'J_1BSA_COMPONENT_ACTIVE'
EXPORTING
bukrs = t_bkpf-bukrs
component = '**'
IMPORTING
active_component = country
EXCEPTIONS
component_not_active = 1
OTHERS = 2.

IF country NE 'TH'.
EXIT.
ENDIF.

* check transaction code
IF sy-tcode = 'FBW4'.
EXIT.
ENDIF.

* transaction boe precondition
LOOP AT t_bseg INTO wa_bseg.
IF wa_bseg-koart = 'D'
AND wa_bseg-umsks = 'W'
AND wa_bseg-shkzg = 'S'.
ok = 'X'.
EXIT.
ENDIF.
ENDLOOP.

IF ok IS INITIAL.
EXIT.
ENDIF.

* check batch input modus
IF sy-binpt EQ 'X'.

 

 

EXIT.
ENDIF.

* check if bounced boe is going to be generated
IF NOT t_bkpf-bktxt IS INITIAL.
SELECT SINGLE * FROM bseg INTO wb_bseg
WHERE bukrs = t_bkpf-bukrs
AND belnr = t_bkpf-bktxt(10)
AND gjahr = t_bkpf-bktxt+13(4)
AND buzei = t_bkpf-bktxt+10(3).
* if a reference document(BKTXT) already exists in the system
* the current document is a bounced boe which has to be posted
IF sy-subrc = 0.
EXIT.
ENDIF.
ENDIF.

IF form IS INITIAL.
* determine layout set responsible for printing BOE-lists
SELECT SINGLE * FROM t001f INTO wa_t001f
WHERE bukrs = t_bkpf-bukrs
AND programm = 'RFIDTRBOE1'.
IF sy-subrc = 0.
form = wa_t001f-fornr.
ELSE.
MESSAGE e400(icc_tr).
ENDIF.
ENDIF.

settings-tdprogram = 'SAPLIDTR'.
settings-tdimmed = 'X'.
settings-tdnewid = 'X'.

CALL FUNCTION 'OPEN_FORM'
EXPORTING
device = 'PRINTER'
form = form
options = settings
IMPORTING
result = result
EXCEPTIONS
canceled = 1
device = 2
form = 3
options = 4
unclosed = 5
mail_options = 6
archive_error = 7
invalid_fax_number = 8
more_params_needed_in_batch = 9
OTHERS = 10.

help_subrc = sy-subrc.

IF sy-subrc <0>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<endloop>>>> END OF INSERTION <<<<<<Object>>>> START OF DELETION <<<<<generation>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<generation>>>> END OF INSERTION <<<<<<Object>>>> START OF DELETION <<<<<generation>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<generation>>>> END OF INSERTION <<<<<<Object>>>> START OF DELETION <<<<<generation>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<generation>>>> END OF INSERTION <<<<<<Object>>>> START OF DELETION <<<<<generation>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<generation>>>> END OF INSERTION <<<<<<Object>>>> START OF DELETION <<<<<generated>>>> END OF DELETION <<<<<<<Object>>>> START OF DELETION <<<<<move>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<

*------- If wildcard-customizing existed
if sy-subrc <0>>>> START OF DELETION <<<<<
*------ If the calling from payment, the proposal must existed
* ... <Run>-<ID> is in BKTXT,

*------ Invoice verification
* ... not for simulation mode "Note 406966
* ... and tax item must existed "Note 531893
if sy-tcode = 'MIRO'
or t_bkpf-awtyp = 'RMRP'.
perform check_simulation(saplmr1m)
using simulation
if found.
read table t_bset index 1.
if sy-subrc <0>>>> END OF DELETION <<<<<<<perform>>>> START OF DELETION <<<<<Save>>>> END OF DELETION <<<<<<<Object>>>> START OF INSERTION <<<<o_bktxt>>>> END OF INSERTION <<<<<<
...
*&-------------------------------------------------------------------*
*&-------------------------------------------------------------------*
*& Object FUNC RV_INVOICE_DOCUMENT_ADD
*& Object Header FUGR V60A
*&-------------------------------------------------------------------*
*& FUNCTION RV_INVOICE_DOCUMENT_ADD
*&-------------------------------------------------------------------*
...
FUNCTION rv_invoice_document_add.
*"----------------------------------------------------------------------
*>>>> START OF DELETION <<<<<Globale>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<Global>>>> END OF INSERTION <<<<<<numbtab>>>> START OF INSERTION <<<<loop>>>> START OF DELETION <<<<<
WHEN 'TH'. "Thailand

CHECK O_FIN1_PARAM_EX-APPLI EQ 'V'. "<ONLY>>>> END OF DELETION <<<<<<<
*>>>> START OF INSERTION <<<<WHEN>>>> END OF INSERTION <<<<<<APPEND>>>> START OF DELETION <<<<<
I_VBRK-BUPLA TO T_BSEG-BUPLA.

IMPORT XKOMV FROM MEMORY ID 'J1HKOMV'. "406966
read table xkomv into komv "406966
with key kschl = 'MWST'.
if sy-subrc <0>>>> END OF INSERTION <<<<<<
...
*&-------------------------------------------------------------------*
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Russian ABAP Developer's Club Forum Index -> Enhancement and Modification | Расширения и модификация All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
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 can 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.