Permalink
Browse files

VERSION 2013.10.0701

  • Loading branch information...
NKINC NKINC
NKINC authored and NKINC committed Oct 8, 2013
1 parent 5960c56 commit d8483551ae9531af8a067ce7f8571da0dfe0cf5f
View
@@ -30,6 +30,6 @@ Imports System.Runtime.InteropServices
' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:
'D:\Data\PROGRAMMING\VS.Net\2008\iTextSharp\itextsharp_4.1.7.3-source\bin\Release
<Assembly: AssemblyVersion("2.2012.04.2301")>
<Assembly: AssemblyFileVersionAttribute("2.2012.04.2301")>
<Assembly: AssemblyVersion("2.2013.10.0701")>
<Assembly: AssemblyFileVersionAttribute("2.2013.10.0701")>
<Assembly: NeutralResourcesLanguageAttribute("en")>
View
BIN +0 Bytes (100%) FDFApp.suo
Binary file not shown.
View
3,325 FDFApp.vb

Large diffs are not rendered by default.

Oops, something went wrong.
View
@@ -37,7 +37,8 @@
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<OutputPath>bin\</OutputPath>
<DocumentationFile>FDFApp.xml</DocumentationFile>
<DocumentationFile>
</DocumentationFile>
<BaseAddress>285212672</BaseAddress>
<ConfigurationOverrideFile>
</ConfigurationOverrideFile>
@@ -56,7 +57,8 @@
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<OutputPath>bin\</OutputPath>
<DocumentationFile>FDFApp.xml</DocumentationFile>
<DocumentationFile>
</DocumentationFile>
<BaseAddress>285212672</BaseAddress>
<ConfigurationOverrideFile>
</ConfigurationOverrideFile>
@@ -79,16 +81,15 @@
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug Select\</OutputPath>
<BaseAddress>285212672</BaseAddress>
<DocumentationFile>FDFApp.xml</DocumentationFile>
<DocumentationFile>
</DocumentationFile>
<WarningLevel>1</WarningLevel>
<NoWarn>42016,42017,42018,42019,42032</NoWarn>
<DebugType>full</DebugType>
<PlatformTarget>AnyCPU</PlatformTarget>
</PropertyGroup>
<ItemGroup>
<Reference Include="itextsharp, Version=4.1.7.7, Culture=neutral, PublicKeyToken=8354ae6d2174ddca">
<HintPath>..\..\FDFToolkit.net\bin\2.0\itextsharp.dll</HintPath>
</Reference>
<Reference Include="itextsharp, Version=4.0.7.0, Culture=neutral, PublicKeyToken=8354ae6d2174ddca" />
<Reference Include="System">
<Name>System</Name>
</Reference>
@@ -126,22 +127,9 @@
<Compile Include="Mail.vb">
<SubType>Code</SubType>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
<DependentUpon>Settings.settings</DependentUpon>
</Compile>
<Compile Include="My Project\Settings1.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
<DependentUpon>Settings.settings</DependentUpon>
</Compile>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<LastGenOutput>Settings1.Designer.vb</LastGenOutput>
</None>
<Folder Include="My Project\" />
</ItemGroup>
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
<PropertyGroup>
View
4,183 FDFDoc.vb

Large diffs are not rendered by default.

