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

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

HandleEvent
    cmInit:
    {
    inherited::handleEvent(cmInit);
       cfsSetCurrentContainer('L_SF::PRNSCHFVARIATMCUSL');
       cfsCreateObject('button', 'SCRPRNVARIATMCUSL', 'ChangeStateSF', FALSE, ButMyComSF);
       cfsSetProp ( ButMyComSF, cfpOrigin_X,300);
       cfsSetProp ( ButMyComSF, cfpOrigin_Y, 70 );
       cfsSetProp ( ButMyComSF, cfpSize_X, 95 );
       cfsSetProp ( ButMyComSF, cfpSize_Y, 24 );
       cfsSetProp ( ButMyComSF, cfpCommand, cmChangeStateSF);
       cfsSetProp ( ButMyComSF, cfpTitle, 'Выбрать вариант' );
       cfsSetProp ( ButMyComSF, cfpVisible,TRUE);

    }

    cmChangeStateSF:
    { 
      .....
     }
    end;
    end.

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

 Window PRNSCHFVARIATMCUSL '' EscClose;
    HandleEvent
    cmChangeStateSF:
    {  тут делаем....
     }
     end; //
     end; // 


    HandleEvent
    cmInit:
    {
    inherited::handleEvent(cmInit);
       cfsSetCurrentContainer('L_SF::PRNSCHFVARIATMCUSL');
       cfsCreateObject('button', 'SCRPRNVARIATMCUSL', 'ChangeStateSF', FALSE, ButMyComSF);
       cfsSetProp ( ButMyComSF, cfpOrigin_X,300);
       cfsSetProp ( ButMyComSF, cfpOrigin_Y, 70 );
       cfsSetProp ( ButMyComSF, cfpSize_X, 95 );
       cfsSetProp ( ButMyComSF, cfpSize_Y, 24 );
       cfsSetProp ( ButMyComSF, cfpCommand, cmChangeStateSF);
       cfsSetProp ( ButMyComSF, cfpTitle, 'Выбрать вариант' );
       cfsSetProp ( ButMyComSF, cfpVisible,TRUE);

    }

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

#component "l_sf"

const
 cmpdopmy =9881;
end;


alter interface PrnSchFVariatMcUsl;
  create view
  var
  st,aself,aSelf1,cur_cont : longint ;
  cur_o,cont_i,aObjType : string ;
  ;


HandleEvent
    CmInit   :{
               if ( inherited :: handleEvent (cminit)=heOk)
                {

                  st:=cfsGetObjInfo(
                                    'SCRPRNVARIATMCUSL'   ,
                                    cur_o        ,
                                    aself        ,
                                    cont_i       ,
                                    aObjType
                                   );
                    if st=0
                    {

                       st:=cfsCreateObject ('Button',
                                              aself ,
                                             'MyPedal',
                                             false,
                                             aSelf1 );
                       if st=0
                       {
!                          Message('ееееее...удалось создать кнопарь :)');
                          cfsSetProp(aself1, 'Origin_X', 300);
                          cfsSetProp(aself1, 'Origin_Y', 70);
                          cfsSetProp(aself1, 'Size_X', 95);
                          cfsSetProp(aself1, 'Size_y', 24);
                          cfsSetProp(aself1, 'Title', 'qwerty');
                          cfsSetProp(aself1, 'Command', cmpdopmy);
                      }
                    }
                }

               }
    cmpdopmy: {
               Message('run cmpdopmy');
              }
 end;
end.

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

