Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
firebird procedure
#1
Merhabalar firebird veri tabanına yazılan bir  Procedure  
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 ?
Cevapla
#2
Merhaba,
EXECUTE PROCEDURE AAPERGA_IA_STOKASIL(:CIKIS_CARI_NO,:CIKIS_SAHIP_CARI_NO,:CIKIS_STOK_YERI_NO,:TARIH,:ACIKLAMA)
Yerine
SELECT * FROM AAPERGA_IA_STOKASIL(:CIKIS_CARI_NO,:CIKIS_SAHIP_CARI_NO,:CIKIS_STOK_YERI_NO,:TARIH,:ACIKLAMA)
Cevapla
#3
(22-02-2021, Saat: 11:07)ozcanm Adlı Kullanıcıdan Alıntı: Merhaba,
EXECUTE PROCEDURE AAPERGA_IA_STOKASIL(:CIKIS_CARI_NO,:CIKIS_SAHIP_CARI_NO,:CIKIS_STOK_YERI_NO,:TARIH,:ACIKLAMA)
Yerine
SELECT * FROM AAPERGA_IA_STOKASIL(:CIKIS_CARI_NO,:CIKIS_SAHIP_CARI_NO,:CIKIS_STOK_YERI_NO,:TARIH,:ACIKLAMA)

SELECT TMP_STOK_ISLEMA_NO   FROM AAPERGA_IA_STOKASIL(:CIKIS_CARI_NO,:CIKIS_SAHIP_CARI_NO,:CIKIS_STOK_YERI_NO,:TARIH,:ACIKLAMA)
 
merhabalar bilgi için teşekürler bende olayı tam çözmüş buraya yazacaktım.
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Firebird Veritabanı Oluşturulması MEDCEZİR 4 1.112 25-07-2020, Saat: 14:17
Son Yorum: ihalilcoban
  firebird master detail ve birleştirme info@guzelceker.com 10 2.360 08-06-2020, Saat: 14:29
Son Yorum: mrmarman
  Firebird - İçinde veri olan bir alanın tipini değiştirme habikus 3 1.182 07-06-2020, Saat: 23:32
Son Yorum: habikus
  Overloaded procedure m_ekici 2 798 02-06-2020, Saat: 21:47
Son Yorum: sabanakman
  Firebird veri tabanlı programda arama filitreleme baloglurecep 3 1.127 18-03-2020, Saat: 11:51
Son Yorum: anemos



Konuyu Okuyanlar: 1 Ziyaretçi