Hi,
I’ve a problem with a @command button that work with notes 6.5 and don’t with 8.5.
Here’s the code :
FIELD Subject:=Subject;
FIELD StartTime:=StartTime;
FIELD EndTime:=EndTime;
FIELD SaveOptions := SaveOption;
Lib_affiche := @If(EntierDemi = “1”; @Text(TypeDemande) + " Journée";EntierDemi = “2”;@Text(TypeDemande) + " matin";@Text(TypeDemande) + " Après midi");
travdate:=DebutConge;
delta := @Integer(((FinConge - DebutConge)/86400)+1);
@If(EntierDemi = “1” ;
@For( n:=1 ; n<=delta; n:=n+1;
@Command([OpenCalendar];@UserName);
@Command([CalendarGoTo];travdate);
travdate:=@Adjust(travdate;0;0;1;0;0;0);
@Command([Compose];“Appointment”);
@UpdateFormulaContext;
FIELD AppointmentType :=“0”;
FIELD Subject:= Lib_affiche;
FIELD StartTime:=[08:00:00];
FIELD EndTime:=[18:00:00];
FIELD SaveOptions := 1;
@Command([FileCloseWindow]));
EntierDemi = “2” ;
@Do(@Command([OpenCalendar];@UserName);
@Command([CalendarGoTo];DebutConge);
@Command([Compose];“Appointment”);
@UpdateFormulaContext;
FIELD AppointmentType :=“0”;
FIELD Subject:= Lib_affiche;
FIELD StartTime:=[08:00:00];
FIELD EndTime:=[12:00:00];
FIELD SaveOptions := 1;
@Command([FileCloseWindow]));
@Do(@Command([OpenCalendar];@UserName);
@Command([CalendarGoTo];DebutConge);
@Command([Compose];“Appointment”);
@UpdateFormulaContext;
FIELD AppointmentType :=“0”;
FIELD Subject:= Lib_affiche;
FIELD StartTime:=[12:00:00];
FIELD EndTime:=[18:00:00];
FIELD SaveOptions := 1;
@Command([FileCloseWindow])));
@Command([FileCloseWindow])
Thanks