تصدير مفتاح العملية دائماً ك "E" في الإقرار 349 في النسخة الإسبانية من Microsoft Dynamics NAV 2009

الأعراض

بعد تثبيت KB3036701 في النسخة الإسبانية من Microsoft Dynamics NAV 2009، يتم تصدير مفتاح العملية لبند تصحيح دائماً ك "هاء"، عندما يجب أن تعتمد على العملية السابقة الذي يتم تصحيحه. اتبع الخطوات الموجودة في المقطع تغييرات التعليمات البرمجية لحل هذه المشكلة. تحدث هذه المشكلة في المنتجات التالية:

النسخة الإسبانية من Microsoft Dynamics NAV 2009 R2
النسخة الإسبانية من Microsoft Dynamics NAV 2009 SP1

الحل

معلومات الإصلاح العاجل

الآن يتوفر إصلاح عاجل معتمد من Microsoft. ومع ذلك، هو فقط لتصحيح المشكلة الموضحة في هذه المقالة. تطبيقها فقط على الأنظمة التي تواجه هذه المشكلة بالتحديد. قد يتم إجراء اختبارات إضافية على هذا الإصلاح العاجل. ولذلك، إذا لم يكن تأثير المشكلة كبيرا، نوصي بالانتظار حتى الإصدار التالي من حزمة الخدمة Microsoft Dynamics NAV 2009 أو الإصدار Microsoft Dynamics التنقل التالي الذي يحتوي على هذا الإصلاح العاجل.ملاحظة: في بعض الحالات، يحدد المصروفات التي تحتسب عادة لدعم قد يتم إلغاء المكالمات إذا "أخصائي الدعم التقني" ل Microsoft Dynamics والمنتجات ذات الصلة أن تحديثًا معيناً سوف يعمل على حل المشكلة. سيتم اضافة تكاليف الدعم المعتادة على أسئلة الدعم الإضافية والمشاكل التي لا يأهل على حلها للتحديث المطلوب.

معلومات التثبيت

تقدم Microsoft أمثلة برمجية للتوضيح فقط، دون أي ضمان صريح أو ضمني. هذا يتضمن، على سبيل المثال لا الحصر، الضمانات الضمنية الخاصة بالتسويق أو الملاءمة لغرض معين. تفترض هذه المقالة أنك معتاد على لغة البرمجة التي يتم شرحها والأدوات المستخدمة لإنشاء الإجراءات وتصحيحها. يساعد مهندسو الدعم لدى Microsoft شرح وظيفة إجراء محدد. ومع ذلك، لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات تستوفي متطلبات محددة.ملاحظة: قبل تثبيت هذا الإصلاح العاجل، تأكد من تسجيل خروج النظام كافة المستخدمين عميل Microsoft Dynamics التنقل. ويشمل ذلك خدمات Microsoft Dynamics NAV تطبيق الملقم (NAS). يجب أن يكون عميل فقط المستخدم الذي تم تسجيل دخوله عند تطبيق هذا الإصلاح العاجل.لتطبيق هذا الإصلاح العاجل، يجب أن يكون لديك ترخيص مطور.نوصي بأن تعيين حساب المستخدم في إطار عمليات تسجيل دخول Windows أو في إطار "قاعدة بيانات تسجيل الدخول" بمعرف دور "رئيسي". إذا كان حساب المستخدم لا يمكن تعيين معرف دور "سوبر"، يجب التحقق من أن حساب المستخدم يملك الأذونات التالية:

إذن "تعديل" للكائن الذي سيتم تغيير.
إذن Execute للكائن 5210 معرف كائن النظام و نظام 9015 معرف الكائنالكائن.

ملاحظة: ليس لديك حق لمخازن البيانات ما لم يكن لديك لإجراء إصلاح البيانات.

تغييرات التعليمات البرمجية

ملاحظة: دوماً التعليمات البرمجية للاختبار إصلاح في بيئة تسيطر عليها قبل تطبيق إصلاحات لأجهزة الكمبيوتر الإنتاج.لحل هذه المشكلة، اتبع الخطوات التالية.

تغيير التعليمات البرمجية في البند رقم 5 من البيانات في تقرير إجراء الإقرار 349 (10710) كما يلي:التعليمات البرمجية الموجودة 1

