Txt failą, kuris yra eksportuojamas iš PVM ataskaitos yra neteisinga "" Microsoft Dynamics NAV 2009 m. portugalų kalba

Šios problemos kyla dėl:

Bazės ir sumą reikšmės yra suapvalinus.
Visas eilutes yra neteisingas ir sukuria toliau nurodytas klaidos pranešimas, kai bando pateikti AT puslapio failą:

60201201 777777777

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

Microsoft Dynamics NAV 2009 R2 portugalų kalba
Portugalijos versijoje 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ą.

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:

Pakeisti InsertECDeclarationTrailer funkcija PVM ataskaitos failo buferis lentelėje (13380):
Esamų co de

...BEGIN
      NewLine;
      //NAVPTL005.001,o InsertIntegerValue (89, 2);

// Delete the following line.
     InsertIntegerValue (98, 2);  //NAVPTL005.001,n

      InsertIntegerValue (LineNumber, 9);
      PadLinetill134Characters(Blank);
    END;
...

Pastaba.

...BEGIN
      NewLine;
      //NAVPTL005.001,o InsertIntegerValue (89, 2);

// Add the following lines.
     //PT355807,o InsertIntegerValue (98, 2);  //NAVPTL005.001,n
     InsertIntegerValue (89, 2); //PT355807,n
// End of the added lines.

      InsertIntegerValue (LineNumber, 9);
      PadLinetill134Characters(Blank);
    END;
...

Pakeisti InsertAnnex4041CustomerLine funkcija PVM ataskaitos failo buferis lentelėje (13380):
Esamas kodas

...InsertIntegerValue (pLineNumber, 5);
      InsertTextValue (pVATAnnexSetup."Tax Authority Code",2,Blank);
      InsertTextValue (pVATRegNo, 9,Blank);

// Delete the following lines.
     InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
     InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
// End of the deleted lines.

      InsertTextValue (Blank,92,Blank);
    END;
...

Pastaba.

...InsertIntegerValue (pLineNumber, 5);
      InsertTextValue (pVATAnnexSetup."Tax Authority Code",2,Blank);
      InsertTextValue (pVATRegNo, 9,Blank);

// Add the following lines.
     //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
     //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
     InsertIntegerValue(ABS(ROUND(pVATEntry.Base*100,1,'<')),12); //PT355807,n
     InsertIntegerValue(ABS(ROUND(pVATEntry.Amount*100,1,'<')),12); //PT355807,n
// End of the added lines.

      InsertTextValue (Blank,92,Blank);
    END;
...

Pakeisti InsertAnnex4041DocumentLine funkcija PVM ataskaitos failo buferis lentelėje (13380):
Esamas kodas

...InsertIntegerValue (pLineNumber, 5);
      InsertTextValue (pVATAnnexSetup."Tax Authority Code",2,Blank);
      InsertTextValue(pDocNo,13,Blank);

// Delete the following line.
     InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);

      InsertTextValue (Blank,100,Blank);
    END;
...

Pastaba.

...InsertIntegerValue (pLineNumber, 5);
      InsertTextValue (pVATAnnexSetup."Tax Authority Code",2,Blank);
      InsertTextValue(pDocNo,13,Blank);

// Add the following lines.
     //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
     InsertIntegerValue(ABS(ROUND(pVATEntry.Amount*100,1,'<')),12); //PT355807,n
// End of the added lines.      

InsertTextValue (Blank,100,Blank);
    END;
...

Pakeisti InsertAnnex4041ReasonLine funkcija PVM ataskaitos failo buferis lentelėje (13380):
Esamas kodas 1

...InsertTextValue (Blank,100,Blank);
    END;

// Delete the following lines.
   PROCEDURE InsertAnnex4041ReasonLine@1000000003(pVATAnnexSetup@1000000000 : Record 13386;pVATEntry@1000000003 : Record 254);
   BEGIN
     NewLine;
     InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
     IF pVATAnnexSetup.Frame = pVATAnnexSetup.Frame::"2" THEN BEGIN
       InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
       InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
       InsertTextValue (Blank,50,Blank);
// End of the deleted lines.

      END;

IF pVATAnnexSetup.Frame = pVATAnnexSetup.Frame::"3" THEN BEGIN
...

Atsarginis kodas 1

...InsertTextValue (Blank,100,Blank);
    END;

