SQL 2005 VE NETSIS ILIŞKISI

[ozcank]

Teşekkür ederim eline ,yüreğine sağlık .Peki bu detaya aldığın Faturanın kur bilgisinden sonra STHAR_SATISK,STHAR_SATISK2,STHAR_SATISK3, STHAR_SATISK4, STHAR_SATISK5,STHAR_SATISK6 alanlarınıda eklemen mümkün mü?

[sunye]

Kod: Tümünü seç

SQLCumle2:='SELECT SH.STOK_KODU, ST.STOK_ADI, SH.STHAR_GCMIK, SH.STHAR_NF, SH.STHAR_BF, SH.STHAR_DOVFIAT FROM TBLSTHAR SH, TBLSTSABIT ST WHERE SH.STOK_KODU=ST.STOK_KODU AND SH.FISNO=''' + Belge + '''';

sql cümlesi ile stok bilgilerini okuyor. bu cümleye istediğin alanı ilave edebilirsin.

[ozcank]

Sunye kardeşim Merhaba;
Ben senin gönderdiğin kodları kullandım ama birçok yerde değişken ve form da edit ve arama ekranları kullanmışsın bana bu çalışma yaptığın projeyi atabilirmisin? delphi7 de açabilirmiyim bilmiyorum.Bana bu yardımı yaparmısın? Veya ben yaptığım çalışmayı sana göndereyim bakabilirmisin? ozcank61@yandex.com.tr

[sunye]

Projeji göndersem bile açamazsın içerisinde envai çeşit companent var. Delhpi XE2 ile yazıldı. anlamadığın yeri sorarsan yardımcı olmaya çalışayım.

[ozcank]

Anladım peki sen envai türlü componnetle yazdın ben sade bir DELPHİ7 ile bu raporu yapabilecekmiyim?

[ozcank]

Benim işimi yaptığın raporda fatura detayına iskontoları ve çek detaylarnı eklemen yetiyor.Ben bunun için uğraşıyorum aciliyetim var ama bu raporu eğer dersen sade bir DELPHI7 ilede başarırsın inş. onuda yapmaya çalışacam.Yardımlarıın karşısında macubum.Eline yüreğine sağlık.

[ozcank]

Arkadaşlar u satırı bir türlü geçmiyor 'TMPBakiye:=0;' yardımcı olurmusunuz?

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
Var
i,x,z:Integer;
G1,G2,BELGE : String;
TMPKalan,TMPBakiye,BorcBakiye, AlacakBakiye, Bakiye : Extended;
DBakiye, DBorcBakiye, DAlacakBakiye, Devir : Extended;
Dekont, Iade, Muhtelif, Kasa, Cek, Senet : Extended;
Tarih, Tarih1 : String;
begin
Senet:=0; Kasa:=0; Cek:=0; Dekont:=0; Iade:=0; Muhtelif:=0;
BorcBakiye:=0; AlacakBakiye:=0; Bakiye:=0;
DBakiye:=0; DAlacakBakiye:=0; DBorcBakiye:=0;
TMPKalan:=0; TMPBakiye:=0;
for i := 1 to 12 do
TMPBakiye[i]:=0;
Excel.Range['A1','C3'].Font.Bold:=True;
Excel.Range['A1','C3'].Font.Color:=clRed;
Excel.Cells[1,1].Value:='Müşteri';
Excel.Cells[1,2].Value:='Cari Kod';
Excel.Cells[1,3].Value:='Cari İsim';
Excel.Cells[2,3].Value:='Telefon';
Excel.Cells[3,3].Value:='Cari İlçe - İl';
Excel.Range['A4','I4'].Font.Bold:=True;
Excel.Range['A4','I4'].Font.Color:=clRed;
Excel.Cells[4,1].Value:='Tarih';
Excel.Cells[4,2].Value:='Fiş Numarası';
Excel.Cells[4,3].Value:='Açıklama';
Excel.Cells[4,4].Value:='Vade Tarihi';
Excel.Cells[4,5].Value:='Borç Tutarı';
Excel.Cells[4,6].Value:='Alacak Tutarı';
Excel.Cells[4,7].Value:='Bakiye';

[ozcank]

Arkadaşlar merhaba aşağıdaki kod bir yere kadar çalıştırdım ama yardımlarınıza ihtiyacım var

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
Var
NetRs,Excel,Kernel,yeniNetRS:Variant;
i,x,z:Integer;
G1,G2,BELGE : String;
TMPKalan,TMPBakiye,BorcBakiye, AlacakBakiye, Bakiye : Extended;
DBakiye, DBorcBakiye, DAlacakBakiye, Devir : Extended;
Dekont, Iade, Muhtelif, Kasa, Cek, Senet : Extended;
Tarih, Tarih1 : String;
begin
Senet:=0; Kasa:=0; Cek:=0; Dekont:=0; Iade:=0; Muhtelif:=0;
BorcBakiye:=0; AlacakBakiye:=0; Bakiye:=0;
DBakiye:=0; DAlacakBakiye:=0; DBorcBakiye:=0;
TMPKalan:=0; TMPBakiye:=0;
Excel:=CreateOleObject('Excel.Application');
Excel.Visible := True;
Excel.Workbooks.Add;
for i := 1 to 12 do
[color=#FF0000]//TMPBakiye[i]:=0;   ////////////////////BURAYI ÇALIŞTIRAMADIM[/color]
Excel.Range['A1','C3'].Font.Bold:=True;
Excel.Range['A1','C3'].Font.Color:=clRed;
Excel.Cells[1,1].Value:='Müşteri';
Excel.Cells[1,2].Value:='Cari Kod';
Excel.Cells[1,3].Value:='Cari İsim';
Excel.Cells[2,3].Value:='Telefon';
Excel.Cells[3,3].Value:='Cari İlçe - İl';
Excel.Range['A4','I4'].Font.Bold:=True;
Excel.Range['A4','I4'].Font.Color:=clRed;
Excel.Cells[4,1].Value:='Tarih';
Excel.Cells[4,2].Value:='Fiş Numarası';
Excel.Cells[4,3].Value:='Açıklama';
Excel.Cells[4,4].Value:='Vade Tarihi';
Excel.Cells[4,5].Value:='Borç Tutarı';
Excel.Cells[4,6].Value:='Alacak Tutarı';
Excel.Cells[4,7].Value:='Bakiye';
[color=#FF4000]//NRap1.SQL.Add:=''; ///////////////// BURAYI ÇALIŞTIRAMADIM [/color]
NRAp1.SQL.Add('SELECT CARI_KOD, CARI_ISIM, CARI_TEL, CARI_IL, CARI_ILCE FROM TBLCASABIT WHERE CARI_KOD=''' + Edit1.Text +'''');
[color=#FF0000]NetRS:=Kernel.yeniNetRS(DATA);     ///////////// BURAYI ÇALIŞTIRAMADIM[/color]
NetRs.Ac(NRap1.SQL);
Excel.Cells[1,2].Value:='''' + NetRs.FieldByName('CARI_KOD').AsString;
Excel.Cells[1,3].Value:='''' + NetRs.FieldByName('CARI_ISIM').AsString;
Excel.Cells[2,3].Value:='''' + NetRs.FieldByName('CARI_TEL').AsString;
Excel.Cells[3,3].Value:='''' + NetRs.FieldByName('CARI_ILCE').AsString + ' - ' + NetRs.FieldByName('CARI_IL').AsString;
G1:=NetRs.FieldByName('CARI_ISIM').AsString;
G2:='';
for x := 1 to 15 do begin
if (G1[x] in ['!','+','#','%','&','/','=','?','-','_','*','<','>','(',')']) then

Yardımcı olursanız çok sevinirim.

[ozcank]

DATA burdan geliyor;

Kod: Tümünü seç

procedure TForm1.ComboBox1Click(Sender: TObject);
Var
DATA:AnsiString;
begin
DATA:=ComboBox1.Text;
ADOConnection1.Connected:=False;
ADOConnection1.ConnectionString:=('Provider=SQLOLEDB.1;Password=123456789;Persist Security Info=True;User ID=SA;Data Source=OZCAN\NETSIS_RCS;Initial Catalog:=+DATA+;Integrated Security=SSPI;');
ADOconnection1.LoginPrompt:=false;
showmessage (DATA+' '+'Veri Tabanına Bağlantı Gerçekleşti');
    ADOConnection1.DefaultDatabase:=DATA;
ADOConnection1.Connected:=True;
ADOTable5.Active:=True;
Label14.Caption:=DATA;
    End;
end.

[ozcank]

Arkadaşlar bu alanı nasıl düzeltebilirim yardımcı olurmusunuz?
TBLCASABIT Tavlesini açamadım.

Kod: Tümünü seç

NRap1.Close;
NRap1.SQL.Clear;
NRAp1.SQL.Add('SELECT CARI_KOD, CARI_ISIM, CARI_TEL, CARI_IL, CARI_ILCE FROM TBLCASABIT WHERE CARI_KOD=''' + Edit1.Text +'''');
//NetRS.FieldByName('TBLCASABIT').AsString;
ADOConnection1.DefaultDatabase:=NetRS;
ShowMessage(NetRS);
NetRS:=Kernel.yeniNetRS(TBLCASABIT);
NRap1.Open;
Excel.Cells[1,2].Value:='''' + NetRs.FieldByName('CARI_KOD').AsString;
Excel.Cells[1,3].Value:='''' + NetRs.FieldByName('CARI_ISIM').AsString;
Excel.Cells[2,3].Value:='''' + NetRs.FieldByName('CARI_TEL').AsString;
Excel.Cells[3,3].Value:='''' + NetRs.FieldByName('CARI_ILCE').AsString + ' - ' + NetRs.FieldByName('CARI_IL').AsString;
G1:=NetRs.FieldByName('CARI_ISIM').AsString;
G2:='';

[sunye]

Kod: Tümünü seç

NetRS:=Kernel.yeniNetRS(TBLCASABIT);

NetOpenX yükledin mi? Bu satır için netopenx gerekli

[ozcank]

Project den
Import Library diyerek Temel set deki Netopenx50 gösteriyorum ve Compailer veya install dediğimde bu hatayı alıyorum yardım edermisiniz?
[Fatal Error] NetOpenX50_TLB.pas(45): Internal error: URW3950

[ozcank]

Arkadaşlar Merhaba;
Netsis kullanıcıları bilirler 5.012 set yayınlandı tabi bende onun NetOpenX50 kullanarak delphi7 ye install etmek istedim ama bu sefer başka bir hata veriyor ekran görüntüsünü ekte gönderiyorum bakabilirmisiniz ne demek istiyor?

[yusuf simsek]

NetOpenX50 dll delphi 7 ile import edilemiyor... Sanırım geliştirildiği platformdan dolayı... benzer bir sorunla da ben karşılaşmıştım... Delphi Xe kurdum ve DelphiXe de NetOpenX50 dll'sini import edebildim...

Import edilmiş dosyayı http://www.extrayazilim.com/netOpenx50_import.rar linkinden indirebilirsin.
yalnız NetOpenX50.dll sürümleri farklı olursa çalışmayabilir.

İkinci olarak sürekli hata aldığınız

Kod: Tümünü seç

TMPBakiye[i]:=0; 

satırındaki TMPBakiye extended tipinde bir veri...

TMPBakiye değişkenini array olarak tanımlarsanız sorununuz çözülecektir...

İyi çalışmalar

[ozcank]

Ben 5.012 set kurdum ve İmport etmeyi denedim ekteki hatayı aldım belki düzeltmişlerdir çünkü farklı geldi 5.010 setinden