Obis4SQL Wiki

Tato stránka je pouze pro čtení. Můžete si pouze prohlédnout zdrojový kód, ale ne ho měnit. Zeptejte se správce, pokud si myslíte, že něco není v pořádku.
====== Úpravy systému OBIS ======

==== Obarvování ====

OBIS umožňuje na základě určité podmínky obarvovat jak písmo tak i pozadí
řádku. Je možné měnit i styl písma.

//Příklad obarvování// - položky rozpočtu obarví červene, pokud je cena
menší než náklady a zeleně, pokud je ceníková cena menší než náklady ale
cena je vetší než náklady. Obarvování dle ceny má prioritu.

<code>
ClientSession:AddLUAEvent("rozpocty_rpolozky.PrintRow","RpolozkyCenaNaklady")
function RpolozkyCenaNaklady( DSI, FieldName)
 local cena=DSI:FieldByName("cena")
 local naklady=DSI:FieldByName("naklady")
 local cenikcena=DSI:FieldByName("cenikcena")
 if cena and naklady and cena < naklady then
     return {FontColor=RGB2Color(255,70,0)}
 elseif cenikcena and naklady and cenikcena < naklady then
     return {FontColor=RGB2Color(50,170,0)}
 end
end
</code>

//Příklad obarvování// - dle prvního znaku '*' v hlavičce rozpoctu

<code>
ClientSession:AddLUAEvent("rozpocty.rozpocty_rozpocty.PrintRow","RozpoctyPrvniZnak")
function RozpoctyPrvniZnak( DSI, FieldName)
local znak=string.sub(DSI:FieldByName("hlavicka"),1,1)
if znak=="*" then
return
{FontColor=RGB2Color(250,100,0),FontStyle=FontStyleBold,BrushColor=RGB2Color(0,100,250)}
end
end
</code>

//FontColor// -- barva písma v řádku
//BrushColor// -- barva pozadí řádku
//FontStyle// -- styl písma

//Obarvování// písma a pozadí využívá funkci //RGB2Color//, která má
tři barevne složky - R (red), G (green), B (blue). Všechny složky se nastavují
v rozmezí 0 -- 255. Např. bílá barva je {(255,255,255)}, černá barva je
//(0,0,0)//, červená barva je //(255,0,0)//.

//Styly písma// mohou být //FontStyleBold// pro tučné písmo,
//FontStyleItalic// pro kurzívu, //FontStyleUnderline// pro podtržené
písmo a //FontStyleStrikeOut// pro písmo přeškrtnuté. Jednotlivé styly se
sčítají. Pokud bychom tedy chtěli použít všechny čtyři styly napíšeme
//FontStyleBold+FontStyleItalic+FontStyleUnderline+FontStyleStrikeOut//.


==== Kopírování, vkládání, potvrzování ====

=== Možné eventy ===

Popis na stránce [[eventy]].


=== Příklady ===

pri kopirovani rozpoctu doplneni aktualniho datumu

<code>
ClientSession:AddLUAEvent("rozpocty.rozpocty_rozpocty.AfterCopy", "AktualniDatum")
function AktualniDatum( DSI, FieldName)
DSI:SetFieldByName("Datum",os.date("%d.%m.%Y %X"))
end
</code>

pri vytvoreni nove polozky faktury doplneni kodu DPH "0"

<code>
ClientSession:AddLUAEvent("faktury.faktury_fpolozky.AfterInsert", "PolozkaFaktury")
function PolozkaFaktury( DSI, FieldName)
DSI:SetFieldByName("iddph","0")
end
</code>

pri vytvoreni noveho skladu se doplni IDSklad a Popis dle cisla zakazky

<code>
ClientSession:AddLUAEvent("sklady.sklad_sklady.BeforePost", "PopisMeziskladu")
function PopisMeziskladu( DSI, FieldName)
if DSI:FieldByName("idzakaz") then
DSI:SetFieldByName("popis",
ClientSession:LookupFields("zakazky_zakazky","idzakaz",DSI:FieldByName("idzakaz"),"popis"))
DSI:SetFieldByName("idsklad", DSI:FieldByName("idzakaz"))
end
end
</code>

pri vytvoreni noveho partnera vyplneni cenove skupiny '2'

<code>
ClientSession:AddLUAEvent("partneri.partneri_partneri.AfterInsert", "PolozkaFaktury")
function PolozkaFaktury( DSI, FieldName)
DSI:SetFieldByName("CenSkupina","2")
end
</code>

pri zalozeni vyk.protokolu vyplneni druhu 'S'

<code>
ClientSession:AddLUAEvent("vykprot.prost_vykprot.AfterInsert", "DruhVykProtokolu")
function DruhVykProtokolu( DSI, FieldName)
DSI:SetFieldByName("idvpdruh","S")
end
</code>

po postu vykonu doplneni popisu dle idvyk

<code>
ClientSession:AddLUAEvent("prostredky.prost_vykony.BeforePost", "PopisVykonu")
function PopisVykonu( DSI, FieldName)
if DSI:FieldByName("idvyk") then
DSI:SetFieldByName("popis",
ClientSession:LookupFields("prost_vyktext","idvyk",DSI:FieldByName("idvyk"),"popis"))
end
end
</code>
pri pridani noveho partnera se automaticky vyplni v partnerech
novy sloupecek 'v_idvyridil' se jmenem uzivatele, ktery partnera zapsal

