--------------------------------------------------------------------------------------------------------
        Dim drs(), dr As DataRow
        drs = Main202001.Tables("FIRT_QUOT_OBJ").Select("IADRSEQ = " & UTF.Quote(IADRSEQ) & _
                                                        " AND IUSEPURP = " & UTF.Quote(IUSEPURP) & _
                                                        " AND ICLASS = " & UTF.Quote(ICLASS) & _
                                                        " AND IPROP=" & UTF.Quote("3"))
        For Each dr In drs
            If Decimal.Parse(UTF.GetColumnText(dr, "QFLTDEVD", "100")) < 100D Then
                UTF.SetColumnText(drMain, "FFLOW", "Y")
                UTF.SetColumnText(drOBJ, "FFLOW", "Y")
                UTF.SetColumnText(dr, "FFLOW", "Y")
            Else
                UTF.SetColumnText(dr, "FFLOW", "N")
            End If
        Next

--------------------------------------------------------------------------------------------------------
drPREMs = Main202001.Tables("PUBT_QUOT_PREM").Select("IADRSEQ='" & IADRSEQ & "' AND IINSTYP NOT IN ('FA0',  'FA8')")