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.

====== Problematika cizích měn a přecenění ve fakturách ======

Ukázkový testovací kód:

<code lua>
local md = ClientSession:ActivateMid("Faktury")
local ds = md:FindDataSetItem("")
ds:LocateRange("idfaktura", "Fv015466")

print("V Kc pouzivat pouze CenaKUhrade, Uhrazeno; vypoctem je nutne ziskat Neuhrazeno")
print({
 CenaKUhrade=ds:FieldByName("CenaKUhrade"), 
 Uhrazeno_VcetnePreceneni=ds:FieldByName("Uhrazeno"),
 Neuhrazeno_HodnotaZavazkuPoPreceneni_Vypocet=ds:FieldByName("CenaKUhrade")-ds:FieldByName("Uhrazeno")})

print("--------")

print("V Kc nelze pouzit Neuhrazeno resp. SpoctiNeuhrazeno - jde o nesmyslne hodnoty (kvuli zobrazeni v Eur v OBISu)")
print({ 
 Neuhrazeno=ds:FieldByName("Neuhrazeno"),
 SpoctiNeuhrazeno=faktury_faktury.SpoctiNeuhrazeno(ds),
})

print("--------")

print("V EUR pouzivat pouze CenaKUhrade a Neuhrazeno resp. SpoctiNeuhrazeno; vypoctem je nutne ziskat Uhrazeno (bez preceneni)")
print({
 CenaKUhrade=cf.RecalcToDSIMena(ds, ds:FieldByName("CenaKUhrade")), 
 Uhrazeno_BezPreceneni_Vypocet=cf.RecalcToDSIMena(ds, ds:FieldByName("CenaKUhrade")-faktury_faktury.SpoctiNeuhrazeno(ds)),
 Neuhrazeno_BezPreceneni=cf.RecalcToDSIMena(ds, faktury_faktury.SpoctiNeuhrazeno(ds))})


print("--------")

print("V EUR nelze pouzit Uhrazeno - tohle ale vidi uzivatel v OBISu")
print({Uhrazeno=cf.RecalcToDSIMena(ds, ds:FieldByName("Uhrazeno"))})

print("--------")

ClientSession:Passivate(md)

</code>