Vrednost Social Reason je netačna kada izvezete Model 347 datoteku u španskoj verziji aplikacije Microsoft Dynamics NAV

Ovaj članak se odnosi na Microsoft Dynamics NAV za lokalni standard španskog jezika (es).

Simptomi

Pretpostavimo da imate dva klijenta koji koriste isti poreski broj za porez na dodatu vrednost (PDV) u španskoj verziji sistema Microsoft Dynamics NAV. Prvi klijent ima više iznosa u stavkama nego drugi klijent. U ovom slučaju, kada izvezete Model 347 datoteku, vrednost "Iznosi" ispravno se prikazuje za prvog klijenta. Međutim, vrednost "Društveni razlog" prikazuje se za drugog klijenta umesto za prvog.

Napomena: Do ovog problema dolazi i ako imate dva prodavca koji koriste isti poreski broj.
 
Ovaj problem se javlja u sledećim proizvodima:

• Španska verzija programa Microsoft Dynamics NAV 2009 R2
• Španska verzija servisnog paketa 1 za Microsoft Dynamics NAV 2009
• Španska verzija usluge Microsoft Dynamics NAV 5.0 servisni paket 1

Rešenje

Informacije o hitnim ispravkama

Podržana hitna ispravka je sada dostupna od korporacije Microsoft. Međutim, namena je samo za rešavanje problema koji je opisan u ovom članku. Primenite je samo na sisteme koji imaju ovaj određeni problem. Ova hitna ispravka može proći dodatno testiranje. Stoga, ako ovaj problem ne utiče ozbiljno, preporučujemo da sačekate sledeći servisni paket za Microsoft Dynamics NAV 2009 ili sledeću verziju programa Microsoft Dynamics NAV koja sadrži ovu hitnu ispravku.

Napomena: U posebnim slučajevima, troškovi koji se obično nastaju za pozive podršci mogu biti otkazani ako stručnjak za tehničku podršku za Microsoft Dynamics i srodne proizvode utvrdi da će određena ispravka rešiti problem. Uobičajeni troškovi podrške primenjivaće se na dodatna pitanja podrške i probleme koji ne ispunjavaju uslove za određenu ispravku u pitanju.

            
          

Informacije o instalaciji

Microsoft pruža primere programiranja samo za ilustraciju, bez izričite ili podrazumevane garancije. Ovo uključuje, ali nije ograničeno na, podrazumevane garancije o podesnosti za prodaju ili o podesnosti za određenu namenu. U ovom članku se pretpostavlja da ste upoznati sa programskim jezikom koji se demonstrira i sa alatkama koje se koriste za kreiranje procedura i otklanjanje grešaka. Inženjeri Microsoft podrške mogu vam objasniti funkcionalnost određene procedure. Međutim, oni neće menjati ove primere da bi obezbedili dodatnu funkcionalnost ili konstruisali procedure koje ispunjavaju vaše određene zahteve.

Napomena Pre nego što instalirate ovu hitnu ispravku, proverite da li su svi korisnici Microsoft Dynamics NAV klijenta odjavljeni iz sistema. To uključuje Microsoft Dynamics NAV Application Server (NAS) usluge. Vi bi trebalo da budete jedini korisnik klijenta koji je prijavljen kada primenjujete ovu hitnu ispravku.

Da biste primenili ovu hitnu ispravku, morate imati licencu za projektante.

Preporučujemo da se korisničkom nalogu u prozoru "Prijavljivanje u operativni sistem Windows" ili u prozoru "Prijavljivanje u bazu podataka" dodeli ID uloge "SUPER". Ako korisničkom nalogu nije moguće dodeliti ID uloge "SUPER", morate da proverite da li korisnički nalog ima sledeće dozvole:

• Dozvola "Izmeni" za objekat koji ćete menjati.
• Dozvola za izvršavanje za objekat sistema ID 5210 i za objekat sistema ID 9015.

                
Napomena: Ne morate da imate prava na skladišta podataka osim ako ne morate da izvršite popravku podataka.

Promene kodova

