Symptomer
Standardverdien i feltet Partnertype i en leverandør er null (tom) i den nederlandske versjonen av Microsoft Dynamics NAV 2009. Men etter at du har endret feltet, kan ikke du endre verdien til null (tom) på nytt. Følg trinnene i delen kodeendringer for å løse dette problemet. Dette problemet oppstår i følgende produkter:
-
Den nederlandske versjonen av Microsoft Dynamics NAV 2009 R2
-
Den nederlandske versjonen av Microsoft Dynamics NAV 2009 SP1
Oppløsning
Informasjon om hurtigreparasjon
En støttet hurtigreparasjon er nå tilgjengelig fra Microsoft. Det er imidlertid bare ment å løse problemet som er beskrevet i denne artikkelen. Bruk den bare på systemer som har dette bestemte problemet. Denne hurtigreparasjonen kan gjennomgå ytterligere testing. Hvis du ikke er alvorlig påvirket av dette problemet, anbefaler vi derfor at du venter på neste oppdateringspakke for Microsoft Dynamics NAV 2009 eller den neste versjonen av Microsoft Dynamics NAV som inneholder denne hurtigreparasjonen.
Obs! I spesielle tilfeller avgifter som vanligvis påløper for støtte samtaler kan avbrytes hvis en kundestøttemedarbeider for Microsoft Dynamics og beslektede produkter avgjør at en bestemt oppdatering løser problemet. Vanlige kundestøttekostnader gjelder for ytterligere kundestøttespørsmål og problemer som ikke dekkes av den gjeldende oppdateringen.
Installasjonsinformasjon
Microsoft bruker ment som eksempler, uten garanti, verken direkte eller indirekte. Dette inkluderer, men er ikke begrenset til, eventuelle stilltiende garantier om salgbarhet eller anvendelighet for særskilte formål. Denne artikkelen forutsetter at du er kjent med programmeringsspråket som anvendes, og verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsofts kundestøtteteknikere kan hjelpe deg med å forklare funksjonaliteten til en bestemt prosedyre. De endrer imidlertid ikke disse eksemplene for å lage forbedret funksjonalitet eller lage prosedyrer som dekker dine spesifikke behov.
Obs! Før du installerer denne hurtigreparasjonen, må du kontrollere at alle brukerne i Microsoft Dynamics NAV-klienten er logget av systemet. Dette inkluderer tjenester for Microsoft Dynamics NAV Application Server (NAS). Du skal bare klient-brukeren som er logget på når du implementerer denne hurtigreparasjonen.
Hvis du vil implementere denne hurtigreparasjonen, må du ha en utviklerlisens.
Vi anbefaler at kontoen i vinduet Windows-pålogging eller i vinduet Database-pålogging være tildelt "SUPER" rolle-ID. Hvis brukerkontoen ikke kan tilordnes "SUPER" rolle-IDen, må du kontrollere at brukerkontoen har følgende tillatelser:
-
Endre-tillatelse for objektet du vil endre.
-
Tilgangsnivået for systemet objekt-IDen til 5210 objektet og systemet objekt-ID-9015
-objektet.
Obs! Du har ikke tilgangsrettigheter til datalagre med mindre du har til å utføre data reparasjon.
Kodeendringer
Obs! Alltid løser teste koden i et kontrollert miljø før du installerer hurtigreparasjoner til produksjonsdatamaskiner for.
Hvis du vil løse dette problemet, gjør du følgende:
-
Endre koden i CheckTransModePartnerType -funksjonen i Transaksjonsmodus-tabellen (11000004) som følger:
Eksisterende kode...END;
END;
// Delete the following lines.
PROCEDURE CheckTransModePartnerType@1000001(TransactionModeCode@1000001 : Code[20];PartnerType@1000002 : ' ,Company,Person') : Boolean;
VAR
TransationMode@1000000 : Record 11000004;
BEGIN
IF TransactionModeCode <> '' THEN BEGIN
// End of the deleted lines.
SETRANGE(Code,TransactionModeCode);
FINDFIRST;
IF PartnerType <> "Partner Type" THEN
...Ny kode
...END;
END;
// Add the following lines.
PROCEDURE CheckTransModePartnerType@1000001(AccountType@1000003 : 'Customer,Vendor';TransactionModeCode@1000001 : Code[20];PartnerType@1000002 : ' ,Company,Person') : Boolean;
VAR
TransationMode@1000000 : Record 11000004;
BEGIN
IF TransactionModeCode <> '' THEN BEGIN
SETRANGE("Account Type",AccountType);
// End of the added lines.
SETRANGE(Code,TransactionModeCode);
FINDFIRST;
IF PartnerType <> "Partner Type" THEN
... -
Endre koden i egenskapene i Kunde-tabellen (18) som følger:
Eksisterende kode 1...END;
OnModify=VAR
TransactionMode@1000000 : Record 11000004;
BEGIN
"Last Date Modified" := TODAY;
...Ny kode 1
...END;
OnModify=VAR
// Add the following line.
AccountType@1000001 : 'Customer,Vendor';
// End of the added line.
TransactionMode@1000000 : Record 11000004;
BEGIN
"Last Date Modified" := TODAY;
...Eksisterende kode 2
...(Contact <> xRec.Contact) OR
("Partner Type" <> xRec."Partner Type")
THEN BEGIN
// Delete the following line.
IF NOT TransactionMode.CheckTransModePartnerType("Transaction Mode Code","Partner Type") THEN
// End of the deleted line.
ERROR(PartnerTypeMismatchErr);
MODIFY;
UpdateContFromCust.OnModify(Rec);
...Ny kode 2
...(Contact <> xRec.Contact) OR
("Partner Type" <> xRec."Partner Type")
THEN BEGIN
// Add the following line.
IF NOT TransactionMode.CheckTransModePartnerType(AccountType::Customer,"Transaction Mode Code","Partner Type") THEN
// End of the added line.
ERROR(PartnerTypeMismatchErr);
MODIFY;
UpdateContFromCust.OnModify(Rec);
... -
Endre koden i feltene i tabellen Kunde (18) som følger:
Eksisterende kode...CalcFormula=Count("Sales Header Archive" WHERE (Document Type=CONST(Order),
Sell-to Customer No.=FIELD(No.))) }
{ 132 ; ;Partner Type ;Option ;OnValidate=VAR
// Delete the following lines.
TransactionMode@1000000 : Record 11000004;
BEGIN
IF NOT TransactionMode.CheckTransModePartnerType("Transaction Mode Code","Partner Type") THEN
// End of the deleted lines.
IF NOT CONFIRM(PartnerTypeMismatchMsg,FALSE) THEN
ERROR('')
END;
...Ny kode
...CalcFormula=Count("Sales Header Archive" WHERE (Document Type=CONST(Order),
Sell-to Customer No.=FIELD(No.))) }
{ 132 ; ;Partner Type ;Option ;OnValidate=VAR
// Add the following lines.
AccountType@1000001 : 'Customer,Vendor';
TransactionMode@1000000 : Record 11000004;
BEGIN
IF NOT TransactionMode.CheckTransModePartnerType(AccountType::Customer,"Transaction Mode Code","Partner Type") THEN
// End of the added lines.
IF NOT CONFIRM(PartnerTypeMismatchMsg,FALSE) THEN
ERROR('')
END;
... -
Endre koden i egenskapene i tabellen Leverandør (23) som følger:
Eksisterende kode 1...END;
OnModify=VAR
TransactionMode@1000000 : Record 11000004;
BEGIN
"Last Date Modified" := TODAY;
...Ny kode 1
...END;
OnModify=VAR
// Add the following line.
AccountType@1000001 : 'Customer,Vendor';
// End of the added line.
TransactionMode@1000000 : Record 11000004;
BEGIN
"Last Date Modified" := TODAY;
...Eksisterende kode 2
...("Home Page" <> xRec."Home Page") OR
("Partner Type" <> xRec."Partner Type")
THEN BEGIN
// Delete the following line.
IF NOT TransactionMode.CheckTransModePartnerType("Transaction Mode Code","Partner Type") THEN
// End of the deleted line.
ERROR(PartnerTypeMismatchErr);
MODIFY;
UpdateContFromVend.OnModify(Rec);
...Ny kode 2
...("Home Page" <> xRec."Home Page") OR
("Partner Type" <> xRec."Partner Type")
THEN BEGIN
// Add the following line.
IF NOT TransactionMode.CheckTransModePartnerType(AccountType::Vendor,"Transaction Mode Code","Partner Type") THEN
// End of the added line.
ERROR(PartnerTypeMismatchErr);
MODIFY;
UpdateContFromVend.OnModify(Rec);
... -
Endre koden i feltene i tabellen Leverandør (23) som følger:
Eksisterende kode...CalcFormula=Count("Purchase Header Archive" WHERE (Document Type=CONST(Order),
Buy-from Vendor No.=FIELD(No.))) }
{ 132 ; ;Partner Type ;Option ;OnValidate=VAR
// Delete the following lines.
TransactionMode@1000000 : Record 11000004;
BEGIN
IF NOT TransactionMode.CheckTransModePartnerType("Transaction Mode Code","Partner Type") THEN
IF NOT CONFIRM(PartnerTypeMismatchMsg,FALSE) THEN
ERROR('')
END;
OptionString=,Company,Person }
// End of the deleted lines.
{ 5049; ;Primary Contact No. ;Code20 ;TableRelation=Contact;
OnValidate=VAR
Cont@1001 : Record 5050;
...Ny kode
...CalcFormula=Count("Purchase Header Archive" WHERE (Document Type=CONST(Order),
Buy-from Vendor No.=FIELD(No.))) }
{ 132 ; ;Partner Type ;Option ;OnValidate=VAR
// Add the following lines.
AccountType@1000001 : 'Customer,Vendor';
TransactionMode@1000000 : Record 11000004;
BEGIN
IF NOT TransactionMode.CheckTransModePartnerType(AccountType::Vendor,"Transaction Mode Code","Partner Type") THEN
IF NOT CONFIRM(PartnerTypeMismatchMsg,FALSE) THEN
ERROR('')
END;
OptionString=[ ,Company,Person] }
// End of the added lines.
{ 5049; ;Primary Contact No. ;Code20 ;TableRelation=Contact;
OnValidate=VAR
Cont@1001 : Record 5050;
...
Forutsetninger
Du må ha én av de følgende programmene installert for å bruke denne hurtigreparasjonen:
-
Den nederlandske versjonen av Microsoft Dynamics NAV 2009 R2
-
Den nederlandske versjonen av Microsoft Dynamics NAV 2009 SP1
I tillegg må du ha SEPA-versjonen som er installert for MSDNAV2009sp1SEPANLdebit.
Informasjon om fjerning
Du kan ikke fjerne denne hurtigreparasjonen.
Status
Microsoft har bekreftet at dette er et problem i Microsoft-produktene som er oppført i delen "Gjelder for".
Obs! Dette er en "RASKT PUBLISERE" artikkel opprettet direkte fra innenfor organisasjonen Microsoft Kundestøtte. Informasjonen i dette dokumentet tilbys som-er som svar på nye problemer. Som et resultat av hastigheten i å gjøre den tilgjengelig materialene kan inkludere typografiske feil, og den kunne bli revidert når som helst uten varsel. Se Vilkårene for Brukfor andre hensyn.