| |
| |
Re: Form kommt nicht hoch- #20738 in section [742442] |
| Sec: |
(28) VFX deutsch |
| Von: |
Reinhard Jacke |
| An: |
Uwe Habermann |
| Am/Um: |
12.12.2019 09:34:22 |
--from Newsreader at Donnerstag, 12. Dezember 2019; 09:34:22--
Hallo Uwe,
vielen Dank f=C3=BCr die schnelle Antwort. Dieser Code von Woody und ist immer super gelaufen.
Im INIT des grdGrids:
FOR i = 1 TO this.Columncount
This.columns(i).DynamicBackColor="thisform.getdplbcol(RECNO('Dplan'),"+TRANSFORM(i)+")"
This.columns(i).DynamicForeColor="thisform.getdplfcol(RECNO('Dplan'),"+TRANSFORM(i)+")"
ENDFOR
Die Funktion â=80=9Cgetdplbcolâ=80=9D in der Form:
LPARAMETERS nRecno, nColumn
local nFarbe, cbx
SELECT dplan
GO nRecno
IF BETWEEN(nColumn,4,34)
cbx = "dplan.cb"+TRANSFORM(nColumn-3)
nFarbe = INT(&cbx)
nFarbe = IIF(nFarbe < 1, 14215660, nFarbe)
ELSE
nFarbe = 16777215
ENDIF
RETURN nFarbe
Die Funktion â=80=9Cgetdplfcolâ=80=9D in der Form:
LPARAMETERS nRecno, nColumn
local nFarbe, cfx
SELECT dplan
GO nRecno
IF BETWEEN(nColumn,4,34)
cfx = "dplan.cf"+TRANSFORM(nColumn-3)
nFarbe = INT(&cfx)
nFarbe = IIF(nFarbe < 1, 0, nFarbe)
ELSE
nFarbe = 0
ENDIF
RETURN nFarbe
Diesen Code hat Woody geschrieben und er ist immer prima gelaufen.
Auf dem STRATO-Server kam die Meldung hoch, â=80=9C..falscher Wert ....â=80=9D o.=C3=A4.
Nach dem Auskommentieren der Zeilen im INIT der grdGrids, jetzt cChildgrids, kam die Form hoch und war bedienbar, nur nat=C3=BCrlich nicht mehr farbig.
Ich hoffe, Du hast eine gute Idee, sonst hat sich der Auftrag erledigt.
Vielen Dank und mit den besten Gr=C3=BC=C3=9Fen aus dem Weserbergland
Reinhard Jacke
VFP 9.0 SP2 ...7423 + VFX 17.00.1311
|
|
|
|
