* Program....: importsqlextrlot.Import_Perform * Version....: 1.0 * Author.....: ** Delton Lee, III ** * Date.......: April 22, 04 LOCAL m.DummyID, ; lcTargetTable, ; lnHandle lcTargetTable = THIS.cDBCNAME + "!" + This.cTablename IF NOT USED("TARGPARENT") lnHandle = This.oConnection.nConnectionHandle USE (lcTargetTable) CONNSTRING lnHandle IN 0 ALIAS TARGPARENT ENDIF SELECT OLDDATA DO WHILE NOT EOF() SELECT OLDDATA SCATTER MEMVAR MEMO *-- Deal with PK + any field name changes here m.ExtrLotID = GUID() m.cSpoolDesc = m.cSpoolCode m.dCompleted = m.dCompDate m.SpecMastID = m.iSpecMast m.SpecDetlID = m.iSpecDetl STORE m.cmatldesc TO m.cprodtype STORE INT(m.nWOQTY) TO m.iWOQTY IF EMPTY(m.dDueDate) STORE .NULL. TO m.dDueDate ENDIF IF EMPTY(m.dEntered) STORE .NULL. TO m.dEntered ENDIF IF EMPTY(m.dCompleted) STORE .NULL. TO m.dCompleted ENDIF INSERT INTO &lcTargetTable FROM MEMVAR IF NOT EMPTY(This.cChildTable) *-- Pass primary key to Child routine This.InsertChildren(m.DummyID) ELSE SKIP ENDIF This.SendFeedback("One Moment, Please...", .t., recno()/this.nSourceRecordCount) ENDDO