22 Nisan 2018 Pazar

BAPI Structure and xStructure Dynamically Filling (Crossing Out)


As many of you already know, BAPIs often use dual structure.

Data is collected in the first structure, and verified in the second structure. This verification is done by crossing out. This means that the field will be updated / created.

Example;

1
2
3
4
5
6
mystrucute-myfield = 0.005.
mystrucutex-myfield = 'X'.
mystrucute-yourfield = 'Ali'.
mystrucutex-yourfield = 'X'.
mystrucute-ourfield = '0085066996'.
mystrucutex-ourfield = ''.   //Won't update.

Receiving and verifying data can take hundreds of line. The data, from the database, is manually matched one by one BAPI structure, and xStructure is crossed out one by one.

Example BAPI (Just a part)

Mapping functions provided by SAP can be used to fill BAPI structures similar to database tables.

These functions work with external-> internal or internal-> external logic.

For example; bapi_marc -> marc or marc-> bapi_marc. In this way you can easily fill a whole structure.

For example;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
Select Single *
 From mard
 Into ls_mard
 Where matnr = lv_matnr
   And lgort = lv_lgort.

Check sy-subrc Is Initial.

Call Function 'MAP2E_MARD_TO_BAPI_MARD'
 Exporting
  mard      = ls_mard
 Changing
  bapi_mard = ls_bapi_mard.


These functions may not always be pre-generated in the system, but can be generated using the BDBS transaction code.

However, SAP doesnt provides a function for dynamic crossing out. We can do this ourselves. My solution is as follows;

Local Interface:
Importing: iv_stname Type ddobjname
Changing: cv_structure ve cv_structurex


 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
DATA lt_fields TYPE STANDARD TABLE OF x031l WITH HEADER LINE.

FIELD-SYMBOLS: <st> TYPE ANY.
FIELD-SYMBOLS: <stx> TYPE ANY.
FIELD-SYMBOLS: <line> TYPE x031l.

CALL FUNCTION 'DDIF_NAMETAB_GET'
  EXPORTING
    tabname = iv_stname
  TABLES
    x031l_tab = lt_fields
  EXCEPTIONS
    not_found = 1
    OTHERS = 2.

CHECK sy-subrc = 0.

LOOP AT lt_fields ASSIGNING <line>.
  ASSIGN COMPONENT <line>-fieldname OF 
  STRUCTURE cv_structurex TO <stx>.
  CHECK <stx> IS ASSIGNED.
  ASSIGN COMPONENT <line>-fieldname OF 
  STRUCTURE cv_structure TO <st>.
  CHECK <st> IS ASSIGNED.
  IF <st> IS INITIAL.
    CLEAR <stx>.
  ELSE.
    <stx> = 'X'.
  ENDIF.
ENDLOOP.

ENDFUNCTION.

An example for function call;

1
2
3
4
5
6
CALL FUNCTION 'Z_XXXXXXXXXXXX'
  EXPORTING
    iv_stname = 'BAPI_MARD'
  CHANGING
    cv_structure = ls_bapi_mard
    cv_structurex = ls_bapi_mardx.

If xStructure has a key field, which means its type is not char1, remember to fill it. I have not added this feature, dont know why :)

With these two functions, you can fill and validate hundreds of lines much faster!

Gönderen zaman: Hiç yorum yok:
Etiketler:

BAPI Structure Dinamik Doldurma ve xStructure Dinamik İşaretleme


Bir çoğunuzun önceden de bildiği gibi BAPI'ler çoğu zaman ikili yapı kullanırlar.
İlk yapıda veri alınırken, ikinci yapıda alınan veri doğrulanır. Bu doğrulama işlemi çarpılayarak yapılır. Bu işlem o alanın güncelleneceği/yaratılacağı anlamına gelir.

Örneğin;

1
2
3
4
5
6
mystrucute-myfield = 0.005.
mystrucutex-myfield = 'X'.
mystrucute-yourfield = 'Ali'.
mystrucutex-yourfield = 'X'.
mystrucute-ourfield = '0085066996'.
mystrucutex-ourfield = ''.   //Ilk iki alan guncellenirken bu alan guncellemeyecek.

Veri alma ve doğrulama işlemi yüzlerce satırı bulabilir. Veritabanından alınan veriler tek tek BAPI structure ile eşlenir bunun yanında xStructure tek tek işaretlenir.

Örnek BAPI (Sadece bir kısmı)

Database tablolarına çok benzeyen BAPI structure'larını doldurmak için SAP'nin sunduğu Mapping fonksiyonları kullanılabilir.

Bu fonksiyonlar external->internal veya internal->external mantığı ile çalışır.

Örneğin; bapi_marc -> marc veya marc->bapi_marc şeklinde. Bu şekilde koca structure'ı kolaylıkla tamamlayabilirsiniz. Örneğin;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
Select Single *
 From mard
 Into ls_mard
 Where matnr = lv_matnr
   And lgort = lv_lgort.

Check sy-subrc Is Initial.

Call Function 'MAP2E_MARD_TO_BAPI_MARD'
 Exporting
  mard      = ls_mard
 Changing
  bapi_mard = ls_bapi_mard.


Bu fonksiyonlar sistemde her zaman oluşturulmuş halde bulunamayabilir.  BDBS işlem kodundan kolaylık üretilebilir.

Ancak SAP dinamik işaretleme için bir fonksiyon sağlamıyor. Bunu kendimiz yapabiliriz. Benim çözümüm aşağıdaki gibi.

Local Interface:
Importing: iv_stname Type ddobjname
Changing: cv_structure ve cv_structurex


 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
DATA lt_fields TYPE STANDARD TABLE OF x031l WITH HEADER LINE.

FIELD-SYMBOLS: <st> TYPE ANY.
FIELD-SYMBOLS: <stx> TYPE ANY.
FIELD-SYMBOLS: <line> TYPE x031l.

CALL FUNCTION 'DDIF_NAMETAB_GET'
  EXPORTING
    tabname = iv_stname
  TABLES
    x031l_tab = lt_fields
  EXCEPTIONS
    not_found = 1
    OTHERS = 2.

CHECK sy-subrc = 0.

LOOP AT lt_fields ASSIGNING <line>.
  ASSIGN COMPONENT <line>-fieldname OF 
  STRUCTURE cv_structurex TO <stx>.
  CHECK <stx> IS ASSIGNED.
  ASSIGN COMPONENT <line>-fieldname OF 
  STRUCTURE cv_structure TO <st>.
  CHECK <st> IS ASSIGNED.
  IF <st> IS INITIAL.
    CLEAR <stx>.
  ELSE.
    <stx> = 'X'.
  ENDIF.
ENDLOOP.

ENDFUNCTION.

Örnek fonksiyon call ise;

1
2
3
4
5
6
CALL FUNCTION 'Z_XXXXXXXXXXXX'
  EXPORTING
    iv_stname = 'BAPI_MARD'
  CHANGING
    cv_structure = ls_bapi_mard
    cv_structurex = ls_bapi_mardx.

Eğer xStructure'da tipi char1 olmayan, anahtar alan var ise bunu doldurmayı unutmayın. Bu özelliği eklememiştim :)

Bu iki fonksiyonu kullanarak yüzlerce satır sürece doldurma ve doğrulama işlemini çok daha hızlı yapabilirsiniz :)

Gönderen zaman: Hiç yorum yok:
Etiketler: ,
Kaydol: Kayıtlar (Atom)