Need Help!

[Dreamsource]

I'm having a coding problem. The following code works to pass a loan payment ammount and the contract number to another table and it worked initially for a due date value, but after a bit it stops working.

Tables and fields are:

Tables: Contracts and Payments

Fields: Contract_No and Contract_No
Payments and Loan_Payment
Due_Date and Due_Original

Working inline basic code used to call a form named AddPayment

inline basic code #1:

if is_object("addpayment") then
addpayment.show()
addpayment.activate()
else
:Form.view("addpayment")
:addpayment.new_record()
:AddPayment:CONTRACT_NO.Value=Contract->Contract_No
end if

inline basic code #2
if is_object("addpayment") then
:AddPayment:LOAN_PAYMENT.Value=Contract->Payments
end if

Following code works initially but quits eventually

inline basic code #3

if is_object("addpayment") then
:AddPayment:DUE_ORIGINAL.Value=Contract->Due_Date
end if

all 3 of these are inline basic codes assigned to a button that calls an add payment form.

Any help would be greatly apprciated.

[Tom Cone Jr]

RE: Need Help!

Homer,

I think maybe the problem is in the first script.

The new record is begun only if the form hasn't already been opened.


I'd move these two lines:

:addpayment.new_record()
:AddPayment:CONTRACT_NO.Value=Contract->Contract_No

so that they follow the end if statement.

That way a new record is begun even if the form has already been loaded.

-- tom

[Dreamsource]

RE: Need Help!

Tom

Thank you for the response, I tried your suggestion and the other 2 data passes stopped working.

This one has me totally stumped. And when I first set the codes up it worked great for all 3 values.

I was even able to add the data pass below making a total of 4 attemps and it worked great. The one involving a date still has a problem.

Tables: Contracts and Payments

Fields: Contract_No and Contract_No
Customer_Id and Customer_Id

inline basic code #4

if is_object("addpayment") then
:AddPayment:CUSTOMER_ID.Value=Contract->Customer_Id
end if


The last one works fine but the one involving a date doesn't.

[Dreamsource]

RE: Need Help!

One other note, the fields that this code works for are Character and Numeric.

The Date format seems to be the problem, I"m using the standard one ie, 05/12/2003.

I'm also trying to attach a screenshot of the form.

[CALocklin]

RE: Need Help!

As far as I can see, the date entry should work BUT I've sometimes had problems when using .value. Try using:

:AddPayment:DUE_ORIGINAL.text=dtoc(Contract->Due_Date )

No guarantees but sometimes I've found that using the .text method is more reliable. Unfortunately, I've never determined exactly why or when. (Note: I've had no problems using .value in v5 so far.)

Possibly in this case it's having a problem because the Contract->Due_Date is blank?????

[Tom Cone Jr]

RE: Need Help!

Homer,

Why not post a working example of your database here, so we can see the exact context in which your script is running?

I'm at a loss to explain why moving the begin new record code caused the other data 'passes' to fail. I wanted you to simply move it beyond the End If in script#1, not beyond the 'last' End If (in script 3 or 4), so if that's what you did that would explain things.

I'm curious why so many inline action scripts ? It's possible to consolidate them into a single script. This is often easier to debug.

-- tom

[Dreamsource]

RE: Need Help!

Tom,

Thanks, I was making a copy of my application to send and while pruning the customer data, I found my mistake.

I had been over this atleast 20 times. I guess sometimes you just need to stand way back and look again.

I had re-written my calculated fields to just use the Due_Date in the Contract table and because I did not have that field actually in the form the calculations did not work.

And Cal's sugguestion about a blank field caused me to re-check again the field I was actually trying to check. Because of the name change I was looking at the wrong field which was indeed empty. Thanks Cal


The script does work, I had just become brain dead.


You guys are great,

Thanks a bunch