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

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

Interface FillTable 'Заполение таблицы ppkatstan';

create view pp
Select ecn1.name, ecs1.name, katmc.name
From Exclassname ecn1, Exclassseg ecs1, EXCLASSVAL ecv1, katmc//,ppkatstanmc,ppkatstan//(katmc01)
Where ((ecn1.classcode==ecs1.classcode and 1411==ecn1.wtable
  and ecn1.classcode==ecv1.classcode and ecs1.nrec==ecv1.CCLASSSEG
  /*and 1411==EXCLASSVAL.wtable*/ and ecv1.CREC==katmc.nrec))
        and ('Коллекция'=ecn1.name);
ORDER BY Exclassname.name+Exclassname.wtable, Exclassseg.name+Exclassseg.classcode;

handleEvent
		cmInit:
							pp._loop Exclassname
							{
									 pp._loop Exclassseg
									 {
										  pp._loop EXCLASSVAL
										 {
											  if pp.getfirst katmc=tsOk
											  { 
												  message(pp.katmc.name);
											  }
										 }
									 }
							}

	end;
end.

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

							pp._loop ecn1
							{
									 pp._loop ecs1
									 {
										  pp._loop ecv1
										 {

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

from katos(KATOS13)
where ((
    15 == katos.tidk and 1 == katos.isleaf
and 3000 == EXCLASSNAME.wtable
and 'TEST' ==EXCLASSNAME.name
and EXCLASSNAME.classcode == exclassval.classcode
and 3000 == exclassval.wtable
and katos.nrec ==exclassval.crec << в вашем случае здесь наоборот
and exclassval.cclassseg == exclassseg.nrec
)) ;

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

Interface FillTable 'Заполение таблицы ppkatstan';
var knrec:comp;
create view
as	Select  ecn1.name,ecs1.name,katmc.name
	From  Exclassname  ecn1(EXCLASSNAME2),Exclassseg ecs1(EXCLASSSEG06),katmc(KATMC02), EXCLASSVAL ecv1//ppkatstanmc,ppkatstan//(katmc01)
	Where ((
	1411==ecn1.wtable
	and ('Коллекция'=ecn1.name or 'Цветность'=ecn1.name)
	  and ecn1.classcode==ecv1.classcode
	  and 1411==ecv1.wtable
	and ecv1.CREC==katmc.nrec
	and ecv1.CCLASSSEG==ecs1.nrec));
	//order by katmc.name+katmc.barkod;  
create view pp
as select *
from
ppkatstanmc,ppkatstan;

handleEvent
		cmInit:
			{
				StartNewVisual(vtRotateVisual ,
							vfTimer+vfBreak+vfConfirm, 'Идёт заполнение таблицы ppkatstan,ppkatstanmc...', 0);
				j:=0;
				m:=1;
				if getfirst ppkatstan=tsOk
 					{
						delete all ppkatstan;
					}
				if getfirst ppkatstanmc=tsOk
 					{
						delete all ppkatstanmc;
					}
							//message(katmc.name);
							_loop ecn1
							{//message(ecn1.name);
								 _loop ecs1
								{//message(ecs1.name);
									_loop ecv1
									{
										if getfirst katmc=tsOk
										{
												message(katmc.name);
											clearbuffer(#ppkatstanmc);
											ppkatstanmc.cmc:=katmc.nrec;
											If (s1<>ecs1.name) and ('Цветность'=ecs1.name) and (katmc.name<>'')
											{
											clearbuffer(#ppkatstan);
											s:=s1+ecs1.name;
											ppkatstan.name:=s;
											insert current ppkatstan;
											knrec:=ppkatstanmc.atl_nrec;
											}
											s1:=ecs1.name;
											ppkatstanmc.cppkatstan:=knrec;
											insert current ppkatstanmc;
										}
									}
								}
							}
			StopVisual('', 0);
			}
	end;
end.

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

Interface FillTable 'Заполение таблицы ppkatstan';
var knrec:comp;
	i,l,m,j,d:integer;
	s1,s2,s:string[200];
	 table struct t1
				 (
					nrec : comp,
//					cmc : comp,
					name: string, // наименование
				 	name2:string,
				 	name3:string
//					isarch:string,
//					cppgrformat: string
				 )
				 with index
				 (
					 t101 = nRec,//(Unique,Surrogate),
					 //t102 = name,
				     t103 = name+name3+name2
				 );

create view
as	Select  katmc.name,Exclassname.name,Exclassseg.name
	From  Exclassname(EXCLASSNAME2),Exclassseg(EXCLASSSEG06),katmc(KATMC02), EXCLASSVAL, ppkatstanmc,ppkatstan//(katmc01)
	Where ((
	1411==Exclassname.wtable
	and ('Коллекция'=Exclassname.name or 'Цветность'=Exclassname.name)
	  and Exclassname.classcode==EXCLASSVAL.classcode
	  and 1411==EXCLASSVAL.wtable
	and EXCLASSVAL.CREC==katmc.nrec
	and EXCLASSVAL.CCLASSSEG==Exclassseg.nrec));

create view t
as select name,name2,name3
from t1(t103);

/*create view els
as select * from
ppkatstan,ppkatstanmc,ppgrformat,ppline; //where ((comp(281474976729069)==katmc.nrec));*/
handleEvent
		cmInit:
			{
				StartNewVisual(vtRotateVisual ,
							vfTimer+vfBreak+vfConfirm, 'Идёт заполнение таблицы ppkatstan,ppkatstanmc...', 0);
				j:=0;
				m:=1;
				if getfirst ppkatstan=tsOk
 					{
						delete all ppkatstan;
					}
				if getfirst ppkatstanmc=tsOk
 					{
						delete all ppkatstanmc;
					}
					if t.getfirst t1=tsOk
								{
									t.delete all t1;
								}



							//message(katmc.name);
							_loop Exclassname
							{//message(ecn1.name);
								 _loop Exclassseg
								{//message(ecs1.name);
									_loop EXCLASSVAL
									{
										if getfirst katmc=tsOk
										{
												//message(katmc.name);
												t.t1.nrec:=katmc.nrec;
												t.t1.name:=katmc.name;
												t.t1.name2:=Exclassseg.name;
												t.t1.name3:=Exclassname.name;
												t.insert current t1;
										}
									}
								}
							}
								s1:=' ';
								t._loop t1
								{
										//message(t.t1.name+' '+t.t1.name2+' '+t.t1.name3);
										clearbuffer(#ppkatstanmc);
										clearbuffer(#ppkatstan);
										ppkatstanmc.cmc:=t.t1.nrec;
										if (s1=' ')
										{
												s:=t.t1.name2;
												ppkatstan.name:=s;
												insert current ppkatstan;
												knrec:=ppkatstan.atl_nrec;
										}
										else
										{
												If (s1<>t.t1.name2 and 'Цветность'=t.t1.name3 and t.t1.name<>'')
												{
												s:=s1+' '+t.t1.name2;
												ppkatstan.name:=s;
												insert current ppkatstan;
												knrec:=ppkatstan.atl_nrec;
												}
												If (s1<>t.t1.name2 and 'Коллекция'=t.t1.name3 and t.t1.name<>'')
												{
												s:=t.t1.name2;
												ppkatstan.name:=s;
												insert current ppkatstan;
												knrec:=ppkatstan.atl_nrec;
												}


										}
										s1:=t.t1.name2;
										ppkatstanmc.cppkatstan:=knrec;
										insert current ppkatstanmc;
								}

			StopVisual('', 0);
			}
	end;
end.