Skip to content

S
StarUML Evológica Plugin
Commit 66d0b061 authored by Erika Segatto's avatar Erika Segatto
Browse files
Options

Ajustes na geração de classes hibernate

parent becd55ca
Show whitespace changes
Inline Side-by-side
Showing with 163 additions and 103 deletions
EvoUMLPlugin/src/IntegracaoDelphiSUML.pas
View file @ 66d0b061
...@@ -5126,22 +5126,17 @@ function TUtil.GerarClassPreview_JavaHibernate(piClass: IUMLClass): string; ...@@ -5126,22 +5126,17 @@ function TUtil.GerarClassPreview_JavaHibernate(piClass: IUMLClass): string;
procedure IncluirImports(const piCodigoClasse: PStringWriter; piClassTicket: acClassTicket; const piTipoId: string); procedure IncluirImports(const piCodigoClasse: PStringWriter; piClassTicket: acClassTicket; const piTipoId: string);
var var
lAttributeTicket: acAttributeTicket; lAttributeTicket: acAttributeTicket;
lHasImport: array[0..4] of Boolean; lRelation: acRelationTicket;
lHasImport: array[0..5] of Boolean;
index: integer; index: integer;
lsTipoAttribute: string; lsTipoAttribute: string;
lClassTicketPai: acClassTicket; lClassTicketPai: acClassTicket;
lDone: Boolean; lDone: Boolean;
begin begin
piCodigoClasse.WriteLine('import javax.persistence.*;'); piCodigoClasse.WriteLine('import javax.persistence.*;');
piCodigoClasse.WriteLine('import java.util.List;'); for index := 0 to 5 do
piCodigoClasse.WriteLine('import java.util.ArrayList;');
for index := 0 to 4 do
lHasImport[index] := False; lHasImport[index] := False;
if piTipoId = 'Long' then if piTipoId = 'Long' then lHasImport[1] := True;
begin
piCodigoClasse.WriteLine('import java.lang.Long;');
lHasImport[1] := True;
end;
lDone := False; lDone := False;
lClassTicketPai := piClassTicket; lClassTicketPai := piClassTicket;
while Assigned(lClassTicketPai) do while Assigned(lClassTicketPai) do
...@@ -5150,35 +5145,41 @@ function TUtil.GerarClassPreview_JavaHibernate(piClass: IUMLClass): string; ...@@ -5150,35 +5145,41 @@ function TUtil.GerarClassPreview_JavaHibernate(piClass: IUMLClass): string;
begin begin
lAttributeTicket := lClassTicketPai.Attributes.Objects[index] as acAttributeTicket; lAttributeTicket := lClassTicketPai.Attributes.Objects[index] as acAttributeTicket;
lsTipoAttribute := ObterTipoAtributoJava(lAttributeTicket.AttributeType); lsTipoAttribute := ObterTipoAtributoJava(lAttributeTicket.AttributeType);
if (lsTipoAttribute = 'BigDecimal') and (not lHasImport[0]) then if (lsTipoAttribute = 'BigDecimal') then lHasImport[0] := True
begin else if (lsTipoAttribute = 'Long') then lHasImport[1] := True
piCodigoClasse.WriteLine('import java.math.BigDecimal;'); else if (lsTipoAttribute = 'OffsetDateTime') then lHasImport[2] := True
lHasImport[0] := True; else if (lsTipoAttribute = 'Boolean') then lHasImport[3] := True;
end
else if (lsTipoAttribute = 'Long') and (not lHasImport[1]) then if ((not lDone) and lAttributeTicket.Mandatory) then lHasImport[4] := True;
end;
for index := 0 to lClassTicketPai.RelationTicketsIn.Count - 1 do
begin begin
piCodigoClasse.WriteLine('import java.lang.Long;'); lRelation := (lClassTicketPai.RelationTicketsIn.Objects[index] as acRelationTicket);
lHasImport[1] := True; if (lRelation.DestinationPropertyName <> '') then
end
else if (lsTipoAttribute = 'OffsetDateTime') and (not lHasImport[2]) then
begin begin
piCodigoClasse.WriteLine('import java.time.OffsetDateTime;'); if lRelation.DestinationMaxMultiplicity > 1 then lHasImport[5] := True;
lHasImport[2] := True; if lRelation.DestinationMinMultiplicity >= 1 then lHasImport[4] := True;
end end;
else if (lsTipoAttribute = 'Boolean') and (not lHasImport[3]) then end;
for index := 0 to lClassTicketPai.RelationTicketsOut.Count - 1 do
begin begin
piCodigoClasse.WriteLine('import java.lang.Boolean;'); lRelation := (lClassTicketPai.RelationTicketsOut.Objects[index] as acRelationTicket);
lHasImport[3] := True; if (lRelation.OriginPropertyName <> '') then
end
else if ((not lDone) and lAttributeTicket.Mandatory) and (not lHasImport[4]) then
begin begin
piCodigoClasse.WriteLine('import javax.validation.constraints.NotNull;'); if lRelation.OriginMaxMultiplicity > 1 then lHasImport[5] := True;
lHasImport[4] := True; if lRelation.OriginMinMultiplicity >= 1 then lHasImport[4] := True;
end; end;
end; end;
lClassTicketPai := lClassTicketPai.ParentClassTicket; lClassTicketPai := lClassTicketPai.ParentClassTicket;
lDone := True; lDone := True;
end; end;
if lHasImport[1] then piCodigoClasse.WriteLine('import java.lang.Long;');
if lHasImport[3] then piCodigoClasse.WriteLine('import java.lang.Boolean;');
if lHasImport[0] then piCodigoClasse.WriteLine('import java.math.BigDecimal;');
if lHasImport[2] then piCodigoClasse.WriteLine('import java.time.OffsetDateTime;');
if lHasImport[5] then piCodigoClasse.WriteLine('import java.util.List;');
if lHasImport[5] then piCodigoClasse.WriteLine('import java.util.ArrayList;');
if lHasImport[4] then piCodigoClasse.WriteLine('import javax.validation.constraints.NotNull;');
end; end;
function ObterTipoHeranca(const piClassTicket: acClassTicket; const piNomeTabela: string): string; function ObterTipoHeranca(const piClassTicket: acClassTicket; const piNomeTabela: string): string;
...@@ -5202,6 +5203,116 @@ function TUtil.GerarClassPreview_JavaHibernate(piClass: IUMLClass): string; ...@@ -5202,6 +5203,116 @@ function TUtil.GerarClassPreview_JavaHibernate(piClass: IUMLClass): string;
end; end;
end; end;
procedure EscreverAnotacoesAtributo(const piCodigoClasse: PStringWriter; piAttributeTicket: acAttributeTicket; piColumnTicket: acDBColumnMapTicket);
begin
if piAttributeTicket.Mandatory then
piCodigoClasse.WriteLine('@NotNull');
piCodigoClasse.Write('@Column(name = "' + piColumnTicket.ColumnName + '"');
if piAttributeTicket.DBType = 'VARCHAR' then
piCodigoClasse.Write(', length = ' + IntToStr(piAttributeTicket.VarSize));
if piAttributeTicket.Mandatory then
piCodigoClasse.Write(', nullable = false');
piCodigoClasse.WriteLine(')');
end;
procedure EscreverAnotacoesRelationsIn(const piCodigoClasse: PStringWriter; piRelationTicket: acRelationTicket);
var
lRelationPersistenceMapTicket: acRelationSQLPersistenceMapTicket;
lMandatory: Boolean;
begin
lRelationPersistenceMapTicket := (fMetaModelPersistenceMap as acMetaModelPersistenceMapSQL).GetRelationsSQLPersistenceMapTicket(piRelationTicket);
lMandatory := piRelationTicket.DestinationMinMultiplicity >= 1;
if piRelationTicket.DestinationMaxMultiplicity = 1 then
begin
if lMandatory then
piCodigoClasse.WriteLine('@NotNull');
if piRelationTicket.OriginMaxMultiplicity = 1
then piCodigoClasse.Write('@OneToOne(fetch = FetchType.EAGER')
else piCodigoClasse.Write('@ManyToOne(fetch = FetchType.EAGER');
if lMandatory then
piCodigoClasse.Write(', optional = false');
end
else
begin
if lMandatory then
piCodigoClasse.WriteLine('@NotEmpty');
if piRelationTicket.OriginMaxMultiplicity = 1
then piCodigoClasse.Write('@OneToMany(fetch = FetchType.LAZY')
else piCodigoClasse.Write('@ManyToMany(fetch = FetchType.LAZY');
end;
if piRelationTicket.DestinationAggregation = acPropertyAggregation.pvComposite
then piCodigoClasse.Write(', cascade = CascadeType.ALL')
else piCodigoClasse.Write(', cascade = CascadeType.DETACH');
piCodigoClasse.WriteLine(')');
if lRelationPersistenceMapTicket is acDirectDBRelationMapTicket then
begin
piCodigoClasse.Write('@JoinColumn(name = "'+acDirectDBRelationMapTicket(lRelationPersistenceMapTicket).FKColumnName+'"');
if lMandatory then
piCodigoClasse.Write(', nullable = false');
end
else piCodigoClasse.Write('@JoinTable(name = "'+ acIndirectDBRelationMapTicket(lRelationPersistenceMapTicket).TableName + '"'+
', joinColumns = { @JoinColumn(name = "'+acIndirectDBRelationMapTicket(lRelationPersistenceMapTicket).FKOrigemName+'") }'+
', inverseJoinColumns = { @JoinColumn(name = "'+acIndirectDBRelationMapTicket(lRelationPersistenceMapTicket).FKDestinoName+'")'+
'} ');
piCodigoClasse.WriteLine(')');
end;
procedure EscreverAnotacoesRelationsOut(const piCodigoClasse: PStringWriter; piRelationTicket: acRelationTicket);
var
lRelationPersistenceMapTicket: acRelationSQLPersistenceMapTicket;
lMandatory: Boolean;
begin
lRelationPersistenceMapTicket := (fMetaModelPersistenceMap as acMetaModelPersistenceMapSQL).GetRelationsSQLPersistenceMapTicket(piRelationTicket);
lMandatory := piRelationTicket.OriginMinMultiplicity >= 1;
if piRelationTicket.OriginMaxMultiplicity = 1 then
begin
if lMandatory then
piCodigoClasse.WriteLine('@NotNull');
if piRelationTicket.DestinationMaxMultiplicity = 1
then piCodigoClasse.Write('@OneToOne(fetch = FetchType.LAZY')
else piCodigoClasse.Write('@ManyToOne(fetch = FetchType.LAZY');
if lMandatory then
piCodigoClasse.Write(', optional = false');
end
else
begin
if lMandatory then
piCodigoClasse.WriteLine('@NotEmpty');
if piRelationTicket.DestinationMaxMultiplicity = 1
then piCodigoClasse.Write('@OneToMany(fetch = FetchType.LAZY')
else piCodigoClasse.Write('@ManyToMany(fetch = FetchType.LAZY');
end;
if piRelationTicket.OriginAggregation = acPropertyAggregation.pvComposite
then piCodigoClasse.Write(', cascade = CascadeType.ALL')
else piCodigoClasse.Write(', cascade = CascadeType.DETACH');
if piRelationTicket.DestinationPropertyName <> ''
then piCodigoClasse.WriteLine(', mappedBy = "'+FirstLetterLowerCase(piRelationTicket.DestinationPropertyName)+'")')
else
begin
piCodigoClasse.WriteLine(')');
if (lRelationPersistenceMapTicket is acDirectDBRelationMapTicket) and (acDirectDBRelationMapTicket(lRelationPersistenceMapTicket).FKColumnName <> '') then
begin
piCodigoClasse.Write('@JoinColumn(name = "'+acDirectDBRelationMapTicket(lRelationPersistenceMapTicket).FKColumnName+'"');
if lMandatory then
piCodigoClasse.Write(', nullable = false');
end
else if (lRelationPersistenceMapTicket is acIndirectDBRelationMapTicket) and (acIndirectDBRelationMapTicket(lRelationPersistenceMapTicket).TableName <> '') then
piCodigoClasse.Write('@JoinTable(name = "'+ acIndirectDBRelationMapTicket(lRelationPersistenceMapTicket).TableName + '"'+
', joinColumns = { @JoinColumn(name = "'+acIndirectDBRelationMapTicket(lRelationPersistenceMapTicket).FKDestinoName+'") }'+
', inverseJoinColumns = { @JoinColumn(name = "'+acIndirectDBRelationMapTicket(lRelationPersistenceMapTicket).FKOrigemName+'")'+
'}');
piCodigoClasse.WriteLine(')');
end;
end;
const const
_NomeId = 'Id'; _NomeId = 'Id';
_DBTipoId = 'Long'; _DBTipoId = 'Long';
...@@ -5227,8 +5338,6 @@ var ...@@ -5227,8 +5338,6 @@ var
lParamsConstrutor, lParamsConstrutor,
lParamsConstrutorSemRelOut: string; lParamsConstrutorSemRelOut: string;
lRelation: acRelationTicket; lRelation: acRelationTicket;
lRelationPersistenceMapTicket: acRelationSQLPersistenceMapTicket;
lColumnTicket: acDBColumnMapTicket;
lEhClasseHerdada: Boolean; lEhClasseHerdada: Boolean;
lListaChamadaConstr, lListaChamadaConstr,
lListaChamadaSuper, lListaChamadaSuper,
...@@ -5270,6 +5379,7 @@ begin ...@@ -5270,6 +5379,7 @@ begin
lInheritanceType := ObterTipoHeranca(lClassTicket, lsNomeTabela); lInheritanceType := ObterTipoHeranca(lClassTicket, lsNomeTabela);
lCodigoClasse.WriteLine('@Inheritance(strategy = '+lInheritanceType+')'); lCodigoClasse.WriteLine('@Inheritance(strategy = '+lInheritanceType+')');
lCodigoClasse.WriteLine('@DiscriminatorColumn(name = "'+lClassToDBMapTicket.TypeColumnName+'")'); lCodigoClasse.WriteLine('@DiscriminatorColumn(name = "'+lClassToDBMapTicket.TypeColumnName+'")');
lCodigoClasse.WriteLine('@DiscriminatorValue("'+lClassToDBMapTicket.DBClassMapCode+'")');
end end
else else
if lEhClasseHerdada then if lEhClasseHerdada then
...@@ -5304,85 +5414,35 @@ begin ...@@ -5304,85 +5414,35 @@ begin
lsAtributo := lClassTicket.Attributes.Strings[index]; lsAtributo := lClassTicket.Attributes.Strings[index];
lsTipoAttribute := ObterTipoAtributoJava(lAttributeTicket.AttributeType); lsTipoAttribute := ObterTipoAtributoJava(lAttributeTicket.AttributeType);
lColumnTicket := acDBColumnMapTicket(lClassToDBMapTicket.Columns.ValueOf(UpCase(lsAtributo))); EscreverAnotacoesAtributo(lCodigoClasse, lAttributeTicket, acDBColumnMapTicket(lClassToDBMapTicket.Columns.ValueOf(UpCase(lsAtributo))));
if lAttributeTicket.DBType = 'VARCHAR'
then lCodigoClasse.WriteLine('@Column(name = "' + lColumnTicket.ColumnName + '", length = ' + IntToStr(lAttributeTicket.VarSize) + ')')
else lCodigoClasse.WriteLine('@Column(name = "' + lColumnTicket.ColumnName + '")');
if lAttributeTicket.Mandatory
then lCodigoClasse.WriteLine('@NotNull');
EscreverDeclaracaoAtributo(lCodigoClasse, lsTipoAttribute, lsAtributo, lClassTicket.HasDescendants); EscreverDeclaracaoAtributo(lCodigoClasse, lsTipoAttribute, lsAtributo, lClassTicket.HasDescendants);
end; end;
// DECLARAO ATRIBUTOS: Percorre relacionamentos // DECLARAO ATRIBUTOS: Percorre relacionamentos
for index := 0 to lClassTicket.RelationTicketsIn.Count - 1 do for index := 0 to lClassTicket.RelationTicketsIn.Count - 1 do
begin begin
lRelation := (lClassTicket.RelationTicketsIn.Objects[index] as acRelationTicket); lRelation := (lClassTicket.RelationTicketsIn.Objects[index] as acRelationTicket);
lRelationPersistenceMapTicket := lMetaModelPersistenceMapSQL.GetRelationsSQLPersistenceMapTicket(lRelation);
if (lRelation.DestinationPropertyName <> '') then if (lRelation.DestinationPropertyName <> '') then
begin begin
lsAtributo := lRelation.DestinationPropertyName; lsAtributo := lRelation.DestinationPropertyName;
lsTipoAttribute := lRelation.OriginClassTicket.DisplayName; lsTipoAttribute := lRelation.OriginClassTicket.DisplayName;
if lRelation.DestinationMaxMultiplicity = 1 then if lRelation.DestinationMaxMultiplicity > 1 then
begin
if lRelation.OriginMaxMultiplicity = 1
then lCodigoClasse.Write('@OneToOne(fetch = FetchType.EAGER')
else lCodigoClasse.Write('@ManyToOne(fetch = FetchType.EAGER');
end
else
begin
lsTipoAttribute := 'final List<'+ lsTipoAttribute +'>'; lsTipoAttribute := 'final List<'+ lsTipoAttribute +'>';
if lRelation.OriginMaxMultiplicity = 1
then lCodigoClasse.Write('@OneToMany(fetch = FetchType.LAZY') EscreverAnotacoesRelationsIn(lCodigoClasse, lRelation);
else lCodigoClasse.Write('@ManyToMany(fetch = FetchType.LAZY');
end;
if lRelation.DestinationAggregation = acPropertyAggregation.pvComposite
then lCodigoClasse.WriteLine(', cascade = CascadeType.ALL)')
else lCodigoClasse.WriteLine(', cascade = CascadeType.DETACH)');
if lRelationPersistenceMapTicket is acDirectDBRelationMapTicket
then lCodigoClasse.WriteLine('@JoinColumn(name = "'+acDirectDBRelationMapTicket(lRelationPersistenceMapTicket).FKColumnName+'")')
else lCodigoClasse.WriteLine('@JoinTable(name = "'+ acIndirectDBRelationMapTicket(lRelationPersistenceMapTicket).TableName + '"'+
', joinColumns = { @JoinColumn(name = "'+acIndirectDBRelationMapTicket(lRelationPersistenceMapTicket).FKOrigemName+'") }'+
', inverseJoinColumns = { @JoinColumn(name = "'+acIndirectDBRelationMapTicket(lRelationPersistenceMapTicket).FKDestinoName+'")'+
'} )');
EscreverDeclaracaoAtributo(lCodigoClasse, lsTipoAttribute, lsAtributo, lClassTicket.HasDescendants); EscreverDeclaracaoAtributo(lCodigoClasse, lsTipoAttribute, lsAtributo, lClassTicket.HasDescendants);
end; end;
end; end;
for index := 0 to lClassTicket.RelationTicketsOut.Count - 1 do for index := 0 to lClassTicket.RelationTicketsOut.Count - 1 do
begin begin
lRelation := (lClassTicket.RelationTicketsOut.Objects[index] as acRelationTicket); lRelation := (lClassTicket.RelationTicketsOut.Objects[index] as acRelationTicket);
lRelationPersistenceMapTicket := lMetaModelPersistenceMapSQL.GetRelationsSQLPersistenceMapTicket(lRelation);
if (lRelation.OriginPropertyName <> '') then if (lRelation.OriginPropertyName <> '') then
begin begin
lsAtributo := lRelation.OriginPropertyName; lsAtributo := lRelation.OriginPropertyName;
lsTipoAttribute := lRelation.DestinationClassTicket.DisplayName; lsTipoAttribute := lRelation.DestinationClassTicket.DisplayName;
if lRelation.OriginMaxMultiplicity = 1 then if lRelation.OriginMaxMultiplicity > 1 then
begin
if lRelation.DestinationMaxMultiplicity = 1
then lCodigoClasse.Write('@OneToOne(fetch = FetchType.LAZY')
else lCodigoClasse.Write('@ManyToOne(fetch = FetchType.LAZY');
end
else
begin
lsTipoAttribute := 'final List<'+ lsTipoAttribute +'>'; lsTipoAttribute := 'final List<'+ lsTipoAttribute +'>';
if lRelation.DestinationMaxMultiplicity = 1
then lCodigoClasse.Write('@OneToMany(fetch = FetchType.LAZY') EscreverAnotacoesRelationsOut(lCodigoClasse, lRelation);
else lCodigoClasse.Write('@ManyToMany(fetch = FetchType.LAZY');
end;
if lRelation.OriginAggregation = acPropertyAggregation.pvComposite
then lCodigoClasse.Write(', cascade = CascadeType.ALL')
else lCodigoClasse.Write(', cascade = CascadeType.DETACH');
if lRelation.DestinationPropertyName <> ''
then lCodigoClasse.WriteLine(', mappedBy = "'+FirstLetterLowerCase(lRelation.DestinationPropertyName)+'")')
else
begin
lCodigoClasse.WriteLine(')');
if (lRelationPersistenceMapTicket is acDirectDBRelationMapTicket) and (acDirectDBRelationMapTicket(lRelationPersistenceMapTicket).FKColumnName <> '') then
lCodigoClasse.WriteLine('@JoinColumn(name = "'+acDirectDBRelationMapTicket(lRelationPersistenceMapTicket).FKColumnName+'")')
else if (lRelationPersistenceMapTicket is acIndirectDBRelationMapTicket) and (acIndirectDBRelationMapTicket(lRelationPersistenceMapTicket).TableName <> '') then
lCodigoClasse.WriteLine('@JoinTable(name = "'+ acIndirectDBRelationMapTicket(lRelationPersistenceMapTicket).TableName + '"'+
', joinColumns = { @JoinColumn(name = "'+acIndirectDBRelationMapTicket(lRelationPersistenceMapTicket).FKDestinoName+'") }'+
', inverseJoinColumns = { @JoinColumn(name = "'+acIndirectDBRelationMapTicket(lRelationPersistenceMapTicket).FKOrigemName+'")'+
'} )');
end;
EscreverDeclaracaoAtributo(lCodigoClasse, lsTipoAttribute, lsAtributo, lClassTicket.HasDescendants); EscreverDeclaracaoAtributo(lCodigoClasse, lsTipoAttribute, lsAtributo, lClassTicket.HasDescendants);
end; end;
end; end;
...@@ -5435,13 +5495,13 @@ begin ...@@ -5435,13 +5495,13 @@ begin
lsTipoAttribute := ObterTipoAtributoJava(lAttributeTicket.AttributeType); lsTipoAttribute := ObterTipoAtributoJava(lAttributeTicket.AttributeType);
lParamsConstrutor := lParamsConstrutor + lsTipoAttribute + ' pi'+ lsAtributo + ', '; lParamsConstrutor := lParamsConstrutor + lsTipoAttribute + ' pi'+ lsAtributo + ', ';
lParamsConstrutorSemRelOut := lParamsConstrutorSemRelOut + lsTipoAttribute + ' pi'+ lsAtributo + ', '; lParamsConstrutorSemRelOut := lParamsConstrutorSemRelOut + lsTipoAttribute + ' pi'+ lsAtributo + ', ';
lListaChamadaConstr.Add('pi'+lsAtributo);
if lClassTicketPai.ID <> lClassTicket.ID if lClassTicketPai.ID <> lClassTicket.ID
then begin then begin
lListaChamadaSuper.Add('pi' + lsAtributo); lListaChamadaSuper.Add('pi' + lsAtributo);
lListaChamadaSuperSemRelOut.Add('pi' + lsAtributo); lListaChamadaSuperSemRelOut.Add('pi' + lsAtributo);
end end
else begin else begin
lListaChamadaConstr.Add('pi'+lsAtributo);
EscreverInicializacaoAtributo(lCodigoConstrutor, lsAtributo, 1); EscreverInicializacaoAtributo(lCodigoConstrutor, lsAtributo, 1);
EscreverInicializacaoAtributo(lCodigoConstrutorSemRelOut, lsAtributo, 1); EscreverInicializacaoAtributo(lCodigoConstrutorSemRelOut, lsAtributo, 1);
end; end;
...@@ -5456,12 +5516,12 @@ begin ...@@ -5456,12 +5516,12 @@ begin
then lsTipoAttribute := 'List<'+ lRelation.OriginClassTicket.DisplayName +'>' then lsTipoAttribute := 'List<'+ lRelation.OriginClassTicket.DisplayName +'>'
else lsTipoAttribute := lRelation.OriginClassTicket.DisplayName; else lsTipoAttribute := lRelation.OriginClassTicket.DisplayName;
lParamsConstrutor := lParamsConstrutor + lsTipoAttribute + ' pi'+ lsAtributo + ', '; lParamsConstrutor := lParamsConstrutor + lsTipoAttribute + ' pi'+ lsAtributo + ', ';
lListaChamadaConstr.Add('pi'+lsAtributo);
if lClassTicketPai.ID <> lClassTicket.ID if lClassTicketPai.ID <> lClassTicket.ID
then begin then begin
lListaChamadaSuper.Add('pi' + lsAtributo); lListaChamadaSuper.Add('pi' + lsAtributo);
end end
else begin else begin
lListaChamadaConstr.Add('pi'+lsAtributo);
EscreverInicializacaoAtributo(lCodigoConstrutor, lRelation.DestinationPropertyName, lRelation.DestinationMaxMultiplicity); EscreverInicializacaoAtributo(lCodigoConstrutor, lRelation.DestinationPropertyName, lRelation.DestinationMaxMultiplicity);
EscreverCriacaoLista(lCodigoConstrutorSemRelOut, lRelation.DestinationPropertyName, lRelation.DestinationMaxMultiplicity); EscreverCriacaoLista(lCodigoConstrutorSemRelOut, lRelation.DestinationPropertyName, lRelation.DestinationMaxMultiplicity);
end; end;
...@@ -5477,10 +5537,10 @@ begin ...@@ -5477,10 +5537,10 @@ begin
then lsTipoAttribute := 'List<'+ lRelation.DestinationClassTicket.DisplayName +'>' then lsTipoAttribute := 'List<'+ lRelation.DestinationClassTicket.DisplayName +'>'
else lsTipoAttribute := lRelation.DestinationClassTicket.DisplayName; else lsTipoAttribute := lRelation.DestinationClassTicket.DisplayName;
lParamsConstrutor := lParamsConstrutor + lsTipoAttribute + ' pi'+ lsAtributo + ', '; lParamsConstrutor := lParamsConstrutor + lsTipoAttribute + ' pi'+ lsAtributo + ', ';
lListaChamadaConstr.Add('pi'+lsAtributo);
if lClassTicketPai.ID <> lClassTicket.ID if lClassTicketPai.ID <> lClassTicket.ID
then lListaChamadaSuper.Add('pi' + lsAtributo) then lListaChamadaSuper.Add('pi' + lsAtributo)
else begin else begin
lListaChamadaConstr.Add('pi'+lsAtributo);
EscreverInicializacaoAtributo(lCodigoConstrutor, lRelation.OriginPropertyName, lRelation.OriginMaxMultiplicity); EscreverInicializacaoAtributo(lCodigoConstrutor, lRelation.OriginPropertyName, lRelation.OriginMaxMultiplicity);
EscreverCriacaoLista(lCodigoConstrutorSemRelOut, lRelation.OriginPropertyName, lRelation.OriginMaxMultiplicity); EscreverCriacaoLista(lCodigoConstrutorSemRelOut, lRelation.OriginPropertyName, lRelation.OriginMaxMultiplicity);
end; end;
...@@ -5501,7 +5561,7 @@ begin ...@@ -5501,7 +5561,7 @@ begin
lRelation := (lClassTicket.RelationTicketsIn.Objects[index] as acRelationTicket); lRelation := (lClassTicket.RelationTicketsIn.Objects[index] as acRelationTicket);
lsAtributo := lRelation.DestinationPropertyName; lsAtributo := lRelation.DestinationPropertyName;
if (lsAtributo <> '') and (lRelation.DestinationMaxMultiplicity > 1) then if (lsAtributo <> '') and (lRelation.DestinationMaxMultiplicity > 1) then
lCodigoClasse.WriteLine(lsAtributo + ' = new ArrayList<>();'); lCodigoClasse.WriteLine(FirstLetterLowerCase(lsAtributo) + ' = new ArrayList<>();');
end; end;
for index := 0 to lClassTicket.RelationTicketsOut.Count - 1 do for index := 0 to lClassTicket.RelationTicketsOut.Count - 1 do
begin begin
...@@ -5527,7 +5587,7 @@ begin ...@@ -5527,7 +5587,7 @@ begin
then lCodigoClasse.WriteLine('public '+lsNomeClasseDB+'('+_DBTipoId+' piId, '+strutils.LeftStr(lParamsConstrutor, Length(lParamsConstrutor)-2)+') {') then lCodigoClasse.WriteLine('public '+lsNomeClasseDB+'('+_DBTipoId+' piId, '+strutils.LeftStr(lParamsConstrutor, Length(lParamsConstrutor)-2)+') {')
else lCodigoClasse.WriteLine('public '+lsNomeClasseDB+'('+_DBTipoId+' piId) {'); else lCodigoClasse.WriteLine('public '+lsNomeClasseDB+'('+_DBTipoId+' piId) {');
lCodigoClasse.Indent(); lCodigoClasse.Indent();
lCodigoClasse.WriteLine('this('+lListaChamadaConstr.CommaText+')'); lCodigoClasse.WriteLine('this('+lListaChamadaConstr.CommaText+');');
lCodigoClasse.WriteLine(FirstLetterLowerCase(_NomeId)+' = piId;'); lCodigoClasse.WriteLine(FirstLetterLowerCase(_NomeId)+' = piId;');
lCodigoClasse.Outdent(); lCodigoClasse.Outdent();
lCodigoClasse.WriteLine('}'); lCodigoClasse.WriteLine('}');
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment