...
// Delete the following lines.
CALCFIELDS(
"Quantity (Base)","Pick Quantity (Base)","Negative Adjmt. Qty. (Base)",
"Put-away Quantity (Base)","Positive Adjmt. Qty. (Base)");
IF "Quantity (Base)" <> 0 THEN
ERROR(Text000,TABLECAPTION);
IF ("Pick Quantity (Base)" <> 0) OR ("Negative Adjmt. Qty. (Base)" <> 0) OR
("Put-away Quantity (Base)" <> 0) OR ("Positive Adjmt. Qty. (Base)" <> 0)
THEN
ERROR(Text001,TABLECAPTION);
// End of the lines.
...
...
// Add the following lines.
BinContent := Rec;
BinContent.CALCFIELDS(
"Quantity (Base)","Pick Quantity (Base)","Negative Adjmt. Qty. (Base)",
"Put-away Quantity (Base)","Positive Adjmt. Qty. (Base)");
IF BinContent."Quantity (Base)" <> 0 THEN
ERROR(Text000,TABLECAPTION);
IF (BinContent."Pick Quantity (Base)" <> 0) OR (BinContent."Negative Adjmt. Qty. (Base)" <> 0) OR
(BinContent."Put-away Quantity (Base)" <> 0) OR (BinContent."Positive Adjmt. Qty. (Base)" <> 0)
THEN
ERROR(Text001,TABLECAPTION);
// End of the lines.
...