|
что-то ни чего подозрительного не замечаю...БЫЛО так:
PurchOrderLine.VALIDATE(Type,Type);
PurchOrderLine.VALIDATE("No.","No.");
PurchOrderLine.VALIDATE("Location Code","Location Code");
PurchOrderLine.VALIDATE("Unit of Measure Code","Unit of Measure Code");
PurchOrderLine.VALIDATE(Quantity,Quantity);
IF PurchOrderHeader."Prices Including VAT" THEN
PurchOrderLine.VALIDATE("Direct Unit Cost","Direct Unit Cost" * (1 + PurchOrderLine."VAT %" / 100))
ELSE
PurchOrderLine.VALIDATE("Direct Unit Cost","Direct Unit Cost");
PurchOrderLine.VALIDATE("Line Discount %","Line Discount %");
PurchOrderLine."Shortcut Dimension 1 Code" := "Shortcut Dimension 1 Code";
PurchOrderLine."Shortcut Dimension 2 Code" := "Shortcut Dimension 2 Code";
PurchOrderLine.VALIDATE("Planning Flexibility","Planning Flexibility");
PurchOrderLine.VALIDATE("Purchasing Code","Purchasing Code");
IF "Due Date" <> 0D THEN BEGIN
PurchOrderLine.VALIDATE("Expected Receipt Date","Due Date");
PurchOrderLine."Requested Receipt Date" := PurchOrderLine."Planned Receipt Date";
END;
PurchOrderLine.INSERT;
SalesOrderLine.VALIDATE("Unit Cost (LCY)");
Сделал так:
PurchOrderLine.VALIDATE(Type,Type);
PurchOrderLine.VALIDATE("No.","No.");
PurchOrderLine.VALIDATE("Location Code","Location Code");
PurchOrderLine.VALIDATE("Unit of Measure Code","Unit of Measure Code");
PurchOrderLine.VALIDATE(Quantity,Quantity);
IF PurchOrderHeader."Prices Including VAT" THEN
PurchOrderLine.VALIDATE("Direct Unit Cost","Direct Unit Cost" * (1 + PurchOrderLine."VAT %" / 100))
ELSE
PurchOrderLine.VALIDATE("Direct Unit Cost","Direct Unit Cost");
PurchOrderLine.VALIDATE("Line Discount %","Line Discount %");
PurchOrderLine.VALIDATE("Planning Flexibility","Planning Flexibility");
PurchOrderLine.VALIDATE("Purchasing Code","Purchasing Code");
IF "Due Date" <> 0D THEN BEGIN
PurchOrderLine.VALIDATE("Expected Receipt Date","Due Date");
PurchOrderLine."Requested Receipt Date" := PurchOrderLine."Planned Receipt Date";
END;
PurchOrderLine."Shortcut Dimension 1 Code" := "Shortcut Dimension 1 Code";
PurchOrderLine."Shortcut Dimension 2 Code" := "Shortcut Dimension 2 Code";
PurchOrderLine.INSERT;
SalesOrderLine.VALIDATE("Unit Cost (LCY)");
|