// Add the following lines.
   PROCEDURE InsertAnnex4041ReasonLine@1000000003(pVATAnnexSetup@1000000000 : Record 13386;pVATEntry@1000000003 : Record 254;LineNo@1000000001 : Integer);
   BEGIN
     //PT355807,o NewLine;
     //PT355807,o InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
     IF pVATAnnexSetup.Frame = pVATAnnexSetup.Frame::"2" THEN BEGIN
       //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
       //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
       //PT355807,o InsertTextValue (Blank,50,Blank);
//PT355807,sn
       IF (pVATAnnexSetup.SubSection = 'a') OR (pVATAnnexSetup.SubSection = '') THEN BEGIN
         NewLine;
         InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
       END;
       IF (pVATAnnexSetup.SubSection = 'b') AND (LineNo=1) THEN BEGIN
         NewLine;
         InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
         InsertIntegerValue(0,24);
       END;
       InsertIntegerValue(ABS(ROUND(pVATEntry.Base*100,1,'<')),12);
       InsertIntegerValue(ABS(ROUND(pVATEntry.Amount*100,1,'<')),12);
       //PT355807,en
// End of the added lines.

      END;

      IF pVATAnnexSetup.Frame = pVATAnnexSetup.Frame::"3" THEN BEGIN
...

Esamas kodas 2

...IF pVATAnnexSetup.Frame = pVATAnnexSetup.Frame::"3" THEN BEGIN
        IF (pVATAnnexSetup.SubSection = 'a') OR (pVATAnnexSetup.SubSection = 'A') THEN BEGIN

// Delete the following lines.
         InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
         InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
       END;
       IF (pVATAnnexSetup.SubSection = 'b') OR (pVATAnnexSetup.SubSection = 'B') THEN BEGIN
         InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
         InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
// End of the deleted lines.

        END;
      END;
...

Atsarginis kodas 2

...IF pVATAnnexSetup.Frame = pVATAnnexSetup.Frame::"3" THEN BEGIN
        IF (pVATAnnexSetup.SubSection = 'a') OR (pVATAnnexSetup.SubSection = 'A') THEN BEGIN

// Add the following lines.
         //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
         //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
         //PT355807,sn
         IF (LineNo=1) THEN BEGIN
           NewLine;
           InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
InsertIntegerValue(0,24);
         END;
InsertIntegerValue(ABS(ROUND(pVATEntry.Base*100,1,'<')),12);
InsertIntegerValue(ABS(ROUND(pVATEntry.Amount*100,1,'<')),12);
         //PT355807,en
       END;
       IF (pVATAnnexSetup.SubSection = 'b') OR (pVATAnnexSetup.SubSection = 'B') THEN BEGIN
         //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Base,1,'<')*100),12);
         //PT355807,o InsertIntegerValue(ABS(ROUND(pVATEntry.Amount,1,'<')*100),12);
//PT355807,sn
         IF (LineNo=1) THEN BEGIN
           NewLine;
           InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
           InsertIntegerValue(0,48);
         END;
         InsertIntegerValue(ABS(ROUND(pVATEntry.Base*100,1,'<')),12);
        InsertIntegerValue(ABS(ROUND(pVATEntry.Amount*100,1,'<')),12);
         //PT355807,en
// End of the added lines.

        END;
      END;
...

Esamas kodas 3

...END;
      END;

// Delete the following lines.
     InsertTextValue (Blank,48,Blank);;
   END;

   PROCEDURE LastVATAnnex40Line@1000000006(pVATregNo@1000000000 : Text[9];pResumes@1000000001 : ARRAY [10] OF Integer);
   BEGIN
// End of the deleted lines.

      NewLine;
      InsertTextValue ('96',2,Blank);
      InsertIntegerValue (1, 5);
...

Pakeitimo kodas 3

...END;
      END;

// Add the following lines.
     //PT355807,o InsertTextValue (Blank,48,Blank);
END;

   PROCEDURE LastVATAnnex40Line@1000000006(pTotalAmount@1000000002 : Decimal;pVATregNo@1000000000 : Text[9];pResumes@1000000001 : ARRAY [10] OF Integer);
   BEGIN
     //PT355807,o NewLine;
     InsertIntegerValue(ABS(ROUND(pTotalAmount*100,1,'<')),12);
     InsertTextValue (Blank,48,Blank);
     InsertVAT40LastLine(24);
