TPHServerClass
O objeto TPHServerClass serve para utilização de qualquer classe de negocio presente no servidor. A partir do cadastro informado na criação do objeto, o sistema instancia a classe de servidor que consta do cadastro, e podes utilizar as propriedades e métodos abaixo, além da chamada de procedimento de cada classe através do procedimento "GetMetodo(Metodo:String)". A classe TPHServerClass é suportada apenas quando executado no servidor, sendo assim deve-se realizar implementação em um script especifico, e a chamada do script no cliente deverá ocorrer através do classe TPHProcScript.
Propriedades
Nome | Tipo | Descrição |
---|---|---|
ID | Int64 | Corresponde ao ID do registro (Opcional). |
Procedimentos
- NovoRegistro: Iniciar a 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
var Cores:TPHServerClass; begin IniciarTransacao; try Cores := NewPHServerClass('CORES'); try Cores.NovoRegistro; Cores.CampoDoNome('NOME').AsString := 'Nova Cor'; Cores.Salvar;
Cores.GetMetodo('Teste'); finally Cores.Free; end;
ConfirmarTransacao; except CancelarTransacao; RaiseException(MensagemErro); end; end;