IF EVALUATE( THISFORM.obizobj.cAlias + ".IRECORDCERTIFIED" )> 0 THIS.FONTBOLD = .T. ELSE THIS.FONTBOLD = .F. ENDIFcan be replaced by one line
This.fontbold=EVALUATE( THISFORM.obizobj.cAlias + ".IRECORDCERTIFIED" )> 0In your original code
mygrid.dynamicFontBold = [IIF(v_AgendaPhar.IRECORDCERTIFIED > 0 , .T. , .F. )]can be replaced by
mygrid.dynamicFontBold = [v_AgendaPhar.IRECORDCERTIFIED > 0]>Hi tore?
>IF TYPE( Thisform.obizobj.cAlias + ".IRECORDCERTIFIED") = "N" > *-- Si médicament cerTifié. > IF EVALUATE( THISFORM.obizobj.cAlias + ".IRECORDCERTIFIED" )> 0 > THIS.FONTBOLD = .T. > ELSE > THIS.FONTBOLD = .F. > ENDIF > > THIS.BACKCOLOR = ICASE( EVALUATE( THISFORM.obizobj.cAlias + ".lgest=.F." ),RGB( 251,155,184 ),; > EVALUATE( THISFORM.obizobj.cAlias + ".sinecessaire"),RGB(191,191,255),16777215) > >ENDIF >>
mygrid.dynamicFontBold = [v_AgendaPhar.IRECORDCERTIFIED > 0]>>