Sistēma neparedzēti atjaunina grāmatošanas datumu pēc tam, kad palaižat pārdošanas rēķina vai pirkšanas rēķina grāmatošanas funkciju Microsoft Dynamics NAV 2009 portugāļu valodas versijā

Attiecas uz
Dynamics NAV 2009

Šis raksts attiecas uz Microsoft Dynamics NAV portugāļu valodas (pt) valodas lokalizācijai.

Pazīmes

Apsveriet šādu scenāriju Microsoft Dynamics NAV 2009 R2 un Microsoft Dynamics NAV 2009 1. servisa pakotnes (SP1) portugāļu valodas versijā:

  • Jums ir numuru sērija, kas iespējo datumu secības iestatījumu.
  • Jums ir pārdošanas rēķins vai pirkšanas rēķins, kurā tiek lietota numuru sērija.
  • Sistēma piešķir grāmatošanas numuru pārdošanas rēķinam vai pirkuma rēķinam.
  • Šim rēķinam palaižat funkciju Izlikt paketi un aizstājat grāmatošanas datumu dialoglodziņa Pakešveida rēķinu grāmatošana vai dialoglodziņa Pakeša pirkšanas rēķinu grāmatošanas cilnē Opcijas.

Šādā gadījumā sistēma neparedzēti atjaunina šī rēķina grāmatošanas datumu un nepārbauda datumu secību. Tomēr sistēma pārbauda datumu secību, ja aizstājat vērtību šī rēķina cilnes Vispārīgi laukā Grāmatošanasdatums.

Risinājums

Informācija par labojumfailu

Atbalstīts labojumfails tagad ir pieejams no Microsoft. Tomēr tas ir paredzēts tikai šajā rakstā aprakstītās problēmas novēršanai. Lietojiet to tikai sistēmām, kurās rodas šī konkrētā problēma. Šim labojumfailam var tikt veiktas papildu pārbaudes. Tāpēc, ja šī problēma jūs nopietni neietekmē, ieteicams gaidīt nākamo Microsoft Dynamics NAV 2009 servisa pakotni vai nākamo Microsoft Dynamics NAV versiju, kurā ir šis labojumfails.

Piezīme Īpašos gadījumos maksa, kas parasti tiek piemērota par atbalsta zvaniem, var tikt atcelta, ja Microsoft Dynamics un saistīto produktu tehniskā atbalsta speciālists nosaka, ka problēma tiks novērsta, instalējot noteiktu atjauninājumu. Parasti atbalsta izmaksas attiecas uz jautājumiem par papildu atbalstu un problēmām, kas neskar specifisko atjauninājumu apspriešanu.

          

Informācija par instalāciju

Microsoft sniedz programmēšanas piemērus tikai ilustrācijai, bez tiešas vai netiešas garantijas. Tas ietver, bet neaprobežojas ar netiešām garantijām par piemērotību pārdošanai vai piemērotībai noteiktam mērķim. Šajā rakstā tiek pieņemts, ka pārzināt demonstrējamo programmēšanas valodu un rīkus, kas tiek izmantoti procedūru izveidei un atkļūdošanai. Microsoft atbalsta inženieri var palīdzēt izskaidrot konkrētās procedūras funkcionalitāti. Tomēr tie nemodificēs šos piemērus, lai nodrošinātu papildu funkcionalitāti vai veidotu procedūras atbilstoši jūsu konkrētajām prasībām.

Piezīme Pirms šī labojumfaila instalēšanas pārliecinieties, vai visi Microsoft Navision klienta lietotāji ir atteikušies no sistēmas. Tas ietver Microsoft Navision lietojumprogrammu pakalpojumu (NAS) klienta lietotājus. Jūs esat vienīgais klienta lietotājs, kurš ir pieteicies, ieviešot šo labojumfailu.

Lai ieviestu šo labojumfailu, ir nepieciešama izstrādātāja licence.

Iesakām lietotāja kontam logā Windows pieteikšanās vai datu bāzes pieteikšanās logā piešķirt lomas ID "SUPER". Ja lietotāja kontam nevar piešķirt "SUPER" lomas ID, jums ir jāpārbauda, vai lietotāja kontam ir šādas atļaujas:

  • Modificēt objektu, kuru mainīsit.
  • Izpildes atļauja sistēmas objekta ID 5210 un sistēmas objekta ID 9015.

Piezīme. Jums nav tiesību uz datu krātuvēm, ja vien jums nav jāveic datu labošana.

Koda izmaiņas

