> >* 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 > >Thanks for the code.