Reconfigure for GIT

This commit is contained in:
2017-03-26 20:00:03 +02:00
commit 00637826ab
8056 changed files with 535977 additions and 0 deletions
+153
View File
@@ -0,0 +1,153 @@
<?xml version="1.0"?>
<configuration>
<configSections>
<section name="CustomersGLParameters" type="System.Configuration.NameValueSectionHandler"/>
<section name="Services_Controlling" type="System.Configuration.NameValueSectionHandler"/>
<section name="Services_CostHolder" type="System.Configuration.NameValueSectionHandler"/>
<section name="Services_VAT" type="System.Configuration.NameValueSectionHandler"/>
</configSections>
<appSettings>
<!--Service name-->
<add key="ServiceName" value="SISBusinessRabbitMQServiceReader"/>
<add key="DisplayName" value="SISBusinessRabbitMQServiceReader"/>
<!--0=Reader, 1=Publisher, 2=Both-->
<add key="RunningMode" value="0"/>
<add key="Factory_HostName" value="node1.mq3c.hu"></add>
<add key="Factory_UserName" value="sis_testing"></add>
<add key="Factory_Password" value="Iet3ooko"></add>
<!--<add key="Factory_VirtualHost" value="sis_jatszos"></add>-->
<add key="Factory_VirtualHost" value="testing"></add>
<!--Fogadáshoz ...-->
<add key="Queue_Name" value="sis.sis3cteszt.rpc"></add>
<!--<add key="Queue_Name" value="sis.3cteszt.ugyfelteszt"></add>-->
<!--Küldéshez-->
<add key="Exchange_Name" value="sis.sis3cteszt.out"/>
<add key="Exchange_RoutingKey" value="dh.dh3cteszt.rpc"/>
<add key="Exchange_RoutingKey_Error" value="dh.dh3cteszt.rpc"/>
<add key="Exchange_RoutingKey_Alert" value="dh.dh3cteszt.rpc"/>
<!--<add key="Exchange_Name" value=""/>
<add key="Exchange_RoutingKey" value="RDBH.queue.ok"/>-->
<!--Egyéb-->
<add key="CustomersFrom" value="fa802589-acd5-437b-a8d9-cf2eb96af21c"/>
<!--0: CurrentDirectory-->
<add key="ErrorLogPath" value="Path=CurrentDirectory;FileName=WIN_RabbitMQ.log"/>
</appSettings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"></supportedRuntime>
</startup>
<connectionStrings>
<!--MySQL ConnectionString:-->
<add name="ConnectionString" connectionString="XpoProvider=MySql;server=sisb.banknet.net;user id=root; password=pcl718; database=3c_test;persist security info=true;CharSet=utf8;"/>
<!--MS SQL ConnectionString:-->
<!--<add name="ConnectionString" connectionString="User ID=sa; Application Name=; Password=pcl718; Pooling=false; Data Source=datacenter\sis; Initial Catalog=RabbitMQ"/>-->
<!--PostgreSQL ConnectionString:-->
<!--<add name="ConnectionString" connectionString="XpoProvider=Postgres;Server=datacenter;User Id=root;Password=pcl718;Database=RabbitMQ;Encoding=UNICODE;"/>-->
</connectionStrings>
<CustomersGLParameters>
<!--konyvelesi_parameter - CustomersGLParameters Oid-->
<add key="Belföldi" value="f949d751-52c1-4f0c-b9d3-3a189871fbd6"></add>
<add key="Külföldi" value="2d99e230-f607-4c00-a20b-156613c01839"></add>
</CustomersGLParameters>
<Services_Controlling>
<!--szolgaltatascsoport id - Controlling Oid-->
<!--CPS-->
<add key="1" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
<!--Egyéb szolgáltatások-->
<add key="2" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
<!--ADSL-->
<add key="3" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
<!--Micronet Wireless csomagok-->
<add key="4" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
<!--Micronet Eszközök -->
<add key="5" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
<!--Micronet Egyéb szolgáltatások-->
<add key="6" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
<!--Micronet Bérelt vonal-->
<add key="7" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
<!--Micronet ADSL-->
<add key="8" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
<!--CPS kiegészítő-->
<add key="9" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
<!--Micronet VoIp forgalmi díjak-->
<add key="10" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
<!--Késedelmi kamatok-->
<add key="11" value="a11b6fea-a0e9-4ed3-be42-8869db1081b5"></add>
<!--Domain alapszolgáltatás-->
<add key="12" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
<!--Domain kiegészítő szolgáltatás-->
<add key="13" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
<!--Jóváírások CPS-->
<add key="14" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
<!--Jóváírások MicroNet-->
<add key="15" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
<!--ADSL kiegészítő-->
<add key="16" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
<!--Eszköz eladások-->
<add key="17" value="9daf55a8-f2d3-4b3f-b313-76d08c25b19c"></add>
<!--Voip kiegészítő szolgáltatás-->
<add key="18" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
<!--Mironet Voip alapdíjak-->
<add key="19" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
<!--Mikroweb üzleti internet-->
<add key="20" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
<!--Mobil-->
<add key="21" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
<!--Mobil készülék értékesítés-->
<add key="22" value="b7f42ea4-5ae2-4618-bf21-8559b755f1f0"></add>
</Services_Controlling>
<Services_CostHolder>
<!--szolgaltatascsoport id - CostHolder Oid-->
<!--CPS-->
<add key="1" value="5c60d597-8e14-4d39-95e8-a92bef1a2aec"></add>
<!--Egyéb szolgáltatások-->
<add key="2" value="ba8725bc-7ab6-418c-a13f-6d8ef63e34ad"></add>
<!--ADSL-->
<add key="3" value="403d4efb-f901-4bfc-ad26-e390e2a27d97"></add>
<!--Micronet Wireless csomagok-->
<add key="4" value="42f88f83-6a8f-4f14-9866-84ea28332839"></add>
<!--Micronet Eszközök -->
<add key="5" value="42f88f83-6a8f-4f14-9866-84ea28332839"></add>
<!--Micronet Egyéb szolgáltatások-->
<add key="6" value="42f88f83-6a8f-4f14-9866-84ea28332839"></add>
<!--Micronet Bérelt vonal-->
<add key="7" value="42f88f83-6a8f-4f14-9866-84ea28332839"></add>
<!--Micronet ADSL-->
<add key="8" value="42f88f83-6a8f-4f14-9866-84ea28332839"></add>
<!--CPS kiegészítő-->
<add key="9" value="5c60d597-8e14-4d39-95e8-a92bef1a2aec"></add>
<!--Micronet VoIp forgalmi díjak-->
<add key="10" value="42f88f83-6a8f-4f14-9866-84ea28332839"></add>
<!--Késedelmi kamatok-->
<add key="11" value="ba8725bc-7ab6-418c-a13f-6d8ef63e34ad"></add>
<!--Domain alapszolgáltatás-->
<add key="12" value="9ce3596a-4191-481d-9b79-b8d6ebe07424"></add>
<!--Domain kiegészítő szolgáltatás-->
<add key="13" value="9ce3596a-4191-481d-9b79-b8d6ebe07424"></add>
<!--Jóváírások CPS-->
<add key="14" value="5c60d597-8e14-4d39-95e8-a92bef1a2aec"></add>
<!--Jóváírások MicroNet-->
<add key="15" value="42f88f83-6a8f-4f14-9866-84ea28332839"></add>
<!--ADSL kiegészítő-->
<add key="16" value="403d4efb-f901-4bfc-ad26-e390e2a27d97"></add>
<!--Eszköz eladások-->
<add key="17" value="ba8725bc-7ab6-418c-a13f-6d8ef63e34ad"></add>
<!--Voip kiegészítő szolgáltatás-->
<add key="18" value="dab9ed6f-b952-4d52-8cf3-73434d744723"></add>
<!--Mironet Voip alapdíjak-->
<add key="19" value="42f88f83-6a8f-4f14-9866-84ea28332839"></add>
<!--Mikroweb üzleti internet-->
<add key="20" value="e71fb1d7-d0b9-40c5-90ae-f4ee8359b359"></add>
<!--Mobil-->
<add key="21" value="dcdecd83-d583-422c-830c-6db2b48724b5"></add>
<!--Mobil készülék értékesítés-->
<add key="22" value="dcdecd83-d583-422c-830c-6db2b48724b5"></add>
</Services_CostHolder>
<Services_VAT>
<!--afanev - VAT Oid-->
<add key="27" value="7a0ed725-9286-4386-81b0-2e47457a0697"></add>
<add key="20" value="0131855a-f2a2-482b-81e5-4a1425f783c5"></add>
<add key="0" value="31a39772-68ad-424c-ae13-6ea72bdeafd1"></add>
<add key="25" value="43d67aa2-d601-4379-8dc0-c559ede493d4"></add>
</Services_VAT>
</configuration>
@@ -0,0 +1,6 @@
<?xml version ="1.0"?>
<configuration>
<startup useLegacyV2RuntimeActivationPolicy="true">
<supportedRuntime version="v4.0.30319"/>
</startup>
</configuration>
@@ -0,0 +1,10 @@
A szervizek telepítéséhez és eltávolításához az InstallUtil mappában lévő InstallUtil.exe-t kell használni. A telepítéskor a szerviz neve a telepítendő szerviz mappájában elhelyezett Service.exe.config fileban lévő kulcsok határozzék meg.
<appSettings>
<!--Service name-->
<add key="ServiceName" value="SISRabbitMQ$3C_RB_Publisher"/>
<add key="DisplayName" value="SISRabbitMQ$3C_RB_Publisher"/>
...
A szerviz viselkedését (küldés/fogadás) szint a config file-ban kell beállítani
<!--0=Reader, 1=Publisher-->
<add key="RunningMode" value="1"/>
Binary file not shown.

