Title : Business
Toolbars
call CloseForm(True)
call CloseForm(False)
Buttons
Fields
Title (AU_BUSINESS.TITLE)
Street and No (AU_BUSINESS.STREET_NO)
City (AU_BUSINESS.CITY)
Country (AU_BUSINESS.COUNTRY)
Post Box (AU_BUSINESS.POBOX)
Telephone (AU_BUSINESS.OFFICE_TEL)
Fax (AU_BUSINESS.OFFICE_FAX)
Tax ID (AU_BUSINESS.TAX_ID)
Account (AU_ACCOUNT.CODE)
(AU_ACCOUNT.TITLE)
Contact (AU_CONTACT.DISP_NAME)
Mail (AU_MAILADDRESS.MADDRESS)
Category ()
Payment Scenario (AU_COVER_SCEN.DESCR)
Super Partner (AU_BUSINESS.TITLE)
AutoScript
lib
{=============================== Form_Start =================================}
proc Form_Start()
{call PlaySound("MailBeep")}
call SetCaption("Business Partner")
f = TopForm()
p = PByName(f,"AU_BUSINESS")
t = TByName(p,"AU_BUSINESS")
task = FormTask(f)
call CbLoad("SM_STATUS","Prospective Partner","Sent Mail")
call CbLoad("SM_STATUS","Dennied Mail","Opened Mail","Forwarded Mail")
call CbLoad("SM_STATUS","Contacted By Mail","Contacted By Telephone")
call CbLoad("SM_STATUS","Sale Commited","Next Attempt for Sale")
call CbLoad("SM_STATUS","Partner","Customer")
call CbLoad("SM_STATUS","---------------","Certified Supplier")
call CbLoad("SM_STATUS","Manufacturer")
if (task = ptAppend) then
call TEdit(t)
if (__activation_role <> "") then
role_id = SelectFrom("SELECT AU_POS FROM AU_POS WHERE (POS_D='",__activation_role,"')")
call TSetFld(t,"RESP_ROLE",role_id)
call TSetFld(t,"F_RESP_ROLE_POS_D",__activation_role)
else
call TSetFld(t,"RESP_USER",__activation_user_id)
call TSetFld(t,"F_RESP_USER_UNAME",__activation_user)
endif
call TSetFld(t,"SM_STATUS","Certified Supplier")
call TPost(t)
call ReLoadEditFields(f)
endif
cat = GetEditBox("BUS_TYPE_CATEGORY")
call SetEditBox(cat,"CATEGORY=AU_BUSINESSTYPES")
end
