Форум

   Public bCPer     := {;
                          |d, o|;
                          d := If(LastKey() == 43, 1, -1),;
                          o := GetActive(),;
                          If(!Empty(o:VarGet()),,;
                           (;
                              o:VarPut(M->S_PERIOD),;
                              o:UpdateBuffer();
                           )),;
                          o:VarPut(NewPeriod(o:Buffer, d)),;
                          o:UpdateBuffer();
                       }

   Public B_Period  := {;
                          |oGet|;
                          SetKey(43, M->bCPer),;
                          SetKey(45, M->bCPer),;
                          BHelpPush(),;
                          ScrTitul(24, "+/-:Период +:Ввод"),;
                          GetReader(oGet),;
                          SetKey(43, NIL),;
                          SetKey(45, NIL),;
                          BHelpPop();
                       }