Macrobook: BC_Local

Macro name: Acq-Exporting

***************************************************

'MacroName:Acq-Exporting

'MacroDescription:Macro for acq exported records: insert 950, export record, and close record without saving the edit

sub main

dim CS as Object

Set CS = CreateObject("CatME.Application")

CS.GetActiveRecord

bool = CS.AddField (30, "950     ACQ-EXPORTED")

bool = CS.Export

bool = CS.CloseRecord (FALSE)

end sub