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-10-28 09:30:39 +01:00
parent d29dc72b22
commit 6ae299259e
38 changed files with 2570 additions and 1168 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
Aviso/frmEintragAviso.vb
View File

@@ -81,17 +81,27 @@ Public Class frmEintragAviso
End If
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
txtSndFiskalAT.Visible = False
lblFiskAT.Visible = False
txtSndFiskalDE.Visible = False
lblFiskDE.Visible = False
cboImEx.Visible = True
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "IMEX"
txtSndFiskalAT.Visible = False
lblFiskAT.Visible = False
txtSndFiskalDE.Visible = False
lblFiskDE.Visible = False
cboImEx.Visible = True
txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
txtBestimmungszollstelle.Visible = True
lblZA.Visible = True
Case "UNISPED"
lblDy.Visible = True
txtDyRef.Visible = True
picDy.Visible = True
End Select
txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
txtBestimmungszollstelle.Visible = True
lblZA.Visible = True
End If
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
Case "WAI"
@@ -195,6 +205,7 @@ Public Class frmEintragAviso
Else
Me.Text = "Änderung LKW-Aviso"
txtInfo.Visible = False
Label3.Visible = False
'ausgewählter Datensatz wird geladen
grpAktVerzollung.Visible = False
cbxSendungsvorlagen.Visible = False
@@ -609,6 +620,7 @@ Public Class frmEintragAviso
myAviso.Datum = dtpDatum.Value
myAviso.LKW_Nr = txtLKW_Nr.Text.Trim.Replace(" ", "")
myAviso.LKW_Nationalitaet = sbLkwNationalitaet._value
myAviso.DakosyRef = SQL.isNullNothing(txtDyRef.Text.Trim)
myAviso.FahrerHandy = If(txtFahrerHandy.Text.Trim <> "", txtFahrerHandy.Text.Trim, Nothing)
@@ -1531,4 +1543,12 @@ Public Class frmEintragAviso
Private Sub dtpAvisoEingangZeit_ValueChanged(sender As Object, e As EventArgs) Handles dtpAvisoEingangZeit.ValueChanged
End Sub
Private Sub Label22_Click(sender As Object, e As EventArgs) Handles Label22.Click
If kdAvisierer.KdNr_value > 0 Then
kdFrächter.KdNr = kdAvisierer.KdNr
ElseIf kdAvisierer.Text <> "" Then
kdFrächter.Text = kdAvisierer.Text
End If
End Sub
End Class