ABAP

Customers:
SD_CUSTOMER_MAINTAIN_ALL – quite powerful, but has no RFC (should be wrapped for it)
BAPI_CUSTOMER_CREATEFROMDATA1 – much simple, but has RFC (a BAPI).
As an additional way – using IDocs (DEBMAS).

Vendors:
Class VMD_EI_API – methods Initialize and Maintenance
Functional group LC01.
As an additional way – IDocs (CREMAS).

10 08 2018

Protected: ABAP: Adding new line items to an Inbound delivery (with PO reference)

Ruslan ABAP ABAP, BORGR Enter your password to view comments.

28 02 2018

Прокси-сервер в ABAP

Ruslan ABAP ABAP 0

Если вы из программы на ABAP пытаетесь получить веб-контент через HTTP, то соединение будет производиться не с компьютера клиента, а с сервера приложений. В зависимости от конфигурации локальной сети вам может понадобиться пробираться через прокси-сервер (иначе потребуется прямая видимость сервера или NAT).

При оформлении HTTP запроса можно непосредственно указать прокси-сервер:

if client is initial.
call method cl_http_client=>create
 exporting
  host  = 'www.example.com'
  proxy_host    = '192.168.1.1'
  proxy_service = '8080'
 importing
  client  = client
exceptions
  argument_not_found = 1
  internal_error     = 2
  plugin_not_active  = 3
  others             = 4.

if client is initial.

call method cl_http_client=>create

exporting

host = 'www.example.com'

proxy_host = '192.168.1.1'

proxy_service = '8080'

importing

client = client

exceptions

argument_not_found = 1

internal_error = 2

plugin_not_active = 3

others = 4.

Однако здесь есть пара моментов. Во-первых – хардкод в коде не приветствуется, а во-вторых – нет авторизации.

Глобальную настройку HTTP-прокси можно обнаружить в транзакции SM59:

И там уже в появившемся окошечке можно указать не только сервер/порт, но также и логин/пароль для авторизации.

08 06 2017

Важные слова не важны

Ruslan ABAP ABAP 0

В процессе написания кода по заданной спецификации неожижанно обнаружилось, что ключевые слова ABAP не являюся зарезервированными.
Поэтому нижеследующий код компилируется и даже выполняется:

TYPES TYPE.

DATA USING TYPE TYPE.

PERFORM FORM USING USING USING USING.

FORM FORM USING USING TYPE TYPE DATA LIKE USING TYPE TYPE TYPE.

  DATA = TYPE.

  DATA TO TYPE I.
  DATA ADD LIKE TO.

  ADD ADD TO TO.

  DATA IF.
  DATA EQ.
  DATA ENDIF.
  IF IF EQ EQ.
    MOVE TO TO ENDIF.
  ENDIF.

ENDFORM.

TYPES TYPE.

DATA USING TYPE TYPE.

PERFORM FORM USING USING USING USING.

FORM FORM USING USING TYPE TYPE DATA LIKE USING TYPE TYPE TYPE.

DATA = TYPE.

DATA TO TYPE I.

DATA ADD LIKE TO.

ADD ADD TO TO.

DATA IF.

DATA EQ.

DATA ENDIF.

IF IF EQ EQ.

MOVE TO TO ENDIF.

ENDIF.

ENDFORM.

Даже если так писать и можно, то этого делать всё-таки не следует:

Усложняет восприятие, хотя есть и подсветка кода и uppercase/lowercase
Name-conventions
Ограничения при работе с БД
Это не смешно

Зато есть служебная таблица TRESE, в которой перечисляются разные наименования полей, которые нельзя создавать из-за ограниченний в разных БД.
© Иван Болховитинов

14 04 2017

Protected: WMS: propose next empty bin

Ruslan ABAP ABAP Enter your password to view comments.

01 12 2016

On distribution – is delivery packed?

Ruslan ABAP ABAP, Enhancement 0

FM WS_LM_CHANGE_DLV_DISTRIB_STATE

