Datasnap Rest

[lealdl]

Pessoal, boa noite!

Estou desenvolvendo um app em delphi com datasnap. 

Criei a seguinte rotina para atualizar uma tabela de chamados. Preciso que, ao atualizar, est atualize o STATUS para 'FECHADO'.

No browser, a função funciona direitinho, mas quando testo no client, dá o aviso "chamado NÃO aualizado"

Alguém poderia me dar uma mão? Ao meu ver, está tudo certinho.

Aguardo, Luciano D. Leal

Abços!

 

//no servidor:

function UpdateChamado(cham_id:integer; cham_cliente :string; cham_nomecli :String;cham_endereco:String;cham_bairro:string;cham_cep:string;cham_telefone:string;cham_numero :String;cham_emai:string; cham_marca :string; cham_modelo :String;cham_equip :String;cham_descricao :String; cham_data :String; cham_codigo :String; status :String):Integer;
//
function TServerMethods1.UpdateChamado(cham_id:integer; cham_cliente :string; cham_nomecli :String;cham_endereco:String;cham_bairro:string;cham_cep:string;cham_telefone:string;cham_numero :String;cham_emai:string; cham_marca :string; cham_modelo :String;cham_equip :String;cham_descricao :String; cham_data :String; cham_codigo :String; status :String): Integer;
begin

Result :=-1;

FDQuery2.Close;
FDQuery2.sql.Clear;
FDQuery2.sql.Add('UPDATE CHAMADOS SET status =:status where cham_id =:cham_id');

FDQuery2.ParamByName('cham_id').Asinteger :=cham_id;

FDQuery2.ParamByName('status').AsString :='FECHADO';

FDQuery2.ExecSQL;

  FDQuery2.Close;
end;

// No cliente (Botão ATUALIZA CHAMADO)

procedure TForm1.SpeedButton41Click(Sender: TObject);
var
cham_id:integer;
cham_cliente,cham_nomecli,cham_endereco,cham_bairro,cham_cep,cham_telefone,cham_numero,cham_email,cham_marca,cham_modelo,cham_equip,cham_descricao,cham_data,cham_codigo,status:string;
Result :Integer;
begin

   ClientREST :=TServerMethods1Client.Create(ClientModule1.DSRestConnection1);
   Result :=ClientREST.UpdateChamado(cham_id,cham_cliente,cham_nomecli,cham_endereco,cham_bairro,cham_cep,cham_telefone,cham_numero,cham_email,cham_marca,cham_modelo,cham_equip,cham_descricao,cham_data,cham_codigo,status);

     if Result > -1 then
     begin
     ShowMessage('Chamado Atualizado!')
     end
     else
      ShowMessage('Chamado NÃO Atualizado!');

end;

     else
      ShowMessage('Chamado NÃO Atualizado!');

end;

[António João Silva]

No servidor, está a inicializar o RESULT'ado a -1 mas não o muda, independentemente do desfecho da função.
Assim, no cliente, o IF vai dar sempre a mesma mensagem.