HATA:Retrieving the COM class factory for component with CLSID {72DB412A-6BF5-4920-A002-2AAC679951DF} failed due to the following error: 80070005 Access is denied. (Exception from HRESULT: 0x80070005 (E_ACCESSDENIED)).
ÇÖZÜM:WEB.CONFIGE SYSTEM.WEB IN ALTI aşağısı gibi olur ve iis stop start yapılır
SELECT
(SELECT CLCARD.CODE FROM LG_118_CLCARD CLCARD WHERE CLCARD.LOGICALREF=(SELECT TOP 1 CSTRANS.CARDREF FROM LG_118_01_CSTRANS CSTRANS WHERE CSTRANS.CSREF=LGMAIN.LOGICALREF )) CARIHESAP,
TRNET TUTAR,
* FROM
LG_118_01_CSCARD LGMAIN WITH(NOLOCK)
WHERE
(LGMAIN.CURRSTAT IN (1)) AND (LGMAIN.STATUS IN (0,1)) AND (LGMAIN.DOC = 1)
İlk çalışmada project-options-team membersi aşağıdaki şekilde yap şifre sorarsa logo
tasarımda yavaş hareket et yoksa arka planda başka objectler oluşturmakta
lod combobox bilgilerini burda tutar (20 COMBOBOXDUR) içeriği kodlanmıştır : select * from L_CDBTMP WHERE INFOTYPE=20
lodda tablo yaratıldığında sistemden firmalardan ilgili firmaya sağ tıklayıp uyarlama tablolarını sil ve oluştur yapılmalıdır
lod tasarımlarını logoda görebilmek için rol tanımlanıp rol üzerinden lod çalışmaları eklenip istenilen kullanıcıya o rol tanımlanmalıdır
lodda yapılan tabloları databasede LG_XT olarak yaratılır
LOD EXTENDED FORM ÇAĞIRMA
Sub ButtonClick(ctrl as String)
if ctrl="LButton1" then
'Malzeme Kartındaki Ürünün Logicalrefini alır
' AppTables[1].GetIntFieldR(RecHandle,"LOGICALREF",intLref)
' warn(intLref)
'Custom Formu Açar
CreateQForm("CUSTENTR2", 1,3, 1, CstForm)
CstForm.ShowForm(1)
end if
End Sub
Sub FormShow()
'TableName=Application.GetTableName(",Application.CompanyId,Application.FiscPerdId)
mgrid="LGridList1"
SqlTxt="select DISTINCT TARIH,SONSATINALMAFIYATI,INDIRIMLIFIYAT,KDVDAHILMALIYET,NMALIYET,PROMOSYONMALIYETI,SATISFIYATI from BM_XT001_120"
CreateQuery(qry)
qry.SetSqlText(SqlTxt)
qry.ExecuteDirect()
i=0
_breakpoint
if qry.Ready=1 then
res=qry.First()
do while res=1
' GetFieldValue(fieldOrder as Integer, valTyp as Integer, value as Variant)
'Order of the field in the select statement valType(in) Type of the field 1 for INTEGER 2 for DATE (Logo format) 3 for FLOAT 4 for
'TEXT value(out) Value of the field Example Qry.GetFieldValue(1, 1, logRef)
qry.GetFieldValue(1,2,TARIH)
qry.GetFieldValue(2,3,SONSATINALMAFIYATI)
qry.GetFieldValue(3,3,INDIRIMLIFIYAT)
qry.GetFieldValue(4,3,KDVDAHILMALIYET)
qry.GetFieldValue(5,3,NMALIYET)
qry.GetFieldValue(6,3,PROMOSYONMALIYETI)
qry.GetFieldValue(7,3,SATISFIYATI)
SetMGridRow(mgrid,i)
InsertGridRow(mgrid,1)
SetCellInt(mgrid,i,10000,TARIH)
SetCellFloat(mgrid,i,10001,SONSATINALMAFIYATI)
SetCellFloat(mgrid,i,10002,INDIRIMLIFIYAT)
SetCellFloat(mgrid,i,10003,KDVDAHILMALIYET)
SetCellFloat(mgrid,i,10004,NMALIYET)
SetCellFloat(mgrid,i,10006,PROMOSYONMALIYETI)
SetCellFloat(mgrid,i,10007,SATISFIYATI)
InvalidateGrid(mgrid)
RefreshControl(mgrid,1)
i=i+1
res=qry.next()
loop
end if
End Sub
'Sağ tuş tetikleme işlemini DoPopupAction method unu kullanarak gerçekleştirebilirsiniz.
'Aşağıdaki şekilde kullanımı mevcuttur 1. parametresi PopupMenu ismi 2. parametre seçeneğin index bilgisi.
DoPopupAction("StBrwPopupMenu", 14)
Sub FormShow()
MNAddItem("OrdBrwPopup","-",-10001)
MNAddItem("OrdBrwPopup","FlashTech Gönder",1001)
MNAddItem("OrdBrwPopup","FlashTech Sipariş İptal Et",1002)
MNAddItem("OrdBrwPopup","-",-1003)
MNAddItem("OrdBrwPopup","Dolum Fişi Yazdır",1003)
MNAddItem("OrdBrwPopup","-",-1004)
MNAddItem("OrdBrwPopup","Mühür Girişi",1004)
End Sub
Sub PopupMenuClick(ctrl as String, index as Integer, result as Integer)
if ctrl="OrdBrwPopup" and index=1001 then
warn("FlashTech Gönder")
end if
End Sub
‘ Gridde ilgili rowun recidsini alma
DBGGetRecAdr(“OrdFicheDataGrid”,ITR)
'GRIDDEN ILGILI ROWUN LOGICALREFINE GORE TABLOSUNDA BILGI CEKME
Sub FormShow()
MNAddItem("OrdBrwPopup","-",-10001)
MNAddItem("OrdBrwPopup","FlashTech Gönder",1001)
MNAddItem("OrdBrwPopup","FlashTech Sipariş İptal Et",1002)
MNAddItem("OrdBrwPopup","-",-1003)
MNAddItem("OrdBrwPopup","Dolum Fişi Yazdır",1003)
MNAddItem("OrdBrwPopup","-",-1004)
MNAddItem("OrdBrwPopup","Mühür Girişi",1004)
End Sub
Sub PopupMenuClick(ctrl as String, index as Integer, result as Integer)
if ctrl="OrdBrwPopup" and index=1001 then
'ILGILI GRID ROWUN LOGICALREFINI ALIR
DBGGetRecAdr("OrdFicheDataGrid",ORDFICHEREF)
AppTables[12].SearchByRef(ORDFICHEREF) '12:ORFICHE
AppTables[12].GetTxtField("DOCTRACKINGNR", DOCTRACKINGNR)
warn(DOCTRACKINGNR)
end if
End Sub
set popup menu to grid SetPopup(“LGridList1″,”LPopupMenu1”)
MOBIL RAPOR EKLEMEK ICIN URLDEN DATASET EKLEMELISIN
POWER BI REPORTUN TELDE GORUNMESINI ISDERSEN DATASOURCE EKLERKEN DIRECT YERINE IMPORTU SEC AMA REPORT SERVER CONFIGURATION MANAGERDE USE ANOTHER ACCOUNTI SEC WINDOWS KULLANICI ADINI VE SIFRENI GIR