// End of the added lines.

      NewLine;
      InsertTextValue ('96',2,Blank);
      InsertIntegerValue (1, 5);
...

Pakeisti LastVATAnnex40Line funkcija PVM ataskaitos failo buferis lentelėje (13380):
Esamas kodas 1

...InsertTextValue (Blank,118,Blank);
      NewLine;
      InsertTextValue ('69',2,Blank);

// Delete the following line.
     InsertIntegerValue (pResumes[1], 5);

      InsertIntegerValue (pResumes[2], 5);
      InsertIntegerValue (pResumes[3], 5);
      InsertIntegerValue (pResumes[4], 5);
...

Atsarginis kodas 1

...InsertTextValue (Blank,118,Blank);
      NewLine;
      InsertTextValue ('69',2,Blank);

// Add the following line.
     //PT355807,o InsertIntegerValue (pResumes[1], 5);

      InsertIntegerValue (pResumes[2], 5);
      InsertIntegerValue (pResumes[3], 5);
      InsertIntegerValue (pResumes[4], 5);
...

Esamas kodas 2

...InsertIntegerValue (pResumes[7], 5);
      InsertIntegerValue (pResumes[8], 5);
      InsertIntegerValue (1, 5);
    END;

    PROCEDURE LastVATAnnex41Line@1000000004(pVATAnnexSetup@1000000001 : Record 13386;pTotalAmount@1000000000 : Decimal;pResumes@1000000002 : ARRAY [10] OF Integer);
...

Atsarginis kodas 2

...InsertIntegerValue (pResumes[7], 5);
      InsertIntegerValue (pResumes[8], 5);
      InsertIntegerValue (1, 5);

// Add the following line.
     InsertTextValue (Blank,94,Blank); //PT355807,n

    END;

    PROCEDURE LastVATAnnex41Line@1000000004(pVATAnnexSetup@1000000001 : Record 13386;pTotalAmount@1000000000 : Decimal;pResumes@1000000002 : ARRAY [10] OF Integer);
...

Pakeisti LastVATAnnex41Line funkcija PVM ataskaitos failo buferis lentelėje (13380):
Esamas kodas 1

...PROCEDURE LastVATAnnex41Line@1000000004(pVATAnnexSetup@1000000001 : Record 13386;pTotalAmount@1000000000 : Decimal;pResumes@1000000002 : ARRAY [10] OF Integer);
    BEGIN

// Delete the following lines.
     NewLine;
     InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
     InsertIntegerValue(ABS(ROUND(pTotalAmount,1,'<')*100),12);
     NewLine;
     InsertTextValue ('89',2,Blank);
     InsertIntegerValue (pResumes[1], 5);
// End of the deleted lines.

      InsertIntegerValue (pResumes[2], 5);
      InsertIntegerValue (pResumes[3], 5);
      InsertIntegerValue (pResumes[4], 5);
...

Atsarginis kodas 1

...PROCEDURE LastVATAnnex41Line@1000000004(pVATAnnexSetup@1000000001 : Record 13386;pTotalAmount@1000000000 : Decimal;pResumes@1000000002 : ARRAY [10] OF Integer);
    BEGIN

// Add the following lines.
     //PT355807,o NewLine;
     //PT355807,o InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
     InsertIntegerValue(ABS(ROUND(pTotalAmount*100,1,'<')),12);
     InsertTextValue (Blank,72,Blank);
     InsertVAT41LastLine(24);
     NewLine;
     InsertTextValue ('89',2,Blank);
     //PT355807,o InsertIntegerValue (pResumes[1], 5);
// End of the added lines.

      InsertIntegerValue (pResumes[2], 5);
      InsertIntegerValue (pResumes[3], 5);
      InsertIntegerValue (pResumes[4], 5);
...

Esamas kodas 2

...InsertIntegerValue (pResumes[4], 5);
      InsertIntegerValue (pResumes[5], 5);
      InsertIntegerValue (pResumes[6], 5);
    END;

    BEGIN
...

Atsarginis kodas 2

...InsertIntegerValue (pResumes[4], 5);
      InsertIntegerValue (pResumes[5], 5);
      InsertIntegerValue (pResumes[6], 5);

