lib
proc Form_Start()
f = TopForm
()
call SetCaption
("Contact"
)
task = FormTask
(f
)
p = PByName
(f
,"AU_CONTACT"
)
t = TByName
(p
,"AU_CONTACT"
)
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"
,"Next Attempt
for Sale"
)
call CbLoad
("SM_STATUS"
,"Partner"
,"Customer"
)
if (task = ptApp
end) then
sql = strcatln
("
SELECT AU_LANGUAGE.AU_LANGUAGE
, AU_LANGUAGE.AU_LANGUAGE_D"
)
sql = strcatln
(sql
,"
FROM AU_COMPANY INNER
JOIN AU_LANGUAGE
ON AU_COMPANY.AU_LANGUAGE = AU_LANGUAGE.AU_LANGUAGE"
)
str = SelectFrom
(sql
)
lang_id = GetSQLSelectItem
(str
,1
)
lang_d = GetSQLSelectItem
(str
,2
)
call TEdit
(t
)
call TSetFld
(t
,"SM_STATUS"
,"Partner"
)
call TSetFld
(t
,"AU_LANGUAGE"
,lang_id
)
call TSetFld
(t
,"F_AU_LANGUAGE_AU_LANGUAGE_D"
,lang_d
)
call TPost
(t
)
call ReLoadEditFields
(f
)
endif
end
{ =================================== showmails ==================================}
proc showmails
()
call OpenFormTop
("ptBrowse"
,"
AU_CONTACT_MAILS.FM"
,"QRY.DATA"
,contact
)
end
{================================== s
end_mail ================================}
proc s
end_mail
()
answer_addr = TGetFld
(tt
,"F_AU_MAILADDRESS_MADDRESS"
)
call OpenNewMailForm
( answer_addr
, False
, 0
)
end
{=================================== start_campain ============================}
proc start_campain
()
nomails = TGetFld
(t
,"NOMAILS"
)
if (nomails = 1
) then
call message
("The contact
does not like
to receive mails!"
)
else
call OpenFormTop
("ptApp
end"
,"
AU_MAILCAMP_E.FM"
,"WORK.AU_MAILCAMP"
,1
,"?=AU_MAILCAMP"
,"FROM_CONTACT"
,t
,tt
)
endif
end