...  // SETFILTER(Customer."Country/Region Code",'<>%1',CountryCode);
                          // es0014.begin
                          PreVATRegNo := '';
                          // es0013.end
                          // es0014.end
                        END;

          OnAfterGetRecord=VAR
                             VATEntry@1100001 : Record 254;
                             Amount@1100000 : ARRAY [3] OF Decimal;
...

استبدال رمز 1

...  // SETFILTER(Customer."Country/Region Code",'<>%1',CountryCode);
                          // es0014.begin
                          PreVATRegNo := '';
                          // es0013.end
                          // es0014.end

// Add the following line.
OperationKey := 'E';
// End of the added line.

                        END;

          OnAfterGetRecord=VAR
                             VATEntry@1100001 : Record 254;
                             Amount@1100000 : ARRAY [3] OF Decimal;
...

التعليمات البرمجية الموجودة 2

...CustVendCountry.GET(Customer2."Country/Region Code");
                                            // es0033.begin
                                              IF CustVendWarning349."EU Service" THEN BEGIN
                                                TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountEUService),3,13);
                                                TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountEUService),3,13);

                                                Txt :=
                                                  '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                  FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                  PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
...

استبدال رمز 2

...  CustVendCountry.GET(Customer2."Country/Region Code");
                                            // es0033.begin
                                              IF CustVendWarning349."EU Service" THEN BEGIN
                                                TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountEUService),3,13);
                                                TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountEUService),3,13);

// Add the following line.
OperationKey := 'S';
// End of the added line.

                                                Txt :=
                                                  '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                  FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                  PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
...

التعليمات البرمجية الموجودة 3

...Txt :=
                                                  '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                  FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                  PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Delete the following line.
'S' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the deleted line.

                                                  CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                  PADSTR('',322,' ');
                                                OutFile.WRITE(Txt);
                                              END ELSE
                                                IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
...

استبدال رمز 3

...Txt :=
                                                  '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                  FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                  PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Add the following line.
OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the added line.

                                                  CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                  PADSTR('',322,' ');
                                                OutFile.WRITE(Txt);
                                              END ELSE
                                                IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
...

التعليمات البرمجية الموجودة 4

...OutFile.WRITE(Txt);
                                              END ELSE
                                                IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
                                                  TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountTri),3,13);
                                                  TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountTri),3,13);

                                                  Txt :=
                                                    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
...

استبدال رمز 4

...                                                OutFile.WRITE(Txt);
                                              END ELSE
                                                IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
                                                  TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountTri),3,13);
                                                  TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountTri),3,13);

// Add the following line.
OperationKey := 'T';
// End of the added line.

                                                  Txt :=
                                                    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
...

التعليمات البرمجية الموجودة 5

... Txt :=
                                                    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Delete the following line.
'T' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the deleted line.

                                                    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                    PADSTR('',322,' ');
                                                  OutFile.WRITE(Txt);
                                                END ELSE BEGIN
                                                  FOR i := 1 TO 3 DO
...

استبدال رمز 5

...Txt :=
                                                    '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                    FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                    PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Add the following line.
OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the added line.

                                                    CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                    PADSTR('',322,' ');
                                                  OutFile.WRITE(Txt);
                                                END ELSE BEGIN
                                                  FOR i := 1 TO 3 DO
...

التعليمات البرمجية الموجودة 6

...END ELSE BEGIN
                                                  FOR i := 1 TO 3 DO
                                                    IF (AccPrevDeclAmount[i] <> 0) AND (AccOrigDeclAmount[i] <> 0) THEN BEGIN
                                                      TextAmount := COPYSTR(FormatTextAmt(AccPrevDeclAmount[i]),3,13);
                                                      TextAmount2 := COPYSTR(FormatTextAmt(AccOrigDeclAmount[i]),3,13);

                                                      Txt :=
                                                        '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                        PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
...

استبدال رمز 6

... END ELSE BEGIN
                                                  FOR i := 1 TO 3 DO
                                                    IF (AccPrevDeclAmount[i] <> 0) AND (AccOrigDeclAmount[i] <> 0) THEN BEGIN
                                                      TextAmount := COPYSTR(FormatTextAmt(AccPrevDeclAmount[i]),3,13);
                                                      TextAmount2 := COPYSTR(FormatTextAmt(AccOrigDeclAmount[i]),3,13);

// Add the following line.
OperationKey := OperationCode[i];
// End of the added line.

                                                      Txt :=
                                                        '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                        PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
...

التعليمات البرمجية الموجودة 7

...Txt :=
                                                        '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                        PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Delete the following line.
