La quantità rimanente nella voce 23 RG D non è corretta dopo la registrazione di una nota di credito di acquisto nella versione di Microsoft Dynamics NAV 2009 SP1 indiana

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.

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. Nella tabella Rigadi vendita (37), aggiungere la seguente variabile globale:

   • Nome: ExecuteExcise

   • Tipo di dati: booleano

2. Aggiungere la seguente variabile nella funzione CalculateStructuresnella tabella Rigadi vendita (37):

   • Nome: DetailRG23D

   • Tipo di dati: Record; 16533

   
   Modificare il codice come segue:

   ...                       END;
                         UNTIL StrOrderDetails.NEXT = 0;
                     END;
                     SalesLine.MODIFY;
                 UNTIL SalesLine.NEXT = 0;
   
   // Add the following l ines.
                IF NOT ExecuteExcise THEN BEGIN 
                  DetailRG23D.RESET; 
                  DetailRG23D.SETRANGE("Document Type","Document Type"); 
                  DetailRG23D.SETRANGE("Order No.","No."); 
                  DetailRG23D.SETRANGE("Document No.",''); 
                  DetailRG23D.DELETEALL; 
                END; 
   // End of the added lines.
   ...
   

3. Aggiungere la seguente variabile nella funzione CheckAvailableQtyForReturnnella tabella Rigadi vendita (37):

   • Nome: RG23D2

   • Tipo di dati: Record; 16537

   
   Modificare il codice come segue:

   ...           IF RG23D.FINDSET THEN
             REPEAT
   // Delete the following line.
                  QtyAllocated += ABS(RG23D.Quantity); 
   // End of the deleted line.
   
   // Add the following lines.
              RG23D2.GET(RG23D."Ref. Entry No."); 
              RG23D2.CALCFIELDS("Remaining Quantity"); 
              QtyAllocated += ABS(RG23D2.Quantity - RG23D2."Remaining Quantity");
   // End of the added lines.
   
             UNTIL RG23D.NEXT = 0;
   ...
   

4. Creare la funzione SetExecuteExcisenella tabella Rigadi vendita (37). Quindi, aggiungere il seguente parametro:

   • Nome: ExecuteExcise2

   • Tipo di dati: booleano
     

   
   Aggiungere il codice riportato di seguito:

   ExecuteExcise := ExecuteExcise2;

5. Nella tabella Riga di acquisto(39), aggiungere la seguente variabile globale:

   • Nome: ExecuteExcise

   • Tipo di dati: booleano

6. Aggiungere la seguente variabile nella funzione CalculateStructuresnella tabella Riga di acquisto(39):

   • Nome: DetailRG23D

   • Tipo di dati: Record; 16533

   
   Modificare il codice come segue:

   ...                        END;
                       UNTIL StrOrderDetails.NEXT = 0;
                   END;
                   PurchLine.MODIFY;
               UNTIL PurchLine.NEXT = 0;
   
   // Add the following lines.
                IF NOT ExecuteExcise THEN BEGIN 
                  DetailRG23D.RESET; 
                  DetailRG23D.SETRANGE("Document Type","Document Type"); 
                  DetailRG23D.SETRANGE("Order No.","No."); 
                  DetailRG23D.SETRANGE("Document No.",''); 
                  DetailRG23D.DELETEALL; 
                END; 
   // End of the added lines.
   
            END;
           END;
         END;
   ...
   

7. Creare la funzione SetExecuteExcisenella tabella Riga di acquisto(39). Quindi, aggiungere il seguente parametro:

   • Nome: ExecuteExcise2

   • Tipo di dati: booleano
     

   
   Aggiungere il codice riportato di seguito:

   ExecuteExcise := ExecuteExcise2;

8. Modificare il codice nella proprietàdi vendita - Postcodeunit (80) come segue:

     ...                SalesLine.GetSalesPriceExclusiveTaxes(SalesHeader);
                     SalesLine.UpdateSalesLinesPIT(SalesHeader);
                   END;
   
                   IF Structure <> '' THEN BEGIN
   
   // Add the following lines.
                    SalesLine.SetExecuteExcise( 
                      ("Document Type" IN ["Document Type"::"Credit Memo","Document Type"::Invoice]) OR 
                      (("Document Type" IN ["Document Type"::"Return Order", 
                      "Document Type"::Order]) AND 
                      Invoice)); 
   // End of the added lines.
   
                     SalesLine.CalculateStructures(SalesHeader);
                     SalesLine.AdjustStructureAmounts(SalesHeader);
                     SalesLine.UpdateSalesLines(SalesHeader);
                     CheckVATSettled(SalesHeader);
                   END;
   ...
   
   

9. Modificare il codice nella proprietàdi Acq.-Postcodeunit (90) come segue:

     ...                   TESTFIELD("Document Date");
                   IF GenJnlCheckLine.DateNotAllowed("Posting Date") THEN
                     FIELDERROR("Posting Date",Text045);
   
                   IF Structure <> '' THEN BEGIN
   
   // Add the following lines.
                    PurchLine.SetExecuteExcise(("Document Type" = "Document Type"::"Credit Memo") OR 
                      (("Document Type" = "Document Type"::"Return Order") AND Invoice)); 
   // End of the added lines.
   
                     PurchLine.CalculateStructures(PurchHeader);
                     COMMIT;
                     CheckVATSettled;
                     PurchLine.AdjustStructureAmounts(PurchHeader);
                     PurchLine.UpdatePurchLines(PurchHeader);
   ...