Napomena: Popravke kodova uvek testirajte u kontrolisanom okruženju pre nego što ih primenite na računare proizvodnje.
Da biste rešili ovaj problem, promenite kôd u izveštaju "Make 347 Declaration" (10707). Pratite ove korake da biste to uradili:

1. Promenite kôd u stavci podataka broj 2 na sledeći način:
   Postojeći kôd

   NotIn347Amt := 0;
   

   Kôd za zamenu

   NotIn347Amt := 0;
   
   // Add the following line.
   CustomerMaxAmount := 0;
   

2. Promenite kôd u stavci podataka broj 3 na sledeći način:
   Postojeći kôd 1

   // Delete the following lines.
     VATEntry.RESET;
     VATEntry.SETCURRENTKEY(Type,"Posting Date","Document Type","Document No.","Bill-to/Pay-to No.");
     VATEntry.SETRANGE(Type,VATEntry.Type::Sale);
     VATEntry.SETRANGE("Document No.","Document No.");
     VATEntry.SETRANGE("Document Date","Document Date");
     VATEntry.SETRANGE("Document Type","Document Type");
     VATEntry.SETRANGE("Country/Region Code",CountryCode);
   // End of the deleted lines.
   

   Kôd za zamenu 1

   // Add the following line.
     FilterVATEntry(VATEntry,"Document Date","Document Type","Document No.",TRUE);
   

   Postojeći kôd 2

   "Document Type"::Invoice:
   
   // Delete the following lines.
     BEGIN
     SalesInvHeader.RESET;
     IF SalesInvHeader.GET("Document No.") THEN BEGIN
     IF SalesInvHeader."Ship-to Code" <> '' THEN BEGIN
     ShipToAddress.GET("Customer No.",SalesInvHeader."Ship-to Code");
     IF ShipToAddress."Country/Region Code" <> CountryCode THEN
     CurrReport.SKIP;
     END;
     SalesinvLine.RESET;
     SalesinvLine.SETRANGE("Document No.","Document No.");
     IF SalesinvLine.FINDSET THEN
     REPEAT
     IF SalesinvLine."VAT Calculation Type" = SalesinvLine."VAT Calculation Type"::"No Taxable VAT" THEN
     NoTaxVATFound := TRUE;
     UNTIL SalesinvLine.NEXT = 0;
     END ELSE BEGIN
     IF Customer."Country/Region Code" = CountryCode THEN
     FromJournal := TRUE;
     END;
     END;
     "Document Type"::"Credit Memo":
     BEGIN
     SalesCrMemoHeader.RESET;
     IF SalesCrMemoHeader.GET("Document No.") THEN BEGIN
     IF SalesCrMemoHeader."Ship-to Code" <> '' THEN BEGIN
     ShipToAddress.GET("Customer No.",SalesCrMemoHeader."Ship-to Code");
     IF ShipToAddress."Country/Region Code" <> CountryCode THEN
     CurrReport.SKIP;
     END;
     SalesCrMemoLine.RESET;
     SalesCrMemoLine.SETRANGE("Document No.","Document No.");
     IF SalesCrMemoLine.FINDSET THEN
     REPEAT
     IF SalesCrMemoLine."VAT Calculation Type" = SalesCrMemoLine."VAT Calculation Type"::"No Taxable VAT" THEN
     NoTaxVATFound := TRUE;
     UNTIL SalesCrMemoLine.NEXT = 0;
     END ELSE BEGIN
     IF Customer."Country/Region Code" = CountryCode THEN
     FromJournal := TRUE;
     END;
     END;
   // End of the deleted lines.
   
   END;
   

   Kôd zamene 2

   "Document Type"::Invoice:
   
   // Add the following lines.
   CheckCustDocTypeInvoice(SalesInvHeader,"Cust. Ledger Entry",Customer);
   "Document Type"::"Credit Memo":
   CheckCustDocTypeCrMemo(SalesCrMemoHeader,"Cust. Ledger Entry",Customer);
   // End of the added lines.
   
   END;
   

   Postojeći kôd 3

   SalesAmt := SalesAmt + "Amount (LCY)";
   UpdateQuarterAmount(AmountType::Sales,"Amount (LCY)","Document Date");
   

   Kôd za zamenu 3

   SalesAmt := SalesAmt + "Amount (LCY)";
   
   // Add the following line.
   CustomerMaxAmount := SalesAmt;
   
   UpdateQuarterAmount(AmountType::Sales,"Amount (LCY)","Document Date");
   

   Postojeći kôd 4

   SalesAmt := SalesAmt + NotIn347Amt + AmtSameVATRegNo;
   
   // Delete the following line.
   IF SalesAmt >= MinAmount THEN BEGIN
   
   IF PostCode347 = ' ' THEN
   

   Kôd zamene 4

   SalesAmt := SalesAmt + NotIn347Amt + AmtSameVATRegNo;
   
   // Add the following line.
   IF ABS(SalesAmt) >= MinAmount THEN BEGIN
   
   IF PostCode347 = ' ' THEN
   

