Aparece el mensaje de error "No se puede cambiar el código de ubicación" cuando cambia el valor de "venta a-n º cliente" en un pedido de ventas en Microsoft Dynamics NAV

Información de la revisión

Ahora hay una revisión compatible de Microsoft. Sin embargo, sólo se diseñó para corregir el problema que se describe en este artículo. Aplíquela sólo a sistemas que experimenten este problema específico. Esta revisión puede ser sometida a comprobaciones adicionales. Por lo tanto, si no se ve muy afectado por este problema, recomendamos que espere al próximo service pack de Microsoft Dynamics NAV 2009 o la próxima versión de Microsoft Dynamics NAV que contenga esta revisión.

Nota: En casos especiales, los costos derivados normalmente de las llamadas pueden cancelarse si un profesional de soporte técnico de Microsoft Dynamics y productos relacionados de soporte determina que una actualización específica resolverá el problema. Los costos habituales de soporte se aplicarán a las preguntas de soporte técnico adicionales y problemas que no guarden relación con la actualización en cuestión.

Cambios de código

Nota: Siempre pruebe correcciones de código en un entorno controlado antes de aplicar las revisiones a los equipos de producción.
Para resolver este problema, cambie el código de la tabla Sales Header (36). Para ello, siga estos pasos:

1. Elimine la constante de texto siguientes:

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

   
   

2. Cambie el código en la función RecreateSalesLines como sigue:
   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 sustitución

   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
   …