LOD CARİ İŞYERİ AMBAR FATURA

On December 2, 2024 By semt20In TOOLSLeave a comment

Amaç: Logoda cari hesap kartında ilgili carilere işyeri ambarlar set edilip faturada cari seçerken otomatik olarak set edilmiş bilgileri almak.

Tiger ent version 2.95

' ///////////////////////////////////////////
' LOD Source Code Text File
' Date :2.12.2024 09:19:21
' ///////////////////////////////////////////

' ///////////////////////////////////////////
' File Name   : FRM_CariHesapKarti
' Name : FRM_CariHesapKarti
' Code Type : Event
' ///////////////////////////////////////////
Sub FormShow()
HideControl("_N_Isyeri_Nr")
HideControl("_N_Ambar_Nr")
HideControl("_T_Isyeri_Name")
HideControl("_T_Ambar_Name")

arrIsyeri = Application.GetFirmDivisions(Application.CompanyId) 'https://docs.logo.com.tr/public/wua/logo-object-designer/lod-kuetuephanesi/lod-application
 for i = 0 to arrIsyeri.Size-1
 _dNr = arrIsyeri[i].Nr
 _dName = arrIsyeri[i].Name
 AddItem("_C_Isyeri",_dName,_dNr) 'https://docs.logo.com.tr/public/wua/logo-object-designer/lod-kuetuephanesi/lod-form
 next
getIsyeriName()


arrAmbar = Application.GetFirmWarehouses(Application.CompanyId, 0, 0) 'https://docs.logo.com.tr/public/wua/logo-object-designer/lod-kuetuephanesi/lod-application
 for i = 0 to arrAmbar.Size-1
 _wNr = arrAmbar[i].Nr
 _wName = arrAmbar[i].Name
 AddItem("_C_Ambar",_wName,_wNr) 'https://docs.logo.com.tr/public/wua/logo-object-designer/lod-kuetuephanesi/lod-form
 next
getAmbarName()


End Sub

Sub ComboChange(ctrl as String, ID as Integer, index as Integer)
IF ctrl="_C_Ambar" THEN
 GetTextVal("_C_Ambar",t_C_Ambar) 'https://docs.logo.com.tr/public/wua/logo-object-designer/lod-kuetuephanesi/lod-form   
 SetIntVal("_N_Ambar_Nr",index)
 SetTextVal("_T_Ambar_Name",t_C_Ambar)
END IF

IF ctrl="_C_Isyeri" THEN
 GetTextVal("_C_Isyeri",t_C_Isyeri) 'https://docs.logo.com.tr/public/wua/logo-object-designer/lod-kuetuephanesi/lod-form   
 SetIntVal("_N_Isyeri_Nr",index)
 SetTextVal("_T_Isyeri_Name",t_C_Isyeri)
END IF
End Sub


' ///////////////////////////////////////////
' File Name   : FRM_CariHesapKarti
' Name : FRM_CariHesapKarti
' Code Type : Module
' ///////////////////////////////////////////
Sub getIsyeriName()
 'https://docs.logo.com.tr/public/wua/logo-object-designer/lod-baslangic
 CreateQuery(QryDName)
 GetIntVal("_N_Isyeri_Nr",v_N_Isyeri_Nr)
 SetIntVal("_C_Isyeri",v_N_Isyeri_Nr)
 STR(v_N_Isyeri_Nr,STR_v_N_Isyeri_Nr)
 STR(Application.CompanyId,STR_ApplicationCompanyId)
 SqlDName = "select TOP 1 NAME from L_CAPIDIV WHERE FIRMNR="+STR_ApplicationCompanyId+ " AND NR="+STR_v_N_Isyeri_Nr
 QryDName.SetSQLText(SqlDName)
 FResult = ""
 If QryDName.ExecuteDirect() Then
  Res = QryDName.First()
  Do While Res=1 
   QryDName.GetFieldValue(1, 4, FResult) 
   Res=QryDName.Next()
  Loop 
 end if
 QryDName.Clear()
 SetTextVal("_T_Isyeri_Name",FResult)
