Tengo un TFDconnection y un TFDTransaction y a su vez varios TFDQuery .
En un principio, no tengo problemas para ejecutar este trozo de programa
Código Delphi
[-]procedure TFModulo.Write_New_Order(NUMPE:integer);
begin
New_Order.close;
New_Order.SQL.clear;
New_Order.SQL.add('UPDATE ORDERS SET N_FABRIC_S=:N_FABRIC_S,N_CLIENT_S=:N_CLIENT_S,CALIDAD=:CALIDAD');
New_Order.SQL.add('WHERE N_PEDIDO='+''''+IntToStr(NUMPE)+'''');
New_Order.ParamByName('N_FABRIC_S').AsString := '1234';
New_Order.ParamByName('N_CLIENT_S').AsString := 'Pako';
New_Order.ParamByName('CALIDAD') .AsString := 'Good';
New_Order.EXECSQL;
FModulo.FDTransaction.commitretaining;
end;
Pero a cierto tiempo, me empieza a saltar este error :
Project prueba.exe raised exception class EIBNativeException with message '[FireDAC][Phys][FB] lock conflict on no wait transaction deadlock update conflicts with concurrent update
y no hay manera que se restablezca de nuevo.
Salgo del programa y vuelvo arrancarlo ,va bien de nuevo (con los mismos datos).
Alguna idea de que puede ser???
Windows 10 , Delphi 10.2 y Firebird 2.5