Mal: CPR - mal for Navision kode Fiacx

Feil #: 213532 (Innholdsvedlikehold)

Symptomer

Når en post er negativt (korrigering), vil systemet automatisk anta at det er en eksport. CBS-retningslinjene deklarere imidlertid det er en negativ import. Derfor bør det være en funksjonalitet som angir fortegnet for posten (negativ eller positiv) og fortegnet skal ikke påvirke tilstand importen eller eksporten. 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 Service Pack 1

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.

Hvis denne hurtigreparasjonen ikke er allment tilgjengelig for nedlasting (det vil si at det ikke er oppgitt en offentlig URL-adresse for hurtigreparasjonen i denne artikkelen), krever distribusjon godkjenning fra leder, ansvarlig gruppemedlem eller teknisk leder, og følgende informasjon gjelder:

  • Kunder må ha opplevd feilen som er nevnt i delen "Symptomer", for å få hurtigreparasjonen.

  • Du må holde rede på kundene du sender hurtigreparasjonen til, og skaffe dem neste oppdateringspakke når den blir tilgjengelig (Hvis en oppdateringspakke gis ut).

Denne hurtigreparasjonen vil bli inkludert i en nederlandsk versjon av oppdateringspakken for Microsoft Dynamics NAV 2013.

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:

  1. Endre koden i lage Decl. diskett intrastatrapporten (11413) som følger:
    Eksisterende kode 1

    ...SpecialUnit@1000002 : Decimal;
    RoundedWeight@1000001 : Integer;
    ItemDirection@1000004 : Integer;
    BEGIN
    TESTFIELD("Item No.");
    TESTFIELD("Tariff No.");
    ...

    Ny kode 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.");
    ...

    Eksisterende kode 2

    ...ZeroShipment := FALSE;
    END;
    END;

    Write(FORMAT(Date, 0, '<Year4><Month,2>'));
    Write(FORMAT(ItemDirection));
    ...

    Ny kode 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));
    ...

    Eksisterende kode 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, ' ', '<'));
    ...

    Ny kode 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, ' ', '<'));
    ...

    Eksisterende kode 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, ' ', '<'));
    ...

    Ny kode 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, ' ', '<'));
    ...

    Eksisterende kode 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, ' ', '<'));
    ...

    Ny kode 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, ' ', '<'));
    ...

    Eksisterende kode 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, ' ', '<'));
    ...

    Ny kode 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, ' ', '<'));
    ...

    Eksisterende kode 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, ' ', '>'));
    ...

    Ny kode 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, ' ', '>'));
    ...
  2. Endre koden i Sign -funksjonen i lage Decl. diskett intrastatrapporten (11413) som følger:
    Eksisterende kode 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:
    ...

    Ny kode 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:
    ...

    Eksisterende kode 2

    ...BEGIN
    CASE Number < 0 OF
    TRUE:

    // Delete the following line.
    EXIT('-');
    // End of the deleted line.

    FALSE:
    ...

    Ny kode 2

    ...BEGIN
    CASE Number < 0 OF
    TRUE:

    // Add the following lines.
    IF NOT IsCorrection THEN
    EXIT('-')
    ELSE
    EXIT('+');
    // End of the added lines.

    FALSE:
    ...

    Eksisterende kode 3

    ...FALSE:

    // Delete the following line.
    EXIT('+');
    // End of the deleted line.

    END;
    END;
    ...

    Ny kode 3

    ...FALSE:

    // Add the following lines.
    IF NOT IsCorrection THEN
    EXIT('+')
    ELSE
    EXIT('-');
    // End of the added lines.

    END;
    END;
    ...
  3. Endre koden i CheckCorrection -funksjonen i lage Decl. diskett intrastatrapporten (11413) som følger:
    Eksisterende kode

    ...CrLf[2] := 10;
    END;

    BEGIN
    ...

    Ny kode

    ...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
    ...
  4. Endre koden i funksjonen CrLf i lage Decl. diskett intrastatrapporten (11413) som følger:
    Eksisterende kode

    ...BEGIN

    // Delete the following lines.
    {
    // Note: Intrastat Jnl. Batch dataitem has MaxIteration = 1
    }
    END.
    }
    RDLDATA
    {
    }
    }
    // End of the deleted lines.
    ...

    Ny kode

    ...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.
    ...
  5. Endre koden i CheckCorrection -funksjonen i lage Decl. diskett intrastatrapporten (11413) som følger:
    Ny kode

    ...// Add the following lines.
    BEGIN
    {
    // Note: Intrastat Jnl. Batch dataitem has MaxIteration = 1
    }
    END.
    }
    RDLDATA
    {
    }
    }

    // End of the added lines.
    ...

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

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".

Referanser

VSFT DynamicsNAVSE:351077

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.

Author: Vanessa.Garcia
Writer: v-luzo
Teknisk redaktør: Vanessa.Garcia
Editor:

Trenger du mer hjelp?

Utvid ferdighetene dine
Utforsk opplæring
Vær først ute med de nye funksjonene
Bli med i Microsoft Insiders

Var denne informasjonen nyttig?

Hvor fornøyd er du med kvaliteten på oversettelsen?
Hva påvirket opplevelsen din?

Takk for tilbakemeldingen!

×