PVM neužregistruotas neteisingai taikant kredito pažymos Italijos versija Microsoft Dynamics NAV 2009 pardavimo sąskaita faktūra

Šablonas: CPR - Navision kodas nustatyti šablonas

BUG #: 204166 (turinio priežiūra)

Šiame straipsnyje aprašoma problema, kai taikote pardavimų SF, kuri yra nerealizuotas PVM ir neigiamą eilutę į kredito pažymos Microsoft Dynamics NAV 2009 teksto italų kalba. Ši problema vis dar atsiranda įgyvendinimo KB 2882952ištaisyti.

Atlikite veiksmus, kodo pasikeitimus skyriuje išspręsti šią problemą. Ši problema iškyla faile šiems produktams:

  • Italų kalba, Microsoft Dynamics NAV 2009 R2

  • Italų kalba, Microsoft Dynamics NAV 2009 1 pakeitimų paketas (SP1)

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ą.

Jei šios karštosios pataisos nepaskelbtos kaip viešai prieinamos (tai reiškia, viešasis URL šios karštosios pataisos yra suteikta šiame straipsnyje), norint platinti reikia techninio vadovo, problemų sprendimo komandos nario ar vadovo patvirtinimo ir taikoma toliau pateikta informacija:

  • Norėdami gauti karštąją pataisą, klientai turi patirti klaidų, paminėtam skyriuje "Požymiai".

  • Turite stebėti klientus, kuriems siunčiate karštąsias pataisas ir pateikti jiems kitą pakeitimų paketą, kai tik jis bus išleistas (jei pakeitimų paketas bus išleistas).

