201020
This commit is contained in:
@@ -418,6 +418,8 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
settoopTip(picKdAtrNr_Empfänger, txtEmpfaenger)
|
||||
|
||||
fillUIDEORI(txtEmpfaenger)
|
||||
|
||||
txtKdAuftragsNrEmpfaenger.BackColor = Color.White
|
||||
If txtEmpfaenger.KdData_KUNDE_ERW IsNot Nothing AndAlso txtEmpfaenger.KdData_KUNDE_ERW.kde_VerwendetAuftragsNr Then
|
||||
txtKdAuftragsNrEmpfaenger.BackColor = Color.FromArgb(255, 255, 128)
|
||||
@@ -563,9 +565,26 @@ Public Class frmSendungsdetailsNEU
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Sub fillUIDEORI(kdSB As VERAG_PROG_ALLGEMEIN.KdSearchBox)
|
||||
btnEORIPruef.Visible = False
|
||||
btnUIDPruef.Visible = False
|
||||
lblUID_Pruef.Text = "-"
|
||||
lbleori_Pruef.Text = "-"
|
||||
If kdSB IsNot Nothing Then
|
||||
If kdSB.KdData_KUNDE IsNot Nothing AndAlso kdSB.KdData_KUNDE.EORITIN IsNot Nothing Then
|
||||
lbleori_Pruef.Text = kdSB.KdData_KUNDE.EORITIN & If(kdSB.KdData_KUNDE.EORITIN_NL, "")
|
||||
btnEORIPruef.Visible = True
|
||||
End If
|
||||
If kdSB.KdData_ADRESSEN IsNot Nothing AndAlso kdSB.KdData_ADRESSEN.UstIdKz IsNot Nothing AndAlso kdSB.KdData_ADRESSEN.UstIdNr IsNot Nothing Then
|
||||
lblUID_Pruef.Text = kdSB.KdData_ADRESSEN.UstIdKz & kdSB.KdData_ADRESSEN.UstIdNr
|
||||
btnUIDPruef.Visible = True
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub settoopTip(pic As PictureBox, kdTXT As VERAG_PROG_ALLGEMEIN.KdSearchBox)
|
||||
|
||||
If kdTXT.KdData_KUNDE_ERW IsNot Nothing AndAlso kdTXT.KdData_KUNDE_ERW.kde_InfoAuftragsNr AndAlso kdTXT.KdData_KUNDE_ERW.kde_InfoAuftragsNr <> "" Then
|
||||
If kdTXT.KdData_KUNDE_ERW IsNot Nothing AndAlso kdTXT.KdData_KUNDE_ERW.kde_InfoAuftragsNr IsNot Nothing AndAlso kdTXT.KdData_KUNDE_ERW.kde_InfoAuftragsNr <> "" Then
|
||||
ToolTip.SetToolTip(pic, kdTXT.KdData_KUNDE_ERW.kde_InfoAuftragsNr)
|
||||
pic.Visible = True
|
||||
pic.Cursor = Cursors.Hand
|
||||
@@ -966,6 +985,10 @@ Public Class frmSendungsdetailsNEU
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER
|
||||
Case "FRONTOFFICE"
|
||||
whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5801) "
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
|
||||
whereFiliale = " AND FilialenNr IN (4803,4805,4811,5003,5303,5103,4839,5501,5601,5801,5701) "
|
||||
End If
|
||||
|
||||
Case Else
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "ATILLA"
|
||||
@@ -1062,6 +1085,8 @@ Public Class frmSendungsdetailsNEU
|
||||
'End If
|
||||
|
||||
|
||||
fillUIDEORI(Nothing)
|
||||
|
||||
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr > -1 Then
|
||||
txtEmpfaenger.KdNr = SENDUNG_LIST(CURRENT_INDEX).tblSnd_EmpfaengerKdNr
|
||||
Else
|
||||
@@ -1590,26 +1615,26 @@ Public Class frmSendungsdetailsNEU
|
||||
' alle installierten Drucker ermitteln und
|
||||
' in in ein ArrayList-Objekt speichern
|
||||
Dim sPrinters As New ArrayList
|
||||
For Each sPrinter As String In PrinterSettings.InstalledPrinters
|
||||
sPrinters.Add(sPrinter)
|
||||
Next
|
||||
For Each sPrinter As String In PrinterSettings.InstalledPrinters
|
||||
sPrinters.Add(sPrinter)
|
||||
Next
|
||||
|
||||
' Array sortieren
|
||||
sPrinters.Sort()
|
||||
' Array sortieren
|
||||
sPrinters.Sort()
|
||||
|
||||
' printer()
|
||||
' printer()
|
||||
|
||||
' jetzt alle Drucker in sortierter Reihenfolge in einer
|
||||
' ComboBox zur Auswahl anbieten
|
||||
Dim oPS As New System.Drawing.Printing.PrinterSettings
|
||||
Dim pList As List(Of PrinterList) = PROG.getPrinterList
|
||||
For i As Integer = 0 To sPrinters.Count - 1
|
||||
If PROG.isPrinterOnlineByList(pList, sPrinters(i)) Then
|
||||
setCboEntry(sPrinters(i)) ' cboPrinter.Items.Add(sPrinters(i))
|
||||
End If
|
||||
Next
|
||||
' jetzt alle Drucker in sortierter Reihenfolge in einer
|
||||
' ComboBox zur Auswahl anbieten
|
||||
Dim oPS As New System.Drawing.Printing.PrinterSettings
|
||||
Dim pList As List(Of PrinterList) = PROG.getPrinterList
|
||||
For i As Integer = 0 To sPrinters.Count - 1
|
||||
If PROG.isPrinterOnlineByList(pList, sPrinters(i)) Then
|
||||
setCboEntry(sPrinters(i)) ' cboPrinter.Items.Add(sPrinters(i))
|
||||
End If
|
||||
Next
|
||||
|
||||
setCboSelected(oPS.PrinterName)
|
||||
setCboSelected(oPS.PrinterName)
|
||||
|
||||
If False Then
|
||||
|
||||
@@ -2557,6 +2582,8 @@ Public Class frmSendungsdetailsNEU
|
||||
If cboFiliale._value <> "5601" Then sperren = True
|
||||
Case "VERIMEX"
|
||||
If cboFiliale._value = "5601" Then sperren = True 'UNISPED darf VERIMEX nicht, sonst alle im CLUSTER
|
||||
Case "AMBAR"
|
||||
If cboFiliale._value <> "5701" Then sperren = True 'UNISPED darf VERIMEX nicht, sonst alle im CLUSTER
|
||||
Case "VERAG"
|
||||
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO") Then
|
||||
If cboFiliale._value = "5601" Or cboFiliale._value = "5501" Then sperren = True
|
||||
@@ -3832,6 +3859,7 @@ Public Class frmSendungsdetailsNEU
|
||||
|
||||
Select Case firmaTmp
|
||||
Case "IMEX" : Mail.To = "info@imex-group.at"
|
||||
Case "AMBAR" : Mail.To = "info@imex-group.at"
|
||||
Case "UNISPED" : Mail.To = "office@unisped.at"
|
||||
Case "VERAG" : Mail.To = "quickstop@verag.ag"
|
||||
End Select
|
||||
@@ -3858,9 +3886,7 @@ Public Class frmSendungsdetailsNEU
|
||||
open_Mail_NeuerLKW("VERAG")
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem18_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem18.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click
|
||||
' Me.loadDataInLIST()
|
||||
@@ -3882,4 +3908,70 @@ Public Class frmSendungsdetailsNEU
|
||||
Private Sub cboFiliale_Leave(sender As Object, e As EventArgs) Handles cboFiliale.Leave
|
||||
initFraechterAvisererFromAkt()
|
||||
End Sub
|
||||
|
||||
Private Sub Button25_Click(sender As Object, e As EventArgs) Handles btnUIDPruef.Click
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Try
|
||||
If lblUID_Pruef.Text.Replace("-", "").Trim = "" Then Me.Cursor = Cursors.Default : Exit Sub
|
||||
|
||||
Dim UID_ERG As Integer = -1
|
||||
Dim path = SDL.cFinanzOnlineWebService.genUID_Formular(lblUID_Pruef.Text, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, UID_ERG)
|
||||
|
||||
btnUIDPruef.BackgroundImage = My.Resources.fragezeichen
|
||||
Select Case UID_ERG
|
||||
Case 0 : btnUIDPruef.BackgroundImage = My.Resources.ok
|
||||
'If path <> "" AndAlso IO.File.Exists(path) Then 'ADD
|
||||
' Dim fi As New IO.FileInfo(path)
|
||||
' Dim filename = fi.Name
|
||||
' If filename = "" Then
|
||||
' MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & path)
|
||||
' Else
|
||||
' If frmSendungAnhangImport.saveToDS(AvisoId, filename, path, "UID", "PDF", , , , SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) Then
|
||||
' initAnhang()
|
||||
' End If
|
||||
' End If
|
||||
'End If
|
||||
initAnhang()
|
||||
Case 1 : btnUIDPruef.BackgroundImage = My.Resources.del
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
Private Sub Button24_Click(sender As Object, e As EventArgs) Handles btnEORIPruef.Click
|
||||
MsgBox("Noch nicht verfügbar!")
|
||||
Exit sub
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Try
|
||||
If lbleori_Pruef.Text.Replace("-", "").Trim = "" Then Me.Cursor = Cursors.Default : Exit Sub
|
||||
|
||||
Dim url = "https://ec.europa.eu/taxation_customs/dds2/eos/eori_validation.jsp?Lang=de&EoriNumb=" & lbleori_Pruef.Text.Replace(" ", "") & "&Expand=true"
|
||||
Dim path = VERAG_PROG_ALLGEMEIN.cFormularManager.getPDFViaSpirePDF_FromURL(url)
|
||||
|
||||
btnEORIPruef.BackgroundImage = My.Resources.fragezeichen
|
||||
MsgBox("1:" & path)
|
||||
|
||||
If path <> "" AndAlso IO.File.Exists(path) Then 'ADD
|
||||
Dim fi As New IO.FileInfo(path)
|
||||
Dim filename = fi.Name
|
||||
If filename = "" Then
|
||||
MsgBox("Dateiname konnte nicht ermittelt werden." & vbNewLine & path)
|
||||
Else
|
||||
MsgBox("2:" & path)
|
||||
If frmSendungAnhangImport.saveToDS(AvisoId, filename, path, "EORI", "PDF", , , , SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID) Then
|
||||
initAnhang()
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user