OperationCode[i] + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the deleted line.

                                                        CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                        //PADSTR('',72,' ');
                                                        PADSTR('',322,' ');
                                                      OutFile.WRITE(Txt);
                                                    END;
...

رمز الاستبدال 7

... Txt :=
                                                        '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                        FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                        PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Add the following line.
OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the added line.

                                                        CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                        //PADSTR('',72,' ');
                                                        PADSTR('',322,' ');
                                                      OutFile.WRITE(Txt);
                                                    END;
...

التعليمات البرمجية الموجودة 8

... IF Amount[i] <> 0 THEN BEGIN
                                     IF Amount[i] < 0 THEN
                                       Amount[i] := -Amount[i];
                                    TextAmount := COPYSTR(FormatTextAmt(Amount[i]),3,13);
                                    CustVendCountry.GET(Customer2."Country/Region Code");

// Delete the following lines.
Txt :=
'2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
OperationCode[i] + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
// End of the deleted lines.

NoOperations := NoOperations + 1;
                                    TotalAmtShip := TotalAmtShip + Amount[i];
                                    OutFile.WRITE(Txt);
                                   END;
                                 IF AmountOpTri < 0 THEN
...

استبدال رمز 8

...IF Amount[i] <> 0 THEN BEGIN
                                     IF Amount[i] < 0 THEN
                                       Amount[i] := -Amount[i];
                                    TextAmount := COPYSTR(FormatTextAmt(Amount[i]),3,13);
                                    CustVendCountry.GET(Customer2."Country/Region Code");

// Add the following lines.
OperationKey := OperationCode[i];
Txt :=
'2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
OperationKey + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
// End of the added lines.

NoOperations := NoOperations + 1;
                                    TotalAmtShip := TotalAmtShip + Amount[i];
                                    OutFile.WRITE(Txt);
                                   END;
                                 IF AmountOpTri < 0 THEN
...

التعليمات البرمجية الموجودة 9

... //   FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                   //   PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                   //   'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
                                   // // es0019.end
                                   CustVendCountry.GET(Customer2."Country/Region Code");
                                   Txt :=
                                     '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                     FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                     PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                     // es0033.begin
...

استبدال التعليمات البرمجية 9

... //   FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                   //   PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                   //   'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
                                   // // es0019.end
                                   CustVendCountry.GET(Customer2."Country/Region Code");

// Add the following line.
OperationKey := 'T';
// End of the added line.

                                   Txt :=
                                     '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                     FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                     PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                     // es0033.begin
...

التعليمات البرمجية الموجودة 10

... '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                     FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                     PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                     // es0033.begin
                                     //'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');

// Delete the following line.
'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
// End of the deleted line.

                                     // es0033.end
                                   // es0020.end
                                   NoOperations := NoOperations + 1;
                                   TotalAmtShip := TotalAmtShip + AmountOpTri;
                                   OutFile.WRITE(Txt);
...

استبدال الرمز 10

...'2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                     FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                     PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                     // es0033.begin
                                     //'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');

// Add the following line.
OperationKey + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
// End of the added line.

                                     // es0033.end
                                   // es0020.end
                                   NoOperations := NoOperations + 1;
                                   TotalAmtShip := TotalAmtShip + AmountOpTri;
                                   OutFile.WRITE(Txt);
...

التعليمات البرمجية الموجودة 11

...IF AmountEUService < 0 THEN
                                   AmountEUService := -AmountEUService;
                                 IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN
                                   TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13);
                                   CustVendCountry.GET(Customer2."Country/Region Code");

// Delete the following lines.
Txt :=
'2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
'S' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
// End of the deleted lines.

NoOperations := NoOperations + 1;
                                   TotalAmtShip := TotalAmtShip + AmountEUService;
                                   OutFile.WRITE(Txt);
                                 END;
                                 IF IsCreditMomoPrinted THEN BEGIN
...

استبدال التعليمات البرمجية 11

...IF AmountEUService < 0 THEN
                                   AmountEUService := -AmountEUService;
                                 IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN
                                   TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13);
                                   CustVendCountry.GET(Customer2."Country/Region Code");

// Add the following lines.
OperationKey := 'S';
Txt :=
'2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
OperationKey + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
// End of the added lines.

NoOperations := NoOperations + 1;
                                   TotalAmtShip := TotalAmtShip + AmountEUService;
                                   OutFile.WRITE(Txt);
                                 END;
                                 IF IsCreditMomoPrinted THEN BEGIN