// Add the following lines.
     InsertIntegerValue (pResumes[7], 5); //PT355807,n
     InsertTextValue (Blank,104,Blank); //PT355807,n
   END;

   PROCEDURE InsertVAT40LastLine@1000000005(Size@1000000000 : Integer);
   BEGIN
     //PT355807,sn
     FIND('+');
     IF STRLEN("Line Value") <> 134 THEN BEGIN
       "Line Value" := COPYSTR("Line Value",1,50) + CONVERTSTR (FORMAT (0, Size, 0), Blank, HeadingZero) + COPYSTR("Line Value",51);
       MODIFY;
     END;
     //PT355807,en
   END;

   PROCEDURE InsertVAT41LastLine@1000000007(Size@1000000000 : Integer);
   BEGIN
     //PT355807,sn
     FIND('+');
     IF STRLEN("Line Value") <> 134 THEN BEGIN
       "Line Value" := COPYSTR("Line Value",1,26) + CONVERTSTR (FORMAT (0, Size, 0), Blank, HeadingZero) + COPYSTR("Line Value",27);
       MODIFY;
     END;
     //PT355807,en
   END;

   PROCEDURE LastVATAnnex40Line2@1000000009(pVATAnnexSetup@1000000003 : Record 13386;pTotalAmount@1000000002 : Decimal;pVATregNo@1000000000 : Text[9];pResumes@1000000001 : ARRAY [10] OF Integer);
   BEGIN
     //PT355807,sn
     NewLine;
     InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
     InsertIntegerValue(0,72);
     InsertIntegerValue(ABS(ROUND(pTotalAmount*100,1,'<')),12);
     InsertTextValue (Blank,48,Blank);
     NewLine;
     InsertTextValue ('96',2,Blank);
     InsertIntegerValue (1, 5);
     InsertTextValue(pVATregNo,9,Blank);
     InsertTextValue (Blank,118,Blank);
     NewLine;
     InsertTextValue ('69',2,Blank);
     InsertIntegerValue (pResumes[2], 5);
     InsertIntegerValue (pResumes[3], 5);
     InsertIntegerValue (pResumes[4], 5);
     InsertIntegerValue (pResumes[5], 5);
     InsertIntegerValue (pResumes[6], 5);
     InsertIntegerValue (pResumes[7], 5);
     InsertIntegerValue (pResumes[8], 5);
     InsertIntegerValue (1, 5);
     InsertTextValue (Blank,92,Blank);
     //PT355807,en
   END;

   PROCEDURE LastVATAnnex41Line2@1000000008(pVATAnnexSetup@1000000001 : Record 13386;pTotalAmount@1000000000 : Decimal;pResumes@1000000002 : ARRAY [10] OF Integer);
   BEGIN
     //PT355807,sn
     NewLine;
     InsertTextValue (pVATAnnexSetup."Record Type",2,Blank);
     InsertIntegerValue(0,48);
     InsertIntegerValue(ABS(ROUND(pTotalAmount*100,1,'<')),12);
     InsertTextValue (Blank,72,Blank);
     NewLine;
     InsertTextValue ('89',2,Blank);
     InsertIntegerValue (pResumes[2], 5);
     InsertIntegerValue (pResumes[3], 5);
     InsertIntegerValue (pResumes[4], 5);
     InsertIntegerValue (pResumes[5], 5);
     InsertIntegerValue (pResumes[6], 5);
     InsertIntegerValue (pResumes[7], 5);
     InsertTextValue (Blank,102,Blank);
     //NAVPTL005.002,en
// End of the added lines.

    END;

    BEGIN
...

Pakeisti PVM ataskaita (PT) pranešime (13398) kodą taip:
Esamas kodas 1

...IF recVATAnnexSetup."Record Type" = LastRecordType THEN
                             LineNo += 1
                           ELSE BEGIN

//Delete the following lines.
                            IndiceArray += 1;
                            ResumeLines[IndiceArray] := LineNo;
                            LastRecordType := recVATAnnexSetup."Record Type";
                            LineNo := 1;
// End of the deleted lines.

                           END;

                           VATRepBuffer.InsertAnnex4041CustomerLine(recVATAnnexSetup,LineNo,"VAT Registration No.","VAT Entry Customer");
...

Atsarginis kodas 1

...IF recVATAnnexSetup."Record Type" = LastRecordType THEN
                             LineNo += 1
                           ELSE BEGIN

