function TfrmCSRMain.GetAgreementNMAGRE(aAgreementNo: string): integer; var lQry: IIADOQuery; begin Result := 0; lQry := TIADOQuery.Create(ADOAccpacConn); lQry.SelectQuery('SELECT NMDOCID FROM VMDH WHERE TXDOCID='+QuotedStr(aAgreementNo)+' AND WDDOCTYPE='+IntToStr(VM_DHDocType_SiteAg...