Адназначна ABAP4.
Проверяется поле shkzg (Индикатор дебета/кредита) из структуры bsid (Бухгалтерия: вторичный индекс для дебиторов) и если его значение равно 'H', то значение поля wrbtr (Сумма в валюте документа) меняется на отрицательное.

Чесно сказать, за такой алгорим:

v_temp = wa_bsid-wrbtr.
CONCATENATE '-' v_temp INTO v_value.
CLEAR: wa_bsid-wrbtr.
wa_bsid-wrbtr = v_value.

, я-бы руки автору вырвал с корнями, если хотите знать почему - подумайте сами.

zumTeufel
Из спортивного интереса, Вы не могли-бы привести свой пример (он ведь коротенький - это недолго) записи этого алгоритма (не выдергивания рук, конечно) на АВАР-е. Просто, чтобы показать образец хорошего стиля, в данном, конкретном случае?

Да пожалуйста:

IF wa_bsid-shkzg EQ 'H' AND wa_bsid-wrbtr GT 0.
wa_bsid-wrbtr = wa_bsid-wrbtr * ( -1 ).
ENDIF.

1. Проверка wa_bsid-wrbtr на положительное значение необходима, потому как зачем делать отрицательным значение которое уже отрицательно? (по крайней мере первый алгоритм делает отрицательным любое значение поля wa_bsid-wrbtr)

2. wrbtr - есть переменная типа CURR, т.е. валюта, т.е. встроенный тип данных P (длинна 13 цифр с двумя десятичными знаками), а значит поддерживается операция умножения. Вот потому проще произвести одну операцию умножения, нежели четыре операции:
1. Приведение значения временной переменной с преобразованием типа.
2. Конкатенация строк
3. Очистка переменной wa_bsid-wrbtr - вообще не понятно зачем это здесь.
4. Присвоение нового значения с преобразованием типа.

Думаю это понятно?

Дорогой, zumTeufel, надеюсь что не Вы автор сего(т.е. первого) алгоритма :)

Alex Kuznetsov
IF wa_bsid-shkzg EQ 'H' AND wa_bsid-wrbtr GT 0.
wa_bsid-wrbtr = wa_bsid-wrbtr * ( -1 ).
ENDIF.


А можно исче короче написать :)

IF wa_bsid-shkzg EQ 'H' AND wa_bsid-wrbtr GT 0.
wa_bsid-wrbtr = - wa_bsid-wrbtr.
ENDIF.

Тады просто знак поменяется и усё.
Не верится?
А возьмите и проверьте. Вот пример.