3. Promenite kôd u stavci podataka broj 5 na sledeći način:
   Postojeći kôd

   NotIn347Amt := 0;
   

   Kôd za zamenu

   NotIn347Amt := 0;
   
   // Add the following line.
   VendorMaxAmount := 0;
   

4. Promenite kôd u stavci podataka broj 6 na sledeći način:
   Postojeći kôd 1

   // Delete the following lines.
   VATEntry.RESET;
   VATEntry.SETCURRENTKEY(Type,"Posting Date","Document Type","Document No.","Bill-to/Pay-to No.");
   VATEntry.SETRANGE(Type,VATEntry.Type::Purchase);
   VATEntry.SETRANGE("Document No.","Document No.");
   VATEntry.SETRANGE("Document Date","Document Date");
   VATEntry.SETRANGE("Document Type","Document Type");
   VATEntry.SETRANGE("Country/Region Code",CountryCode);
   // End of the deleted lines.
   

   Kôd za zamenu 1

   // Add the following line.
   FilterVATEntry(VATEntry,"Document Date","Document Type","Document No.",FALSE);
   

   Postojeći kôd 2

   "Document Type"::Invoice:
   
   // Delete the following lines.
   BEGIN
   PurchInvHeader.RESET;
   IF PurchInvHeader.GET("Document No.") THEN BEGIN
   IF PurchInvHeader."Order Address Code" <> '' THEN BEGIN
   OrderAddress.GET("Vendor No.",PurchInvHeader."Order Address Code");
   IF OrderAddress."Country/Region Code" <> CountryCode THEN
   CurrReport.SKIP;
   END;
   PurchInvLine.RESET;
   PurchInvLine.SETRANGE("Document No.","Document No.");
   IF PurchInvLine.FINDSET THEN
   REPEAT
   IF PurchInvLine."VAT Calculation Type" = PurchInvLine."VAT Calculation Type"::"No Taxable VAT" THEN
   NoTaxVATFound := TRUE;
   UNTIL PurchInvLine.NEXT = 0;
   END ELSE BEGIN
   IF Vendor."Country/Region Code" = CountryCode THEN
   FromJournal := TRUE;
   END;
   END;
   "Document Type"::"Credit Memo":
   BEGIN
   PurchCrMemoHeader.RESET;
   IF PurchCrMemoHeader.GET("Document No.") THEN BEGIN
   IF PurchCrMemoHeader."Order Address Code" <> '' THEN BEGIN
   OrderAddress.GET("Vendor No.",PurchCrMemoHeader."Order Address Code");
   IF OrderAddress."Country/Region Code" <> CountryCode THEN
   CurrReport.SKIP;
   END;
   PurchCrMemoLine.RESET;
   PurchCrMemoLine.SETRANGE("Document No.","Document No.");
   IF PurchCrMemoLine.FINDSET THEN
   REPEAT
   IF PurchCrMemoLine."VAT Calculation Type" = PurchCrMemoLine."VAT Calculation Type"::"No Taxable VAT" THEN
   NoTaxVATFound := TRUE;
   UNTIL PurchCrMemoLine.NEXT = 0;
   END ELSE BEGIN
   IF Vendor."Country/Region Code" = CountryCode THEN
   FromJournal := TRUE;
   END;
   END;
   // End of the deleted lines.
   
   END;
   

   Kôd zamene 2

   "Document Type"::Invoice:
   
   // Add the following lines.
   CheckVendDocTypeInvoice(PurchInvHeader,"Vendor Ledger Entry",Vendor);
   "Document Type"::"Credit Memo":
   CheckVendDocTypeCrMemo(PurchCrMemoHeader,"Vendor Ledger Entry",Vendor);
   // End of the added lines.
   
   END;
   

   Postojeći kôd 3

   PurchasesAmt := PurchasesAmt - "Amount (LCY)";
   UpdateQuarterAmount(AmountType::Purchase,-"Amount (LCY)","Document Date");
   

   Kôd za zamenu 3

   PurchasesAmt := PurchasesAmt - "Amount (LCY)";
   
   // Add the following line.
   VendorMaxAmount := PurchasesAmt;
   
   UpdateQuarterAmount(AmountType::Purchase,-"Amount (LCY)","Document Date");
   

   Postojeći kôd 4

   TotalNotIn347Amt := TotalNotIn347Amt + NotIn347Amt + AmtSameVATRegNo;
   
   // Delete the following lines.
   PurchasesAmt := PurchasesAmt - NotIn347Amt + AmtSameVATRegNo;
   IF PurchasesAmt >= MinAmount THEN BEGIN
   // End of the deleted lines.
   
   IF PostCode347 = ' ' THEN
   

   Kôd zamene 4

   TotalNotIn347Amt := TotalNotIn347Amt + NotIn347Amt + AmtSameVATRegNo;
   
   // Add the following lines.
   PurchasesAmt := PurchasesAmt - NotIn347Amt + AmtSameVATRegNo; 
   IF ABS(PurchasesAmt) >= MinAmount THEN BEGIN
   // End of the added lines.
   
   IF PostCode347 = ' ' THEN
   

