Параметры интерфейса

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

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

edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Параметры интерфейса

Сообщение edward_K »

Потому что читать нужное каждое слово а не через одно. 5 вы сделали наполовину

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

    Interface viborxls_plan 'Выбор  .xls-файла' Cyan, Doaccept;
    !show at (,,,);
    show at (,,85,10);
    create view view01
    var
    sXlFileName0 : string;
    d1, d2 : date;
    c1 : comp;
    corg : comp;
       as select * from X$USERS, katorg
       where
       ((
       corg == Katorg.Nrec
       ));
    Parameters
      sXlFileName0, d1, d2, corg;
      Screen GetParameters;
      Show at (,,75,7);
      table katorg;
    fields
    sXlFileName0 ('Выбор .xls-файла',,): noprotect, PickButton, {Font = {BackColor = if (sXlFileName0 = '', 16, 0)}};
          d1 : noProtect;
          d2 : noProtect;
         KatOrg.Name : pickButton, Protect; //
           Buttons
           cmOK, Default,,,;
           cmCancel,,,,;


    <<     'Выбор пути и имени .xls-файла'

    `Путь к .xls-файлу:`  .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

          с .@@@@@@@@@@@@ по .@@@@@@@@@@@@

             .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
                <. OK .>    <. Отмена .>

    >>
    end; // screen1

    HandleEvent // Good Luck:))

    cmInit :
    {
       sXlFileName0:= '';
    }

    cmPick :
    {
          case CurField of
            #sXlFileName0 : sXlFileName0:=GetFileName('*.xls', 'Выберите исходный .xls-файл ');
          end;
          case curfield of
    !       #corg : RunInterface('L_KATORG::KATORG', DefaultOrganizationRef );
           #katorg.name :
           {  RunInterface('L_Katorg::GetKator', corg );
              if getfirst katorg=0 {}  
           }
         end;
    ReScanPanel(#Katorg);
    RescanPanel(GetParameters);
    } // cmPick end

    cmOK :
    {
       CloseInterface (cmOk);
    }
    cmCancel:
    {  sXlFileName0 := ''
       CloseInterface (cmCancel);
    }
    end;
    end.

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

Re: Параметры интерфейса

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

Спасибо, edward_k!!!!!!
Руслан
Местный житель
Сообщения: 294
Зарегистрирован: 01 ноя 2011, 14:03
Контактная информация:

Re: Параметры интерфейса

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

В интерфейсе не открываются даты как будто на них протект стоит:

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

!#include %src%\make\vipInterface.h;
interface Normzapas 'Нормы страхового запаса';
 show   at   (,,92,25);
 var
 	nr,mcnrec,katednrec,katpodrnrec,linenrec,formatnrec,katstannrec,ctitle,titlenrec,specnrec: comp;
	pptitlenrec,unitm:comp;
//	titlenrec:comp;
	wkl,grant_s, check_del, checkspecif,check_screen:boolean;
 	 res,check_i : word;
	 nmc:string;
	 pdate, pbdate, pedate : date;
	 statusnnrec:comp;
	 UnMea,plancopy:string;
	 somewindow:longint;
	 n:longint;
	 begindate,enddate:date;
	 sort1,teh_poteri,dek1,dek2,dek3,summ_plan,poludek1,poludek2,poludek3,summ_polu:double;
	 sum_gresbordur,gresbordur1,gresbordur2,gresbordur3:double;
	 sum_vstavka,vstavka1,vstavka2,vstavka3:double;
	 maxi,maxs:word;
	 butpick:longInt;
	 nomer_plana,formatname:string;
	 linia_name,podrasd,titlenpp:string;
	 status_plana,old_status,old_linia :comp;

create view normz
var status,linia_filter,grup_filter,format_filter, nomer_plana: word;
	x:integer;
	fldselect:longint;
	linia,gruppa,etalon,format,titlenrec,specifnrec,specifnrec2,specifnrec3, cmc:comp;
(Vsego,meash)
 as select katpodr.name,normzapas.npp, *
from normzapas, katpodr,katmc, x$users
where((	normzapas.cpodrazd==katpodr.nrec
   		and normzapas.cmc==katmc.nrec
	    and normzapas.atl_owner==x$users.atl_nrec
	    and katpodrnrec == katpodr.nrec
	    and cmc == katmc.nrec));

window NormCorrect 'Редактирование норм';
show at(,,,28);


			screen sCornormzapas(,,SciAqaSwitchItemName);
			show at (,,,10);
			table katpodr;
			//table pptitle;
			bevel be1 {1,0,110,10,bsRaised, bsFrame};
				fields
					normzapas.pdate :pickButton;
					normzapas.pbdate:pickButton;
					normzapas.pedate:pickButton;
					normzapas.npp:noprotect,noPickButton; //:noprotect; //(,,sciAQACancel1)
					katpodr.name :pickButton;

<<

                     Дата         Начало действия         Конец действия       
                    .@@@@@@@@@      .@@@@@@@@@            .@@@@@@@@@
                    Номер            Структурное подразделение
		            .@@@@@@@@@@@@   .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
>>
			end;
			browse bCornormzapas(,,Sci13478Esc )//F1,F4,F7,F8,Esc//(,,sci178EnEsc)
						show at (,11,,22)
							  table katmc;
			 fields
					katmc.name 'Наименование МЦ' : [20], pickButton;
					normzapas.kol 'Количество':[5,'666.88'],noprotect,noPickButton;
			end;
end;

handleEvent
			cmInit:
			{
			 RescanPanel(Scornormzapas);
			   Rescanpanel(#normzapas);
			}
		cmPick:
		{
				  Updatetable();
				  case CurField of
		     		#katpodr.name:
					{
					  katpodrnrec:=normzapas.cpodrazd;
					  res:=RunInterface('Z_KATPODR::GETANYPODR',katpodrnrec);
					  normzapas.cpodrazd:=katpodrnrec
					  update current normzapas;
					if getfirst katpodr where((normzapas.cpodrazd==katpodr.nrec))=tsOk
					  {
					  }
					  RescanPanel(#normzapas);
					}
					#katmc.name:
					{
					cmc := normzapas.cmc;
					res := runinterface('L_MCU::GETSOMEMC', cmc);
					normzapas.cmc := cmc;
					update current normzapas;
					if getfirst katmc where((normzapas.cmc==katmc.nrec))=tsOk
					  {
					  }
					RescanPanel(#normzapas);
					}
				  end;
			}
			cmCheckField : update current normzapas;
		cmCancel:
		{
		}
		cmClose:
		{
		   CloseWindow(cmDefault);
		}
		cmDefault:
		{
			   PutCommand(cmCheckField);
			   runwindowmodal(NormCorrect);
		  Rescanpanel(#normzapas);
		}
		cmInsert:
		{
			   message('cminsert1');
			titlenrec:=normzapas.atl_nrec;
			maxs:=normzapas.npp;
			   if (maxs<normzapas.npp) or (maxs=normzapas.npp)
			   {
			   message('cminsert2');
			   normzapas.npp:=normzapas.npp+1;
				  	update current normzapas;
			   }
			maxs:=maxs+1;
		}
		cmDelete:
		{

		}
		cmDone:
		{
			  rescanpanel(#normzapas);
		}
end;

						  browse bnormzapas(,,Sci178EnEsc)
							  table normzapas;
							  fields
								  normzapas.pdate   'Дата' : [15] , protect, noAutoSize;
 								  normzapas.npp   'Номер' : [25], protect, noAutoSize;
								  katpodr.name   'Подразделение' : [25] , protect, noAutoSize;
							      x$users.xu$fullname 'Создатель':[20],protect,noAutoSize;
						  end;
						   //end;
						  tableevent table normzapas

							 cmSetDefault: {
														normzapas.pdate:=Cur_Date();
														normzapas.cpodrazd:=0;
														normzapas.npp := (normzapas.npp)+1;
														SetModified(true);
														UpDateTableWithInserted
														 PutCommand(cmDefault);
											}
							cmUpdateRecord :{ //if grant_s=false
							  					//{
												  	update current normzapas;
												//}
										 	}
							cmInsertRecord :{
							   					insert current normzapas;
												UpDatePanels();
											}
							cmDeleteRecord :
							{
							  if Message('Удалить нормы?', yesButton + noButton) = cmYes
								{
								    Delete Current normzapas;
								}

							}
							cmCheckRecord:
 							{
									MakeValid(#normzapas);
									if isvalid(#normzapas)
											{
									update current normzapas;
											}
									if isnew
											{
									Putcommand(cmInsertRecord);
											}

							}
							cmCheckField:
							  {
									updatetable;
									SetModified(true);
									  case CurField of
										#normzapas.pbdate:
										{
										  update current normzapas;
										  RescanPanel(#normzapas);
										}
										#normzapas.pedate:
										{
										  update current normzapas;
										  RescanPanel(#normzapas);
										}
										#normzapas.pdate:
										{
										  update current normzapas;
										  RescanPanel(#normzapas);
										}
										#normzapas.npp:
										{
									  	  update current normzapas;
										  RescanPanel(#normzapas);
										}
										end;
							  }
							end;
end.

edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Параметры интерфейса

Сообщение edward_K »

pickButton для дат не надо - лог смотрите. А вот noprotect для всех полей без выбора (текст, дата, число) надо.
Руслан
Местный житель
Сообщения: 294
Зарегистрирован: 01 ноя 2011, 14:03
Контактная информация:

Re: Параметры интерфейса

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

Еще проблема, в табличном редакторе browse bnormzapas отображается только подразделение в последнем выбранном документе, хотя в базе подразделения выбраны для всех документов:

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

!#include %src%\make\vipInterface.h;
interface Normzapas 'Нормы страхового запаса';
 show   at   (,,92,25);
 var
 	nr,mcnrec,katednrec,katpodrnrec,linenrec,formatnrec,katstannrec,ctitle,titlenrec,specnrec: comp;
	pptitlenrec,unitm:comp;
//	titlenrec:comp;
	wkl,grant_s, check_del, checkspecif,check_screen:boolean;
 	 res,check_i : word;
	 nmc:string;
	 pdate, pbdate, pedate : date;
	 statusnnrec:comp;
	 UnMea,plancopy:string;
	 somewindow:longint;
	 n:longint;
	 begindate,enddate:date;
	 sort1,teh_poteri,dek1,dek2,dek3,summ_plan,poludek1,poludek2,poludek3,summ_polu:double;
	 sum_gresbordur,gresbordur1,gresbordur2,gresbordur3:double;
	 sum_vstavka,vstavka1,vstavka2,vstavka3:double;
	 maxi,maxs:word;
	 butpick:longInt;
	 nomer_plana,formatname:string;
	 linia_name,podrasd,titlenpp:string;
	 status_plana,old_status,old_linia :comp;

create view normz
var status,linia_filter,grup_filter,format_filter, nomer_plana: word;
	x:integer;
	fldselect:longint;
	linia,gruppa,etalon,format,titlenrec,specifnrec,specifnrec2,specifnrec3, cmc:comp;
(Vsego,meash)
 as select katpodr.name,normzapas.npp, *
from normzapas, katpodr,katmc, x$users
where((	normzapas.cpodrazd==katpodr.nrec
   		and normzapas.cmc==katmc.nrec
	    and normzapas.atl_owner==x$users.atl_nrec
	    and katpodrnrec == katpodr.nrec
	    and cmc == katmc.nrec));

window NormCorrect 'Редактирование норм';
show at(,,,28);


			screen sCornormzapas(,,SciAqaSwitchItemName);
			show at (,,,10);
			table katpodr;
			//table pptitle;
			bevel be1 {1,0,110,10,bsRaised, bsFrame};
				fields
					normzapas.pdate :noprotect;
					normzapas.pbdate:noprotect;
					normzapas.pedate:noprotect;
					normzapas.npp:noprotect,noPickButton; //:noprotect; //(,,sciAQACancel1)
					katpodr.name :pickButton;

<<

                     Дата         Начало действия         Конец действия       
                    .@@@@@@@@@      .@@@@@@@@@            .@@@@@@@@@
                    Номер            Структурное подразделение
		            .@@@@@@@@@@@@   .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
>>
			end;
			browse bCornormzapas(,,Sci13478Esc )//F1,F4,F7,F8,Esc//(,,sci178EnEsc)
						show at (,11,,22)
							  table katmc;
			 fields
					katmc.name 'Наименование МЦ' : [20], pickButton;
					normzapas.kol 'Количество':[5,'666.88'],noprotect,noPickButton;
			end;
end;

handleEvent
			cmInit:
			{
			 RescanPanel(Scornormzapas);
			   Rescanpanel(#normzapas);
			}
		cmPick:
		{
				  Updatetable();
				  case CurField of
		     		#katpodr.name:
					{
					  katpodrnrec:=normzapas.cpodrazd;
					  res:=RunInterface('Z_KATPODR::GETANYPODR',katpodrnrec);
					  normzapas.cpodrazd:=katpodrnrec
					  update current normzapas;
					if getfirst katpodr where((normzapas.cpodrazd==katpodr.nrec))=tsOk
					  {
					  }
					  RescanPanel(#normzapas);
					}
					#katmc.name:
					{
					cmc := normzapas.cmc;
					res := runinterface('L_MCU::GETSOMEMC', cmc);
					normzapas.cmc := cmc;
					update current normzapas;
					if getfirst katmc where((normzapas.cmc==katmc.nrec))=tsOk
					  {
					  }
					RescanPanel(#normzapas);
					}
				  end;
			}
			cmCheckField : update current normzapas;
		cmCancel:
		{
		}
		cmClose:
		{
		   CloseWindow(cmDefault);
		}
		cmDefault:
		{
			   PutCommand(cmCheckField);
			   runwindowmodal(NormCorrect);
		  Rescanpanel(#normzapas);
		}
		cmInsert:
		{
			   message('cminsert1');
			titlenrec:=normzapas.atl_nrec;
			maxs:=normzapas.npp;
			   if (maxs<normzapas.npp) or (maxs=normzapas.npp)
			   {
			   message('cminsert2');
			   normzapas.npp:=normzapas.npp+1;
				  	update current normzapas;
			   }
			maxs:=maxs+1;
		}
		cmDelete:
		{

		}
		cmDone:
		{
			  rescanpanel(#normzapas);
		}
end;

						  browse bnormzapas(,,Sci178EnEsc)
							  table normzapas;
							  fields
								  normzapas.pdate   'Дата' : [15] , protect, noAutoSize;
 								  normzapas.npp   'Номер' : [25], protect, noAutoSize;
								  katpodr.name   'Подразделение' : [25] , protect, noAutoSize;
							      x$users.xu$fullname 'Создатель':[20],protect,noAutoSize;
						  end;
						   //end;
						  tableevent table normzapas

							 cmSetDefault: {
														normzapas.pdate:=Cur_Date();
														normzapas.cpodrazd:=0;
														normzapas.npp := (normzapas.npp)+1;
														SetModified(true);
														UpDateTableWithInserted
														 PutCommand(cmDefault);
											}
							cmUpdateRecord :{ //if grant_s=false
							  					//{
												  	update current normzapas;
												//}
										 	}
							cmInsertRecord :{
							   					insert current normzapas;
												UpDatePanels();
											}
							cmDeleteRecord :
							{
							  if Message('Удалить нормы?', yesButton + noButton) = cmYes
								{
								    Delete Current normzapas;
								}

							}
							cmCheckRecord:
 							{
									MakeValid(#normzapas);
									if isvalid(#normzapas)
											{
									update current normzapas;
											}
									if isnew
											{
									Putcommand(cmInsertRecord);
											}

							}
							cmCheckField:
							  {
									updatetable;
									SetModified(true);
									  case CurField of
										#normzapas.pbdate:
										{
										  update current normzapas;
										  RescanPanel(#normzapas);
										}
										#normzapas.pedate:
										{
										  update current normzapas;
										  RescanPanel(#normzapas);
										}
										#normzapas.pdate:
										{
										  update current normzapas;
										  RescanPanel(#normzapas);
										}
										#normzapas.npp:
										{
									  	  update current normzapas;
										  RescanPanel(#normzapas);
										}
										end;
							  }
							end;
end.

edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Параметры интерфейса

Сообщение edward_K »

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

normzapas.cpodrazd==katpodr.nrec
...
       and katpodrnrec == katpodr.nrec
это зачем? Либо делайте синоним, либо еще чаго то.
Руслан
Местный житель
Сообщения: 294
Зарегистрирован: 01 ноя 2011, 14:03
Контактная информация:

Re: Параметры интерфейса

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

Спасибо, edward_k, сделал синоним, все заработало.
Руслан
Местный житель
Сообщения: 294
Зарегистрирован: 01 ноя 2011, 14:03
Контактная информация:

Re: Параметры интерфейса

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

Еще проблемка, в browse bCornormzapas выбор МЦ, не присваивает МЦ, поле остается пустым и по F7 не создается новая строчка:

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

!#include %src%\make\vipInterface.h;
interface Normzapas 'Нормы страхового запаса';
 show   at   (,,92,25);
 var
 	nr,mcnrec,katednrec,katpodrnrec,linenrec,formatnrec,katstannrec,ctitle,titlenrec,specnrec: comp;
	pptitlenrec,unitm:comp;
//	titlenrec:comp;
	wkl,grant_s, check_del, checkspecif,check_screen:boolean;
 	 res,check_i : word;
	 nmc:string;
	 pdate, pbdate, pedate : date;
	 statusnnrec:comp;
	 UnMea,plancopy:string;
	 somewindow:longint;
	 n:longint;
	 begindate,enddate:date;
	 sort1,teh_poteri,dek1,dek2,dek3,summ_plan,poludek1,poludek2,poludek3,summ_polu:double;
	 sum_gresbordur,gresbordur1,gresbordur2,gresbordur3:double;
	 sum_vstavka,vstavka1,vstavka2,vstavka3:double;
	 maxi,maxs:word;
	 butpick:longInt;
	 nomer_plana,formatname:string;
	 linia_name,podrasd,titlenpp:string;
	 status_plana,old_status,old_linia :comp;

create view normz
var status,linia_filter,grup_filter,format_filter, nomer_plana: word;
	x:integer;
	fldselect:longint;
	linia,gruppa,etalon,format,titlenrec,specifnrec,specifnrec2,specifnrec3, cmc:comp;
(Vsego,meash)
 as select katpodr.name,normzapas.npp, *
from normzapas, katpodr,katmc, x$users, katpodr katpodr_2
where((	normzapas.cpodrazd==katpodr.nrec
   		and normzapas.cmc==katmc.nrec
	    and normzapas.atl_owner==x$users.atl_nrec
	    and katpodrnrec == katpodr_2.nrec
	    and cmc == katmc.nrec));

window NormCorrect 'Редактирование норм';
show at(,,,28);


			screen sCornormzapas(,,SciAqaSwitchItemName);
			show at (,,,10);
			table katpodr;
			//table pptitle;
			bevel be1 {1,0,110,10,bsRaised, bsFrame};
				fields
					normzapas.pdate :noprotect;
					normzapas.pbdate:noprotect;
					normzapas.pedate:noprotect;
					normzapas.npp:noprotect,noPickButton; //:noprotect; //(,,sciAQACancel1)
					katpodr.name :pickButton;

<<

                     Дата         Начало действия         Конец действия       
                    .@@@@@@@@@      .@@@@@@@@@            .@@@@@@@@@
                    Номер            Структурное подразделение
		            .@@@@@@@@@@@@   .@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
>>
			end;
			browse bCornormzapas(,,Sci13478Esc )//F1,F4,F7,F8,Esc//(,,sci178EnEsc)
						show at (,11,,22)
							  table katmc;
			 fields
					katmc.name 'Наименование МЦ' : [20], pickButton;
					normzapas.kol 'Количество':[5,'666.88'],noprotect,noPickButton;
			end;
end;

handleEvent
			cmInit:
			{
			 RescanPanel(Scornormzapas);
			   Rescanpanel(#normzapas);
			}
		cmPick:
		{
				  Updatetable();
				  case CurField of
		     		#katpodr.name:
					{
					  katpodrnrec:=normzapas.cpodrazd;
					  res:=RunInterface('Z_KATPODR::GETANYPODR',katpodrnrec);
					  normzapas.cpodrazd:=katpodrnrec
					  update current normzapas;
					if getfirst katpodr where((normzapas.cpodrazd==katpodr.nrec))=tsOk
					  {
					  }
					  RescanPanel(#normzapas);
					}
					#katmc.name:
					{
					cmc := normzapas.cmc;
					res := runinterface('L_MCU::GETSOMEMC', cmc);
					normzapas.cmc := cmc;
					update current normzapas;
					if getfirst katmc where((normzapas.cmc==katmc.nrec))=tsOk
					  {
					  }
					RescanPanel(#normzapas);
					}
				  end;
			}
			cmCheckField : update current normzapas;
		cmCancel:
		{
		}
		cmClose:
		{
		   CloseWindow(cmDefault);
		}
		cmDefault:
		{
			   PutCommand(cmCheckField);
!			    message('cmdefault2');
			   runwindowmodal(NormCorrect);
		  Rescanpanel(#normzapas);
		}
		cmInsert:
		{
!			   message('cminsert1');
!			titlenrec:=normzapas.atl_nrec;
!			maxs:=normzapas.npp;
!!			specnrec:=normzapas.npp;
!!			_loop normzapas where ((titlenrec==normzapas.atl_nrec))
!!			{
!			   if (maxs<normzapas.npp) or (maxs=normzapas.npp)
!			   {
!			   message('cminsert2');
!			   normzapas.npp:=normzapas.npp+1;
!				  	update current normzapas;
!			   }
!//			   maxs:=maxs+1;
!!			}
!			maxs:=maxs+1;
		}
		cmDelete:
		{

		}
		cmDone:
		{
			  rescanpanel(#normzapas);
		}
end;

						  browse bnormzapas(,,Sci178EnEsc)
							  table normzapas;
							  fields
								  normzapas.pdate   'Дата' : [15] , protect, noAutoSize;
 								  normzapas.npp   'Номер' : [25], protect, noAutoSize;
								  katpodr.name   'Подразделение' : [25] , protect, noAutoSize;
							      x$users.xu$fullname 'Создатель':[20],protect,noAutoSize;
						  end;
						   //end;
						  tableevent table normzapas

							 cmSetDefault: {
														normzapas.pdate:=Cur_Date();
														normzapas.cpodrazd:=0;
!														normzapas.npp := (normzapas.npp)+1;
														SetModified(true);
														UpDateTableWithInserted
														 PutCommand(cmDefault);
											}
							cmUpdateRecord :{ //if grant_s=false
							  					//{
												  	update current normzapas;
												//}
										 	}
							cmInsertRecord :{
							   					insert current normzapas;
												UpDatePanels();
											}
							cmDeleteRecord :
							{
							  if Message('Удалить нормы?', yesButton + noButton) = cmYes
								{
								    Delete Current normzapas;
								}

							}
							cmCheckRecord:
 							{
									MakeValid(#normzapas);
									if isvalid(#normzapas)
											{
									update current normzapas;
											}
									if isnew
											{
									Putcommand(cmInsertRecord);
											}

							}
							cmCheckField:
							  {
									updatetable;
									SetModified(true);
									  case CurField of
										#normzapas.pbdate:
										{
										  update current normzapas;
										  RescanPanel(#normzapas);
										}
										#normzapas.pedate:
										{
										  update current normzapas;
										  RescanPanel(#normzapas);
										}
										#normzapas.pdate:
										{
										  update current normzapas;
										  RescanPanel(#normzapas);
										}
										#normzapas.npp:
										{
									  	  update current normzapas;
										  RescanPanel(#normzapas);
										}
										end;
							  }
							end;
end.

edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Параметры интерфейса

Сообщение edward_K »

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

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

Параметры:
  pMC:   -12345, если не нужно запрашивать кол-во
         -12346, то же + пометить все по умолчанию
         -12347  без кол-ва, без удаления Pick
         -12348  с инвертированием Pick-а
         -12349  без кол-ва, выбирать только МЦ из маркера 'GetSomeParty_NRecSaldoMC'
         -12350  подсветка серым МЦ не являющиеся комплектом
             Возвращает   :
         -111, если Pick инвертирован (только когда передавался параметр -12348)
         222 - во всех остальных случаях
Выбор идет в Pick. Лучше посмjтрите в сторону igetkau.
Руслан
Местный житель
Сообщения: 294
Зарегистрирован: 01 ноя 2011, 14:03
Контактная информация:

Re: Параметры интерфейса

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

Поподробнее про igetkau, что это за интерфейс?
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Параметры интерфейса

Сообщение edward_K »

поиск по форуму рулит. Или Getkau.vih в архивах в папке frm. Предназначен для выбора из любой из аналитик - системной или пользовательской, МС там в частности тоже есть. Код аналитики смотрите во фро - настройка -аналитики или в katkau.
Руслан
Местный житель
Сообщения: 294
Зарегистрирован: 01 ноя 2011, 14:03
Контактная информация:

Re: Параметры интерфейса

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

Вызываю iGetKau.GetCodeKau, подключил #include %src%\src\GetKau.vih. Ругается при компиляции на файл GetKau.vih
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Параметры интерфейса

Сообщение edward_K »

"Ругается" это не вопрос даже - а так, одни эмоции. В логе что пишет? И как подцепили? там еще в var нужно писать.
Руслан
Местный житель
Сообщения: 294
Зарегистрирован: 01 ноя 2011, 14:03
Контактная информация:

Re: Параметры интерфейса

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

Ошибка следующая: Ошибка: ожидалась ";" (стр.89, поз.64 в D:\NET\VIP\TEST\PROEKT\ADD_CU_MENU\SRC\GETKAU.VIH)
│ VipInterface GetKau implements ObjGetKau,ObjGetKau1,ObjGetKau2 #Licensed_Free;

^
GetKau.var тоже подключил...
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Параметры интерфейса

Сообщение edward_K »

vih указывается до Interface
Var по ситуации, обычно после.
А да
У вас ругается на Licensed_Free - правильней чтобы в проекте были строки
#statusline "statgal"
#include galnet.inc
end;
Если такой возможности нет, то вам придется самим вытаскивать все нужные define из inc (после распаковки всех файлов из Frm найдете две папки)
Frm я распаковываю так .....winrar.exe" x -y -u *.rar
Ответить