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

stammref, template

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-02 08:25:48 +01:00
parent 2cac04acc6
commit 61a7b3d011
4 changed files with 15 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb
View File

@@ -770,16 +770,16 @@ Public Class usrCntlATLAS_EZA
End Sub End Sub
Private Sub DateiimportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiimportToolStripMenuItem.Click Private Sub DateiimportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DateiimportToolStripMenuItem.Click
'----- Kann ansonten keine Version freigeben!!!
'Dim f As New cATLAS_EZA_IMPORT(AVISO, SENDUNG, EZA)
'f.ShowDialog(Me.FindForm)
'EZA = f.EZA
'Me.FindForm.SuspendLayout() Dim f As New cATLAS_EZA_IMPORT(AVISO, SENDUNG, EZA)
'POSITIONEN.setValues(EZA, True) f.ShowDialog(Me.FindForm)
'btnPositionen.PerformClick() EZA = f.EZA
'Me.FindForm.ResumeLayout()
Me.FindForm.SuspendLayout()
POSITIONEN.setValues(EZA, True)
btnPositionen.PerformClick()
Me.FindForm.ResumeLayout()
End Sub End Sub

6
SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb
View File

@@ -252,12 +252,16 @@
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GLO", "GLO")) cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GLO", "GLO"))
cboNL.changeItem("IME") cboNL.changeItem("IME")
Case "ATIL" Case "ATIL"
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUW", "SUW")) cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUW", "SUW"))
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBWO", "AMBWO")) cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBWO", "AMBWO"))
cboNL.changeItem("SUW") cboNL.changeItem("SUW")
Case "UNAT" Case "UNAT"
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATSP", "ATSP")) cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATSPED", "ATSPED"))
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DESPED", "DESPED"))
cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ZOLL", "ZOLL"))
cboNL.changeItem("ATSP") cboNL.changeItem("ATSP")
End Select End Select

2
SDL/zoll/frmZollBrgBuchungenFremd.vb
View File

@@ -119,7 +119,7 @@ Public Class frmZollBrgBuchungenFremd
END AS Firma END AS Firma
FROM [VERAG].[dbo].[tblDakosy_NCTSOut004] FROM [VERAG].[dbo].[tblDakosy_NCTSOut004]
INNER JOIN tblDakosy_Zollanmeldungen ON ncts_dyaAnmID = dy_Id INNER JOIN tblDakosy_Zollanmeldungen ON ncts_dyaAnmID = dy_Id
LEFT JOIN [SQLGUIDE01].[AVISO].[dbo].[Aviso] ON dy_AvisoId = Avisoid LEFT JOIN [AVISO].[dbo].[Aviso] ON dy_AvisoId = Avisoid
WHERE ncts_MRN IN (" & String.Join(",", nctsParam) & ");" WHERE ncts_MRN IN (" & String.Join(",", nctsParam) & ");"
Using cmd As New SqlCommand(nctsSql, conn) Using cmd As New SqlCommand(nctsSql, conn)

1
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/RELAYHUB/cRelayHub.vb
View File

@@ -255,6 +255,7 @@ Public Class cRelayHub
Case "Ursprungszeugnis", "CoO" : fileType = "origin" Case "Ursprungszeugnis", "CoO" : fileType = "origin"
Case "Lieferschein" : fileType = "delivery_note" Case "Lieferschein" : fileType = "delivery_note"
Case "Packliste" : fileType = "packaging_list" Case "Packliste" : fileType = "packaging_list"
Case "FFFFFFFFFFFFFFFFFF" : fileType = "ftz"
Case Else : fileType = "other" Case Else : fileType = "other"
End Select End Select