Klaidos pranešimas "Neturite teisės paleisti darbo užmokesčio integravimo įrankių kodą", kai importuojate OCR mokėjimo failą iš grynųjų pinigų gavimo žurnalo naudodami kliento licenciją norvegų kalbos "„Microsoft“ Dynamics NAV 2009" versijoje

Taikoma
Dynamics NAV 2009 R2 Dynamics NAV 2009 Service Pack 1

Šis straipsnis taikomas "„Microsoft“ Dynamics NAV", skirtai norvegų (nėra) kalbos lokalei.

Požymiai

Tarkime, kad naudojate kliento licenciją norvegų kalbos "„Microsoft“ Dynamics NAV 2009" 1 pakeitimų paketo (SP1) versijoje. Kai importuojate OCR mokėjimo failą iš grynųjų pinigų gavimo žurnalo, gaunate tokį klaidos pranešimą:

Pastaba

Neturite teisės paleisti darbo užmokesčio integravimo įrankių kodo vieneto.

Ši problema kyla šiuose produktuose:

  • "„Microsoft“ Dynamics NAV 2009 R2" norvegų kalbos versija
  • "„Microsoft“ Dynamics NAV 2009" 1 pakeitimų paketo (SP1) norvegų kalbos versija

Priežastis

Ši problema kyla todėl, kad kliento licencija neturi teisių naudoti Atlyginimo integravimo įrankių kodinį vienetą (15000200). Tačiau jums nereikia naudoti atlyginimo integravimo įrankių kodo vieneto (15000200) importuojant OCR mokėjimo failą.

Sprendimas

Karštųjų pataisų informacija

Dabar palaikomas karštąsias pataisas galima gauti iš "„Microsoft“". Tačiau juo siekiama tik išspręsti šiame straipsnyje aprašytą problemą. Taikyti ją tik sistemoms, kuriose kilo ši konkreti problema. Ši karštoji pataisa gali būti papildomai patikrinta. Todėl, jei jūsų ši problema stipriai nepaveikė, rekomenduojame palaukti kito "„Microsoft“ Dynamics NAV" pakeitimų paketo arba kitos "„Microsoft“ Dynamics NAV" versijos, kurioje yra ši karštoji pataisa.

Pastaba Ypatingais atvejais mokesčiai, kurie paprastai taikomi už palaikymo skambučius, gali būti atšaukti, jei "„Microsoft“ Dynamics" ir susijusių produktų techninio palaikymo specialistas nustato, kad konkretus naujinimas išspręs jūsų problemą. Įprastos palaikymo išlaidos bus taikomos papildomiems palaikymo klausimams ir problemoms, kurios neatitinka atitinkamo konkretaus naujinimo reikalavimų.

            
          

Diegimo informacija

"„Microsoft“" pateikia programavimo pavyzdžių tik iliustracijai, be išreikštų ar numanomų garantijų. Tai apima, bet neapsiriboja, numanomas tinkamumo parduoti arba tinkamumo konkrečiam tikslui garantijas. Straipsnyje laikomasi nuomonės, kad esate susipažinę su demonstruojama programavimo kalba ir įrankiais, naudojamais kuriant ir derinant procedūras. "„Microsoft“" palaikymo inžinieriai gali padėti paaiškinti konkrečios procedūros funkcionalumą, bet jie nemodifikuos šių pavyzdžių, kad suteiktų papildomų funkcinių galimybių, ir nesukurs procedūrų, atitinkančių jūsų konkrečius reikalavimus.

Pastaba Prieš diegdami šią karštąją pataisą patikrinkite, ar visi "„Microsoft“ Navision" kliento vartotojai yra atsijungę nuo sistemos. Tai apima "„Microsoft“ Navision" programų tarnybų (NAS) kliento vartotojus. Turite būti vienintelis kliento vartotojas, kuris yra prisijungęs, kai įdiegiate šią karštąją pataisą.

Norėdami įdiegti šią karštąją pataisą, privalote turėti kūrėjo licenciją.

Rekomenduojame vartotojo paskyrai "Windows" prisijungimų lange arba duomenų bazės prisijungimų lange priskirti "SUPER" vaidmens ID. Jei vartotojo paskyrai negalima priskirti "SUPER" vaidmens ID, turite patikrinti, ar vartotojo paskyra turi šias teises:

  • Objekto, kurį keisite, modifikavimo teisė.
  • Sistemos objekto ID 5210 ir sistemos objekto ID 9015 objekto vykdymo teisės.

                
