I built my first function the other day and I cannot get it to work properly. I place it in a calcualted field on a form and I get an error stating "Invalid or incomplete expression"
I am calling the function from within the calculated field using 5 fields from a table.
What am I doing wrong? I'm sure it's something very simple.
FUNCTION calc_warranty AS C (warr_brand AS C, warr_model AS C, warr_install AS D, warr_used AS C , warr_days AS C)
select
case warr_used="Y" .and. (warr_install + val(warr_days) > DATE())
warr="Islander Warranty"
case warr_used<>"Y" .and. (warr_brand="Hot Springs" .or. warr_brand="Tiger River" .or. warr_brand="Jacuzzi" .or warr_brand="Caldera") .and. (addyears(warr_install,5) > DATE())
warr="5 Years Parts / 5 Years Labor"
case warr_used<>"Y" .and. warr_brand="Hawkeye" .and. (addyears(warr_install,3) > DATE())
warr="3 Years Parts / 1 Year Labor"
case warr_used<>"Y" .and. warr_brand="Solana" .and. (addyears(warr_install,1) > DATE())
warr="1 Year Parts / 1 Year Labor"
case warr_used<>"Y" .and. warr_brand="Dream Maker" .and. (addyears(warr_install,1) > DATE())
warr="1 Years Parts / 90 Days Labor"
case warr_used<>"Y" .and. warr_brand="Lime Light" .and. (addyears(warr_install,3) > DATE())
warr="3 Year Parts / 3 Years Labor"
case warr_used<>"Y" .and. warr_brand="Vita" .and. (warr_model="Ibisa" .or. warr_model="Marbella" .or. warr_model="Madrid") .and. (addyears(warr_install,2) > DATE())
warr="2 Years Parts / 1 Year Labor"
case warr_used<>"Y" .and. warr_brand="Vita" .and. (warr_model<>"Ibisa" .and. warr_model<>"Marbella" .and. warr_model<>"Madrid") .and. (addyears(warr_install,3) > DATE())
warr="3 Years Parts / 1 Year Labor"
Case Else
warr="None"
end select
calc_warranty=warr
END FUNCTION
I am calling the function from within the calculated field using 5 fields from a table.
What am I doing wrong? I'm sure it's something very simple.
FUNCTION calc_warranty AS C (warr_brand AS C, warr_model AS C, warr_install AS D, warr_used AS C , warr_days AS C)
select
case warr_used="Y" .and. (warr_install + val(warr_days) > DATE())
warr="Islander Warranty"
case warr_used<>"Y" .and. (warr_brand="Hot Springs" .or. warr_brand="Tiger River" .or. warr_brand="Jacuzzi" .or warr_brand="Caldera") .and. (addyears(warr_install,5) > DATE())
warr="5 Years Parts / 5 Years Labor"
case warr_used<>"Y" .and. warr_brand="Hawkeye" .and. (addyears(warr_install,3) > DATE())
warr="3 Years Parts / 1 Year Labor"
case warr_used<>"Y" .and. warr_brand="Solana" .and. (addyears(warr_install,1) > DATE())
warr="1 Year Parts / 1 Year Labor"
case warr_used<>"Y" .and. warr_brand="Dream Maker" .and. (addyears(warr_install,1) > DATE())
warr="1 Years Parts / 90 Days Labor"
case warr_used<>"Y" .and. warr_brand="Lime Light" .and. (addyears(warr_install,3) > DATE())
warr="3 Year Parts / 3 Years Labor"
case warr_used<>"Y" .and. warr_brand="Vita" .and. (warr_model="Ibisa" .or. warr_model="Marbella" .or. warr_model="Madrid") .and. (addyears(warr_install,2) > DATE())
warr="2 Years Parts / 1 Year Labor"
case warr_used<>"Y" .and. warr_brand="Vita" .and. (warr_model<>"Ibisa" .and. warr_model<>"Marbella" .and. warr_model<>"Madrid") .and. (addyears(warr_install,3) > DATE())
warr="3 Years Parts / 1 Year Labor"
Case Else
warr="None"
end select
calc_warranty=warr
END FUNCTION
Comment