Le dimensioni non possono essere ereditate da acquisto e conferme di vendita in Microsoft Dynamics NAV 2009

Modello: CPR - Navision codice Fiacx modello

BUG #: 213246 (manutenzione del contenuto)

Sintomi

In un ordine di reso cliente o fornitore, quando si utilizza la funzionalità "ottenere righe documento registrato da stornare" in Microsoft Dynamics NAV 2009 e i carichi registrati, selezionare le righe non ereditano tutte le quote già utilizzati nelle ricevute di acquisto o di vendita. Seguire i passaggi nella sezione modifiche al codice per risolvere questo problema. Questo problema si verifica nei seguenti prodotti:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 SP1

Risoluzione

Informazioni sull'hotfix

Un hotfix supportato è ora disponibile da Microsoft. Tuttavia, è destinato esclusivamente alla risoluzione del problema descritto in questo articolo. Applicarlo solo ai sistemi in cui si verificano questo problema specifico. Questo hotfix potrebbe essere sottoposto ad ulteriori test. Pertanto, se il problema non causa gravi difficoltà, consiglia di attendere il prossimo service pack di Microsoft Dynamics NAV 2009 o versione successiva di Microsoft Dynamics NAV contenente tale hotfix.

Nota: In casi particolari, le spese normalmente addebitate per le chiamate potrebbero essere annullate qualora un aggiornamento del supporto tecnico di Microsoft Dynamics e prodotti correlati di supporto determina che uno specifico aggiornamento risolverà il problema. I costi di supporto normale verranno applicati per eventuali ulteriori domande e problemi che non dovessero rientrare nello specifico aggiornamento in questione.

Se questo hotfix non è registrato per il download pubblico (ovvero che un URL pubblico per questo hotfix non viene fornito in questo articolo), la distribuzione richiede responsabile tecnico, team o approvazione del responsabile e applicano le seguenti informazioni:

  • Per ottenere l'hotfix è necessario computer sia presente il bug descritto nella sezione "Sintomi".

  • È necessario tenere traccia dei clienti è inviata, al fine di fornire loro il prossimo service pack quando diventa disponibile (se viene rilasciato un service pack).

L'aggiornamento in questione verrà incluso in Microsoft Dynamics NAV 2013 Service Pack.

Informazioni sull'installazione

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia espressa o implicita. Ciò include, ma non limitato a, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presuppone che si abbia familiarità con il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire la procedura di debug. Tecnici del supporto Microsoft consentono di spiegare la funzionalità di una particolare procedura. Tuttavia, essi non modificherà questi esempi per fornire funzionalità aggiuntive o creare procedure atte a soddisfare specifiche esigenze.

Nota: Prima di installare questo hotfix, verificare che tutti gli utenti di client di Microsoft Dynamics NAV sono disconnessi dal sistema. Sono inclusi i servizi di Microsoft Dynamics NAV Application Server (NAS). Dovrebbe essere il solo l'utente client connesso quando si implementa questo hotfix.

Per implementare questo hotfix, è necessario disporre di una licenza di sviluppatore.

È consigliabile che l'account utente nella finestra Login Windows o Login Database assegnare l'ID di ruolo "SUPER". Se l'account utente non può essere assegnato l'ID ruolo "SUPER", è necessario verificare che l'account utente disponga delle autorizzazioni seguenti:

  • Autorizzazione alla modifica dell'oggetto che si desidera modificare.

  • L'autorizzazione di esecuzione per l'oggetto System Object ID 5210 e per il sistema oggetto ID 9015

    oggetto.

Nota: Non è necessario disporre dei diritti per gli archivi dati a meno che non è necessario eseguire il ripristino di dati.

Modifiche al codice

Nota: Sempre il codice di test consente di correggere in un ambiente controllato prima di applicare le correzioni per i computer di produzione.

