vergi no sorgulama
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
vergi no sorgulama
delphide vergi numarasını nasıl sorgulayıp görüntüleyebilirim
Garip bi soru olmuş
Veri Tabanı? Tam Olarak ne yapmak istiyorsun?
Ama verginosuna göre arama yapmak istiyorsan
ile o vergino dakıi tüm alanları listeleyebilirsin
Veri Tabanı? Tam Olarak ne yapmak istiyorsun?
Ama verginosuna göre arama yapmak istiyorsan
Kod: Tümünü seç
select * from table
where table.vno =:vno
Fikren emir almazsan, esir olursun ikisinin ortası yoktur.
s.a.
eğer gelirler.gov.tr sitesinin böyle bir hizmeti varsa
soap ile öğrenebilirsin.
öbür türlü belki bir twebbrowser ve html parse ile olabilir kanısındayım.
soap ile oluyorsa tckimlik numarasını sorgulayan örnekler var sitede. onlardan faydalanabilirsin.
kolay gelsin.
eğer gelirler.gov.tr sitesinin böyle bir hizmeti varsa
soap ile öğrenebilirsin.
öbür türlü belki bir twebbrowser ve html parse ile olabilir kanısındayım.
soap ile oluyorsa tckimlik numarasını sorgulayan örnekler var sitede. onlardan faydalanabilirsin.
kolay gelsin.
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Volkan KAMADAN
www.polisoft.com.tr
www.polisoft.com.tr
var
Data: TStringList;
begin
IdHTTP1.REquest.Host:= 'vedop.mb-ggm.gov.tr';
Data:= TStringList.Create;
try
Data.Add('soyad_un=AYDIN');
Data.Add('ad=Recep');
Data.Add('baba_adi=Mehmet');
Data.Add('il=54');
Data.Add('dogum_yili=1969');
Data.Add('submit1=Sorgula'); // <-- Bu olmasa da hata vermedi ancak ne olur ne olmaz. Adamlar bunu da yollamış.
Memo1.Lines.Text:= IdHTTP1.Post('/vkn_sorgu/VKNoSorguOutput.jsp', Data);
finally
Data.Free;
end;
IdHTTP1 nesnesi hangi sekmede acaba. Yukarıda yazılan kodlarda bir eksiğim var mı
Data: TStringList;
begin
IdHTTP1.REquest.Host:= 'vedop.mb-ggm.gov.tr';
Data:= TStringList.Create;
try
Data.Add('soyad_un=AYDIN');
Data.Add('ad=Recep');
Data.Add('baba_adi=Mehmet');
Data.Add('il=54');
Data.Add('dogum_yili=1969');
Data.Add('submit1=Sorgula'); // <-- Bu olmasa da hata vermedi ancak ne olur ne olmaz. Adamlar bunu da yollamış.
Memo1.Lines.Text:= IdHTTP1.Post('/vkn_sorgu/VKNoSorguOutput.jsp', Data);
finally
Data.Free;
end;
IdHTTP1 nesnesi hangi sekmede acaba. Yukarıda yazılan kodlarda bir eksiğim var mı
Merhaba ,
Eğer Delphi 7 kullanıyorsanız Indy Client sekmesinde bulabilirsiniz, eğer kullandığınız delphi sürümünde Indy paketleri yoksa ücretsiz olarak yükleyebilirsiniz sitede linkleri mevcut
İyi çalışmalar.
Eğer Delphi 7 kullanıyorsanız Indy Client sekmesinde bulabilirsiniz, eğer kullandığınız delphi sürümünde Indy paketleri yoksa ücretsiz olarak yükleyebilirsiniz sitede linkleri mevcut
İyi çalışmalar.
Volkan KAMADAN
www.polisoft.com.tr
www.polisoft.com.tr
Merhaba ,
Indy 9 kullanıyorum sorun yaşamıyorum , projemdeki ilgili bölüm ,
Indy 9 kullanıyorum sorun yaşamıyorum , projemdeki ilgili bölüm ,
Kod: Tümünü seç
procedure VergiKimlikSorgula;
var
Data: TStringList;
ResponseData:AnsiString;
DaireTemp:String;
begin
try
IdHTTP1.Host:= 'vedop.mb-ggm.gov.tr';
Data:= TStringList.Create;
try
Data.Add('soyad_un='+edit27.Text);
Data.Add('ad='+Edit19.Text);
Data.Add('baba_adi='+Edit28.Text);
Data.Add('il='+Copy(Combobox13.text,1,2));
Data.Add('dogum_yili='+Edit29.Text);
Data.Add('submit1=Sorgula');
ResponseData:= IdHTTP1.Post('/vkn_sorgu/VKNoSorguOutput.jsp', Data);
if Pos('Vergi Kimlik No</td><td><b>',ResponseData)<>0 then
begin
Edit2.Text:=Copy(ResponseData,Pos('Vergi Kimlik No</td><td><b>',ResponseData)+27,10);
DaireTemp:=Copy(ResponseData,Pos('Vergi Dairesi İli',ResponseData)+35,50);
DaireTemp:=Copy(DaireTemp,1,Pos('</b>',DaireTemp)-1);
DaireTemp:=Copy(DaireTemp,Pos('/',DaireTemp)+2,Length(DaireTemp)-Pos('/',DaireTemp));
Edit1.Text:=DaireTemp;
panel1.Visible:=false;
end else
Application.MessageBox('Kritere Uygun Kayıt Bulunamadı..!','UYARI',mb_ok+MB_ICONWARNING);
finally
Data.Free;
end;
except on e: exception do
Application.MessageBox(PChar('Bağlantı Hatası..!'+#13+e.Message),'HATA',mb_ok+MB_ICONERROR);
end;
end;
Volkan KAMADAN
www.polisoft.com.tr
www.polisoft.com.tr
tasarım anında , nesneye sağ tıklayıp about kısmından öğrenebilirsiniz.
forumda indy şeklinde aratırsanız yükleme ve indirmeyle ilgili konulara ulaşabilirsiniz.
kodunuz derleme anında hata vermiyorsa ben versiyon ile iligili bir konu olduğunu düşünmüyorum.
İyi çalışmalar,
forumda indy şeklinde aratırsanız yükleme ve indirmeyle ilgili konulara ulaşabilirsiniz.
kodunuz derleme anında hata vermiyorsa ben versiyon ile iligili bir konu olduğunu düşünmüyorum.
İyi çalışmalar,
Volkan KAMADAN
www.polisoft.com.tr
www.polisoft.com.tr