5. Promenite kôd u globalnim promenljivama na sledeći način:
   Postojeći kôd

   Text1100032@1100040 : TextConst 'ENU=The process has been aborted. No file will be generated.;ESP=El proceso se ha cancelado. No se crear ning£n archivo.';
   

   Kôd za zamenu

   Text1100032@1100040 : TextConst 'ENU=The process has been aborted. No file will be generated.;ESP=El proceso se ha cancelado. No se crear ning£n archivo.';
   
   // Add the following lines.
   VendorMaxAmount@1100097 : Decimal;
   CustomerMaxAmount@1100098 : Decimal;
   // End of the added lines.
   

6. Promenite kôd u funkciji CheckSameVATRegNo na sledeći način:
   Postojeći kôd

   VAR
   
   // Delete the following lines.
   VATEntry3@1100000 : Record 254;
   GLEntry@1100002 : Record 17;
   GLAccount@1100003 : Record 15;
   TempVATEntry@1100004 : TEMPORARY Record 254;
   BEGIN
   VATEntry3.SETCURRENTKEY(Type,"Country/Region Code","VAT Registration No.");
   VATEntry3.SETRANGE("Country/Region Code",CountryCode);
   IF IsCustomer THEN BEGIN
   VATEntry3.SETRANGE(Type,VATEntry3.Type::Sale);
   VATEntry3.SETRANGE("VAT Registration No.",Customer."VAT Registration No.");
   VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Customer."No.");
   END ELSE BEGIN
   VATEntry3.SETRANGE(Type,VATEntry3.Type::Purchase);
   VATEntry3.SETRANGE("VAT Registration No.",Vendor."VAT Registration No.");
   VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Vendor."No.");
   END;
   VATEntry3.SETRANGE("Document Date",FromDate,ToDate);
   IF VATEntry3.FINDFIRST THEN
   REPEAT
   IF IsCustomer THEN
   Amt := Amt - VATEntry3.Base - VATEntry3.Amount
   ELSE
   Amt := Amt + VATEntry3.Base + VATEntry3.Amount;
   UpdateQuarterAmount(AmountType::Sales,ABS(VATEntry3.Base) + ABS(VATEntry3.Amount),VATEntry3."Document Date");
   TempVATEntry.SETRANGE("Transaction No.",VATEntry3."Transaction No.");
   IF NOT TempVATEntry.FINDFIRST THEN BEGIN
   GLEntry.SETRANGE("Transaction No.",VATEntry3."Transaction No.");
   IF GLEntry.FINDSET THEN
   REPEAT
   UpdateNotIn347Amount(GLEntry);
   UNTIL GLEntry.NEXT = 0;
   TempVATEntry := VATEntry3;
   TempVATEntry.INSERT;
   END;
   UNTIL VATEntry3.NEXT = 0;
   // End of the deleted lines.
   
   EXIT(Amt);
   

   Kôd za zamenu

   VAR
   
   // Add the following lines.
   VATEntry3@1100002 : Record 254;
   GLEntry@1100003 : Record 17;
   Customer2@110000022 : Record 18;
   CustLedgEntry@1100007 : Record 21;
   SalesInvHeader@1100008 : Record 112;
   SalesCrMemoHeader@1100011 : Record 114;
   Vendor2@1100013 : Record 23;
   VendorLedgerEntry@1100014 : Record 25;
   PurchInvHeader@1100015 : Record 122;
   OrderAdress@1100017 : Record 224;
   PurchCrMemoHeader@1100018 : Record 124;
   VendorAmount@1100020 : Decimal;
   CustomerAmount@1100021 : Decimal;
   BEGIN
   IF IsCustomer THEN BEGIN
   Customer2.SETCURRENTKEY("VAT Registration No.");
   Customer2.SETFILTER("No.",'<>%1',Customer."No.");
   Customer2.SETRANGE("VAT Registration No.",Customer."VAT Registration No.");
   IF Customer2.FINDFIRST THEN
   REPEAT
   CustomerAmount := 0;
   CustLedgEntry.SETCURRENTKEY("Customer No.","Document Type");
   CustLedgEntry.SETRANGE("Customer No.", Customer2."No.");
   CustLedgEntry.SETRANGE("Document Date",FromDate,ToDate);
   CustLedgEntry.SETRANGE("Document Type",CustLedgEntry."Document Type"::Invoice,CustLedgEntry."Document Type"::"Credit Memo");
   IF CustLedgEntry.FINDFIRST THEN
   REPEAT
   FilterVATEntry(VATEntry3,CustLedgEntry."Document Date",CustLedgEntry."Document Type",
   CustLedgEntry."Document No.",IsCustomer);
   IF NOT VATEntry3.FINDFIRST THEN BEGIN
   CASE CustLedgEntry."Document Type" OF
   CustLedgEntry."Document Type"::Invoice:
   CheckCustDocTypeInvoice(SalesInvHeader,CustLedgEntry,Customer2);
   CustLedgEntry."Document Type"::"Credit Memo" :
   CheckCustDocTypeCrMemo(SalesCrMemoHeader,CustLedgEntry,Customer2);
   END;
   END ELSE
   CheckVatEntryNotIn347(VATEntry3,GLEntry);
   IF (VATEntry3."VAT Registration No." <> '') OR NoTaxVATFound OR FromJournal THEN BEGIN
   CustLedgEntry.CALCFIELDS(CustLedgEntry."Amount (LCY)");
   Amt := Amt + CustLedgEntry."Amount (LCY)";
   CustomerAmount := CustomerAmount + CustLedgEntry."Amount (LCY)";
   UpdateQuarterAmount(AmountType::SameVATNo,CustLedgEntry."Amount (LCY)",CustLedgEntry."Posting Date");
   END;
   UNTIL CustLedgEntry.NEXT = 0;
   IF CustomerMaxAmount < CustomerAmount THEN BEGIN
   CustomerMaxAmount := CustomerAmount;
   Name347 := Customer2.Name;
   END;
   UNTIL Customer2.NEXT = 0;
   Name347 := PADSTR(FormatTextName(Name347),40,' ');
   END ELSE BEGIN
   Vendor2.SETCURRENTKEY("VAT Registration No.");
   Vendor2.SETFILTER("No.",'<>%1',Vendor."No.");
   Vendor2.SETRANGE("VAT Registration No.",Vendor."VAT Registration No.");
   IF Vendor2.FINDFIRST THEN
   REPEAT
   VendorAmount := 0;
   VendorLedgerEntry.SETCURRENTKEY("Vendor No.","Document Type");
   VendorLedgerEntry.SETRANGE("Vendor No.", Vendor2."No.");
   VendorLedgerEntry.SETRANGE("Document Date",FromDate,ToDate);
   VendorLedgerEntry.SETRANGE("Document Type",VendorLedgerEntry."Document Type"::Invoice,
   VendorLedgerEntry."Document Type"::"Credit Memo");
   IF VendorLedgerEntry.FINDFIRST THEN
   REPEAT
   FilterVATEntry(VATEntry3,VendorLedgerEntry."Document Date",VendorLedgerEntry."Document Type",
   VendorLedgerEntry."Document No.",IsCustomer);
   IF NOT VATEntry3.FINDFIRST THEN BEGIN
   CASE VendorLedgerEntry."Document Type" OF
   VendorLedgerEntry."Document Type"::Invoice:
   CheckVendDocTypeInvoice(PurchInvHeader,VendorLedgerEntry,Vendor2);
   VendorLedgerEntry."Document Type"::"Credit Memo":
   CheckVendDocTypeCrMemo(PurchCrMemoHeader,VendorLedgerEntry,Vendor2);
   END;
   END ELSE
   CheckVatEntryNotIn347(VATEntry3,GLEntry);
   IF (VATEntry3."VAT Registration No." <> '') OR NoTaxVATFound OR FromJournal THEN BEGIN
   VendorLedgerEntry.CALCFIELDS(VendorLedgerEntry."Amount (LCY)");
   Amt := Amt - VendorLedgerEntry."Amount (LCY)";
   VendorAmount := VendorAmount - VendorLedgerEntry."Amount (LCY)";
   UpdateQuarterAmount(AmountType::SameVATNo,-VendorLedgerEntry."Amount (LCY)",VendorLedgerEntry."Posting Date");
   END;
   UNTIL VendorLedgerEntry.NEXT = 0;
   IF VendorMaxAmount < VendorAmount THEN BEGIN
   VendorMaxAmount := VendorAmount;
   Name347 := Vendor2.Name;
   END;
   UNTIL Vendor2.NEXT = 0;
   Name347 := PADSTR(FormatTextName(Name347),40,' ');
   END;
   
   // End of the added lines.
   
   EXIT(Amt);
   