...

التعليمات البرمجية الموجودة 12

...CustVendCountry.GET(Customer2."Country/Region Code");
                                   Txt :=
                                     '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                     FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                     PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Delete the following line.
'E' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the deleted line.

                                     CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                     PADSTR('',322,' ');
                                   NoOperations += 1;
                                   TotalAmtShip += AmountEUService;
                                   OutFile.WRITE(Txt);
...

استبدال رمز 12

...CustVendCountry.GET(Customer2."Country/Region Code");
                                   Txt :=
                                     '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                     FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                     PADSTR(CONVERTSTR(UPPERCASE(Customer2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Add the folloiwng line.
OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the added line.

                                     CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                     PADSTR('',322,' ');
                                   NoOperations += 1;
                                   TotalAmtShip += AmountEUService;
                                   OutFile.WRITE(Txt);
...

تغيير التعليمات البرمجية في بيانات العنصر رقم 6 في التقرير Make349Declaration (10710) كما يلي:التعليمات البرمجية الموجودة 1

...  // SETFILTER(Vendor."Country/Region Code",'<>%1',CountryCode);
                          // es0014.begin
                          PreVATRegNo := '';
                          // es0014.end
                          // es0013.end
                        END;

          OnAfterGetRecord=VAR
                             AppliedAmt@1100000 : Decimal;
                             PurchCreditMemoOrgDeclaredAmt@1100001 : Decimal;
...

استبدال رمز 1

... // SETFILTER(Vendor."Country/Region Code",'<>%1',CountryCode);
                          // es0014.begin
                          PreVATRegNo := '';
                          // es0014.end
                          // es0013.end

// Add the following line.
OperationKey := 'A';
// End of the added line.

                        END;

          OnAfterGetRecord=VAR
                             AppliedAmt@1100000 : Decimal;
                             PurchCreditMemoOrgDeclaredAmt@1100001 : Decimal;
...

التعليمات البرمجية الموجودة 2

...// es0033.begin
                                           IF CustVendWarning349."EU Service" THEN BEGIN
                                             TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountEUService),3,13);
                                             TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountEUService),3,13);

                                             Txt :=
                                               '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                               FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                               PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
...

استبدال رمز 2

... // es0033.begin
                                           IF CustVendWarning349."EU Service" THEN BEGIN
                                             TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountEUService),3,13);
                                             TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountEUService),3,13);

// Add the following line.
OperationKey := 'I';
// End of the added line.

                                             Txt :=
                                               '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                               FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                               PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
...

التعليمات البرمجية الموجودة 3

... Txt :=
                                               '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                               FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                               PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Delete the following line.
'I' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the deleted line.

                                               CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                               PADSTR('',322,' ');
                                             OutFile.WRITE(Txt);
                                           END ELSE
                                             IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
...

استبدال رمز 3

...Txt :=
                                               '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                               FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                               PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Add the following line.
OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the added line.

                                               CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                               PADSTR('',322,' ');
                                             OutFile.WRITE(Txt);
                                           END ELSE
                                             IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
...

التعليمات البرمجية الموجودة 4

... OutFile.WRITE(Txt);
                                           END ELSE
                                             IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
                                               TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountTri),3,13);
                                               TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountTri),3,13);

                                               Txt :=
                                                 '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                 FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                 PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
...

استبدال رمز 4

... OutFile.WRITE(Txt);
                                           END ELSE
                                             IF CustVendWarning349."EU 3-Party Trade" THEN BEGIN
                                               TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmountTri),3,13);
                                               TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmountTri),3,13);

// Add the following line.
OperationKey := 'T';
// End of the added line.

                                               Txt :=
                                                 '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                 FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                 PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
...

التعليمات البرمجية الموجودة 5

...Txt :=
                                                 '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                 FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                 PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Delete the following line.
'T' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the deleted line.

                                                 CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                 PADSTR('',322,' ');
                                               OutFile.WRITE(Txt);
                                             END ELSE BEGIN
                                               TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmount),3,13);
...

استبدال رمز 5

...Txt :=
                                                 '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                 FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                 PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Add the following line.
OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the added line.

                                                 CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                 PADSTR('',322,' ');
                                               OutFile.WRITE(Txt);
                                             END ELSE BEGIN
                                               TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmount),3,13);
...

التعليمات البرمجية الموجودة 6

