PVN ir ievietojis nepareizi lietojot kredīta vēsturi itāliešu valodas versijā Microsoft Dynamics NAV 2009 pārdošanas rēķins

Šajā rakstā ir aprakstīta problēma, lietojot pārdošanas rēķins, kurā iekļauts nerealizētā PVN un negatīvi rindas kredīta vēsturi itāliešu valodas versijā Microsoft Dynamics NAV 2009. Šī problēma atkārtojas pēc ieviešanas KB 2882952labojumu.

Izpildiet darbības sadaļā koda izmaiņas , lai atrisinātu šo problēmu. Šī problēma rodas ar šādiem produktiem:

Microsoft Dynamics NAV 2009 R2 itāliešu versija
Itāļu versiju Microsoft Dynamics NAV 2009. gada 1. servisa pakotne (SP1)

Risinājums

Informācija par labojumfailu

Pašlaik korporācija Microsoft piedāvā atbalstītu labojumfailu. Tomēr tas ir paredzēts tikai šajā rakstā aprakstītās problēmas novēršanai. Izmantojiet to tikai tām sistēmām, kurām ir radusies tieši šī problēma. Iespējams, tiks veikta šī labojumfaila papildu testēšana. Tādēļ, ja jums ir šī problēma nerada nopietnus traucējumus, ieteicams nogaidīt, līdz tiks izlaista nākamā servisa pakotne Microsoft Dynamics NAV 2009 vai nākamo Microsoft Dynamics NAV versiju, kurā ir iekļauts šis labojumfails.

Piezīme. Īpašos gadījumos standarta izmaksas par atbalsta zvaniem nav jāsedz, ja tehniskā atbalsta speciālists Microsoft Dynamics un saistītiem produktiem nosaka, ka šo problēmu novērsīs noteikts atjauninājums. Parasti atbalsta izmaksas tiek piemērotas jautājumiem par papildu atbalstu un problēmām, kas neskar specifisko atjauninājumu apspriešanu.

Informācija par instalēšanu

Microsoft piedāvā programmēšanas piemērus tikai uzskatāmībai, nesniedzot nekādas tiešas vai netiešas garantijas. Tas ietver, bet neaprobežojas ar netiešām garantijām par piemērotību pārdošanai vai atbilstību noteiktam mērķim. Šajā rakstā tiek pieņemts, ka pārzināt programmēšanas valodu, kas tiek aprakstīta, un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdotu procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot kādas noteiktas procedūras funkcionalitāti. Taču viņi nemainīs šos piemērus, lai sniegtu skaidrākus, un neveidos jaunas procedūras, kas atbilstu īpašām prasībām.

Piezīme. Pirms šī labojumfaila instalēšanas pārliecinieties, vai, ka visi Microsoft Dynamics NAV klienta lietotāji ir atteikušies sistēmu. Tas ietver Microsoft Dynamics NAV lietojumprogrammu serveris (NAS) pakalpojumus. Jums ir jābūt tikai klienta lietotājam, kurš ir pieteicies datorā, kad izmantojat šo labojumfailu.

Lai ieviestu šo labojumfailu, datorā jābūt instalētai izstrādātāja licenci.

Ieteicams, ka lietotāja konts tiek atvērts logs Windows lietotājvārdi vai logā datu bāzes lietotājvārdi piešķirt "SUPER" lomas ID. Ja lietotāja kontam nevar piešķirt "SUPER" lomas ID, ir jāpārbauda lietotāja konts ir šādas atļaujas:

Objektu, kad tiks mainīts modificēt atļaujas.
Izpildes atļauja objekta objekta ID 5210 sistēmas un sistēmas objekta ID 9015

objektu.

Piezīme. Jums nav tiesības datu krātuvju vien veikt datu labošana.

Koda izmaiņas

Piezīme. Vienmēr pārbaudes kods novērš kontrolētā vidē pirms lietojat datoru ražošanas labojumus.

Lai novērstu šo problēmu, rīkojieties šādi:

Nomainiet šo kodu atslēgas tabulas PVN ieraksts (254) šādi:
Kods

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

Aizstāšanas kodu

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

Nomainiet šo kodu tabulā PVN ieraksts (254) GetUnRealizedVATPart funkciju šādi:
Kods 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
...

Aizstāšanas kods = 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
...

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

Aizstāšanas kods 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
...

Nomainiet šo kodu tabulā PVN ieraksts (254) SalesInvInclPrepmt funkciju šādi:
Kods

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

      BEGIN
      END.
    }
  }
...

Aizstāšanas kodu

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

Nomainiet šo kodu CustUnrealizedVAT funkciju, Gen žurnāla.-Post rindu koda (12) šādi:
Kods 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.");
...

Aizstāšanas kods = 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.");
...

Kods 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",
...

Aizstāšanas kods 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",
...

Kods 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;
...

Aizstāšanas kodu 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;
...

Nomainiet šo kodu VendUnrealizedVAT funkciju, Gen žurnāla.-Post rindu koda (12) šādi:
Kods 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.");
...

Aizstāšanas kods = 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.");
...

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

Aizstāšanas kods 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
...

Kods 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;
...

Aizstāšanas kodu 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;
...

Priekšnosacījumi

Datorā ir jābūt instalētai kādai no lai lietotu šo labojumfailu šādiem produktiem:

Microsoft Dynamics NAV 2009 R2 itāliešu lokalizācija
Microsoft Dynamics NAV 2009 SP1 itāliešu lokalizācija

Informācija par noņemšanu

Nevar noņemt šo labojumfailu.

Statuss

Korporācija Microsoft ir apstiprinājusi, ka šī problēma pastāv Microsoft produktos, kas ir minēti sadaļā "Attiecas uz".

Piezīme. Šis ir STEIDZAMI PUBLICĒJAMS raksts, kas izveidots tieši Microsoft atbalsta organizācijā. Šajā rakstā ietvertā informācija ir sniegta, reaģējot uz nesen konstatētām problēmām. Tā kā šis raksts ir tapis pieejams neilgā laikā, materiālos var būt pareizrakstības kļūdas un tās var tikt labotas jebkurā laikā bez paziņojuma. Skatīt Lietošanasciti apsvērumi.

PVN ir ievietojis nepareizi lietojot kredīta vēsturi itāliešu valodas versijā Microsoft Dynamics NAV 2009 pārdošanas rēķins

Risinājums

Informācija par labojumfailu

Informācija par instalēšanu

Koda izmaiņas

Priekšnosacījumi

Informācija par noņemšanu

Statuss

Nepieciešama papildu palīdzība?

Vēlaties vairāk opciju?

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!