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

Korrektur Zoll Auswertungen

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-01-02 11:38:30 +01:00
parent f258201c87
commit f82be87030
2 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/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("1.2.2.7")> <Assembly: AssemblyVersion("1.2.2.8")>
<Assembly: AssemblyFileVersion("1.2.2.7")> <Assembly: AssemblyFileVersion("1.2.2.8")>

16
SDL/Reports/Zoll/subrptKontrolleLKW_Dakosy.vb
View File

@@ -37,9 +37,21 @@ Public Class subrptKontrolleLKW_Dakosy
'lblArbNrValue.Text = nullStr(Fields.Item("ArbNr").Value) 'lblArbNrValue.Text = nullStr(Fields.Item("ArbNr").Value)
lblMRNValue.Text = nullStr(Fields.Item("ncts_MRN").Value) lblMRNValue.Text = nullStr(Fields.Item("ncts_MRN").Value)
'.Text = nullStr(Fields.Item("Pos").Value) '.Text = nullStr(Fields.Item("Pos").Value)
lblAnDatValue.Text = nullDat(Fields.Item("ncts_Eroeffnung").Value)
If Fields.Item("ncts_Eroeffnung") IsNot Nothing AndAlso Fields.Item("ncts_Eroeffnung").Value IsNot DBNull.Value Then
lblAnDatValue.Text = nullDat(Fields.Item("ncts_Eroeffnung").Value)
Else
lblAnDatValue.Text = nullDat(Fields.Item("ncts_Trans_DatumZeit").Value)
End If
If Fields.Item("ncts_Ankunft") IsNot Nothing AndAlso Fields.Item("ncts_Ankunft").Value IsNot DBNull.Value Then
lblGestDatValue.Text = nullDat(Fields.Item("ncts_Ankunft").Value)
Else
lblGestDatValue.Text = nullDat(Fields.Item("ncts_GestelltAm").Value)
End If
' lblAnDatValue.Text = nullDat(Fields.Item("ncts_Trans_DatumZeit").Value) ' lblAnDatValue.Text = nullDat(Fields.Item("ncts_Trans_DatumZeit").Value)
lblGestDatValue.Text = nullDat(Fields.Item("ncts_Ankunft").Value)
lblSBValue.Text = nullStr(Fields.Item("ncts_Bearbeiter").Value) lblSBValue.Text = nullStr(Fields.Item("ncts_Bearbeiter").Value)
lblBuergschaft.Text = nullStr(Fields.Item("nctsSA_GRN").Value) lblBuergschaft.Text = nullStr(Fields.Item("nctsSA_GRN").Value)
If Not Fields.Item("nctsSA_AbgabenBetrag").Value Is DBNull.Value Then If Not Fields.Item("nctsSA_AbgabenBetrag").Value Is DBNull.Value Then