... PADSTR('',322,' ');
                                               OutFile.WRITE(Txt);
                                             END ELSE BEGIN
                                               TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmount),3,13);
                                               TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmount),3,13);
                                           // es0033.end
                                               Txt :=
                                                 '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                 FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                 PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
...

استبدال رمز 6

...PADSTR('',322,' ');
                                               OutFile.WRITE(Txt);
                                             END ELSE BEGIN
                                               TextAmount := COPYSTR(FormatTextAmt(AccumPrevDeclAmount),3,13);
                                               TextAmount2 := COPYSTR(FormatTextAmt(AccumOrigDeclAmount),3,13);

// Add the following line.
OperationKey := 'A';
// End of the added line.

                                           // es0033.end
                                               Txt :=
                                                 '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                 FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                 PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
...

التعليمات البرمجية الموجودة 7

... // es0033.end
                                               Txt :=
                                                 '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                 FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                 PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Delete the following line.
'A' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the deleted line.

                                                 CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                 // es0033.begin
                                                 //PADSTR('',72,' ');
                                                 PADSTR('',322,' ');
                                                 // es0033.end
...

رمز الاستبدال 7

...// es0033.end
                                               Txt :=
                                                 '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                                 FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                                 PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Add the following line.
OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the added line.

                                                 CustVendWarning349."Original Declaration Period" + TextAmount2 + TextAmount +
                                                 // es0033.begin
                                                 //PADSTR('',72,' ');
                                                 PADSTR('',322,' ');
                                                 // es0033.end
...

التعليمات البرمجية الموجودة 8

... //   FORMAT(CustVendVatRegNo,15) +
                                   //   PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                   //   'A' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
                                   // // es0016.end
                                   CustVendCountry.GET(Vendor2."Country/Region Code");
                                   Txt :=
                                     '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                     FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                     PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                     // es0033.begin
...

استبدال رمز 8

... //   FORMAT(CustVendVatRegNo,15) +
                                   //   PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                   //   'A' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
                                   // // es0016.end
                                   CustVendCountry.GET(Vendor2."Country/Region Code");

// Add the following line.
OperationKey := 'A';
// End of the added line.

                                   Txt :=
                                     '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                     FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                     PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                     // es0033.begin
...

التعليمات البرمجية الموجودة 9

... '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                     FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                     PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                     // es0033.begin
                                     //'A' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');

// Delete the following line.
'A' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
// End of the deleted line.

                                     // es0033.end
                                   // es0019.end
                                   NoOperations := NoOperations + 1;
                                   TotalAmtReciv := TotalAmtReciv + NormalAmount;
                                   OutFile.WRITE(Txt);
...

استبدال التعليمات البرمجية 9

... '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                     FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                     PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                     // es0033.begin
                                     //'A' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');

// Add the following line.
OperationKey + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
// End of the added line.

                                     // es0033.end
                                   // es0019.end
                                   NoOperations := NoOperations + 1;
                                   TotalAmtReciv := TotalAmtReciv + NormalAmount;
                                   OutFile.WRITE(Txt);
...

التعليمات البرمجية الموجودة 10

... //   FORMAT(CustVendVatRegNo,15) +
                                   //   PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                   //   'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
                                   // // es0016.end
                                   CustVendCountry.GET(Vendor2."Country/Region Code");
                                   Txt :=
                                     '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                     FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                     PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                     // es0033.begin
...

استبدال الرمز 10

... //   FORMAT(CustVendVatRegNo,15) +
                                   //   PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                   //   'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');
                                   // // es0016.end
                                   CustVendCountry.GET(Vendor2."Country/Region Code");

// Add the following line.
OperationKey := 'T';
// End of the added line.

                                   Txt :=
                                     '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                     FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                     PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                     // es0033.begin
...

التعليمات البرمجية الموجودة 11

... '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                     FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                     PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                     // es0033.begin
                                     //'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');

// Delete the following line.
'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
// End of the deleted line.

                                     // es0033.end
                                   // es0019.end
                                   NoOperations := NoOperations + 1;
                                   TotalAmtReciv := TotalAmtReciv + AmountOpTri;
                                   OutFile.WRITE(Txt);
...

استبدال التعليمات البرمجية 11

... '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                     FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                     PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
                                     // es0033.begin
                                     //'T' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',104,' ');

