Форум

Function Main()
  Local aSetKey
  Local cBNKKod //Переменная в которую хочу получить данные через диалог
  aSetKey:=SaveSetKey()
  DBPUSH() 
  altd()

  NetUse("F_PARTNER", LoadPath() + "PARTNER.dbf")

  F_PARTNER->( QINPUT(10,15,14,70,                  ; 
             {{"Введите значение переменной","BNKKod"},         ; //Здесь пока еще поле :-(
              {"Введите значение поля","BNKKod1"}         ; 
             },                                          ; 
             1,,,      ; 
              ,,,,,,                           ; 
             'RESTOFF') )

  F_PARTNER->(DBCLOSEAREA())

  DbPop() 
  RestSetKey(aSetkey)
Return

Function Main()
  Local aSetKey
  Local dBegin
  aSetKey:=SaveSetKey()
  DBPUSH() 
  altd()

  NetUse("F_plan_sch", LoadPath() + "plan_sch.dbf")
  F_plan_sch->(ORDSETFOCUS("Code"))

  dBegin := CTOD("01/01/07")
  dEnd := CTOD("31/12/07")

  F_plan_sch->(QINPUT(;
                10,15,12,65,; 
                  {{'Период с .....', dBegin},;
                   {'       по.....', dEnd}} ))


  F_plan_sch->(DBCLOSEAREA())

  SayAndWait(DToc(dBegin) + Chr(13) + DToc(dEnd))


  DbPop() 
  RestSetKey(aSetkey)
Return

Function Main()
  Local aSetKey
  Local aNPar, aParNew, _do
  Local dBegin, dEnd
  aSetKey:=SaveSetKey()
  DBPUSH() 
  altd()

  dBegin := CTOD("01/01/07")
  dEnd := CTOD("31/12/07")

   aNPar    := ARRAY(3)
   aNPar[1] := {}
   AADD( aNPar[1], 'Период с.......')
   AADD( aNPar[1], '       по......')
   aNPar[2] := { '', ''}
   aNPar[3] := {dBegin, dEnd}
  _do :=.t.
  While _do
    aParNew  := Dialog( aNPar[1], aNPar[2], aNPar[3] ,'Пробег автотранспорта',,,'gr+/b*,w+/n,,,n/w')

    If LastKey() = 27
       Return
    else
      _do=.F.
    endif

  enddo

  dBegin := aParNew[1]
  dEnd := aParNew[2]

  SayAndWait(DToc(dBegin) + Chr(13) + DToc(dEnd))

  DbPop() 
  RestSetKey(aSetkey)
Return 

Период с ............ 
до ........

Период с ............
до ..................
Синтетический счет...
Аналитический счет...