是否通过AL代码添加跟踪规范行？

Question

我正在尝试通过代码添加跟踪规范条目；

rec_trackingspec.init();

                                                      if rec_trackingspec2.FindLast() then
                                                          rec_trackingspec."Entry No." := rec_trackingspec2."Entry No." + 1 else
                                                          rec_trackingspec."Entry No." := 1;
                                                     

                                                      rec_trackingspec."Creation Date" := WorkDate();
                                                      rec_trackingspec.Positive := true;
                                                      rec_trackingspec.Validate("Item No.", rec_SalesLine."No.");
                                                      rec_trackingspec.Validate("Lot No.", rec_itemledgerentry."Lot No.");
                                                      rec_trackingspec."Location Code" := 'MAIN';
                                                
                                                      rec_trackingspec.Validate("Quantity (Base)", rec_SalesLine.Quantity);
                                                      rec_trackingspec.Validate("Bin Code", rec_SalesLine."Bin Code");
                                                      rec_trackingspec."Source Ref. No." := rec_SalesLine."Line No.";
                                                
                                                      rec_trackingspec.Insert(true);

通过调试器检查，我看到Insert(true)被执行，但是当我去检查Tracking Spec是否有我想要插入的行时，它没有在那里显示条目。

Answer 1

检查INSERT后是否有代码可以像错误命令一样撤销所有更改。

Answer 2

对于这类问题，我通常倾向于使用SQL Server。

• 使用调试器，调试在SQL Server上运行的insert
• ，您应该会看到插入的记录。

SELECT * FROM [Table Name] with (nolock) WHERE [KeyFields]

• 然后在调试器中按F5它应该会在发生错误的地方停止并删除记录，如果没有类似的情况发生，请使用F11检查一些代码行并检查数据库中的记录是否仍然存在，直到找到哪一行删除了记录。

但可能在这么多天里你已经弄明白了。