Тази статия се отнася за Microsoft Dynamics NAV за езиково-географската променлива за гръцки език (gr).
Симптоми
Ако щракнете, за да поставите отметка и двете квадратчета за автоматично осчетоводяване на разходи и осчетоводяване на очаквана стойност в гръцката версия на Microsoft Dynamics NAV, неправилните записи в главната книга, създадени от сумата на очакваната цена, няма да бъдат отменени. Следователно резултатът в отчета за пробния баланс (16702) се различава от резултата в отчета за складовата карта (16785).
Този проблем възниква в следните продукти:
- Гръцката версия на Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- Гръцката версия на Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
Причина
Този проблем възниква, защото разходите по елементи са изчислени два пъти в записите от главната книга. Еднократната цена се изчислява като очакваната цена, а другия път се изчислява като действителна цена.
Решение
Информация за горещи поправки
Поддържа гореща поправка вече се предлага от Microsoft. Целта му е обаче само да коригира проблема, който е описан в тази статия. Прилагайте го само към системи, които срещат този конкретен проблем. Тази гореща корекция може да бъде подложена на допълнително тестване. Ето защо, ако не сте сериозно засегнати от този проблем, ви препоръчваме да изчакате следващия сервизен пакет за Microsoft Dynamics NAV 2009 или следващата версия на Microsoft Dynamics NAV, която съдържа тази гореща корекция.
Забележка: При специални случаи таксите, които обикновено се начисляват за свързани с поддръжката разговори, могат да бъдат отменени, ако специалист по техническа поддръжка за Microsoft Dynamics и свързаните продукти реши, че проблемът може да бъде решен със специфична актуализация. Стандартните такси за поддръжката ще важат за допълнителни въпроси, свързани с нея, както и за проблеми, които не спадат към съответната актуализация.
Информация за инсталиране
Microsoft предоставя примери за програмиране само за илюстрация, без гаранция, нито изрична, или подразбираща се. Това включва, но не се ограничава до, подразбиращите се гаранции за продаваемост или годност за определена цел. В тази статия се предполага, че сте запознати с езика за програмиране, който се демонстрира, и с инструментите, които се използват за създаване и за процедури за отстраняване на грешки. Инженерите по поддръжка на Microsoft могат да ви помогнат да обяснят функционалността на дадена процедура, но няма да променят тези примери, за да предоставят допълнителна функционалност или да конструират процедури, които да отговарят на вашите конкретни изисквания.
Забележка Преди да инсталирате тази гореща корекция, уверете се, че всички потребители на клиента на Microsoft Navision са излезли от системата. Това включва потребители на клиенти на Microsoft Navision Application Services (NAS). Когато внедрявате тази гореща корекция, трябва да сте единственият клиентски потребител е влязъл.
За да приложите тази гореща корекция, трябва да имате лиценз за разработчик.
Препоръчваме на потребителския акаунт в прозореца за влизане в Windows или в прозореца за влизане в база данни да бъде присвоен ИД на роля "SUPER". Ако на потребителския акаунт не може да бъде присвоен ИД на роля "SUPER", трябва да се уверите, че този потребителски акаунт има следните разрешения:
- Разрешението за промяна за обекта, който ще променяте.
- Разрешението за изпълнение за обекта 5210 на системен обект с ИД 5210 и за обекта 9015 на системен обект.
Забележка: Не е необходимо да имате права за хранилищата за данни, освен ако не трябва да извършите поправка на данни.
Промени в кода
Забележка: Винаги тествайте корекциите на кода в контролирана среда, преди да ги приложите към производствените си компютри.
За да решите този проблем, изпълнете следните стъпки:
Променете кода във функцията BufferInvtPosting в кодовата единица за инвентаризация в G/L (5802), както следва:
Съществуващ код... // Dionisis Calculate Cost Differently for Manufacturing Entries. IF "Expected Cost" THEN BEGIN CalcCostToPost( ValueEntry,ExpCostToPost,CostExpected,"Expected Cost Posted to G/L",PostToGL,"Expected Cost",FALSE, "Posted Cost Component 1","Posted Cost Component 2","Posted Cost Component 3","Posted Cost Component 4", "Posted Cost Component 5"); CalcCostToPost( ValueEntry,ExpCostToPostACY,"Cost Amount (Expected) (ACY)","Exp. Cost Posted to G/L (ACY)",PostToGL,"Expected Cost",TRUE, PostedCost1ACY,PostedCost2ACY,PostedCost3ACY,PostedCost4ACY,PostedCost5ACY); END ELSE BEGIN CalcCostToPost( ValueEntry,CostToPost,CostActual,"Cost Posted to G/L",PostToGL,"Expected Cost",FALSE, "Posted Cost Component 1","Posted Cost Component 2","Posted Cost Component 3","Posted Cost Component 4", "Posted Cost Component 5"); CalcCostToPost( ValueEntry,CostToPostACY,"Cost Amount (Actual) (ACY)","Cost Posted to G/L (ACY)",PostToGL,"Expected Cost",TRUE, PostedCost1ACY,PostedCost2ACY,PostedCost3ACY,PostedCost4ACY,PostedCost5ACY); END; ...Код за подмяна
... // Dionisis Calculate Cost Differently for Manufacturing Entries. //Add the following lines. // IF "Expected Cost" THEN BEGIN IF "Expected Cost" OR InvtSetup."Expected Cost Posting to G/L" THEN BEGIN //End of the lines. CalcCostToPost( ValueEntry,ExpCostToPost,CostExpected,"Expected Cost Posted to G/L",PostToGL,"Expected Cost",FALSE, "Posted Cost Component 1","Posted Cost Component 2","Posted Cost Component 3","Posted Cost Component 4", "Posted Cost Component 5"); CalcCostToPost( ValueEntry,ExpCostToPostACY,"Cost Amount (Expected) (ACY)","Exp. Cost Posted to G/L (ACY)",PostToGL,"Expected Cost",TRUE, PostedCost1ACY,PostedCost2ACY,PostedCost3ACY,PostedCost4ACY,PostedCost5ACY); //Add the following lines. // END ELSE BEGIN END; IF NOT "Expected Cost" THEN BEGIN //End of the lines. CalcCostToPost( ValueEntry,CostToPost,CostActual,"Cost Posted to G/L",PostToGL,"Expected Cost",FALSE, "Posted Cost Component 1","Posted Cost Component 2","Posted Cost Component 3","Posted Cost Component 4", "Posted Cost Component 5"); CalcCostToPost( ValueEntry,CostToPostACY,"Cost Amount (Actual) (ACY)","Cost Posted to G/L (ACY)",PostToGL,"Expected Cost",TRUE, PostedCost1ACY,PostedCost2ACY,PostedCost3ACY,PostedCost4ACY,PostedCost5ACY); END; ...Променете кода във функцията BufferInvtPosting в Inventory Posting To G/L кодова единица (5802) на следното:
… // Find Actual Cost // Dionisis changed with valuation cost // CASE "Item Ledger Entry Type" OF // "Item Ledger Entry Type"::Purchase: // // GR0010.begin // // CostActual := "Entry Valuation Cost"; // "Cost Amount (Actual)"; // GR004 // CostActual := "Cost Amount (Actual)"; // // GR0010.end // "Item Ledger Entry Type"::Sale, // "Item Ledger Entry Type"::"Positive Adjmt.", // "Item Ledger Entry Type"::"Negative Adjmt.", // "Item Ledger Entry Type"::Transfer, // "Item Ledger Entry Type"::Consumption, // "Item Ledger Entry Type"::Output: // // GR0010.begin // // CostActual := "Entry Valuation Cost"; // CostActual := "Cost Amount (Actual)"; // // GR0010.end // END; // Find Expected Cost // Dionisis changed with valuation cost // CASE "Item Ledger Entry Type" OF // "Item Ledger Entry Type"::Purchase: // // GR0010.begin // //CostExpected := "Valuation Expected Cost"; // "Cost Amount (Expected)"; // GR0004 // CostExpected := "Cost Amount (Expected)"; // // GR0010.end // "Item Ledger Entry Type"::Sale: // // GR0010.begin // // CostExpected := "Valuation Expected Cost"; // CostExpected := "Cost Amount (Expected)"; // // GR0010 end // "Item Ledger Entry Type"::"Positive Adjmt.", // "Item Ledger Entry Type"::"Negative Adjmt.", // "Item Ledger Entry Type"::Transfer, // "Item Ledger Entry Type"::Consumption, // "Item Ledger Entry Type"::Output: // // GR0010.begin // //CostExpected := "Entry Valuation Cost"; //CostExpected := "Invoiced Quantity" * "Valuation Cost Per Unit"; // CostExpected := "Cost Amount (Actual)"; // // GR0010.end // END; CostActual := "Cost Amount (Actual)"; CostExpected := "Cost Amount (Expected)"; …Променете кода във функцията CalcExpCost в осчетоводяването на наличностите в кодова единица G/L (5802), както следва:
Съществуващ код... QtyNotInv := Quantity - QtyNotInv; AdjdCost := ROUND(AdjdCost * QtyNotInv / Quantity,RoundPrecision); ...Код за подмяна
... QtyNotInv := Quantity - QtyNotInv; //Add the following line. IF QtyNotInv <> 0 THEN AdjdCost := ROUND(AdjdCost * QtyNotInv / Quantity,RoundPrecision); ...Променете кода във функцията CalcPeriodAverageCost в кодовата единица за управление на оценката (16783), както следва:
Съществуващ код... WITH Item DO BEGIN SETRANGE("Date Filter",InventoryPeriod."Starting Date",InventoryPeriod."Ending Date"); SETFILTER("Location Filter",LocationFilter); CALCFIELDS("Valuation Purchases Qty","Valuation Purchases (LCY)","Valuation Expd. Cost (Purch.)", "Valuation Output Cost","Output Qty","Assembled Qty","Valuation Assembly Cost", "Valuation Transfers Qty","Valuation Transfers (LCY)"); CurrPeriodCost := "Valuation Purchases (LCY)" + "Valuation Expd. Cost (Purch.)" + "Valuation Output Cost" + "Valuation Assembly Cost" + "Valuation Transfers (LCY)"; CurrPeriodQty := "Valuation Purchases Qty" + "Output Qty" + "Assembled Qty" + "Valuation Transfers Qty"; IF "Production Method" <> "Production Method"::" " THEN CalcCostPerCostComp; END; CalcValuationCostPerUnit; ...Код за подмяна
... WITH Item DO BEGIN SETRANGE("Date Filter",InventoryPeriod."Starting Date",InventoryPeriod."Ending Date"); SETFILTER("Location Filter",LocationFilter); //Add the following lines. //CALCFIELDS("Valuation Purchases Qty","Valuation Purchases (LCY)","Valuation Expd. Cost (Purch.)", // "Valuation Output Cost","Output Qty","Assembled Qty","Valuation Assembly Cost", // "Valuation Transfers Qty","Valuation Transfers (LCY)"); // CurrPeriodCost := "Valuation Purchases (LCY)" + "Valuation Expd. Cost (Purch.)" + "Valuation Output Cost" + // "Valuation Assembly Cost" + "Valuation Transfers (LCY)"; // CurrPeriodQty := "Valuation Purchases Qty" + "Output Qty" + "Assembled Qty" + "Valuation Transfers Qty"; CALCFIELDS("Valuation Purchases Qty","Valuation Purchases (LCY)","Valuation Expd. Cost (Purch.)", "Valuation Output Cost","Output Qty","Assembled Qty","Valuation Assembly Cost", "Inbound Transfer Qty","Inbound Transfers (LCY)"); IF IsAvgCostCalcTypeItem THEN BEGIN CurrPeriodCost := "Valuation Purchases (LCY)" + "Valuation Expd. Cost (Purch.)" + "Valuation Output Cost" + "Valuation Assembly Cost"; CurrPeriodQty := "Valuation Purchases Qty" + "Output Qty" + "Assembled Qty"; END ELSE BEGIN CurrPeriodCost := "Valuation Purchases (LCY)" + "Valuation Expd. Cost (Purch.)" + "Valuation Output Cost" + "Valuation Assembly Cost" + "Inbound Transfers (LCY)"; CurrPeriodQty := "Valuation Purchases Qty" + "Output Qty" + "Assembled Qty" + "Inbound Transfer Qty"; END; //End of the lines. IF "Production Method" <> "Production Method"::" " THEN CalcCostPerCostComp; END; CalcValuationCostPerUnit; ...
Предварителни изисквания
Трябва да имате инсталиран един от следните продукти, за да приложите тази гореща корекция:
- Гръцката версия на Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- Гръцката версия на Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
Информация за премахване
Не можете да премахнете тази гореща корекция.
Състояние
Microsoft потвърждава, че това е проблем в продуктите на Microsoft, които са изброени в раздела „Важи за“.
Забележка: Това е статия "FAST PUBLISH", създадена директно от организацията за поддръжка на Microsoft. Информацията, съдържаща се тук, е предоставена както е в отговор на възникващи проблеми. В резултат на бързината на предоставянето им, материалите могат да включват печатни грешки и могат да бъдат коригирани по всяко време без предизвестие. Вижте условията на използване за други съображения.