Šis straipsnis taikomas Microsoft Dynamics NAV visose šalyse ir visų kalbų aplinkos.
Požymiai
Sukurti paslaugų teikimo sutarties (nėra iš anksto apmokėta) ir pakeisti SF prieš skelbdami Microsoft Dynamics NAV 2009 m., yra nesuderinamas duomenų aptarnavimo knygos įrašus ir Didžioji knyga. Ši problema iškyla faile šiems produktams:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 1 pakeitimų paketas
Sprendimas
Karštųjų pataisų informacija
Palaikomą naujausią pataisą dabar yra Microsoft. Tačiau jos skirtos tik šiame straipsnyje aprašytai problemai spręsti. Taikyti ją tik sistemoms, kuriose kyla ši konkreti problema. Šios karštosios pataisos gali būti papildomai išbandoma. Todėl, jei jums nelabai trukdo Ši problema, rekomenduojame palaukti kito "Microsoft Dynamics NAV 2009" pakeitimų paketo arba kitą versiją Microsoft Dynamics NAV, kuriame bus šios karštosios pataisos.
Pastaba. Konkrečiais atvejais už palaikymo skambučius gali būti atšaukti, jei techninės pagalbos specialistas Microsoft Dynamics ir susijusių produktų taikomi įprasti mokesčiai nustato, kad jūsų problemą galima išspręsti naudojant konkretų naujinimą. Į įprastos kainos už palaikymą taikomos papildomos palaikymo klausimams ir problemoms, kurių negalima išspręsti naudojant minėtą naujinimą.
Diegimo informacija
Microsoft pateikia programavimo pavyzdžius tik, tačiau nesuteikia jokių aiškių arba numanomų garantijų. Tai apima, bet neapsiribojant, numanomas garantijas dėl perkamumo ir tinkamumo konkrečiam tikslui. Šis straipsnis parašytas galvojant, kad esate susipažinę su pateikta programavimo kalba ir įrankiais, kurie yra naudojami procedūroms kurti ir derinti. "Microsoft" palaikymo inžinieriai gali padėti paaiškindami konkrečios procedūros funkcines galimybes. Tačiau jie nekeis šių pavyzdžių, kad numatytų papildomą funkcinę galimybę arba sukurtų konkrečius jūsų reikalavimus atitinkančias procedūras.
Pastaba. Prieš diegdami šias karštąsias pataisas, patikrinkite, kad visi Microsoft Navision klientas vartotojai išsiregistravę sistema. Tai reiškia, kad Microsoft Navision programos paslaugos (NAS) kliento naudotojai. Jums turėtų būti tik kliento vartotojo, kuris yra prisijungęs, kai atliekate šias karštąsias pataisas.
Norint pritaikyti šią karštąją pataisą, turite programų kūrėjo licencijos.
Rekomenduojame, kad vartotojo abonemento Windows registravimosi lange arba duomenų bazės prisijungimų langas priskirti "SUPER" vaidmenį ID. Jei vartotojo abonementas negali būti priskirta "SUPER" ID., turi patikrinti, kad vartotojo abonementas turi šias teises:
-
Keisti teisės objektas, kuris bus pakeisti.
-
Teisės vykdyti sistemos objekto ID 5210 objekto ir sistemos objekto ID 9015 objekto.
Pastaba. Jūs neturite turėti teisių į duomenų parduotuvių, nebent jūs turite atlikti duomenų atkūrimo.
Pastaba.
Pastaba. Visada bandymas kodas nustato kontroliuojamoje aplinkoje prieš taikydami nustato savo gamybos kompiuteriams.
Norėdami išspręsti šią problemą, atlikite šiuos veiksmus:
-
Pakeisti į lentelę dimensija (357) taip:
Esamas kodas 1... Text005@1009 : TextConst 'ENU=Canceled.';
Text006@1010 : TextConst 'ENU=You may have changed a dimension. Some lines are already shipped. When you post the line with the changed dimension to the general ledger, amounts on the Inventory Interim account will be out of balance when reported per dimension.\\Do you want to update the lines?';
PROCEDURE UpdateGlobalDimCode@25(GlobalDimCodeNo@1000 : Integer;"Table ID"@1001 : Integer;"Document Type"@1002 : Option;"Document No."@1003 : Code[20];"Line No."@1004 : Integer;NewDimValue@1005 : Code[20]);
...Atsarginis kodas 1
... Text005@1009 : TextConst 'ENU=Canceled.';
Text006@1010 : TextConst 'ENU=You may have changed a dimension. Some lines are already shipped. When you post the line with the changed dimension to the general ledger, amounts on the Inventory Interim account will be out of balance when reported per dimension.\\Do you want to update the lines?';
Text007@1011 : TextConst 'ENU=You cannot change the dimension because the document is based on a service contract.';
PROCEDURE UpdateGlobalDimCode@25(GlobalDimCodeNo@1000 : Integer;"Table ID"@1001 : Integer;"Document Type"@1002 : Option;"Document No."@1003 : Code[20];"Line No."@1004 : Integer;NewDimValue@1005 : Code[20]);
...Esamas kodas 2
... PROCEDURE VerifyLineDim@5(VAR DocDim@1000 : Record 357);
VAR
SalesLine@1001 : Record 37;
PurchaseLine@1002 : Record 39;
BEGIN
CASE "Table ID" OF
DATABASE::"Sales Line":
BEGIN
IF SalesLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
IF (SalesLine."Qty. Shipped Not Invoiced" <> 0) OR (SalesLine."Return Rcd. Not Invd." <> 0) THEN
IF NOT CONFIRM(Text004,TRUE,SalesLine.TABLECAPTION) THEN
ERROR(Text005)
END;
DATABASE::"Purchase Line":
BEGIN
IF PurchaseLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
IF (PurchaseLine."Qty. Rcd. Not Invoiced" <> 0) OR (PurchaseLine."Return Qty. Shipped Not Invd." <> 0) THEN
IF NOT CONFIRM(Text004,TRUE,PurchaseLine.TABLECAPTION) THEN
ERROR(Text005)
END;
END;
END;
...Atsarginis kodas 2
... PROCEDURE VerifyLineDim@5(VAR DocDim@1000 : Record 357);
VAR
SalesLine@1001 : Record 37;
PurchaseLine@1002 : Record 39;
ServiceHeader@1003 : Record 5900;
ServiceLine@1004 : Record 5902;
BEGIN
CASE "Table ID" OF
DATABASE::"Sales Line":
BEGIN
IF SalesLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
IF (SalesLine."Qty. Shipped Not Invoiced" <> 0) OR (SalesLine."Return Rcd. Not Invd." <> 0) THEN
IF NOT CONFIRM(Text004,TRUE,SalesLine.TABLECAPTION) THEN
ERROR(Text005)
END;
DATABASE::"Purchase Line":
BEGIN
IF PurchaseLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
IF (PurchaseLine."Qty. Rcd. Not Invoiced" <> 0) OR (PurchaseLine."Return Qty. Shipped Not Invd." <> 0) THEN
IF NOT CONFIRM(Text004,TRUE,PurchaseLine.TABLECAPTION) THEN
ERROR(Text005)
END;
DATABASE::"Service Header":
IF ServiceHeader.GET(DocDim."Document Type",DocDim."Document No.") AND (ServiceHeader."Contract No." <> '') THEN
ERROR(Text007);
DATABASE::"Service Line":
IF ServiceLine.GET(DocDim."Document Type",DocDim."Document No.",DocDim."Line No.") THEN
IF (ServiceLine."Contract No." <> '') THEN
ERROR(Text007);
END;
END;
... -
Pakeisti aptarnavimo eilučių lentelės (5902) taip:
Esamas kodas 1... IF (Quantity <> 0) AND ItemExists(xRec."No.") AND
(("Spare Part Action" = "Spare Part Action"::"Component Replaced") OR
("Spare Part Action" = "Spare Part Action"::"Component Installed") OR
("Spare Part Action" = "Spare Part Action"::" "))
THEN
ReserveServLine.VerifyChange(Rec,xRec);
END;
OnDelete=VAR
...Atsarginis kodas 1
... IF (Quantity <> 0) AND ItemExists(xRec."No.") AND
(("Spare Part Action" = "Spare Part Action"::"Component Replaced") OR
("Spare Part Action" = "Spare Part Action"::"Component Installed") OR
("Spare Part Action" = "Spare Part Action"::" "))
THEN
ReserveServLine.VerifyChange(Rec,xRec);
IF "Document Type" = ServiceLine."Document Type"::Invoice THEN
IF ("Appl.-to Service Entry" <> 0) AND ("Contract No." <> '') THEN
ERROR(Text046);
END;
OnDelete=VAR
...Esamas kodas 2
... { 5 ; ;Type ;Option ;OnValidate=BEGIN
GetServHeader;
TESTFIELD("Qty. Shipped Not Invoiced",0);
...Atsarginis kodas 2
... { 5 ; ;Type ;Option ;OnValidate=BEGIN
IF ("Appl.-to Service Entry" <> 0) AND ("Contract No." <> '') THEN
ERROR(Text046);
GetServHeader;
...Esamas kodas 3
... { 6 ; ;No. ;Code20 ;TableRelation=IF (Type=CONST(" ")) "Standard Text"
ELSE IF (Type=CONST(G/L Account)) "G/L Account"
ELSE IF (Type=CONST(Item)) Item
ELSE IF (Type=CONST(Resource)) Resource
ELSE IF (Type=CONST(Cost)) "Service Cost";
OnValidate=VAR
ShowLocMessage@1000 : Boolean;
BEGIN
TESTFIELD("Qty. Shipped Not Invoiced",0);
...Pakeitimo kodas 3
... { 6 ; ;No. ;Code20 ;TableRelation=IF (Type=CONST(" ")) "Standard Text"
ELSE IF (Type=CONST(G/L Account)) "G/L Account"
ELSE IF (Type=CONST(Item)) Item
ELSE IF (Type=CONST(Resource)) Resource
ELSE IF (Type=CONST(Cost)) "Service Cost";
OnValidate=VAR
ShowLocMessage@1000 : Boolean;
BEGIN
IF ("Appl.-to Service Entry" <> 0) AND ("Contract No." <> '') THEN
ERROR(Text046);
TESTFIELD("Qty. Shipped Not Invoiced",0);
...Esamas kodas 4
... { 22 ; ;Unit Price ;Decimal ;OnValidate=BEGIN
GetServHeader;
IF ("Unit Price" > ServHeader."Max. Labor Unit Price") AND
...Pakeitimo kodekso 4
... { 22 ; ;Unit Price ;Decimal ;OnValidate=BEGIN
GetServHeader;
IF ("Appl.-to Service Entry" > 0) AND (CurrFieldNo <> 0) THEN
ERROR(Text046,FIELDCAPTION("Unit Price"));
IF ("Unit Price" > ServHeader."Max. Labor Unit Price") AND
...Esamas kodas 5
... Text043@1097 : TextConst 'ENU=You cannot change the value of the %1 field manually if %2 for this line is %3';
Text044@1012 : TextConst 'ENU=Do you want to split the resource line and use it to create resource lines\for the other service items with divided amounts?';
Text045@1099 : TextConst 'ENU=You cannot delete this service line because one or more service entries exist for this line.';
...Pakeitimo kodas 5
... Text043@1097 : TextConst 'ENU=You cannot change the value of the %1 field manually if %2 for this line is %3';
Text044@1012 : TextConst 'ENU=Do you want to split the resource line and use it to create resource lines\for the other service items with divided amounts?';
Text045@1099 : TextConst 'ENU=You cannot delete this service line because one or more service entries exist for this line.';
Text046@1100 : TextConst 'ENU=You cannot modify the document because it is based on a service contract.';
...
Būtinosios sąlygos
Turi būti viena iš toliau nurodytų produktų, norint taikyti šias karštąsias pataisas:
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 1 pakeitimų paketas
Pašalinimo informacija
Jūs negalite pašalinti šias karštąsias pataisas.
Būsena
„Microsoft“ patvirtino, kad tai yra „Microsoft“ produktų, išvardytų skyriuje „Taikoma“, problema.
Pastaba. Tai yra "GREITAI PUBLIKUOJAMAS" straipsnis, sukurtas tiesiogiai Microsoft palaikymo tarnybos. Čia pateikta informacija yra atsakas į kylančius klausimus. Dėl greito publikavimo medžiagoje gali būti spausdinimo klaidų ir ji gali būti peržiūrima bet kuriuo metu be įspėjimo. Naudojimo ieškokite kitų priežasčių.
