Форум

unction uActSver
Local scr, aSetKey,aSet
Private Sch:='621       ',Shifr:='051379'//'000001'
Private DD1:=CTOD("01.01."+Left(DTOS(Date()),4)),DD2:=Date()
Private aHeads, aRow:=7, aCol :=7

aSet:=SaveSet()

aHeads :={{"Счет:             ","Sch"},;
          {"Шифр анал.учета : ","Shifr"},;
          {"Дата начала.:     ","DD1"},;
          {"Дата конца:       ","DD2"}}

 Netuse("Main1",LoadPath() + "Main.dbf")
Main1->(Qinput(aRow,aCol,aRow+5,aCol+50,aHeads,1,,,,,,,,,'RESTOFF'))
altd()
SayAndWait(Sch +Shifr)
   Main1->(DBCloseArea())

RestSet(aSet)

Return nil

aValid1:={{||IIF(aLastIn[1] <> aIn[1],aIn[2]:='      ',),IIF(aLastIn[1] <> aIn[1],DT_str:=Space(20),),SayScreen(DT_str,aRow + 2,aCol+ 30,'B/BG'),aLastIn[1] := aIn[1],.t.},,,{||SayAndWait('Test4'),.t.}}

      IF (!lRefer .AND. VALTYPE(aHeads[1,1])!='A'.AND.nScrInit!=4).OR.nScrInit=2
         IF (LEN(cIndexKey) > 0)
            IF (nApp>=2.OR.xIndexKey != &(cIndexKey))
               QIni(nScroll,2)  //nMode=2 - Обновить все строки
            ELSEIF (LASTKEY()!=K_PGDN .AND. LASTKEY()!=K_PGUP)
               QIni(nScroll,IF(lbSayHead,2,3)) // nMode=3 - Обновить одну строку
            ENDIF
         ELSEIF (LASTKEY()!=K_PGDN .AND. LASTKEY()!=K_PGUP)
            QIni(nScroll,IF(lbSayHead,2,3))
         ENDIF
      ELSEIF (lRefer)
         lMore:=.F.
      ENDIF

IF (!lRefer .AND. VALTYPE(aHeads[1,1])!='A'.AND.nScrInit!=4).OR.nScrInit=2

   Public B_PopFile  := {; 
                          |oGet|; 
                          SetKey(K_F2, {|| aIn[3] := PopFile(,cPath,cMask, cTitle,cFormats)}),; 
;//                          BHelpPush(),; //Что делает эта функция?
                          ScrTitul(24, "F2:Диалог выбора файла"),; 
                          GetReader(oGet),; 
                          SetKey(K_F1, NIL); 
;//                          BHelpPop(); //Что делает эта функция?
                       }
  aRef := {"s_Partner",,B_PopFile}