Κοινωνική λογική τιμή είναι εσφαλμένη όταν εξάγετε ένα αρχείο μοντέλο 347 στην ισπανική έκδοση του Microsoft Dynamics NAV

Ισχύει για
Dynamics NAV 2009 Microsoft Dynamics NAV 5.0

Αυτό το άρθρο ισχύει για το Microsoft Dynamics NAV για τις τοπικές ρυθμίσεις γλώσσας Ισπανικά (es).

Συμπτώματα

Ας υποθέσουμε ότι έχετε δύο πελάτες που χρησιμοποιούν τον ίδιο αριθμό μητρώου φόρου προστιθέμενης αξίας (ΦΠΑ) στην ισπανική έκδοση του Microsoft Dynamics NAV. Ο πρώτος πελάτης έχει περισσότερα ποσά στις καταχωρήσεις από ό, τι ο δεύτερος πελάτης. Σε αυτήν την περίπτωση, όταν εξάγετε ένα αρχείο μοντέλου 347, εμφανίζεται σωστά η τιμή Ποσά για τον πρώτο πελάτη. Ωστόσο, η τιμή κοινωνικού λόγου εμφανίζεται για τον δεύτερο πελάτη αντί για τον πρώτο πελάτη.

Σημείωση Αυτό το ζήτημα παρουσιάζεται επίσης εάν έχετε δύο προμηθευτές που χρησιμοποιούν τον ίδιο αριθμό μητρώου ΦΠΑ.
 
Αυτό το ζήτημα παρουσιάζεται στα ακόλουθα προϊόντα:

  • Η ισπανική έκδοση του Microsoft Dynamics NAV 2009 R2
  • Η ισπανική έκδοση του Microsoft Dynamics NAV 2009 Service Pack 1
  • Η ισπανική έκδοση του Microsoft Dynamics NAV 5.0 Service Pack 1

Επίλυση

Πληροφορίες επείγουσας επιδιόρθωσης

Μια υποστηριζόμενη επείγουσα επιδιόρθωση είναι τώρα διαθέσιμη από τη Microsoft. Ωστόσο, αυτή η ενέργεια προορίζεται μόνο για τη διόρθωση του ζητήματος που περιγράφεται σε αυτό το άρθρο. Εφαρμόστε το μόνο σε συστήματα που αντιμετωπίζουν αυτό το συγκεκριμένο πρόβλημα. Αυτή η επείγουσα επιδιόρθωση ενδέχεται να υποβληθεί σε πρόσθετο έλεγχο. Επομένως, εάν αυτό το ζήτημα δεν σας επηρεάζει ιδιαίτερα, συνιστάται να περιμένετε έως το επόμενο service pack του Microsoft Dynamics NAV 2009 ή την επόμενη έκδοση του Microsoft Dynamics NAV που περιέχει αυτήν την επείγουσα επιδιόρθωση.

Σημείωση Σε ειδικές περιπτώσεις, οι χρεώσεις που προκύπτουν κανονικά για κλήσεις υποστήριξης ενδέχεται να ακυρωθούν, εάν ένας επαγγελματίας τεχνικής υποστήριξης για το Microsoft Dynamics και τα σχετικά προϊόντα προσδιορίσει ότι μια συγκεκριμένη ενημερωμένη έκδοση θα επιλύσει το ζήτημά σας. Για πρόσθετες ερωτήσεις υποστήριξης και για θέματα που δεν αφορούν τη συγκεκριμένη ενημερωμένη έκδοση, θα ισχύσουν οι συνηθισμένες χρεώσεις υποστήριξης.

            
          

Πληροφορίες εγκατάστασης

Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για απεικόνιση, χωρίς καμία εγγύηση, ρητή ή σιωπηρή. Αυτό περιλαμβάνει, ενδεικτικά, τις σιωπηρές εγγυήσεις εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που επιδεικνύεται και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων διαδικασιών. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας βοηθήσουν να εξηγήσετε τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας. Ωστόσο, δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παρέχουν πρόσθετες λειτουργίες ούτε θα δημιουργήσουν διαδικασίες για να ικανοποιήσουν τις συγκεκριμένες απαιτήσεις σας.

Σημείωση Πριν να εγκαταστήσετε αυτήν την επείγουσα επιδιόρθωση, βεβαιωθείτε ότι όλοι οι χρήστες προγράμματος-πελάτη του Microsoft Dynamics NAV έχουν αποσυνδεθεί από το σύστημα. Αυτό περιλαμβάνει υπηρεσίες διακομιστή εφαρμογών Microsoft Dynamics NAV (NAS). Θα πρέπει να είστε ο μόνος χρήστης-πελάτης που είναι συνδεδεμένος όταν υλοποιείτε αυτήν την επείγουσα επιδιόρθωση.

Για να υλοποιήσετε αυτήν την επείγουσα επιδιόρθωση, πρέπει να έχετε άδεια προγραμματιστή.

Συνιστούμε ο λογαριασμός χρήστη στο παράθυρο Συνδέσεις των Windows ή στο παράθυρο Συνδέσεις βάσης δεδομένων να έχει το αναγνωριστικό ρόλου "SUPER". Εάν δεν είναι δυνατή η εκχώρηση του αναγνωριστικού ρόλου "SUPER" στο λογαριασμό χρήστη, πρέπει να επαληθεύσετε ότι ο λογαριασμός χρήστη έχει τα ακόλουθα δικαιώματα:

  • Το δικαίωμα τροποποίησης για το αντικείμενο που θα αλλάξετε.
  • Το δικαίωμα εκτέλεσης για το αντικείμενο αναγνωριστικού αντικειμένου συστήματος 5210 και για το αντικείμενο αναγνωριστικού αντικειμένου συστήματος 9015.

                
