LOGO OBJECT İLE SORGU İŞLEMİ

On May 9, 2024 By semt20In LOGO ERP, LOGO OBJECTSLeave a comment

TIGER 3 ENTERPRISE

NEDEN İHTİYAÇ DUYULDU: LOGO SYSDE FİRMALARA FARKLI VERİTABANLARI ÜZERİNDEN İŞLEM YAPILABİLMEKTE. DOLAYISIYLA İLGİLİ VERİTABANINDAN OBJECT İLE SORGU KONTROLÜ YAPILIP ONA GÖRE DEVAM EDİLMESİ GEREKMEKTE(PROJE TABLOSU).

ÖNCE SORGUYU CEKMEK İSDEDİGİM TABLO İSMİ TESPİT EDİLİR-GetTableName(https://docs.logo.com.tr/public/wua/logo-objects/logo-objects-kuetuephanesi/unityapplication/gettablename)

string projectTable = AppUnity.GetTableName(229, firmNr, 0);
bool isProjectExists = ObjectProjectCodeControl(projectTable, L.PROJEKODU);
bool canContinue = true;
                        if (!isProjectExists)
                        {
                            canContinue = false;
                            WRITELOG(firmNr.ToString() + " PROJE KODU BULUNAMADI : " + L.PROJEKODU, null);
                        }
private static bool ObjectProjectCodeControl(string table, string code)
{
    bool isExists = false;
    string sql = "SELECT LOGICALREF FROM " + table + " WHERE CODE = '" + code + "'";
    string resultTxt = "";
    UnityObjects.Query Qry = AppUnity.NewQuery();
    Qry.Statement = sql;
    if (Qry.OpenDirect())
    {
        bool res = Qry.First();
        while (res)
        {
            resultTxt = Qry.QueryFields[0].Value.ToString();
            isExists = true;
            res = Qry.Next();
        }
    }
    else
    {
        MessageBox.Show(Qry.DBErrorDesc.ToString());
    }
    Qry.Close();
    return isExists;
}

LOGO Banka İşlem Fişi Kesilmiştir Detay

On October 18, 2023 By semt20In LOGO ERP, LOGO OBJECTS, SqlLeave a comment

Logoda kk fişi silerken banka işlem fişi kesilmiştir hatası veren fişlerin bağlarını bulmak için :

 SELECT * FROM (
 SELECT 
	DISTINCT
	Tarih,
	CariFisKKFisNo=(SELECT CLFICHE.FICHENO FROM LG_301_01_CLFICHE CLFICHE WHERE CLFICHE.LOGICALREF=CariFisKKFisRef),
	CariFisMuhasebeFisNo=(SELECT EMFICHE.FICHENO FROM LG_301_01_EMFICHE EMFICHE WHERE EMFICHE.LOGICALREF=CariFisMuhasebeFisRef),
	BankaFisNo,
	BankaFisMuhasebeFisNo=(SELECT EMFICHE.FICHENO FROM LG_301_01_EMFICHE EMFICHE WHERE EMFICHE.LOGICALREF=BankaFisMuhasebeFisRef)
 FROM (
	 SELECT 
	 Tarih=BNFICHE.DATE_,
	 CariFisKKFisRef=BNFLINE.CRCARDFCREF,
	 CariFisMuhasebeFisRef=(SELECT CLFICHE.ACCFICHEREF FROM LG_301_01_CLFICHE CLFICHE WHERE CLFICHE.LOGICALREF=(CASE WHEN ISNULL(BNFICHE.CRCARDFCREF,'')=0 THEN BNFLINE.CRCARDFCREF ELSE BNFICHE.CRCARDFCREF END)),
	 BankaFisNo=BNFICHE.FICHENO,
	 BankaFisMuhasebeFisRef=(SELECT EMFICHE.LOGICALREF FROM LG_301_01_EMFICHE EMFICHE WHERE EMFICHE.LOGICALREF=BNFICHE.ACCFICHEREF)
	 FROM 
		LG_301_01_BNFICHE BNFICHE LEFT JOIN LG_301_01_BNFLINE BNFLINE ON BNFLINE.SOURCEFREF=BNFICHE.LOGICALREF
	  WHERE BNFICHE.TRCODE=1 AND BNFICHE.MODULENR=7
  ) AS TT
  ) AS TF WHERE CariFisKKFisNo='BMS.0073921'

LOGO OBJECTS INVOICE ITEXT

On March 8, 2023March 8, 2023 By semt20In C SHARP, LOGO OBJECTSLeave a comment

Logo objectse invoice fatura atarken ITEXT her 255 karaktere ¦ konması gerekmektedir .

İlgili fonksiyon:

    public static string SplitString(string input)
        {
            int chunkSize = 255;
            List<string> chunks = new List<string>();
            for (int i = 0; i < input.Length; i += chunkSize)
            {
                int remaining = Math.Min(chunkSize, input.Length - i);
                chunks.Add(input.Substring(i, remaining));
            }
            return string.Join("¦", chunks);
        }

            F.DataFields.FieldByName("ITEXT").Value = SplitString(description);

LOGO OBJECTS TSQL KAÇ ADET ÇALIŞMAKTA

On August 10, 2022 By semt20In LOGO OBJECTS, SqlLeave a comment

select 
         count(distinct program_name) 
from master.dbo.sysprocesses 
where program_name like 'LOGO_ERPOBJECT%'

Logo Malzeme Grup Açıklamaları Sql

On June 21, 2022 By semt20In LOGO ERP, LOGO OBJECTS, SqlLeave a comment

select 
  CODE, 
  NAME, 
  STGRPCODE, 
  (
    select 
      TOP 1 S.DEFINITION_ 
    from 
      LG_301_SPECODES S 
    WHERE 
      (
        (
          (S.CODETYPE = 4) 
          AND (S.SPECODETYPE = 0)
        ) 
        OR (
          (S.CODETYPE = 4) 
          AND (S.SPECODETYPE > 0)
        ) 
        OR (
          (S.CODETYPE > 4)
        )
      ) 
      AND (
        (
          (S.CODETYPE = 4) 
          AND (S.SPECODETYPE <= 0)
        ) 
        OR (
          (S.CODETYPE < 4)
        )
      ) 
      AND S.SPECODE = I.STGRPCODE
  ) STGRPCODE_A, 
  SPECODE, 
  (
    select 
      TOP 1 S.DEFINITION_ 
    from 
      LG_301_SPECODES S 
    WHERE 
      S.SPECODE = I.SPECODE 
      AND S.SPETYP1 = 1 
      AND S.CODETYPE = 1 
      AND S.SPECODETYPE = 1
  ) SPECODE_A, 
  SPECODE2, 
  (
    select 
      TOP 1 S.DEFINITION_ 
    from 
      LG_301_SPECODES S 
    WHERE 
      S.SPECODE = I.SPECODE2 
      AND S.SPETYP2 = 1 
      AND S.CODETYPE = 1 
      AND S.SPECODETYPE = 1
  ) SPECODE2_A, 
  SPECODE3, 
  (
    select 
      TOP 1 S.DEFINITION_ 
    from 
      LG_301_SPECODES S 
    WHERE 
      S.SPECODE = I.SPECODE3 
      AND S.SPETYP3 = 1 
      AND S.CODETYPE = 1 
      AND S.SPECODETYPE = 1
  ) SPECODE3_A, 
  SPECODE4, 
  (
    select 
      TOP 1 S.DEFINITION_ 
    from 
      LG_301_SPECODES S 
    WHERE 
      S.SPECODE = I.SPECODE4 
      AND S.SPETYP4 = 1 
      AND S.CODETYPE = 1 
      AND S.SPECODETYPE = 1
  ) SPECODE4_A 
from 
  LG_301_ITEMS I

LOGO LOD BROWSER POPUPTAN İSTENİLENİ GİZLEME

On July 12, 2021 By semt20In LOD, LOGO ERP, LOGO OBJECTSLeave a comment

Sub PopupMenuClick(ctrl as String, index as Integer, result as Integer)
'AccFicheBrwPopUp
if ctrl="AccFicheBrwPopUp" then
'toplu iptal 101
'toplu iptal geri al 102
warn(index)
end if
End Sub                 

Sub PopupFilterAction(ctrl as String, actionId as Integer, canDo as Integer)

if ctrl="AccFicheBrwPopUp" and (actionId=101 or actionId=102 ) then 
canDo=0 
end if
 
End Sub

Protected: SQL SERVER BINARY EXTRACT BLOB

On April 2, 2021 By semt20In LOGO ERP, LOGO OBJECTS, Sql

C# BELİRLENEN ZAMANDA PROCCESS KILL İŞLEMİ

On December 17, 2020August 20, 2021 By semt20In C SHARP, LOGO OBJECTSLeave a comment

private void LOBJECTSKILLER() {
    try {
        TimeSpan ts1 = TimeSpan.Parse("05:00:00");
        TimeSpan ts2 = TimeSpan.Parse("06:00:00");
        if (DateTime.Now.TimeOfDay >= ts1 && DateTime.Now.TimeOfDay <= ts2) {
            foreach (Process p in Process.GetProcessesByName("LOBJECTS")) {
                p.Kill();
            }
        }
 
 
    } catch (Exception EX) {
 
        DLL.GLOBAL.LOGYAZ("LOBJECTSKILLER:", EX);
    }
}

Protected: LOGO KALEM DEĞİŞEN FİYATLAR

On November 13, 2020 By semt20In LOGO ERP, LOGO OBJECTS, Sql

LOGO LOD- SATIŞ FATURA SATIRINA İKİNCİ MİKTAR GETİRME

On August 7, 2020 By semt20In LOD, LOGO ERP, LOGO OBJECTSLeave a comment

Events:

Modules

Table:

Events:

Sub FormShow()
Call GetData()
End Sub

Sub BeforeSave(proceed as Integer)
Call SetLineArray()
End Sub

Sub AfterSave()
AppTables[14].GetIntFieldR(RecHandle,”LOGICALREF”,gSETLOGREF)
Call SetData(gSETLOGREF)
End Sub

Modules:

Dim LineDataArr1(200) as string

Sub GetData()
AppTables[14].GetIntFieldR(RecHandle,”LOGICALREF”,iMasrefRef)

 MaxGridLine=MGridLines("InvoiceGrid")
 for i=0 to MaxGridLine-1
   GetGridRowHandle("InvoiceGrid",i,recH)
   AppTables[9].GetIntFieldR(recH,"LOGICALREF",intLineRef)

   CustTables[62].Search(2,2,intLineRef)
   if not (DBErr <>0) then

       CustTables[62].GetFltField("MIKTAR2",fMIKTAR2)

       SetCellFloat("InvoiceGrid",i,10072,fMIKTAR2)          

   end if
 next i

End Sub

Sub SetData(intLogref as Long)
i=0
CreateQuery(Qry)
tblName = Application.GetTableName(9, Application.CompanyId, Application.FiscPerdId)
Qry.AddTable(“A”, tblName)
Qry.AddSelField(“A”, “LOGICALREF,”)
Qry.AddSelField(“A”, “INVOICELNNO”)
Str(intLogref, LogRefTxt)
MyWhereCond = “INVOICEREF = ” + LogRefTxt

Qry.AddWhereCond(MyWhereCond,1)
Qry.Execute()
if Qry.Ready = 1 then
   res = Qry.First()
   Do while res = 1
      Qry.GetFieldValue(1, 1, MyLineRef)
      Qry.GetFieldValue(2, 1, MyLineNo)
      if MyLineRef<>0 then
            CustTables[62].Search(2,2,MyLineRef)
            if (DBErr <>0) then
                CustTables[62].NewRecord()
                CustTables[62].SetIntField("PARLOGREF",MyLineRef)
                CustTables[62].SetIntField("INVFICHEREF",intLogref)
                CustTables[62].SetFltField("MIKTAR2",LineDataArr1[MyLineNo - 1])                
            else
                CustTables[62].SetFltField("MIKTAR2",LineDataArr1[MyLineNo - 1])             
            end if
            CustTables[62].UpdateRecord()
      end if
      res =  Qry.Next()
   Loop
end if