>DEFINE CLASS FOXSEEK AS CUSTOM OLEPUBLIC > > FUNCTION SEEKME > LPARAMETERS GCTABLENAME, GCJOBNUM > RETURNBOOL = 10 > > > IF EMPTY(GCTABLENAME) OR EMPTY(GCJOBNUM) > RETURNBOOL = 99 > RETURN 0 > ENDIF > >CLOSE DATA ALL > >CREATE CURSOR NEWPRODWIP (JOB_NUM C(10), PRODUCT C(4), SLOT C(2)) >IF FILE(ALLTRIM(GCTABLENAME)) > USE &GCTABLENAME IN 0 ALIAS PRODWIP SHARED > IF USED("Prodwip") > SELECT PRODWIP > SET ORDER TO JOB_NUM > > IF SEEK (GCJOBNUM) > SCAN WHILE PRODWIP.JOB_NUM = (GCJOBNUM) > IF LEFT(PRODWIP.PRODUCT,1) = "8" ; .OR. LEFT(PRODWIP.PRODUCT,3) = "977" ; .OR. LEFT(PRODWIP.PRODUCT,2) = "NP" ; .OR. PRODWIP.PRODUCT = "656" > SELECT NEWPRODWIP > APPEND BLANK > REPLACE JOB_NUM WITH PRODWIP.JOB_NUM > REPLACE PRODUCT WITH PRODWIP.PRODUCT > REPLACE SLOT WITH PRODWIP.SLOT > ENDIF > ENDSCAN > ENDIF > > SELECT NEWPRODWIP > > #DEFINE C_VFPCOMCLASS 'vfpcom.comutil' > oVFPCOM = CREATEOBJECT('VFPCOM.COMUTIL') > oRECORDSET=CREATEOBJECT('ADODB.RECORDSET') > nERROR = oVFPCOM.CURSORTORS(oRECORDSET,'NewProdWip') > > RETURN ORECORDSET > ELSE > RETURN GCTABLENAME + " Access Denied" && no table > ENDIF >ENDIF >RETURN RETURNBOOL > ENDPROC >ENDDEFINE>