Pastaba: neturite turėti teisių į duomenų saugyklas, nebent turite atlikti duomenų taisymą.

Kodo keitimai

Pastaba Visada išbandykite kodo pataisas kontroliuojamoje aplinkoje prieš taikydami jas gamybos kompiuteriuose.
Norėdami išspręsti šią problemą, atlikite šiuos veiksmus:

  1. Pakeiskite kodą OKR mokėjimo - BBS ataskaitoje (15000064) esančiuose objektuose tokiu būdu:
    Esamas kodas

    ...
RegisterJournal.TESTFIELD(RegisterJournal."No. Series");
// Create work file
IF NOT ISSERVICETIER THEN

// Delete the following line.
WorkFileName := PayrollTools.CreateWorkfile(FileName);

TxtFile.TEXTMODE := TRUE;
TxtFile.OPEN(WorkFileName);
...

    Pakeitimo kodas

    ...
RegisterJournal.TESTFIELD(RegisterJournal."No. Series");
// Create work file
IF NOT ISSERVICETIER THEN

// Add the following line.
WorkFileName := CreateWorkfile(FileName);

TxtFile.TEXTMODE := TRUE;
TxtFile.OPEN(WorkFileName);
...

  2. Įtraukite naują visuotinį kintamąjį į OCR mokėjimo - BBS ataskaitą (15000064), tada nurodykite kintamąjį taip:

    • Pavadinimas: Text10633
    • TextConst: 'ENU=Filename "'

  3. Įtraukite naują visuotinį kintamąjį į OCR mokėjimo - BBS ataskaitą (15000064), tada nurodykite kintamąjį taip:

    • Pavadinimas: Text10634
    • TextConst:'ENU=""" neturėtų baigtis TMP."'

  4. Pakeiskite kodą funkcijoje NewFilename OCR Mokėjimas - BBS ataskaita (15000064) tokiu būdu:
    Esamas kodas

    ...
PROCEDURE NewFilename@1080009();
BEGIN

// Delete the following lines.
IF NOT ISSERVICETIER THEN
PayrollTools.NewFilename(FileName)
ELSE IF FileObject.FileExists(FileName) THEN BEGIN
// End of the lines.

IF (COPYSTR(FileName, STRLEN(FileName) - 1, 1) = '~') OR
(COPYSTR(FileName, STRLEN(FileName) - 2, 1) = '~')
THEN
...

    Pakeitimo kodas

    PROCEDURE NewFilename@1080009();
BEGIN

// Add the following line.
IF FileObject.FileExists(FileName) THEN BEGIN

IF (COPYSTR(FileName, STRLEN(FileName) - 1, 1) = '~') OR
(COPYSTR(FileName, STRLEN(FileName) - 2, 1) = '~')
THEN

  5. Pakeiskite kodą OCR mokėjimo - BBS ataskaitos dokumentuose (15000064) taip:
    Esamas kodas

    END;
END;

BEGIN
END.
}

    Pakeitimo kodas

    END;
END;

// Add the following lines.
PROCEDURE CreateWorkfile@1080015(fileName@1080000 : Text[250]) : Text[250];
VAR
file@1080001 : Text[250];
dummy@1080002 : Boolean;
BEGIN
// Creates a workfile. I.e. copies the current file to a new, editable file
// Example: File Payment.TXT is renamed to Payment.TMP.
// RETURNS: The name of the workfile.

file := COPYSTR(fileName, 1, STRLEN(fileName) - 3) + 'tmp';
IF file = fileName THEN // Error: The original file already has a workfile name.
ERROR(Text10633 + fileName + Text10634);

dummy := ERASE(file); // Delete previous workfile (if any). Ignore the error message.
COPY(fileName, file);
EXIT(file);
END;
// End of the lines.

BEGIN
END.
}

  6. Pakeiskite kodą OCR mokėjimo – duomenų dialogo ataskaitos (15000065) ypatybėse tokiu būdu:
    Esamas kodas

    ...
RegisterJournal.TESTFIELD(RegisterJournal."No. Series");

IF NOT ISSERVICETIER THEN

