Dynamics Community Forum Thread Details

Record Insertion

I am getting an error when inserting records, maybe i am missing something and need a second set of eyes.

LNO is a integer field, auto increment, Document No. is code field,

here is my code

ConvertMptToJcs(DocNo : Code[20])
//imports date into jcs lines
MptLine.SETRANGE("Document No.", DocNo);
MptLine.SETFILTER(Qty, '>0');
IF MptLine.FINDSET THEN BEGIN
REPEAT
    JcsLine.SETRANGE(JcsLine."Document No.", DocNo);
    IF NOT JcsLine.FINDSET THEN BEGIN //check to see if jcs lines exist, if not, create
      JcsLine.INIT;
      JcsLine."Document No." := DocNo;
      JcsLine.Type := JcsLine.Type::Item;
      JcsLine."No." := MptLine."Part No.";
      JcsLine.Description := MptLine.Description;
      JcsLine.INSERT;
    END ELSE
    IF JcsLine.FINDSET THEN BEGIN //check to see if jcs lines exist, if so then add new line
      JcsLine.INIT;
      JcsLine."Document No." := DocNo;
      JcsLine.Type := JcsLine.Type::Item;
      JcsLine."No." := MptLine."Part No.";
      JcsLine.Description := MptLine.Description;
      JcsLine.INSERT;
    END;
UNTIL MptLine.NEXT = 0;
END;