.NET (Core and Framework)

If savRequestData.PropRequestWage IsNot Nothing Then
                               wagesegment = New List(Of ReqWage)
                               For Each temp In savRequestData.PropRequestWage
                                   Dim wage As New ReqWage
                                   wage.DailyWage = IIf(Not String.IsNullOrEmpty(temp.DailyWage), IIf(Decimal.TryParse(temp.DailyWage, tempDecimal), tempDecimal, CType(Nothing, System.Nullable(Of Decimal))), CType(Nothing, System.Nullable(Of Decimal)))
                                   wage.RequestId = request_Id
                                   wage.WorkDate = temp.WorkDate
                                   wage.WorkHours = IIf(Not String.IsNullOrEmpty(temp.WorkHours), IIf(Decimal.TryParse(temp.WorkHours, tempDecimal), tempDecimal, CType(Nothing, System.Nullable(Of Decimal))), CType(Nothing, System.Nullable(Of Decimal)))
                                   wagesegment.Add(wage)
                                   requestedamount += IIf(temp.DailyWage IsNot Nothing, temp.DailyWage, 0)
                               Next
                            End If

static public int boxCount = 0;
static public TextBox[] tbox = new TextBox[16];
private void Form1_Load(object sender, EventArgs e)
{
 tbox[0] = textBox1;
 tbox[1] = textBox2;
 tbox[2] = textBox3;
 boxCount = 3;
}

private void loadBoxes()
{
 for (int x = 0; x < boxCount; x++)
 {
  if (tbox[x].Text == "")
   tbox[x].Text = "0";
 }
}

Using _databasefactory As New DatabaseFactory()
    Dim context = _databasefactory.DatabaseContext

    If Not String.IsNullOrEmpty(temp_doc_id) And Not String.IsNullOrEmpty(doc_id) Then
        Dim reqs = (From r In context.requests Where r.claim.claim_no.Equals(claim_no) And r.temp_doc_id.Equals(temp_doc_id)) 'r.empl_accnt_no.Equals(emplacctnumber) and _

        Dim i = reqs.Count()
        If Constants.EnableLogger And logr IsNot Nothing And Constants.DirectoryExists(Constants.GetLoggerDirectory()) Then
            logr.log(1, "Begin RequestEntity : UpdateOrInsertRequestDocId, claim_no, temp_doc_id, i: " + claim_no + ", " + temp_doc_id + ", " + i.ToString())
        End If

        If Constants.EnableLogger And logr IsNot Nothing And Constants.DirectoryExists(Constants.GetLoggerDirectory()) Then
            logr.log(1, "Inserting RequestEntity : UpdateOrInsertRequestDocId emplacctnumber, ManualClaimNo, doc_id, temp_doc_id, request_status, requestreceivedhow: " + _
                     emplacctnumber + ", " + ManualClaimNo.ToString + ", " + doc_id + ", " + temp_doc_id + ", " + request_status + ", " + requestreceivedhow)
        End If

        Dim res = 0
        If reqs Is Nothing Then
            Dim rq = New request()
            rq.claim = (From r In context.claims Where r.claim_no.Equals(claim_no)).FirstOrDefault()
            rq.empl_accnt_no = emplacctnumber
            rq.manual_claim_no = ManualClaimNo
            rq.doc_id = doc_id
            rq.temp_doc_id = temp_doc_id
            rq.request_status = request_status '"OANEW"
            rq.request_received_how = requestreceivedhow
            rq.last_update_ts = DateTime.Now
            rq.created_ts = DateTime.Now
            rq.created_by = created_by
            rq.last_updated_by = lastupdated_by
            rq.comments = String.Empty
            context.AddTorequests(rq)

            If Constants.EnableLogger And logr IsNot Nothing And Constants.DirectoryExists(Constants.GetLoggerDirectory()) Then
                logr.log(1, "Inserting RequestEntity : UpdateOrInsertRequestDocId emplacctnumber, ManualClaimNo, doc_id, temp_doc_id, request_status, requestreceivedhow: " + _
                         emplacctnumber + ", " + ManualClaimNo.ToString + ", " + doc_id + ", " + temp_doc_id + ", " + request_status + ", " + requestreceivedhow)
            End If

            Return context.SaveChanges()
        ElseIf reqs.Count() <= 0 Then
            Dim rq = New request()
            rq.claim = (From r In context.claims Where r.claim_no.Equals(claim_no)).FirstOrDefault()
            rq.empl_accnt_no = emplacctnumber
            rq.manual_claim_no = ManualClaimNo
            rq.doc_id = doc_id
            rq.temp_doc_id = temp_doc_id
            rq.request_status = request_status '"OANEW"
            rq.request_received_how = requestreceivedhow
            rq.last_update_ts = DateTime.Now
            rq.created_ts = DateTime.Now
            rq.created_by = created_by
            rq.last_updated_by = lastupdated_by
            rq.comments = String.Empty

            If Constants.EnableLogger And logr IsNot Nothing And Constants.DirectoryExists(Constants.GetLoggerDirectory()) Then
                logr.log(1, "Inserting RequestEntity : UpdateOrInsertRequestDocId, emplacctnumber, ManualClaimNo, doc_id, temp_doc_id, request_status, requestreceivedhow: " + _
                         emplacctnumber + ", " + ManualClaimNo.ToString + ", " + doc_id + ", " + temp_doc_id + ", " + request_status + ", " + requestreceivedhow)
            End If

            context.AddTorequests(rq)
            Return context.SaveChanges()
        Else
            Dim rq = reqs.FirstOrDefault()
            rq.doc_id = doc_id
            res = context.SaveChanges()
            Return res
        End If
    End If
End Using