HandleEvent
    cmInit:
    {
    inherited::handleEvent(cmInit);
       cfsSetCurrentContainer('L_SF::PRNSCHFVARIATMCUSL');
       cfsCreateObject('button', 'SCRPRNVARIATMCUSL', 'ChangeStateSF', FALSE, ButMyComSF);
       cfsSetProp ( ButMyComSF, cfpOrigin_X,300);
       cfsSetProp ( ButMyComSF, cfpOrigin_Y, 70 );
       cfsSetProp ( ButMyComSF, cfpSize_X, 95 );
       cfsSetProp ( ButMyComSF, cfpSize_Y, 24 );
       cfsSetProp ( ButMyComSF, cfpCommand, cmChangeStateSF);
       cfsSetProp ( ButMyComSF, cfpTitle, 'Выбрать вариант' );
       cfsSetProp ( ButMyComSF, cfpVisible,TRUE);

    }

    cmChangeStateSF:
    {
      .....
     }
    end;
    end.

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

   #component 'L_SF'
    #include cfg_all.inc
    const 
	cmChangeStateSF = 990190; 
    End;

    Alter interface PRNSCHFVARIATMCUSL;
    overload   end;

    var ButMyComSF	:	longint	;
    var VarNameSF	: 	string	;
    var rf, nn		:	integer ;  
    var NrecAttrSF	:	Comp	;
    var NameStateSF     :	String	;
    var nrecspschf      :       Comp	;

    Create view Maint as select * FROM attrval;
   

    Create view tspschf as  select tmpvarspschf.crec, 
    catalpsd.prim, catalpsd.name
    FROM 
    tmpvarspschf, catalpsd
    WHERE((root==tmpvarspschf.crec 
           and tmpvarspschf.crec==spschf.nrec
           and spschf.CMCUSL==katmc.nrec
           and katmc.nrec==catalpsd.crec
           and VarNameSF==catalpsd.name ));

    Create view nattrnam as select Attrnam.nrec 
    From
    Attrnam
    WHERE((Word(3502)==Attrnam.wtable
           and 'ВАРИАНТ НАИМЕНОВАНИЯ'==attrnam.name));


    HandleEvent


    cmInit:
    {
    inherited::handleEvent(cmInit);

       cfsSetCurrentContainer('L_SF::PRNSCHFVARIATMCUSL');
       nn:=SetFormatEnabled('L_SF::PRNSCHFVARIATMCUSL',true);
       cfsCreateObject('button', 'SCRPRNVARIATMCUSL', 'ChangeStateSF', FALSE, ButMyComSF);
       cfsSetProp ( ButMyComSF, cfpOrigin_X,300);
       cfsSetProp ( ButMyComSF, cfpOrigin_Y, 70 );
       cfsSetProp ( ButMyComSF, cfpSize_X, 95 );
       cfsSetProp ( ButMyComSF, cfpSize_Y, 24 );
       cfsSetProp ( ButMyComSF, cfpCommand, cmChangeStateSF);
       cfsSetProp ( ButMyComSF, cfpTitle, 'Выбрать вариант' );
       cfsSetProp ( ButMyComSF, cfpVisible,TRUE);

    }

    cmChangeStateSF:
    {
      rf:=Nattrnam.GetFirst;
      NrecAttrSF:=Nattrnam.Attrnam.nRec;
      VarNameSF:='';
      
      RunInterface('L_PRNSOPR::ChangeStates',VarNameSF);
      if VarNameSF<>''
       {
      	rf:=tspschf.getfirst;
      
      	while (rf=0)
      	{
        	NameStateSF:=tspschf.catalpsd.prim;
        	NrecSpschf:=tspschf.tmpvarspschf.crec;
        	insert attrval set attrval.wtable:=3502, 
               		attrval.cattrnam:=NrecAttrSF, attrval.vstring:=NameStateSF, attrval.crec:=nrecspschf;
        	rf:=tspschf.getnext;
      	}
       }	
      RescanPanel(#tmpvarspschf); 
     }

    end;
    end.

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

#Component "L_SKLAD"

alter interface PERESORT;

create view;

Window  EDITDOC;

  HandleEvent
   cmAlt5:
    {
Message ('Выполняется обработчик');

var nrecPl,nrec_Doc : comp;
var NAZ, M_S, NOM_DD :string;
var koef, sum_katsopr : double;
nrec_Doc := katsopr.nrec;

   koef :=   0.51221876;
sum_katsopr := 0;

_loop PATDEFS  where (KEY = '&Const_GP')
   {
   koef := Double(PATDEFS.FORMULA);
   }
If KATSOPR.Vidsopr = Word(600)   //#1
{
_loop SPSOPR  where ((nrec_Doc == SPSOPR.CSOPR))
   {
   spsopr.rprice := Round(spsopr.rprice*koef,0);
   spsopr.price := Round(spsopr.price*koef,0);
   sum_katsopr :=    sum_katsopr + Round(spsopr.rprice*spsopr.kolfact);
   Update current spsopr;
   ReReadRecord (#spsopr);
        }
  katsopr.Summa := sum_katsopr;
  Update current Katsopr;
  ReReadRecord (#katsopr);
}
Message ('Цены пересчитаны с коэф. = ' + DoubleToStr(koef,'66.999999'));
    }
      cmMAKEORDER:
   {
   if katsopr.cpodrto<>katsopr.cpodrfrom
   {
      var stmt     : LongInt;
      var stmt_str : LongInt;
      var messageErr : longint;
      var nresult : word;
      var nresult2 : word;
      var nresult3 : word;
      var KatsoprNrec : comp;
      var tempRes : longint;
      KatsoprNrec := comp(katsopr.nrec);

      stmt := sqlAllocStmt;
      sqlBindCol(stmt, 1, nresult);

      sqlBindParam( stmt, 1, KatsoprNrec );
      sqlPrepare(stmt, stmt_str);
      sqlFreeStr(stmt_str);
      messageErr := sqlExecute(stmt);
      if(messageErr  = 0)
      {
         tempRes := 0;
         while( sqlFetch( stmt ) = tsOk )
         do
         {
            if(nresult = 1)
            {
               message('Будет создана новая партия');
               tempRes := 1;
            }
            else if nresult = 2
            {
               message('Присвоится существующая партия');
                tempRes := 2;
            }
            else if nresult = 3
            {
               message('Партия уже выбрана');
                tempRes := 3;
            }
            else if nresult = 4
            {
               message('МЦ не относится ни к одной из групп в таблице Nadolskiian.Group_mc');
                tempRes := 4;
            }
            else if nresult = 5
            {
               message('Функция S$F_GET_PARTY_SECOND неправильно отработала');
                tempRes := 5;
            }
         }
         if(tempRes = 0) message('Оприходование отработало неверно. Звоните в техподдержку по телефону 91');
      }
      else message('Опять этот Еррор(');

      ReReadRecord(#sporder);
      ReReadRecord(#spsopr);
      ReReadRecord(#katsopr);
   }
   inherited::handleEvent(cmMAKEORDER);

   }
  end;
  end;
end.

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

...
Window EDITDOC ;  
HandleEvent
cmMAKEORDER: 
{  UpDateTable;
 inherited :: handleEvent (cmMAKEORDER); 

}
end;
end;

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

#Component "L_SKLAD"

alter interface PERESORT;

Window  EDITDOC;

  HandleEvent
	cmMAKEORDER:
	{
	if katsopr.cpodrto<>katsopr.cpodrfrom
	{
		var stmt     : LongInt;
		var stmt_str : LongInt;
		var messageErr : longint;
		var nresult : word;
		var nresult2 : word;
		var nresult3 : word;
		var KatsoprNrec : comp;
		var tempRes : longint;
		KatsoprNrec := comp(katsopr.nrec);

		stmt := sqlAllocStmt;
		sqlBindCol(stmt, 1, nresult);
		sqlAddStr(stmt_str, 'select top 1 F_GET_PARTY_SECOND (?) from katsopr');
		sqlBindParam( stmt, 1, KatsoprNrec );
		sqlPrepare(stmt, stmt_str);
		sqlFreeStr(stmt_str);
		messageErr := sqlExecute(stmt);
		if(messageErr  = 0)
		{
			tempRes := 0;
			while( sqlFetch( stmt ) = tsOk )
			do
			{
				if(nresult = 1)
				{
					message('üπñÑΓ ß«ºñá¡á ¡«óá∩ »áαΓ¿∩');
					tempRes := 1;
				}
				else if nresult = 2
				{
					message('Åα¿ßó«¿Γß∩ ßπΘÑßΓóπεΘá∩ »áαΓ¿∩');
				    tempRes := 2;
				}
				else if nresult = 3
				{
					message('ÅáαΓ¿∩ πªÑ óδíαá¡á');
				 	tempRes := 3;
				}
				else if nresult = 4
				{
					message('îû ¡Ñ «Γ¡«ß¿Γß∩ ¡¿ ¬ «ñ¡«⌐ ¿º úαπ»» ó Γáí½¿µÑ Nadolskiian.Group_mc');
				 	tempRes := 4;
				}
				else if nresult = 5
				{
					message('öπ¡¬µ¿∩ S$F_GET_PARTY_SECOND ¡Ñ»αáó¿½∞¡« «Γαáí«Γá½á');
				 	tempRes := 5;
				}
			}
			if(tempRes = 0) message('Ä»α¿σ«ñ«óá¡¿Ñ «Γαáí«ΓὫ ¡ÑóÑα¡«. çó«¡¿ΓÑ ó ΓÑσ»«ññÑ᪬𠻫 ΓѽÑΣ«¡π 91');
		}
		else message('Ä»∩Γ∞ φëà àαα«α(');
		ReReadRecord(#sporder);
		ReReadRecord(#spsopr);
		ReReadRecord(#katsopr);
	}
	inherited::handleEvent(cmMAKEORDER);
	}
  end;
  end;

end.