No hay respuestas en este tema

[giulichajari]

Tengo en mi aplicacion cliente un Tsqlservermethod en el clientmodule, y el siguiente codigo:

delphi

procedure TForm4.BGuardarClick(Sender: TObject);
 
begin
  ClientModule1.nuevocheque.Create(nil);
  with ClientModule1.nuevocheque do
  begin
 
    ParamByName('idcliente').AsInteger:=1;
    ParamByName('numero').AsInteger:=StrToInt(ENumero.Text);
    ParamByName('cuenta').AsInteger:=StrToInt(Ecuenta.Text);
    ParamByName('idbanco').AsInteger:=1;
    ParamByName('titular').AsString:=ENombre.Text;
    ParamByName('cobrado').AsBoolean:=False;
    ParamByName('importe').AsFloat:=StrToFloat(EMonto.Text);
    ParamByName('fr').AsDate:=StrToDate(EFechaEmision.Text);
    ParamByName('fc').AsDate:=StrToDate(EFechacobro.Text);
 
 
 
  end;
  ClientModule1.nuevocheque.ExecuteMethod;
end;

Pero obtengo : Parameter idcliente not foun" y revisando la propiedad Params si estan todos los parametros del metodo al que hago referencia:

delphi

procedure TServerMethods1.nuevocheque(idcliente,numero,cuenta,idbanco : integer; fr,fc, titular:string ;importe:Double;cobrado:Boolean);
var
ucheque:integer;
begin
  with qicheque do
    begin
 
      ParamByName('idcliente').AsInteger:=idcliente;
      ParamByName('numero').AsInteger:=numero;
      ParamByName('fr').AsDate:=StrToDate(fr);
      ParamByName('fc').AsDate:=StrToDate(fc);
      ParamByName('importe').AsFloat:=importe;
      ParamByName('titular').AsString:=titular;
      ParamByName('cobrado').AsBoolean:=cobrado;
      ParamByName('cuenta').AsInteger:=cuenta;
 
      ExecSQL();
 
    end;
    with quc do
      begin
        ucheque:=quc.ExecSQL();
      end;
    with qicb do
      begin
 
        ParamByName('idcheque').AsInteger:=ucheque;
        ParamByName('idbanco').AsInteger:=idbanco;
        ExecSQL();
 
      end;
end;