Delphi Forum

Merhaba,


Application.Initialize;
FSplash := TFSplash.Create(nil) ;
FSplash.Show;
FSplash.Update;
Application.MainFormOnTaskbar := True;
Application.Title := 'edaSYNC - Netsis Data Aktarım';
Application.CreateForm(TFMain, FMain);
Application.ProcessMessages;
Application.CreateForm(TFLogin ...

Merhaba,

cxDBPivotGrid ile raporumu oluşturdum, sorunsuz çalışıyor. Ancak eklemiş olduğum alanlara göre filtreleme yaptığımda ikinci filteleme alanında tüm seneçenkler geliyor.

Örnek;
Grup Kodu Kod1
Araba Binek
Araba Ticari
Servis Lastik
Tamir Motor

Grup Koduna "Araba" değerleri için filter ...

DEPO_KODU LIKE '%'+COALESCE( NULLIF( @DEPO_KODU , '') , DEPO_KODU ) + '%' AND
SUBE_KODU LIKE '%'+COALESCE( NULLIF( @SUBE_KODU , '') , SUBE_KODU ) + '%'



DEPO_KODU ve SUBE_KODU alanları sayısal alan


DEPO_KODU =COALESCE( NULLIF( @DEPO_KODU , '') , DEPO_KODU ) AND
SUBE_KODU =COALESCE( NULLIF ...

Merhaba,

1. dxMemTable ile oluşturduğum veri tablosunda kayıtlarım var.
SiraNo, Plasiyer, Adi, Soyadi, Secim
1 01 Ali Veli False
2 01 Ahmet Mehmet False
3 02 Ayşe Fatma False


2. cxGrid ile tablodakı bütün kayıtları listeliyorum. Ve plasiyer alanına filtre uyguluyorum. (01)

Sadece ekranda kalan ...

WSDL'i test edebilmek için bakanlığa IP adresinizi kaydettirmeniz gerekli.

Sanırım Netsis için detaylı KDV matrah raporu oluşturmak istiyorsunuz.



USE [STANDARD9]
GO

/****** Object: View [dbo].[_EDA_FATURA] Script Date: 30.05.2019 22:14:04 ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE VIEW [dbo].[_EDA_FATURA] AS
SELECT
SH.FISNO AS FATURA_NO,
SH ...

[T$,T$] olarak dener misin? Yada [t1,t65000]

For yerine repeat untili kullanabilirsin. Until için şartı kontrol edersin döngü otomatik biter. Döngü içerisinde de değişkeni sürekli 1 artırırsan elinde grid satır sayısı olur.

İşin garibi sql management studio ile sorgu çekince de sonuç aynı. Resimlere bakarsanız management studio sonuçlarını görebilirsiniz.

Merhaba,

Müşterinin kullanmış olduğu ERP programında veri çekmem gerekiyor, ancak bazı kayıtlarda Türkçe karakter ile ilgili sorun yaşıyorum. Bazı kayıtlar normal geliyor. Bazılarında ise aşağıdaki gibi sorunum var.

Databese Collation : Turkish_CI_AS

Select cümlesi
SELECT AmbarIsmi FROM ...

Sorun çözüldü.


//Sefer personel ekle
try
Port:=UETDSArizi.GetUdhbUetdsAriziService;
if Port.servisTest('Durum')<>'Durum OK' then begin
ShowMessage('Servis çalışmıyor');
Exit;
end;
except
ShowMessage('Kullanıcı bilgileri hatalı');
Exit;
end;
PKullanici:=uetdsYtsUser.Create;
PKullanici ...

Merhaba,

Daha önce buraya soru olarak yazdığım UETDS sistemi ile ilgili oldukça yol aldım ve son aşamada tıkandım kaldım.


https://servis.turkiye.gov.tr/services/g2g/kdgm/test/uetdsarizi?wsdl



personelEkle metodu ;
Sefere personel ekleme için Bakanlık tarafından sağlanan personelEkle servis ...

Sorunu çözdüm,
@sabanakman çok teşekkür ederim.


kodu da buraya bırakayım ilerde lazım olur;


var
Port : UdhbUetdsAriziService;
Mesaj : String;
SEkle : seferEkle;
SEkleSonuc : seferEkleResponse;
SKullanici : uetdsYtsUser;
SBilgiler : uetdsAriziSeferBilgileriInput;



KA:='999999';
Sifre ...

bu satırda aşağıdaki hatayı veriyor.

[dcc32 Error] Unit1.pas(40): E2010 Incompatible types: 'seferEkleResponse' and 'seferEkle'

Kodu try except içinde çalıştır, hata verince döngüyü devam ettir.


while not tablo1.eof do begin
try
kontrol.active:=False;
kontrol.SQL.Clear;
kontrol.SQL.Add('ALTER TABLE personel1 ADD personel_no2 Short Text');
kontrol.ExecSQL;
except

end;
tablo1.next;
end;


işlem hata verse bile ...