Piezīme Pirms labojumu lietošanas ražošanas datoros vienmēr pārbaudiet koda labojumus kontrolētā vidē.
Lai atrisinātu šo problēmu, veiciet tālāk norādītās darbības.

  1. Mainiet kodu tabulā Pārdošanas galvene (36). Lai to izdarītu, izpildiet šādas darbības:

    1. Mainiet kodu laukos šādi:
      Esošais kods

      ...
END;

CaptionML=[ENU=Order Date;
PTG=Data Encomenda] }
{ 20 ; ;Posting Date ;Date ;OnValidate=BEGIN

// Delete the following lines.
 TestNoSeriesDate(
 "Posting No.","Posting No. Series",
 FIELDCAPTION("Posting No."),FIELDCAPTION("Posting No. Series"));
 TestNoSeriesDate(
 "Prepayment No.","Prepayment No. Series",
 FIELDCAPTION("Prepayment No."),FIELDCAPTION("Prepayment No. Series"));
 TestNoSeriesDate(
 "Prepmt. Cr. Memo No.","Prepmt. Cr. Memo No. Series",
 FIELDCAPTION("Prepmt. Cr. Memo No."),FIELDCAPTION("Prepmt. Cr. Memo No. Series"));

 VALIDATE("Document Date","Posting Date");

 IF ("Document Type" IN ["Document Type"::Invoice,"Document Type"::"Credit Memo"]) AND
 NOT ("Posting Date" = xRec."Posting Date")
 THEN
 PriceMessageIfSalesLinesExist(FIELDCAPTION("Posting Date"));

 IF "Currency Code" <> '' THEN BEGIN
 UpdateCurrencyFactor;
 IF "Currency Factor" <> xRec."Currency Factor" THEN
 ConfirmUpdateCurrencyFactor;
 END;
// End of the deleted lines.

END;

CaptionML=[ENU=Posting Date;
PTG=Data Registo] }
{ 21 ; ;Shipment Date ;Date ;OnValidate=BEGIN
...

      Aizstāšanas kods

      ...
END;

CaptionML=[ENU=Order Date;
PTG=Data Encomenda] }
{ 20 ; ;Posting Date ;Date ;OnValidate=BEGIN

// Add the following lines.
 IF "Posting Date" <> xRec."Posting Date" THEN BEGIN
 TestNoSeriesDate(
 "Posting No.","Posting No. Series",
 FIELDCAPTION("Posting No."),FIELDCAPTION("Posting No. Series"));
 TestNoSeriesDate(
 "Prepayment No.","Prepayment No. Series",
 FIELDCAPTION("Prepayment No."),FIELDCAPTION("Prepayment No. Series"));
 TestNoSeriesDate(
 "Prepmt. Cr. Memo No.","Prepmt. Cr. Memo No. Series",
 FIELDCAPTION("Prepmt. Cr. Memo No."),FIELDCAPTION("Prepmt. Cr. Memo No. Series"));

 VALIDATE("Document Date","Posting Date");

 IF ("Document Type" IN ["Document Type"::Invoice,"Document Type"::"Credit Memo"]) AND
 NOT ("Posting Date" = xRec."Posting Date")
 THEN
 PriceMessageIfSalesLinesExist(FIELDCAPTION("Posting Date"));

 IF "Currency Code" <> '' THEN BEGIN
 UpdateCurrencyFactor;
 IF "Currency Factor" <> xRec."Currency Factor" THEN
 ConfirmUpdateCurrencyFactor;
 END;
END;
// End of the added lines.

END;

CaptionML=[ENU=Posting Date;
PTG=Data Registo] }
{ 21 ; ;Shipment Date ;Date ;OnValidate=BEGIN
...

    2. Mainiet kodu funkcijā UpdatePmtDiscDate šādi:
      Esošais kods

      ...
IF NOT("Document Type" IN ["Document Type"::"Credit Memo", "Document Type"::"Return Order"]) THEN
"Pmt. Discount Date" := "Due Date";
END;

BEGIN
END.
}
}
...

      Aizstāšanas kods

      ...
IF NOT("Document Type" IN ["Document Type"::"Credit Memo", "Document Type"::"Return Order"]) THEN
"Pmt. Discount Date" := "Due Date";
END;

BEGIN

// Add the following lines.
 {
 <changelog>
 <change id="VSTF300295" dev="v-mokuma" feature="VSTF300295"
 date="2012-01-20" area="Sales" baseversion="PT6.00.01"
 releaseversion="PT6.00.02">
 Problem with number series with date order setting and batch posting
 </change>
 </changelog>
 }
// End of the added lines.

