Delphicle
New member
- Katılım
- 15 Şub 2006
- Mesajlar
- 3
- Reaction score
- 0
- Puanları
- 0
Selamlar..
SSK sitesinden wsdl-xml ile provizyon almaya çalışırken
Java.Lang.NullPointerException
hatasıyla karşılaşıyorum.
Bu sorunu nasıl çözeceğimi bir türlü bulamadım.
Yardımlarınızı bekliyorum...
type
mernisPrim=record
tckno: Int64;
sigortaliTuru: WideString;
provizyonGun: Integer;
provizyonAy: Integer;
provizyonYil: Integer;
pgmid: WideString;
uniteKod: Integer;
kaydet: Boolean;
end;
var
mk:MustehaklikKontrol;
S : Resultdata ;
mpp:mernisprim;
begin
mk :=GetMustehaklikKontrol(false, '', HTTPRIO1);
s := Resultdata.Create;
s.mustehaklikBitisGunu :=TXSDateTime.Create;
s.sigortaliBilgileri :=sigortaliBilgileri.Create;
mpp.tckno:=kimlikno;
mpp.sigortaliTuru:='H';
mpp.provizyonGun:=15;
mpp.provizyonAy:=02;
mpp.provizyonYil:=2006;
mpp.pgmid:=pgmid;
mpp.uniteKod:=ukod;
mpp.kaydet:=False;
try //hata
s := mk.mernisdenPrimProvizyon(mpp.tckno,mpp.sigortaliT uru,
mpp.provizyonGun,mpp.provizyonAy,mpp.provizyonYil,
mpp.pgmid,mpp.uniteKod,mpp.kaydet);
except
on E: Exception do Showmessage(E.Message);
end;
SSK sitesinden wsdl-xml ile provizyon almaya çalışırken
Java.Lang.NullPointerException
hatasıyla karşılaşıyorum.
Bu sorunu nasıl çözeceğimi bir türlü bulamadım.
Yardımlarınızı bekliyorum...
type
mernisPrim=record
tckno: Int64;
sigortaliTuru: WideString;
provizyonGun: Integer;
provizyonAy: Integer;
provizyonYil: Integer;
pgmid: WideString;
uniteKod: Integer;
kaydet: Boolean;
end;
var
mk:MustehaklikKontrol;
S : Resultdata ;
mpp:mernisprim;
begin
mk :=GetMustehaklikKontrol(false, '', HTTPRIO1);
s := Resultdata.Create;
s.mustehaklikBitisGunu :=TXSDateTime.Create;
s.sigortaliBilgileri :=sigortaliBilgileri.Create;
mpp.tckno:=kimlikno;
mpp.sigortaliTuru:='H';
mpp.provizyonGun:=15;
mpp.provizyonAy:=02;
mpp.provizyonYil:=2006;
mpp.pgmid:=pgmid;
mpp.uniteKod:=ukod;
mpp.kaydet:=False;
try //hata
s := mk.mernisdenPrimProvizyon(mpp.tckno,mpp.sigortaliT uru,
mpp.provizyonGun,mpp.provizyonAy,mpp.provizyonYil,
mpp.pgmid,mpp.uniteKod,mpp.kaydet);
except
on E: Exception do Showmessage(E.Message);
end;