Code: Select all
* Find if Customer already has a global discount
Declare cAccount Type String
Declare CusCode Type String
cAccount := ReadTranValue("Account")
Cuscode := cAccount
OpenTable("Custrec")
Custrec->(Find(Upper(cuscode)))
If IsEmpty(Custrec->CusForm)
Return TRUE
Else
nCusForm:= Custrec->Cusform
Echo("This Customer already has a global discount!" + CHR(13) + "No More Discount!")
EndIf
CloseTable("Custrec")
Code: Select all
If IsEmpty(Custrec->CusForm)
Return TRUE
Else nCusForm:= scrread("Custrec->Cusform")
Echo("This Customer already has a global discount!" + CHR(13) + nCusForm + CHR(13) + "No More Discount")
nCusForm := ""
EndIf
Code: Select all
If IsEmpty(Custrec->CusForm)
Return TRUE
Else
nCusForm:= scrread("Custrec->Cusform")
Echo("This Customer already has a global discount!" + CHR(13) + nCusForm + CHR(13) + "No More Discount")
nCusForm := ""
EndIf
Users browsing this forum: No registered users and 5 guests
Copyright © 1985 - 2019 Capital Office Business Software. All Rights Reserved.