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

Projektdateien hinzufügen.

Browse Source
This commit is contained in:
VERAG Spedition AG: Abtl. IT Hr. Andreas Luxbauer
2019-08-08 09:19:41 +02:00
parent d3677973e6
commit 009bb01027
573 changed files with 166751 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

130
Aviso/usrCntlSND_NCTSGestellungsadresse.vb Normal file
View File

@@ -0,0 +1,130 @@
Public Class usrCntlSND_NCTSGestellungsadresse
Public NCTS_GA As VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(id)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
NCTS_GA = New VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen(id)
End Sub
Public Sub setValues()
txtT1Verzollungsadresse.Text = If(NCTS_GA.nga_name, "")
txtT1VerzollungsadresseStrasse.Text = If(NCTS_GA.nga_strasse, "")
txtT1VerzollungsadressePlz.Text = If(NCTS_GA.nga_plz, "")
txtT1VerzollungsadresseOrt.Text = If(NCTS_GA.nga_ort, "")
sbT1VerzollungsadresseLand.SET_VALUE(If(NCTS_GA.nga_land, ""))
txtT1VerzollungsadresseAnspr.Text = If(NCTS_GA.nga_Ansprechpartner, "")
txtT1VerzollungsadresseEORI.Text = If(NCTS_GA.nga_EORI, "")
txtT1VerzollungsadresseEORI_NL.Text = If(NCTS_GA.nga_EORI_NL, "")
txtT1VerzollungsadresseBestimmungszollstelle.SET_VALUE(If(NCTS_GA.nga_bestZollst, ""))
lblNGAId.Text = If(NCTS_GA.nga_id > 0, NCTS_GA.nga_id, "-")
picDel.Visible = (NCTS_GA.nga_id > 0)
End Sub
Public Sub getValues()
NCTS_GA.nga_name = txtT1Verzollungsadresse.Text
NCTS_GA.nga_strasse = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseStrasse.Text)
NCTS_GA.nga_plz = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadressePlz.Text)
NCTS_GA.nga_ort = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseOrt.Text)
NCTS_GA.nga_land = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(sbT1VerzollungsadresseLand._value)
NCTS_GA.nga_Ansprechpartner = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseAnspr.Text)
NCTS_GA.nga_EORI = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseEORI.Text)
NCTS_GA.nga_EORI_NL = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseEORI_NL.Text)
NCTS_GA.nga_bestZollst = VERAG_PROG_ALLGEMEIN.SQL.isNullNothing(txtT1VerzollungsadresseBestimmungszollstelle._value)
End Sub
Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
Try
If Me.FindForm.GetType Is GetType(frmSendungsdetailsNEU) Then
Dim f = DirectCast(Me.FindForm, frmSendungsdetailsNEU)
If f.txtEmpfaenger.KdNr > 0 AndAlso f.txtEmpfaenger.KdData_ADRESSEN IsNot Nothing Then
txtT1Verzollungsadresse.Text = (If(f.txtEmpfaenger.KdData_ADRESSEN.Name_1, "") & " " & If(f.txtEmpfaenger.KdData_ADRESSEN.Name_2, "")).trim
txtT1VerzollungsadresseStrasse.Text = If(f.txtEmpfaenger.KdData_ADRESSEN.Straße, "")
txtT1VerzollungsadressePlz.Text = If(f.txtEmpfaenger.KdData_ADRESSEN.PLZ, "")
txtT1VerzollungsadresseOrt.Text = If(f.txtEmpfaenger.KdData_ADRESSEN.Ort, "")
sbT1VerzollungsadresseLand.SET_VALUE(SDL.cProgramFunctions.getISO2Land(If(f.txtEmpfaenger.KdData_ADRESSEN.LandKz, "")))
If f.txtEmpfaenger.KdData_KUNDE IsNot Nothing Then
txtT1VerzollungsadresseEORI.Text = If(f.txtEmpfaenger.KdData_KUNDE.EORITIN, "")
txtT1VerzollungsadresseEORI_NL.Text = If(f.txtEmpfaenger.KdData_KUNDE.EORITIN_NL, "")
End If
Else
txtT1Verzollungsadresse.Text = f.txtEmpfaenger.Text
End If
End If
Catch ex As Exception
End Try
End Sub
Private Sub usrCntlSND_NCTSGestellungsadresse_Load(sender As Object, e As EventArgs) Handles Me.Load
If NCTS_GA Is Nothing Then : NCTS_GA = New VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen
Else : setValues() : End If
txtT1VerzollungsadresseBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
sbT1VerzollungsadresseLand.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code] display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200)
txtT1Verzollungsadresse.initSearchBox(Me.FindForm, " [nga_id] ,[nga_name] as Name,isnull(nga_ort,'') as Ort FROM tblNCTSGestellungsadressen", {"nga_id", "nga_name", "nga_ort", "nga_strasse", "nga_bestZollst", "nga_EORI"}, " nga_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' ", "nga_id", "nga_id", "Name", "FMZOLL", , 400, 200, {"nga_id"})
End Sub
Sub reset()
NCTS_GA = New VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen
setValues()
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Save_Me()
End Sub
Function Save_Me() As Boolean
getValues()
Save_Me = NCTS_GA.SAVE
lblNGAId.Text = NCTS_GA.nga_id
End Function
Private Sub txtT1Verzollungsadresse_VALUE_CHANGED() Handles txtT1Verzollungsadresse.VALUE_CHANGED
If txtT1Verzollungsadresse._value <> "" Then
NCTS_GA = New VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen(txtT1Verzollungsadresse._value)
setValues()
End If
End Sub
Private Sub lblNGAId_Click(sender As Object, e As EventArgs) Handles lblNGAId.Click
reset()
End Sub
Private Sub picDel_Click(sender As Object, e As EventArgs) Handles picDel.Click
If vbYes = MsgBox("Möchten Sie die NCTS-Gestellungsadresse wirklich löschen?", vbYesNoCancel + MsgBoxStyle.DefaultButton2) Then
NCTS_GA.DELETE()
NCTS_GA = New VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen
setValues()
End If
End Sub
End Class