// Add the following lines.
                              //PT355807,o IndiceArray += 1;
                              //PT355807,sn
                              EVALUATE(recType,recVATAnnexSetup."Record Type");
                              IF AnnexFilter = 40 THEN
                                IndiceArray := recType - 60
                              ELSE
                                IndiceArray := recType - 80;
                              //PT355807,en
                              ResumeLines[IndiceArray] := LineNo;
                              LastRecordType := recVATAnnexSetup."Record Type";
                              LineNo := 1;
// End of the added lines.

                           END;

                           VATRepBuffer.InsertAnnex4041CustomerLine(recVATAnnexSetup,LineNo,"VAT Registration No.","VAT Entry Customer");
...

Esamas kodas 2

...IF recVATAnnexSetup."Record Type" = LastRecordType THEN
                             LineNo += 1
                           ELSE BEGIN

// Delete the following lines.
                            IndiceArray += 1;
                            ResumeLines[IndiceArray] := LineNo;
                            LastRecordType := recVATAnnexSetup."Record Type";
                            LineNo := 1;
// End of the deleted lines.

                           END;

                           VATRepBuffer.InsertAnnex4041DocumentLine(recVATAnnexSetup,LineNo,"External Document No.","VAT Entry Document No.");
...

Atsarginis kodas 2

...IF recVATAnnexSetup."Record Type" = LastRecordType THEN
                             LineNo += 1
                           ELSE BEGIN

// Add the following lines.
                              //PT355807,o IndiceArray += 1;
                              //PT355807,sn
                              EVALUATE(recType,recVATAnnexSetup."Record Type");
                              IF AnnexFilter = 40 THEN
                                IndiceArray := recType - 60
                              ELSE
                                IndiceArray := recType - 80;
                              //PT355807,en
                              ResumeLines[IndiceArray] := LineNo;
                              LastRecordType := recVATAnnexSetup."Record Type";
                              LineNo := 1;
// End of the added lines.

                           END;

                           VATRepBuffer.InsertAnnex4041DocumentLine(recVATAnnexSetup,LineNo,"External Document No.","VAT Entry Document No.");
...

Esamas kodas 3

...OnPostDataItem=BEGIN
                         CLEAR(recVATAnnexSetup);

// Delete the following lines.
                        recVATAnnexSetup.SETRANGE("Reason Code", "Reason Code");
                        IF recVATAnnexSetup.FINDFIRST THEN

                        IF AnnexFilter = 41 THEN
                          VATRepBuffer.LastVATAnnex41Line(recVATAnnexSetup,TotalVATAnnexAmount,ResumeLines);
// End of the deleted lines.

                       END;

        TotalFields=Base,Amount;
...

Pakeitimo kodas 3

...OnPostDataItem=BEGIN
                         CLEAR(recVATAnnexSetup);

// Add the following lines.
                        booTotal := FALSE;  //PT355807,n
                        recVATAnnexSetup.SETRANGE("Reason Code", "Reason Code");
                        //PT355807,o IF recVATAnnexSetup.FINDFIRST THEN
                        //PT355807,o IF AnnexFilter = 41 THEN
                        //PT355807,o   VATRepBuffer.LastVATAnnex41Line(recVATAnnexSetup,TotalVATAnnexAmount,ResumeLines);
                        //PT355807,sn
                        IF recVATAnnexSetup.FINDFIRST THEN BEGIN
                          IF AnnexFilter = 41 THEN BEGIN
                            booTotal := TRUE;
                            VATRepBuffer.LastVATAnnex41Line(recVATAnnexSetup,TotalVATAnnexAmount,ResumeLines);
                          END;

                          IF AnnexFilter = 40 THEN BEGIN
                            booTotal := TRUE;
                            VATRepBuffer.LastVATAnnex40Line(TotalVATAnnexAmount,FORMAT(FiscalNo),ResumeLines);
                          END;
                        END;
                        //PT355807,en
// End of the added lines.

                       END;

        TotalFields=Base,Amount;
...

Esamas kodas 4

...IF recVATAnnexSetup."Record Type" = LastRecordType THEN
                             LineNo += 1
                           ELSE BEGIN

// Delete the following lines.
                            IndiceArray += 1;
                            ResumeLines[IndiceArray] := LineNo;
                            LastRecordType := recVATAnnexSetup."Record Type";
                            LineNo := 1;
// End of the deleted lines.

                           END;

                           TotalVATAnnexBase += Base;
...

Pakeitimo kodekso 4

...IF recVATAnnexSetup."Record Type" = LastRecordType THEN
                             LineNo += 1
                           ELSE BEGIN