// Add the following line.
OperationKey + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
// End of the added line.

                                     // es0033.end
                                   // es0019.end
                                   NoOperations := NoOperations + 1;
                                   TotalAmtReciv := TotalAmtReciv + AmountOpTri;
                                   OutFile.WRITE(Txt);
...

التعليمات البرمجية الموجودة 12

...IF AmountEUService < 0 THEN
                                 AmountEUService := -AmountEUService;
                               IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN
                                 TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13);
                                 CustVendCountry.GET(Vendor2."Country/Region Code");

// Delete the following lines.
Txt :=
'2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
'I' + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
// End of the deleted lines.

NoOperations := NoOperations + 1;
                                 TotalAmtReciv := TotalAmtReciv + AmountEUService;
                                 OutFile.WRITE(Txt);
                               END;
                               // es0033.end
...

استبدال رمز 12

...IF AmountEUService < 0 THEN
                                 AmountEUService := -AmountEUService;
                               IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN
                                 TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13);
                                 CustVendCountry.GET(Vendor2."Country/Region Code");

// Add the following lines.
OperationKey := 'I';
Txt :=
'2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +
OperationKey + CONVERTSTR(TextAmount,' ','0') + PADSTR('',354,' ');
// End of the added lines.

NoOperations := NoOperations + 1;
                                 TotalAmtReciv := TotalAmtReciv + AmountEUService;
                                 OutFile.WRITE(Txt);
                               END;
                               // es0033.end
...

التعليمات البرمجية الموجودة 13

... CustVendCountry.GET(Customer2."Country/Region Code");
                               Txt :=
                                 '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                 FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                 PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Delete the following line.
'E' + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the deleted line.

                                 CustVendWarning349."Original Declaration Period" + TextAmount +
                                 PADSTR('',322,' ');
                               NoOperations += 1;
                               TotalAmtShip += AmountEUService;
                               OutFile.WRITE(Txt);
...

استبدال رمز 13

...CustVendCountry.GET(Customer2."Country/Region Code");
                               Txt :=
                                 '2' + '349' + FiscalYear + PADSTR(VatRegNo,9,' ') + PADSTR('',58,' ') +
                                 FORMAT(CustVendCountry."EU Country/Region Code",2) + FORMAT(CustVendVatRegNo,15) +
                                 PADSTR(CONVERTSTR(UPPERCASE(Vendor2.Name),'µ·ÔÖÞàãéë¥š€()"&ï','AAEEIIOOUUÑUÇ     '),40,' ') +

// Add the following line.
OperationKey + PADSTR('',13,' ') + CustVendWarning349."Original Declaration FY" +
// End of the added line.

                                 CustVendWarning349."Original Declaration Period" + TextAmount +
                                 PADSTR('',322,' ');
                               NoOperations += 1;
                               TotalAmtShip += AmountEUService;
                               OutFile.WRITE(Txt);
...

تغيير التعليمات البرمجية في "المتغيرات العمومية" في تقرير إجراء الإقرار 349 (10710) كما يلي:التعليمات البرمجية الموجودة

...EUServiceAlreadyExported@1100077 : Boolean;
        ThirdPartyAlreadyExported@1100078 : Boolean;
        FileNameControlVisible@19024830 : Boolean INDATASET;
        PeriodFrequencyChangeEnable@19073723 : Boolean INDATASET;
        Idx@1100080 : ',E,M,H';

      PROCEDURE FormatTextAmt@1100101(Amount@1100100 : Decimal) : Text[15];
      VAR
        TextAmt@1100101 : Text[15];
      BEGIN
...

استبدال التعليمات البرمجية

...EUServiceAlreadyExported@1100077 : Boolean;
        ThirdPartyAlreadyExported@1100078 : Boolean;
        FileNameControlVisible@19024830 : Boolean INDATASET;
        PeriodFrequencyChangeEnable@19073723 : Boolean INDATASET;
        Idx@1100080 : ',E,M,H';

// Add the following line.
OperationKey@1100026 : Text[1];
// End of the added line.

      PROCEDURE FormatTextAmt@1100101(Amount@1100100 : Decimal) : Text[15];
      VAR
        TextAmt@1100101 : Text[15];
      BEGIN
...

تغيير التعليمات البرمجية في وظيفة جيتبوستيدكونتريلوككودي في تقرير إجراء الإقرار 349 (10710) كما يلي:التعليمات البرمجية الموجودة 1

