Axapta’da arama metodu örneği

Merhaba

8 arama sahası ve 5 farklı tablo içeren bir arama formu istendiğinde nasıl bir metod yazabileceğinizin bir örneğini paylaşıyorum.

Hangi sahanın dolu olacağı belli olmayan ve kombinasyonun çok fazla olduğu bu durumda öncelikle en çok kriter girilebilecek

olan ana tabloyu alıp döngü içinde diğerlerinin varlığı kontrol etmek mantıklı.

Kriterlere uyan bir kayıt olursa bunun bir container a dolduruyoruz.

public Container simpleSearch(  BorAXEmplId  _boraxEmplId

                                ,EMplId _emplId

                                ,HRMIdentificationNumber _number

                                ,EmplName _name

                                ,HrmLastName _lastName

                                ,Birthdate _birthDate

                                ,NameTwenty _birthPlace

                                ,Email _email)

{

    BorAXEmplTable boraxEmplTable;

    EmplTable emplTable;

    HrmEmplIdentification hrmEmplIdentification;

    BorAxTCpersonalIdentity boraxTCPersonalIdentity;

    DirEcommunicationAddress dirEcommunicationAddress;

    int indexCounter = 1;

    ;

    retCont = conNull();

    if(!_boraxEmplId && !_emplId && !_number && !_name && !_lastName && !_birthdate && !_birthPlace && !_email)

    {

        return conNull();

    }

    while Select emplTable

        where   (( emplTable.EmplId == _emplid && _emplid ) || (!_emplid))

        &&      (( emplTable.Name == _name && _name ) || (!_name))

        &&      (( emplTable.lastName == _lastName && _lastName ) || (!_lastName))

        &&      (( emplTable.BirthDate == _birthDate && _birthDate ) || (!_birthDate))

        &&      (( emplTable.BirthDate == _birthDate && _birthDate ) || (!_birthDate))

    {  

        Select firstonly boraxEmplTable where boraxEmplTable.OldEmplId == emplTable.EmplId

                                && ((boraxEmplTable.EmplId == _boraxEmplId) || (!_boraxEmplId));

        if(!boraxEmplTable)

            continue;

        Select firstonly hrmEmplIdentification where hrmEmplIdentification.EmplId == emplTable.EmplId

                                        && ((hrmEmplIdentification.Number == _number) || (!_number));

        if(!hrmEmplIdentification)

            continue;

        Select firstonly boraxTCPersonalIdentity where boraxTCPersonalIdentity.EmplId == emplTable.EmplId

                                        && ((boraxTCPersonalIdentity.BirthPlace == _birthPlace) || (!_birthPlace));

        if(!boraxTCPersonalIdentity)

            continue;

        While Select dirEcommunicationAddress

            where dirEcommunicationAddress.RecId == DirpartyECommunicationRelationShip::findPartyId(emplTable.PartyId).ValuesRecId

                && ((dirEcommunicationAddress.Email ==_email) ||(!_email))

        {

        }

        if(!dirEcommunicationAddress)

            continue;

        line = conNull();

        line = conins(line, 1, emplTable.EmplId); // personel no

//TC KİMLİK NO       

        line = conins(line, 2, BorAXTCPersonalIdentity.TCIDNumber);

        line = conins(line, 3, HrmEMplIdentification.Number);

//Kullanıcı Adı        line = conins(line, 4,

        line = conins(line, 5, emplTable.Name);

        line = conins(line, 6, emplTable.lastName);

        line = conins(line, 7, emplTable.BirthDate);

        line = conins(line, 8, BorAXTCPersonalIdentity.BirthPlace);

        line = conins(line, 9, DirEcommunicationAddress.Email);

        //Satırı Container’a ekle

        retCont = conins(retCont, indexCounter, line);

        indexCounter++;

    }

    return retCont;

}

Muammer Yığıt arkadaşımıza metodu bizimle paylaştığı için teşekkürler.

Selamlar.

 
  • Trackback are closed
  • Comments (0)
  1. No comments yet.