Mensagem de erro "Não é possível alterar o código de localização" quando alterar o valor de "venda-a n º Cliente" numa encomenda de venda no Microsoft Dynamics NAV

Informações sobre correção

Agora tem uma correcção suportada disponível na Microsoft. Contudo, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-a apenas em sistemas que tenham este problema específico. Esta correcção poderá ser submetida a testes adicionais. Por conseguinte, se não estiver a ser gravemente afectado por este problema, recomendamos que aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contenha esta correcção.

Nota Em casos especiais, os custos normalmente inerentes para suporte chamadas poderão ser anuladas se um técnico de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma actualização específica resolverá o problema. Os custos de normais do suporte serão aplicados a questões de suporte adicionais e problemas que não se enquadrem na atualização específica em questão.

Alterações de código

Nota Sempre o código de ensaio corrige num ambiente controlado antes de aplicar as correcções para os computadores de produção.
Para resolver este problema, altere o código da tabela de cabeçalho de vendas (36). Para tal, siga estes passos:

1. Elimine a constante de texto seguinte:

   Text047@1095 : TextConst 'ENU=You cannot change %1 because reservation, item tracking, or order tracking exists on the sales order.'; 

   
   

2. Altere o código na função RecreateSalesLines da seguinte forma:
   Código existente

   SalesLine.TESTFIELD("Return Qty. Received",0);              SalesLine.TESTFIELD("Shipment No.",'');
                 SalesLine.TESTFIELD("Return Receipt No.",'');
                 SalesLine.TESTFIELD("Blanket Order No.",'');
                 SalesLine.TESTFIELD("Prepmt. Amt. Inv.",0);
                 SalesLineTmp := SalesLine;
                 IF SalesLine.Nonstock THEN BEGIN
                   SalesLine.Nonstock := FALSE;
                   SalesLine.MODIFY;
                 END;
                 SalesLineTmp.INSERT;
                 RecreateReservEntry(SalesLine,0,TRUE);
                 RecreateReqLine(SalesLine,0,TRUE);
               UNTIL SalesLine.NEXT = 0;
   
   // Delete the following lines.
               IF "Location Code" <> xRec."Location Code" THEN                 
                 IF NOT TempReservEntry.ISEMPTY THEN                              
                   ERROR(Text047,FIELDCAPTION("Location Code"));               
   // End of the deleted lines.
   
               ItemChargeAssgntSales.SETRANGE("Document Type","Document Type");
               ItemChargeAssgntSales.SETRANGE("Document No.","No.");
               IF ItemChargeAssgntSales.FINDSET THEN BEGIN
   …
   

   Código de substituição

   SalesLine.TESTFIELD("Return Qty. Received",0);              SalesLine.TESTFIELD("Shipment No.",'');
                 SalesLine.TESTFIELD("Return Receipt No.",'');
                 SalesLine.TESTFIELD("Blanket Order No.",'');
                 SalesLine.TESTFIELD("Prepmt. Amt. Inv.",0);
   
   // Add the following lines.
                 IF SalesLine."Location Code" <> "Location Code" THEN                      
                   SalesLine.VALIDATE("Location Code","Location Code");                     
   // End of the added lines.
   
                 SalesLineTmp := SalesLine;
                 IF SalesLine.Nonstock THEN BEGIN
                   SalesLine.Nonstock := FALSE;
                   SalesLine.MODIFY;
                 END;
                SalesLineTmp.INSERT;
                 RecreateReservEntry(SalesLine,0,TRUE);
                 RecreateReqLine(SalesLine,0,TRUE);
               UNTIL SalesLine.NEXT = 0;
   
               ItemChargeAssgntSales.SETRANGE("Document Type","Document Type");
               ItemChargeAssgntSales.SETRANGE("Document No.","No.");
               IF ItemChargeAssgntSales.FINDSET THEN BEGIN
   …