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

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

create view vFoto
as
select * from Persons, Appendix
where
((
    Persons.Nrec == Appendix.Person  and
    1 == Appendix.ObjBlock     and
    200 == Appendix.ObjType
));

loop Persons
{
   if GetFirst Appendix <> tsOK
   {
       ClearBuffer(#Appendix)
       Appendix.Nrec := 0;
       Appendix.Abstract := 'Фотография';
       Appendix.Person := Persons.Nrec;
       Appendix.ObjBlock := 1;
       Appendix.ObjType := 200;
       insert current Appendix;
   }   

   if isValid(Appendix)  
      if ImportFileToMemo(Appendix.contents, PATH+persons.tabnmb+'.jpg',false) = false
       delete current Appendix;  
}