Jeg skal bruge det til det samme som på f.eks CustTable formen, hvor den skjuler Ordre og/eller Projekt fanen hvis man ikke har licens koder til disse moduler.
Jeg har styr på hvordan man skjuler enkelte felter.
Følgende setup:
Jeg har en form med 5 faneblade: Stamdata, Ordrer, Ordre arkiv,Pojekt, og Projekt arkiv.
På side 1 er CustTable
På side 2 SalesTable+SalesLine
På side 3 SalesTableArch+SalesLineArvch
På side 4 ProjTable+ProjLine
På side 5 ProjTableArch+ProjLineArch
Hvis man IKKE har koder til Ordre modulet, skal side 2+3 ikke vises.
Hvis man IKKE har koder til Projekt modulet, skal side 4+5 ikke vises.
Man må da for pokker kunne skjule hele baduljen mere elegant
Jeg synes bare det er voldsomt at skulle lave noget a'la :
//Kode start
#MacroLoad(DATABASE_INFORMATION)
INT &F
IF NOT #CheckCode(#CodeSales) THEN
#Loop(&F,1,#Db_File(FileStr(SalesTableArch),NFIELDS))
SET HideFormField('dwk','SalesTableArch',FieldId2Name(FileNum(SalesTableArch),&F))
END
#Loop(&F,1,#Db_File(FileStr(SalesLineArch),NFIELDS))
SET HideFormField('dwk','SalesLineArch',FieldId2Name(FileNum(SalesLineArch),&F))
END
#Loop(&F,1,#Db_File(FileStr(SalesTable),NFIELDS))
SET HideFormField('dwk','SalesTable',FieldId2Name(FileNum(SalesTable),&F))
END
#Loop(&F,1,#Db_File(FileStr(SalesLine),NFIELDS))
SET HideFormField('dwk','SalesLine',FieldId2Name(FileNum(SalesLine),&F))
END
ENDIF
//Kode slut
Bare for Ordre, så noget tilsvarende for Projekt, og så har man alligevel brug for at håndtere eventuelle virtuelle felter ved siden af....
Der er ikke noget kode i C5 (som jeg har kunnet finde) som gør noget der bare LIGNER det, hvor der er HideFormField kommandoer blandet ind i det.
