PUBLIC osheet,mrate,mprice
SELECT sm_loan_type
SET ORDER TO program
oExcel=createobject('Excel.application')
obook=oExcel.workbooks.open('g:\smc\rates\rbmg.xls',0)
obook.Sheets("Correspondent").Select
osheet=oexcel.activesheet
oExcel.visible=.f.
mcompany='RBMG'
mprogram1=SPACE(50)
mprogram2='CONVENTIONAL 25 YEAR FIXED'
mprogram3='CONVENTIONAL 20 YEAR FIXED'
mloan_type2=SPACE(50)
mloan_type3=SPACE(50)
mprice=0.00
meff_date=DATE()
DIMENSION lock_days(1,5)
lock_days(1,1)=15
lock_days(1,2)=30
lock_days(1,3)=45
lock_days(1,4)=60
lock_days(1,5)=75
mrow=15
mcol=1
x=1
mprogram1=osheet.cells(mrow,mcol).value
SELECT sm_loan_type
SEEK mprogram1
mloan_type=sm_loan_type.loan_type
SEEK mprogram2
mloan_type2=sm_loan_type.loan_type
SEEK mprogram3
mloan_type3=sm_loan_type.loan_type
mprogram4=osheet.cells(15,11).value
SEEK mprogram4
mloan_type4=sm_loan_type.loan_type
mrow=mrow+2
mcol2=11
mrow2=mrow
Do While mrow<=28 && conventional 30/25/20
mrate=osheet.cells(Mrow,Mcol).Value
Mcol=Mcol+1
mprice=osheet.cells(Mrow,Mcol).Value
If Vartype(mprice)='N'
For x=1 To 5
If Vartype(mprice)='N'
Select sm_rates
Insert Into sm_rates (company,loan_type,Program,Date,lock_days,rate,price);
VALUES(mcompany,mloan_type,mprogram1,meff_date,lock_days(1,x),mrate*100,mprice)
*DO track_change IN sm_proc
Insert Into sm_rates (company,loan_type,Program,Date,lock_days,rate,price);
VALUES(mcompany,mloan_type2,mprogram2,meff_date,lock_days(1,x),mrate*100,mprice)
*DO track_change IN sm_proc
Insert Into sm_rates (company,loan_type,Program,Date,lock_days,rate,price);
VALUES(mcompany,mloan_type3,mprogram3,meff_date,lock_days(1,x),mrate*100,mprice)
*DO track_change IN sm_proc
Mcol=Mcol+1
Else
Exit
Endif
mprice=osheet.cells(Mrow,Mcol).Value
Endfor
Else
Exit
ENDIF
mrate=osheet.cells(Mrow2,Mcol2).Value
Mcol2=Mcol2+1
mprice=osheet.cells(Mrow2,Mcol2).Value
If Vartype(mprice)='N'
For x=1 To 5
If Vartype(mprice)='N'
Select sm_rates
Insert Into sm_rates (company,loan_type,Program,Date,lock_days,rate,price);
VALUES(mcompany,mloan_type4,mprogram4,meff_date,lock_days(1,x),mrate*100,mprice)
*DO track_change IN sm_proc
Mcol2=Mcol2+1
Else
Exit
Endif
mprice=osheet.cells(Mrow2,Mcol2).Value
Endfor
Else
Exit
ENDIF
Mrow=Mrow+1
Mcol=1
mcol2=11
Enddo &&mrow<26
obook.close(.t.)
oexcel.displayalerts=.f.
oexcel.quit
RELEASE obook
RELEASE oexcel
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only