public void run()
{
Al0ProjContractTrans al0ProjContractTrans;
Salesquotationtable salesquotationtable;
ttsbegin;
delete_from al0ProjContractTrans
where projid == projId;
update_recordset salesquotationtable
setting projidref = ""
where salesquotationtable.projidref == projId;
ttscommit;
Info(projId + " as been deleted");
}