22-02-2021, Saat: 10:36
Merhabalar firebird veri tabanına yazılan bir Procedure
procedure gönderdigim delphi kodu
prosedürdeki RETURNS deki TMP_STOK_ISLEMA_NO değeri delphi programında kullanmak iştiyorum bunun için ne yapmalıyım ?
CREATE PROCEDURE AAPERGA_IA_STOKASIL ( CIKIS_CARI_NO Integer, CIKIS_SAHIP_CARI_NO Integer, CIKIS_STOK_YERI_NO Integer, TARIH Timestamp, ACIKLAMA Varchar(250) ) RETURNS ( TMP_STOK_ISLEMA_NO Integer ) AS declare variable STOK_ISLEMA_NO Integer; declare variable ISLEM_KODU Varchar(6); declare variable ISLEM_ADI Varchar(32); declare variable ISLEM_YONU Smallint; declare variable GIRIS_CARI_NO Integer; declare variable GIRIS_SAHIP_CARI_NO Integer; declare variable GIRIS_STOK_YERI_NO Integer; declare variable KARSI_STOK_YERI_NO Integer; declare variable GIRIS_ISLEM_NOKTASI_NO Integer; declare variable CIKIS_ISLEM_NOKTASI_NO Integer; declare variable GIRIS_PERSONEL_NO Integer; declare variable CIKIS_PERSONEL_NO Integer; begin STOK_ISLEMA_NO= GEN_ID(STOK_ISLEMA_NO, 1); TMP_STOK_ISLEMA_NO=STOK_ISLEMA_NO; ISLEM_KODU='STKÇIK'; ISLEM_ADI= 'Stok Çıkışı'; ISLEM_YONU= '-1'; GIRIS_CARI_NO='0'; GIRIS_SAHIP_CARI_NO= '0'; GIRIS_STOK_YERI_NO= '0'; GIRIS_ISLEM_NOKTASI_NO= '0'; CIKIS_ISLEM_NOKTASI_NO= '4'; GIRIS_PERSONEL_NO= '70'; CIKIS_PERSONEL_NO= '70'; INSERT INTO "NS_STOKASIL"(STOK_ISLEMA_NO, ISLEM_KODU,ISLEM_ADI,ISLEM_YONU,GIRIS_CARI_NO,CIKIS_CARI_NO,GIRIS_SAHIP_CARI_NO,CIKIS_SAHIP_CARI_NO,GIRIS_STOK_YERI_NO,CIKIS_STOK_YERI_NO, GIRIS_ISLEM_NOKTASI_NO,CIKIS_ISLEM_NOKTASI_NO,GIRIS_PERSONEL_NO,CIKIS_PERSONEL_NO,ACIKLAMA,TARIH) VALUES(:STOK_ISLEMA_NO,:ISLEM_KODU,:ISLEM_ADI,:ISLEM_YONU,:GIRIS_CARI_NO,:CIKIS_CARI_NO,:GIRIS_SAHIP_CARI_NO,:CIKIS_SAHIP_CARI_NO,:GIRIS_STOK_YERI_NO,:CIKIS_STOK_YERI_NO, :GIRIS_ISLEM_NOKTASI_NO,:CIKIS_ISLEM_NOKTASI_NO,:GIRIS_PERSONEL_NO,:CIKIS_PERSONEL_NO,:ACIKLAMA,:TARIH); SUSPEND; END
procedure gönderdigim delphi kodu
With DmKayitListesi.QSTOKCIKIS do begin ParamByName('CIKIS_CARI_NO').Value:= uLogin.BAYI_NO; ParamByName('CIKIS_SAHIP_CARI_NO').Value:=uLogin.BAYI_NO;; ParamByName('CIKIS_STOK_YERI_NO').Value:= DEPO_NO; ParamByName('TARIH').Value:= NOW; ParamByName('ACIKLAMA').Value:= 'Depodan Kullanıldı'; ExecSQL; ShowMessage('KAYDEDİLDİ...'); end;Querydeki sql cümlesi
EXECUTE PROCEDURE AAPERGA_IA_STOKASIL(:CIKIS_CARI_NO,:CIKIS_SAHIP_CARI_NO,:CIKIS_STOK_YERI_NO,:TARIH,:ACIKLAMA)
prosedürdeki RETURNS deki TMP_STOK_ISLEMA_NO değeri delphi programında kullanmak iştiyorum bunun için ne yapmalıyım ?