edv/VERAGAddin
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

addin

Browse Source
This commit is contained in:
d.breimaier
2024-02-21 08:04:33 +01:00
parent eb291ea140
commit 7874423adc
5 changed files with 60 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
VERAGAddIn/VERAGAddIn.vbproj
View File

@@ -33,11 +33,11 @@
<TargetFrameworkProfile />
<IsWebBootstrapper>True</IsWebBootstrapper>
<BootstrapperEnabled>true</BootstrapperEnabled>
<PublishUrl>\\ftps.verag.ag\g\ftp\programme\VERAGAddin_Test\</PublishUrl>
<InstallUrl>http://ftps.verag.ag/VERAGAddin_Test/</InstallUrl>
<PublishUrl>\\ftps.verag.ag\g\ftp\programme\VERAGAddin_test\</PublishUrl>
<InstallUrl>http://ftps.verag.ag/VERAGAddin_test/</InstallUrl>
<TargetCulture>de</TargetCulture>
<ApplicationVersion>1.0.1.115</ApplicationVersion>
<AutoIncrementApplicationRevision>false</AutoIncrementApplicationRevision>
<ApplicationVersion>1.0.1.158</ApplicationVersion>
<AutoIncrementApplicationRevision>true</AutoIncrementApplicationRevision>
<UpdateEnabled>true</UpdateEnabled>
<UpdateInterval>0</UpdateInterval>
<UpdateIntervalUnits>days</UpdateIntervalUnits>
@@ -159,6 +159,10 @@
-->
<ItemGroup>
<Reference Include="Accessibility" />
<Reference Include="AVISO, Version=3.9.7.0, Culture=neutral, processorArchitecture=AMD64">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\Aviso\AVISO\Aviso\bin\Debug\AVISO.exe</HintPath>
</Reference>
<Reference Include="Microsoft.Office.Tools.Outlook.v4.0.Utilities, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" />
<Reference Include="System" />
<Reference Include="System.Data" />
@@ -169,8 +173,9 @@
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="VERAG_PROG_ALLGEMEIN">
<HintPath>..\..\VERAG_PROG_ALLGEMEIN\bin\Debug\VERAG_PROG_ALLGEMEIN.dll</HintPath>
<Reference Include="VERAG_PROG_ALLGEMEIN, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\bin\Debug\VERAG_PROG_ALLGEMEIN.dll</HintPath>
</Reference>
</ItemGroup>
<ItemGroup>
@@ -347,10 +352,6 @@
<Project>{5b947a66-009a-4bb6-b925-f84a01045095}</Project>
<Name>TELOTEC_Worker_lib</Name>
</ProjectReference>
<ProjectReference Include="..\..\Aviso\AVISO\Aviso\Aviso.vbproj">
<Project>{7bdd8c2f-2c9e-49f1-a365-3b1da1c84991}</Project>
<Name>Aviso</Name>
</ProjectReference>
<ProjectReference Include="..\..\Aviso\AVISO\Gemeinsames\Gemeinsames.vbproj">
<Project>{110c923b-cb02-4fd0-af24-95e0f0eeeff5}</Project>
<Name>Gemeinsames</Name>

11
VERAGAddIn/frmAvisoAnfügen.vb
View File

@@ -93,7 +93,8 @@ Public Class frmAvisoAnfuegen
Dim sql = "SELECT TOP 10 AvisoID, Grenzstelle as Grenze, Datum, LKW_Nr,Auftraggeber,Frächter,Firma FROM Aviso left join tblSendungen on tblSnd_AvisoID=AvisoID WHERE status <>2 " & firma & " "
If IsDate(txtSrchDat.Text) Then sql &= " AND Datum > '" & CDate(txtSrchDat.Text).ToShortDateString & "'"
If txtLKWNr.Text <> "" Then sql &= " AND (LKW_Nr LIKE '%" & txtLKWNr.Text & "%' OR AvisoID ='" & txtLKWNr.Text & "')"
If txtLKWNr.Text <> "" Then sql &= " AND (LKW_Nr LIKE '%" & txtLKWNr.Text & "%'" & IIf(IsNumeric(txtLKWNr.Text), " OR AvisoID ='" & txtLKWNr.Text & "')", ")")
If cboFiliale._value <> "" Then sql &= " AND FilialenNr LIKE '%" & cboFiliale._value & "%'"
@@ -104,8 +105,8 @@ Public Class frmAvisoAnfuegen
.LOAD()
'.Columns("AvisoId").Visible = False
.Columns("AvisoId").HeaderText = "LKW-ID"
.Columns("AvisoId").Width = 60
.Columns("AvisoID").HeaderText = "LKW-ID"
.Columns("AvisoID").Width = 60
.AutoSizeColumnsMode = Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
.Columns("Grenze").Width = 40
.Columns("Datum").Width = 80
@@ -117,7 +118,7 @@ Public Class frmAvisoAnfuegen
End With
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
UseWaitCursor = False
@@ -167,7 +168,7 @@ Public Class frmAvisoAnfuegen
End If
End With
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
UseWaitCursor = False
End Sub

10
VERAGAddIn/rbnMailItem.vb
View File

@@ -37,7 +37,7 @@ Public Class rbnMailItem
Dim INSPECTOR As Outlook.Inspector = e.Control.Context
AVISO_Mail_Functions.NewAviso(INSPECTOR.CurrentItem)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
End Sub
@@ -49,7 +49,7 @@ Public Class rbnMailItem
AVISO_Mail_Functions.addMailToAviso(INSPECTOR.CurrentItem, sender)
'Me.Context
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
End Sub
@@ -60,8 +60,8 @@ Public Class rbnMailItem
Dim INSPECTOR As Outlook.Inspector = e.Control.Context
MsgBox(INSPECTOR.CurrentItem.FormDescription.Comment)
Catch
MsgBox("Fehler beim Anzeigen der Mailinformationen.")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -85,7 +85,7 @@ Public Class rbnMailItem
AVISO_Mail_Functions.addMailToAviso(INSPECTOR.CurrentItem, sender)
'Me.Context
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If