Per risolvere questo problema, attenersi alla seguente procedura:

  1. Modificare il codice nella funzione CopyLineToDoc nel registrato vendite documento Form righe (5850) come segue:
    Codice esistente 1

    ... LinesNotCopied := 0;
    CASE CurrentMenuType OF
    0:
    BEGIN
    CurrForm.PostedShpts.FORM.GetSelectedLine(FromSalesShptLine);
    CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
    CopyDocMgt.CopySalesShptLinesToDoc(
    ToSalesHeader,FromSalesShptLine,LinesNotCopied,MissingExCostRevLink);
    END;
    1:
    ...


    Codice di sostituzione 1

    ... LinesNotCopied := 0;
    CASE CurrentMenuType OF
    0:
    BEGIN
    CurrForm.PostedShpts.FORM.GetSelectedLine(FromSalesShptLine);

    // Add the following line.
    CopyDocMgt.CopyAllDimensions;
    // End of the added line.

    CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
    CopyDocMgt.CopySalesShptLinesToDoc(
    ToSalesHeader,FromSalesShptLine,LinesNotCopied,MissingExCostRevLink);
    END;
    1:
    ...


    Codice esistente 2

    ... ToSalesHeader,FromSalesInvLine,LinesNotCopied,MissingExCostRevLink);
    END;
    2:
    BEGIN
    CurrForm.PostedReturnRcpts.FORM.GetSelectedLine(FromReturnRcptLine);
    CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
    CopyDocMgt.CopySalesReturnRcptLinesToDoc(
    ToSalesHeader,FromReturnRcptLine,LinesNotCopied,MissingExCostRevLink);
    END;
    3:
    ...


    Codice di sostituzione 2

    ...   ToSalesHeader,FromSalesInvLine,LinesNotCopied,MissingExCostRevLink);
    END;
    2:
    BEGIN
    CurrForm.PostedReturnRcpts.FORM.GetSelectedLine(FromReturnRcptLine);

    // Add the following line.
    CopyDocMgt.CopyAllDimensions;
    // End of the added line.

    CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
    CopyDocMgt.CopySalesReturnRcptLinesToDoc(
    ToSalesHeader,FromReturnRcptLine,LinesNotCopied,MissingExCostRevLink);
    END;
    3:
    ...
  2. Modificare il codice della funzione CopyLineToDoc nella registrazione documento righe modulo fornitore (5855) come segue:
    Codice esistente 1

    ...LinesNotCopied := 0;
    CASE CurrentMenuType OF
    0:
    BEGIN
    CurrForm.PostedRcpts.FORM.GetSelectedLine(FromPurchRcptLine);
    CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
    CopyDocMgt.CopyPurchRcptLinesToDoc(
    ToPurchHeader,FromPurchRcptLine,LinesNotCopied,MissingExCostRevLink);
    END;
    1:
    ...

    Codice sostitutivo 1

    ... LinesNotCopied := 0;
    CASE CurrentMenuType OF
    0:
    BEGIN
    CurrForm.PostedRcpts.FORM.GetSelectedLine(FromPurchRcptLine);

    // Add the following line.
    CopyDocMgt.CopyAllDimensions;
    // End of the added line.

    CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
    CopyDocMgt.CopyPurchRcptLinesToDoc(
    ToPurchHeader,FromPurchRcptLine,LinesNotCopied,MissingExCostRevLink);
    END;
    1:
    ...

    Codice esistente 2

    ...ToPurchHeader,FromPurchInvLine,LinesNotCopied,MissingExCostRevLink);
    END;
    2:
    BEGIN
    CurrForm.PostedReturnShpts.FORM.GetSelectedLine(FromReturnShptLine);
    CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
    CopyDocMgt.CopyPurchReturnShptLinesToDoc(
    ToPurchHeader,FromReturnShptLine,LinesNotCopied,MissingExCostRevLink);
    END;
    3:
    ...

    Codice di sostituzione 2

    ...ToPurchHeader,FromPurchInvLine,LinesNotCopied,MissingExCostRevLink);
    END;
    2:
    BEGIN
    CurrForm.PostedReturnShpts.FORM.GetSelectedLine(FromReturnShptLine);

    // Add the following line.
    CopyDocMgt.CopyAllDimensions;
    // End of the added line.

    CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
    CopyDocMgt.CopyPurchReturnShptLinesToDoc(
    ToPurchHeader,FromReturnShptLine,LinesNotCopied,MissingExCostRevLink);
    END;
    3:
    ...
  3. Modificare il codice nelle variabili globali nella Codeunit Copia documento Gest (6620) come segue:
    Codice esistente

    ...SkippedLine@1047 : Boolean;
    Text029@1048 : TextConst 'ENU=One or more return document lines were not inserted or they contain only the remaining quantity of the original document line. This is because quantities on the posted document line are already fully or partially applied. If you want to reverse the full quantity, you must select Return Original Quantity before getting the posted document lines.';
    Text030@1025 : TextConst 'ENU=%1 %2, line no. %3 is not copied because the full quantity on the posted document line is already manually applied.';
    Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
    SomeAreFixed@1045 : Boolean;

    PROCEDURE SetProperties@2(NewIncludeHeader@1001 : Boolean;NewRecalculateLines@1000 : Boolean;NewMoveNegLines@1006 : Boolean;NewCreateToHeader@1002 : Boolean;NewHideDialog@1003 : Boolean;NewExactCostRevMandatory@1004 : Boolean;NewApplyFully@1005 : Boolean);
    BEGIN
    IncludeHeader := NewIncludeHeader;
    RecalculateLines := NewRecalculateLines;
    ...

    Codice di sostituzione

    ...SkippedLine@1047 : Boolean;
    Text029@1048 : TextConst 'ENU=One or more return document lines were not inserted or they contain only the remaining quantity of the original document line. This is because quantities on the posted document line are already fully or partially applied. If you want to reverse the full quantity, you must select Return Original Quantity before getting the posted document lines.';
    Text030@1025 : TextConst 'ENU=%1 %2, line no. %3 is not copied because the full quantity on the posted document line is already manually applied.';
    Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
    SomeAreFixed@1045 : Boolean;

    // Add the following line.
    CopyDimensions@1050 : Boolean;
    // End of the added line.


    PROCEDURE SetProperties@2(NewIncludeHeader@1001 : Boolean;NewRecalculateLines@1000 : Boolean;NewMoveNegLines@1006 : Boolean;NewCreateToHeader@1002 : Boolean;NewHideDialog@1003 : Boolean;NewExactCostRevMandatory@1004 : Boolean;NewApplyFully@1005 : Boolean);
    BEGIN
    IncludeHeader := NewIncludeHeader;
    RecalculateLines := NewRecalculateLines;
    ...
  4. Modificare il codice nella funzione CopyFromPstdSalesDocDimToLine nella Codeunit Copia documento Gest (6620) come segue:
    Codice esistente

    ...LOCAL PROCEDURE CopyFromPstdSalesDocDimToLine@21(VAR ToSalesLine@1009 : Record 37;FromDocType@1004 : Option;VAR FromSalesShptLine@1007 : Record 111;VAR FromSalesInvLine@1005 : Record 113;VAR FromReturnRcptLine@1003 : Record 6661;VAR FromSalesCrMemoLine@1001 : Record 115);
    VAR
    DocDim@1002 : Record 357;
    FromPostedDocDim@1000 : Record 359;
    BEGIN

    // Delete the following line.
    IF NOT RecalculateLines THEN BEGIN
    // End of the deleted line.

    DocDim.SETRANGE("Table ID",DATABASE::"Sales Line");
    DocDim.SETRANGE("Document Type",ToSalesLine."Document Type");
    DocDim.SETRANGE("Document No.",ToSalesLine."Document No.");
    DocDim.SETRANGE("Line No.",ToSalesLine."Line No.");
    DocDim.DELETEALL;
    ...

    Codice di sostituzione

    ...  LOCAL PROCEDURE CopyFromPstdSalesDocDimToLine@21(VAR ToSalesLine@1009 : Record 37;FromDocType@1004 : Option;VAR FromSalesShptLine@1007 : Record 111;VAR FromSalesInvLine@1005 : Record 113;VAR FromReturnRcptLine@1003 : Record 6661;VAR FromSalesCrMemoLine@1001 : Record 115);
    VAR
    DocDim@1002 : Record 357;
    FromPostedDocDim@1000 : Record 359;
    BEGIN

    // Add the following line.
    IF NOT RecalculateLines OR CopyDimensions THEN BEGIN
    // End of the added line.

    DocDim.SETRANGE("Table ID",DATABASE::"Sales Line");
    DocDim.SETRANGE("Document Type",ToSalesLine."Document Type");
    DocDim.SETRANGE("Document No.",ToSalesLine."Document No.");
    DocDim.SETRANGE("Line No.",ToSalesLine."Line No.");
    DocDim.DELETEALL;
    ...
  5. Modificare il codice nella funzione CopyFromPstdPurchDocDimToLine nella Codeunit Copia documento Gest (6620) come segue:
    Codice esistente

    ...LOCAL PROCEDURE CopyFromPstdPurchDocDimToLine@13(VAR ToPurchLine@1002 : Record 39;FromDocType@1004 : Option;VAR FromPurchRcptLine@1009 : Record 121;VAR FromPurchInvLine@1007 : Record 123;VAR FromReturnShptLine@1005 : Record 6651;VAR FromPurchCrMemoLine@1003 : Record 125);
    VAR
    DocDim@1001 : Record 357;
    FromPostedDocDim@1000 : Record 359;
    BEGIN

    // Delete the following line.
    IF NOT RecalculateLines THEN BEGIN
    // End of the deleted line.

    DocDim.SETRANGE("Table ID",DATABASE::"Purchase Line");
    DocDim.SETRANGE("Document Type",ToPurchLine."Document Type");
    DocDim.SETRANGE("Document No.",ToPurchLine."Document No.");
    DocDim.SETRANGE("Line No.",ToPurchLine."Line No.");
    DocDim.DELETEALL;
    ...

    Codice di sostituzione

    ...LOCAL PROCEDURE CopyFromPstdPurchDocDimToLine@13(VAR ToPurchLine@1002 : Record 39;FromDocType@1004 : Option;VAR FromPurchRcptLine@1009 : Record 121;VAR FromPurchInvLine@1007 : Record 123;VAR FromReturnShptLine@1005 : Record 6651;VAR FromPurchCrMemoLine@1003 : Record 125);
    VAR
    DocDim@1001 : Record 357;
    FromPostedDocDim@1000 : Record 359;
    BEGIN

    // Add the following line.
    IF NOT RecalculateLines OR CopyDimensions THEN BEGIN
    // End of the added line.

    DocDim.SETRANGE("Table ID",DATABASE::"Purchase Line");
    DocDim.SETRANGE("Document Type",ToPurchLine."Document Type");
    DocDim.SETRANGE("Document No.",ToPurchLine."Document No.");
    DocDim.SETRANGE("Line No.",ToPurchLine."Line No.");
    DocDim.DELETEALL;
    ...
  6. Modificare il codice nella funzione CopyAllDimensions nella Codeunit Copia documento Gest (6620) come segue:
    Codice esistente

    ...MESSAGE(Text031);
    IF Text <> '' THEN
    MESSAGE(Text);
    END;

    BEGIN
    END.
    }
    }
    ...

    Codice di sostituzione

    ...MESSAGE(Text031);
    IF Text <> '' THEN
    MESSAGE(Text);
    END;

    // Add the following lines.
    PROCEDURE CopyAllDimensions@85();
    BEGIN
    CopyDimensions := TRUE;
    END;

    // End of the added line.

    BEGIN
    END.
    }
    }
    ...

