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

SendungsAnhänge

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-03-06 22:15:09 +01:00
parent a950aba8f4
commit e5228f3038
6 changed files with 25 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1064,6 +1064,7 @@ Public Class frmSendungAnhangImport
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATR-EUR1", "ATR-EUR1"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnung", "Rechnung"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("eFatura", "eFatura"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CMR", "CMR"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "Ausfuhr"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorpapier", "Vorpapier"))
@@ -1078,6 +1079,7 @@ Public Class frmSendungAnhangImport
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UID-Prüfung", "UID"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Prüfung", "EORI"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", "EORI_ANTRAG"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lieferschein", "Lieferschein"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ursprungszeugnis", "CoO"))
If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE = 7001 Then

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

@@ -16,6 +16,7 @@
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATR-EUR1", "ATR-EUR1"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnung", "Rechnung"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("eFatura", "eFatura"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("CMR", "CMR"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ausfuhr", "Ausfuhr"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vorpapier", "Vorpapier"))
@@ -30,6 +31,7 @@
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATA-Nr", "ATA"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UID-Prüfung", "UID"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Prüfung", "EORI"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EORI-Antrag", "EORI_ANTRAG"))
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lieferschein", "Lieferschein"))
If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE = 7001 Then
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB - C88", "C88"))

4
Aviso/My Project/AssemblyInfo.vb
View File

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

7
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -3141,6 +3141,7 @@ Public Class frmSendungsdetailsNEU
when [anh_Art] = 'ATR-EUR1' then 0
when [anh_Art] = 'Rechnung' then 1
when [anh_Art] = 'eFatura' then 1.1
when [anh_Art] = 'CMR' then 2
when [anh_Art] = 'Ausfuhr' then 3
when [anh_Art] = 'Vorpapier' then 4
@@ -5753,7 +5754,11 @@ Public Class frmSendungsdetailsNEU
lblSNDChat_MsgCnt.Visible = True
lblSNDChat_MsgCnt.BringToFront()
End If
'If VERAG_PROG_ALLGEMEIN.cMessenger.isACTIVE_SendungsID(SendungsID) Then
' lblSNDChat_MsgCnt.Text = "!!"
' lblSNDChat_MsgCnt.Visible = True
' lblSNDChat_MsgCnt.BringToFront()
'End If
End If
End If

13
Aviso/usrcntlAktDetails.vb
View File

@@ -141,8 +141,13 @@ Public Class usrcntlAktDetails
lblLKWChat_MsgCnt.Visible = True
lblLKWChat_MsgCnt.BringToFront()
End If
'If VERAG_PROG_ALLGEMEIN.cMessenger.isACTIVE_AVISOID(AvisoID) Then
' lblLKWChat_MsgCnt.Text = "!!"
' lblLKWChat_MsgCnt.Visible = True
' lblLKWChat_MsgCnt.BringToFront()
'End If
End If
End If
End If
End Sub
Sub initSND_CHAT(SendungsID)
@@ -158,6 +163,11 @@ Public Class usrcntlAktDetails
lblSNDChat_MsgCnt.Visible = True
lblSNDChat_MsgCnt.BringToFront()
End If
'If VERAG_PROG_ALLGEMEIN.cMessenger.isACTIVE_SendungsID(SendungsID) Then
' lblSNDChat_MsgCnt.Text = "!!"
' lblSNDChat_MsgCnt.Visible = True
' lblSNDChat_MsgCnt.BringToFront()
'End If
End If
End If
@@ -755,6 +765,7 @@ Public Class usrcntlAktDetails
case
when [anh_Art] = 'ATR-EUR1' then 0
when [anh_Art] = 'Rechnung' then 1
when [anh_Art] = 'eFatura' then 1.1
when [anh_Art] = 'CMR' then 2
when [anh_Art] = 'Ausfuhr' then 3
when [anh_Art] = 'Vorpapier' then 4

1
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -479,6 +479,7 @@ Public Class usrcntlAktDetailsATILLANeu
case
when [anh_Art] = 'ATR-EUR1' then 0
when [anh_Art] = 'Rechnung' then 1
when [anh_Art] = 'eFatura' then 1.1
when [anh_Art] = 'CMR' then 2
when [anh_Art] = 'Ausfuhr' then 3
when [anh_Art] = 'Vorpapier' then 4