53
VERAGAddIn/rbnVERAG.vb
View File

@@ -49,6 +49,7 @@ Public Class VERAGRibbon
Try
MsgBox("User: " & System.Security.Principal.WindowsIdentity.GetCurrent().Name & vbNewLine & "Version: " & Assembly.GetExecutingAssembly().GetName().Version.ToString & vbNewLine & "System: " & IIf(cAllgemein.TESTSYSTEM, "TEST", "PRODUKTIV"))
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -118,7 +119,7 @@ Public Class AVISO_Mail_Functions
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & ex.InnerException.ToString, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -186,7 +187,7 @@ Public Class AVISO_Mail_Functions
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -221,7 +222,7 @@ Public Class AVISO_Mail_Functions
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
End If
@@ -240,7 +241,7 @@ Public Class AVISO_Mail_Functions
End If
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -263,7 +264,7 @@ Public Class AVISO_Mail_Functions
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
Shared Function initFirmaUser() As Boolean
@@ -290,23 +291,23 @@ Public Class AVISO_Mail_Functions
End If
End If
Catch ex As Exception
' MsgBox(ex.Message & ex.StackTrace)
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
If Not LOGIN_OK Then
LOGIN_OK = ADMIN.checkLogin("MAIL_USER", "VERAG_MAIL_USER_2017", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return LOGIN_OK
End Function
Shared Sub NewAviso_Hauptfenster()
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("OutlookAttach")
Try
Dim explorer As Outlook.Explorer = Globals.ThisAddIn.Application.ActiveExplorer
Dim selection As Outlook.Selection = explorer.Selection
If selection.Count > 0 Then
@@ -317,8 +318,9 @@ Public Class AVISO_Mail_Functions
End If
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -335,7 +337,7 @@ Public Class AVISO_Mail_Functions
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Sub
@@ -349,12 +351,13 @@ Public Class AVISO_Mail_Functions
End Function
Shared Sub NewAviso(mailItem As Outlook.MailItem)
Dim ATTACHMENTS_LIST As New List(Of String)
Dim ATTACHMENTS_LIST As New List(Of String)
Dim KundenNr = -1
Dim EingangsDatum As Date = CDate("01.01.1990")
If mailItem IsNot Nothing Then
Try
'MsgBox(mailItem.To)
@@ -371,7 +374,7 @@ Public Class AVISO_Mail_Functions
End If
KundenNr = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getKdNrFromMailAdress(senderMail, False) ' false, wenn mehrere Niederlassungen von Frimen im KdStamm vorhanden... falsche KdNr...
KundenNr = cKundenKontakte.getKdNrFromMailAdress(senderMail, False) ' false, wenn mehrere Niederlassungen von Frimen im KdStamm vorhanden... falsche KdNr...
If isMail_EKOL(mailItem) Then
If vbYes = MsgBox("EKOL-Anhänge laden?", vbYesNoCancel) Then getATT_EKOL(mailItem, ATTACHMENTS_LIST)
@@ -386,7 +389,7 @@ Public Class AVISO_Mail_Functions
loadAttachment(mailItem, ATTACHMENTS_LIST)
VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0
cGlobal.Aktive_ID = 0
Dim mainForm As New AVISO.frmEintragAviso
mainForm.ATT = ATTACHMENTS_LIST
If KundenNr > 0 Then
@@ -402,14 +405,14 @@ Public Class AVISO_Mail_Functions
mainForm.ShowDialog()
ATTACHMENTS_LIST = mainForm.ATT
If VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID > 0 Then
If cGlobal.Aktive_ID > 0 Then
saveAttachment(ATTACHMENTS_LIST, VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID, -1, art, "")
saveMail(mailItem, VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID,, False)
saveAttachment(ATTACHMENTS_LIST, cGlobal.Aktive_ID, -1, art, "")
saveMail(mailItem, cGlobal.Aktive_ID,, False)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Finally
Try
@@ -424,7 +427,7 @@ Public Class AVISO_Mail_Functions
'End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & ex.InnerException.ToString, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Try
@@ -551,7 +554,7 @@ Public Class AVISO_Mail_Functions
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Function
Public Shared Function GetTempFilePathWithExtension(ByVal extension As String) As String
@@ -568,7 +571,7 @@ Public Class AVISO_Mail_Functions
Return mailItem.HTMLBody.ToString.Contains(srch)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return False
End Function
@@ -580,7 +583,7 @@ Public Class AVISO_Mail_Functions
Return mailItem.HTMLBody.ToString.Contains(srch)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return False
End Function
@@ -625,7 +628,7 @@ Public Class AVISO_Mail_Functions
INFO = getEKOL_Var(html, "Route :")
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ATT
End Function
@@ -711,7 +714,7 @@ Public Class AVISO_Mail_Functions
'INFO = getEKOL_Var(html, "Route :")
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ATT
End Function
@@ -758,7 +761,7 @@ Public Class AVISO_Mail_Functions
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Finally
If mailItem IsNot Nothing Then
Marshal.ReleaseComObject(mailItem)
@@ -787,7 +790,7 @@ Public Class AVISO_Mail_Functions
System.IO.File.Delete(strTmpPath)
End If
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
Finally
If mailItem IsNot Nothing Then
Marshal.ReleaseComObject(mailItem)