buenas, estoy teniendo un problema que no estoy pudiendo ubicar
Código Delphi
[-]
dsCONSULTA.close;
qyCONSULTA.SQL.Clear;
qyCONSULTA.SQL.Add( 'SELECT * FROM PRODUCCION' );
qyCONSULTA.SQL.Add( 'WHERE EMPRESA=0 ' );
qyCONSULTA.SQL.Add( ' AND ID_REG=0 ' );
qyCONSULTA.SQL.Add( ' AND BORRADO=0 ' );
qyCONSULTA.SQL.Add( 'ORDER BY ' );
qyCONSULTA.SQL.Add( ' EMPRESA' );
qyCONSULTA.DataSet.Open;
dsCONSULTA.DataSet.Append;
dsCONSULTA.DataSet.FieldByName('EMPRESA').Value := pEmpresa;
dsCONSULTA.DataSet.FieldByName('ID_REG').Value := pID_REG;
dsCONSULTA.DataSet.FieldByName('ORDEN').Value := pOrden;
dsCONSULTA.DataSet.FieldByName('ITEM').Value := pItem;
dsCONSULTA.DataSet.FieldByName('A_UTILIZAR').Value := pAUtilizar;
dsCONSULTA.DataSet.FieldByName('CANTIDAD').Value := 0;
dsCONSULTA.DataSet.Post;
qyCONSULTA.Edit;
dsCONSULTA.DataSet.Edit;
dsCONSULTA.DataSet.First;
while ( not dsCONSULTA.DataSet.Eof ) do begin
if (dsCONSULTA.DataSet.FieldByName('CANTIDAD').AsFloat <= 0) then begin
porcentaje := CalculoPorcentaje;
dsCONSULTA.DataSet.FieldByName('CANTIDAD').Value := porcentaje * pUtilizado;
end;
dsCONSULTA..DataSet.Next;
end;
dsCONSULTA.DataSet.Post;
end;
pero me dice que la query no está en modo insert o edit.
pero como??? si ya le di el edit mas arriba ???
gracias