After

Width:  |  Height:  |  Size: 19 KiB

@@ -0,0 +1,8 @@
:: A telepíteni kívánt service-t
:: a …\InstallUtil\InstallUtil.exe file-al
:: lehet Windows Serviceként regisztrálni
installutil.exe Service.exe
pause
@@ -0,0 +1,8 @@
:: Az eltávolítani kívánt service-t
:: a …\InstallUtil\InstallUtil.exe /u file-al
:: lehet a Windows Service-kbõl eltávolítani
installutil.exe /u Service.exe
pause
@@ -0,0 +1,13 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.34003
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>false</MySubMain>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>3</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>
@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' General Information about an assembly is controlled through the following
' set of attributes. Change these attribute values to modify the information
' associated with an assembly.
' Review the values of the assembly attributes
<Assembly: AssemblyTitle("SISBusiness.RabbitMQ.Service")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("SISBusiness.RabbitMQ.Service")>
<Assembly: AssemblyCopyright("Copyright © 2014")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'The following GUID is for the ID of the typelib if this project is exposed to COM
<Assembly: Guid("7155e997-a553-4a03-a86a-0ca1698ed631")>
' Version information for an assembly consists of the following four values:
'
' Major Version
' Minor Version
' Build Number
' Revision
'
' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("13.2.6.1001")>
<Assembly: AssemblyFileVersion("13.2.6.1001")>
@@ -0,0 +1,63 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.18051
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("SISBusiness.RabbitMQ.ServiceApp.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
End Module
End Namespace
@@ -0,0 +1,117 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>
@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.18051
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.SISBusiness.RabbitMQ.Service.My.MySettings
Get
Return Global.SISBusiness.RabbitMQ.Service.My.MySettings.Default
End Get
End Property
End Module
End Namespace
@@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>
@@ -0,0 +1,55 @@
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<!-- UAC Manifest Options
If you want to change the Windows User Account Control level replace the
requestedExecutionLevel node with one of the following.
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
Specifying requestedExecutionLevel node will disable file and registry virtualization.
If you want to utilize File and Registry Virtualization for backward
compatibility then delete the requestedExecutionLevel node.
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
</security>
</trustInfo>
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
<application>
<!-- A list of all Windows versions that this application is designed to work with.
Windows will automatically select the most compatible environment.-->
<!-- If your application is designed to work with Windows Vista, uncomment the following supportedOS node-->
<!--<supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}"></supportedOS>-->
<!-- If your application is designed to work with Windows 7, uncomment the following supportedOS node-->
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>-->
<!-- If your application is designed to work with Windows 8, uncomment the following supportedOS node-->
<!--<supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}"></supportedOS>-->
</application>
</compatibility>
<!-- Enable themes for Windows common controls and dialogs (Windows XP and later) -->
<!-- <dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="*"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>-->
</asmv1:assembly>
@@ -0,0 +1,171 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{B38A4B1D-95AB-4658-BC8C-D8CC87B9C69A}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>SISBusiness.RabbitMQ.Service.WinService</StartupObject>
<RootNamespace>SISBusiness.RabbitMQ.Service</RootNamespace>
<AssemblyName>SISBusiness.RabbitMQ.Service</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>Console</MyType>
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
<SccProjectName>SAK</SccProjectName>
<SccLocalPath>SAK</SccLocalPath>
<SccAuxPath>SAK</SccAuxPath>
<SccProvider>SAK</SccProvider>
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>SISBusiness.RabbitMQ.Service.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>x86</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>SISBusiness.RabbitMQ.Service.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<ItemGroup>
<Reference Include="DevExpress.Data.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.ExpressApp.Xpo.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Persistent.Base.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Persistent.BaseImpl.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.Xpo.v15.2, Version=15.2.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="Newtonsoft.Json, Version=4.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\..\..\..\jSON\Bin\Net\Newtonsoft.Json.dll</HintPath>
</Reference>
<Reference Include="RabbitMQ.Client">
<HintPath>..\..\..\..\..\rabbirmq_client\bin\RabbitMQ.Client.dll</HintPath>
</Reference>
<Reference Include="RabbitMQ.ServiceModel">
<HintPath>..\..\..\..\..\rabbirmq_client\bin\RabbitMQ.ServiceModel.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Configuration" />
<Reference Include="System.Configuration.Install" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.ServiceProcess" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="WinInstaller.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="WinService.Designer.vb">
<DependentUpon>WinService.vb</DependentUpon>
</Compile>
<Compile Include="WinService.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="WinInstaller.resx">
<DependentUpon>WinInstaller.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="InstallServiceManual\install.bat" />
<None Include="InstallServiceManual\InstallUtil\InstallUtil.exe.config" />
<None Include="InstallServiceManual\uninstall.bat" />
<None Include="My Project\app.manifest" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\SISBusiness.RabbitMQ.Module\SISBusiness.RabbitMQ.Module.vbproj">
<Project>{ac6169db-f71a-4c6f-aa54-e21c3057e2a7}</Project>
<Name>SISBusiness.RabbitMQ.Module</Name>
</ProjectReference>
</ItemGroup>
<ItemGroup />
<ItemGroup>
<Content Include="InstallServiceManual\InstallUtil\InstallUtil.exe" />
<Content Include="InstallServiceManual\InstallUtil\InstallUtilLib.dll" />
<Content Include="InstallServiceManual\InstallUtil\readme.txt" />
<Content Include="InstallServiceManual\WindowsResourceKitHelp.png" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>
@@ -0,0 +1,10 @@
""
{
"FILE_VERSION" = "9237"
"ENLISTMENT_CHOICE" = "NEVER"
"PROJECT_FILE_RELATIVE_PATH" = ""
"NUMBER_OF_EXCLUDED_FILES" = "0"
"ORIGINAL_PROJECT_FILE_PATH" = ""
"NUMBER_OF_NESTED_PROJECTS" = "0"
"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER"
}
@@ -0,0 +1,129 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="serviceInstaller.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>189, 17</value>
</metadata>
<metadata name="serviceProcessInstaller.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
</root>
@@ -0,0 +1,64 @@
Imports System
Imports System.Configuration
Imports System.ServiceProcess
Imports System.Reflection
<System.ComponentModel.RunInstaller(True)> _
Public Class WinInstaller
Inherits System.Configuration.Install.Installer
Dim serviceInstaller As ServiceProcess.ServiceInstaller
Dim serviceProcessInstaller As ServiceProcess.ServiceProcessInstaller
Sub New()
InitializeComponent()
Me.Installers.Add(GetServiceInstaller)
Me.Installers.Add(GetServiceProcessInstaller)
End Sub
Private Function GetServiceProcessInstaller() As ServiceProcessInstaller
Dim _installer As New ServiceProcessInstaller
_installer.Account = ServiceAccount.LocalSystem
Return _installer
End Function
Private Function GetServiceInstaller() As ServiceInstaller
Dim _installer As New ServiceInstaller
Dim _service As Assembly
Dim _config As Configuration
_service = Assembly.GetAssembly(GetType(WinService))
_config = ConfigurationManager.OpenExeConfiguration(_service.Location)
_installer.ServiceName = _config.AppSettings.Settings("ServiceName").Value
_installer.DisplayName = _config.AppSettings.Settings("DisplayName").Value
_installer.Description = "SISBusines RabbitMQ Service for Customer and Invoice export / import"
_installer.StartType = ServiceStartMode.Automatic
Return _installer
End Function
Private Sub InitializeComponent()
' Me.serviceInstaller = New System.ServiceProcess.ServiceInstaller()
' Me.serviceProcessInstaller = New System.ServiceProcess.ServiceProcessInstaller()
' '
' 'serviceInstaller
' '
' Me.serviceInstaller.Description = "SISBusines RabbitMQ Service for Customer and Invoice export / import"
' Me.serviceInstaller.DisplayName = "_Liba" 'ConfigurationManager.AppSettings("DisplayName")
' Me.serviceInstaller.ServiceName = "_Liba" 'ConfigurationManager.AppSettings("ServiceName")
' '
' 'serviceProcessInstaller
' '
' Me.serviceProcessInstaller.Account = System.ServiceProcess.ServiceAccount.LocalSystem
' '
' 'WinInstaller
' '
' Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.serviceProcessInstaller, Me.serviceInstaller})
End Sub
End Class
+48
View File
@@ -0,0 +1,48 @@
Imports System.ServiceProcess
Imports System.Configuration
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class WinService
Inherits System.ServiceProcess.ServiceBase
'UserService overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
' The main entry point for the process
<MTAThread()> _
<System.Diagnostics.DebuggerNonUserCode()> _
Shared Sub Main()
Dim ServicesToRun() As System.ServiceProcess.ServiceBase
' More than one NT Service may run within the same process. To add
' another service to this process, change the following line to
' create a second service object. For example,
'
' ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService}
'
ServicesToRun = New System.ServiceProcess.ServiceBase() {New WinService}
System.ServiceProcess.ServiceBase.Run(ServicesToRun)
End Sub
'Required by the Component Designer
Private components As System.ComponentModel.IContainer
' NOTE: The following procedure is required by the Component Designer
' It can be modified using the Component Designer.
' Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
End Sub
End Class
+164
View File
@@ -0,0 +1,164 @@
Imports System
Imports System.IO
Imports System.Configuration
Imports DevExpress.Persistent.Base
Imports Microsoft.VisualBasic
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports DevExpress.ExpressApp
Imports System.Collections
Imports DevExpress.ExpressApp.Xpo
Imports System.Runtime.Remoting.Channels
Imports System.Security.Principal
Imports System.Threading
Imports DevExpress.Persistent.BaseImpl
Imports DevExpress.Persistent.AuditTrail
Imports RabbitMQ.Client
Imports RabbitMQ.ServiceModel
Imports RabbitMQ.Client.Events
Imports Newtonsoft.Json
Imports DevExpress.Xpo
Imports DevExpress.Data.Filtering
Imports System.Xml
Imports System.Collections.Specialized
Imports SISBusiness.RabbitMQ.Module
Public Class WinService
Inherits System.ServiceProcess.ServiceBase
Private _Session As DevExpress.Xpo.Session
Dim _TimerCore As System.Threading.Timer
Dim _Semaphor As Boolean = True
Dim _RunningMode As String = ConfigurationManager.AppSettings("RunningMode")
Dim _factory As ConnectionFactory
Dim _connection As IConnection
Dim _channel As IModel
Dim _consumer As EventingBasicConsumer
Protected Overrides Sub OnStart(ByVal args() As String)
' Diagnostics.EventLog.WriteEntry(ConfigurationManager.AppSettings("ServiceName"), "Service Start at " + Now.ToString)
_Session = LoginSession()
Try
If _Session IsNot Nothing Then
If _Session.IsConnected Then
Select Case _RunningMode
Case "0" 'Olvas
Try
' ValueManager.ValueManagerType = GetType(MultiThreadValueManager(Of )).GetGenericTypeDefinition()
Dim _Factory_HostName As String = ConfigurationManager.AppSettings("Factory_HostName")
Dim _Factory_UserName As String = ConfigurationManager.AppSettings("Factory_UserName")
Dim _Factory_Password As String = ConfigurationManager.AppSettings("Factory_Password")
Dim _Factory_VirtualHost As String = ConfigurationManager.AppSettings("Factory_VirtualHost")
Dim _Queue_Name As String = ConfigurationManager.AppSettings("Queue_Name")
_factory = New ConnectionFactory
_factory.HostName = _Factory_HostName
_factory.UserName = _Factory_UserName
_factory.Password = _Factory_Password
_factory.VirtualHost = _Factory_VirtualHost
_factory.RequestedChannelMax = 10
_connection = _factory.CreateConnection
_channel = _connection.CreateModel
_consumer = New EventingBasicConsumer
AddHandler _consumer.Received, AddressOf Consumer_Received
' Diagnostics.EventLog.WriteEntry(ConfigurationManager.AppSettings("ServiceName"), "Starting server pool at " + Now.ToString)
' _channel.BasicConsume(_Queue_Name, False, _consumer) 'Fenthagyni a queue-ban
_channel.BasicConsume(_Queue_Name, True, _consumer) 'Leszedni a queue-ból
Catch e As Exception
'Diagnostics.EventLog.WriteEntry(ConfigurationManager.AppSettings("ServiceName"), e.Message)
End Try
Case "1" 'Küld
Try
' ValueManager.ValueManagerType = GetType(MultiThreadValueManager(Of )).GetGenericTypeDefinition()
_TimerCore = New System.Threading.Timer(AddressOf _TimerCore_Tick, Nothing, 0, 10000)
Catch e As Exception
'Diagnostics.EventLog.WriteEntry(ConfigurationManager.AppSettings("ServiceName"), e.Message)
End Try
Case "2" 'Mindkettő
Case Else
'Gáz van
End Select
End If
Else
'Throw New Exception(String.Format("Nem lehet csatlakozni az SQL serverhez. ConnenctionString:{0}", ConfigurationManager.ConnectionStrings.Item("ConnectionString").ConnectionString))
End If
Catch ex As Exception
'Diagnostics.EventLog.WriteEntry(ConfigurationManager.AppSettings("ServiceName"), ex.Message)
End Try
End Sub
Protected Overrides Sub OnStop()
Select Case _RunningMode
Case "0" 'Olvas
_channel.Close()
_connection.Close()
Case "1"
_TimerCore.Change(Timeout.Infinite, 0)
_TimerCore.Dispose()
Case "2"
End Select
If _Session.IsConnected Then LogoffSession(_Session)
' Diagnostics.EventLog.WriteEntry(ConfigurationManager.AppSettings("ServiceName"), "Service STOP")
End Sub
Private Sub Consumer_Received(sender As IBasicConsumer, args As BasicDeliverEventArgs)
'// Itt afogadás
'Console.WriteLine("Fogadás...")
Try
Dim _JSONText As String = Encoding.UTF8.GetString(args.Body)
Dim _XML As System.Xml.XmlDocument = JsonConvert.DeserializeXmlNode(_JSONText, "JsonXML")
If _XML IsNot Nothing Then
Dim _method As String = _XML.SelectSingleNode("JsonXML/method").InnerText
If _method.Contains("ugyfelimport") Then GetCustomers.CustomerImport(_XML, "JsonXML/params", "", _Session, True)
If _method.Contains("szamlaimport") Then GetGLAccounts.GLAccountImport(_XML, "", _Session, True)
If _method.Contains("get_version") Then SISVersion.SendSISVersion(_XML, args.BasicProperties)
End If
Catch ex As Exception
WriteErrorLog((Now + " " + ex.Message).ToString, "")
End Try
End Sub
Private Sub _TimerCore_Tick(ByVal state As Object)
_TimerCore.Change(Timeout.Infinite, 0)
PublishCustomers.PublishCustomers("", _Session, True)
_TimerCore.Change(0, 10000)
End Sub
Private Function LoginSession() As DevExpress.Xpo.Session
Dim _Session As New DevExpress.Xpo.Session
_Session.ConnectionString = ConfigurationManager.ConnectionStrings.Item("ConnectionString").ConnectionString
_Session.AutoCreateOption = DB.AutoCreateOption.None
_Session.Connect()
If Not _Session.IsConnected Then
_Session = Nothing
End If
Return _Session
End Function
Private Sub LogoffSession(_Session As DevExpress.Xpo.Session)
_Session.Connection.Close()
End Sub
End Class