END.
}
}
...

  2. Mainiet kodu tabulā Pirkuma galvene (38). Lai to izdarītu, izpildiet šādas darbības:

    1. Mainiet kodu laukos šādi:
      Esošais kods

      ...
END;

CaptionML=[ENU=Order Date;
PTG=Data Encomenda] }
{ 20 ; ;Posting Date ;Date ;OnValidate=BEGIN

// Delete the following lines.
 TestNoSeriesDate(
 "Posting No.","Posting No. Series",
 FIELDCAPTION("Posting No."),FIELDCAPTION("Posting No. Series"));
 TestNoSeriesDate(
 "Prepayment No.","Prepayment No. Series",
 FIELDCAPTION("Prepayment No."),FIELDCAPTION("Prepayment No. Series"));
 TestNoSeriesDate(
 "Prepmt. Cr. Memo No.","Prepmt. Cr. Memo No. Series",
 FIELDCAPTION("Prepmt. Cr. Memo No."),FIELDCAPTION("Prepmt. Cr. Memo No. Series"));

 VALIDATE("Document Date","Posting Date");

 IF ("Document Type" IN ["Document Type"::Invoice,"Document Type"::"Credit Memo"]) AND
 NOT ("Posting Date" = xRec."Posting Date")
 THEN
 PriceMessageIfPurchLinesExist(FIELDCAPTION("Posting Date"));

 IF "Currency Code" <> '' THEN BEGIN
 UpdateCurrencyFactor;
 IF "Currency Factor" <> xRec."Currency Factor" THEN
 ConfirmUpdateCurrencyFactor;
 END;
 IF PurchLinesExist THEN
 JobUpdatePurchLines;
// End of the deleted lines.


END;

CaptionML=[ENU=Posting Date;
PTG=Data Registo] }
{ 21 ; ;Expected Receipt Date;Date ;OnValidate=BEGIN
...

      Aizstāšanas kods

      ...
END;

CaptionML=[ENU=Order Date;
PTG=Data Encomenda] }
{ 20 ; ;Posting Date ;Date ;OnValidate=BEGIN

// Add the following lines.
 IF "Posting Date" <> xRec."Posting Date" THEN BEGIN
 TestNoSeriesDate(
 "Posting No.","Posting No. Series",
 FIELDCAPTION("Posting No."),FIELDCAPTION("Posting No. Series"));
 TestNoSeriesDate(
 "Prepayment No.","Prepayment No. Series",
 FIELDCAPTION("Prepayment No."),FIELDCAPTION("Prepayment No. Series"));
 TestNoSeriesDate(
 "Prepmt. Cr. Memo No.","Prepmt. Cr. Memo No. Series",
 FIELDCAPTION("Prepmt. Cr. Memo No."),FIELDCAPTION("Prepmt. Cr. Memo No. Series"));

 VALIDATE("Document Date","Posting Date");

 IF ("Document Type" IN ["Document Type"::Invoice,"Document Type"::"Credit Memo"]) AND
 NOT ("Posting Date" = xRec."Posting Date")
 THEN
 PriceMessageIfPurchLinesExist(FIELDCAPTION("Posting Date"));

 IF "Currency Code" <> '' THEN BEGIN
 UpdateCurrencyFactor;
 IF "Currency Factor" <> xRec."Currency Factor" THEN
 ConfirmUpdateCurrencyFactor;
 END;
 IF PurchLinesExist THEN
 JobUpdatePurchLines;
 END;
// End of the added lines.

END;

CaptionML=[ENU=Posting Date;
PTG=Data Registo] }
{ 21 ; ;Expected Receipt Date;Date ;OnValidate=BEGIN
...

    2. Mainiet kodu funkcijā UpdatePmtDiscDate šādi:
      Esošais kods

      ...
IF NOT("Document Type" IN ["Document Type"::"Credit Memo", "Document Type"::"Return Order"]) THEN
"Pmt. Discount Date" := "Due Date";
END;

BEGIN
END.
}
}
...

      Aizstāšanas kods

      ...
IF NOT("Document Type" IN ["Document Type"::"Credit Memo", "Document Type"::"Return Order"]) THEN
"Pmt. Discount Date" := "Due Date";
END;

BEGIN

// Add the following lines.
 {
 <changelog>
 <change id="VSTF300295" dev="v-mokuma" feature="VSTF300295"
 date="2012-01-20" area="Sales" baseversion="PT6.00.01"
 releaseversion="PT6.00.02">
 Problem with number series with date order setting and batch posting
 </change>
 </changelog>
 }
