Dim payslipRow As PayslipVO = Nothing
Dim changedItem = changedItems.GetChangedItemByFields(payslipRow, Payslip.EmployeeId_Entity, Payslip.EmployeeStamp_Entity)
If changedItem IsNot Nothing AndAlso Not payslipRow.payslipdate.IsVoid Then
If payslipRow.earnings.count > 0 Then
For Each earning As EarningVO In payslipRow.earnings
If earning.earningcodecode = "R009" Then
earning.amount = 125.45
earning.obs = "Alterado via framework"
End If
Next
End If
End If