<code>
ClientSession:AddLUAEvent("partneri.partneri_partneri.AfterInsert", "PridaniZapsalPartnera")
function PridaniZapsalPartnera(DSI, FieldName)
DSI:SetFieldByName("v_idvyridil",ClientSession:GetIDUzivatele())
end
</code>


==== Cenová politika ====

//Příklad// - když se bude vydávat materiál ze skladu //01//, pak
vydej za //Cenu1// ze skladových karet. Když ze skladu //02//, pak
vydej za //Cenu2// a když ze skladu //03//, pak
vydej za //Cenu3//. Když se bude vydávat z jiných skladů, vždy vydej za
cenu ze sloupce //Cena//

<code>
ClientSession:AddLUAEvent("sklkarty_zaklad.sklad_karty.GetCena","CenovaPolitikaKarty")
function CenovaPolitikaKarty( DSI, DestDSI, Params)
  local SkladDS=DestDSI:OwnerMiddleDB():FindDataSetItem("sklad_prijemky")
  if not SkladDS then return  end
  local idsklad=SkladDS:FieldByName("idsklad")

  if idsklad=="01" then return DSI:FieldByName("Cena1") end
  if idsklad=="07" then return DSI:FieldByName("Cena2") end
  if idsklad=="13" then return DSI:FieldByName("Cena3") end
  return Params.CenikCena
end
</code>


==== Upozorňování - budík ====

Upozornování slouží k připomenutí nějaké události, akce na základě výběru
pomocí SQL dotazu. Nastavuje se v Menu -> Ostatní -> Nastavení -> záložka **Upozorňování**

{{lua:nastaveni_budik.png|}}

**Syntaxe**

<code>
<{název}>|<{interval_v_minutách}>|<{další_spuštění}>
|{Tablename}|<{SQL_dotaz}>
</code>

 //Příklad//:
Chceme upozornit na všechny {Akce} partnerů, které mají {Datum
akce} starší, než je aktuální datum.

<code>
Akce|10|8.11.2005 8:01:49|partneri_akce|select * from partneri_akce where
datumakce < '<lua>return os.date('%d.%m.%Y %H:%M:%S')</lua>' and
piduzivatele = '<lua>return ClientSession:GetIDUzivatele()</lua>'
</code>

Čas dalšího spuštění se nastaví automaticky po předešlém
spuštění - k času posledního spuštění se přičte interval v minutách.




==== Lokální menu ====

Do //lokálního menu// ve všech hlavních tabulkách lze přidat vlastní
uživatelskou funkci. tyto funkce jsou uloženy v //xml// souborech v
/user/lua a jsou psané pomocí skriptovacího jazyka //lua//.

//Příklad//:
Do lokálního menu v rozpočtech chceme přidat funkci, která u položek
zaktualizuje ceníkovou cenu a náklady dle ceníku.

Výpis souboru //rozpocty.rozpocty_rozpocty_menu.xml// bude tedy vypadat např.
takto:
<code>
<?xml version="1.0" encoding="windows-1250"?>
<menu>
  <menuitem>
    <caption>Aktualizace ceníkové ceny a nákladů v označeném rozpočtu</caption>
    <cmdstring>@
      local RozpoctyMD=DSI:OwnerMiddleDB()
      local RozpoctyDS=RozpoctyMD:FindDataSetItem("Rozpocty_rozpocty")
      RozpoctyDS:SetRangeDetail()
      RkapDS=RozpoctyMD:FindDataSetItem("Rozpocty_rkap")
      RpolozkyDS=RozpoctyMD:FindDataSetItem("Rozpocty_rpolozky")
      RkapDS:LocateFirst()
      repeat
        RkapDS:SetRangeDetail()
        RpolozkyDS:LocateFirst()
        repeat
          IDCen=RpolozkyDS:FieldByName("IDCen")
          if IDCen then
            Cena=ClientSession:LookupFields("Rozpocty_cenik","IDCen",IDCen,"Cena")
            Naklady=ClientSession:LookupFields("Rozpocty_cenik","IDCen",IDCen,"Naklady")
            LuaObj:Print(RpolozkyDS:FieldByName("IDRozp"))
            RpolozkyDS:Edit()
            RpolozkyDS:SetFieldByName("CenikCena", Cena)
            RpolozkyDS:SetFieldByName("Naklady", Naklady)
            RpolozkyDS:Post()
          end
        until not RpolozkyDS:LocateNext()
      until not RkapDS:LocateNext()
    </cmdstring>
    <imageindex>38</imageindex>
  </menuitem>
</menu>
</code>

==== Hromadná změna ID v LUAConsole MassChange ====

   * v LUA console, zapnout DEBUG
   * master tabulku není nutné opravovat, změní se v MassChange (je ale nutný refresh)
   * spustit:

<code>
cf.MassChangeID("partneri_partneri:idpartner", "oldid", "newid", DEBUG, nil, true) --posledni param je dryrun
</code>