Hallo Heinz,
zufälligerweise mache ich gerade etwas sehr ähnliches.
Ich kann zwar keine Statusfarbe ändern
dafür aber die Farbe in der Vorschau anpassen.
Also anhand der Version die Farbe ändern:
Beispiel:
Option in DBW einschalten unter Vorschau:
OnShowPreviewLabel.LST
.VBSCRIPT
const color_black=0 'BLACK
const color_blue=11010048 'BLUE
const color_green=43008 'GREEN
const color_cyan=11053056 'CYAN
const color_red=168 'RED
const color_magenta=11010216 'MAGENTA
const color_brown=21928 'BROWN
const color_gray=10526880 'GRAY
const color_dark_gray=5592405 'DARK_GRAY
const color_light_blue = 16754856 'LIGHT_BLUE
const color_light_green=43008 'LIGHT_GREEN
const color_light_cyan=11053056 'LIGHT_CYAN
const color_light_red=168 'LIGHT_RED
const color_light_magenta=11010216 'LIGHT_MAGENTA
const color_yellow = 65535 'YELLOW
const color_light_yellow=14811135 'LIGHT_YELLOW
const color_white=16777215 'WHITE
sub main
DBWInit(TRUE)
docUid = DBWInput("@DOCUMENT_UNIQUE_ID")
actualLabelRow1 = DBWInput("TEXT1")
actualLabelRow2 = DBWInput("TEXT2")
actualLabelRow3 = DBWInput("TEXT3")
currentBackColor = DBWInput("@BACK_COLOR")
currentTextColor = DBWInput("@TEXT_COLOR")
revision = DBWQueryByUid(docUid,DBWLookUp("NAME_FIELD_REVISION"))
docState = DBWQueryByUid(docUid,DBWLookUp("NAME_FIELD_STATE"))
KAUFTEIL = DBWQueryByUid(docUid,"KAUFTEIL")
'Output
'TEXT1 the text that will be displayed in the 1st row of the preview
'TEXT2 the text that will be displayed in the 2nd row of the preview
'... ...
'TEXT10 the text that will be displayed in the 10th row of the preview
'@TEXT_COLOR The text color to be displayed
'@BACK_COLOR The background color to be displayed
'@BOLD 0/1: if 1, the text will be displayed with a bold face type
if docState = "NEU" then
DBWOutput "TEXT1","ENTWURF",ForWriting
DBWOutput "TEXT2","Keine Schreibschutzregeln",ForAppending
If KAUFTEIL = "EIGENFERTIGUNG" Then
DBWOutput "TEXT3","Eigenfertigungsteil",ForAppending
End IF
DBWOutput "@TEXT_COLOR",color_yellow,ForAppending
DBWOutput "@BACK_COLOR",color_green,ForAppending
DBWOutput "@BOLD",1,ForAppending
Else
DBWOutput "TEXT1",actualLabelRow1,ForWriting
DBWOutput "TEXT2",actualLabelRow2,ForAppending
DBWOutput "TEXT3",actualLabelRow3,ForAppending
If KAUFTEIL = "EIGENFERTIGUNG" Then
DBWOutput "TEXT4","Eigenfertigungsteil",ForAppending
End IF
DBWOutput "@TEXT_COLOR",currentTextColor,ForAppending
DBWOutput "@BACK_COLOR",currentBackColor,ForAppending
DBWOutput "@BOLD",1,ForAppending
'Immer Standardwerte setzen sonst bleibt der Wert Zustand leer...
end if
end sub
------------------
Complaining about the way wheels never worked properly however often you laid them flat and pushed them.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP