[rotsen26]

Empezado por ecfisa

Hola rotsen26.

Es posible... el código que te puse es orientativo, no todos los componentes poseen las mismas propiedades y métodos. Algunos, como por ejemplo TADOQuery, no admiten la propiedad AsString en los parámetros. Y entre los detalles que has omitido está el tipo de componentes con los que te conectas (también que SGBD estas usando).

Intentá de este modo:

Código Delphi [-]
ParamByName('PSTATUS').Value:= 'DEV';

Si no funciona, comentanos con que componentes y SGBD estas trabajando

Prácticamente no hay límites en los caracteres que podes incluir en un mensaje, acostumbrate a detallar minuciosamente el problema y el ambiente en que se produce. Cuanta mas información brindes sobre la situación mas rápidamente se solucionará.

Saludos.

Exactamente ese código utilicé, y ya me funciona, bueno, me funciona a medias.. Porque de hace 2 días a hoy, hace la deolucion de mercancia, pero hace de todo lo que se había agregado, y antes solo me devolvía la que se seleccionaba...

Te pongo el codigo que estoy utilizando!!!

Código Delphi [-]
  if sendMessage('Información','¿Está seguro de devolver el Artículo?',mb_yesno + mb_iconquestion)= IDNO then
     exit;
 with qry_dev do
  begin
    Close;
    SQL.Clear;
    SQL.Add('UPDATE DET_CONSUMO dc, det_alm_art daa SET dc.ESTATUS = :PSTATUS, dc.comentario=: DBMemo1, daa.existencia=:exi');
    SQL.Add('WHERE PK_CONSUMO = :PCONSUMO');
    Parameters.ParamByName('PSTATUS').Value := 'DEV';
    Parameters.ParamByName('DBMemo1').Value := DBMemo1.Text;
    Parameters.ParamByName('PCONSUMO').Value := qry_consumo.FieldByName('PK_CONSUMO').Value;
    Parameters.ParamByName('exi').Value:=(qry_consumoexistencia.Value)+1;
    ExecSQL;
  end;

despegué los : de memo porque ponía una carita!!!