Alter interface

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Dmitry_Sol
Постоянный гость
Сообщения: 76
Зарегистрирован: 07 июн 2007, 12:32
Откуда: Витебск
Контактная информация:
Контактная информация пользователя Dmitry_Sol

Re: Alter interface

Сообщение Dmitry_Sol »

Скорее всего у вас в vip.cfg не подключены нужные ресурсы
у меня собирается ваш файл без проблем

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

[System]
  OpenResources=debug.res
  OpenResources=%ApiExePath%\Alter_Zar.res
  OpenResources=%ApiExePath%\atlHelp.res
  OpenResources=%ApiExePath%\compdata.res
  OpenResources=%ApiExePath%\C_CheckKBU.res
  OpenResources=%ApiExePath%\C_CheckOper.res
  OpenResources=%ApiExePath%\C_Common.res
  OpenResources=%ApiExePath%\C_Corpo.res
  OpenResources=%ApiExePath%\C_ExpImp.res
  OpenResources=%ApiExePath%\C_ExtClass.res
  OpenResources=%ApiExePath%\C_Join.res
  OpenResources=%ApiExePath%\C_Mailer.res
  OpenResources=%ApiExePath%\C_OLAP.res
  OpenResources=%ApiExePath%\C_Palette.res
  OpenResources=%ApiExePath%\C_Partner.res
  OpenResources=%ApiExePath%\C_StatLine.res
  OpenResources=%ApiExePath%\C_Tree.res
  OpenResources=%ApiExePath%\C_TreeTune.res
  OpenResources=%ApiExePath%\C_Tune.res
  OpenResources=%ApiExePath%\C_UserManual.res
  OpenResources=%ApiExePath%\C_WebServices.res
  OpenResources=%ApiExePath%\ExtFun.res
  OpenResources=%ApiExePath%\ExtFun_WT.res
  OpenResources=%ApiExePath%\F_Alg.res
  OpenResources=%ApiExePath%\F_An.res
  OpenResources=%ApiExePath%\F_APlan.res
  OpenResources=%ApiExePath%\F_Avizo.res
  OpenResources=%ApiExePath%\F_BackLog.res
  OpenResources=%ApiExePath%\F_BankDocF.res
  OpenResources=%ApiExePath%\F_BuhRep.res
  OpenResources=%ApiExePath%\F_BuhSchet.res
  OpenResources=%ApiExePath%\F_CashBank.res
  OpenResources=%ApiExePath%\F_CloSch.res
  OpenResources=%ApiExePath%\F_Common.res
  OpenResources=%ApiExePath%\F_Consol.res
  OpenResources=%ApiExePath%\F_DiffRate.res
  OpenResources=%ApiExePath%\F_DistPl.res
  OpenResources=%ApiExePath%\F_DocOb.res
  OpenResources=%ApiExePath%\F_DragM.res
  OpenResources=%ApiExePath%\F_ExtAn.res
  OpenResources=%ApiExePath%\F_FA.res
  OpenResources=%ApiExePath%\F_Filial.res
  OpenResources=%ApiExePath%\F_FpAbstr.res
  OpenResources=%ApiExePath%\F_FpAddFld.res
  OpenResources=%ApiExePath%\F_FpBudget.res
  OpenResources=%ApiExePath%\F_FpCatalog.res
  OpenResources=%ApiExePath%\F_FpHashAn.res
  OpenResources=%ApiExePath%\F_FpKatH.res
  OpenResources=%ApiExePath%\F_FpOborot.res
  OpenResources=%ApiExePath%\F_GetAn.res
  OpenResources=%ApiExePath%\F_Iski.res
  OpenResources=%ApiExePath%\F_KatDoc.res
  OpenResources=%ApiExePath%\F_KatKod.res
  OpenResources=%ApiExePath%\F_MBP.res
  OpenResources=%ApiExePath%\F_MBPPub.res
  OpenResources=%ApiExePath%\F_NalogReg.res
  OpenResources=%ApiExePath%\F_Oborot.res
  OpenResources=%ApiExePath%\F_OFP.res
  OpenResources=%ApiExePath%\F_OS.res
  OpenResources=%ApiExePath%\F_OSInvCard.res
  OpenResources=%ApiExePath%\F_OSOper.res
  OpenResources=%ApiExePath%\F_OsRep.res
  OpenResources=%ApiExePath%\F_Pat.res
  OpenResources=%ApiExePath%\F_PlansSch.res
  OpenResources=%ApiExePath%\F_PlPor.res
  OpenResources=%ApiExePath%\F_PlPorRep.res
  OpenResources=%ApiExePath%\F_PoDot.res
  OpenResources=%ApiExePath%\F_Post.res
  OpenResources=%ApiExePath%\F_RTXO.res
  OpenResources=%ApiExePath%\F_Saldo.res
  OpenResources=%ApiExePath%\F_SFO.res
  OpenResources=%ApiExePath%\F_Shtraf.res
  OpenResources=%ApiExePath%\F_SoprHoz.res
  OpenResources=%ApiExePath%\F_Taxes.res
  OpenResources=%ApiExePath%\F_Template.res
  OpenResources=%ApiExePath%\F_TreeNew.res
  OpenResources=%ApiExePath%\F_TXO.res
  OpenResources=%ApiExePath%\F_TXOAPI.res
  OpenResources=%ApiExePath%\F_UserReport.res
  OpenResources=%ApiExePath%\F_UTILS.res
  OpenResources=%ApiExePath%\F_ValutDoc.res
  OpenResources=%ApiExePath%\F_Vedom.res
  OpenResources=%ApiExePath%\F_Veks.res
  OpenResources=%ApiExePath%\F_VZachet.res
  OpenResources=%ApiExePath%\F_XlsRep.res
  OpenResources=%ApiExePath%\GalHelp.RES
  OpenResources=%ApiExePath%\GalInfo.res
  OpenResources=%ApiExePath%\L_AdvRep.res
  OpenResources=%ApiExePath%\L_BaseDoc.res
  OpenResources=%ApiExePath%\L_Box.res
  OpenResources=%ApiExePath%\L_CalcUsl.res
  OpenResources=%ApiExePath%\L_Cessia.res
  OpenResources=%ApiExePath%\L_Common.res
  OpenResources=%ApiExePath%\L_Consig.res
  OpenResources=%ApiExePath%\L_CRM.res
  OpenResources=%ApiExePath%\L_Dogovor.res
  OpenResources=%ApiExePath%\L_Dover.res
  OpenResources=%ApiExePath%\L_GrPlat.res
  OpenResources=%ApiExePath%\L_GrSch.res
  OpenResources=%ApiExePath%\L_GrSopr.res
  OpenResources=%ApiExePath%\L_Kassa.res
  OpenResources=%ApiExePath%\L_KatNazna.res
  OpenResources=%ApiExePath%\L_KatOrg.res
  OpenResources=%ApiExePath%\L_KatParty.res
  OpenResources=%ApiExePath%\L_KontrBal.res
  OpenResources=%ApiExePath%\L_MakeDO.res
  OpenResources=%ApiExePath%\L_MakeNakl.res
  OpenResources=%ApiExePath%\L_Market.res
  OpenResources=%ApiExePath%\L_MCU.res
  OpenResources=%ApiExePath%\L_MOL.res
  OpenResources=%ApiExePath%\L_MoveCell.res
  OpenResources=%ApiExePath%\L_NalNakl.res
  OpenResources=%ApiExePath%\L_Nalog.res
  OpenResources=%ApiExePath%\L_NIOKR.res
  OpenResources=%ApiExePath%\L_Ostatki.res
  OpenResources=%ApiExePath%\L_PhoneCard.res
  OpenResources=%ApiExePath%\L_PlanPr.res
  OpenResources=%ApiExePath%\L_Prices.res
  OpenResources=%ApiExePath%\L_PrnSopr.res
  OpenResources=%ApiExePath%\L_Realting.res
  OpenResources=%ApiExePath%\L_Remont.res
  OpenResources=%ApiExePath%\L_RemPotr.res
  OpenResources=%ApiExePath%\L_RepBaseDoc.res
  OpenResources=%ApiExePath%\L_RepOper.res
  OpenResources=%ApiExePath%\L_Reserve.res
  OpenResources=%ApiExePath%\L_RetTara.res
  OpenResources=%ApiExePath%\L_Rozn.res
  OpenResources=%ApiExePath%\L_SaldoMtr.res
  OpenResources=%ApiExePath%\L_SerialN.res
  OpenResources=%ApiExePath%\L_SF.res
  OpenResources=%ApiExePath%\L_Skid.res
  OpenResources=%ApiExePath%\L_Sklad.res
  OpenResources=%ApiExePath%\L_SklRep.res
  OpenResources=%ApiExePath%\L_Smeta.res
  OpenResources=%ApiExePath%\L_SoprDoc.res
  OpenResources=%ApiExePath%\L_SpExch.res
  OpenResources=%ApiExePath%\L_TTNdoc.res
  OpenResources=%ApiExePath%\L_UKS.res
  OpenResources=%ApiExePath%\L_UksPlans.res
  OpenResources=%ApiExePath%\L_Val.res
  OpenResources=%ApiExePath%\L_VPr.res
  OpenResources=%ApiExePath%\L_Wood.res
  OpenResources=%ApiExePath%\M_Control.res
  OpenResources=%ApiExePath%\M_DVS.res
  OpenResources=%ApiExePath%\M_EIXML.res
  OpenResources=%ApiExePath%\M_GetPotr.res
  OpenResources=%ApiExePath%\M_MnPlan.res
  OpenResources=%ApiExePath%\M_Quality.res
  OpenResources=%ApiExePath%\M_Scripts.res
  OpenResources=%ApiExePath%\M_Serv.res
  OpenResources=%ApiExePath%\M_SklPlan.res
  OpenResources=%ApiExePath%\M_TPP.res
  OpenResources=%ApiExePath%\M_Transp.res
  OpenResources=%ApiExePath%\M_UP.res
  OpenResources=%ApiExePath%\Z_Calc.res
  OpenResources=%ApiExePath%\Z_Calendar.res
  OpenResources=%ApiExePath%\Z_Chart.res
  OpenResources=%ApiExePath%\Z_FOT.res
  OpenResources=%ApiExePath%\Z_KATPODR.res
  OpenResources=%ApiExePath%\Z_Lschet.res
  OpenResources=%ApiExePath%\Z_Menu.res
  OpenResources=%ApiExePath%\Z_MGTS.res
  OpenResources=%ApiExePath%\Z_MP.res
  OpenResources=%ApiExePath%\Z_NDFL.res
  OpenResources=%ApiExePath%\Z_PAYREP.res
  OpenResources=%ApiExePath%\Z_PFREP.res
  OpenResources=%ApiExePath%\Z_Rlist.res
  OpenResources=%ApiExePath%\Z_SERVICE.res
  OpenResources=%ApiExePath%\Z_SREDN.res
  OpenResources=%ApiExePath%\Z_Staff.res
  OpenResources=%ApiExePath%\Z_StaffBuilder.res
  OpenResources=%ApiExePath%\Z_StaffCat.res
  OpenResources=%ApiExePath%\Z_StaffDopReports.res
  OpenResources=%ApiExePath%\Z_StaffIerRep.res
  OpenResources=%ApiExePath%\Z_StaffMenu.res
  OpenResources=%ApiExePath%\Z_StaffMoves.res
  OpenResources=%ApiExePath%\Z_StaffNastr.res
  OpenResources=%ApiExePath%\Z_StaffOrders.res
  OpenResources=%ApiExePath%\Z_StaffPensioner.res
  OpenResources=%ApiExePath%\Z_StaffRecruiting.res
  OpenResources=%ApiExePath%\Z_StaffRepeat.res
  OpenResources=%ApiExePath%\Z_StaffReports.res
  OpenResources=%ApiExePath%\Z_StaffSHR.res
  OpenResources=%ApiExePath%\Z_StaffTest.res
  OpenResources=%ApiExePath%\Z_Statis.res
  OpenResources=%ApiExePath%\Z_TarStav.res
  OpenResources=%ApiExePath%\Z_WT.res
  OpenResources=%ApiExePath%\Z_ZAR.res
  OpenResources=%ApiExePath%\Z_ZarNastr.res
