Rýchlo publikované články poskytujú informácie priamo z organizácie podpory spoločnosti Microsoft. Informácie obsiahnuté v tomto dokumente sú vytvorené ako odpoveď na vznikajúce alebo jedinečné témy alebo sú určené na doplnenie iných informácií vedomostnej databázy.
Tento článok sa vzťahuje na systém Microsoft Dynamics NAV 2009 pre všetky krajiny a miestne nastavenia pre všetky jazyky.
Príznaky
Pri vytvorení faktúry na poskytovanie služieb pre novú zmluvu o poskytovaní služieb v balíku Microsoft Dynamics NAV 2009 Service Pack 1 sa aktualizuje typ položky Predaj a typ položky Používanie pri položke účtovnej knihy služby. V dialógovom okne Položky účtovnej knihy je však možné zobraziť iba typ položky Predaj. Typ položky Použitie nie je viditeľný v dialógovom okne Položky prevádzkovej knihy .
Príčina
Tento problém sa vyskytuje, pretože vytvorený riadok využitia je zaúčtovaný na konto hlavnej knihy. Okrem toho tento riadok nemá žiadnu hodnotu v položke služby č. (Podporované) alebo v časti Číslo položky (Podporované) stĺpec. Keď otvoríte dialógové okno Položky v účtovnej knihe služby z karty položky služby, údaje sa vyfiltrujú podľa položky služby č. (Podporované) stĺpec. Preto ak hodnota neexistuje, čiara sa nezobrazí.
Riešenie
Informácie o rýchlych opravách
Spoločnosť Microsoft teraz poskytuje podporovanú rýchlu opravu. Jeho účelom je však len vyriešiť problém, ktorý je popísaný v tomto článku. Použite ju len v systémoch, v ktorých sa vyskytol tento konkrétny problém. Táto rýchla oprava môže byť ešte otestovaná. Ak teda nie ste týmto problémom vážne zasiahnutí, odporúčame počkať na ďalší balík Service Pack pre systém Microsoft Dynamics NAV 2009 alebo ďalšiu verziu systému Microsoft Dynamics NAV, ktorá obsahuje túto opravu hotfix.
Poznámka: V osobitných prípadoch môžu byť poplatky, ktoré sú zvyčajne účtované za hovory s oddelením technickej podpory, zrušené, ak pracovník technickej podpory pre systém Microsoft Dynamics a súvisiace produkty rozhodne, že konkrétna aktualizácia vyrieši váš problém. Zvyčajné náklady na podporu sa budú vzťahovať na ďalšie otázky a problémy podpory, na ktoré sa nevzťahuje konkrétna príslušná aktualizácia.
Informácie o inštalácii
Spoločnosť Microsoft poskytuje príklady programovania len pre ilustráciu bez výslovnej alebo implicitnej záruky. To sa týka (okrem iného) aj implicitných záruk obchodovateľnosti alebo vhodnosti na konkrétny účel. Článok predpokladá, že poznáte predvádzaný programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci technickej podpory spoločnosti Microsoft vám môžu pomôcť vysvetliť funkčnosť konkrétneho postupu, tieto príklady však nebudú upravovať, aby poskytovali ďalšie funkcie alebo zostavili procedúry podľa vašich špecifických požiadaviek.
Poznámka Pred inštaláciou tejto rýchlej opravy overte, či sú všetci používatelia klienta Microsoft Navision odhlásení zo systému. Týka sa to používateľov klientských služieb Microsoft Navision Application Services (NAS). V čase implementácie tejto rýchlej opravy by ste mali byť jediným klientskym používateľom, ktorý je prihlásený.
Ak chcete implementovať túto rýchlu opravu, musíte mať vývojársku licenciu.
Odporúčame priradiť používateľskému kontu v okne Prihlásenie do Windowsu alebo v okne Prihlásenia do databázy ID roly SUPER. Ak používateľskému kontu nie je možné priradiť ID roly SUPER, musíte overiť, či má používateľské konto nasledujúce povolenia:
- Povolenie Upraviť pre objekt, ktorý budete meniť.
- Povolenie na spustenie pre objekt systémového objektu ID 5210 a pre objekt systémového objektu ID 9015.
Poznámka: Ak nepotrebujete vykonať opravu údajov, nemusíte mať práva na ukladacie priestory údajov.
Zmeny kódu
Poznámka: Opravy kódu pred použitím opráv v produkčných počítačoch vždy testujte v kontrolovanom prostredí.
Pri odstraňovaní tohto problému postupujte nasledovne:
Zmeňte kód vo funkcii OveriťNasledujúciOkres faktúry v tabuľke Hlavička zmluvy o poskytovaní služieb (5965) takto:
Existujúci kód 1... END; PROCEDURE ValidateNextInvoicePeriod@9(); VAR InvFrom@1001 : Date; InvTo@1000 : Date; NoOfMonths@1002 : Integer; NoOfDays@1003 : Integer; ...Náhradný kód 1
... END; PROCEDURE ValidateNextInvoicePeriod@9(); VAR // Add the following line. ServiceContractLine@1002 : Record 5964; InvFrom@1001 : Date; InvTo@1000 : Date; NoOfMonths@1002 : Integer; NoOfDays@1003 : Integer; ...Existujúci kód 2
... IF Prepaid THEN BEGIN IF (DATE2DMY(InvFrom,2) = DATE2DMY(InvTo,2)) AND (DATE2DMY(InvFrom,3) = DATE2DMY(InvTo,3)) THEN BEGIN // Delete the following line. "Amount per Period" := ServContractMgt.CalcContractAmount(Rec,InvFrom,InvTo); END ELSE BEGIN "Amount per Period" := 0; ServContractMgt.NoOfMonthsAndDaysInPeriod(InvFrom,InvTo,NoOfMonths,NoOfDays); "Amount per Period" := ...Náhradný kód 2
... IF Prepaid THEN BEGIN IF (DATE2DMY(InvFrom,2) = DATE2DMY(InvTo,2)) AND (DATE2DMY(InvFrom,3) = DATE2DMY(InvTo,3)) THEN BEGIN // Add the following lines. ServiceContractLine.RESET; ServiceContractLine.SETRANGE("Contract Type","Contract Type"); ServiceContractLine.SETRANGE("Contract No.","Contract No."); IF ServiceContractLine.FINDSET THEN REPEAT "Amount per Period" := ServContractMgt.CalcContractAmount(Rec,InvFrom,InvTo, ServiceContractLine."Line No."); UNTIL ServiceContractLine.NEXT=0; // End of the lines. END ELSE BEGIN "Amount per Period" := 0; ServContractMgt.NoOfMonthsAndDaysInPeriod(InvFrom,InvTo,NoOfMonths,NoOfDays); "Amount per Period" := ...Zmeňte kód v údajovej položke 1 v zostave Vytvorenie zmluvných faktúr (6030) takto:
Existujúci kód 1... IF "Amount per Period" > 0 THEN BEGIN IF NOT ServContractMgt.CheckIfServiceExist(ServContractHeader) THEN ResultDescription := Text006; IF ResultDescription = '' THEN BEGIN // Delete the following lines. InvoicedAmount := ROUND( ServContractMgt.CalcContractAmount(ServContractHeader,InvoiceFrom,InvoiceTo), Currency."Amount Rounding Precision"); IF InvoicedAmount = 0 THEN BEGIN CurrReport.SKIP; END; // End of the lines. CASE TRUE OF NOT "Combine Invoices": BEGIN InvoiceNo := ServContractMgt.CreateServHeader(ServContractHeader,PostingDate,ContractExist); ...Náhradný kód 1
... IF "Amount per Period" > 0 THEN BEGIN IF NOT ServContractMgt.CheckIfServiceExist(ServContractHeader) THEN ResultDescription := Text006; IF ResultDescription = '' THEN BEGIN CASE TRUE OF NOT "Combine Invoices": BEGIN InvoiceNo := ServContractMgt.CreateServHeader(ServContractHeader,PostingDate,ContractExist); ...Existujúci kód 2
... NoOfInvoices := NoOfInvoices + 1; END; END; ResultDescription := InvoiceNo; // Delete the following line. ServContractMgt.CreateAllServLines(InvoiceNo,ServContractHeader,InvoicedAmount); END; LastCustomer := "Bill-to Customer No."; LastContractCombined := "Combine Invoices"; END ELSE ...Náhradný kód 2
... NoOfInvoices := NoOfInvoices + 1; END; END; ResultDescription := InvoiceNo; // Add the following lines. ServContractLine.RESET; ServContractLine.SETRANGE("Contract Type",ServContractHeader."Contract Type"); ServContractLine.SETRANGE("Contract No.",ServContractHeader."Contract No."); IF ServContractLine.FINDSET THEN REPEAT InvoicedAmount := ROUND( ServContractMgt.CalcContractAmount(ServContractHeader,InvoiceFrom,InvoiceTo,ServContractLine."Line No."), Currency."Amount Rounding Precision"); IF InvoicedAmount <> 0 THEN ServContractMgt.CreateAllServLines(InvoiceNo,ServContractHeader,InvoicedAmount,ServContractLine."Line No."); UNTIL ServContractLine.NEXT=0; // End of the lines. END; LastCustomer := "Bill-to Customer No."; LastContractCombined := "Combine Invoices"; END ELSE ...Zmeňte kód vo funkcii CreateInvoice v kódovej jednotke ServContractManagement (5940) takto:
Existujúci kód 1... IF ServContractToInvoice.Prepaid THEN PostingDate := InvoiceFrom ELSE PostingDate := InvoiceTo; // Delete the following line. InvoicedAmount := CalcContractAmount(ServContractToInvoice,InvoiceFrom,InvoiceTo); IF InvoicedAmount = 0 THEN ERROR(Text007); ...Náhradný kód 1
... IF ServContractToInvoice.Prepaid THEN PostingDate := InvoiceFrom ELSE PostingDate := InvoiceTo; IF InvoicedAmount = 0 THEN ERROR(Text007); ...Existujúci kód 2
... IF InvNo = '' THEN InvNo := CreateServHeader(ServContractToInvoice,PostingDate,FALSE); // Delete the following lines. IF InvoicingStartingPeriod THEN BEGIN GetNextInvoicePeriod(ServContractToInvoice,InvoiceFrom,InvoiceTo); PostingDate := InvoiceFrom; InvoicedAmount := CalcContractAmount(ServContractToInvoice,InvoiceFrom,InvoiceTo); END; // End of the lines. IF NOT CheckIfServiceExist(ServContractToInvoice) THEN ERROR( Text010, ServContractToInvoice."Contract No.", ...Náhradný kód 2
... IF InvNo = '' THEN InvNo := CreateServHeader(ServContractToInvoice,PostingDate,FALSE); IF NOT CheckIfServiceExist(ServContractToInvoice) THEN ERROR( Text010, ServContractToInvoice."Contract No.", ...Existujúci kód 3
... Text010, ServContractToInvoice."Contract No.", ServContractToInvoice.FIELDCAPTION("Invoice after Service")); // Delete the following lines. CreateAllServLines(InvNo,ServContractToInvoice,InvoicedAmount); END; PROCEDURE CreateServiceLedgerEntry@4(ServHeader2@1001 : Record 5900;ContractType@1020 : Integer;ContractNo@1002 : Code[20];InvFrom@1003 : Date;InvTo@1004 : Date;AmountToInvoice@1005 : Decimal;SigningContract@1023 : Boolean;AddingNewLines@1012 : Boolean;VAR InvAmountRounded@8000 : Decimal) ReturnLedgerEntry@1000 : Integer; // End of the lines. VAR ServContractLine@1022 : Record 5964; ServContractHeader@1021 : Record 5965; Currency@1026 : Record 4; ...Náhradný kód 3
... Text010, ServContractToInvoice."Contract No.", ServContractToInvoice.FIELDCAPTION("Invoice after Service")); // Add the following lines. ServContractLine.RESET; ServContractLine.SETRANGE("Contract Type",ServContractToInvoice."Contract Type"); ServContractLine.SETRANGE("Contract No.",ServContractToInvoice."Contract No."); IF ServContractLine.FINDSET THEN REPEAT IF InvoicingStartingPeriod THEN BEGIN GetNextInvoicePeriod(ServContractToInvoice,InvoiceFrom,InvoiceTo); PostingDate := InvoiceFrom; InvoicedAmount := CalcContractAmount(ServContractToInvoice,InvoiceFrom,InvoiceTo,ServContractLine."Line No.") END ELSE InvoicedAmount := CalcContractAmount(ServContractToInvoice,InvoiceFrom,InvoiceTo,ServContractLine."Line No."); CreateAllServLines(InvNo,ServContractToInvoice,InvoicedAmount,ServContractLine."Line No."); UNTIL ServContractLine.NEXT=0; END; PROCEDURE CreateServiceLedgerEntry@4(ServHeader2@1001 : Record 5900;ContractType@1020 : Integer;ContractNo@1002 : Code[20];InvFrom@1003 : Date;InvTo@1004 : Date;AmountToInvoice@1005 : Decimal;SigningContract@1023 : Boolean;AddingNewLines@1012 : Boolean;VAR InvAmountRounded@8000 : Decimal;LineNo@1011 : Integer) ReturnLedgerEntry@1000 : Integer; // End of the lines. VAR ServContractLine@1022 : Record 5964; ServContractHeader@1021 : Record 5965; Currency@1026 : Record 4; ...Zmeňte kód vo funkcii CreateServiceLedgerEntry v kódovej jednotke ServContractManagement (5940) takto:
Existujúci kód 1... InvAmountRounded := 0; ServContractLine.RESET; ServContractLine.SETRANGE("Contract No.",ServContractHeader."Contract No."); ServContractLine.SETRANGE("Contract Type",ServContractHeader."Contract Type"); IF AddingNewLines THEN ServContractLine.SETRANGE("New Line",TRUE) ELSE ServContractLine.SETFILTER("Starting Date",'<=%1',ServContractHeader."Next Invoice Date"); ...Náhradný kód 1
... InvAmountRounded := 0; ServContractLine.RESET; ServContractLine.SETRANGE("Contract No.",ServContractHeader."Contract No."); ServContractLine.SETRANGE("Contract Type",ServContractHeader."Contract Type"); // Add the following line. ServContractLine.SETRANGE("Line No.",LineNo); IF AddingNewLines THEN ServContractLine.SETRANGE("New Line",TRUE) ELSE ServContractLine.SETFILTER("Starting Date",'<=%1',ServContractHeader."Next Invoice Date"); ...Existujúci kód 2
... ServLedgEntry."Posting Date" := ServHeader2."Posting Date"; ServContractLine.RESET; ServContractLine.SETRANGE("Contract Type",ServContractHeader."Contract Type"); ServContractLine.SETRANGE("Contract No.",ServContractHeader."Contract No."); IF AddingNewLines THEN ServContractLine.SETRANGE("New Line",TRUE) ELSE IF (NOT SigningContract) THEN BEGIN ...Náhradný kód 2
... ServLedgEntry."Posting Date" := ServHeader2."Posting Date"; ServContractLine.RESET; ServContractLine.SETRANGE("Contract Type",ServContractHeader."Contract Type"); ServContractLine.SETRANGE("Contract No.",ServContractHeader."Contract No."); // Add the following line. ServContractLine.SETRANGE("Line No.",LineNo); IF AddingNewLines THEN ServContractLine.SETRANGE("New Line",TRUE) ELSE IF (NOT SigningContract) THEN BEGIN ...Zmeňte kód vo funkcii CreateServLine v kódovej jednotke ServContractManagement (5940) takto:
Existujúci kód 1... AdjustServiceInvoiceDimensions(ServContract2,ServInvNo); END; // Delete the following line. PROCEDURE CreateServLine@9(ServHeader@1000 : Record 5900;ContractType@1010 : Integer;ContractNo@1001 : Code[20];InvFrom@1002 : Date;InvTo@1003 : Date;InvoiceAmount@1004 : Decimal;ServiceApplyEntry@1005 : Integer;SignningContract@1011 : Boolean); // End of the line. VAR ServContractHeader@1009 : Record 5965; StdText@1006 : Record 7; Cust@1007 : Record 18; ...Náhradný kód 1
... AdjustServiceInvoiceDimensions(ServContract2,ServInvNo); END; // Add the following line. PROCEDURE CreateServLine@9(ServHeader@1000 : Record 5900;ContractType@1010 : Integer;ContractNo@1001 : Code[20];InvFrom@1002 : Date;InvTo@1003 : Date;InvoiceAmount@1004 : Decimal;ServiceApplyEntry@1005 : Integer;SignningContract@1011 : Boolean;LineNo@1013 : Integer); // End of the line. VAR ServContractHeader@1009 : Record 5965; StdText@1006 : Record 7; Cust@1007 : Record 18; ...Existujúci kód 2
... StdText@1006 : Record 7; Cust@1007 : Record 18; ServDocReg@1008 : Record 5936; ServiceLedgerEntry@1012 : Record 5907; BEGIN ServContractHeader.GET(ContractType,ContractNo); IF ServContractHeader."Invoice Period" = ServContractHeader."Invoice Period"::None THEN ...Náhradný kód 2
... StdText@1006 : Record 7; Cust@1007 : Record 18; ServDocReg@1008 : Record 5936; ServiceLedgerEntry@1012 : Record 5907; // Add the following line. ServContractLine@1014 : Record 5964; BEGIN ServContractHeader.GET(ContractType,ContractNo); IF ServContractHeader."Invoice Period" = ServContractHeader."Invoice Period"::None THEN ...Existujúci kód 3
... ServLine.RESET; ServLine.INIT; ServLineNo := ServLineNo + 10000; ServLine."Document Type" := ServHeader."Document Type"; ServLine."Document No." := ServHeader."No."; ServLine."Line No." := ServLineNo; ...Náhradný kód 3
... ServLine.RESET; ServLine.INIT; // Add the following lines. ServContractLine.RESET; ServContractLine.SETRANGE("Contract Type",ServContractHeader."Contract Type"); ServContractLine.SETRANGE("Contract No.",ServContractHeader."Contract No."); ServContractLine.SETRANGE("Line No.",LineNo); IF ServContractLine.FINDFIRST THEN ServLine."Service Item No." := ServContractLine."Service Item No."; // End of the lines. ServLineNo := ServLineNo + 10000; ServLine."Document Type" := ServHeader."Document Type"; ServLine."Document No." := ServHeader."No."; ServLine."Line No." := ServLineNo; ...Zmeňte kód vo funkcii CalcContractAmount v kódovej jednotke ServContractManagement (5940) takto:
Existujúci kód 1... WDate := CALCDATE('<CM>',OldWDate) + 1; UNTIL WDate > Day2; END; // Delete the following line. PROCEDURE CalcContractAmount@19(ServContractHeader@1001 : Record 5965;PeriodStarts@1002 : Date;PeriodEnds@1003 : Date) AmountCalculated@1000 : Decimal; // End of the line. VAR ServContractLine@1004 : Record 5964; Currency@1008 : Record 4; LinePeriodStarts@1005 : Date; ...Náhradný kód 1
... WDate := CALCDATE('<CM>',OldWDate) + 1; UNTIL WDate > Day2; END; // Add the following line. PROCEDURE CalcContractAmount@19(ServContractHeader@1001 : Record 5965;PeriodStarts@1002 : Date;PeriodEnds@1003 : Date;LineNo@1011 : Integer) AmountCalculated@1000 : Decimal; // End of the line. VAR ServContractLine@1004 : Record 5964; Currency@1008 : Record 4; LinePeriodStarts@1005 : Date; ...Existujúci kód 2
... ServContractLine.RESET; ServContractLine.SETRANGE("Contract Type",ServContractHeader."Contract Type"); ServContractLine.SETRANGE("Contract No.",ServContractHeader."Contract No."); IF ServContractHeader.Prepaid THEN ServContractLine.SETFILTER("Starting Date",'<=%1',ServContractHeader."Next Invoice Date") ELSE IF ServContractHeader."Last Invoice Date" <> 0D THEN ...Náhradný kód 2
... ServContractLine.RESET; ServContractLine.SETRANGE("Contract Type",ServContractHeader."Contract Type"); ServContractLine.SETRANGE("Contract No.",ServContractHeader."Contract No."); // Add the following line. ServContractLine.SETRANGE("Line No.",LineNo); IF ServContractHeader.Prepaid THEN ServContractLine.SETFILTER("Starting Date",'<=%1',ServContractHeader."Next Invoice Date") ELSE IF ServContractHeader."Last Invoice Date" <> 0D THEN ...Zmeňte kód vo funkcii CreateRemainingPeriodInvoice v kódovej jednotke ServContractManagement (5940) takto:
Existujúci kód 1... IF (InvFrom = 0D) OR (InvFrom > InvTo) THEN EXIT; IF CONFIRM(Text006,TRUE,InvFrom,InvTo) THEN BEGIN // Delete the following line. Amt := CalcContractAmount(CurrServContract,InvFrom,InvTo); InvoiceNo := CreateServHeader(CurrServContract,PostingDate,FALSE); ServHeader.GET(ServHeader."Document Type"::Invoice,InvoiceNo); ServMgtSetup.GET; IF NOT CurrServContract.Prepaid THEN ...Náhradný kód 1
... IF (InvFrom = 0D) OR (InvFrom > InvTo) THEN EXIT; IF CONFIRM(Text006,TRUE,InvFrom,InvTo) THEN BEGIN InvoiceNo := CreateServHeader(CurrServContract,PostingDate,FALSE); ServHeader.GET(ServHeader."Document Type"::Invoice,InvoiceNo); ServMgtSetup.GET; IF NOT CurrServContract.Prepaid THEN ...Existujúci kód 2
... ServHeader, ServContractLine, CurrServContract."Contract Type", CurrServContract."Contract No."); UNTIL ServContractLine.NEXT = 0; END ELSE CreateHeadingServLine( ServHeader, ...Náhradný kód 2
... ServHeader, ServContractLine, CurrServContract."Contract Type", CurrServContract."Contract No."); // Add the following lines. Amt := CalcContractAmount(CurrServContract,InvFrom,InvTo,ServContractLine."Line No."); AppliedEntry := CreateServiceLedgerEntry( ServHeader,CurrServContract."Contract Type", CurrServContract."Contract No.",InvFrom,InvTo,Amt,TRUE,FALSE,InvAmountRounded,ServContractLine."Line No."); CreateServLine( ServHeader,CurrServContract."Contract Type", CurrServContract."Contract No.",InvFrom,InvTo,InvAmountRounded,AppliedEntry,TRUE,ServContractLine."Line No."); // End of the lines. UNTIL ServContractLine.NEXT = 0; END ELSE CreateHeadingServLine( ServHeader, ...Existujúci kód 3
... ServHeader, CurrServContract."Contract Type", CurrServContract."Contract No."); // Delete the following lines. AppliedEntry := CreateServiceLedgerEntry( ServHeader,CurrServContract."Contract Type", CurrServContract."Contract No.",InvFrom,InvTo,Amt,TRUE,FALSE,InvAmountRounded); CreateServLine( ServHeader,CurrServContract."Contract Type", CurrServContract."Contract No.",InvFrom,InvTo,InvAmountRounded,AppliedEntry,TRUE); // End of the lines. CurrServContract.MODIFY; InvoicingStartingPeriod := TRUE; END; END; ...Náhradný kód 3
... ServHeader, CurrServContract."Contract Type", CurrServContract."Contract No."); CurrServContract.MODIFY; InvoicingStartingPeriod := TRUE; END; END; ...Zmeňte kód vo funkcii CreateAllServLines v kódovej jednotke ServContractManagement (5940) takto:
Existujúci kód 1... ServContractDim,TableID, DocumentType,DocumentNo,LineNo); END; // Delete the following line. PROCEDURE CreateAllServLines@2(InvNo@1001 : Code[20];ServContractToInvoice@1000 : Record 5965;InvoicedAmount@1002 : Decimal); // End of the line. VAR ServContractLine@1007 : Record 5964; ServHeader@1006 : Record 5900; InvoiceFrom@1004 : Date; ...Náhradný kód 1
... ServContractDim,TableID, DocumentType,DocumentNo,LineNo); END; // Add the following line. PROCEDURE CreateAllServLines@2(InvNo@1001 : Code[20];ServContractToInvoice@1000 : Record 5965;InvoicedAmount@1002 : Decimal;LineNo@1009 : Integer); // End of the line. VAR ServContractLine@1007 : Record 5964; ServHeader@1006 : Record 5900; InvoiceFrom@1004 : Date; ...Existujúci kód 2
... IF ServHeader.GET(ServHeader."Document Type"::Invoice,InvNo) THEN BEGIN ServContractLine.RESET; ServContractLine.SETRANGE("Contract Type","Contract Type"); ServContractLine.SETRANGE("Contract No.","Contract No."); IF NOT "Contract Lines on Invoice" THEN CreateHeadingServLine(ServHeader,"Contract Type","Contract No."); IF ServContractLine.FIND('-') THEN REPEAT ...Náhradný kód 2
... IF ServHeader.GET(ServHeader."Document Type"::Invoice,InvNo) THEN BEGIN ServContractLine.RESET; ServContractLine.SETRANGE("Contract Type","Contract Type"); ServContractLine.SETRANGE("Contract No.","Contract No."); // Add the following line. ServContractLine.SETRANGE("Line No.",LineNo); IF NOT "Contract Lines on Invoice" THEN CreateHeadingServLine(ServHeader,"Contract Type","Contract No."); IF ServContractLine.FIND('-') THEN REPEAT ...Existujúci kód 3
... IF (ServContractLine."Contract Expiration Date" = 0D) OR (ServContractLine."Contract Expiration Date" >= InvoiceFrom) THEN CreateDetailedServLine(ServHeader,ServContractLine,"Contract Type","Contract No."); // Delete the following lines. UNTIL ServContractLine.NEXT = 0; END; ServiceApplyEntry := CreateServiceLedgerEntry( ServHeader,"Contract Type","Contract No.",InvoiceFrom,InvoiceTo,InvoicedAmount,FALSE,FALSE,InvAmountRounded); CreateServLine( ServHeader,"Contract Type","Contract No.", InvoiceFrom,InvoiceTo,InvAmountRounded,ServiceApplyEntry,FALSE); // End of the lines. CreateLastServLines(ServHeader,"Contract Type","Contract No."); VALIDATE("Last Invoice Date","Next Invoice Date"); "Print Increase Text" := FALSE; ...Náhradný kód 3
... IF (ServContractLine."Contract Expiration Date" = 0D) OR (ServContractLine."Contract Expiration Date" >= InvoiceFrom) THEN CreateDetailedServLine(ServHeader,ServContractLine,"Contract Type","Contract No."); // Add the following lines. ServiceApplyEntry := CreateServiceLedgerEntry( ServHeader,"Contract Type","Contract No.",InvoiceFrom,InvoiceTo,InvoicedAmount,FALSE,FALSE,InvAmountRounded, ServContractLine."Line No."); CreateServLine( ServHeader,"Contract Type","Contract No.", InvoiceFrom,InvoiceTo,InvAmountRounded,ServiceApplyEntry,FALSE, ServContractLine."Line No."); UNTIL ServContractLine.NEXT = 0; END; // End of the lines. CreateLastServLines(ServHeader,"Contract Type","Contract No."); VALIDATE("Last Invoice Date","Next Invoice Date"); "Print Increase Text" := FALSE; ...Zmeňte kód vo funkcii SignContractQuote v kódovej jednotke SignServContractDoc (5944) takto:
Existujúci kód 1... FromServContractLine@1008 : Record 5964; ToServContractHeader@1007 : Record 5965; FiledServContractHeader2@1009 : Record 5970; ServItem@1006 : Record 5940; InvFrom@1003 : Date; InvTo@1004 : Date; TempDate@1005 : Date; InvAmountRounded@1010 : Decimal; ...Náhradný kód 1
... FromServContractLine@1008 : Record 5964; ToServContractHeader@1007 : Record 5965; FiledServContractHeader2@1009 : Record 5970; ServItem@1006 : Record 5940; // Add the following line. ServContractLine@1001 : Record 5964; InvFrom@1003 : Date; InvTo@1004 : Date; TempDate@1005 : Date; InvAmountRounded@1010 : Decimal; ...Existujúci kód 2
... LastPrepaidPostingDate := 0D; ToServContractHeader.TRANSFERFIELDS(FromServContractHeader); // Delete the following lines. IF InvoiceNow THEN BEGIN PostingDate := InvoiceFrom; AmountNow := ServContractMgt.CalcContractAmount(FromServContractHeader,InvoiceFrom,InvoiceTo); InvoiceAmountDueToSigning := AmountNow; END; // End of the lines. ToServContractHeader."Contract Type" := ToServContractHeader."Contract Type"::Contract; ToServContractHeader.Status := ToServContractHeader.Status::Signed; IF InvoiceNow THEN BEGIN ToServContractHeader."Last Invoice Date" := ToServContractHeader."Starting Date"; ...Náhradný kód 2
... LastPrepaidPostingDate := 0D; ToServContractHeader.TRANSFERFIELDS(FromServContractHeader); ToServContractHeader."Contract Type" := ToServContractHeader."Contract Type"::Contract; ToServContractHeader.Status := ToServContractHeader.Status::Signed; IF InvoiceNow THEN BEGIN ToServContractHeader."Last Invoice Date" := ToServContractHeader."Starting Date"; ...Existujúci kód 3
... ServContractMgt.CreateServHeader(ToServContractHeader,PostingDate,FALSE); ServHeader.GET(ServHeader."Document Type"::Invoice,ServHeaderNo); ServMgtSetup.GET; // Delete the following lines. AppliedEntry := ServContractMgt.CreateServiceLedgerEntry( ServHeader,ToServContractHeader."Contract Type", ToServContractHeader."Contract No.",InvoiceFrom, InvoiceTo,AmountNow,TRUE,FALSE,InvAmountRounded); // End of the lines. IF ToServContractHeader."Contract Lines on Invoice" THEN BEGIN ToServContractLine.RESET; ToServContractLine.SETRANGE("Contract Type",ToServContractHeader."Contract Type"); ToServContractLine.SETRANGE("Contract No.",ToServContractHeader."Contract No."); ...Náhradný kód 3
... ServContractMgt.CreateServHeader(ToServContractHeader,PostingDate,FALSE); ServHeader.GET(ServHeader."Document Type"::Invoice,ServHeaderNo); ServMgtSetup.GET; IF ToServContractHeader."Contract Lines on Invoice" THEN BEGIN ToServContractLine.RESET; ToServContractLine.SETRANGE("Contract Type",ToServContractHeader."Contract Type"); ToServContractLine.SETRANGE("Contract No.",ToServContractHeader."Contract No."); ...Existujúci kód 4
... ServHeader, ToServContractHeader."Contract Type", ToServContractHeader."Contract No."); // Delete the following lines. ServContractMgt.CreateServLine( ServHeader, ToServContractHeader."Contract Type", ToServContractHeader."Contract No.", InvoiceFrom,InvoiceTo,InvAmountRounded,AppliedEntry,TRUE); // End of the lines. ToServContractHeader.MODIFY; ServContractMgt.FinishCodeunit; END; ...Náhradný kód 4
... ServHeader, ToServContractHeader."Contract Type", ToServContractHeader."Contract No."); // Add the following lines. ServContractLine.RESET; ServContractLine.SETRANGE("Contract Type",FromServContractHeader."Contract Type"); ServContractLine.SETRANGE("Contract No.",FromServContractHeader."Contract No."); IF ServContractLine.FINDSET THEN REPEAT IF InvoiceNow THEN BEGIN PostingDate := InvoiceFrom; AmountNow := ServContractMgt.CalcContractAmount(FromServContractHeader,InvoiceFrom,InvoiceTo,ServContractLine."Line No."); InvoiceAmountDueToSigning := AmountNow; END; AppliedEntry := ServContractMgt.CreateServiceLedgerEntry( ServHeader,ToServContractHeader."Contract Type", ToServContractHeader."Contract No.",InvoiceFrom, InvoiceTo,AmountNow,TRUE,FALSE,InvAmountRounded,ServContractLine."Line No."); ServContractMgt.CreateServLine( ServHeader, ToServContractHeader."Contract Type", ToServContractHeader."Contract No.", InvoiceFrom,InvoiceTo,InvAmountRounded,AppliedEntry,TRUE,ServContractLine."Line No."); UNTIL ServContractLine.NEXT=0; // End of the lines. ToServContractHeader.MODIFY; ServContractMgt.FinishCodeunit; END; ...Zmeňte kód vo funkcii SignContract v kódovej jednotke SignServContractDoc (5944) takto:
Existujúci kód 1... END; END; END; // Delete the following lines. IF InvoiceNow THEN BEGIN PostingDate := InvoiceFrom; AmountNow := ServContractMgt.CalcContractAmount(ServContractHeader,InvoiceFrom,InvoiceTo); END; // End of the lines. IF InvoiceNow THEN BEGIN ServContractHeader."Last Invoice Date" := ServContractHeader."Starting Date"; ServContractHeader.VALIDATE("Last Invoice Period End",InvoiceTo); ...Náhradný kód 1
... END; END; END; IF InvoiceNow THEN BEGIN ServContractHeader."Last Invoice Date" := ServContractHeader."Starting Date"; ServContractHeader.VALIDATE("Last Invoice Period End",InvoiceTo); ...Existujúci kód 2
... ServContractMgt.CreateServHeader(ServContractHeader,PostingDate,FALSE); ServHeader.GET(ServHeader."Document Type"::Invoice,ServHeaderNo); ServMgtSetup.GET; // Delete the following lines. AppliedEntry := ServContractMgt.CreateServiceLedgerEntry( ServHeader,ServContractHeader."Contract Type", ServContractHeader."Contract No.",InvoiceFrom, InvoiceTo,AmountNow,TRUE,FALSE,InvAmountRounded); // End of the lines. IF ServContractHeader."Contract Lines on Invoice" THEN BEGIN ServContractLine.RESET; ServContractLine.SETRANGE("Contract Type",ServContractHeader."Contract Type"); ...Náhradný kód 2
... ServContractMgt.CreateServHeader(ServContractHeader,PostingDate,FALSE); ServHeader.GET(ServHeader."Document Type"::Invoice,ServHeaderNo); ServMgtSetup.GET; IF ServContractHeader."Contract Lines on Invoice" THEN BEGIN ServContractLine.RESET; ServContractLine.SETRANGE("Contract Type",ServContractHeader."Contract Type"); ...Existujúci kód 3
... ServContractMgt.CreateHeadingServLine( ServHeader, ServContractHeader."Contract Type", ServContractHeader."Contract No."); // Delete the following lines. ServContractMgt.CreateServLine( ServHeader, ServContractHeader."Contract Type", ServContractHeader."Contract No.", InvoiceFrom,InvoiceTo,InvAmountRounded,AppliedEntry,TRUE); // End of the lines. ServContractHeader.MODIFY; ServContractMgt.FinishCodeunit; END; ...Náhradný kód 3
... ServContractMgt.CreateHeadingServLine( ServHeader, ServContractHeader."Contract Type", ServContractHeader."Contract No."); // Add the following lines. ServContractLine.RESET; ServContractLine.SETRANGE("Contract Type",ServContractHeader."Contract Type"); ServContractLine.SETRANGE("Contract No.",ServContractHeader."Contract No."); IF ServContractLine.FINDSET THEN REPEAT AmountNow := ServContractMgt.CalcContractAmount(ServContractHeader,InvoiceFrom,InvoiceTo,ServContractLine."Line No."); AppliedEntry := ServContractMgt.CreateServiceLedgerEntry( ServHeader,ServContractHeader."Contract Type", ServContractHeader."Contract No.",InvoiceFrom, InvoiceTo,AmountNow,TRUE,FALSE,InvAmountRounded,ServContractLine."Line No."); ServContractMgt.CreateServLine( ServHeader, ServContractHeader."Contract Type", ServContractHeader."Contract No.", InvoiceFrom,InvoiceTo,InvAmountRounded,AppliedEntry,TRUE,ServContractLine."Line No."); UNTIL ServContractLine.NEXT = 0; // End of the lines. ServContractHeader.MODIFY; ServContractMgt.FinishCodeunit; END; ...Zmeňte kód vo funkcii AddendumToContract v kódovej jednotke SignServContractDoc (5944) takto:
Existujúci kód 1... ServContractMgt.InitCodeUnit; ServHeaderNo := ServContractMgt.CreateServHeader(FromServContractHeader,PostingDate,FALSE); ServHeader.GET(ServHeader."Document Type"::Invoice,ServHeaderNo); // Delete the following lines. AppliedEntry := ServContractMgt.CreateServiceLedgerEntry( ServHeader,FromServContractHeader."Contract Type", FromServContractHeader."Contract No.",InvoiceFrom,InvoiceTo,RemainingAmt,TRUE,TRUE,InvAmountRounded); // End of the lines. IF FromServContractHeader."Contract Lines on Invoice" THEN BEGIN ServContractLine.RESET; ServContractLine.SETRANGE("Contract Type",FromServContractHeader."Contract Type"); ServContractLine.SETRANGE("Contract No.",FromServContractHeader."Contract No."); ...Náhradný kód 1
... ServContractMgt.InitCodeUnit; ServHeaderNo := ServContractMgt.CreateServHeader(FromServContractHeader,PostingDate,FALSE); ServHeader.GET(ServHeader."Document Type"::Invoice,ServHeaderNo); IF FromServContractHeader."Contract Lines on Invoice" THEN BEGIN ServContractLine.RESET; ServContractLine.SETRANGE("Contract Type",FromServContractHeader."Contract Type"); ServContractLine.SETRANGE("Contract No.",FromServContractHeader."Contract No."); ...Existujúci kód 2
... ServHeader, FromServContractHeader."Contract Type", FromServContractHeader."Contract No."); // Delete the following lines. ServContractMgt.CreateServLine( ServHeader,FromServContractHeader."Contract Type", FromServContractHeader."Contract No.",InvoiceFrom,InvoiceTo,InvAmountRounded,AppliedEntry,TRUE); // End of the lines. ServContractMgt.FinishCodeunit; END; IF InvoicePrepaid AND FromServContractHeader.Prepaid THEN BEGIN ...Náhradný kód 2
... ServHeader, FromServContractHeader."Contract Type", FromServContractHeader."Contract No."); // Add the following lines. ServContractLine.RESET; ServContractLine.SETRANGE("Contract Type",FromServContractHeader."Contract Type"); ServContractLine.SETRANGE("Contract No.",FromServContractHeader."Contract No."); IF ServContractLine.FIND('-') THEN REPEAT AppliedEntry := ServContractMgt.CreateServiceLedgerEntry( ServHeader,FromServContractHeader."Contract Type", FromServContractHeader."Contract No.",InvoiceFrom,InvoiceTo,RemainingAmt,TRUE,TRUE,InvAmountRounded, ServContractLine."Line No."); ServContractMgt.CreateServLine( ServHeader,FromServContractHeader."Contract Type", FromServContractHeader."Contract No.",InvoiceFrom,InvoiceTo,InvAmountRounded,AppliedEntry,TRUE, ServContractLine."Line No."); UNTIL ServContractLine.NEXT = 0; // End of the lines. ServContractMgt.FinishCodeunit; END; IF InvoicePrepaid AND FromServContractHeader.Prepaid THEN BEGIN ...Existujúci kód 3
... ServContractLine."Line Amount" / 12 * NoOfMonthsAndMParts,Currency."Amount Rounding Precision"); UNTIL ServContractLine.NEXT = 0; IF RemainingAmt <> 0 THEN BEGIN ServHeader.GET(ServHeader."Document Type"::Invoice,ServHeaderNo); AppliedEntry := // Delete the following lines. ServContractMgt.CreateServiceLedgerEntry( ServHeader,FromServContractHeader."Contract Type", FromServContractHeader."Contract No.",FirstPrepaidPostingDate, LastPrepaidPostingDate,RemainingAmt,FALSE,TRUE,InvAmountRounded); // End of the lines. IF FromServContractHeader."Contract Lines on Invoice" THEN BEGIN ServContractLine.RESET; ServContractLine.SETRANGE("Contract Type",FromServContractHeader."Contract Type"); ServContractLine.SETRANGE("Contract No.",FromServContractHeader."Contract No."); ...Náhradný kód 3
... ServContractLine."Line Amount" / 12 * NoOfMonthsAndMParts,Currency."Amount Rounding Precision"); UNTIL ServContractLine.NEXT = 0; IF RemainingAmt <> 0 THEN BEGIN ServHeader.GET(ServHeader."Document Type"::Invoice,ServHeaderNo); IF FromServContractHeader."Contract Lines on Invoice" THEN BEGIN ServContractLine.RESET; ServContractLine.SETRANGE("Contract Type",FromServContractHeader."Contract Type"); ServContractLine.SETRANGE("Contract No.",FromServContractHeader."Contract No."); ...Existujúci kód 4
... ServContractMgt.CreateHeadingServLine( ServHeader, FromServContractHeader."Contract Type", FromServContractHeader."Contract No."); // Delete the following lines. ServContractMgt.CreateServLine( ServHeader, FromServContractHeader."Contract Type", FromServContractHeader."Contract No.", FirstPrepaidPostingDate,LastPrepaidPostingDate, InvAmountRounded,AppliedEntry,FALSE); // End of the lines. END; ServContractMgt.FinishCodeunit; END; ...Náhradný kód 4
... ServContractMgt.CreateHeadingServLine( ServHeader, FromServContractHeader."Contract Type", FromServContractHeader."Contract No."); // Add the following lines. ServContractLine.RESET; ServContractLine.SETRANGE("Contract Type",FromServContractHeader."Contract Type"); ServContractLine.SETRANGE("Contract No.",FromServContractHeader."Contract No."); IF ServContractLine.FIND('-') THEN REPEAT AppliedEntry := ServContractMgt.CreateServiceLedgerEntry( ServHeader,FromServContractHeader."Contract Type", FromServContractHeader."Contract No.",InvoiceFrom,InvoiceTo,RemainingAmt,TRUE,TRUE,InvAmountRounded, ServContractLine."Line No."); ServContractMgt.CreateServLine( ServHeader,FromServContractHeader."Contract Type", FromServContractHeader."Contract No.",InvoiceFrom,InvoiceTo,InvAmountRounded,AppliedEntry,TRUE, ServContractLine."Line No."); UNTIL ServContractLine.NEXT = 0; // End of the lines. END; ServContractMgt.FinishCodeunit; END; ...
Predpoklady
Ak chcete použiť túto rýchlu opravu, musíte mať nainštalovanú verziu Microsoft Dynamics NAV 2009.
Informácie o odstránení
Túto rýchlu opravu nemožno odstrániť.
Stav
Spoločnosť Microsoft potvrdila, že ide o problém v produktoch spoločnosti Microsoft, ktoré sú uvedené v časti Vzťahuje sa na.
SPOLOČNOSŤ MICROSOFT A/ALEBO JEJ DODÁVATELIA NEPOSKYTUJÚ ŽIADNE VYHLÁSENIA ANI ZÁRUKY TÝKAJÚCE SA VHODNOSTI, SPOĽAHLIVOSTI ALEBO PRESNOSTI INFORMÁCIÍ OBSIAHNUTÝCH V DOKUMENTOCH A SÚVISIACICH GRAFIKÁCH PUBLIKOVANÝCH NA TEJTO WEBOVEJ LOKALITE (ĎALEJ LEN "MATERIÁLY") NA AKÝKOĽVEK ÚČEL.
MATERIÁLY MÔŽU OBSAHOVAŤ TECHNICKÉ NEPRESNOSTI ALEBO TYPOGRAFICKÉ CHYBY A MÔŽU BYŤ KEDYKOĽVEK REVIDOVANÉ BEZ PREDCHÁDZAJÚCEHO UPOZORNENIA. V MAXIMÁLNOM ROZSAHU POVOLENOM PRÍSLUŠNÝMI ZÁKONMI SPOLOČNOSŤ MICROSOFT A/ALEBO JEJ DODÁVATELIA ODMIETAJÚ ZODPOVEDNOSŤ A VYLUČUJÚ VŠETKY VYHLÁSENIA, ZÁRUKY A PODMIENKY, ČI UŽ VÝSLOVNÉ, IMPLICITNÉ ALEBO ZÁKONNÉ, VRÁTANE, NIE VŠAK VÝHRADNE, VYHLÁSENÍ, GARANCIÍ ALEBO PODMIENOK VLASTNÍCTVA, NEPORUŠENIA CUDZÍCH PRÁV, USPOKOJIVÉHO STAVU ALEBO KVALITY, OBCHODOVATEĽNOSTI A VHODNOSTI NA KONKRÉTNY ÚČEL V SÚVISLOSTI S MATERIÁLMI.