End Sub

Sub getAmbarName()
 'https://docs.logo.com.tr/public/wua/logo-object-designer/lod-baslangic
 CreateQuery(QryWHName)
 GetIntVal("_N_Ambar_Nr",v_N_Ambar_Nr)    
 SetIntVal("_C_Ambar",v_N_Ambar_Nr)
 STR(v_N_Ambar_Nr,STR_v_N_Ambar_Nr)
 STR(Application.CompanyId,STR_ApplicationCompanyId)
 SqlWHName = "select TOP 1 NAME from L_CAPIWHOUSE WHERE FIRMNR="+STR_ApplicationCompanyId+ " AND NR="+STR_v_N_Ambar_Nr
 QryWHName.SetSQLText(SqlWHName)
 FResult = ""
 If QryWHName.ExecuteDirect() Then
  Res = QryWHName.First()
  Do While Res=1 
   QryWHName.GetFieldValue(1, 4, FResult) 
   Res=QryWHName.Next()
  Loop 
 end if
 QryWHName.Clear()
 SetTextVal("_T_Ambar_Name",FResult)
End Sub




' ///////////////////////////////////////////
' File Name   : FRM_SatisFaturasi
' Name : CUSTENTR2
' Code Type : Event
' ///////////////////////////////////////////
Sub FormShow()
 AppTables[14].GetIntFieldR(RecHandle,"LOGICALREF",_invoiceRef)
 isNewInvoiceFiche = true
    IF _invoiceRef > 0 THEN
        isNewInvoiceFiche = false
    END IF
End Sub

Sub ControlExit(ctrl as String, index as Integer)  
    IF ctrl = "clCodeEdit" OR ctrl = "TitleEdit" THEN       
      setIsyeriByClient()
      setAmbarByClient()
    END IF 
End Sub


' ///////////////////////////////////////////
' File Name   : FRM_SatisFaturasi
' Name : CUSTENTR2
' Code Type : Module
' ///////////////////////////////////////////
Sub setIsyeriByClient()
 AppTables[14].GetIntFieldR(RecHandle,"CLIENTREF",_clientRef)
 IF _clientRef=0 THEN
  EXIT SUB
 END IF
 STR(_clientRef,STR_clientRef)
 ClCardIsyeriRelationTable = Application.GetCustTableName(1, Application.CompanyId, Application.FiscPerdId) 'https://docs.logo.com.tr/public/wua/logo-objects/logo-objects-kuetuephanesi/unityapplication/getcusttablename
 'https://docs.logo.com.tr/public/wua/logo-object-designer/lod-baslangic
 CreateQuery(QryClCardIsyeriRelationTable)
 SqlClCardIsyeriRelationTable = "select TOP 1 _ISYERINR from "+ClCardIsyeriRelationTable+" WHERE PARLOGREF='"+STR_clientRef+"' "
 QryClCardIsyeriRelationTable.SetSQLText(SqlClCardIsyeriRelationTable)
 FResult = 0
 If QryClCardIsyeriRelationTable.ExecuteDirect() Then
  Res = QryClCardIsyeriRelationTable.First()
  Do While Res=1 
   QryClCardIsyeriRelationTable.GetFieldValue(1, 1, FResult) 
   Res=QryClCardIsyeriRelationTable.Next()
  Loop 
 end if
 QryClCardIsyeriRelationTable.Clear()
 if FResult > 0 then
  Confirmed("İşyeri Cari Bağlantısından Gelsinmi ? ", _ask)
  IF _ask = 1 THEN
   SetIntVal("branchComb",FResult)
  END IF
 END IF
 
 
End Sub

