İhracat operasyon fişlerinde sağ tuş Ekle/Değiştir ile açılan pencere de yeni bir tab oluşturup burada açtığım grid ile bazı verileri listeliyorum . Kullanıcı bu listte ki verilere çift tıkladığında seçtiği veriyi Detaylar tabında ki Genel Açıklama 5 alanına yazıyorum;
Burada hiç sorunum yok ancak aynı fişe 'İhracat Bilgileri Değiştir' ile girip yaptığında Açıklama5 alanına veri yazmıyor. Bunun sorunu gidermek için koda müdahale mi yapmam gerekir yoksa İhracat Bilgileri Değiştir ile açtığı ekranda Detaylar tabı olmadığı için yazmaması normal, ben haricen insert falan mı yapmam mı gerekiyor ?
Kodum da şöyle ;
idx=GetGridActiveCol("gridListIrsaliye") if idx=10001 then row=MGridRow("gridListIrsaliye") GetCellText("gridListIrsaliye",row,10001,code)
İhracat fişinde açıklama 5 alanına veri yazmaması
09/10/19 09:55   Tiger/Logo Object Designer (LOD) 2.60Merhaba ,
İhracat operasyon fişlerinde sağ tuş Ekle/Değiştir ile açılan pencere de yeni bir tab oluşturup burada açtığım grid ile bazı verileri listeliyorum . Kullanıcı bu listte ki verilere çift tıkladığında seçtiği veriyi Detaylar tabında ki Genel Açıklama 5 alanına yazıyorum;
Burada hiç sorunum yok ancak aynı fişe 'İhracat Bilgileri Değiştir' ile girip yaptığında Açıklama5 alanına veri yazmıyor. Bunun sorunu gidermek için koda müdahale mi yapmam gerekir yoksa İhracat Bilgileri Değiştir ile açtığı ekranda Detaylar tabı olmadığı için yazmaması normal, ben haricen insert falan mı yapmam mı gerekiyor ?
Kodum da şöyle ;
idx=GetGridActiveCol("gridListIrsaliye")
if idx=10001 then
row=MGridRow("gridListIrsaliye")
GetCellText("gridListIrsaliye",row,10001,code)
GetTextVal("LTextEdit7",strmiktar)
STR(code,strcode)
SetTextVal("LTextEdit5",strcode)
SetTextVal("LTextEdit13",strcode)
GetCellText("GenExpGrid", 3, 0,aciklama5)
warn(aciklama5)
if aciklama5<>"" then
SetCellText("GenExpGrid", 4, 0,aciklama5+";"+strcode+","+strmiktar)
UpdateControlData("GenExpGrid")
InvalidateGrid("GenExpGrid")
RefreshControl("GenExpGrid",1)
else
SetCellText("GenExpGrid", 4, 0,strcode+","+strmiktar)
UpdateControlData("GenExpGrid")
InvalidateGrid("GenExpGrid")
RefreshControl("GenExpGrid",1)
end if
'SetGridActiveCol("GenExpGrid", 0)
end if
end if
Lod İhracat