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

ANhangsarten, addsendeungen, Anhangsimport

Browse Source
This commit is contained in:
d.breimaier
2024-08-28 08:47:38 +02:00
parent d1786e494f
commit a4a7eb3351
6 changed files with 106 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Aviso/Anhänge/frmAddSendnung.vb
View File

@@ -40,7 +40,7 @@
Private Sub frmAddSendnung_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmAddSendnung_Load(sender As Object, e As EventArgs) Handles Me.Load
Me.Text = frmName 'Me.Text = frmName
cboAbfertigungsart.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ", True, "FMZOLL", True) cboAbfertigungsart.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ", True, "FMZOLL", True)
txtEmpfaenger.initKdBox(Me) txtEmpfaenger.initKdBox(Me)

2
Aviso/Anhänge/frmSendungAnhangImport.vb
View File

@@ -1738,7 +1738,7 @@ Public Class frmSendungAnhangImport
If cboSendungen._value <> "" Then If cboSendungen._value <> "" Then
Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(cboSendungen._value) Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(cboSendungen._value)
If SND IsNot Nothing Then If SND IsNot Nothing Then
Dim f As New frmAddSendnung(AvisoId, SND, "Sendung bearbeiten") Dim f As New frmAddSendnung(AvisoId, SND)
If f.ShowDialog(Me) = DialogResult.OK Then If f.ShowDialog(Me) = DialogResult.OK Then
initSendungen() initSendungen()
cboSendungen.changeItem(f.SendungsId) cboSendungen.changeItem(f.SendungsId)

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.0.2.3")> <Assembly: AssemblyVersion("4.0.2.4")>
<Assembly: AssemblyFileVersion("4.0.2.3")> <Assembly: AssemblyFileVersion("4.0.2.4")>

13
Aviso/frmAvisoAnhangsarten.Designer.vb generated
View File

@@ -26,6 +26,7 @@ Partial Class frmAvisoAnhangsarten
Me.btnOK = New System.Windows.Forms.Button() Me.btnOK = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.txtSuche = New System.Windows.Forms.TextBox() Me.txtSuche = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
@@ -46,7 +47,6 @@ Partial Class frmAvisoAnhangsarten
Me.btnOK.TabIndex = 16 Me.btnOK.TabIndex = 16
Me.btnOK.Text = "Speichern" Me.btnOK.Text = "Speichern"
Me.btnOK.UseVisualStyleBackColor = True Me.btnOK.UseVisualStyleBackColor = True
Me.btnOK.Visible = False
' '
'Label2 'Label2
' '
@@ -64,11 +64,21 @@ Partial Class frmAvisoAnhangsarten
Me.txtSuche.Size = New System.Drawing.Size(150, 20) Me.txtSuche.Size = New System.Drawing.Size(150, 20)
Me.txtSuche.TabIndex = 18 Me.txtSuche.TabIndex = 18
' '
'Button1
'
Me.Button1.Location = New System.Drawing.Point(605, 12)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(193, 23)
Me.Button1.TabIndex = 19
Me.Button1.Text = "fehlende Anhangsarten"
Me.Button1.UseVisualStyleBackColor = True
'
'frmAvisoAnhangsarten 'frmAvisoAnhangsarten
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(810, 481) Me.ClientSize = New System.Drawing.Size(810, 481)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtSuche) Me.Controls.Add(Me.txtSuche)
Me.Controls.Add(Me.btnOK) Me.Controls.Add(Me.btnOK)
@@ -85,4 +95,5 @@ Partial Class frmAvisoAnhangsarten
Friend WithEvents btnOK As Button Friend WithEvents btnOK As Button
Friend WithEvents Label2 As Label Friend WithEvents Label2 As Label
Friend WithEvents txtSuche As TextBox Friend WithEvents txtSuche As TextBox
Friend WithEvents Button1 As Button
End Class End Class

53
Aviso/frmAvisoAnhangsarten.vb
View File

@@ -1,5 +1,8 @@
Imports iText.Forms.Xfdf 
Imports DocumentFormat.OpenXml.Wordprocessing
Imports iText.Forms.Xfdf
Imports iText.Kernel.Pdf Imports iText.Kernel.Pdf
Imports System.Runtime.Remoting
Imports System.Web.UI Imports System.Web.UI
Public Class frmAvisoAnhangsarten Public Class frmAvisoAnhangsarten
@@ -92,6 +95,7 @@ Public Class frmAvisoAnhangsarten
Try Try
e.Row.Cells("aa_aktiv").Value = True e.Row.Cells("aa_aktiv").Value = True
e.Row.Cells("aa_isBrexti").Value = False
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) MsgBox(ex.Message)
@@ -110,6 +114,7 @@ Public Class frmAvisoAnhangsarten
SPRACHENBind.updateBinding() SPRACHENBind.updateBinding()
End If End If
End Sub End Sub
@@ -126,5 +131,51 @@ Public Class frmAvisoAnhangsarten
End If End If
End Sub End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim dtAnhaenge As DataTable = sql.loadDgvBySql("SELECT distinct([anh_Art]) as bezeichnung FROM [tblAvisoAnhaenge]", "AVISO")
Dim dtAnhangsarten As DataTable = sql.loadDgvBySql("SELECT distinct([aa_bezeichnung]) as bezeichnung FROM " & table, "AVISO")
If dtAnhaenge.Rows.Count = 0 Or dtAnhangsarten.Rows.Count = 0 Then Exit Sub
Dim resultsTable As New DataTable
resultsTable.Columns.Add("bezeichnung", GetType(String))
For Each rowAnhang As DataRow In dtAnhaenge.Rows
If rowAnhang(0) <> "" Then
Dim isExisting As Boolean = False
For Each rowArt As DataRow In dtAnhangsarten.Rows
If rowArt(0) = rowAnhang(0) Then
isExisting = True
Exit For
End If
Next
If Not isExisting Then
Dim R As DataRow = resultsTable.NewRow
R(0) = rowAnhang(0)
resultsTable.Rows.Add(R)
End If
End If
Next
If resultsTable.Rows.Count > 0 Then
Dim b = New System.Text.StringBuilder()
For Each resultRow In resultsTable.Rows
b.Append(resultRow(0) & vbNewLine)
Next
MsgBox(resultsTable.Rows.Count & " fehlende Anhangsarten:" & vbNewLine & b.ToString)
Else
MsgBox("keine fehlenden Anhangsarten")
End If
End Sub
End Class End Class

