LOGO SQL MALZEME STOKLARI

Aşağıdaki sorgu 281 numaraları ambarın anlık stoklarını getirir(stoğu olan ve kullanıdma olan malzemelerin)

SELECT 
  * 
FROM 
  (
    SELECT 
      TOP 100 PERCENT CODE STOK_KODU, 
      NAME STOK_ADI, 
      SPECODE STOK_OZELKODU, 
      ISNULL(
        (
          SELECT 
            SUM(ONHAND) 
          FROM 
            LV_101_01_STINVTOT STITOTS WITH(NOLOCK) 
          WHERE 
            STITOTS.STOCKREF = ITEMS.LOGICALREF 
            AND STITOTS.INVENNO = 281
        ), 
        0
      ) STOK_ADET 
    FROM 
      LG_101_ITEMS ITEMS WITH(NOLOCK) 
    WHERE 
      ACTIVE = 0
  ) as TF 
WHERE 
  STOK_ADET > 0

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

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



LOGO ÜRÜN BARKOD VE SATIŞ FİYATI LİSTESİ SQL

select
ISNULL(B.BARCODE,'') ProductCode,
ISNULL(I.NAME,'') ProductName,
ISNULL((SELECT TOP 1 ROUND(PRICE,2) FROM LG_320_PRCLIST P WITH(NOLOCK) WHERE CARDREF = I.LOGICALREF AND ACTIVE = 0 AND PTYPE = 2 AND CLIENTCODE = '' order by P.LOGICALREF DESC ),0) Price
FROM dbo.LG_320_ITEMS I WITH(NOLOCK) LEFT JOIN LG_320_UNITBARCODE B ON B.ITEMREF=I.LOGICALREF WHERE I.CODE<>'ÿ'AND ISNULL(B.BARCODE,'') <> ''