OBS/Makros und Scripting/Anwendungsbereiche/OFML-Kalkulation

Aus OBS Wiki
Zur Navigation springen Zur Suche springen


Dieses Macro ist unter dem festen Namen OFML_PosToCalc in der Sript Lib zu finden.

übergebene Parameter und Rückgabe

Übergabe Parameter

Parameter Bedeutung Datentyp
cAngNr Die Nummer des Angebotes für die Kalkulation string
xData Datenstruktur, in dem der komplette Datensatz enthalten ist TqSQL

Rückgabe

Parameter Bedeutung Datentyp
Result bei True wird der Datensatz angelegt, bei False nicht boolean

Felderläuterungen

Datenbankfeld Beschreibung Datentyp Feldlänge
mbc_bez1 Bezeichnung 1 der Position string 200
mbc_bez2 Bezeichnung 2 der Position string 200
mbc_text Langtext der Position string 2000
mbc_artnr Artikelnummer der Position string 40
mbc_bestnr Bestellnummer der Position string 40
mbc_serie Serie aus der OFML Datei string 10
mbc_hersteller Hersteller string 60
mbc_menge Menge double 10 (davon 2 NK)
mbc_ekpreis Brutto EK-Preis double 10 (davon 2 NK)
mbc_eknetto Netto EK-Preis double 10 (davon 2 NK)
mbc_ekrabatt EK Rabatt double 6 (davon 2 NK)
mbc_vkpreis Brutto VK-Preis double 10 (davon 2 NK)
mbc_vknetto Netto VK-Preis double 10 (davon 2 NK)
mbc_vkrabatt VK Rabatt double 6 (davon 2 NK)
mbc_memodruck Artikellangtext wird ausgedruckt boolean 1 (1=true;2=false)
mbc_ueberartnr Artikeltexte aus dem Artikelstamm haben vorang boolean 1 (1=true;2=false)
mbc_ksperre Diese Position wird in der Kalkulation nicht berücksichtigt boolean 1 (1=true;2=false)
mbc_neu_bild Bild wird in das Angebot übernommen boolean 1 (1=true;2=false)
mbc_neu_artikel Artikel wird im Artikelstamm angelegt boolean 1 (1=true;2=false)
mbc_apostfix Vorgabe für die Artikelnummer string 10
mbc_export Export freigabe boolean 1 (1=true;2=false)
mbc_sonderpreis kein Sonderpreis boolean 1 (1=true;2=false)
mbc_uebermemo Langtextet ins Angebot übernehmen boolean 1 (1=true;2=false)

Beispiel

function MyTqSQL(cAngNr:String; xData:TqSQL):Boolean;
begin
    DebugLine('Artikel-Nummer:'+xData.A2C('mbc_artnr'));
    DebugLine('Bestell-Nummer:'+xData.A2C('mbc_bestnr'));
    Result := True;

    //Artikelnummer ändern
    //xData.qSet('mbc_artnr','123');
end;