müşteri adına göre carikod
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 216
- Kayıt: 14 Şub 2004 03:13
- Konum: Gebze
- İletişim:
müşteri adına göre carikod
iyi çalışmalar,
programda acaba müşteri adını girdikte sonra adın ilk iki karakterinden oluşan ve artan carikod verebilir miyim? örneğin ali müşterisinin kodu al001, altan müşterisinin kodunu al002 , ahmet müşterisinin kodunu ah001 şeklinde verdirme imkanı olabilir mi?
şimdiden teşekkürler...
programda acaba müşteri adını girdikte sonra adın ilk iki karakterinden oluşan ve artan carikod verebilir miyim? örneğin ali müşterisinin kodu al001, altan müşterisinin kodunu al002 , ahmet müşterisinin kodunu ah001 şeklinde verdirme imkanı olabilir mi?
şimdiden teşekkürler...
-
- Üye
- Mesajlar: 216
- Kayıt: 14 Şub 2004 03:13
- Konum: Gebze
- İletişim:
Kod: Tümünü seç
yenistring:=
copy(ensonkaydedilenstring,1,2) +
Numarator(copy(ensonkaydedilenstring,3,length(ensonkaydedilenstring-2)));

.-.-.-.-.-.-.-. ^_^
-
- Üye
- Mesajlar: 216
- Kayıt: 14 Şub 2004 03:13
- Konum: Gebze
- İletişim:
Benim bir tavsiyem olacak sana uygulamada işe yarar ama ne derece profesyonel olur bilemem
mantık şu;
Bir table oluştur içinde kod ve sıra no diye iki tana Field olsun
her cari açıldığında bu tabloda kontro yap şöyle açılan carinin ilk iki harfini al bu tabloda kod field na göre arama yaptır eğer ki bu kod mevcut ise bu defa bulunan bu kodun karşılığındaki sıra field nın değerini al bir arttır eğerki bu kod daha önce açılmamış ise o anda bu table dainsert yap ilk iki harfi kod alanına istediğin düzendeki sıralamayıda sıra field ına ata mesela
kod.asstring:=carikodal//ilk iki harf
sira.asstring:='001'//ilkdeğer
herhalde mantığı anlatabilmişimdir gerisini artık sen halledersin
mantık şu;
Bir table oluştur içinde kod ve sıra no diye iki tana Field olsun
her cari açıldığında bu tabloda kontro yap şöyle açılan carinin ilk iki harfini al bu tabloda kod field na göre arama yaptır eğer ki bu kod mevcut ise bu defa bulunan bu kodun karşılığındaki sıra field nın değerini al bir arttır eğerki bu kod daha önce açılmamış ise o anda bu table dainsert yap ilk iki harfi kod alanına istediğin düzendeki sıralamayıda sıra field ına ata mesela
kod.asstring:=carikodal//ilk iki harf
sira.asstring:='001'//ilkdeğer
herhalde mantığı anlatabilmişimdir gerisini artık sen halledersin
Procedure Forum.Imza(Sender: TObject)
Begin
ShowMessage('Her türlü fikire, Her zaman açığım')
End;
Begin
ShowMessage('Her türlü fikire, Her zaman açığım')
End;
-
- Üye
- Mesajlar: 216
- Kayıt: 14 Şub 2004 03:13
- Konum: Gebze
- İletişim:
-
- Üye
- Mesajlar: 216
- Kayıt: 14 Şub 2004 03:13
- Konum: Gebze
- İletişim: