Setado os valores para retorno das variáveis através da própia interface

Author: Tiagoadvir

Src/View/View.Main.pas

@@ -926,7 +926,8 @@ procedure TViewMain.ProcessaGetSetImplementacao(AFieldNameLB: string; AFieldTipo
 
 procedure TViewMain.ProcessarContratoInterface(AFieldNameLB: string; AFieldTipo: string);
 begin
-  FStrAcessoDeclaracoes.Add('    function '+ AFieldNameLB +'(Value: '+ AFieldTipo +'): i' + FUnitNome + ';');
+  FStrAcessoDeclaracoes.Add('    function '+ AFieldNameLB + ':' + AFieldTipo + '; overload;');
+  FStrAcessoDeclaracoes.Add('    function '+ AFieldNameLB +'(Value: '+ AFieldTipo +'): i' + FUnitNome  +'; overload;');
 end;
 
 procedure TViewMain.ProcessaFluentInterface(AFieldNameLB: string; AFieldTipo: string);
@@ -949,9 +950,14 @@ procedure TViewMain.ProcessaFluentInterface(AFieldNameLB: string; AFieldTipo: st
 
 procedure TViewMain.ProcessaOrientacaoInterface(AFieldNameLB: string; AFieldTipo: string);
 begin
+  FStrAcessoDeclaracoes.Add('    function '+ AFieldNameLB +': '+ AFieldTipo +'; overload;');
+  FStrAcessoDeclaracoes.Add('    function '+ AFieldNameLB +'(Value: '+ AFieldTipo +'): i' + FUnitNome +'; overload;');
 
-  FStrAcessoDeclaracoes.Add('    function '+ AFieldNameLB +'(Value: '+ AFieldTipo +'): i' + FUnitNome +';');
-
+  FStrAcessoImpl.Add('function '+ FClasseNome + '.' + AFieldNameLB +': '+ AFieldTipo +';');
+  FStrAcessoImpl.Add('begin');
+  FStrAcessoImpl.Add('   Result := F'+ AFieldNameLB +';');
+  FStrAcessoImpl.Add('end;');
+  FStrAcessoImpl.Add('');
   FStrAcessoImpl.Add('function '+ FClasseNome +'.'+ AFieldNameLB +'(Value: '+ AFieldTipo +'): i'+ FUnitNome +';');
   FStrAcessoImpl.Add('begin');
   FStrAcessoImpl.Add('   Result := Self;');

Win32/Debug/Code4DGeraClasses.ini

@@ -12,7 +12,7 @@ ckGravarArquivosPasta=1
 ckAbrirPastaAposGravar=1
 ckAddCabecalho=1
 ckLimparMemoACadaUnit=1
-edtNomeEntities=Pessoa
+edtNomeEntities=Notificacao
 rdGroupFormaAcessoEntities=4
 ckAddComentarioNomeTabela=0
 ckAddComentarioNomeField=0