ENHANCEMENT 1  YDISTRIBUTE.
if ( sy-tcode eq 'VL06I' or sy-tcode eq 'VL06ID' ) and  ( if_d_proctype eq proctype_inbdist ).
"VL06I - do not process the enhancement if it distributes via other ways"
"proctype_inbdist - checking only inbound deliveries"
 types: begin of t_params,
  paramval like yparamconst-paramval,
 end of t_params.
 data: lt_params type standard table of t_params,
       wa_params like line of lt_params, "work area (header line)"
       is_zles type boolean.  "default abap_false."
"which delivery types for checking/processing are defined in our Z-table?"
 select paramval from yparamconst into corresponding fields of table lt_params where paramid  = 'LIEFERUNGSNUMMER'.
 if sy-subrc eq 0.
  field-symbols: <ls_lfart> type lipov.
  loop at ct_worktab assigning <ls_lfart>.
    read table lt_params with key paramval = <ls_lfart>-lfart transporting no fields.
   if sy-subrc eq 0.
    is_zles = abap_true.
"all the selected delivery [types] are in yparamconst"
   endif.
  endloop.
 if is_zles eq abap_true.
  data: lt_wahl like gs_select occurs 0 with header line,
        begin of lt_wahl2 occurs 0,
          vbeln like likp-vbeln,
          verur like likp-verur,
        end of lt_wahl2,
        l_msg type c length 50,
        ans type char1.
  field-symbols: <ls_arbeit> type lipov,
                 <ls_wahl2> like line of lt_wahl2.
  loop at ct_worktab assigning <ls_arbeit>.
    lt_wahl-vbeln = <ls_arbeit>-vbeln.
    collect lt_wahl.
  endloop.

  check not lt_wahl[] is initial.
  select vbeln verur from likp
               into table lt_wahl2
               for all entries in lt_wahl
               where vbeln eq lt_wahl-vbeln.
"in addition we checking if the field External ID isn't empty"
  loop at lt_wahl2 transporting no fields
    where verur eq space.
  endloop.

  if sy-subrc eq 0.
   message s000(Y_YSD) into l_msg.
   call function 'POPUP_TO_CONFIRM'
    exporting
      titlebar       = 'Confirm'
      text_question  = l_msg
      text_button_1  = 'Yes'
      text_button_2  = 'No'
      display_cancel_button = ''
      default_button = '2'
    importing
      answer         = ans.
   if ans eq 2.
    return.
   endif.
  endif.

  clear l_msg.

  field-symbols: <ls_vepo> type lipov.
  data lt_vepo like VEPO occurs 0.

  loop at ct_worktab assigning <ls_vepo>.
    select vbeln from vepo into corresponding fields of table lt_vepo where vbeln eq <ls_vepo>-vbeln.
     if sy-subrc ne 0.
       message s001(Y_YSD) into l_msg.
       call function 'POPUP_TO_CONFIRM'
        exporting
          titlebar       = 'Confirm'
          text_question  = l_msg
          text_button_1  = 'Yes'
          text_button_2  = 'No'
          display_cancel_button = ''
          default_button = '2'
        importing
          answer         = ans.
       if ans eq 2.
        return.
   endif.
   endif.
  endloop.

 endif. "is_zles"

 endif.
endif.
ENDENHANCEMENT.

ENHANCEMENT 1 YDISTRIBUTE.

if ( sy-tcode eq 'VL06I' or sy-tcode eq 'VL06ID' ) and ( if_d_proctype eq proctype_inbdist ).

"VL06I - do not process the enhancement if it distributes via other ways"

"proctype_inbdist - checking only inbound deliveries"

types: begin of t_params,

paramval like yparamconst-paramval,

end of t_params.

data: lt_params type standard table of t_params,

wa_params like line of lt_params, "work area (header line)"

is_zles type boolean. "default abap_false."

"which delivery types for checking/processing are defined in our Z-table?"

select paramval from yparamconst into corresponding fields of table lt_params where paramid = 'LIEFERUNGSNUMMER'.

if sy-subrc eq 0.

field-symbols: <ls_lfart> type lipov.

loop at ct_worktab assigning <ls_lfart>.

read table lt_params with key paramval = <ls_lfart>-lfart transporting no fields.

if sy-subrc eq 0.

is_zles = abap_true.

"all the selected delivery [types] are in yparamconst"

endif.

endloop.

