LRFQLine.INIT; LRFQLine."Document Type" := "Document Type"; LRFQLine.Department := Department; LRFQLine."Document No" :="RFQ No."; LRFQLine."Created By":=USERID; LRFQLine."Date Created":="Raised Date"; LRFQLine."Transaction Date":="Posting Date"; LRFQLine.INSERT;
IF "RFQ No." <> '' THEN BEGIN CASE "Document Type" OF "Document Type"::RFQ: BEGIN LRFQLine.RESET; LRFQLine.SETCURRENTKEY("Document Type",Department,"Document No","Line No."); LRFQLine.SETRANGE("Document Type","Document Type"); LRFQLine.SETRANGE(Department,Department); LRFQLine.SETRANGE("Document No","No."); IF LRFQLine.FINDSET THEN LRFQLine.DELETEALL; FnInsertRFQlines(Rec); END; END; end;
Comments
The subformlink only transfers values with fields from the primairy key.