Problembeschreibung
Nach der Installation von KB3036701 in der spanischen Version von Microsoft Dynamics NAV 2009 ist immer Operationsschlüssel für die Korrektur an "E" exportiert, wenn auf den vorhergehenden Vorgang verlassen sollten, die korrigiert wird. Folgen Sie den Schritten im Abschnitt ändert sich dieses Problem lösen. Dieses Problem tritt in den folgenden Produkten auf:
-
Die spanische Version von Microsoft Dynamics NAV 2009 R2
-
Die spanische Version von Microsoft Dynamics NAV 2009 SP1
Problemlösung
Hotfix-Informationen
Ein unterstützter Hotfix ist inzwischen von Microsoft erhältlich. Allerdings ist es lediglich zur Behebung dieses Problems. Wenden Sie es nur auf Systeme an, bei denen dieses spezielle Problem auftritt. Dieser Hotfix wird möglicherweise noch getestet. Wenn Ihr System durch dieses Problem nicht schwerwiegend beeinträchtigt ist, empfehlen wir, dass Sie warten auf das nächste Servicepack für Microsoft Dynamics NAV 2009 oder die nächste Microsoft Dynamics NAV-Version, die diesen Hotfix enthält.
Hinweis In besonderen Fällen bestimmt Gebühren fallen normalerweise Support aufrufen Wenn Experte Support für Microsoft Dynamics und zugehörige Produkte storniert werden können, dass ein bestimmtes Update Ihr Problem behebt. Die normalen Supportkosten gilt für zusätzliche Supportfragen und Probleme, die nicht für das betreffende Update qualifizieren.
Informationen zur Installation
Microsoft bietet Programmierbeispiele lediglich zur Veranschaulichung, ohne ausdrückliche oder konkludente Gewährleistung. Dies beinhaltet, ist jedoch nicht beschränkt auf, konkludente Gewährleistungen der Tauglichkeit oder Eignung für einen bestimmten Zweck. Dieser Artikel setzt voraus, dass Sie mit der von Beispielen verwendeten Programmiersprache und den Tools, die zum Erstellen und Debuggen von Prozeduren verwendet werden, vertraut sind. Microsoft-Supporttechniker helfen der Erläuterung der Funktionalität bestimmter Prozeduren. Allerdings werden sie diese Beispiele nicht ändern, um zusätzliche Funktionalität bereitzustellen oder Prozeduren erstellen, die Ihren spezifischen Bedürfnisse erfüllen.
Hinweis Bevor Sie diesen Hotfix installieren, stellen Sie sicher, dass alle Microsoft Dynamics NAV-Clientbenutzer vom System abgemeldet werden. Hierzu gehören Dienste Microsoft Dynamics NAV Application Server (NAS). Sie sollte nur-Client-Benutzers, der angemeldet ist, wenn Sie diesen Hotfix installieren.
Muss eine Entwicklerlizenz verfügen, um diesen Hotfix installieren können.
Es wird empfohlen, das Benutzerkonto im Fenster Windows-Benutzernamen oder im Fenster Datenbank-Anmeldenamen "SUPER" Rollen-ID zugewiesen werden Wenn das Benutzerkonto die Rollen-ID "SUPER" nicht zugeordnet werden kann, müssen Sie sicherstellen, dass das Benutzerkonto die folgenden Berechtigungen verfügt:
-
Änderungsberechtigung für das Objekt, das Sie ändern.
-
Ausführungsberechtigung für System Object ID 5210 und System Object ID 9015
Objekt.
Hinweis Sie müssen keine Rechte für die Datenspeicher haben, es sei denn, Sie müssen eine Datenreparatur durchführen.
Ändern von Code
Hinweis Testen Sie Programmcodeverbesserungen generell erst in einem Testsytem, bevor Sie sie im Produktionssystem verwenden.
Gehen Sie folgendermaßen vor, um dieses Problem zu beheben:
-
Ändern Sie den Code Daten Artikel Nr. 5 in der Stellen 349 angegeben (10710) wie folgt:
Vorhandener Code 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;
...Neuer Code 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;
...Vorhandener Code 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,' ') +
...Neuer Code 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,' ') +
...Vorhandenen Code 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
...Neuer Code 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
...Vorhandenen Code 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,' ') +
...Neuer Code 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,' ') +
...Vorhandenen Code 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
...Neuer Code 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
...Vorhandenen Code 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,' ') +
...Ersetzungscode 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,' ') +
...Vorhandenen Code 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;
...Neuer Code 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;
...Vorhandenen Code 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
...Neuer Code 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
...Vorhandenen Code 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
...Neuer Code 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
...Vorhandenen Code 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);
...Neuer Code 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);
...Vorhandenen Code 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
...Neuer Code 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
...Vorhandenen Code 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);
...Neuer Code 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);
... -
Ändern Sie den Code in Bericht Make349Declaration (10710) Daten Element Nummer 6 wie folgt:
Vorhandener Code 1... // SETFILTER(Vendor."Country/Region Code",'<>%1',CountryCode);
// es0014.begin
PreVATRegNo := '';
// es0014.end
// es0013.end
END;
OnAfterGetRecord=VAR
AppliedAmt@1100000 : Decimal;
PurchCreditMemoOrgDeclaredAmt@1100001 : Decimal;
...Neuer Code 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;
...Vorhandener Code 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,' ') +
...Neuer Code 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,' ') +
...Vorhandenen Code 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
...Neuer Code 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
...Vorhandenen Code 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,' ') +
...Neuer Code 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,' ') +
...Vorhandenen Code 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);
...Neuer Code 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);
...Vorhandenen Code 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,' ') +
...Ersetzungscode 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,' ') +
...Vorhandenen Code 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
...Neuer Code 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
...Vorhandenen Code 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
...Neuer Code 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
...Vorhandenen Code 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);
...Neuer Code 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);
...Vorhandenen Code 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
...Neuer Code 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
...Vorhandenen Code 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);
...Neuer Code 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);
...Vorhandenen Code 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
...Neuer Code 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
...Vorhandenen Code 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);
...Neuer Code 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);
... -
Ändern Sie den Code in globalen Variablen im Bericht 349-Erklärung erstellen (10710) wie folgt:
Vorhandener code...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
...Neuer code
...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
... -
Ändern Sie den Code in GetPostedCountryLocCode Funktion im Bericht 349-Erklärung erstellen (10710) wie folgt:
Vorhandener Code 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;
...Neuer Code 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;
...Vorhandener Code 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;
...Neuer Code 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;
...
Voraussetzungen
Sie müssen eines der folgenden Produkte verfügen, um diesen Hotfix installieren:
-
Die spanische Version von Microsoft Dynamics NAV 2009 R2
-
Die spanische Version von Microsoft Dynamics NAV 2009 SP1
Darüber hinaus müssen KB3036701 installiert haben.
Informationen zur Deinstallation
Dieser Hotfix kann nicht entfernt werden.
Status
Microsoft hat bestätigt, dass es sich um ein Problem bei den Microsoft-Produkten handelt, die im Abschnitt „Eigenschaften“ aufgeführt sind.
Hinweis Dies ist ein im Schnellverfahren veröffentlichter Artikel, der direkt in der Microsoft Support-Organisation erstellt wurde. Die hierin enthaltenen Informationen werden ohne Mängelgewähr in Reaktion auf neue Probleme bereitgestellt. Aufgrund der schnellen Bereitstellung kann das Material möglicherweise typografische Fehler enthalten und jederzeit ohne vorherige Ankündigung geändert werden. Weitere Hinweise finden Sie unter Geschäftsbedingungen.