TPHServerClass - Histórico de revisão

Admin: /* Procedimentos */

2025-01-16T10:56:09Z

‎Procedimentos

2024-10-17T20:08:35Z

2023-04-19T18:04:04Z

‎Criação do Objeto

2023-04-19T18:03:02Z

‎Exemplo NewPHServerClassName

2023-04-19T18:01:42Z

‎Criação do Objeto

2023-04-19T17:59:59Z

2023-04-19T17:51:45Z

2023-04-19T17:51:31Z

2022-04-13T13:46:12Z

‎Exemplo

2022-04-13T13:45:04Z

‎Exemplo

@@ Linha 17: / Linha 17: @@
 ===Procedimentos===
 * '''CampoDoNome(Campo:String)''': Permite atribuir ou retornar valores para os campos. Exemplo: CampoDoNome('CODIGO').AsInteger := 1;
 * '''Editar(pID:Int64)''': Permite a edição de um registro. Após é permitido realizar a gravação do registro com os valores alterados posteriores a edição.
 * '''Salvar''': Realiza gravação do registro. Nesse ponto são considerados as regras presentes nos eventos BeforePost e AfterPost da classe e do script;
 ===Exemplo NewPHServerClass===

@@ Linha 19: / Linha 19: @@
 * '''NovoRegistro''': Inicia o cadastro de um novo registro. Nesse ponto são consideradas as regras presentes no evento AfterInsert da classe e do script;
 * '''CampoDoNome(Campo:String)''': Permite atribuir ou retornar valores para os campos. Exemplo: CampoDoNome('CODIGO').AsInteger := 1;
 * '''Salvar''': Realiza gravação do registro. Nesse ponto são considerados as regras presentes nos eventos BeforePost e AfterPost da classe e do script;
 ===Exemplo NewPHServerClass===

@@ Linha 14: / Linha 14: @@
 ===Criação do Objeto===
 * '''NewPHServerClass''': Cria o objeto, espera como parâmetro o nome do cadastro.
-* '''NewPHServerClassName''': Cria o objeto, espera como parâmetro o nome da classe.
+* '''NewPHServerClassName''': Cria o objeto, espera como parâmetro o nome da classe, utilizada para classes sem cadastro.
 ===Procedimentos===

@@ Linha 53: / Linha 53: @@
    begin
      try
-       NotObj := NewPHServerClassName('TPHSNotificacoes'); { Nome da classe do servidor }
+      NotObj := NewPHServerClassName('TPHSNotificacoes'); { Nome da classe do servidor }
        try
          NotObj.GetMetodo('Enviar');
        finally

@@ Linha 13: / Linha 13: @@
 ===Criação do Objeto===
-* '''NewPHServerClass''':
+* '''NewPHServerClass''': Cria o objeto, espera como parâmetro o nome do cadastro.
-* '''NewPHServerClassName''':
+* '''NewPHServerClassName''': Cria o objeto, espera como parâmetro o nome da classe.
 ===Procedimentos===

@@ Linha 11: / Linha 11: @@
 |Corresponde ao ID do registro (Opcional).
 |}
 ===Procedimentos===
@@ Linha 17: / Linha 21: @@
 * '''Salvar''': Realiza gravação do registro. Nesse ponto são considerados as regras presentes nos eventos BeforePost e AfterPost da classe e do script;
-===Exemplo===
+===Exemplo NewPHServerClass===
    var
@@ Linha 39: / Linha 43: @@
      except
        CancelarTransacao;
        RaiseException(MensagemErro);
      end;

@@ Linha 24: / Linha 24: @@
      IniciarTransacao;
      try
-       Cores := NewPHServerClass('CORES');
+       Cores := NewPHServerClass('CORES'); { Nome do cadastro de Cores }
        try
          Cores.NovoRegistro;

@@ Linha 29: / Linha 29: @@
          Cores.CampoDoNome('NOME').AsString := 'Nova Cor';
          Cores.Salvar;
          { Exemplo de Chamada de Método especifico }
          Cores.GetMetodo('Teste');