DEFINE CLASS Col AS Collection lAllowLoad = .T. PROCEDURE lAllowLoad_Assign(tlNewVal) * Do not allow to turn it on again IF This.lAllowLoad AND NOT tlNewVal This.lAllowLoad = tlNewVal ENDIF ENDPROC PROCEDURE Add(eItem, cKey, eBeforere, eAfter) IF NOT This.lAllowLoad ERROR 1740 ENDIF ... ENDPROC ENDDEFINE>Sorry, I should elaborate more.
>
>oCustomer.LoadInvoices()
>oCustomer.oInvoices.lAllowLoad = .T.
>oCustomer.oInvoices.Add(...)
>
>