Oops, something went wrong.
View
@@ -11,7 +11,13 @@ Imports System.Data
Namespace FDFApp
' FDFERRORS CLASS
Public Class FDFErrors
Implements IDisposable
Implements IDisposable
Public ThrowErrors As Boolean = False
Public Sub ThrowError(ByVal err As Exception)
If ThrowErrors Then
Throw err
End If
End Sub
Enum FDFErc
FDFErcOK = 0
FDFErcInternalError = 1 'Internal FDF Library error */
@@ -91,57 +97,90 @@ Namespace FDFApp
Dim FDFError_Msg As String
Dim FDFError_Module As String
Dim FDFError_Number As Integer
Dim FDFError_Code As String
Dim FDFError_Code As String
Public Sub New(ByVal FDFErc1 As FDFErc, ByVal FDFError_Msg1 As String, ByVal FDFError_Module1 As String, ByVal FDFError_Number1 As Integer, ByVal FDFError_Code1 As String)
FDFError = FDFErc1
FDFError_Module = FDFError_Module1
FDFError_Number = FDFError_Number1
FDFError_Msg = FDFError_Msg1
FDFError_Code = FDFError_Code1
End Sub
End Structure
Private _FDFErrors(0) As FDFError
Private _FDFErrors As New System.Collections.Generic.List(Of FDFError)
Public Sub FDFAddError(ByVal FDFErrCode As FDFErc, ByVal FDFErrMessage As String, ByVal FDFErrModule As String, ByVal FDFErrNumber As Integer)
If Not _FDFErrors Is Nothing Then
ReDim Preserve _FDFErrors(_FDFErrors.Length)
_FDFErrors(_FDFErrors.Length - 1).FDFError = FDFErrCode
_FDFErrors(_FDFErrors.Length - 1).FDFError_Module = FDFErrModule
_FDFErrors(_FDFErrors.Length - 1).FDFError_Number = FDFErrNumber
_FDFErrors(_FDFErrors.Length - 1).FDFError_Msg = FDFErrMessage
_FDFErrors(_FDFErrors.Length - 1).FDFError_Code = ReturnErrCodeStr(FDFErrNumber)
ElseIf Not FDFErrCode = FDFErc.FDFErcOK Then
ReDim Preserve _FDFErrors(0)
_FDFErrors(0).FDFError = FDFErrCode
_FDFErrors(0).FDFError_Module = FDFErrModule
_FDFErrors(0).FDFError_Number = FDFErrNumber
_FDFErrors(0).FDFError_Msg = FDFErrMessage
_FDFErrors(0).FDFError_Code = ReturnErrCodeStr(FDFErrNumber)
End If
End Sub
Public Function FDFHasErrors() As Boolean
If _FDFErrors(0).FDFError = FDFErc.FDFErcOK Then
Return False
Else
Return True
End If
End Function
'ReDim Preserve _FDFErrors(_FDFErrors.Length)
_FDFErrors.Add(New FDFError(FDFErrCode, FDFErrMessage, FDFErrModule, FDFErrNumber, ReturnErrCodeStr(FDFErrNumber)))
ElseIf Not FDFErrCode = FDFErc.FDFErcOK Then
_FDFErrors.Clear()
_FDFErrors = New System.Collections.Generic.List(Of FDFError)
_FDFErrors.Add(New FDFError(FDFErrCode, FDFErrMessage, FDFErrModule, FDFErrNumber, ReturnErrCodeStr(FDFErrNumber)))
End If
'If ThrowErrors Then
' ThrowError(New Exception(FDFErrMessage))
'End If
End Sub
Public Sub FDFAddError(ByVal FDFErrCode As FDFErc, ByVal FDFException As Exception)
If Not _FDFErrors Is Nothing Then
'ReDim Preserve _FDFErrors(_FDFErrors.Length)
'_FDFErrors(_FDFErrors.Length - 1).FDFError = FDFErrCode
'_FDFErrors.Clear()
'_FDFErrors = New System.Collections.Generic.List(Of FDFError)
_FDFErrors.Add(New FDFError(FDFErrCode, FDFException.Message, FDFException.TargetSite.DeclaringType.ToString & "." & FDFException.TargetSite.Name.ToString, FDFErrCode, ReturnErrCodeStr(FDFErrCode)))
'_FDFErrors(_FDFErrors.Length - 1).FDFError_Module = FDFException.TargetSite.DeclaringType.ToString & "." & FDFException.TargetSite.Name.ToString
'_FDFErrors(_FDFErrors.Length - 1).FDFError_Number=FDFErrCode.
'_FDFErrors(_FDFErrors.Length - 1).FDFError_Msg = FDFException.Message
'_FDFErrors(_FDFErrors.Length - 1).FDFError_Code = ReturnErrCodeStr(FDFErrNumber)
ElseIf Not FDFErrCode = FDFErc.FDFErcOK Then
_FDFErrors.Clear()
_FDFErrors = New System.Collections.Generic.List(Of FDFError)
_FDFErrors.Add(New FDFError(FDFErrCode, FDFException.Message, FDFException.TargetSite.DeclaringType.ToString & "." & FDFException.TargetSite.Name.ToString, FDFErrCode, ReturnErrCodeStr(FDFErrCode)))
End If
If ThrowErrors And FDFErrCode <> FDFErc.FDFErcOK Then
ThrowError(FDFException)
End If
End Sub
Public Function FDFHasErrors() As Boolean
If _FDFErrors.Count > 1 Then
Return True
End If
Return False
'If _FDFErrors(0).FDFError = FDFErc.FDFErcOK Then
' Return False
'Else
' Return True
'End If
End Function
Public Sub ResetErrors()
ReDim _FDFErrors(0)
_FDFErrors(0).FDFError = FDFErc.FDFErcOK
_FDFErrors(0).FDFError_Msg = "OK"
_FDFErrors(0).FDFError_Number = -1
_FDFErrors(0).FDFError_Module = ""
'ReDim _FDFErrors(0)
_FDFErrors.Clear()
_FDFErrors = New System.Collections.Generic.List(Of FDFError)
_FDFErrors.Add(New FDFError(FDFErc.FDFErcOK, "OK", "", -1, ReturnErrCodeStr(FDFErc.FDFErcOK)))
' _FDFErrors(0).FDFError = FDFErc.FDFErcOK
'_FDFErrors(0).FDFError_Msg = "OK"
'_FDFErrors(0).FDFError_Number = -1
'_FDFErrors(0).FDFError_Module = ""
End Sub
Public Property FDFErrors() As FDFError()
Get
Return _FDFErrors
End Get
Set(ByVal Value As FDFError())
_FDFErrors = Value
End Set
Return _FDFErrors.ToArray
End Get
Set(ByVal Value As FDFError())
_FDFErrors.Clear()
_FDFErrors = New System.Collections.Generic.List(Of FDFError)
_FDFErrors.AddRange(Value)
End Set
End Property
Public Function FDFErrorsStr(Optional ByVal HTMLFormat As Boolean = False) As String
Dim FDFErrorx As FDFError
Dim retString As String
retString = IIf(HTMLFormat, "<br>", vbNewLine) & "FDF Errors:"
For Each FDFErrorx In FDFErrors
retString = retString & IIf(HTMLFormat, "<br>", vbNewLine) & vbTab & "Error: " & FDFErrorx.FDFError_Code & " - " & FDFErrorx.FDFError & IIf(HTMLFormat, "<br>", vbNewLine) & vbTab & "#: " & FDFErrorx.FDFError_Number & IIf(HTMLFormat, "<br>", vbNewLine) & vbTab & "Module: " & FDFErrorx.FDFError_Module & IIf(HTMLFormat, "<br>", vbNewLine) & vbTab & "Message: " & FDFErrorx.FDFError_Msg & IIf(HTMLFormat, "<br>", vbNewLine)
Next
For Each FDFErrorx In FDFErrors
retString = retString & IIf(HTMLFormat, "<br>", vbNewLine) & vbTab & "Error: " & FDFErrorx.FDFError_Code & " - " & FDFErrorx.FDFError & IIf(HTMLFormat, "<br>", vbNewLine) & vbTab & "#: " & FDFErrorx.FDFError_Number & IIf(HTMLFormat, "<br>", vbNewLine) & vbTab & "Module: " & FDFErrorx.FDFError_Module & IIf(HTMLFormat, "<br>", vbNewLine) & vbTab & "Message: " & FDFErrorx.FDFError_Msg & IIf(HTMLFormat, "<br>", vbNewLine)
Next
Return retString
End Function
End Function
#Region " IDisposable Support "
Private disposedValue As Boolean = False ' To detect redundant calls
View
40 Mail.vb
@@ -120,9 +120,9 @@ Namespace FDFApp
End Property
Public Sub NewNetworkCredentials(ByVal Username As String, ByVal Password As String, Optional ByVal Domain As String = "")
If Domain = "" Then
_SMTPCredentials = New Net.NetworkCredential(Username, Password)
Else
_SMTPCredentials = New Net.NetworkCredential(Username, Password, Domain)
_SMTPCredentials = New System.Net.NetworkCredential(Username, Password)
Else
_SMTPCredentials = New System.Net.NetworkCredential(Username, Password, Domain)
End If
End Sub
@@ -658,23 +658,23 @@ Namespace FDFApp
Public Class MailMessage
Implements IDisposable
Private _MailMessage As New Net.Mail.MailMessage
Public Property msgMailMessage() As Net.Mail.MailMessage
Get
Return _MailMessage
End Get
Set(ByVal value As Net.Mail.MailMessage)
_MailMessage = value
End Set
End Property
Public Sub New()
_MailMessage = New Net.Mail.MailMessage
End Sub
Public Sub New(ByVal msg As Net.Mail.MailMessage)
_MailMessage = New Net.Mail.MailMessage
_MailMessage = msg
End Sub
Private _MailMessage As New System.Net.Mail.MailMessage
Public Property msgMailMessage() As Net.Mail.MailMessage
Get
Return _MailMessage
End Get
Set(ByVal value As Net.Mail.MailMessage)
_MailMessage = value
End Set
End Property
Public Sub New()
_MailMessage = New System.Net.Mail.MailMessage
End Sub
Public Sub New(ByVal msg As Net.Mail.MailMessage)
_MailMessage = New System.Net.Mail.MailMessage
_MailMessage = msg
End Sub
Public Enum MailFormat
Text = False
HTML = True

This file was deleted.

Oops, something went wrong.

This file was deleted.

Oops, something went wrong.
View
BIN +33 Bytes (120%) Source-Code.txt
Binary file not shown.
View
BIN +13 KB (100%) bin/FDFApp.dll
Binary file not shown.
Oops, something went wrong.

0 comments on commit d848355

Please sign in to comment.