Ciao a tutti
Sto lavorando su un db NAVIT4SP2 quando mi sono accorto di una cosa.
CU 97 (Blanket Purch. Order to Order)
OnRun(VAR Rec : Record “Purchase Header”)
…
FromDocDim.SETRANGE(“Table ID”,DATABASE::“Purchase Line”);
ToDocDim.SETRANGE(“Table ID”,DATABASE::“Purchase Line”);
LinesCreated := FALSE;
IF PurchBlanketOrderLine.FIND(’-’) THEN
REPEAT
PurchLine.SETCURRENTKEY(“Document Type”,“Blanket Order No.”,“Blanket Order Line No.”);
PurchLine.SETRANGE(“Blanket Order No.”,PurchBlanketOrderLine.“Document No.”);
PurchLine.SETRANGE(“Blanket Order Line No.”,PurchBlanketOrderLine.“Line No.”);
…
IF (PurchOrderLine.“No.” <> ‘’) AND (PurchOrderLine.Type <> 0)THEN BEGIN
PurchOrderLine.Amount := 0;
PurchOrderLine.“Amount Including VAT” := 0;
PurchOrderLine.VALIDATE(Quantity,PurchBlanketOrderLine.“Qty. to Receive”);
IF PurchBlanketOrderLine.“Expected Receipt Date” <> 0D THEN
**VALIDATE(“Expected Receipt Date”,**PurchBlanketOrderLine.“Expected Receipt Date”)
ELSE
**VALIDATE(“Order Date”,**PurchOrderHeader.“Order Date”);
PurchOrderLine.VALIDATE(“Direct Unit Cost”,PurchBlanketOrderLine.“Direct Unit Cost”);
PurchOrderLine.VALIDATE(“Line Discount %”,PurchBlanketOrderLine.“Line Discount %”);
PurchBlanketOrderLine.CALCFIELDS(“Reserved Qty. (Base)”);
IF PurchBlanketOrderLine.“Reserved Qty. (Base)” <> 0 THEN
ReservePurchLine.TransferPurchLineToPurchLine(
PurchBlanketOrderLine,PurchOrderLine,-PurchBlanketOrderLine.“Qty. to Receive (Base)”);
END;
…
Le righe in rosso… Convertendo una riga di un ordine programmato in un ordine d’acquisto, vedo che il sistema mi aggiorna le righe dell’ordine porgrammato segnalando: “È stato modificato il campo: Data ricevimento Prevista”. Non è che si sono sbagliati e volevano correggere la data della nuova riga d’acquisto ma per una distrazione correggono la data di Rec, cioè dell’ordine programmato?
La SP3 è identica…
Idee? Grazie
Matteo