7. Promenite kôd u funkciji IdentifyCashPayments na sledeći način:
   Postojeći kôd

   THEN BEGIN
   
   // Delete the following lines.
   IF IsCashAccount(CustLedgerEntry."Bal. Account No.") THEN BEGIN
   CreateCashTotals(CustLedgerEntry."Entry No.",VATRegistrationNo);
   END;
   END ELSE IF ((CustLedgerEntry."Bal. Account No." = '') OR
   (CustLedgerEntry."Bal. Account Type" <> CustLedgerEntry."Bal. Account Type"::"G/L Account"))
   THEN BEGIN
   IF IdentifyCashPaymentsFromGL(CustLedgerEntry) THEN
   CreateCashTotals(CustLedgerEntry."Entry No.",VATRegistrationNo);
   // End of the deleted lines.
   
   END;
   

   Kôd za zamenu

   THEN BEGIN
   
   // Add the following lines.
   IF IsCashAccount(CustLedgerEntry."Bal. Account No.") THEN
   CreateCashTotals(CustLedgerEntry."Entry No.",VATRegistrationNo);
   END ELSE
   IF ((CustLedgerEntry."Bal. Account No." = '') OR
   (CustLedgerEntry."Bal. Account Type" <> CustLedgerEntry."Bal. Account Type"::"G/L Account"))
   THEN BEGIN
   IF IdentifyCashPaymentsFromGL(CustLedgerEntry) THEN
   CreateCashTotals(CustLedgerEntry."Entry No.",VATRegistrationNo);
   // End of the added lines.
   
   END;
   