...IF Location.GET(SalesInvLines."Location Code") THEN
                                    EUCountryLinesLocationCode := FindEUCountryRegionCode(Location."Country/Region Code");
                                  IF EUCountryLinesLocationCode THEN BEGIN
                                    AmountToIncludeIn349 +=
                                      GetExportedAmountIn349(SalesInvHeader."Currency Code",

// Delete the following line.
SalesInvHeader."Currency Factor",SalesInvLines."Line Amount" - SalesInvLines."Inv. Discount Amount");
// End of the deleted line.

                                    IF GetCountryfromLocation(SalesInvLines."Location Code") <> CountryCode THEN
                                      LocationDifferentCountryCode := TRUE;
                                    TempSalesInvLines := SalesInvLines;
                                    TempSalesInvLines.INSERT;
                                  END;
...

استبدال رمز 1

...IF Location.GET(SalesInvLines."Location Code") THEN
                                    EUCountryLinesLocationCode := FindEUCountryRegionCode(Location."Country/Region Code");
                                  IF EUCountryLinesLocationCode THEN BEGIN
                                    AmountToIncludeIn349 +=
                                      GetExportedAmountIn349(SalesInvHeader."Currency Code",

// Add the following lines.
SalesInvHeader."Currency Factor",SalesInvLines."Line Amount" - SalesInvLines."Inv. Discount Amount")
;
// End of the added lines.

                                    IF GetCountryfromLocation(SalesInvLines."Location Code") <> CountryCode THEN
                                      LocationDifferentCountryCode := TRUE;
                                    TempSalesInvLines := SalesInvLines;
                                    TempSalesInvLines.INSERT;
                                  END;
...

التعليمات البرمجية الموجودة 2

... END ELSE
                                  IF CompInforShipToCountryCode THEN BEGIN
                                    EUCountryLinesLocationCode := TRUE;
                                    AmountToIncludeIn349 +=
                                      GetExportedAmountIn349(SalesInvHeader."Currency Code",

// Delete the following line.
SalesInvHeader."Currency Factor",SalesInvLines."Line Amount" - SalesInvLines."Inv. Discount Amount");
// End of the deleted line.

                                    TempSalesInvLines := SalesInvLines;
                                    TempSalesInvLines.INSERT;
                                  END;
                              UNTIL SalesInvLines.NEXT = 0;
                          END;
...

استبدال رمز 2

...END ELSE
                                  IF CompInforShipToCountryCode THEN BEGIN
                                    EUCountryLinesLocationCode := TRUE;
                                    AmountToIncludeIn349 +=
                                      GetExportedAmountIn349(SalesInvHeader."Currency Code",

// Add the following lines.
SalesInvHeader."Currency Factor",SalesInvLines."Line Amount" - SalesInvLines."Inv. Discount Amount")
;
// End of the added lines.

TempSalesInvLines := SalesInvLines;
                                    TempSalesInvLines.INSERT;
                                  END;
                              UNTIL SalesInvLines.NEXT = 0;
                          END;
...

المتطلبات الأساسية

يجب أن يكون لديك أحد المنتجات التالية مثبتة لتطبيق هذا الإصلاح العاجل:

النسخة الإسبانية من Microsoft Dynamics NAV 2009 R2
النسخة الإسبانية من Microsoft Dynamics NAV 2009 SP1

وبالإضافة إلى ذلك، يجب عليك تثبيت KB3036701 .

معلومات الإزالة

لا يمكنك إزالة هذا الإصلاح العاجل.

الحالة

أقرت Microsoft أن هذه مشكلة في منتجات Microsoft المسردة في قسم "ينطبق على".

ملاحظة: وهذا المقال "النشر السريع" التي تم إنشاؤها مباشرة من داخل مؤسسة دعم Microsoft. وتقدم المعلومات الواردة في هذه الوثيقة كاستجابه للمسائل الناشئة. نتيجة للسرعة في توفيره، قد تتضمن الأخطاء المطبعية المواد ويمكن مراجعة في أي وقت دون سابق إنذار. راجع شروط الاستخداملاعتبارات أخرى.

تصدير مفتاح العملية دائماً ك "E" في الإقرار 349 في النسخة الإسبانية من Microsoft Dynamics NAV 2009

الأعراض

الحل

معلومات الإصلاح العاجل

معلومات التثبيت

تغييرات التعليمات البرمجية

المتطلبات الأساسية

معلومات الإزالة

الحالة

هل تحتاج إلى مزيد من المساعدة؟

الخروج من الخيارات إضافية؟

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!