b7-Anwender-Frühstück: Grundlagen komplexe Datentypen



16.11.2023

Bei einem gemeinsamen (virtuellen) Frühstück ein paar Tipps und Tricks rund um Sage b7 erfahren? - Termin verpasst? - Jetzt nachlesen!

Thema:

Grundlagen komplexen Datentypen

Beschreibung:

Beim nächsten b7-Anwender-Frühstück mal wieder ein Programmierthema:
in bsl programmieren mit komplexen Datentypen.

Klingt kompliziert - ist aber durchaus auch für Anfänger interessant.
Wir erklären die Grundlagen und arbeiten uns dann schrittweise in den Folgeterminen bis zum Verarbeiten von REST-Webservices vor.

Hinweise zur Veranstaltung:

Die Teilnahme am b7-Anwender-Frühstück ist kostenlos.
Die Teams-Sitzungen finden an jedem vierten Donnerstag im Monat statt von 08:30 bis 09:30 Uhr. Fällt der Termin auf einen Feiertag, fällt diese Sitzung aus.
In den Sitzungen kann Werbung der SuA-Wendte GmbH oder Drittanbietern enthalten sein.
Die gezeigten Lösungen und Beispiele beziehen sich auf den aktuellen Sage b7 Release. Soweit Unterschiede zu anderen Releases bekannt sind, wird auf diese eingegangen.
Im Anschluss an den Vortrag verbleiben etwa 15 bis 20 Minuten, um Fragen (auch zu anderen Themen) zu stellen.

Nachbearbeitung:

Beispiel:

CDT-Definition

#-------------------------------------------------------------------------------
# 2023-10-24 Sven Wendte
# Anwenderfrühstück 2023-10-26
#-------------------------------------------------------------------------------

define benennung {
string ben,
string ben1,
string werkstoff,
string abmessung
}

‍

define teil_sprache {
string identnr,
string var,
string lang_ext,
int fi_nr,

string abmessung,
int aendnr,
string ben,
string ben1,
date dataen,
date datneu,
string klasse,
string kurz_ben,
string mc_var,
string norm,
string normnr,
int updatenr,
string useraen,
string userneu,
string uuid,
string werkstoff,
}

‍

define teile_sprache {
teil_sprache[0] teil_sprache
}

‍

define teile_such {
string identnr,
string var,
string lang_ext,
int fi_nr,
}

‍

BSL-Code

include saw_20231026.cdt

#-------------------------------------------------------------------------------
/*
unload saw_20231026.bsl
public saw_20231026.bsl
string benL = saw_20231026_1('11000011')
msg emsg "benL <:benL>"
*/
#-------------------------------------------------------------------------------
string proc saw_20231026_1(identnrP)
{
// Funktion zur Ermittlung der Benennung eines Teils
// Diese Funktion ist sehr individuell:
// - nur eine Firma
// - Kein Einsatz Variantenmanagement
// - Ausgabesprache deutsch
string benL

dbms alias benL
dbms sql select g0402.ben \
from g0402 \
where g0402.fi_nr = 1 \
and g0402.identnr = :+identnrP \
and g0402.lang_ext = 'de_de'
dbms alias

return benL
}

#-------------------------------------------------------------------------------
/*
unload saw_20231026.bsl
public saw_20231026.bsl
string benL = saw_20231026_2('11000011')
msg emsg "benL <:benL>"
*/
#-------------------------------------------------------------------------------
string proc saw_20231026_2(identnrP)
{
// Ausgabe soll erweitert werden auf zweite Benennungszeile
string benL
string ben1L

dbms alias benL \
, ben1L
dbms sql select g0402.ben \
, g0402.ben1 \
from g0402 \
where g0402.fi_nr = 1 \
and g0402.identnr = :+identnrP \
and g0402.lang_ext = 'de_de'
dbms alias

return benL ## "|" ## ben1L
// oder schreiben in LDB-Felder und von dort abholen
}