//***************************************************************************// // 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