Všetky informácie v súbore importované CAMT prechádza CBG vyhlásenie pridať riadok tabuľky v holandčine verzii systému Microsoft Dynamics NAV 2009. Postupujte podľa pokynov zmeny kódu sekcia na riešenie tohto problému. Tento problém sa vyskytuje v nasledovných produktov:
-
Holandské verziu systému Microsoft Dynamics NAV 2009 R2
-
Holandské verziu systému Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Riešenie
Informácie o rýchlej oprave
Rýchla oprava je k dispozícii od spoločnosti Microsoft. Je však určená iba opraviť problém popísaný v tomto článku. Použite ju iba v počítačoch s týmto konkrétnym problémom. Môže, že táto rýchla oprava bude ďalej testovaná. Ak vám nespôsobuje tento problém, odporúčame vám počkať na ďalšiu Microsoft Dynamics NAV 2009 service pack alebo ďalšej verzii Microsoft Dynamics NAV, ktorá obsahuje túto rýchlu opravu.
Poznámka: V špeciálnych prípadoch sa poplatky, ktoré sú telefonickú podporu nemusia účtovať ak technickú podporu Professional pre Microsoft Dynamics a súvisiace produkty zistí, že táto konkrétna aktualizácia vyrieši váš problém. Ďalšie otázky a žiadosti o technickú podporu, ktoré sa netýkajú tejto špecifickej aktualizácie, podliehajú bežným sadzbám za poskytovanie technickej podpory.
Informácie o inštalácii
Spoločnosť Microsoft poskytuje príklady programovacieho kódu len ako názornú ukážku bez vyjadrených či predpokladaných záruk. Tie okrem iného zahŕňajú predpokladané záruky obchodovateľnosti alebo vhodnosti na konkrétny účel. Tento článok predpokladá, že ovládate predvádzaný programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci technickej podpory spoločnosti Microsoft môžu vysvetliť fungovanie konkrétneho postupu. Ale nemôžu tieto príklady poskytovať pridanú funkčnosť alebo konštrukčné procedúry zohľadňujúce vaše konkrétne požiadavky.
Poznámka: Pred inštaláciou tejto rýchlej opravy, kontrola všetkých používateľov klienta Microsoft Dynamics NAV systém. To zahŕňa služby Microsoft Dynamics NAV aplikácie servera (NAS). Mali by ste byť iba klient prihláseného používateľa je pri implementácii túto rýchlu opravu.
Vykonávať túto rýchlu opravu, musíte mať licencie pre vývojárov.
Odporúčame, aby používateľského konta v okne prihlásenia systému Windows alebo v okne prihlásenia do databázy pridelí "SUPER" úlohu ID. Ak používateľské konto nemožno priradiť úlohu ID "SUPER", musíte overiť, že používateľské konto má nasledujúce povolenia:
-
Zmeniť povolenia pre objekt, ktorý sa zmení.
-
Povolenia na vykonanie systému objekt ID 5210 a systém objekt ID 9015
objekt.
Poznámka: Nemusíte mať práva ukladá údaje, pokiaľ budete musieť vykonať opravy údajov.
Zmeny kódu
Poznámka: Vždy skúšobný opravy v prostredí kontrolované pred použitím opravy výroby počítačov.
Ak chcete vyriešiť tento problém, postupujte nasledovne:
-
Zmena kódu v globálne premenné CBG výpisu odsúhlasenia procedúra (11000006) takto:
Existujúci kód...PaymenthistorylineRec@1000017 : Record 11000002;
TransactionModeRec@1000018 : Record 11000004;
TempBankAccount@1000025 : TEMPORARY Record 270;
Name@1000021 : Code[80];
Address@1000022 : Code[40];
City@1000023 : Code[40];
Identification@1000024 : Code[40];
NumberOfDocumentNumbers@1000028 : Integer;
NumberOfLinesProcessed@1000029 : Integer;
NumberOfLinesChanged@1000030 : Integer;
...Nahradenie kódu
...PaymenthistorylineRec@1000017 : Record 11000002;
TransactionModeRec@1000018 : Record 11000004;
TempBankAccount@1000025 : TEMPORARY Record 270;
NumberOfDocumentNumbers@1000028 : Integer;
NumberOfLinesProcessed@1000029 : Integer;
NumberOfLinesChanged@1000030 : Integer;
... -
Zmena kódu v MatchCBGStatementLine funkcia v procedúra CBG výpisu odsúhlasenia (11000006):
Nahradenie kód 1...PaymentHistoryFound@1000004 : Boolean;
i@1000005 : Integer;
strFilter@1000006 : Text[250];
BEGIN
MakeTempfile;
NumberOfLinesProcessed := NumberOfLinesProcessed + 1;
...Nahradenie kód 1
...PaymentHistoryFound@1000004 : Boolean;
i@1000005 : Integer;
strFilter@1000006 : Text[250];
Name@1000007 : Code[80];
Address@1000008 : Code[80];
City@1000009 : Code[80];
Identification@1000010 : Code[20];
BEGIN
MakeTempfile;
NumberOfLinesProcessed := NumberOfLinesProcessed + 1;
...Existujúci kód 2
...PostDesRec."Information Type"::"City Acct. Holder":
City := PostDesRec.Description;
PostDesRec."Information Type"::"Payment Identification":
Identification := PostDesRec.Description;
END;
UNTIL PostDesRec.NEXT = 0;
...Nahradenie kód 2
...PostDesRec."Information Type"::"City Acct. Holder":
City := PostDesRec.Description;
PostDesRec."Information Type"::"Payment Identification":
Identification := COPYSTR(PostDesRec.Description,1,MAXSTRLEN(Identification));
END;
UNTIL PostDesRec.NEXT = 0;
...Existujúci kód 3
...IF NOT RecChanged THEN BEGIN
IF Name <> '' THEN BEGIN
IF CBGStatementlineRec.Credit > 0 THEN BEGIN
IF FindNAC(Name, Address, City, TempRec."Source Type"::Customer,CBGStatementlineRec."Account No.") THEN BEGIN
CBGStatementlineRec."Account Type" := CBGStatementlineRec."Account Type"::Customer;
CBGStatementlineRec.VALIDATE("Account No.", CBGStatementlineRec."Account No.");
CBGStatementlineRec."Reconciliation Status" := CBGStatementlineRec."Reconciliation Status"::Changed;
...Nahradenie kód 3
...IF NOT RecChanged THEN BEGIN
IF Name <> '' THEN BEGIN
IF CBGStatementlineRec.Credit > 0 THEN BEGIN
IF FindSourceNoByNAC(Name,Address,City,TempRec."Source Type"::Customer,CBGStatementlineRec."Account No.") THEN BEGIN
CBGStatementlineRec."Account Type" := CBGStatementlineRec."Account Type"::Customer;
CBGStatementlineRec.VALIDATE("Account No.", CBGStatementlineRec."Account No.");
CBGStatementlineRec."Reconciliation Status" := CBGStatementlineRec."Reconciliation Status"::Changed;
...Existujúci kód 4
...RecChanged := TRUE;
END;
END ELSE BEGIN
IF FindNAC(Name, Address, City, TempRec."Source Type"::Vendor,CBGStatementlineRec."Account No.") THEN BEGIN
CBGStatementlineRec."Account Type" := CBGStatementlineRec."Account Type"::Vendor;
CBGStatementlineRec.VALIDATE("Account No.", CBGStatementlineRec."Account No.");
CBGStatementlineRec."Reconciliation Status" := CBGStatementlineRec."Reconciliation Status"::Changed;
...Nahradenie kód 4
...RecChanged := TRUE;
END;
END ELSE BEGIN
IF FindSourceNoByNAC(Name,Address,City,TempRec."Source Type"::Vendor,CBGStatementlineRec."Account No.") THEN BEGIN
CBGStatementlineRec."Account Type" := CBGStatementlineRec."Account Type"::Vendor;
CBGStatementlineRec.VALIDATE("Account No.", CBGStatementlineRec."Account No.");
CBGStatementlineRec."Reconciliation Status" := CBGStatementlineRec."Reconciliation Status"::Changed;
... -
Zmena kódu v FindNAC funkcia v procedúra CBG výpisu odsúhlasenia (11000006):
Existujúci kód...END;
END;
PROCEDURE FindNAC@1000005(Name@1000001 : Code[80];Address@1000002 : Code[80];City@1000003 : Code[80];"Source Type"@1000004 : Integer;VAR SourcenumberFound@1000005 : Code[20]) found@1000000 : Boolean;
VAR
NameResultTemp@1000006 : TEMPORARY Record 11000008;
AddressResultTemp@1000007 : TEMPORARY Record 11000008;
CityResultTemp@1000008 : TEMPORARY Record 11000008;
BEGIN
found := FALSE;
IF (Name = '') OR (Address = '') OR (City = '') THEN
EXIT(FALSE);
NameResultTemp.SETCURRENTKEY("Source Type", "Source No.");
AddressResultTemp.SETCURRENTKEY("Source Type", "Source No.");
CityResultTemp.SETCURRENTKEY("Source Type", "Source No.");
TempRec.SETRANGE("Source Type","Source Type");
TempRec.SETRANGE("Data Type",TempRec."Data Type"::Name);
TempRec.SETRANGE(Word,COPYSTR(Name,1,MAXSTRLEN(TempRec.Word)));
IF TempRec.FIND('-') THEN
REPEAT
NameResultTemp := TempRec;
NameResultTemp.INSERT;
UNTIL TempRec.NEXT = 0;
TempRec.RESET;
TempRec.SETRANGE("Source Type","Source Type");
TempRec.SETRANGE("Data Type",TempRec."Data Type"::Street);
TempRec.SETRANGE(Word,COPYSTR(Address,1,MAXSTRLEN(TempRec.Word)));
IF TempRec.FIND('-') THEN
REPEAT
NameResultTemp.SETRANGE("Source Type",TempRec."Source Type");
NameResultTemp.SETRANGE("Source No.",TempRec."Source No.");
IF NameResultTemp.FIND('-') THEN BEGIN
AddressResultTemp := NameResultTemp;
AddressResultTemp.INSERT;
END;
UNTIL TempRec.NEXT = 0;
TempRec.RESET;
TempRec.SETRANGE("Source Type","Source Type");
TempRec.SETRANGE("Data Type",TempRec."Data Type"::City);
TempRec.SETRANGE(Word,COPYSTR(City,1,MAXSTRLEN(TempRec.Word)));
IF TempRec.FIND('-') THEN
REPEAT
AddressResultTemp.SETRANGE("Source Type",TempRec."Source Type");
AddressResultTemp.SETRANGE("Source No.",TempRec."Source No.");
IF AddressResultTemp.FIND('-') THEN BEGIN
CityResultTemp := AddressResultTemp;
CityResultTemp.INSERT;
END;
UNTIL TempRec.NEXT = 0;
IF CityResultTemp.FIND('-') THEN BEGIN
SourcenumberFound := CityResultTemp."Source No.";
found := CityResultTemp.NEXT = 0;
END;
END;
...Nahradenie kódu
...END;
END;
PROCEDURE FindSourceNoByNAC@1000005(Name@1000001 : Code[80];Address@1000002 : Code[80];City@1000003 : Code[80];SourceType@1000004 : Option;VAR FoundSourceNo@1000005 : Code[20]) Found@1000000 : Boolean;
VAR
TempFoundRecBuf@1000006 : TEMPORARY Record 11000008;
BEGIN
IF (Name = '') AND (Address = '') AND (City = '') THEN
EXIT(FALSE);
IF FindSourceNoByDataType(TempRec."Data Type"::Name,Name,TempFoundRecBuf,SourceType,FoundSourceNo) THEN
EXIT(TRUE);
IF FindSourceNoByDataType(TempRec."Data Type"::Street,Address,TempFoundRecBuf,SourceType,FoundSourceNo) THEN
EXIT(TRUE);
IF FindSourceNoByDataType(TempRec."Data Type"::City,City,TempFoundRecBuf,SourceType,FoundSourceNo) THEN
EXIT(TRUE);
EXIT(FALSE);
END;
LOCAL PROCEDURE FindSourceNoByDataType@1000016(DataType@1000001 : Option;Value@1000002 : Code[80];VAR TempFoundRecBuf@1000003 : TEMPORARY Record 11000008;SourceType@1000005 : Option;VAR FoundSourceNo@1000000 : Code[20]) FoundOne : Boolean;
BEGIN
IF Value = '' THEN
EXIT(FALSE);
TempRec.RESET;
TempFoundRecBuf.RESET;
IF TempFoundRecBuf.ISEMPTY THEN
FoundOne := CollectMatches(SourceType,DataType,Value,TempFoundRecBuf) = 1
ELSE
FoundOne := CollectDependentMatches(DataType,Value,TempFoundRecBuf) = 1;
IF FoundOne THEN BEGIN
TempFoundRecBuf.FINDFIRST;
FoundSourceNo := TempFoundRecBuf."Source No.";
END;
END;
... -
Zmena kódu v CollectMatches funkcia v procedúra CBG výpisu odsúhlasenia (11000006):
Existujúci kód...END;
END;
LOCAL PROCEDURE MakeTempfile@1000006();
VAR
NumberRec@1000000 : Integer;
...Nahradenie kódu
...END;
END;
LOCAL PROCEDURE CollectMatches@1000017(SourceType@1000000 : Option;DataType@1000003 : Option;Value@1000002 : Code[80];VAR TempFoundRecBuf@1000001 : TEMPORARY Record 11000008) : Integer;
BEGIN
TempRec.RESET;
TempRec.SETRANGE("Source Type",SourceType);
TempRec.SETRANGE("Data Type",DataType);
TempRec.SETRANGE(Word,COPYSTR(Value,1,MAXSTRLEN(TempRec.Word)));
IF TempRec.FINDSET THEN
REPEAT
TempFoundRecBuf := TempRec;
TempFoundRecBuf.INSERT;
UNTIL TempRec.NEXT = 0;
TempFoundRecBuf.RESET;
TempFoundRecBuf.SETRANGE("Data Type",DataType);
EXIT(TempFoundRecBuf.COUNT);
END;
PROCEDURE CollectDependentMatches@1000019(DataType@1000002 : Option;Value@1000001 : Code[80];VAR TempFoundRecBuf@1000000 : TEMPORARY Record 11000008) : Integer;
VAR
CurrFoundRecBuf@1000004 : Record 11000008;
BEGIN
TempFoundRecBuf.FINDSET;
REPEAT
CurrFoundRecBuf.COPY(TempFoundRecBuf);
IF TempRec.GET(
COPYSTR(Value,1,MAXSTRLEN(TempRec.Word)),TempFoundRecBuf."Source Type",TempFoundRecBuf."Source No.",DataType)
THEN BEGIN
TempFoundRecBuf := TempRec;
IF TempFoundRecBuf.INSERT THEN;
END;
TempFoundRecBuf.COPY(CurrFoundRecBuf);
UNTIL TempFoundRecBuf.NEXT = 0;
TempFoundRecBuf.RESET;
TempFoundRecBuf.SETRANGE("Data Type",DataType);
EXIT(TempFoundRecBuf.COUNT);
END;
LOCAL PROCEDURE MakeTempfile@1000006();
VAR
NumberRec@1000000 : Integer;
...
Požiadavky
Musíte mať jednu z nasledovných produktov nainštalovaný chcete použiť túto rýchlu opravu:
-
Holandské verziu systému Microsoft Dynamics NAV 2009 R2
-
Holandské verziu systému Microsoft Dynamics NAV 2009 SP1
Informácie o odstránení
Nemôžete odstrániť túto rýchlu opravu.
Stav
Spoločnosť Microsoft potvrdila, že ide o problém v produktoch spoločnosti Microsoft, ktoré sú uvedené v časti Vzťahuje sa na.
Poznámka: To je "Rýchlo publikovať" článok vytvorené priamo v rámci organizácie technickej podpory spoločnosti Microsoft. Uvedené informácie sa poskytuje ako-v reakcii na naliehavé problémy. Rýchlosťou robiť materiály môžu obsahovať typografické chyby a môžu byť kedykoľvek bez predchádzajúceho upozornenia. Prečítajte si Podmienky používaniaz iných dôvodov.
