...
DimMgt.ValidateDimValueCode(FieldNo,ShortcutDimCode);
IF "Statement Line No." <> 0 THEN BEGIN
DimMgt.SaveJnlLineDim(
DATABASE::"Bank Acc. Reconciliation Line",COPYSTR("Bank Account No.",1,10),
COPYSTR("Statement No.",1,10),"Statement Line No.",0,FieldNo,ShortcutDimCode);
IF MODIFY THEN;
END ELSE
DimMgt.SaveTempDim(FieldNo,ShortcutDimCode);
...
...
DimMgt.ValidateDimValueCode(FieldNo,ShortcutDimCode);
IF "Statement Line No." <> 0 THEN BEGIN
OffSetL := STRLEN("Statement No.")-9;
IF OffSetL < 1 THEN
OffSetL := 1;
DimMgt.SaveJnlLineDim(
DATABASE::"Bank Acc. Reconciliation Line",COPYSTR("Bank Account No.",1,10),
COPYSTR("Statement No.",OffSetL,10),"Statement Line No.",0,FieldNo,ShortcutDimCode);
IF MODIFY THEN;
END ELSE
DimMgt.SaveTempDim(FieldNo,ShortcutDimCode);
...