Obis4SQL Wiki

  local res = dlg.create(Caption="Test dialog", Encoding="ISO-8859-2",
  Items=
    "label1", "label", "Nápis",
    "edit1", "edit", "editační pole", "", "default val",
    "lookup1", "lookup", "lookup pole", "partneri_partneri:firma", "default val",
    "lualookup1", "lualookup", "lualookup pole", "return cf.ShowMsg('LuaLookup pole')",
    "combo1", "combo", "combo pole", "zobraz1=vrat1|zobraz2=vrat2",
    "checkbox1", "checkbox", "checkbox pole", "", "1",
    "calendar1", "calendar", "kalendář pole", "To", "1.1.2005",
    "calbetween1", "calbetween", "datum od|datum do","From|To","1.1.2005|31.12.2005",
    "calc1", "calc", "kalkulačka pole", "1.1.2005,EUR", "", "1000",
    "dir", "dirdialog", "Výběr adresáře", "", "default dir",
    "file", "filedialog", "Výběr souboru", "Filter EXE|*.exe|Filter DLL|*.dll", "default file"
  ,
  Buttons=
    "show", "Ukaž výsledek", 18,
    "cancel", "Storno", 19

  )

Příklad SQL dotazu pro zobrazení pořadí dodavatelů/odběratelů dle ceny

<lua>       
  local res = dlg.create(Caption="Výběr", Encoding="windows-1250",
  Items="datum", "calbetween", "datum od|datum do","From|To",    
         "znamenko", "combo", "Odběratelé/dodavatelé","Odběratelé=1|Dodavatelé=-1",
         "pocet", "edit", "Vypsat prvních ... (prázdno = všechny)"
        )
    
if res.Result == "Cancel" then return [[select '  Storno' from common_nast]] end
local pocet = '' 
if res.pocet ~= "" then pocet = [[first ]]..cf.tonumber(res.pocet) end
 
local sql = [[select ]]..pocet..[[ prijemky.idpartner, partneri.firma, 
sum(ppolozky.mnozstvi * ppolozky.cena ) as cena, count(prijemky.idprijemka) as pocet
from sklad_prijemky prijemky      
JOIN sklad_ppolozky ppolozky ON ppolozky.idprijemka = prijemky.idprijemka
JOIN sklad_karty karty ON ppolozky.idskladkarta = karty.idskladkarta    
LEFT JOIN partneri_partneri partneri ON partneri.idpartner = prijemky.idpartner
where       
  prijemky.datum between ']]..res.datumfrom..[[' and ']]..res.datumto..[[' and
  prijemky.znamenko = ']]..res.znamenko..[['
group by prijemky.idpartner, partneri.firma
order by 3 desc]]
    
return sql
</lua>