[[Caral]]

Hola
Segun entiendo el problema dices sigue estando en esta parte:

Código Delphi [-]
 QueryTrab:='Update cuen01 set Fecha_venc=Fecha_apli+:dias Where cclie= :cclie And Docto= :docto';
                       Query1.Close;
                       Query1.SQL.Clear;
                       Query1.SQL.Add(Querytrab);
                       Query1.ParamByName('docto').AsString:=  Query1.FieldByName('docto').AsString;
                       Query1.ParamByName('cclie').AsString:=Edit1.Text;
                       Query1.ParamByName('dias').AsInteger:=StrtoInt(Edit4.Text);
                       Query1.ExecSQL;

Me dices si me equivoco.?
Pra mi el problema esta aqui, si es asi, verdad:

Código Delphi [-]
Query1.ParamByName('docto').AsString:=  Query1.FieldByName('docto').AsString;

Se saca la informacion del mismo sitio donde se pide, es la misma, para mi curioso.
Saludos