Σημείωση Δεν χρειάζεται να έχετε δικαιώματα στους χώρους αποθήκευσης δεδομένων, εκτός εάν πρέπει να εκτελέσετε επιδιόρθωση δεδομένων.

Αλλαγές κώδικα

Σημείωση Ελέγχετε πάντα τις επιδιορθώσεις κώδικα σε ελεγχόμενο περιβάλλον, πριν να εφαρμόσετε τις ενημερώσεις κώδικα στους υπολογιστές παραγωγής σας.
Για να επιλύσετε αυτό το ζήτημα, αλλάξτε τον κωδικό στην έκθεση Make 347 Declaration (10707). Για να το κάνετε αυτό, ακολουθήστε τα παρακάτω βήματα:

  1. Αλλάξτε τον κωδικό στο στοιχείο δεδομένων Αριθμός 2 ως εξής:
    Υπάρχων κώδικας

    NotIn347Amt := 0;

    Κωδικός αντικατάστασης

    NotIn347Amt := 0;

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

  2. Αλλάξτε τον κωδικό στο στοιχείο δεδομένων Αριθμός 3 ως εξής:
    Υπάρχων κωδικός 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.

    Κωδικός αντικατάστασης 1

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

    Υπάρχων κωδικός 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;

    Κωδικός αντικατάστασης 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;

    Υπάρχων κωδικός 3

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

    Κωδικός αντικατάστασης 3

    SalesAmt := SalesAmt + "Amount (LCY)";

// Add the following line.
CustomerMaxAmount := SalesAmt;

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

    Υπάρχων κωδικός 4

    SalesAmt := SalesAmt + NotIn347Amt + AmtSameVATRegNo;

// Delete the following line.
IF SalesAmt >= MinAmount THEN BEGIN

IF PostCode347 = ' ' THEN

    Κωδικός αντικατάστασης 4

    SalesAmt := SalesAmt + NotIn347Amt + AmtSameVATRegNo;

// Add the following line.
IF ABS(SalesAmt) >= MinAmount THEN BEGIN

IF PostCode347 = ' ' THEN

  3. Αλλάξτε τον κωδικό στο στοιχείο δεδομένων Αριθμός 5 ως εξής:
    Υπάρχων κώδικας

    NotIn347Amt := 0;

    Κωδικός αντικατάστασης

    NotIn347Amt := 0;

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

  4. Αλλάξτε τον κωδικό στο στοιχείο δεδομένων 6 ως εξής:
    Υπάρχων κωδικός 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.

    Κωδικός αντικατάστασης 1

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

    Υπάρχων κωδικός 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;

    Κωδικός αντικατάστασης 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;

    Υπάρχων κωδικός 3

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

    Κωδικός αντικατάστασης 3

    PurchasesAmt := PurchasesAmt - "Amount (LCY)";

// Add the following line.
VendorMaxAmount := PurchasesAmt;

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

    Υπάρχων κωδικός 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

    Κωδικός αντικατάστασης 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. Αλλάξτε τον κώδικα στις καθολικές μεταβλητές ως εξής:
    Υπάρχων κώδικας

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

    Κωδικός αντικατάστασης

    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. Αλλάξτε τον κωδικό στη συνάρτηση CheckSameVATRegNo ως εξής:
    Υπάρχων κώδικας

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

    Κωδικός αντικατάστασης

    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. Αλλάξτε τον κωδικό στη συνάρτηση IdentifyCashPayments ως εξής:
    Υπάρχων κώδικας

    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;

    Κωδικός αντικατάστασης

    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. Αλλάξτε τον κωδικό στη συνάρτηση CheckVatEntryNotIn347 ως εξής:
    Υπάρχων κώδικας

    BEGIN

    Κωδικός αντικατάστασης

    // 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

Προαπαιτούμενα

Πρέπει να έχετε ένα από τα ακόλουθα προϊόντα για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση:

  • Η ισπανική έκδοση του Microsoft Dynamics NAV 2009 R2
  • Η ισπανική έκδοση του Microsoft Dynamics NAV 2009 Service Pack 1
  • Η ισπανική έκδοση του Microsoft Dynamics NAV 5.0 Service Pack 1

Πληροφορίες κατάργησης

Δεν μπορείτε να καταργήσετε αυτήν την επείγουσα επιδιόρθωση.

Κατάσταση

Η Microsoft έχει επιβεβαιώσει ότι πρόκειται για ένα ζήτημα που αφορά τα προϊόντα της Microsoft που παρατίθενται στην ενότητα "Ισχύει για".

Σημείωση Αυτό είναι ένα άρθρο "FAST PUBLISH" που δημιουργήθηκε απευθείας μέσα από τον οργανισμό υποστήριξης της Microsoft. Οι πληροφορίες που περιέχονται στο παρόν παρέχονται ως έχουν ως απάντηση σε αναδυόμενα ζητήματα. Ως αποτέλεσμα της ταχύτητας διάθεσής του, το υλικό μπορεί να περιλαμβάνει τυπογραφικά λάθη και μπορεί να αναθεωρηθεί ανά πάσα στιγμή χωρίς προειδοποίηση. Ανατρέξτε στους Όρους χρήσης για άλλα ζητήματα.