PROCEDURE CreateTempTable
CREATE TABLE ('DATA\Table1');
   (IDtable1 i PRIMARY KEY AUTOINC,A i, B V( 40 ), C i, D i, E i, F V( 100 ), G V( 50 ), H V( 100 ),;
    I V( 100 ), J V( 50 ), K V( 150 ), L V( 100 ), M V( 25 ), N V( 25 ), O V( 50 ), P i)

CREATE TABLE ('DATA\Table2');
   (IDtable i AUTOINC, IDtable1 i, A C( 30 ), B i, C i, D i, E i,;
    FOREIGN KEY IDtable1 TAG IDtable1 REFERENCES Table1)

SELECT Edition.editionid, Edition.tirag, Edition.kolspolos, Edition.sqpolos, Period.period, Format.format, Ascent.ascent,;
  Publishinghouse.housename, Publishinghouse.site,Publishinghouse.adres, Contactface.fullname,;
  Contactface.workphone, Contactface.personalphone, Contactface.email;
 FROM data!ascent ;
    INNER JOIN data!edition ON  Ascent.ascentid = Edition.ascentid ;
    INNER JOIN data!period  ON  Period.periodid = Edition.periodid ;
    INNER JOIN data!format  ON  Format.formatid = Edition.formatid ;
    INNER JOIN data!publishinghouse ON  Publishinghouse.publhouseid = Edition.publhouseid ;
    INNER JOIN data!contactface ON  Contactface.faceid = Publishinghouse.faceid;
 WHERE  Edition.name = press_name INTO CURSOR cursPress

SELECT Descmodule.squaremodule FROM data!descmodule INNER JOIN data!tabmodule ;
ON  Descmodule.descid = Tabmodule.descid WHERE  Tabmodule.editionid = cursPress.editionid;
ORDER BY Descmodule.squaremodule INTO CURSOR id_edition
min_modul = id_edition.squaremodule
SCAN
	min_modul = MIN(min_modul, id_edition.squaremodule)
ENDSCAN

INSERT INTO Table1(A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P);
	VALUES (cursPress.editionid, press_name, cursPress.tirag, cursPress.kolspolos, cursPress.sqpolos, ;
			cursPress.period, cursPress.format, cursPress.ascent, cursPress.housename, ;
			cursPress.site, cursPress.adres, cursPress.fullname, cursPress.workphone, ;
			cursPress.personalphone, cursPress.email, min_modul)

SELECT Modules.modul, Descmodule.height, Descmodule.width,; && описание модулей
  Descmodule.squaremodule, Descmodule.cost;
 FROM data!edition ;
    INNER JOIN data!tabmodule  ON  Edition.editionid = Tabmodule.editionid ;
    INNER JOIN data!descmodule ON  Descmodule.descid = Tabmodule.descid ;
    INNER JOIN data!modules    ON  Modules.modulid = Tabmodule.modulid;
 WHERE  Edition.name = press_name INTO CURSOR cursPress2
FOR i= 1  TO RECCOUNT("cursPress2")
	SELECT cursPress2
	SCAN RECORD i
		INSERT INTO Table2(IDtable1, A, B, C, D, E);
		VALUES(Table1.IDtable1,cursPress2.modul, cursPress2.height, cursPress2.width, cursPress2.squaremodule, cursPress2.cost)
	ENDSCAN
ENDFOR

REPORT FORM ('REPORTS\InfoPress') PREVIEW

SELECT Table2
USE
DROP TABLE Table2

SELECT Table1
USE
DROP TABLE Table1

ENDPROC