Sub setAmbarByClient()
 AppTables[14].GetIntFieldR(RecHandle,"CLIENTREF",_clientRef)
 IF _clientRef=0 THEN
  EXIT SUB
 END IF
 STR(_clientRef,STR_clientRef)
 ClCardAmbarRelationTable = Application.GetCustTableName(1, Application.CompanyId, Application.FiscPerdId) 'https://docs.logo.com.tr/public/wua/logo-objects/logo-objects-kuetuephanesi/unityapplication/getcusttablename
 'https://docs.logo.com.tr/public/wua/logo-object-designer/lod-baslangic
 CreateQuery(QryClCardAmbarRelationTable)
 SqlClCardAmbarRelationTable = "select TOP 1 _AMBARNR from "+ClCardAmbarRelationTable+" WHERE PARLOGREF='"+STR_clientRef+"' "
 QryClCardAmbarRelationTable.SetSQLText(SqlClCardAmbarRelationTable)
 FResult = 0
 If QryClCardAmbarRelationTable.ExecuteDirect() Then
  Res = QryClCardAmbarRelationTable.First()
  Do While Res=1 
   QryClCardAmbarRelationTable.GetFieldValue(1, 1, FResult) 
   Res=QryClCardAmbarRelationTable.Next()
  Loop 
 end if
 QryClCardAmbarRelationTable.Clear()
 if FResult > 0 then
  Confirmed("Ambar Cari Bağlantısından Gelsinmi ? ", _ask)
  IF _ask = 1 THEN
   SetIntVal("invenComb",FResult)

   MGridName = "InvoiceGrid"
   _satirSayisi = MGridLines(MGridName)
   For I=0 to _satirSayisi - 1
    GetGridRowHandle(MGridName,i,_recH) 
    SetCellInt(MGridName,I,40,FResult)
    InvalidateGrid(MGridName)
    RefreshControl(MGridName,1) 
   Next I
  END IF
 END IF
End Sub

LOGO LOD SATINALMA FATURASINA MALZEME ÖZELKODU4 GETİRME

On December 10, 2021December 10, 2021 By semt20In LOD, LOGO ERPLeave a comment

Talep: Logo object designer uyarlamada Logo satınalma faturasına, satır eğer malzeme ise ilgili malzemenin tablosundan özelkod4 (specode4) getirme talebi.

İşlem(Tiger 3 2.71) :

Önce InvoiceGrid grid componentine tıklayıp colattribs içinden MalzemeOzelKodu eklendi:

Formshow eventi:

Sub FormShow() 
MGridName="InvoiceGrid"
 MaxGridLine=MGridLines("InvoiceGrid")-1
 for i=0 to MaxGridLine
   GetGridRowHandle("InvoiceGrid",i,recH)
   AppTables[9].GetIntFieldR(recH,"STOCKREF",intSTOCKREF)
   AppTables[9].GetIntFieldR(recH,"LINETYPE",intLineType)
   if intSTOCKREF>0 and intLineType=0 then
   str(intSTOCKREF,STRSTOCKREF)
   TableName = Application.GetTableName(1, Application.CompanyId, Application.FiscPerdId)
   SPECODE4= G_GETTOP1TORESULT(TableName,false,4 ,"SPECODE4","LOGICALREF="+STRSTOCKREF)  
   SetCellText(MGridName,i,10071,SPECODE4) 
   end if  
 next i
End Sub

Controlexit eventi(malzeme kodu / malzeme açıklamasına girince):

Sub ControlExit(ctrl as String, index as Integer) 
If ctrl="InvoiceGrid" and (Index=2 or Index=3)  Then
MGridName="InvoiceGrid"
GridRow=MGridRow(MGridName)
GetCellText(MGridName,GridRow,16,TUR)
        if TUR="Malzeme" Then 
                GetCellText(MGridName,GridRow,1,KODU)
                TableName = Application.GetTableName(1, Application.CompanyId, Application.FiscPerdId)
                SPECODE4= G_GETTOP1TORESULT(TableName,false,4 ,"SPECODE4","CODE='"+KODU+"'")  
                SetCellText(MGridName,GridRow,10071,SPECODE4)
        end if 
