ERP ve Excel - Stok Hareketlerinde Cari Isim Getirme

Sayfayı Yazdır | Pencereyi Kapat

Stok Hareketlerinde Cari Isim Getirme

Nereden Yazdırıldığı: ERP Nedir? | Türkiye'nin ERP Forum Platformu
Kategori: ERP Genel
Forum Adı: ERP ve Excel
Forum Tanımlaması: ERP'den Excel'e Veri Çekmek ve Excel İle İlgili Bilgiler ve Sorular İçin...
URL: http://www.erpne.org/forum_posts.asp?TID=2639
Tarih: 22 Kasım 2024 Saat 06:00
Program Versiyonu: Web Wiz Forums 11.10 - http://www.webwizforums.com

Konu: Stok Hareketlerinde Cari Isim Getirme

Mesajı Yazan: unalh
Konu: Stok Hareketlerinde Cari Isim Getirme
Mesaj Tarihi: 14 Haziran 2011 Saat 15:40

Stok hareketleri tablosundan excel'e veri çekiyorum fakat cari kod kismina bakarak cari isimlerinin listelenmesini bir türlü yapamadim bu islemi nasil yapabilirim. Aslinda alabiliyorum fakat devir ve depolar arasi tranferleri alamadim bunlari alamadigim için veriler eksik geliyor.

http://goo.gl/mc9cY">

SqlText = "SELECT *"
    SqlText = SqlText + " FROM TBLSTHAR A, TBLCASABIT B where (A.STHAR_CARIKOD = B.CARI_KOD)AND STOK_KODU like '" & StharStokKodu & "'"
    SqlText = SqlText + " ORDER BY STHAR_TARIH "
    rs.Open SqlText, con, 1, 1
    rs.MoveFirst
    Do While Not rs.EOF
        i = i + 1

        ListView1.ListItems.Add , , rs("INCKEYNO")
.
.
.
        ListView1.ListItems(i).SubItems(1) = Cari isim gelicek
.
.
.
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
End Sub

Ilginize simdiden tesekkür ederim.

Cevaplar:

Mesajı Yazan: mbaykan
Mesaj Tarihi: 14 Haziran 2011 Saat 16:23

SqlText = "SELECT A.*,B.CARI_ISIM "
SqlText = SqlText + " FROM TBLSTHAR A LEFT JOIN TBLCASABIT B ON A.STHAR_ACIKLAMA= B.CARI_KOD where STOK_KODU like '" & StharStokKodu & "'"
SqlText = SqlText + " ORDER BY STHAR_TARIH "

seklinde yazarsaniz olur

Kolay gelsin

-------------
Mehmet Baykan

Mesajı Yazan: unalh
Mesaj Tarihi: 15 Haziran 2011 Saat 08:38

Mehmet bey,

Hayirli sabahlar cevabiniz için tesekkürler.

Kayitli olan cari isimler geliyor peki depolar arasi transfer ve devir olarak girilen kayitlari nasil getiricez.

Kayitlar geliyorda açiklamalarini nasil getirmeliyiz.

Örnek olarak cari listede kayitli degil ama 100-103 depolar arasi transfer yapilmis.

Mesajı Yazan: Conari
Mesaj Tarihi: 15 Haziran 2011 Saat 10:23

STHAR Yerine STHAR_EKR viewini kullanin.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: unalh
Mesaj Tarihi: 15 Haziran 2011 Saat 11:31

Conari Yazdı:

STHAR Yerine STHAR_EKR viewini kullanin.

Örnek kodlama ekleyebilirmisiniz ?

Mesajı Yazan: Conari
Mesaj Tarihi: 15 Haziran 2011 Saat 11:57

SqlText = "SELECT * FROM STHAR_EKR where STOK_KODU like '" & StharStokKodu & "'"
SqlText = SqlText + " ORDER BY STHAR_TARIH "

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: unalh
Mesaj Tarihi: 15 Haziran 2011 Saat 13:09

Bu sekilde denedim fakat veri gelmedi.

Kodda herhandi bir sorunda gözükmüyor çalisiyor fakat veri getirmiyor.

Mesajı Yazan: Conari
Mesaj Tarihi: 15 Haziran 2011 Saat 13:55

ilk olarak bunu çalistir.

exec nsp_netsesguncelle 2, 'ys0001',1,0,'e','h','2',-1,'H',0,0,'H'

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: unalh
Mesaj Tarihi: 15 Haziran 2011 Saat 13:59

Conari Yazdı:

ilk olarak bunu çalistir.

exec nsp_netsesguncelle 2, 'ys0001',1,0,'e','h','2',-1,'H',0,0,'H'

Hocam nasil güncelliyoruz.

Mesajı Yazan: Conari
Mesaj Tarihi: 15 Haziran 2011 Saat 15:33

ilk olarak RS yerine

ADODB.Command olusturup. exec et.

Set cmdCommand = CreateObject("ADODB.Command")

With cmdCommand
.CommandText = "exec nsp_netsesguncelle 2, 'ys0001',1,0,'e','h','2',-1,'H',0,0,'H' "

.CommandType = adCmdText
.Execute
End With

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..

Mesajı Yazan: unalh
Mesaj Tarihi: 16 Haziran 2011 Saat 10:27

Conari Yazdı:

ilk olarak RS yerine

ADODB.Command olusturup. exec et.

Set cmdCommand = CreateObject("ADODB.Command")

With cmdCommand
.CommandText = "exec nsp_netsesguncelle 2, 'ys0001',1,0,'e','h','2',-1,'H',0,0,'H' "

.CommandType = adCmdText
.Execute
End With

Conare bey eger vaktinizi almayacakise örnek dosya ekleyebilirmisiniz.

Mesajı Yazan: Conari
Mesaj Tarihi: 16 Haziran 2011 Saat 11:16

gerçi güncellemeyede gerek yok senin script hatali. LIKE Komutunda hata var. % kullanmalisin.

-------------
Netsisden vazgeçemiyorum. Beni engelliyor..