// Add the following lines.
                              //PT355807,o IndiceArray += 1;
                              //PT355807,sn
                              EVALUATE(recType,recVATAnnexSetup."Record Type");
                              IF AnnexFilter = 40 THEN
                                IndiceArray := recType - 60
                              ELSE
                                IndiceArray := recType - 80;
                              //PT355807,en
                              ResumeLines[IndiceArray] := LineNo;
                              LastRecordType := recVATAnnexSetup."Record Type";
                              LineNo := 1;
// End of the added lines.

                           END;

                           TotalVATAnnexBase += Base;
...

Esamas kodas 5

...RegistersNumber += 1;

// Delete the following line.
                          VATRepBuffer.InsertAnnex4041ReasonLine(recVATAnnexSetup,"VAT Entry Reason Code");

                         END;

          }
...

Pakeitimo kodas 5

...RegistersNumber += 1;


+                          //PT355807,o VATRepBuffer.InsertAnnex4041ReasonLine(recVATAnnexSetup,"VAT Entry Reason Code");
+                          VATRepBuffer.InsertAnnex4041ReasonLine(recVATAnnexSetup,"VAT Entry Reason Code",LineNo); //PT355807,n
                         END;

          }

Esamas kodas 6

...WHERE(Number=CONST(1));
        DataItemVarName=TotalInteger;
        OnAfterGetRecord=BEGIN

// Delete the following lines.
                          IF AnnexFilter = 40 THEN
                            VATRepBuffer.LastVATAnnex40Line(FORMAT(FiscalNo),ResumeLines);
// End of the deleted lines.

                         END;

      }
...

Pakeitimo kodas 6

...WHERE(Number=CONST(1));
        DataItemVarName=TotalInteger;
        OnAfterGetRecord=BEGIN

// Add the following lines.
                          //PT355807,o IF AnnexFilter = 40 THEN
                          //PT355807,o   VATRepBuffer.LastVATAnnex40Line(FORMAT(FiscalNo),ResumeLines);
                          //PT355807,sn
                          IF NOT booTotal THEN BEGIN
                            recVATAnnexSetup2.RESET;
                            recVATAnnexSetup2.SETFILTER(Annex, FORMAT(AnnexFilter));
                            IF recVATAnnexSetup2.FINDLAST THEN BEGIN
                              IF AnnexFilter = 40 THEN
                                VATRepBuffer.LastVATAnnex40Line2(recVATAnnexSetup2,TotalVATAnnexAmount,FORMAT(FiscalNo),ResumeLines);

                              IF AnnexFilter = 41 THEN
                                VATRepBuffer.LastVATAnnex41Line2(recVATAnnexSetup2,TotalVATAnnexAmount,ResumeLines);
                            END;
                          END;
                          //PT355807,en
// End of the added lines.

                         END;

      }
...

Esamas kodas 7

...LastRecordType@1000000009 : Text[2];
      TotalVATAnnexBase@1000000005 : Decimal;
      TotalVATAnnexAmount@1000000006 : Decimal;

    PROCEDURE CalcLineTotal2C@1110001(VATStmtLine2@1110000 : Record 256;Level@1110001 : Integer) : Boolean;
    BEGIN
...

Pakeitimo kodas 7

...LastRecordType@1000000009 : Text[2];
      TotalVATAnnexBase@1000000005 : Decimal;
      TotalVATAnnexAmount@1000000006 : Decimal;

// Add the following lines.
     booTotal@1000000013 : Boolean;
     recVATAnnexSetup2@1000000014 : Record 13386;
     recType@1000000015 : Integer;
// End of the added lines.

    PROCEDURE CalcLineTotal2C@1110001(VATStmtLine2@1110000 : Record 256;Level@1110001 : Integer) : Boolean;
    BEGIN
...

Būtinosios sąlygos

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

Microsoft Dynamics NAV 2009 R2 portugalų kalba
Microsoft Dynamics NAV 2009 SP1 portugalų kalba

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.

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

Txt failą, kuris yra eksportuojamas iš PVM ataskaitos yra neteisinga "" Microsoft Dynamics NAV 2009 m. portugalų kalba

Sprendimas

Karštųjų pataisų informacija

Diegimo informacija

Pastaba.

Būtinosios sąlygos

Pašalinimo informacija

Būsena

Reikia daugiau pagalbos?

Norite daugiau parinkčių?

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimą!