Привет всем.
У меня в очередной раз возник вопрос, но уже по постингу. Может кто-то поясним не, не смышлённому...
ACY = ДОВ, однако ОЧЕНЬ "интересно" постятся скидки... 80 CU - части кода:
Код:
IF (InvPostingBuffer[1]."Line Discount Amount" <> 0) OR
(InvPostingBuffer[1]."Line Discount Amt. (ACY)" <> 0)
THEN
PostDiscount(
InvPostingBuffer[1]."Line Discount Account",
InvPostingBuffer[1]."Line Discount Amount",
InvPostingBuffer[1]."Line Discount Amt. (ACY)",
InvPostingBuffer[1]."Dimension Entry No.");
*Ремарка -
InvPostingBuffer[1]."Line Discount Amt. (ACY)"
и следующий код в триггере PostDiscount(GLAccNo : Code[20];DiscountAmount : Decimal;SrcCurrDiscountAmount : Decimal;DimEntryNo : Integer):
Код:
"WITH GenJnlLine DO BEGIN
"Gen. Posting Type" := 0; // None
"Gen. Bus. Posting Group" := '';
"Gen. Prod. Posting Group" := '';
"VAT Bus. Posting Group" := '';
"VAT Prod. Posting Group" := '';
"Depreciation Book Code" := '';
"EU 3-Party Trade" := FALSE;
"VAT Calculation Type" := "VAT Calculation Type"::"Normal VAT";
"Bill-to/Pay-to No." := '';
"VAT Amount" := 0;
"Account No." := GLAccNo;
Amount := -DiscountAmount;
"Amount (LCY)" := 0;
"Source Currency Code" := SalesHeader."Currency Code";
"Source Currency Amount" := -SrcCurrDiscountAmount;
"Source Curr. VAT Amount" := 0;
"System-Created Entry" := TRUE;"
*Ремарка -
"Source Currency Code" := SalesHeader."Currency Code";
"Source Currency Amount" := -SrcCurrDiscountAmount;
...
Могу предположить, что люди позаимствовали готовое поле... Но так можно быстро всё переименовать помоему.. через известный тулкит и выгрузку в текст...
Если это так, то в очередной раз можно "поблагодарить" разработчиков CORE за информативность в обозначениях.. как это было с полями в 37 Sales Line и 290 VAT Amount Line!!