if is_zles eq abap_true.

data: lt_wahl like gs_select occurs 0 with header line,

begin of lt_wahl2 occurs 0,

vbeln like likp-vbeln,

verur like likp-verur,

end of lt_wahl2,

l_msg type c length 50,

ans type char1.

field-symbols: <ls_arbeit> type lipov,

<ls_wahl2> like line of lt_wahl2.

loop at ct_worktab assigning <ls_arbeit>.

lt_wahl-vbeln = <ls_arbeit>-vbeln.

collect lt_wahl.

endloop.

check not lt_wahl[] is initial.

select vbeln verur from likp

into table lt_wahl2

for all entries in lt_wahl

where vbeln eq lt_wahl-vbeln.

"in addition we checking if the field External ID isn't empty"

loop at lt_wahl2 transporting no fields

where verur eq space.

endloop.

if sy-subrc eq 0.

message s000(Y_YSD) into l_msg.

call function 'POPUP_TO_CONFIRM'

exporting

titlebar = 'Confirm'

text_question = l_msg

text_button_1 = 'Yes'

text_button_2 = 'No'

display_cancel_button = ''

default_button = '2'

importing

answer = ans.

if ans eq 2.

return.

endif.

clear l_msg.

field-symbols: <ls_vepo> type lipov.

data lt_vepo like VEPO occurs 0.

loop at ct_worktab assigning <ls_vepo>.

select vbeln from vepo into corresponding fields of table lt_vepo where vbeln eq <ls_vepo>-vbeln.

if sy-subrc ne 0.

message s001(Y_YSD) into l_msg.

call function 'POPUP_TO_CONFIRM'

exporting

titlebar = 'Confirm'

text_question = l_msg

text_button_1 = 'Yes'

text_button_2 = 'No'

display_cancel_button = ''

default_button = '2'

importing

answer = ans.

if ans eq 2.

return.

endif.

endloop.

endif. "is_zles"

endif.

ENDENHANCEMENT.

16 11 2014

ABAP programming tips

Ruslan ABAP ABAP 5

Q: How to convert sy-datum type type to string DD.MM.YYYY?
A: write sy-datum using edit mask ‘==PDATE’ to lv_datestring.

Q: How to convert CHAR type to RAW type?
A:

  types: begin of c16,
           aaa(16) type c, "CHAR(16)
         end of c16.
  types: begin of r16,
           aaa type guid_16, "RAW(16)
         end of r16.
  data: it_chars type table of c16,
        it_raws type table  of r16,
        c1(16) type c.
  c1 = '1234567890123456'.
  append c1 to it_chars.
  call method CL_RSZ_WWW_DB_INTERFACE=>CONVERT_CHAR_TO_RAW
    exporting
      I_T_IN  = IT_chars
    importing
      E_T_OUT = it_raws

types: begin of c16,

aaa(16) type c, "CHAR(16)

end of c16.

types: begin of r16,

aaa type guid_16, "RAW(16)

end of r16.

data: it_chars type table of c16,

it_raws type table of r16,

c1(16) type c.

c1 = '1234567890123456'.

append c1 to it_chars.

call method CL_RSZ_WWW_DB_INTERFACE=>CONVERT_CHAR_TO_RAW

exporting

I_T_IN = IT_chars

importing

E_T_OUT = it_raws

Q: What does mean asterisk in front of the name?
A: EKPO and *EKPO are usually defined in TABLES statement, and both use the DDIC structure of EKPO. Classical usage is to distinguish between old and new value of the record.
SELECT SINGLE * FROM *bkpf is equal to SELECT SINGLE * FROM bkpf into *bkpf
the same as SELECT SINGLE * FROM bkpf is equal to SELECT SINGLE * FROM bkpf into bkpf

While declaring variables, always follow the naming conventions through out your code. Your variable names talks a lot about its usage.
Make sure your variables are of the form:

{Prefix1}{Prefix2}_{Name} where:

Prefix1:
L – Local
I – Import
E – Export
G – Global
T – Table Type

Prefix2:
V – Single Value
S – Structure
T – Table
R – Type ref to Data
O – Type ref to Object
E – Type ref to Exception objects

