Writing history records

I have this task, I need to be able to write records to a history file everytime a user clicks on a specific button.

Basically these records are for verification/evidence incase one party comes back saying that they didn't get any info to go ahead processing.

The info can be passed back a forth between company A and B multiple times, so I need to be able to record every transaction.

Currently I have it working on new records but if I try to flip the record back to "A" it doesn't write a record.

01  General: 01-0610 > Set/ReSet Style Release Date and Status 

If [ Style_Main::Style_Status_Ownership = "Company A" ] 

Set Field [ Style_Main::Style_Status_Ownership; "Company B" ] 

Set Field [ Style_Main::Style_Release_Date; Get ( CurrentDate ) ] 

If [ IsEmpty (Style_Main::Style_Release_Date_Org) ] 

Set Field [ Style_Main::Style_Release_Date_Org; Get ( CurrentDate ) ] 

End If 

Else 

Set Field [ Style_Main::Style_Status_Ownership; "Company A" ] 

End If 

Set Field [ Style_Release_Date_History::SRD_Date; Get ( CurrentDate ) ] 

Set Field [ Style_Release_Date_History::SRD_TimeStamp; Get ( CurrentTimeStamp ) ] 

Set Field [ Style_Release_Date_History::SRD_Program; Style_Main::Style_ID_Style_Code ] 

Set Field [ Style_Release_Date_History::SRD_Style; Style_Main::Style_ID_Style_Number ] 

Set Field [ Style_Release_Date_History::SRD_User; Get ( UserName ) ] 

Set Field [ Style_Release_Date_History::SRD_ReleasedFrom; Style_Main::Style_Status_Ownership ] 

Set Field [ Style_Release_Date_History::SRD_ReleasedTo; Style_Main::Style_Status_Ownership ] 

Commit Records/Requests 

[ No dialog ] 

The main file is connected via SRD_Program field

Style_Release_Date_History 

Field Name Field Type Formula / Entry Option 

SRD_Date Date 

SRD_LastRepetition# Number 

SRD_OrgRelDate Date 

[u][b]SRD_Program Text Indexed[/b][/u] 

SRD_ReleasedFrom Text 

SRD_ReleasedTo Text 

SRD_Serial# Number 

SRD_Style Text 

SRD_TimeStamp Timestamp 

SRD_User Text 

Do I need another key field?

Thanks

Michael