// End of the added lines.

END.
}
}
...

  3. Mainiet kodu Sales-Post kodu (80). Lai to izdarītu, izpildiet šādas darbības:

    1. Mainiet rekvizītu kodu šādi:
      Esošais kods

      ...
DocType@1022 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,Shipment';
TempJnlLineDim2@1023 : TEMPORARY Record 356;
TempPrePmtAmtToDeduct@1003 : Decimal;
BEGIN
IF PostingDateExists AND (ReplacePostingDate OR ("Posting Date" = 0D)) THEN BEGIN

// Delete the following line.
"Posting Date" := PostingDate;

VALIDATE("Currency Code");
END;

IF PostingDateExists AND (ReplaceDocumentDate OR ("Document Date" = 0D)) THEN
VALIDATE("Document Date",PostingDate);
...

      Aizstāšanas kods

      ...
DocType@1022 : ' ,Payment,Invoice,Credit Memo,Finance Charge Memo,Reminder,Refund,Shipment';
TempJnlLineDim2@1023 : TEMPORARY Record 356;
TempPrePmtAmtToDeduct@1003 : Decimal;
BEGIN
IF PostingDateExists AND (ReplacePostingDate OR ("Posting Date" = 0D)) THEN BEGIN


// Add the following line.
VALIDATE("Posting Date",PostingDate);

VALIDATE("Currency Code");
END;

IF PostingDateExists AND (ReplaceDocumentDate OR ("Document Date" = 0D)) THEN
VALIDATE("Document Date",PostingDate);
...

    2. Mainiet kodu funkcijā ItemLedgerEntryExist šādi:
      Esošais kods

      ...
EXIT(HasItemLedgerEntry);
END;

BEGIN
END.
}
}
...

      Aizstāšanas kods

      ...
EXIT(HasItemLedgerEntry);
END;

BEGIN

// Add the following lines.
 {
 <changelog>
 <change id="VSTF300295" dev="v-mokuma" feature="VSTF300295"
 date="2012-01-20" area="Sales" baseversion="PT6.00.01"
 releaseversion="PT6.00.02">
 Problem with number series with date order setting and batch posting
 </change>
 </changelog>
 }
// End of the added lines.

END.
}
}
...

  4. Mainiet rekvizītu kodu lodziņā Purch.-Post codeunit (90) šādi:
    Esošais kods

    ...
TrackingSpecificationExists@1010 : Boolean;
EndLoop@1009 : Boolean;
TempPrePmtAmtToDeduct@1004 : Decimal;
BEGIN
IF PostingDateExists AND (ReplacePostingDate OR ("Posting Date" = 0D)) THEN BEGIN

// Delete the following line.
"Posting Date" := PostingDate;


VALIDATE("Currency Code");
END;

IF PostingDateExists AND (ReplaceDocumentDate OR ("Document Date" = 0D)) THEN
VALIDATE("Document Date",PostingDate);
...

    Aizstāšanas kods

    ...
TrackingSpecificationExists@1010 : Boolean;
EndLoop@1009 : Boolean;
TempPrePmtAmtToDeduct@1004 : Decimal;
BEGIN
IF PostingDateExists AND (ReplacePostingDate OR ("Posting Date" = 0D)) THEN BEGIN


// Add the following line.
VALIDATE("Posting Date",PostingDate);

VALIDATE("Currency Code");
END;

IF PostingDateExists AND (ReplaceDocumentDate OR ("Document Date" = 0D)) THEN
VALIDATE("Document Date",PostingDate);
...

Priekšnosacījumi

Lai lietotu šo labojumfailu, ir jābūt instalētam vienam no šiem produktiem:

  • Microsoft Dynamics NAV 2009 R2 portugāļu valodas versija
  • Microsoft Dynamics NAV 2009 1. servisa pakotnes portugāļu valodas versija

Noņemšanas informācija

Šo labojumfailu nevar noņemt.

Statuss

Microsoft apstiprināja, ka šī ir problēma Microsoft produktos, kas norādīti sadaļā "attiecas uz".

Piezīme Šis ir "ĀTRĀS PUBLICĒŠANAS" raksts, kas izveidots tieši Microsoft atbalsta organizācijā. Šeit ietvertā informācija tiek sniegta tāda, kāda tā ir, reaģējot uz jauniem jautājumiem. Ātrās pieejamības rezultātā materiālos var būt drukas kļūdas, un tos var pārskatīt jebkurā laikā bez iepriekšēja brīdinājuma. Citus apsvērumus skatiet lietošanas nosacījumos .