-- Report öffnen
local report, err = SY_Report( "SLTSTAM", "ar101" )
if report then
report:SetFormulaInt( "formel1", 30 )
report:SetFormulaStr( "formel2", "Ja" )
report:SetFormulaDbl( "formel3", 7.2 )
local exist = report:FormulaExists( "formel4" )
if not exist then
SY_Proto( "Formel existiert nicht" )
end
report:SetSelect( "{firtab.finr} = 1 and {arttab.artnr} = '100000' " )
-- Report drucken
-- 1. Parameter = Druckmodus (0 = Druck direkt, 1 = Vorschau, 99 = Export)
-- 2. Parameter = Druckername
-- 3. Parameter = Blattformat Hoch (H) oder Quer (Q)
-- 4. Parameter = Anzahl Kopien (Standard = 1)
-- 5. Parameter = Dateiname
local success = report:Print( 0, "\\syslog\\drucker", "H", 1, "" )
if not success then
SY_Proto( "Fehler beim Drucken!" )
end
-- Report schließen
report:Close()
else
SY_Proto( "Fehler beim Report öffnen: " .. err )
end