8. Promenite kôd u funkciji CheckVatEntryNotIn347 na sledeći način:
   Postojeći kôd

   BEGIN
   

   Kôd za zamenu

   // Add the following lines.
   LOCAL PROCEDURE CheckVatEntryNotIn347@1100098(VATEntry@1100000 : Record 254;GLEntry@1100001 : Record 17);
   VAR
   TempVATEntry@1100002 : Record 254;
   BEGIN
   REPEAT
   TempVATEntry.SETRANGE("Transaction No.",VATEntry."Transaction No.");
   IF NOT TempVATEntry.FINDFIRST THEN BEGIN
   GLEntry.SETRANGE("Transaction No.",VATEntry."Transaction No.");
   IF GLEntry.FINDSET THEN
   REPEAT
   UpdateNotIn347Amount(GLEntry);
   UNTIL GLEntry.NEXT = 0;
   TempVATEntry := VATEntry;
   TempVATEntry.INSERT;
   END;
   UNTIL VATEntry.NEXT = 0;
   END;
   
   LOCAL PROCEDURE FilterVATEntry@1100099(VAR VATEntry@1100000 : Record 254;DocumentDate@1100001 : Date;DocumentType@1100002 : Integer;DocumentNo@1100003 : Code[20];IsCustomer@1100004 : Boolean);
   BEGIN
   VATEntry.RESET;
   IF IsCustomer THEN
   VATEntry.SETRANGE(Type,VATEntry.Type::Sale)
   ELSE
   VATEntry.SETRANGE(Type,VATEntry.Type::Purchase);
   VATEntry.SETRANGE("Document Date",DocumentDate);
   VATEntry.SETRANGE("Document Type",DocumentType);
   VATEntry.SETRANGE("Document No.",DocumentNo);
   VATEntry.SETRANGE("Country/Region Code",CountryCode);
   END;
   
   LOCAL PROCEDURE CheckCustDocTypeInvoice@1100101(SalesInvHeader@1100000 : Record 112;CustLedgEntry@1100001 : Record 21;Customer@1100002 : Record 18);
   VAR
   SalesInvLine@1100003 : Record 113;
   BEGIN
   SalesInvHeader.RESET;
   IF SalesInvHeader.GET(CustLedgEntry."Document No.") THEN BEGIN
   IF SalesInvHeader."Ship-to Code" <> '' THEN
   IF SalesInvHeader."Ship-to Country/Region Code" = CountryCode THEN BEGIN
   SalesInvLine.RESET;
   SalesInvLine.SETRANGE("Document No.",CustLedgEntry."Document No.");
   IF SalesInvLine.FINDSET THEN
   REPEAT
   IF (SalesInvLine."VAT Calculation Type" = SalesInvLine."VAT Calculation Type"::"No Taxable VAT") AND
   (Customer."Country/Region Code" = CountryCode) THEN
   NoTaxVATFound := TRUE;
   UNTIL SalesInvLine.NEXT = 0;
   END;
   END;
   IF Customer."Country/Region Code" = CountryCode THEN
   FromJournal := TRUE;
   END;
   
   PROCEDURE CheckCustDocTypeCrMemo@1100102(SalesCrMemoHeader@1100000 : Record 114;CustLedgEntry@1100001 : Record 21;Customer@1100002 : Record 18);
   VAR
   SalesCrMemoLine@1100003 : Record 115;
   BEGIN
   SalesCrMemoHeader.RESET;
   IF SalesCrMemoHeader.GET(CustLedgEntry."Document No.") THEN BEGIN
   IF SalesCrMemoHeader."Ship-to Code" <> '' THEN
   IF SalesCrMemoHeader."Ship-to Country/Region Code" = CountryCode THEN BEGIN
   SalesCrMemoLine.RESET;
   SalesCrMemoLine.SETRANGE("Document No.",CustLedgEntry."Document No.");
   IF SalesCrMemoLine.FINDSET THEN
   REPEAT
   IF (SalesCrMemoLine."VAT Calculation Type" = SalesCrMemoLine."VAT Calculation Type"::"No Taxable VAT") AND
   (Customer."Country/Region Code" = CountryCode) THEN
   NoTaxVATFound := TRUE;
   UNTIL SalesCrMemoLine.NEXT = 0;
   END;
   END;
   IF Customer."Country/Region Code" = CountryCode THEN
   FromJournal := TRUE;
   END;
   
   PROCEDURE CheckVendDocTypeInvoice@1100103(PurchInvHeader@1100000 : Record 122;VendorLedgerEntry@1100001 : Record 25;Vendor@1100002 : Record 23);
   VAR
   PurchInvLine@1100003 : Record 123;
   BEGIN
   PurchInvHeader.RESET;
   IF PurchInvHeader.GET(VendorLedgerEntry."Document No.") THEN BEGIN
   IF PurchInvHeader."Ship-to Code" <> '' THEN
   IF PurchInvHeader."Ship-to Country/Region Code" = CountryCode THEN BEGIN
   PurchInvLine.RESET;
   PurchInvLine.SETRANGE("Document No.",VendorLedgerEntry."Document No.");
   IF PurchInvLine.FINDSET THEN
   REPEAT
   IF (PurchInvLine."VAT Calculation Type" = PurchInvLine."VAT Calculation Type"::"No Taxable VAT") AND
   (Vendor."Country/Region Code" = CountryCode) THEN
   NoTaxVATFound := TRUE;
   UNTIL PurchInvLine.NEXT = 0;
   END;
   END;
   IF Vendor."Country/Region Code" = CountryCode THEN
   FromJournal := TRUE;
   END;
   
   PROCEDURE CheckVendDocTypeCrMemo@1100104(PurchCrMemoHeader@1100000 : Record 124;VendorLedgerEntry@1100001 : Record 25;Vendor@1100002 : Record 23);
   VAR
   PurchCrMemoLine@1100003 : Record 125;
   BEGIN
   PurchCrMemoHeader.RESET;
   IF PurchCrMemoHeader.GET(VendorLedgerEntry."Document No.") THEN BEGIN
   IF PurchCrMemoHeader."Ship-to Code" <> '' THEN
   IF PurchCrMemoHeader."Ship-to Country/Region Code" = CountryCode THEN BEGIN
   PurchCrMemoLine.RESET;
   PurchCrMemoLine.SETRANGE("Document No.",VendorLedgerEntry."Document No.");
   IF PurchCrMemoLine.FINDSET THEN
   REPEAT
   IF (PurchCrMemoLine."VAT Calculation Type" = PurchCrMemoLine."VAT Calculation Type"::"No Taxable VAT") AND
   (Vendor."Country/Region Code" = CountryCode) THEN
   NoTaxVATFound := TRUE;
   UNTIL PurchCrMemoLine.NEXT = 0;
   END;
   END;
   IF Vendor."Country/Region Code" = CountryCode THEN
   FromJournal := TRUE;
   END;
   
   // End of the added lines.
   
   BEGIN
   

Preduslovi

Morate da imate instaliran jedan od sledećih proizvoda da biste primenili ovu hitnu ispravku:

• Španska verzija programa Microsoft Dynamics NAV 2009 R2
• Španska verzija servisnog paketa 1 za Microsoft Dynamics NAV 2009
• Španska verzija usluge Microsoft Dynamics NAV 5.0 servisni paket 1

Informacije o uklanjanju

Ne možete da uklonite ovu hitnu ispravku.

Status

Microsoft je potvrdio da je ovo problem u Microsoft proizvodima koji su navedeni u odeljku „Odnosi se na“.

Napomena: Ovo je članak "BRZO OBJAVLJIVANJE" koji je kreiran direktno u okviru organizacije Microsoft podrške. Informacije koje se nalaze ovde pružaju se kakve jesu kao odgovor na nove probleme. Kao rezultat brzine stavljanja na raspolaganje, materijali mogu sadržavati tipografske greške i mogu se revidirati u bilo kom trenutku bez prethodne najave. Pogledajte Uslove korišćenja za druga razmatranja.