Prerequisiti

Deve avere uno dei seguenti prodotti per applicare questo hotfix:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009 SP1

Informazioni sulla rimozione

Non è possibile rimuovere questo hotfix.

Stato

Microsoft ha confermato che questo è un problema dei prodotti Microsoft elencati nella sezione "Si applica a".

Riferimenti

VSFT DynamicsNAVSE: 338548

Nota: Si tratta di un articolo a "Pubblicazione Veloce" creato direttamente all'interno dell'organizzazione di supporto Microsoft. Le informazioni contenute nel presente documento sono fornite così come sono in risposta a problemi urgenti. Per la velocità in rendendo disponibili, i materiali possono includere errori tipografici e possono essere modificati in qualsiasi momento senza preavviso. Per altre considerazioni, vedere Condizioni di utilizzo.

Author: Vanessa.Garcia
Writer: v-luzo
Revisore tecnico: Vanessa.Garcia
Editor:

Serve aiuto?

Amplia le tue competenze
Esplora i corsi di formazione
Ottieni in anticipo le nuove caratteristiche
Partecipa a Microsoft Insider

Queste informazioni sono risultate utili?

Grazie per il feedback!

Grazie per il tuo feedback! Potrebbe essere utile metterti in contatto con uno dei nostri operatori del supporto di Office.

×