Fórum Problema com Foreign Key #471123

procedure TF_FormKit.btnSalvarClick(Sender: TObject);
begin
  with DMPrin do
    begin
        //Cadastro do KIT
        cds_Cadkit.Open;
        cds_Cadkit.Append;
        cds_CadKitID_FUNCIONARIO.Value:= DMPesq.cds_PesqFuncionarioID_FUNCIONARIO.Value;
        cds_CadKitNOMBRE.AsString:= edtNomeKit.Text;
        cds_CadKitFECHA.AsDateTime := strtodate(formatdatetime('dd/mm/yyyy',now));
        cds_CadKitVALOR_TOTAL.AsFloat := StrToFloat(edtTotalValorKit.Text);

          // Cadastro do DETALLE_KIT

          cds_Itens.First;
          while not cds_Itens.eof do
          begin
            cds_CadDetalle_Kit.Append;
            cds_CadDetalle_KitID_PRODUCTO.Value:= cds_ItensID_Producto.Value;
            cds_CadDetalle_KitCANTIDAD.AsFloat:= cds_ItensQuantidade.AsFloat;
            cds_CadDetalle_KitPRECIO_COSTO.AsFloat:= cds_ItensPreco_Costo.AsFloat;
            cds_CadDetalle_KitPRECIO_MEDIO.AsFloat:= cds_ItensPreco_Medio.AsFloat;
            cds_CadDetalle_KitPRECIO_VENTA.AsFloat:= cds_ItensPreco_Venta.AsFloat;
            cds_CadDetalle_Kit.Post;
            cds_Itens.Next;
          end;

          cds_CadDetalle_Kit.ApplyUpdates(0);
          //cds_Itens.EmptyDataSet;
      end;
end;