Požymiai
Kai įrašas yra neigiamas (pataisymo), sistema automatiškai manoma, eksporto. Tačiau CBS nuostatas paskelbti, tai neigiamas importuoti. Todėl turėtų būti funkcijas nurodo prisijungimo įrašo (neigiamas arba teigiamas) ir ženklas turi įtakos importavimo arba eksportavimo būsena. Ši problema iškyla faile šiems produktams:
-
Microsoft Dynamics NAV 2009 R2 olandų kalba
-
Olandų kalba Microsoft Dynamics NAV 2009 Service Pack 1
Sprendimas
Karštųjų pataisų informacija
Palaikomą naujausią pataisą dabar yra Microsoft. Tačiau jos skirtos tik šiame straipsnyje aprašytai problemai spręsti. Taikyti ją tik sistemoms, kuriose kyla ši konkreti problema. Šios karštosios pataisos gali būti papildomai išbandoma. Todėl, jei jums nelabai trukdo Ši problema, rekomenduojame palaukti kito "Microsoft Dynamics NAV 2009" pakeitimų paketo arba kitą versiją Microsoft Dynamics NAV, kuriame bus šios karštosios pataisos.
Pastaba. Konkrečiais atvejais už palaikymo skambučius gali būti atšaukti, jei techninės pagalbos specialistas Microsoft Dynamics ir susijusių produktų taikomi įprasti mokesčiai nustato, kad jūsų problemą galima išspręsti naudojant konkretų naujinimą. Į įprastos kainos už palaikymą taikomos papildomos palaikymo klausimams ir problemoms, kurių negalima išspręsti naudojant minėtą naujinimą.
Diegimo informacija
Microsoft pateikia programavimo pavyzdžius tik, tačiau nesuteikia jokių aiškių arba numanomų garantijų. Tai apima, bet neapsiribojant, numanomas garantijas dėl perkamumo ir tinkamumo konkrečiam tikslui. Šis straipsnis parašytas galvojant, kad esate susipažinę su pateikta programavimo kalba ir įrankiais, kurie yra naudojami procedūroms kurti ir derinti. "Microsoft" palaikymo inžinieriai gali padėti paaiškindami konkrečios procedūros funkcines galimybes. Tačiau jie nekeis šių pavyzdžių, kad numatytų papildomą funkcinę galimybę arba sukurtų konkrečius jūsų reikalavimus atitinkančias procedūras.
Pastaba. Prieš diegdami šias karštąsias pataisas, patikrinkite, kad visi Microsoft Dynamics NAV kliento vartotojai išsiregistravę sistema. Tai apima Microsoft Dynamics NAV programų serverio (NAS) paslaugas. Jums turėtų būti tik kliento vartotojo, kuris yra prisijungęs, kai atliekate šias karštąsias pataisas.
Norint pritaikyti šią karštąją pataisą, turite programų kūrėjo licencijos.
Rekomenduojame, kad vartotojo abonemento Windows registravimosi lange arba duomenų bazės prisijungimų langas priskirti "SUPER" vaidmenį ID. Jei vartotojo abonementas negali būti priskirta "SUPER" ID., turi patikrinti, kad vartotojo abonementas turi šias teises:
-
Keisti teisės objektas, kuris bus pakeisti.
-
Teisės vykdyti sistemos objekto ID 5210 objekto ir sistemos objekto ID 9015
objekto.
Pastaba. Jūs neturite turėti teisių į duomenų parduotuvių, nebent jūs turite atlikti duomenų atkūrimo.
Pastaba.
Pastaba. Visada bandymas kodas nustato kontroliuojamoje aplinkoje prieš taikydami nustato savo gamybos kompiuteriams.
Norėdami išspręsti šią problemą, atlikite šiuos veiksmus:
-
Kurti Intrastat Decl. disko ataskaitos (11413) kodą pakeisti taip:
Esamas kodas 1...SpecialUnit@1000002 : Decimal;
RoundedWeight@1000001 : Integer;
ItemDirection@1000004 : Integer;
BEGIN
TESTFIELD("Item No.");
TESTFIELD("Tariff No.");
...Atsarginis kodas 1
...SpecialUnit@1000002 : Decimal;
RoundedWeight@1000001 : Integer;
ItemDirection@1000004 : Integer;
// Add the following line
IsCorrection@1000005 : Boolean;
// End of the added line.
BEGIN
TESTFIELD("Item No.");
TESTFIELD("Tariff No.");
...Esamas kodas 2
...ZeroShipment := FALSE;
END;
END;
Write(FORMAT(Date, 0, '<Year4><Month,2>'));
Write(FORMAT(ItemDirection));
...Atsarginis kodas 2
...
ZeroShipment := FALSE;
END;
END;
// Add the following line.
IsCorrection := CheckCorrection("Source Entry No.",ItemDirection);
// End of the added line.
Write(FORMAT(Date, 0, '<Year4><Month,2>'));
Write(FORMAT(ItemDirection));
...Esamas kodas 3
...Write(PADSTR2("Transaction Type", 1, '', '>'));
Write(PADSTR2(DELCHR("Tariff No."), 8, '0', '<'));
Write('00');
Write(Sign(RoundedWeight)); // DELETED
Write(PADSTR2(FORMAT(RoundedWeight, 0, '<Integer>'), 10, ' ', '<'));
...Pakeitimo kodas 3
...Write(PADSTR2("Transaction Type", 1, '', '>'));
Write(PADSTR2(DELCHR("Tariff No."), 8, '0', '<'));
Write('00');
// Add the following line.
Write(Sign(RoundedWeight,IsCorrection));
// End of the added line.
Write(PADSTR2(FORMAT(RoundedWeight, 0, '<Integer>'), 10, ' ', '<'));
...Esamas kodas 4
...Write(PADSTR2(FORMAT(RoundedWeight, 0, '<Integer>'), 10, ' ', '<'));
// Delete the following line.
Write(Sign(SpecialUnit));
// End of the deleted line.
Write(PADSTR2(FORMAT(SpecialUnit, 0, '<Integer>'), 10, ' ', '<'));
...Pakeitimo kodekso 4
...Write(PADSTR2(FORMAT(RoundedWeight, 0, '<Integer>'), 10, ' ', '<'));
// Add the following line.
Write(Sign(SpecialUnit,IsCorrection));
// End of the added line.
Write(PADSTR2(FORMAT(SpecialUnit, 0, '<Integer>'), 10, ' ', '<'));
...Esamas kodas 5
...
Write(PADSTR2(FORMAT(SpecialUnit, 0, '<Integer>'), 10, ' ', '<'));
// Delete the following line.
Write(Sign(Amount));
// End of the deleted line.
Write(PADSTR2(FORMAT(Amount, 0, '<Integer>'), 10, ' ', '<'));
...Pakeitimo kodas 5
...
Write(PADSTR2(FORMAT(SpecialUnit, 0, '<Integer>'), 10, ' ', '<'));
// Add the following line.
Write(Sign(Amount,IsCorrection));
// End of the added line.
Write(PADSTR2(FORMAT(Amount, 0, '<Integer>'), 10, ' ', '<'));
...Esamas kodas 6
...Write(PADSTR2(FORMAT(Amount, 0, '<Integer>'), 10, ' ', '<'));
// Delete the following line.
Write('+');
// End of the deleted line.
Write(PADSTR2('0', 10, ' ', '<'));
Write(PADSTR2("Document No.", 10, ' ', '<'));
...Pakeitimo kodas 6
...Write(PADSTR2(FORMAT(Amount, 0, '<Integer>'), 10, ' ', '<'));
// Add the following lines.
IF IsCorrection THEN
Write('-')
ELSE // ADDED
Write('+');
// End of the added lines.
Write(PADSTR2('0', 10, ' ', '<'));
Write(PADSTR2("Document No.", 10, ' ', '<'));
...Esamas kodas 7
...Write(PADSTR2('0', 10, ' ', '<'));
Write(PADSTR2("Document No.", 10, ' ', '<'));
// Delete the following line.
Write(PADSTR2('', 4, ' ', '>'));
// End of the deleted line.
Write('000');
Write(PADSTR2("Intrastat Jnl. Batch"."Currency Identifier", 1, ' ', '>'));
Write(PADSTR2('', 6, ' ', '>'));
...Pakeitimo kodas 7
...Write(PADSTR2('0', 10, ' ', '<'));
Write(PADSTR2("Document No.", 10, ' ', '<'));
// Add the following lines.
Write(PADSTR2('', 3, ' ', '>'));
IF IsCorrection THEN
Write('C')
ELSE
Write(' ');
// End of the added lines.
Write('000');
Write(PADSTR2("Intrastat Jnl. Batch"."Currency Identifier", 1, ' ', '>'));
Write(PADSTR2('', 6, ' ', '>'));
... -
Pakeisti prisijungimo funkcija, kurti Intrastat Decl. disko ataskaitos (11413):
Esamas kodas 1...ExportFile.SEEK(ExportFile.POS - 1);
END;
// Delete the following line.
LOCAL PROCEDURE Sign@1000006(Number@1000000 : Decimal) : Text[1];
// End of the deleted line.
BEGIN
CASE Number < 0 OF
TRUE:
...Atsarginis kodas 1
... ExportFile.SEEK(ExportFile.POS - 1);
END;
// Add the following line.
LOCAL PROCEDURE Sign@1000006(Number@1000000 : Decimal;IsCorrection@1000001 : Boolean) : Text[1];
// End of the added line.
BEGIN
CASE Number < 0 OF
TRUE:
...Esamas kodas 2
...BEGIN
CASE Number < 0 OF
TRUE:
// Delete the following line.
EXIT('-');
// End of the deleted line.
FALSE:
...Atsarginis kodas 2
...BEGIN
CASE Number < 0 OF
TRUE:
// Add the following lines.
IF NOT IsCorrection THEN
EXIT('-')
ELSE
EXIT('+');
// End of the added lines.
FALSE:
...Esamas kodas 3
...FALSE:
// Delete the following line.
EXIT('+');
// End of the deleted line.
END;
END;
...Pakeitimo kodas 3
...FALSE:
// Add the following lines.
IF NOT IsCorrection THEN
EXIT('+')
ELSE
EXIT('-');
// End of the added lines.
END;
END;
... -
Pakeisti CheckCorrection funkcija, kurti Intrastat Decl. disko ataskaitos (11413):
Esamas kodas...CrLf[2] := 10;
END;
BEGIN
...Pastaba.
...CrLf[2] := 10;
END;
// Add the following lines.
PROCEDURE CheckCorrection@1000018(SourceEntryNo@1000000 : Integer;VAR ItemDirection@1000001 : Integer) : Boolean;
VAR
ItemLedgerEntry@1000002 : Record 32;
// End of the added lines.
BEGIN
... -
Pakeisti CrLf funkcija kurti Intrastat Decl. disko ataskaitoje (11413):
Esamas kodas...BEGIN
// Delete the following lines.
{
// Note: Intrastat Jnl. Batch dataitem has MaxIteration = 1
}
END.
}
RDLDATA
{
}
}
// End of the deleted lines.
...Pastaba.
...BEGIN
// Add the following lines.
WITH ItemLedgerEntry DO BEGIN
GET(SourceEntryNo);
CASE "Document Type" OF
"Document Type"::"Purchase Return Shipment":
BEGIN
ItemDirection := 6;
EXIT(TRUE);
END;
"Document Type"::"Sales Return Receipt":
BEGIN
ItemDirection := 7;
EXIT(TRUE);
END;
END;
END;
END;
// End of the added lines.
... -
Pakeisti CheckCorrection funkcija, kurti Intrastat Decl. disko ataskaitos (11413):
Pastaba....// Add the following lines.
BEGIN
{
// Note: Intrastat Jnl. Batch dataitem has MaxIteration = 1
}
END.
}
RDLDATA
{
}
}
// End of the added lines.
...
Būtinosios sąlygos
Turi būti viena iš toliau nurodytų produktų, norint taikyti šias karštąsias pataisas:
-
Microsoft Dynamics NAV 2009 R2 olandų kalba
-
Microsoft Dynamics NAV 2009 SP1 olandų kalba
Pašalinimo informacija
Jūs negalite pašalinti šias karštąsias pataisas.
Būsena
„Microsoft“ patvirtino, kad tai yra „Microsoft“ produktų, išvardytų skyriuje „Taikoma“, problema.
Pastaba. Tai yra "GREITAI PUBLIKUOJAMAS" straipsnis, sukurtas tiesiogiai Microsoft palaikymo tarnybos. Čia pateikta informacija yra atsakas į kylančius klausimus. Dėl greito publikavimo medžiagoje gali būti spausdinimo klaidų ir ji gali būti peržiūrima bet kuriuo metu be įspėjimo. Naudojimoieškokite kitų priežasčių.
