49 lines
1.9 KiB
Text
49 lines
1.9 KiB
Text
//***************************************************************************//
|
|
// Megjegyzés? //
|
|
// //
|
|
// VALÓSZÍNŰLEG MÁR ELAVULT, ÉS NEM HASZNÁLT! //
|
|
//***************************************************************************//
|
|
template GenerateInsertEntityCommand(MClass as ENTITY)
|
|
begin
|
|
[GenerateInsertEntityCommandCore([ENTITY])]
|
|
end;
|
|
end template
|
|
|
|
|
|
//***************************************************************************//
|
|
// Megjegyzés? //
|
|
// //
|
|
// VALÓSZÍNŰLEG MÁR ELAVULT, ÉS NEM HASZNÁLT! //
|
|
//***************************************************************************//
|
|
template GenerateInsertEntityCommandCore(MClass as ENTITY)
|
|
[if (IsMasterEntity([ENTITY]) == "false")]
|
|
insert into [ConvertNameToSQLTableName([ENTITY.name])] (
|
|
[loop (ENTITY -> MAttribute as ATTRIBUTE)]
|
|
[ConvertNameToSQLColumnName([ATTRIBUTE.name])],
|
|
[end loop]
|
|
ID
|
|
)
|
|
values (
|
|
[loop (ENTITY -> MAttribute as ATTRIBUTE)]
|
|
:[ConvertNameToCommandParameterName([ATTRIBUTE.name])],
|
|
[end loop]
|
|
:[ConvertNameToCommandParameterName("ID")]
|
|
);
|
|
[loop (ENTITY -> SuperClass as BASECLASS)]
|
|
[GenerateInsertEntityCommandCore([BASECLASS])][break]
|
|
[end loop]
|
|
[else]
|
|
insert into [ConvertNameToSQLTableName([ENTITY.name])] (
|
|
[loop (ENTITY -> MAttribute as ATTRIBUTE)]
|
|
[ConvertNameToSQLColumnName([ATTRIBUTE.name])],
|
|
[end loop]
|
|
ID, SERIAL
|
|
)
|
|
values (
|
|
[loop (ENTITY -> MAttribute as ATTRIBUTE)]
|
|
:[ConvertNameToCommandParameterName([ATTRIBUTE.name])],
|
|
[end loop]
|
|
:[ConvertNameToCommandParameterName("ID")], :[ConvertNameToCommandParameterName("Serial")]
|
|
);
|
|
[end if]
|
|
end template
|