************************************************** *-- Class: caparcel (d:\vfp9dev\pelican\classes\pelican.vcx) *-- ParentClass: mysqlcursoradapter (d:\vfp9dev\classes\ntier.vcx) *-- BaseClass: cursoradapter *-- Time Stamp: 07/09/10 08:55:10 AM * #INCLUDE "d:\vfp9dev\includes\system.h" * DEFINE CLASS caparcel AS mysqlcursoradapter UseDeDataSource = .T. SelectCmd = "select * from parcel" CursorSchema = "PID C(10), JOBORDERID C(32), CUSTREFNO C(20), LASTNAME C(25), FIRSTNAME C(25), MIDDLENAME C(25), CAREOF C(50), COMPANY C(50), BUILDING C(50), STREET C(50), MISCADDR C(120), CITY C(25), ZIP C(4), SPLNOTE M, TXNCODE C(3), TXNREFNO C(10), TXNDATE D, STATUSCODE C(5), LOCATIONID C(32), REASONID C(32), MESSENGERID C(32), CUSTOMERID C(32), PRODUCTID C(32), ENTEREDBY C(10), ID C(32)" Alias = "parcel" Flags = 0 KeyFieldList = "ID" Tables = "parcel" UpdatableFieldList = "PID, JOBORDERID, CUSTREFNO, LASTNAME, FIRSTNAME, MIDDLENAME, CAREOF, COMPANY, BUILDING, STREET, MISCADDR, CITY, ZIP, SPLNOTE, TXNCODE, TXNREFNO, TXNDATE, STATUSCODE, LOCATIONID, REASONID, MESSENGERID, CUSTOMERID, PRODUCTID, ENTEREDBY, ID" UpdateNameList = "PID parcel.PID, JOBORDERID parcel.JOBORDERID, CUSTREFNO parcel.CUSTREFNO, LASTNAME parcel.LASTNAME, FIRSTNAME parcel.FIRSTNAME, MIDDLENAME parcel.MIDDLENAME, CAREOF parcel.CAREOF, COMPANY parcel.COMPANY, BUILDING parcel.BUILDING, STREET parcel.STREET, MISCADDR parcel.MISCADDR, CITY parcel.CITY, ZIP parcel.ZIP, SPLNOTE parcel.SPLNOTE, TXNCODE parcel.TXNCODE, TXNREFNO parcel.TXNREFNO, TXNDATE parcel.TXNDATE, STATUSCODE parcel.STATUSCODE, LOCATIONID parcel.LOCATIONID, REASONID parcel.REASONID, MESSENGERID parcel.MESSENGERID, CUSTOMERID parcel.CUSTOMERID, PRODUCTID parcel.PRODUCTID, ENTEREDBY parcel.ENTEREDBY, ID parcel.ID" parentalias = "joborder" parentkeyfields = "id" keyfields = "joborderid" hasautoincfield = .T. autoincfield = "pid" Name = "caparcel" ENDDEFINE * *-- EndDefine: caparcel **************************************************