END if      
End Sub

G_GETTOP1RESULT fonksiyonu(Ben Globalde kullanıyorum)

 Function G_GETTOP1TORESULT(TableName as String,isCustTable as bool,RESULTFIELDTYPE as int ,SelectField as String,Where as String)   
 ' Fielttype  Alan türü. 1 Integer 2 Date(Logo formatı tarih ) 3 Float 4 Text 

 'TableName = Application.GetTableName(TableId, Application.CompanyId, Application.FiscPerdId)
 'TableName = Application.GetCustTableName(1, Application.CompanyId, Application.FiscPerdId) 
     
 CreateQuery(MyQry1)
 MyQryTable1=TableName
 MySqlTxt1 = "Select top 1 "+SelectField+" From " + MyQryTable1 +  " WITH(NOLOCK) WHERE "+Where 
 MyQry1.SetSQLText(MySqlTxt1) 
 If MyQry1.ExecuteDirect() Then
 Res = MyQry1.First()
 if Res = 0 then
  if RESULTFIELDTYPE=4 then
  FResult = ""
  else
  FResult = 0
 end if
 end if
 Do While Res=1 
  MyQry1.GetFieldValue(1, RESULTFIELDTYPE, FResult) 
  Res=MyQry1.Next()
 Loop
 End if
 MyQry1.Clear()
 result=FResult
End Function

Not: Eğer tiger tarafında lodda eklenen kolon görünmez ise bu işlem yapılır (upgrade formsa tıklanır) test edilebilir(Her adımın yedekleme yaparak ilerlenmesini tavsiye ederim):

LOD CHECKBOX İŞLEMLERİ (CUSTOM TABLE ÜZERİNDEN)

On April 7, 2021April 7, 2021 By semt20In LOD, LOGO ERPLeave a comment

Sub FormShow() 
    AppTables[12].GetIntFieldR(RecHandle,"LOGICALREF", ORDFICHEREF)  'ORFICHE
    'STR(ORDFICHEREF,ORDFICHEREFSTR)   'STRYE CEVRILMESSE WARNDA ACIKLAMA: EKLENEMEZ
    'warn("ORDFICEHREF:"+ORDFICHEREFSTR) 
    'CustTables[3].GetIntField("MUHUR_DURUMU", MUHUR_DURUMU)  'ORFICHE
    MUHUR_DURUMU=0
    DbErr=0
    CustTables[3].Search(2,2,ORDFICHEREF)
    if DbErr=0 Then
     CustTables[3].GetIntField("MUHUR_DURUMU",MUHUR_DURUMU) 
    end if
    if MUHUR_DURUMU>0 Then
      SetNumProp("chkMuhurDurumu", 1, MUHUR_DURUMU)  'SetNumProp(chckgroupboxname,itemid,1=checked/0=unchecked)     
    end if 
    'STR(MUHUR_DURUMU,MUHUR_DURUMUSTR)   'STRYE CEVRILMESSE WARNDA ACIKLAMA: EKLENEMEZ
    'warn("MUHUR_DURUMU:"+MUHUR_DURUMUSTR) 
End 
Sub AfterSave()
         tmp=0
         AppTables[12].GetIntFieldR(RecHandle,"LOGICALREF", ORDFICHEREF)  'ORFICHE
         GetNumProp("chkMuhurDurumu",1, tmp)
         'warn(tmp)
        'DB'ye Yazılıyor
         DbErr=0
         CustTables[3].Search(2,2,ORDFICHEREF)
         if DbErr<>0 Then
            CustTables[3].NewRecord()
            CustTables[3].SetIntField("MUHUR_DURUMU",tmp) 
         End if  
         DBErr=0
         CustTables[3].UpdateRecord()
         if DBErr<>0 then
            Warn(DBErr)
         end if
End Sub