#translate Data_Valid( <var1>, <var2> ) => ;
           IF( <var1> >= <var2>,.T.,SayError("Дата не может быть меньше чем "+DTOC( <var2> )))

#translate MAKE REFER PLAN GET <var1> SEEK <var2>  =>                             ;
           MakeSchetRefer( 'Plan', <"var1"> )
// *
#translate MAKE REFER 2PLAN GET <var1> SEEK <var2>  =>                             ;
           MakeSchetRefer( 'Plan', <"var1">, 2,,,,,{||IF(FIELD->STATUS=="1",COL_REFER,"N+/W")} )
// Без контроля
#translate MAKE REFER 3PLAN GET <var1> SEEK <var2>  =>                             ;
           MakeSchetRefer( 'Plan', <"var1">, 3,,,,,{||IF(FIELD->STATUS=="1",COL_REFER,"N+/W")} )

#translate MAKE REFER ANALIT GET <var1> SEEK <var2>  =>                              ;
           SAnalit( "RefA", <"var1">, 1)

#translate MAKE REFER 2ANALIT GET <var1> SEEK <var2>  =>                              ;
           SAnalit( "2RefA", <"var1">, 2)

#translate MAKE REFER 2N_ANALIT GET <var1> SEEK <var2>  =>                              ;
      MakeRefer("2NRefA","Аналитические счета",2,{"Счет","ШАУ","Наименование"},       ;
            {3,35,15},COL_REFER,{"NAME" },                                            ;
            {<"var1"> },                                                              ;
            <"var2">,                                                                ;
            {FIELDBLOCK("Schet"),FIELDBLOCK("CODE"),FIELDBLOCK("NAME")},             ;
            {                                                                        ;
   {'- по номеру счета ', 'Номеp счета?',  'CODE', 'UPPER(cNomerSheta+aIn[1])','@K 9999'},;
   {'- по наименованию ', 'Наименование?',                        ;
                          'LEFT(Name,10)',  'UPPER(cNomerSheta+RTRIM(aIn[1]))', '@K'};
             },                                                                      ;
            { {"Счет.........:","SCHET"},                                            ;
              {"ШАУ..........:","CODE"},                                             ;
              {"Наименование.:","NAME"} },                                           ;
            {"XXXX","XXXX","@K"},                                                    ;
            {{|oGet|oGet:VarPut(cNomerSheta),oGet:Display(),.F.}}                    ;
            )

#translate MAKE REFER VALUTA GET <var1> SEEK <var2>  =>                   ;
         MakeValutaRefer( 'RefV', <"var1">, 1 )

#translate MAKE REFER 2VALUTA GET <var1> SEEK <var2>  =>                   ;
         MakeValutaRefer( 'RefV', <"var1">, 2 )

#translate MAKE REFER TIPSCHET GET <var1> SEEK <var2>  =>                  ;
     MakeRefer("RefS","Типы счетов",1,{"Код","Наименование"},              ;
               {4,43,10},COL_REFER,                                        ;
               {"Code"},{<"var1">},<"var2">,                               ;
               {{||Code},{||Name}},                            ;
               {{'- по типу счета ','Тип счета?', "Code",'UPPER(aIn[1])','XXX'}};
              )
#translate MAKE REFER ARM GET <var1> SEEK <var2>  =>                             ;
           MakeRefer("ARM","Участки учета",2,{"Код","Наименование"},              ;
              {3,35,15},COL_REFER,{"CODE"},{ <"var1"> },<"var2">,              ;
              {FIELDBLOCK("CODE"),{|| NAME} },                 ;
              {{'- по коду', 'Номер АРМа?', 'CODE', 'UPPER(aIn[1])', 'XXXX'}})