Вернуться к началу
Руслан
Местный житель
Сообщения: 294
Зарегистрирован: 01 ноя 2011, 14:03
Контактная информация:
Контактная информация пользователя Руслан

Re: Alter interface

Сообщение Руслан »

Уже все ресы в конфиге указал, хотя L_SKLAD только нужен.. Все та же ошибка.. Может что со словарем данных??? :-(
Вернуться к началу
Dmitry_Sol
Постоянный гость
Сообщения: 76
Зарегистрирован: 07 июн 2007, 12:32
Откуда: Витебск
Контактная информация:
Контактная информация пользователя Dmitry_Sol

Re: Alter interface

Сообщение Dmitry_Sol »

в файле galnet.ccm есть ее описание

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

const
  cmMAKEORDER      = 3047;
end;
Вернуться к началу
Руслан
Местный житель
Сообщения: 294
Зарегистрирован: 01 ноя 2011, 14:03
Контактная информация:
Контактная информация пользователя Руслан

Re: Alter interface

Сообщение Руслан »

А где именно он лежит??? Здесь %\frm_unpack\GalNet\src\Inc\ - здесь есть cmMakeorder.
Здесь %\frm_unpack\galFrm\Inc\ - здесь тоже есть...
Вернуться к началу
spark
Местный житель
Сообщения: 476
Зарегистрирован: 19 окт 2005, 13:38
Контактная информация:
Контактная информация пользователя spark

Re: Alter interface

Сообщение spark »

Руслан писал(а):Не хочет компилить, не находит такого события makeorder... Может какой-то рес надо еще указывать кроме L_SKLAD????

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

#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.
А GALNET.CCM подключен?
Вернуться к началу
spark
Местный житель
Сообщения: 476
Зарегистрирован: 19 окт 2005, 13:38
Контактная информация:
Контактная информация пользователя spark

Re: Alter interface

Сообщение spark »

Так тоже не хочет?

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

#Component "L_SKLAD"
const
  cmMAKEORDER      = 3047;
end;
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.
Вернуться к началу
Руслан
Местный житель
Сообщения: 294
Зарегистрирован: 01 ноя 2011, 14:03
Контактная информация:
Контактная информация пользователя Руслан

Re: Alter interface

Сообщение Руслан »

Spark, спасибо!!! После объявления константы, откомпилилось... Только вопрос, почему он это событие не считывает? Должен с GALNET.CCM брать. А где именно лежит этот файлик???
Вернуться к началу
spark
Местный житель
Сообщения: 476
Зарегистрирован: 19 окт 2005, 13:38
Контактная информация:
Контактная информация пользователя spark

Re: Alter interface

Сообщение spark »

Руслан писал(а):Spark, спасибо!!! После объявления константы, откомпилилось... Только вопрос, почему он это событие не считывает? Должен с GALNET.CCM брать. А где именно лежит этот файлик???
..\FRM\C_StatLine.rar\src\Inc\

Но его нужно приинклюдить.

я так делал:

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

#include GALNET.CCM
#include MONEY.CCM
#include GLOCONST.INC
#include KauConst.inc
#include CFG_ALL.INC
end;
Вернуться к началу
zna
Местный житель
Сообщения: 552
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Челябинск
Контактная информация:
Контактная информация пользователя zna

Re: Alter interface

Сообщение zna »

Доброго понедельника, коллеги.
В начале этой темы обсуждался интерфейс картотеки сотрудников Z_STAFF::RECEPTIONMAIN, поэтому спрошу здесь. Надо обработать событие ввода даты увольнения, я так понимаю, что это cmPick. По Ctrl+F4 имеем

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

Z_STAFF::RECEPTIONMAIN.WINCOMMONDATA.WINDOW01.Z_STAFF::RECWIN01.SCRPERS1.PERSONS.DISDATE
Интерфейс RecWin01встроенный, и получить событие напрямую не получается. Изображение
Крикнул:

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

alter interface ReceptionMain;
handleevent
cmPick: {Inherited::HandleEvent(cmPick);message('main -> cmPick!');}
end;
window RecWin01;              
HandleEvent
cmPick: {Inherited::HandleEvent(cmPick); message('RecWin01 -> cmPick!');}
end;
end;
window WinCommonData;
HandleEvent
cmPick: {Inherited::HandleEvent(cmPick); message('WinCommonData -> cmPick!');}
end;  //HandleEvent
end;
end.       //Interface
.. а в ответ тишина..
Вернуться к началу
m0p3e
Местный житель
Сообщения: 1386
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва

Re: Alter interface

Сообщение m0p3e »

zna писал(а): .. а в ответ тишина..

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

Alter Interface RecWin01;

panel panPersons;
HandleEvent
 cmCheckField :
  {
   If inherited::handleevent(cmCheckField) = heAbort
     {
      Abort;
     }
    else
     { 
      Case CurField Of
        #Persons.DisDate :
          {
            .....
          };
     };
  };
end; //HandleEvent
end; //panel
END.
Вернуться к началу
zna
Местный житель
Сообщения: 552
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Челябинск
Контактная информация:
Контактная информация пользователя zna

Re: Alter interface

Сообщение zna »

Благодарю, получилось :-)
А

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

