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

NEU

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-09-19 17:25:22 +02:00
parent c7ff55bbae
commit d29dc72b22
44 changed files with 3715 additions and 1390 deletions
Download Patch File Download Diff File Expand all files Collapse all files

164
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -5,6 +5,7 @@ Imports System.Drawing.Printing
Imports System.Management
Imports System.Data.SqlClient
Imports iTextSharp.text.pdf
Imports Microsoft.Office.Interop
Public Class frmSendungsdetailsNEU
Public AvisoId As Integer
@@ -90,13 +91,13 @@ Public Class frmSendungsdetailsNEU
Next
SENDUNG_LIST(CURRENT_INDEX).SAVE_Abrechnung()
End Sub
Function SAVE_ME() As Boolean
If AVISO.Abgeschlossen Then
'MsgBox("Keine Änderung möglich - Akt bereits abgeschlossen.")
Return True
End If
SAVE_ME = True
For Each s In SENDUNG_LIST
If s.SAVE() = False Then SAVE_ME = False
@@ -202,7 +203,19 @@ Public Class frmSendungsdetailsNEU
Private Sub frmSendungsdetails_Load(sender As Object, e As EventArgs) Handles Me.Load
Panel5.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
Panel15.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
pnlFremd.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
cbxFremdspedition.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
AVISO = AvisoDAL.LesenAviso(AvisoId, "")
If AVISO.Grenzstelle.Replace("???", "") = "" Then
lblGrenze.Text = SQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name] FROM basncd WHERE basncd_dstnr='" & If(AVISO.Zollstelle, "") & "' ", "ATLAS")
Else
lblGrenze.Text = AVISO.Grenzstelle
End If
If AVISO.Abgeschlossen Then
Label8.Visible = True
End If
@@ -489,16 +502,16 @@ Public Class frmSendungsdetailsNEU
Try
pic.Visible = False
ToolTip.SetToolTip(pic, "")
Dim InfoText = ""
If kdSearch.KdData_ADRESSEN IsNot Nothing Then
If kdSearch.KdData_ADRESSEN.Auswahl = "I" Then
InfoText &= "KUNDE INAKTIV!" & vbNewLine & vbNewLine
ToolTip.SetToolTip(pic, "")
Dim InfoText = ""
If kdSearch.KdData_ADRESSEN IsNot Nothing Then
If kdSearch.KdData_ADRESSEN.Auswahl = "I" Then
InfoText &= "KUNDE INAKTIV!" & vbNewLine & vbNewLine
End If
End If
End If
If kdSearch.KdData_KUNDE IsNot Nothing Then
If kdSearch.KdData_KUNDE.Abfertigungsverbot Then
If kdSearch.KdData_KUNDE IsNot Nothing Then
If kdSearch.KdData_KUNDE.Abfertigungsverbot Then
pic.Visible = True
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG" : InfoText &= "ACHTUNG!" & vbNewLine
@@ -520,7 +533,7 @@ Public Class frmSendungsdetailsNEU
End If
ToolTip.SetToolTip(pic, InfoText.Trim)
ToolTip.SetToolTip(pic, InfoText.Trim)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
@@ -573,10 +586,10 @@ Public Class frmSendungsdetailsNEU
' If Not da.RowState = DataRowState.Deleted Then
Dim pos As Integer = CURRENT_INDEX 'SENDUNG_LIST.IndexOf(SENDUNG_LIST(b.value)) ')bsSendungen.Position
b.pnl.BackColor = IIf(b.value = pos, Color.FromArgb(0, 54, 128), Color.LightGray)
b.lblAbfBez.ForeColor = IIf(b.value = pos, Color.White, Color.Black)
b.lblAuftr.ForeColor = IIf(b.value = pos, Color.White, Color.Black)
b.lblNr.ForeColor = IIf(b.value = pos, Color.White, Color.Black)
b.pnl.BackColor = IIf(b.value = pos, VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor, Color.LightGray)
b.lblAbfBez.ForeColor = IIf(b.value = pos, VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor, Color.Black)
b.lblAuftr.ForeColor = IIf(b.value = pos, VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor, Color.Black)
b.lblNr.ForeColor = IIf(b.value = pos, VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor, Color.Black)
' Dim r As DataRow = AVISO_newDataSet.tblSendungen.Rows(b.value)
' MsgBox(da("tblSnd_PosUnterNr") & ". ")
@@ -2417,9 +2430,19 @@ Public Class frmSendungsdetailsNEU
End Sub
Sub initAnhang()
Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],[anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge]
WHERE [anh_SendungsId]='" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & "'
order by [anh_Reihenfolge],[anh_id]"
Dim hSQL As String = " SELECT [anh_id],[anh_Name],[anh_docId],CASE WHEN anh_SendungsId is null THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ] ,anh_SendungsId FROM [tblAvisoAnhaenge]
WHERE anh_AvisoId=" & AvisoId & " AND (anh_SendungsId is null OR anh_SendungsId=" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & ")
ORDER BY anh_SendungsId desc,
case
when [anh_Art] ='ATR' then 0
when [anh_Art] ='Rechnung' then 1
when [anh_Art] ='CMR' then 2
when [anh_Art] ='Ausfuhr' then 3
when [anh_Art] ='Packliste' then 4
when [anh_Art] ='Auftrag' then 5
when [anh_Art] ='Sonstiges' then 6
when [anh_Art] ='' then 7
END, [anh_Reihenfolge],[anh_id]"
dgvAnhang.DataSource = SQL.loadDgvBySql(hSQL, "AVISO")
@@ -2428,8 +2451,8 @@ Public Class frmSendungsdetailsNEU
If dgvAnhang.RowCount = 0 Then dgvAnhang.Columns.Clear() : Exit Sub
With dgvAnhang
.RowTemplate.MinimumHeight = 40
.RowTemplate.Height = 30
'.RowTemplate.MinimumHeight = 30
.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
.Columns("anh_id").Visible = False 'VermerkID nicht anzeigen
.Columns("anh_docId").Visible = False 'AvisoID nicht anzeigen
@@ -2447,6 +2470,7 @@ Public Class frmSendungsdetailsNEU
.Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
End With
End Sub
Private Sub btnAutomatischeNacherfassung_Click(sender As Object, e As EventArgs) Handles btnAutomatischeNacherfassung.Click
' ZollSystem: 0=ATLAS 1= EZOLL
@@ -3004,7 +3028,7 @@ Public Class frmSendungsdetailsNEU
Dim frMZA As New SDL.frmZollanmeldung("EZA", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
' Dim u As New SDL.usrCntlATLAS_EZA(DAKOSY_Worker.cDakosy_ZollanmeldungenArten.EZA, AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, Now.ToString("yy"), "")
' u.Dock = DockStyle.Fill
frMZA.ShowDialog(Me)
frMZA.Show(Me)
initdgvZollAnmeldungen()
'tbZollabfertigung.Controls.Clear()
' tbZollabfertigung.Controls.Add(u)
@@ -3014,7 +3038,7 @@ Public Class frmSendungsdetailsNEU
Me.loadDataInLIST() : SAVE_ME()
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
Dim frMZA As New SDL.frmZollanmeldung("T1", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
frMZA.ShowDialog(Me)
frMZA.Show(Me)
initdgvZollAnmeldungen()
End Sub
@@ -3022,7 +3046,7 @@ Public Class frmSendungsdetailsNEU
Me.loadDataInLIST() : SAVE_ME()
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
Dim frMZA As New SDL.frmZollanmeldung("T2", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
frMZA.ShowDialog(Me)
frMZA.Show(Me)
initdgvZollAnmeldungen()
End Sub
@@ -3030,7 +3054,7 @@ Public Class frmSendungsdetailsNEU
Me.loadDataInLIST() : SAVE_ME()
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
Dim frMZA As New SDL.frmZollanmeldung("AES", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
frMZA.ShowDialog(Me)
frMZA.Show(Me)
initdgvZollAnmeldungen()
End Sub
@@ -3045,7 +3069,7 @@ Public Class frmSendungsdetailsNEU
Me.loadDataInLIST() : SAVE_ME()
If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
Dim frMZA As New SDL.frmZollanmeldung("ÜT", Nothing, AVISO, SENDUNG_LIST(CURRENT_INDEX), Now.ToString("yy"))
frMZA.ShowDialog(Me)
frMZA.Show(Me)
initdgvZollAnmeldungen()
End Sub
@@ -3128,7 +3152,93 @@ Public Class frmSendungsdetailsNEU
End Sub
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
Dim f As New frmSendungAnhangImport(AvisoId)
f.Show(Me)
loadDataInLIST()
SAVE_ME()
Dim f As New frmSendungAnhangImport(AvisoId, SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
f.ShowDialog(Me)
VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, CURRENT_INDEX, AvisoId, False) 'LÄDT alle SENDUNGSDATEN
initDataBinding()
'frmSendungsdetails_Load(Me, New EventArgs)
End Sub
Private Sub MarkiertePDFsDruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MarkiertePDFsDruckenToolStripMenuItem.Click
For Each r As DataGridViewRow In dgvAnhang.SelectedRows
VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaSpirePDF({VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value)})
Next
End Sub
Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
cntxtAnh.Show(Cursor.Position)
End Sub
Private Sub KopierenZwischenablageToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopierenZwischenablageToolStripMenuItem.Click
If dgvAnhang.SelectedRows.Count >= 1 Then
Dim f As New List(Of String)
'For Each SI In MyListBox1.SelectedItems
' Dim item As MyListItem = DirectCast(SI, MyListItem) 'DirectCast(MyListBox1.SelectedItems(0), MyListItem)
' For Each ii In ds.DATA_LIST.LIST
' If ii.coll_id = item.Value Then
' 'Dim f() As String = {ii.coll_pfad}
' If ii.coll_pfad <> "" Then
' f(cnt) = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung)
' cnt += 1
' 'Exit For
' End If
' End If
' Next
'Next
For Each r As DataGridViewRow In dgvAnhang.SelectedRows
f.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value))
Next
'Zwischenablage
Clipboard.Clear()
Dim d As New DataObject(DataFormats.FileDrop, f.ToArray)
Clipboard.SetDataObject(d, True)
Exit Sub
End If
End Sub
Private Sub EMailAnfügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EMailAnfügenToolStripMenuItem.Click
Try
VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.clearTMPPath("ClipBoard_TMP")
If dgvAnhang.SelectedRows.Count >= 1 Then
Try
Dim outl As New Outlook.Application
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
Mail = outl.CreateItem(0)
'For Each SI In MyListBox1.SelectedItems
' Dim item As MyListItem = DirectCast(SI, MyListItem) 'DirectCast(MyListBox1.SelectedItems(0), MyListItem)
' For Each ii In ds.DATA_LIST.LIST
' If ii.coll_id = item.Value Then
' If ii.coll_pfad <> "" Then
' Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.copyToTmp_KeepFilename(ii.coll_pfad, ii.coll_bezeichnung), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
' End If
' End If
' Next
'Next
For Each r As DataGridViewRow In dgvAnhang.SelectedRows
Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
Next
Mail.Subject = "Kennzeichen: " & AVISO.LKW_Nr
Mail.Display()
Catch ex As Exception
MsgBox("Fehler beim Öffnen der Mail!")
End Try
End If
Catch ex As Exception
MsgBox("Fehler beim Öffnen der Mail!")
End Try
End Sub
'Private Sub dgvAnhang_MouseClick(sender As Object, e As MouseEventArgs) Handles dgvAnhang.MouseClick
' If e.Button = MouseButtons.Right Then
' e.
' End If
'End Sub
End Class