müşteri adı

[aydgur]

İyi günler. aşağıdaki gibi her müşteri adını tek tek yazmadan sadeleştirmem mümkün olur mu ?
örneğin önce müşteri adı yanına limit yazsam ve eğer müşteri adı bu ise şu limiti yaz dert gibi. olabilir mi ?
Value :=0;
if plCRMSHAREKET['MUST_ADI']='ADIM PLASTİK VE METAL ÜR.İML.İHR.TİC.LTD.ŞTİ.' then

Value:='13000'

else

if plCRMSHAREKET['MUST_ADI']='AİRBAGS PLASTİK PAZ.SAN.TİC.LTD.ŞTİ.' then

Value:='30000'

else

if plCRMSHAREKET['MUST_ADI']='AKSA MOTOR FAN TURİZM SANAYİ VE TİCARET LİMİTED ŞİRKETİ' then

Value:='15000'

else

if plCRMSHAREKET['MUST_ADI']='ALBATUR ENDÜSTRİ A.Ş.' then

Value:='10000'

else

if plCRMSHAREKET['MUST_ADI']='ALSAN KALIP PLASTİK SANAYİ VE TİCARET ANONİM ŞİRKETİ' then

Value:='25000'

else

if plCRMSHAREKET['MUST_ADI']='ANSAN METAL PLASTİK SAN.TİC.LTD.ŞTİ.' then

Value:='5000'

else

if plCRMSHAREKET['MUST_ADI']='ARFEN İNŞAAT VE YAPI TEKNOLOJİLERİ SAN.TİC.A.Ş.' then

Value:='15000'

else

if plCRMSHAREKET['MUST_ADI']='ARMEL ENDÜSTRİ PLASTİK VE BASKI SAN.TİC.LTD.ŞTİ.' then

Value:='15000'

Value:='0';