>************************************************** >*-- Class: caicgloan (c:\development\rpmfox\libs\rpmfox.vcx) >*-- ParentClass: cursoradapter >*-- BaseClass: cursoradapter >*-- Time Stamp: 08/24/12 02:41:10 PM >* >DEFINE CLASS caicgloan AS cursoradapter > > > Tag = "driver=SQL Server;Server=DAL-ICGTAX-DB;Database=CopyRPM_Test;trusted_connection=yes;" > Height = 22 > Width = 23 > SelectCmd = "select * from icgloan" > CursorSchema = "ID I, CLIENT_ID I, LOAN C(20), DISPLAY_LOAN C(20), CONTRACT C(10), LOCATION C(3), BRANCH C(5), SETUP_DATE C(10), SERVICE_TYPE C(10), " + ; > "LOAN_TERM C(3), LOAN_AMOUNT B(2), BORROWERNAME C(50), NEWLOAN_NUM C(20), MAIL_ADDR1 C(50), MAIL_ADDR2 C(50), MAIL_CITY C(30), MAIL_STATE C(2), MAIL_ZIP C(5)" + ; > ", MAIL_ZIP4 C(4), REMARKS M, BILL_CODE C(3), TIMESTMP T, INITIALS C(3), BILL_FEE B(2), CANCEL_DATE C(10), INVESTOR_NUM C(10), PROCESS_STOP C(1), LOAN_SEVERITY" + ; > " C(4), APPRAISED_VAL B(2), APPRAISED_DATE C(10), MAN_CODE C(3), HIGH_LO C(5), LOAN_TYPE C(10), CLIENT_BRANCH C(2), NEXT_CRITICAL C(10), CLASS C(10), TOTAL_DUE B(2)," + ; > " COUNTY C(50), ORDER_DATE C(10), MULTIPROP L, BILLED L, BDATE C(10), INTERNAL_ID I, RPT1 C(20), RPT2 C(20), RPT3 C(20), RPT4 C(20), COBORROWERNAME C(50), ALT_MAIL_ADDR1 " + ; > "C(50), ALT_MAIL_ADDR2 C(50), ALT_MAIL_CITY C(30), ALT_MAIL_STATE C(2), ALT_MAIL_ZIP C(5), ALT_MAIL_ZIP4 C(4)" > Alias = "icgloan" > BufferModeOverride = 5 > DataSourceType = "ODBC" > Flags = 0 > KeyFieldList = "ID" > Tables = "icgloan" > UpdatableFieldList = "CLIENT_ID, LOAN, DISPLAY_LOAN, CONTRACT, LOCATION, BRANCH, SETUP_DATE, SERVICE_TYPE, LOAN_TERM, LOAN_AMOUNT, BORROWERNAME, NEWLOAN_NUM, " + ; > "MAIL_ADDR1, MAIL_ADDR2, MAIL_CITY, MAIL_STATE, MAIL_ZIP, MAIL_ZIP4, REMARKS, BILL_CODE, TIMESTMP, INITIALS, BILL_FEE, CANCEL_DATE, INVESTOR_NUM, PROCESS_STOP," + ; > "LOAN_SEVERITY, APPRAISED_VAL, APPRAISED_DATE, MAN_CODE, HIGH_LO, LOAN_TYPE, CLIENT_BRANCH, NEXT_CRITICAL, CLASS, TOTAL_DUE, COUNTY, ORDER_DATE, MULTIPROP, BILLED," + ; > "BDATE, INTERNAL_ID, RPT1, RPT2, RPT3, RPT4, COBORROWERNAME, ALT_MAIL_ADDR1, ALT_MAIL_ADDR2, ALT_MAIL_CITY, ALT_MAIL_STATE, ALT_MAIL_ZIP, ALT_MAIL_ZIP4" > > UpdateNameList = "ID icgloan.ID, CLIENT_ID icgloan.CLIENT_ID, LOAN icgloan.LOAN, DISPLAY_LOAN icgloan.DISPLAY_LOAN, CONTRACT icgloan.CONTRACT, LOCATION " + ; > "icgloan.LOCATION, BRANCH icgloan.BRANCH, SETUP_DATE icgloan.SETUP_DATE, SERVICE_TYPE icgloan.SERVICE_TYPE, LOAN_TERM icgloan.LOAN_TERM, LOAN_AMOUNT " + ; > "icgloan.LOAN_AMOUNT, BORROWERNAME icgloan.BORROWERNAME, NEWLOAN_NUM icgloan.NEWLOAN_NUM, MAIL_ADDR1 icgloan.MAIL_ADDR1, MAIL_ADDR2 icgloan.MAIL_ADDR2, " + ; > "MAIL_CITY icgloan.MAIL_CITY, MAIL_STATE icgloan.MAIL_STATE, MAIL_ZIP icgloan.MAIL_ZIP, MAIL_ZIP4 icgloan.MAIL_ZIP4, REMARKS icgloan.REMARKS, BILL_CODE " + ; > "icgloan.BILL_CODE, TIMESTMP icgloan.TIMESTMP, INITIALS icgloan.INITIALS, BILL_FEE icgloan.BILL_FEE, CANCEL_DATE icgloan.CANCEL_DATE, INVESTOR_NUM " + ; > "icgloan.INVESTOR_NUM, PROCESS_STOP icgloan.PROCESS_STOP, LOAN_SEVERITY icgloan.LOAN_SEVERITY, APPRAISED_VAL icgloan.APPRAISED_VAL, APPRAISED_DATE " + ; > "icgloan.APPRAISED_DATE, MAN_CODE icgloan.MAN_CODE, HIGH_LO icgloan.HIGH_LO, LOAN_TYPE icgloan.LOAN_TYPE, CLIENT_BRANCH icgloan.CLIENT_BRANCH, NEXT_CRITICAL " + ; > "icgloan.NEXT_CRITICAL, CLASS icgloan.CLASS, TOTAL_DUE icgloan.TOTAL_DUE, COUNTY icgloan.COUNTY, ORDER_DATE icgloan.ORDER_DATE, MULTIPROP icgloan.MULTIPROP, " + ; > "BILLED icgloan.BILLED, BDATE icgloan.BDATE, INTERNAL_ID icgloan.INTERNAL_ID, RPT1 icgloan.RPT1, RPT2 icgloan.RPT2, RPT3 icgloan.RPT3, RPT4 icgloan.RPT4, " + ; > "COBORROWERNAME icgloan.COBORROWERNAME, ALT_MAIL_ADDR1 icgloan.ALT_MAIL_ADDR1, ALT_MAIL_ADDR2 icgloan.ALT_MAIL_ADDR2, ALT_MAIL_CITY icgloan.ALT_MAIL_CITY, " + ; > "ALT_MAIL_STATE icgloan.ALT_MAIL_STATE, ALT_MAIL_ZIP icgloan.ALT_MAIL_ZIP, ALT_MAIL_ZIP4 icgloan.ALT_MAIL_ZIP4" > Name = "caicgloan" > > > PROCEDURE Init > *** Setup code: DO NOT REMOVE > local llReturn > do case > case not pemstatus(This, '__VFPSetup', 5) > This.AddProperty('__VFPSetup', 0) > case This.__VFPSetup = 1 > This.__VFPSetup = 2 > case This.__VFPSetup = 2 > This.__VFPSetup = 0 > return > endcase > set multilocks on > llReturn = dodefault() > *** End of Setup code: DO NOT REMOVE > *** Select connection code: DO NOT REMOVE > > ***<DataSource> > This.DataSource = sqlstringconnect([driver=SQL Server;Server=*****;Database=****;trusted_connection=yes;]) > ***</DataSource> > *** End of Select connection code: DO NOT REMOVE > > *** Setup code: DO NOT REMOVE > if This.__VFPSetup = 1 > This.__VFPSetup = 2 > endif > return llReturn > *** End of Setup code: DO NOT REMOVE > ENDPROC > > > PROCEDURE AutoOpen > *** Setup code: DO NOT REMOVE > if not pemstatus(This, '__VFPSetup', 5) > This.AddProperty('__VFPSetup', 1) > This.Init() > endif > *** End of Setup code: DO NOT REMOVE > ENDPROC > > >ENDDEFINE >* >*-- EndDefine: caicgloan > >