68
Aviso/usrcntlAktDetails.vb
View File

@@ -783,42 +783,50 @@ Public Class usrcntlAktDetails
End If End If
Button18.Visible = True Button18.Visible = True
Dim hSQL As String = " Select [anh_id],[anh_Name],[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ], anh_markiert FROM [tblAvisoAnhaenge] Dim hSQL As String '= " Select [anh_id],[anh_Name],[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND anh_Art='' THEN '***' ELSE [anh_Art] END as [anh_Art],[anh_Typ], anh_markiert FROM [tblAvisoAnhaenge]
WHERE [anh_AvisoId]='" & AvisoID & "' " & AktSndAnhaenge & " " & WhereWO & " ' WHERE [anh_AvisoId]='" & AvisoID & "' " & AktSndAnhaenge & " " & WhereWO & "
ORDER BY anh_SendungsId desc, ' ORDER BY anh_SendungsId desc,
case ' case
when [anh_Art] = 'ATR' then 0 ' when [anh_Art] = 'ATR' then 0
when [anh_Art] = 'ATR-EUR1' then 0 ' when [anh_Art] = 'ATR-EUR1' then 0
when [anh_Art] = 'EUR1' then 0.1 ' when [anh_Art] = 'EUR1' then 0.1
when [anh_Art] = 'Rechnung' then 1 ' when [anh_Art] = 'Rechnung' then 1
when [anh_Art] = 'eFatura' then 1.1 ' when [anh_Art] = 'eFatura' then 1.1
when [anh_Art] = 'CMR' then 2 ' when [anh_Art] = 'CMR' then 2
when [anh_Art] = 'Ausfuhr' then 3 ' when [anh_Art] = 'Ausfuhr' then 3
when [anh_Art] = 'Vorpapier' then 4 ' when [anh_Art] = 'Vorpapier' then 4
when [anh_Art] = 'Packliste' then 5 ' when [anh_Art] = 'Packliste' then 5
when [anh_Art] = 'Auftrag' then 6 ' when [anh_Art] = 'Auftrag' then 6
when [anh_Art] = 'Auftrag' then 7 ' when [anh_Art] = 'Auftrag' then 7
when [anh_Art] = 'Dispoliste' then 8 ' when [anh_Art] = 'Dispoliste' then 8
when [anh_Art] = 'Vorkasse' then 9 ' when [anh_Art] = 'Vorkasse' then 9
when [anh_Art] = 'Überweisungsbeleg' then 10 ' when [anh_Art] = 'Überweisungsbeleg' then 10
when [anh_Art] = 'Vollmacht' then 11 ' when [anh_Art] = 'Vollmacht' then 11
when [anh_Art] = 'ATB' then 12 ' when [anh_Art] = 'ATB' then 12
when [anh_Art] = 'ATA' then 13 ' when [anh_Art] = 'ATA' then 13
when [anh_Art] = 'GGED_D' then 40 ' when [anh_Art] = 'GGED_D' then 40
when [anh_Art] = 'GGED_PP' then 41 ' when [anh_Art] = 'GGED_PP' then 41
when [anh_Art] = 'GGED_P' then 42 ' when [anh_Art] = 'GGED_P' then 42
when [anh_Art] = 'GGED_A' then 43 ' when [anh_Art] = 'GGED_A' then 43
when [anh_Art] = 'PHYTO' then 44 ' when [anh_Art] = 'PHYTO' then 44
when [anh_Art] = 'CONFORM' then 45 ' when [anh_Art] = 'CONFORM' then 45
when [anh_Art] = 'Sonstiges' then 99 ' when [anh_Art] = 'Sonstiges' then 99
when [anh_Art] ='' then 15 ' when [anh_Art] ='' then 15
'END, [anh_Reihenfolge],[anh_id]"
hSQL = "SELECT [anh_id],[anh_Name],anh_Datum,[anh_docId],CASE WHEN (anh_SendungsId is null OR anh_SendungsId <=0) AND isnull(aa_name,'')='' THEN '***' ELSE [aa_name] END as [anh_Art],[anh_Typ],anh_LaufzettelDruck,anh_GestellungslisteAnfuegen, anh_markiert , anh_cmrId
FROM [tblAvisoAnhaenge]
left join tblAvisoAnhangsArten on aa_bezeichnung = anh_Art
WHERE anh_AvisoId='" & AvisoID & "'" & AktSndAnhaenge & " " & WhereWO & "
ORDER BY anh_SendungsId desc, case when aa_sort = NULL THEN 15 else aa_sort END, [anh_Reihenfolge],[anh_id]"
END, [anh_Reihenfolge],[anh_id]"
' order by [anh_Reihenfolge],[anh_id] ' order by [anh_Reihenfolge],[anh_id]
gridVermerke.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL) gridVermerke.DataSource = VermerkeDAL.Anzeigen_Vermerke(hSQL)