// Delete the following line.
WorkFileName := PayrollTools.CreateWorkfile(FileName);

TxtFile.TEXTMODE := TRUE;
TxtFile.OPEN(WorkFileName);
...

    Pakeitimo kodas

    ...
RegisterJournal.TESTFIELD(RegisterJournal."No. Series");

IF NOT ISSERVICETIER THEN

// Add the following line.
WorkFileName := CreateWorkfile(FileName);

TxtFile.TEXTMODE := TRUE;
TxtFile.OPEN(WorkFileName);
...

  7. Įtraukite naują visuotinį kintamąjį į OCR mokėjimo – duomenų dialogo ataskaitą (15000065), tada nurodykite kintamąjį taip:

    • Pavadinimas: Text10632
    • TextConst: 'ENU=Filename "'

  8. Įtraukite naują visuotinį kintamąjį į OCR mokėjimo – duomenų dialogo ataskaitą (15000065), tada nurodykite kintamąjį taip:

    • Pavadinimas: Text10633
    • TextConst: 'ENU=""" neturėtų baigtis TMP."'

  9. Pakeiskite kodą funkcijoje CreateFilename OCR Mokėjimas – duomenys dialogo ataskaitoje (15000065) tokiu būdu:
    Esamas kodas

    ...
PROCEDURE CreateFilename@1080021();
BEGIN

// Delete the following lines.
IF NOT ISSERVICETIER THEN
PayrollTools.NewFilename(FileName)
ELSE IF FileObject.FileExists(FileName) THEN BEGIN
// End of the lines.

IF (COPYSTR(FileName, STRLEN(FileName) - 1, 1) = '~') OR
(COPYSTR(FileName, STRLEN(FileName) - 2, 1) = '~')
THEN
...

    Pakeitimo kodas

    ...
PROCEDURE CreateFilename@1080021();
BEGIN

// Add the following line.
IF FileObject.FileExists(FileName) THEN BEGIN

IF (COPYSTR(FileName, STRLEN(FileName) - 1, 1) = '~') OR
(COPYSTR(FileName, STRLEN(FileName) - 2, 1) = '~')
THEN
...

  10. Pakeiskite kodą OCR mokėjimo - duomenų dialogo ataskaitos (15000065) dokumentacijoje tokiu būdu:
    Esamas kodas

    ...
END;
END;

BEGIN
END.
}
...

    Pakeitimo kodas

    ...
END;
END;

// Add the following lines.
PROCEDURE CreateWorkfile@1080022(fileName@1080000 : Text[250]) : Text[250];
VAR
file@1080001 : Text[250];
dummy@1080002 : Boolean;
BEGIN
// Creates a workfile. I.e. copies the current file to a new, editable file
// Example: File Payment.TXT is renamed to Payment.TMP.
// RETURNS: The name of the workfile.

file := COPYSTR(fileName, 1, STRLEN(fileName) - 3) + 'tmp';
IF file = fileName THEN // Error: The original file already has a workfile name.
ERROR(Text10632 + fileName + Text10633);

dummy := ERASE(file); // Delete previous workfile (if any). Ignore the error message.
COPY(fileName, file);
EXIT(file);
END;
// End of the lines.

BEGIN
END.
}
...

Būtinosios sąlygos

Norėdami taikyti šią karštąją pataisą, turite įdiegti vieną iš šių produktų:

  • "„Microsoft“ Dynamics NAV 2009 R2" norvegų kalbos versija
  • "„Microsoft“ Dynamics NAV 2009" 1 pakeitimų paketo (SP1) norvegų kalbos versija

Pašalinimo informacija

Šios karštosios pataisos pašalinti negalite.

Būsena

„„Microsoft““ patvirtino, kad tai yra „„Microsoft““ produktų, išvardytų dalyje „Taikoma“, problema.

Pastaba: tai "SPARČIOJO PUBLIKAVIMO" straipsnis, sukurtas tiesiogiai iš "„Microsoft“" palaikymo organizacijos. Čia pateikta informacija pateikiama tokia, kokia yra, reaguojant į kylančias problemas. Dėl greito jos pateikimo medžiagoje gali būti spausdinimo klaidų ir ji gali būti peržiūrėta bet kuriuo metu be išankstinio įspėjimo. Dėl kitų aplinkybių žr. Naudojimo sąlygas .