Function | FF_ParseAndFill(ByVal rsDets As ADODB.Recordset, ByVal typ As Integer, Optional bMsg As Boolean = False) As String |
---|---|
Public Function FF_ParseAndFill(ByVal rsDets As ADODB.Recordset, ByVal typ As Integer, Optional bMsg As Boolean = False) As String Select Case m_oApplication.FlowFact_InitType Case INITTYPE_APPLICATION FF_ParseAndFill = m_oApplication.FlowFact_Application.ParseAndFill(rsDets, typ, bMsg) Case INITTYPE_CONNECTOR FF_ParseAndFill = m_oApplication.FlowFact_Connector.ParseAndFill(rsDets, typ, bMsg) Case Else RaiseError_NotInit End Select End Function |