Dynactiv Reportdesigner
Dynactiv Reports sind grundsätzlich „normale“ Dynactiv Programme, die in 4GL Basic entwickelt wurden. Dur ch
die Nutzung von 4GL Basic als logische Grundlage der Reports, steht dem Anwendungsentwickler die
Mächtigkeit einer 4GL Hochsprache mit allen ihren Möglichkeiten in vollem Umfang zur Verfügung. Das
durchgehende „Two Way Tool“ Prinzip ermöglicht es, Reports auch komfortabel grafisch zu erstellen. Danach
kann der vom Designer entwickelte 4GL Basic Quelltext beliebig weiterbearbeitet werden.
Nachstehendes Quelltextbeispiel zeigt einen Auszug aus einem 4GL Basicscript für einen Report. Dabei erfolgte
die Erweiterung des Standardbasicsyntax um 4GL Basic Elemente, die auch bei der Gestaltung
kundenspezifischer Reports jederzeit einfach einsetzbar sind.
SUB DETAILLINE_DETAILZEILEN_1
'CODESECTION
'Codesequenz generiert im Wizard für automatische Aufsummierungen *********
'END CODESECTION
AKT_Y_POS = GETPRINT( "YPOS") 'AUTODEFINED
Tab(0, 0)
'R: L: 0, T: 0, W: 100, H: 20
Tab(15, 0 )
PRINT( "GOTO: W: 25, H: 5");
PRINT( "FONT: NAME: ARIAL, SIZE: 9, COLOR: , TRANSPARENT: , STYLE: REGULAR"),
PRINT &XADRESSE.ADR_NUMMER;
'R: L: 108, T: 0, W: 84, H: 20
Tab(42, 0 )
PRINT( "GOTO: W: 21, H: 5");
PRINT( "FONT: NAME: ARIAL, SIZE: 9, COLOR: , TRANSPARENT: , STYLE: REGULAR"),
PRINT &XADRESSE.KURZNAME;
'R: L: 200, T: 0, W: 260, H: 20
Tab(65, 0 )
PRINT( "GOTO: W: 65, H: 5");
PRINT( "FONT: NAME: ARIAL, SIZE: 9, COLOR: , TRANSPARENT: , STYLE: REGULAR"),
PRINT &XADRESSE.NAME1;
'R: L: 468, T: 0, W: 272, H: 20
Tab(132, 0 )
PRINT( "GOTO: W: 68, H: 5");
PRINT( "FONT: NAME: ARIAL, SIZE: 9, COLOR: , TRANSPARENT: , STYLE: REGULAR"),
PRINT &XADRESSE.NAME2;
PRINT( "GOTO: X: 1, Y: " + str$(akt_y_pos + 4)); 'AUTODEFINED
'CODESECTION
'END CODESECTION
END SUB