|
ante todo gracias marcos por tu rapida respuesta.
En relacion a tu consejo :
1.- si quito ADOQystocks.Active ocurre lo mismo.
2.- si pongo el ADOQystocks.Edit me da el error "ADOQyStocks: Cannot perfom this operation on a closed dataset'.
ADOConec: TADOConnection; ADOQyArticles: TADOQuery; DSarticles: TDataSource; ADOQyStocks: TADOQuery; DSstocks: TDataSource; while not ADOQyArticles.Eof do begin ADOQystocks.SQL.Clear; ADOQyStocks.SQL.Add('update F_ARTSTOCK ' + ' set AS_QTEMINI= :Parm_min,AS_QTEMAXI= :Parm_max ' + ' where AS_PRINCIPAL = 1 ' + ' AND AR_REF = '+ #39 + codrefe + #39 ); ADOQyStocks.Parameters.ParamValues['Parm_min'] := round (dias_min * venta_dia); ADOQyStocks.Parameters.ParamValues['Parm_max'] := round (dias_max * venta_dia); ADOQyStocks.ExecSQL; //ADOQystocks.Active; Esto te sobra //si sigue dando error pon añade: AdoQyStocks.Edit; AdoQyStocks.Post; ADOQyArticles.Next; end; ADOConec.CommitTrans; Gracias por la ayuda prestada
|