Hola gente...
Estoy usando Delphi 5 Enterprise con Firebird 2.0 y tres TIBDataSet
conectados a un TIBDataBase y a un TIBTransaction.
Con el primer IBDataSet hago un simple :
IBCabecera.Append ;
//Carga de datos a tabla...
IBCabecera.FieldByName('FECHA').AsDateTime :=
StrToDate(edtFechaPrincipal.Text) ;
IBCabecera.FieldByName('TIPO').AsString := 'I' ;
IBCabecera.FieldByName('CODE_CONCEPTO').AsInteger := Code_Concepto ;
IBCabecera.FieldByName('CONCEPTO').AsString := Concepto ;
IBCabecera.FieldByName('CUIT').AsString := Cuit ;
IBCabecera.FieldByName('IMPORTE').AsFloat := TotalComprobantes ;
// IBCabecera.Post ; // Esta linea fué comentada para evitar errores...
IBCabecera.ApplyUpdates ;
IBCabecera.CachedUpdates := True ;

Esto lo graba bien en los dos primeros registros de la tabla, después,
por cada registro que quiero agregar a la tabla, me los duplica.
Este TIBDataSet tiene asociado, en la base de datos, un generador y un
disparador para un campo autoincremental, lo cual funciona perfectamente.
Si hay alguna pista que me puedan dar, agradecido.
Saludos.
Walter.