PROCEDURE clsdtlbtns.cmdSave.Click >LOCAL cTempAlias,aFldStruct[1],oScatterObj,cAliasIn,tNewEMo,cOrder >cAliasIn = ALIAS() >cTempAlias = SYS(2015) >tNewEMo = thisform.txtEffMo.value >SELECT 0 >cOrder = ORDER('TAcustView') >=AFIELDS(aFldStruc,'TAcustView') >CREATE CURSOR (cTempAlias) FROM ARRAY aFldStruc >SELECT TAcustView >SET ORDER TO 0 >SCAN FOR actflag and ! EMPTY(assumer) > SCATTER NAME oScatterObj MEMO > WITH oScatterObj > * If any fields in TAcustView get filled automagically by defaults in > * the DBC at create, excluse them in SCATTER using the EXCEPT clause > * > .taid = .assumer > .assumer = '' > .effsysdt = DATETIME() > .effmo = tNewEmo > .user = gcUser > ENDWITH > SELECT (cTempAlias) > APPEND BLANK > GATHER NAME oScatterObj MEMO > SELECT TAcustView > repl endmo with tNewEMo, endsysdt with datetime(), actflag with .F. >ENDSCAN >* You never reprocess the new records, since they haven't been added yet >APPEND FROM (DBF(cTempAlias)) && pull in the cursor >USE IN (cTempAlias) >=tableupdate(1,.T.,"TAcustView") >SET ORDER TO &cOrder >LOCATE >thisform.showdetails(.F.) >IF ! EMPTY(cAliasIn) > SELECT (cAliasIn) >ELSE > SELECT 0 >ENDIF >ENDPROCHi Ed,