| |
| |
Re: Unterstützung DSGVO - #20926 in section [742872] |
| Sec: |
(28) VFX deutsch |
| Von: |
Uwe Habermann |
| An: |
Jürgen |
| Am/Um: |
20.11.2020 04:02:46 gelesen |
--from Newsreader at Freitag, 20. November 2020; 04:02:46--
Hallo Jürgen!
>>leider ist das noch fehlerhaft<<
Leider haben es die Fixes nicht in den neuen Build geschafft. Ich hänge die
Fixes an diese Nachricht.
Vfxform.vcx - cconsentbase.init:
LPARAMETERS toConsent, tcArg
LOCAL lInitOk, lcFilter
lInitOk = DODEFAULT(tcArg)
IF lInitOk
WITH Thisform
.AddProperty('oConsent', toConsent)
.cTableName = GetArg(tcArg, 1)
IF GetArg(tcArg, 3) == "1"
.nTableKeyFieldValue = VAL(GetArg(tcArg, 2))
lcFilter = "SET FILTER TO TRIM(Parenttbl) == '" +
TRIM(thisform.cTableName) + "' AND nParentKey = " +
TRANSFORM(thisform.nTableKeyFieldValue) + " IN crsVfxConsent"
ELSE
.nTableKeyFieldValue = GetArg(tcArg, 2)
lcFilter = "SET FILTER TO TRIM(Parenttbl) == '" +
TRIM(thisform.cTableName) + "' AND cParentKey = [" +
TRANSFORM(thisform.nTableKeyFieldValue) + "] IN crsVfxConsent"
ENDIF
SELECT crsVfxConsent
LOCATE FOR TRIM(Parenttbl) == TRIM(thisform.cTableName)
IF FOUND()
&lcFilter
GO TOP
ENDIF
.pgfPageFrame.page2.grdGrid.Refresh()
.Refresh()
ENDWITH
ENDIF
RETURN lInitOk
Vfxform.vcx - cconsentbase.onpostinsert:
DODEFAULT()
IF VARTYPE(thisform.nTableKeyFieldValue) == "N"
REPLACE Parenttbl WITH thisform.cTableName ;
nParentKey WITH thisform.nTableKeyFieldValue ;
ConRecdt WITH DATE() IN crsVfxConsent
ELSE
REPLACE Parenttbl WITH thisform.cTableName ;
cParentKey WITH TRANSFORM(thisform.nTableKeyFieldValue) ;
ConRecdt WITH DATE() IN crsVfxConsent
ENDIF
Viele Grüße
Uwe Habermann
|
|
|
|
