cmd.CommandText = ("test.transpos1.get_mob_file")
  cmd.CommandType = CommandType.StoredProcedure
  OracleCommandBuilder.DeriveParameters(cmd)
 cmd.Parameters("p_pos_id").Value = posid
            cmd.Parameters("p_shop_no").Value = ShopNum
            cmd.Parameters("p_cassa_no").Value = CassaNo
            cmd.Parameters("p_ip").Value = IPNO
 cmd.ExecuteNonQuery()
            p_msg_id = cmd.Parameters("p_msg_id").Value        ' тут получаю изходящие значения из оракла у которых статус 2
            p_msg_type = cmd.Parameters("p_msg_type").Value
            p_lob = cmd.Parameters("p_lob").Value
  If p_msg_id = True Then
                IO.File.WriteAllText(testfile, p_lob, System.Text.Encoding.GetEncoding(1251))
                Form1.log("Файл получен и сохранен как:" & p_msg_id)
            Else
                Exit Sub
end if
  If IO.File.Exists(testfile) = True Then          ' если файл создан предаю в оракл цифру 4 и статус обновляется до 4
                statcmd.Parameters("p_msg_id").Value = p_msg_id
                statcmd.Parameters("p_status_id").Value = 4
end if

 Dim conn As New OracleConnection(oradb)
        Dim cmd As New OracleCommand
        Dim testxml As New System.Xml.XPath.XPathDocument("C:\config.xml")
        ShopNum = testxml.CreateNavigator.SelectSingleNode("config/dbno").Value
        CassaNo = testxml.CreateNavigator.SelectSingleNode("config/cassaNO").Value
        dbName = testxml.CreateNavigator.SelectSingleNode("config/dbName").Value
        IPNO = testxml.CreateNavigator.SelectSingleNode("config/ipNO").Value
        posid = testxml.CreateNavigator.SelectSingleNode("config/po_id").Value
        cmd.Connection = conn
        Try
            conn.Open()
            cmd.CommandText = ("test.transpos1.get_mob_file")
            cmd.CommandType = CommandType.StoredProcedure
            OracleCommandBuilder.DeriveParameters(cmd)
            cmd.Parameters("p_pos_id").Value = posid
            cmd.Parameters("p_shop_no").Value = ShopNum
            cmd.Parameters("p_cassa_no").Value = CassaNo
            cmd.Parameters("p_ip").Value = IPNO
            Dim reader As OracleDataReader = cmd.ExecuteReader()
            p_msg_id = cmd.Parameters("p_msg_id").Value
            p_msg_type = cmd.Parameters("p_msg_type").Value
            p_lob = cmd.Parameters("p_lob").Value
            MessageBox.Show(p_msg_id)     ' на этом моменте показывает данные переменной
            'If reader.HasRows Then
            Do While reader.Read()
                testfile = "C:\test\in\" & p_msg_id & ".txt"    ' а тут уже нет
                'If p_msg_id = True Then
                IO.File.WriteAllText(testfile, p_lob, System.Text.Encoding.GetEncoding(1251))
                log("Файл получен и сохранен на кассе как:" & p_msg_id)
            Loop
            reader.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

 Do While reader.Read()

                MessageBox.Show(reader.GetInt32(0))   ' так тоже ничего
                'If p_msg_id = True Then
                IO.File.WriteAllText(testfile, reader.GetString(1), System.Text.Encoding.GetEncoding(1251))
                log("Файл получен и сохранен на кассе как:" & p_msg_id)
            Loop

cmd.CommandText = ("test.transpos1.get_mob_file")
            cmd.CommandType = CommandType.StoredProcedure
            OracleCommandBuilder.DeriveParameters(cmd)
            cmd.Parameters("p_pos_id").Value = posid
            cmd.Parameters("p_shop_no").Value = ShopNum
            cmd.Parameters("p_cassa_no").Value = CassaNo
            cmd.Parameters("p_ip").Value = IPNO
            cmd.Parameters.Add("p_msg_id", OracleDbType.NChar).Direction = ParameterDirection.Output
            cmd.Parameters.Add("p_msg_type", OracleDbType.NChar).Direction = ParameterDirection.Output
            cmd.Parameters.Add("p_lob", OracleDbType.Clob).Direction = ParameterDirection.Output
            Dim reader As OracleDataReader = cmd.ExecuteReader

procedure get_mob_file(p_pos_id in number, p_shop_no in number, p_cassa_no in number, p_ip in varchar2, 
  p_msg_id out number, p_msg_type out number, p_lob out clob)

 conn.Open()
            cmd.CommandText = ("test.transpos1.get_mob_file")
            cmd.CommandType = CommandType.StoredProcedure
            OracleCommandBuilder.DeriveParameters(cmd)
            cmd.Parameters("p_pos_id").Value = posid
            cmd.Parameters("p_shop_no").Value = ShopNum
            cmd.Parameters("p_cassa_no").Value = CassaNo
            cmd.Parameters("p_ip").Value = IPNO
            Dim reader As OracleDataReader = cmd.ExecuteReader
            p_msg_id = cmd.Parameters("p_msg_id").Direction = ParameterDirection.Output
            p_msg_type = cmd.Parameters("p_msg_type").Direction = ParameterDirection.Output
            p_lob = cmd.Parameters("p_lob").Direction = ParameterDirection.Output
            MessageBox.Show(p_msg_id)    ' тут пишет true
            'If reader.HasRows Then

            Do While reader.Read()
                testfile = "C:\test\in\" & reader.GetInt32(0) & ".txt"
                MessageBox.Show(reader.GetInt32(0))
                'If p_msg_id = True Then
                IO.File.WriteAllText(testfile, reader.GetString(1), System.Text.Encoding.GetEncoding(1251))
                log("Файл получен и сохранен на кассе как:" & p_msg_id)
            Loop

 Try
            conn.Open()
            cmd.CommandText = ("test.transpos1.get_mob_file")
            cmd.CommandType = CommandType.StoredProcedure
            'OracleCommandBuilder.DeriveParameters(cmd)
            cmd.Parameters.Add("p_pos_id", OracleDbType.Int32, 20).Value = posid
            cmd.Parameters.Add("p_shop_no", OracleDbType.Int32, 20).Value = ShopNum
            cmd.Parameters.Add("p_cassa_no", OracleDbType.Int32, 20).Value = CassaNo
            cmd.Parameters.Add("p_ip", OracleDbType.NVarchar2, 20).Value = IPNO
            cmd.Parameters.Add("p_msg_id", OracleDbType.Int32, 20).Direction = ParameterDirection.Output
            cmd.Parameters.Add("p_msg_type", OracleDbType.Int32, 20).Direction = ParameterDirection.Output
            cmd.Parameters.Add("p_lob", OracleDbType.Clob).Direction = ParameterDirection.Output
                  
            While reader.Read()
                MessageBox.Show(reader.GetInt32(0))
                'MessageBox.Show(p_msg_id)
                testfile = "C:\test\in\" & p_msg_id & ".txt"
                IO.File.WriteAllText(testfile, p_lob, System.Text.Encoding.GetEncoding(1251))
                log("Файл получен и сохранен на кассе как:" & p_msg_id)
            End While
            reader.Close()