Private dScrInit,dHeads, dRow:=14, dCol:=17, dWhen, dValid
     If Empty(mDoc->uDate_Ot).Or. mDoc->uDate_Ot=mDoc->Date 
    dWhen:={{||Iif(Empty(aLastIn[1]),aIn[1]:=mDoc->Date,),.T.}}
    dValid:={{||aIn[1]<=mDoc->Date}}
dScrInit:={||DispBox(dRow,dCol,dRow+2,dCol+30,Chr(201)+Chr(205)+Chr(187)+Chr(186)+Chr(188)+Chr(205)+Chr(200)+Chr(186)+'
 ',"N/W") ,;
      SayScreen('[Введите дату отгрузки]',dRow,dCol+ 3,'B/W'),;
      SayScreen("Дата отгрузки:",dRow + 1,dCol+ 2,'N/W'),;
      1}
    dHeads :={ { {dRow+1,dCol+ 18},'uDate_ot'}   }
    mDoc->(Qinput(dRow,dCol,dRow+3,dCol+30,dHeads,1,,,dWhen,dValid,,dScrInit   ,,,'RESTOFF'))
   EndIf
 Return .T.

  TRY
   oApp := CreateObject( "Excel.Application" ) //попытка создать объект Excel
   CATCH
   Alert("Excel не доступен!")
   Return
   END

 aBlockCols:={;
      {{||Field->Type},0},;
      {{||Field->Name},1},;
      {{||Str(Field->Plan,10,0)},27},;
      {{||Str(Field->Fact,10,0)},38},;
      {{||Str(Budjet1->Fact,10,0)},49},;
      {{||Str(Field->Fact-Field->Plan,10,0)},60},;
      {{||Iif(Field->Plan<>0,Str((Field->Fact-Field->Plan)/Field->Plan*100,7,2),'-------')},71};
      }

      {{||Str(Field->Fact,10,0)},38},;
      {{||Str(Budjet1->Fact,10,0)},49},;

Function Utest()
Altd()
SayAndWait('Запись невозможна')
Return .F.