panel panPersons;
- откуда видно? Только в исходниках?
Вернуться к началу
m0p3e
Местный житель
Сообщения: 1386
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва

Re: Alter interface

Сообщение m0p3e »

zna писал(а):Благодарю, получилось :-)
А

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

panel panPersons;
- откуда видно? Только в исходниках?
Да. В исходниках подсмотрено. :)
Вернуться к началу
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5185
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Alter interface

Сообщение edward_K »

1. Вы всегда можете спросить - getifccurrentfieldname только не забудьте указать
Тут видно что фейс Z_STAFF::RECWIN01, а не recwinmain.
Встроенные фейсы почти не ничего не знают о родителе без допобработки
Ровно и родители о действиях в них
2. Tableevent , события Окна, интерфейса тоже можно пробовать.
Вопрос только в том сработает это до или после стандартной обработки
Панельное наверное будет первым
Вернуться к началу
zna
Местный житель
Сообщения: 552
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Челябинск
Контактная информация:
Контактная информация пользователя zna

Re: Alter interface

Сообщение zna »

edward_K писал(а):1. Вы всегда можете спросить ..
Спасибо, спрашиваю, когда своих идей не остаётся. В данном случае особенность в том, что панель panPersons не видна в окне свойств
Вернуться к началу
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5185
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Alter interface

Сообщение edward_K »

А самое главное не в том интерфейсе.
Лучше точно попадать конечно, но вообще без панелей можно прекрасно обойтись.
Вернуться к началу
Ответить

Вернуться в «Программирование»