Name – name of the variable.
e.g.:
lt_sel – local table
lo_rvs – local object
and so on.

Before changing the parameters (type or name), make sure that you run “Where used”, make a note and change them as well.
While working on ABAP Classes and Interfaces, Never change a super class of a framework. It could potentially bring all applications down. Double check to make sure that the code you change is in your class only.

Ctrl + D Duplicate any line.
Ctrl + . & Ctrl + , Comment and Un-Comment selected lines.
Ctrl+Shift+X Deletes the whole line.
Ctrl+Shift+V Gives All Paste options.
To assist in locating codes, can be a bookmark, using a combination: CTRL + ALT + (0 to 9).
To go to bookmark created, use combination CTRL + (0 to 9).

Q: How to debug IDOCs inbound processing (most first FMs on receiver system (under ALEREMOTE non dialog user)?
A: Simple and stupid solution is to put eternal loop in form FA5_DOCUMENT_SYNTAX_CHECK (program LEDI1FA5):

data: x type flag. *if sy-uname eq 'SAPSD'. while x is initial. endwhile. "endif.

1
2
3
4
5

data: x type flag.
*if sy-uname eq 'SAPSD'.
while x is initial.
endwhile.
"endif.

Then the process will be available for debugging in the transaction SM50.
Please create lock objects on the header tables and make sure that you obtain a lock before changes and release the lock after changes.
Make sure that you transactions are atomic. Either commit your work after all changes are successful or Rollback in case of error. If you rollback, make sure that you have released the locks.

Q: How to pass dynamic varable into SELECT … WHERE IN clause?
A:

data: lv_pabprfs type string,
         qry type string.
  select single param from zparam into lv_pabprfs where paramid  = 'PAPROFIL'.
  "lv_pabprfs = 'M033', 'M833', 'M843'
  qry = 'b~pabprf in (' && lv_pabprfs && ')'.

  select single baset into myvar from jitoco where outpo = '3' and (qry).

data: lv_pabprfs type string,

qry type string.

select single param from zparam into lv_pabprfs where paramid = 'PAPROFIL'.

"lv_pabprfs = 'M033', 'M833', 'M843'

qry = 'b~pabprf in (' && lv_pabprfs && ')'.

select single baset into myvar from jitoco where outpo = '3' and (qry).

During save, please make sure that entries in all the text (_T_*) tables that relate to your modules are also saved. If no data exists, treat it as an error. (As across check, you can verify the same by executing the view and making sure that the data is returned correctly)
The Function should be RFC Enabled. Never raise an exception. Always return errors in the ET_RETURN (Type BAPIRET2) structure.
Never hardcode text strings. Make sure that you use a text element. But use it with text reference.
E.g. If you have an error during validating the email, use it as “Email ID is required”(001) instead of using text-001. This will ensure that error messages are displayed regardless of user logon language.
At the end of the function, Always call “get details” and return the values as export/table values. This will serve the purpose of reflecting the data as-is in the DB back to the user and will save another round trip to retrieve it again.

Q: How to get variable value from another running program?
A:

"in case of needed programm isn't in the memory area, we can to call it via
PERFORM change_control_record IN PROGRAM SAPMV50A.
  ld_mem = '(SAPMV50A)XLIPS[]'.
  ASSIGN (ld_mem) TO <mem>.
  IF sy-subrc = 0. "if ld_mem is assigned
    lt_xlips[] = <mem>.
  ENDIF.

"in case of needed programm isn't in the memory area, we can to call it via

PERFORM change_control_record IN PROGRAM SAPMV50A.

ld_mem = '(SAPMV50A)XLIPS[]'.

ASSIGN (ld_mem) TO <mem>.

IF sy-subrc = 0. "if ld_mem is assigned

lt_xlips[] = <mem>.

ENDIF.

Update audit fields created by, created date, created time only during create.
Please ensure that IV_UNAME (SY-UNAME) and IV_LANGUAGE (SY_LANGU) are mandatory for all modules. Extract the data for the language specified.
Q: Where are the packing handling units data stored during execution of transaction VL01/VL02/VL32N”? CVEKP table is always empty.
A: The variable is (SAPLV51G)IVEKP[]

1 2