Šios karštosios pataisos nėra planuojama įtraukti į Microsoft Dynamics NAV pakeitimų paketą.

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 Dynamics NAV kliento vartotojai išsiregistravę sistema. Tai apima Microsoft Dynamics NAV programų serverio (NAS) paslaugas. 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:

  1. Pakeisti raktai lentelę PVM įrašas (254) kodą taip:
    Esamas kodas

    ...KeyGroups=SalesTax }
    { ;Type,Country/Region Code,VAT Registration No.,VAT Bus. Posting Group,VAT Prod. Posting Group,Posting Date;
    SumIndexFields=Base,Additional-Currency Base;
    KeyGroups=VIES_EC }

    // Delete the following line.
    { ;Document No.,Posting Date }
    // End of the deleted line.

    { ;Transaction No. }
    { ;Tax Jurisdiction Code,Tax Group Used,Tax Type,Use Tax,Posting Date;
    KeyGroups=SalesTax }
    { ;Type,Closed,VAT Bus. Posting Group,VAT Prod. Posting Group,Tax Jurisdiction Code,Use Tax,Tax Liable,VAT Period,Operation Occurred Date,Activity Code;
    ...

    Pastaba.

    ...KeyGroups=SalesTax }
    { ;Type,Country/Region Code,VAT Registration No.,VAT Bus. Posting Group,VAT Prod. Posting Group,Posting Date;
    SumIndexFields=Base,Additional-Currency Base;
    KeyGroups=VIES_EC }

    // Add the following line.
    { ;Document No.,Posting Date ;SumIndexFields=Remaining Unrealized Base,Remaining Unrealized Amount }
    // End of the added line.

    { ;Transaction No. }
    { ;Tax Jurisdiction Code,Tax Group Used,Tax Type,Use Tax,Posting Date;
    KeyGroups=SalesTax }
    { ;Type,Closed,VAT Bus. Posting Group,VAT Prod. Posting Group,Tax Jurisdiction Code,Use Tax,Tax Liable,VAT Period,Operation Occurred Date,Activity Code;
    ...
  2. Pakeisti GetUnRealizedVATPart funkcija PVM įrašų lentelėje (254) kodą taip:
    Esamas kodas 1

    ...END;
    EXIT(GLSetup."Additional Reporting Currency");
    END;

    // Delete the following line.
    PROCEDURE GetUnRealizedVATPart@2(SettledAmount@1003 : Decimal;Paid@1005 : Decimal;Full@1001 : Decimal;TotalUnrealVATAmountFirst@1006 : Decimal;TotalUnrealVATAmountLast@1007 : Decimal;Type2@1130000 : 'Sale,Purchase';DocType@1130001 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';LedgEntryOpen@1130002 : Boolean;LedgEntryAmount@1130003 : Decimal;LedgEntryRemAmt@1130004 : Decimal;TotalPayments@1130005 : Decimal) : Decimal;
    // End of the deleted line.

    VAR
    UnrealizedVatType@1000 : ' ,Percentage,First,Last,First (Fully Paid),Last (Fully Paid)';
    BEGIN
    IF (Type <> 0) AND
    ...

    Atsarginis kodas 1

    ...END;
    EXIT(GLSetup."Additional Reporting Currency");
    END;

    // Add the following line.
    PROCEDURE GetUnRealizedVATPart@2(SettledAmount@1003 : Decimal;Paid@1005 : Decimal;Full@1001 : Decimal;TotalUnrealVATAmountFirst@1006 : Decimal;TotalUnrealVATAmountLast@1007 : Decimal;Type2@1130000 : 'Sale,Purchase';DocType@1130001 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';LedgEntryOpen@1130002 : Boolean;LedgEntryAmount@1130003 : Decimal;LedgEntryRemAmt@1130004 : Decimal;TotalPayments@1130005 : Decimal;VATPart@1130006 : Decimal;VAR TransactionInclPrepmt@1130007 : Boolean) : Decimal;
    // End of the added line.

    VAR
    UnrealizedVatType@1000 : ' ,Percentage,First,Last,First (Fully Paid),Last (Fully Paid)';
    BEGIN
    IF (Type <> 0) AND
    ...

    Esamas kodas 2

    ...(("Remaining Unrealized Amount" = 0) AND
    ("Remaining Unrealized Base" = 0))
    THEN
    EXIT(0);

    // Delete the following lines.
    //IF ABS(Paid) = ABS(Full) THEN
    // EXIT(1);

    CASE UnrealizedVatType OF
    UnrealizedVatType::Percentage:
    BEGIN
    IF Type2 = Type2::Purchase THEN BEGIN
    IF (DocType = DocType::"Credit Memo") THEN BEGIN
    IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
    EXIT(1)
    END ELSE BEGIN
    IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
    EXIT(CalcVatPart(GetCurrencyCode(), 1.0, TotalPayments,
    ("Remaining Unrealized Amount" + "Remaining Unrealized Base")))
    ELSE
    EXIT(1)
    END;
    END
    ELSE BEGIN
    IF (DocType = DocType::"Credit Memo") THEN BEGIN
    IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
    EXIT(1)
    END ELSE BEGIN
    IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
    EXIT(CalcVatPart(GetCurrencyCode(), 1.0, TotalPayments,
    ("Remaining Unrealized Amount" + "Remaining Unrealized Base")))
    ELSE
    EXIT(1)
    END;
    END;
    // End of the deleted lines.

    END;
    UnrealizedVatType::First,UnrealizedVatType::"First (Fully Paid)":
    BEGIN
    IF NOT LedgEntryOpen OR ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT") THEN
    ...

    Atsarginis kodas 2

    ...(("Remaining Unrealized Amount" = 0) AND
    ("Remaining Unrealized Base" = 0))
    THEN
    EXIT(0);

    // Add the following lines.
    IF (ABS(GetRemainingUnrealizedAmount("Document No.","Posting Date")) = ABS(Paid)) AND
    NOT IsPrepaymentIncluded(Type2,DocType,"Document No.")
    THEN BEGIN
    VATPart := 1;
    EXIT(VATPart);
    END;

    CASE UnrealizedVatType OF
    UnrealizedVatType::Percentage:
    IF Type2 = Type2::Purchase THEN BEGIN
    TransactionInclPrepmt := FALSE;
    IF DocType = DocType::"Credit Memo" THEN BEGIN
    IF PurchCrMemoInclPrepmt("Document No.") THEN BEGIN
    TransactionInclPrepmt := TRUE;
    IF VATPart = 0 THEN BEGIN
    IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
    (ABS(Paid) = ABS(Full))
    THEN
    VATPart := 1
    ELSE
    VATPart :=
    CalcVatPart(
    GetCurrencyCode,1.0,TotalPayments,
    GetTransactionRemainingAmount("Transaction No."));
    END;
    EXIT(VATPart);
    END ELSE
    IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
    EXIT(1)
    END ELSE BEGIN
    IF PurchInvInclPrepmt("Document No.") THEN BEGIN
    TransactionInclPrepmt := TRUE;
    IF VATPart = 0 THEN BEGIN
    IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
    (ABS(Paid) = ABS(Full))
    THEN
    VATPart := 1
    ELSE
    VATPart :=
    CalcVatPart(
    GetCurrencyCode,1.0,TotalPayments,
    GetTransactionRemainingAmount("Transaction No."));
    END;
    EXIT(VATPart);
    END ELSE
    IF (TotalPayments - ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
    EXIT(
    CalcVatPart(
    GetCurrencyCode,1.0,TotalPayments,
    ("Remaining Unrealized Amount" + "Remaining Unrealized Base")));
    EXIT(1);
    END;
    END ELSE BEGIN
    TransactionInclPrepmt := FALSE;
    IF DocType = DocType::"Credit Memo" THEN BEGIN
    IF SalesInvInclPrepmt("Document No.") THEN BEGIN
    TransactionInclPrepmt := TRUE;
    IF VATPart = 0 THEN BEGIN
    IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
    (ABS(Paid) = ABS(Full))
    THEN
    VATPart := 1
    ELSE
    VATPart :=
    CalcVatPart(
    GetCurrencyCode,1.0,TotalPayments,
    GetTransactionRemainingAmount("Transaction No."));
    END;
    EXIT(VATPart);
    END;
    IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
    EXIT(1);
    EXIT(TotalPayments / ("Remaining Unrealized Amount" + "Remaining Unrealized Base"));
    END;
    IF SalesInvInclPrepmt("Document No.") THEN BEGIN
    TransactionInclPrepmt := TRUE;
    IF VATPart = 0 THEN BEGIN
    IF (ABS(TotalPayments) >= ABS(GetTransactionRemainingAmount("Transaction No."))) OR
    (ABS(Paid) = ABS(Full))
    THEN
    VATPart := 1
    ELSE
    VATPart :=
    CalcVatPart(
    GetCurrencyCode,1.0,TotalPayments,
    GetTransactionRemainingAmount("Transaction No."));
    END;
    EXIT(VATPart);
    END ELSE
    IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
    EXIT(
    CalcVatPart(
    GetCurrencyCode,1.0,TotalPayments,
    ("Remaining Unrealized Amount" + "Remaining Unrealized Base")));
    EXIT(1);
    // End of the added lines.

    END;
    UnrealizedVatType::First,UnrealizedVatType::"First (Fully Paid)":
    BEGIN
    IF NOT LedgEntryOpen OR ("VAT Calculation Type" = "VAT Calculation Type"::"Reverse Charge VAT") THEN
    ...
  3. Pakeisti SalesInvInclPrepmt funkcija PVM įrašų lentelėje (254) kodą taip:
    Esamas kodas

    ...EXIT(RemainingAmount - SettledAmount);
    EXIT(RemainingAmount - (SettledAmount / CurrencyFactor));
    END;

    BEGIN
    END.
    }
    }
    ...

    Pastaba.

    ...EXIT(RemainingAmount - SettledAmount);
    EXIT(RemainingAmount - (SettledAmount / CurrencyFactor));
    END;

    // Add the following lines.
    LOCAL PROCEDURE SalesInvInclPrepmt@1130019(DocNo@1130000 : Code[20]) : Boolean;
    VAR
    SalesInvLine@1130001 : Record 113;
    BEGIN
    SalesInvLine.SETRANGE("Document No.",DocNo);
    SalesInvLine.SETRANGE("Prepayment Line",TRUE);
    EXIT(NOT SalesInvLine.ISEMPTY);
    END;

    LOCAL PROCEDURE SalesCrMemoInclPrepmt@1130101(DocNo@1130000 : Code[20]) : Boolean;
    VAR
    SalesCrMemoLine@1130001 : Record 115;
    BEGIN
    SalesCrMemoLine.SETRANGE("Document No.",DocNo);
    SalesCrMemoLine.SETRANGE("Prepayment Line",TRUE);
    EXIT(NOT SalesCrMemoLine.ISEMPTY);
    END;

    LOCAL PROCEDURE PurchInvInclPrepmt@1130021(DocNo@1130000 : Code[20]) : Boolean;
    VAR
    PurchInvLine@1130001 : Record 123;
    BEGIN
    PurchInvLine.SETRANGE("Document No.",DocNo);
    PurchInvLine.SETRANGE("Prepayment Line",TRUE);
    EXIT(NOT PurchInvLine.ISEMPTY);
    END;

    LOCAL PROCEDURE PurchCrMemoInclPrepmt@1130020(DocNo@1130000 : Code[20]) : Boolean;
    VAR
    PurchCrMemoLine@1130001 : Record 125;
    BEGIN
    PurchCrMemoLine.SETRANGE("Document No.",DocNo);
    PurchCrMemoLine.SETRANGE("Prepayment Line",TRUE);
    EXIT(NOT PurchCrMemoLine.ISEMPTY);
    END;

    LOCAL PROCEDURE GetTransactionRemainingAmount@1130016(TransactionNo@1130000 : Integer) TransactionAmount : Decimal;
    VAR
    VATEntry@1130001 : Record 254;
    BEGIN
    WITH VATEntry DO BEGIN
    SETRANGE("Transaction No.",TransactionNo);
    IF FINDSET THEN
    REPEAT
    TransactionAmount += "Remaining Unrealized Base" + "Remaining Unrealized Amount";
    UNTIL NEXT = 0;
    END;
    END;

    LOCAL PROCEDURE GetRemainingUnrealizedAmount@1130017(DocumentNo@1130000 : Code[20];PostingDate@1130001 : Date) : Decimal;
    VAR
    VATEntry@1130002 : Record 254;
    BEGIN
    VATEntry.SETCURRENTKEY("Document No.","Posting Date");
    VATEntry.SETRANGE("Document No.",DocumentNo);
    VATEntry.SETRANGE("Posting Date",PostingDate);
    VATEntry.CALCSUMS("Remaining Unrealized Base","Remaining Unrealized Amount");
    EXIT(VATEntry."Remaining Unrealized Base" + VATEntry."Remaining Unrealized Amount");
    END;

    LOCAL PROCEDURE IsPrepaymentIncluded@1130023(VATType@1130002 : 'Sale,Purchase';DocumentType@1130000 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,,,,Dishonored';DocumentNo@1130001 : Code[20]) : Boolean;
    BEGIN
    CASE VATType OF
    VATType::Purchase:
    IF DocumentType = DocumentType::"Credit Memo" THEN
    EXIT(PurchCrMemoInclPrepmt(DocumentNo))
    ELSE
    EXIT(PurchInvInclPrepmt(DocumentNo));
    VATType::Sale:
    IF DocumentType = DocumentType::"Credit Memo" THEN
    EXIT(SalesInvInclPrepmt(DocumentNo))
    ELSE
    EXIT(SalesCrMemoInclPrepmt(DocumentNo));
    END;
    END;
    // End of the added lines.

    BEGIN
    END.
    }
    }
    ...
  4. Pakeisti CustUnrealizedVAT funkcija, kad bendr.-pašto linijos Kodinys (12) taip:
    Esamas kodas 1

    ...SalesVATUnrealAccount@1010 : Code[20];
    LastConnectionNo@1011 : Integer;
    TotalPayments@1130000 : Decimal;
    Type2@1130001 : 'Sale,Purchase';
    BEGIN
    PaidAmount := CustLedgEntry2."Amount (LCY)" - CustLedgEntry2."Remaining Amt. (LCY)";
    VATEntry2.RESET;
    VATEntry2.SETCURRENTKEY("Transaction No.");
    ...

    Atsarginis kodas 1

    ...SalesVATUnrealAccount@1010 : Code[20];
    LastConnectionNo@1011 : Integer;
    TotalPayments@1130000 : Decimal;
    Type2@1130001 : 'Sale,Purchase';

    // Add the following line.
    TransactionInclPrepmt@1130002 : Boolean;
    // End of the added line.

    BEGIN
    PaidAmount := CustLedgEntry2."Amount (LCY)" - CustLedgEntry2."Remaining Amt. (LCY)";
    VATEntry2.RESET;
    VATEntry2.SETCURRENTKEY("Transaction No.");
    ...

    Esamas kodas 2

    ...InsertSummarizedVAT;
    LastConnectionNo := VATEntry2."Sales Tax Connection No.";
    END;

    // Delete the following lines.
    VATPart := VATEntry2.GetUnRealizedVATPart(
    ROUND(SettledAmount / CustLedgEntry2.GetOriginalCurrencyFactor),
    PaidAmount,
    CustLedgEntry2."Original Amt. (LCY)",
    TotalUnrealVATAmountFirst,
    TotalUnrealVATAmountLast,
    Type2::Sale,
    CustLedgEntry2."Document Type",
    CustLedgEntry2.Open,
    CustLedgEntry2.Amount,
    CustLedgEntry2."Remaining Amount",
    TotalPayments);
    // End of the deleted lines.

    IF VATPart > 0 THEN BEGIN
    CASE VATEntry2."VAT Calculation Type" OF
    VATEntry2."VAT Calculation Type"::"Normal VAT",
    ...

    Atsarginis kodas 2

    ...InsertSummarizedVAT;
    LastConnectionNo := VATEntry2."Sales Tax Connection No.";
    END;

    // Add the following lines.
    VATPart :=
    VATEntry2.GetUnRealizedVATPart(
    ROUND(SettledAmount / CustLedgEntry2.GetOriginalCurrencyFactor),
    PaidAmount,
    CustLedgEntry2."Original Amt. (LCY)",
    TotalUnrealVATAmountFirst,
    TotalUnrealVATAmountLast,
    Type2::Sale,
    CustLedgEntry2."Document Type",
    CustLedgEntry2.Open,
    CustLedgEntry2.Amount,
    CustLedgEntry2."Remaining Amount",
    TotalPayments,
    VATPart,
    TransactionInclPrepmt);
    // End of the added lines.

    IF VATPart > 0 THEN BEGIN
    CASE VATEntry2."VAT Calculation Type" OF
    VATEntry2."VAT Calculation Type"::"Normal VAT",
    ...

    Esamas kodas 3

    ...VATEntry2."Add.-Curr. Rem. Unreal. Base" * VATPart,
    AddCurrency."Amount Rounding Precision");
    END;

    // Delete the following line.
    TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
    // End of the deleted line.

    IF VATAmount <> 0 THEN BEGIN
    InitGLEntry(SalesVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
    GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
    ...

    Pakeitimo kodas 3

    ...VATEntry2."Add.-Curr. Rem. Unreal. Base" * VATPart,
    AddCurrency."Amount Rounding Precision");
    END;

    // Add the following lines.
    IF TransactionInclPrepmt THEN
    TotalPayments := TotalPayments - ROUND(TotalPayments * VATPart)
    ELSE
    TotalPayments :=
    TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
    // End of the added lines.

    IF VATAmount <> 0 THEN BEGIN
    InitGLEntry(SalesVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
    GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
    ...
  5. Pakeisti VendUnrealizedVAT funkcija, kad bendr.-pašto linijos Kodinys (12) taip:
    Esamas kodas 1

    ...PurchReverseUnrealAccount@1012 : Code[20];
    LastConnectionNo@1013 : Integer;
    Type2@1130000 : 'Sale,Purchase';
    TotalPayments@1130001 : Decimal;
    BEGIN
    VATEntry2.RESET;
    VATEntry2.SETCURRENTKEY("Transaction No.");
    VATEntry2.SETRANGE("Transaction No.",VendLedgEntry2."Transaction No.");
    ...

    Atsarginis kodas 1

    ...PurchReverseUnrealAccount@1012 : Code[20];
    LastConnectionNo@1013 : Integer;
    Type2@1130000 : 'Sale,Purchase';
    TotalPayments@1130001 : Decimal;

    // Add the following line.
    TransactionInclPrepmt@1130002 : Boolean;
    // End of the added line.

    BEGIN
    VATEntry2.RESET;
    VATEntry2.SETCURRENTKEY("Transaction No.");
    VATEntry2.SETRANGE("Transaction No.",VendLedgEntry2."Transaction No.");
    ...

    Esamas kodas 2

    ...IF LastConnectionNo <> VATEntry2."Sales Tax Connection No." THEN BEGIN
    InsertSummarizedVAT;
    LastConnectionNo := VATEntry2."Sales Tax Connection No.";
    END;

    // Delete the following lines.
    IF (TotalPayments <= 0) AND (VendLedgEntry2."Document Type" = VendLedgEntry2."Document Type"::Invoice) THEN
    EXIT;
    VATPart := VATEntry2.GetUnRealizedVATPart(
    ROUND(SettledAmount / VendLedgEntry2.GetOriginalCurrencyFactor),
    PaidAmount,
    VendLedgEntry2."Original Amt. (LCY)",
    TotalUnrealVATAmountFirst,
    TotalUnrealVATAmountLast,
    Type2::Purchase,
    VendLedgEntry2."Document Type",
    VendLedgEntry2.Open,
    VendLedgEntry2.Amount,
    VendLedgEntry2."Remaining Amount",
    TotalPayments);
    // End of the deleted lines.

    IF VATPart >= 0 THEN BEGIN
    IF VATPart <> 0 THEN BEGIN
    CASE VATEntry2."VAT Calculation Type" OF
    ...

    Atsarginis kodas 2

    ...IF LastConnectionNo <> VATEntry2."Sales Tax Connection No." THEN BEGIN
    InsertSummarizedVAT;
    LastConnectionNo := VATEntry2."Sales Tax Connection No.";
    END;

    // Add the following lines.
    IF ((TotalPayments <= 0) AND (NOT TransactionInclPrepmt)) AND
    (VendLedgEntry2."Document Type" = VendLedgEntry2."Document Type"::Invoice)
    THEN
    EXIT;

    VATPart :=
    VATEntry2.GetUnRealizedVATPart(
    ROUND(SettledAmount / VendLedgEntry2.GetOriginalCurrencyFactor),
    PaidAmount,
    VendLedgEntry2."Original Amt. (LCY)",
    TotalUnrealVATAmountFirst,
    TotalUnrealVATAmountLast,
    Type2::Purchase,
    VendLedgEntry2."Document Type",
    VendLedgEntry2.Open,
    VendLedgEntry2.Amount,
    VendLedgEntry2."Remaining Amount",
    TotalPayments,
    VATPart,
    TransactionInclPrepmt);
    // End of the added lines.

    IF VATPart >= 0 THEN BEGIN
    IF VATPart <> 0 THEN BEGIN
    CASE VATEntry2."VAT Calculation Type" OF
    ...

    Esamas kodas 3

    ...PurchVATUnrealAccount := TaxJurisdiction."Unreal. Tax Acc. (Purchases)";
    END;
    END;

    // Delete the following lines.
    VATAmount := ROUND((VATEntry2."Remaining Unrealized Amount" * VATPart),GLSetup."Amount Rounding Precision");
    VATBase := ROUND((VATEntry2."Remaining Unrealized Base"* VATPart),GLSetup."Amount Rounding Precision");
    TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
    // End of the deleted lines.

    IF VATAmount <> 0 THEN BEGIN
    InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
    GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
    ...

    Pakeitimo kodas 3

    ...PurchVATUnrealAccount := TaxJurisdiction."Unreal. Tax Acc. (Purchases)";
    END;
    END;

    // Add the following lines.
    VATAmount := ROUND(VATEntry2."Remaining Unrealized Amount" * VATPart,GLSetup."Amount Rounding Precision");
    VATBase := ROUND(VATEntry2."Remaining Unrealized Base" * VATPart,GLSetup."Amount Rounding Precision");
    IF TransactionInclPrepmt THEN
    TotalPayments := TotalPayments - ROUND(TotalPayments * VATPart)
    ELSE
    TotalPayments :=
    TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
    // End of the added lines.

    IF VATAmount <> 0 THEN BEGIN
    InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
    GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
    ...


Būtinosios sąlygos

Turi būti viena iš toliau nurodytų produktų, norint taikyti šias karštąsias pataisas:

  • Microsoft Dynamics NAV 2009 R2 Italijos lokalizavimas

  • Microsoft Dynamics NAV 2009 SP1 Italijos lokalizavimas

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.

Nuorodos

VSFT DynamicsNAVSE: 352333

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. Naudojimoieškokite kitų priežasčių.

Autorius: avannini
Writer: v-six
Techninis redaktorius: avannini
Editor:

Reikia daugiau pagalbos?

Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijungti prie "Microsoft Insider"

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×