Галактика в вопросах и ответах

Код: Выделить всё

#define ComponentVersion
#component "L_BASEDOC"
#include interface_filter.vih
interface interface_filterTest '„® ­  Їа®¤ ¦г дЁ«мва';
create view NaProdTest
	var 
	dat1:date
	dat2:date
	date1:date; 
      date2:date;

	as select 
		
		BASEDOC.nodoc,//ь ¤®Ј®ў®а 
		BASEDOC.ddoc,//¤ в 
		BASEDOC.descr,//¤ҐбЄаЁЇв®а
		KATORG.name //Ё¬п ®аЈ ­Ё§ жЁЁ

	from BASEDOC,
	KATORG

	where (( BASEDOC.corg == KATORG.nrec
         and 
	 integer(201) == BASEDOC.viddoc 
	 and
	 dat1 <<= BASEDOC.ddoc
	 and
	 dat2 >>= BASEDOC.ddoc
	))
	;
   
screen NaProdscreenTest;
	fields 
	date1:, noprotect;
	date2:, noprotect;
   	buttons CmOk;
      
   <<
     ‘ .@@@@@@@@@@ Ї® .@@@@@@@@@@
     <.OK.>
   >>
   end;
datastream NaProdstreamTest
  (
	[User] UserName;
    
 table BASEDOC 
    (
       [Ndoc] BASEDOC.nodoc;
       [date] BASEDOC.ddoc; 
       [descr] BASEDOC.descr;
       [nameorg] KATORG.name;
         
    );
  )

  

  handleevent table BASEDOC
    cmPreProcess:
      {  
        StartNewVisual(vtRotateVisual, vfTimer + vfBreak + vfConfirm, '”®а¬ЁагҐвбп ®взҐв', 0);
      }
 
    cmOnProcess:
      if (not NextVisual)
        BreakProcess;

    cmPostProcess:
    { 
      StopVisual('', 0);
    }
  end;
 end;
handleevent
   cmOk:
   {  
      dat1:= date1;
      dat2:= date2;
      RunFReport(NaProdstreamTest,'', false);
   }
  end;
End.