Sintomi
Dopo l'installazione di KB3036701 nella versione spagnola di Microsoft Dynamics NAV 2009, la chiave dell'operazione per la riga di correzione viene sempre esportata con "E", quando deve dipendere la precedente operazione che esegue la correzione. Seguire i passaggi nella sezione modifiche al codice per risolvere questo problema. Questo problema si verifica nei seguenti prodotti:
-
La versione spagnola di Microsoft Dynamics NAV 2009 R2
-
La versione spagnola di Microsoft Dynamics NAV 2009 SP1
Risoluzione
Informazioni sull'hotfix
Un hotfix supportato è ora disponibile da Microsoft. Tuttavia, è destinato esclusivamente alla risoluzione del problema descritto in questo articolo. Applicarlo solo ai sistemi in cui si verificano questo problema specifico. Questo hotfix potrebbe essere sottoposto ad ulteriori test. Pertanto, se il problema non causa gravi difficoltà, consiglia di attendere il prossimo service pack di Microsoft Dynamics NAV 2009 o versione successiva di Microsoft Dynamics NAV contenente tale hotfix.
Nota: In casi particolari, le spese normalmente addebitate per le chiamate potrebbero essere annullate qualora un aggiornamento del supporto tecnico di Microsoft Dynamics e prodotti correlati di supporto determina che uno specifico aggiornamento risolverà il problema. I costi di supporto normale verranno applicati per eventuali ulteriori domande e problemi che non dovessero rientrare nello specifico aggiornamento in questione.
Informazioni sull'installazione
Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia espressa o implicita. Ciò include, ma non limitato a, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presuppone che si abbia familiarità con il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire la procedura di debug. Tecnici del supporto Microsoft consentono di spiegare la funzionalità di una particolare procedura. Tuttavia, essi non modificherà questi esempi per fornire funzionalità aggiuntive o creare procedure atte a soddisfare specifiche esigenze.
Nota: Prima di installare questo hotfix, verificare che tutti gli utenti di client di Microsoft Dynamics NAV sono disconnessi dal sistema. Sono inclusi i servizi di Microsoft Dynamics NAV Application Server (NAS). Dovrebbe essere il solo l'utente client connesso quando si implementa questo hotfix.
Per implementare questo hotfix, è necessario disporre di una licenza di sviluppatore.
È consigliabile che l'account utente nella finestra Login Windows o Login Database assegnare l'ID di ruolo "SUPER". Se l'account utente non può essere assegnato l'ID ruolo "SUPER", è necessario verificare che l'account utente disponga delle autorizzazioni seguenti:
-
Autorizzazione alla modifica dell'oggetto che si desidera modificare.
-
L'autorizzazione di esecuzione per l'oggetto System Object ID 5210 e per il sistema oggetto ID 9015
oggetto.
Nota: Non è necessario disporre dei diritti per gli archivi dati a meno che non è necessario eseguire il ripristino di dati.
Modifiche al codice
Nota: Sempre il codice di test consente di correggere in un ambiente controllato prima di applicare le correzioni per i computer di produzione.
Per risolvere questo problema, attenersi alla seguente procedura:
-
Modificare il codice 5 numero elemento di dati nel rapporto di rendere dichiarazione 349 (10710) come segue:
Codice esistente 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;
...Codice sostitutivo 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;
...Codice esistente 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,' ') +
...Codice di sostituzione 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 il codice esistente
...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
...Codice di sostituzione 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 il codice esistente
...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,' ') +
...Codice di sostituzione 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 il codice esistente
... 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
...Codice di sostituzione 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 il codice esistente
...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,' ') +
...Codice di sostituzione 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 il codice esistente
...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;
...Codice di sostituzione 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 il codice esistente
... 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
...Codice di sostituzione 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
...Codice esistente 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
...Codice di sostituzione 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
...Codice esistente 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);
...Codice di sostituzione 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);
...Codice esistente 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
...Codice di sostituzione 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
...Codice esistente 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);
...Codice di sostituzione 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);
... -
Modificare il codice 6 numero di elemento di dati del report di Make349Declaration (10710) come segue:
Codice esistente 1... // SETFILTER(Vendor."Country/Region Code",'<>%1',CountryCode);
// es0014.begin
PreVATRegNo := '';
// es0014.end
// es0013.end
END;
OnAfterGetRecord=VAR
AppliedAmt@1100000 : Decimal;
PurchCreditMemoOrgDeclaredAmt@1100001 : Decimal;
...Codice sostitutivo 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;
...Codice esistente 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,' ') +
...Codice di sostituzione 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 il codice esistente
... 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
...Codice di sostituzione 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 il codice esistente
... 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,' ') +
...Codice di sostituzione 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 il codice esistente
...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);
...Codice di sostituzione 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 il codice esistente
... 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,' ') +
...Codice di sostituzione 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 il codice esistente
... // 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
...Codice di sostituzione 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 il codice esistente
... // 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
...Codice di sostituzione 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
...Codice esistente 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);
...Codice di sostituzione 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);
...Codice esistente 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
...Codice di sostituzione 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
...Codice esistente 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);
...Codice di sostituzione 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);
...Codice esistente 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
...Codice di sostituzione 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
...Codice esistente 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);
...Codice di sostituzione 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);
... -
Modificare il codice nelle variabili globali del report di rendere dichiarazione 349 (10710) come segue:
Codice esistente...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
...Codice di sostituzione
...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
... -
Modificare il codice nella funzione GetPostedCountryLocCode nel rapporto di rendere dichiarazione 349 (10710) come segue:
Codice esistente 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;
...Codice sostitutivo 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;
...Codice esistente 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;
...Codice di sostituzione 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;
...
Prerequisiti
Deve avere uno dei seguenti prodotti per applicare questo hotfix:
-
La versione spagnola di Microsoft Dynamics NAV 2009 R2
-
La versione spagnola di Microsoft Dynamics NAV 2009 SP1
Inoltre, è necessario disporre di KB3036701 installato.
Informazioni sulla rimozione
Non è possibile rimuovere questo hotfix.
Stato
Microsoft ha confermato che questo è un problema dei prodotti Microsoft elencati nella sezione "Si applica a".
Nota: Si tratta di un articolo a "Pubblicazione Veloce" creato direttamente all'interno dell'organizzazione di supporto Microsoft. Le informazioni contenute nel presente documento sono fornite così come sono in risposta a problemi urgenti. Per la velocità in rendendo disponibili, i materiali possono includere errori tipografici e possono essere modificati in qualsiasi momento senza preavviso. Per altre considerazioni, vedere Condizioni di utilizzo.
