ocr: - ASSYINST.FSLHButon44:pushbiutton =====-Section G: Duplicate "Outside Vendor" detail records (1 to 1)======== - =l = - If - tcoutuendor.open("OUTUNDR.DB") then ;open TCursor onto table. If tcoutuendor-qLocate(CopyFromul) then ;if "copy from" can be found, tcuutvendor.copylonrraylaynuutvendor) ;copy record From table to array. aynoutuendort"PartNumber"T == CopyTOUI change value in array to user input. tcoutvendor.edito ;put table in edit mode. tcoutuendor.InsertRecord0) ;insert a blank record into the table. tcoutlendor.copyFronarray(aynoutUendor) ;copy record From array to blank record. msgin ...
