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

Laufzettel NCTS5

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-26 09:00:02 +02:00
parent 04166a91f0
commit 1924ce5ad2
4 changed files with 205 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_ATZOLL.vb
View File

@@ -49,30 +49,30 @@ Public Class subRptLaufzettelZollDE_ATA
If Me.DataSource IsNot Nothing AndAlso Me.Fields IsNot Nothing AndAlso Me.Fields.Item("ATA").Value IsNot Nothing Then
Dim ATAMRN As String = Me.Fields.Item("ATA").Value
ATAMRN = ATAMRN.Replace(" ", "")
ATAMRN = ATAMRN.Replace("/", "")
ATAMRN = ATAMRN.Replace("-", "")
txtATAMRN.Text = ATAMRN
If ATAMRN <> "" Then
Dim barcodeString = ATAMRN
barcodeString = barcodeString.Replace(" ", "")
barcodeString = barcodeString.Replace("/", "")
barcodeString = barcodeString.Replace("-", "")
Dim ACD = ""
Dim monat = ""
If barcodeString.StartsWith("ATA") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(4, 7) : ACD = "A"
If barcodeString.StartsWith("ATC") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(5, 6) : ACD = "C"
If barcodeString.StartsWith("ATD") And barcodeString.Length > 11 Then barcodeString = barcodeString.Substring(5, 6) : ACD = "D"
If ATAMRN.Length > 13 Then monat = ATAMRN.Substring(11, 2)
If barcodeString.Length > 13 Then monat = barcodeString.Substring(11, 2)
If ACD <> "" Then 'ATA/C/D
txtATNr.Visible = True
If IsNumeric(barcodeString) Then barcodeString = CInt(barcodeString).ToString()
txtATNr.Value = ACD & " " & barcodeString & " / " & monat
picBarcodeATAMRN.Visible = False
ElseIf barcodeString.Length > 10 Then 'grobe Pr<50>fung der L<>nge, ob es eine g<>ltige ATA Nr sein kann..
ElseIf ATAMRN.Length > 10 Then 'grobe Pr<50>fung der L<>nge, ob es eine g<>ltige ATA Nr sein kann..
txtATNr.Visible = False
Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(barcodeString, 1, True, 20)
Dim barcodeATA As Image = Code128Rendering.MakeBarcodeImage(ATAMRN, 1, True, 20)
'barcodeATA.RotateFlip(RotateFlipType.Rotate270FlipNone)
picBarcodeATAMRN.Image = barcodeATA
picBarcodeATAMRN.Visible = True

3
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -2118,7 +2118,6 @@ Public Class FormularManagerNEU
AddHandler rpt.Detail.Format, Sub()
Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNGEN(rpt.Fields.Item("Nr").Value)
Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
ZOLLANMELDUNG.getDataByBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString, SND.tblSnd_DakosyRef, AVISO.Grenzstelle) ' Die weiteren Daten werden hier geladen
@@ -2218,6 +2217,8 @@ Public Class FormularManagerNEU
ATAMRN = ZOLLANMELDUNG.getATAMRNBezugsnummer(SND.FilialenNr & "/" & SND.AbfertigungsNr, SND.tblSnd_Abfertigungsart_ID.ToString, SND.tblSnd_DakosyRef)
Dim Colli As Double = 0
Dim Gewicht As Double = 0
If ZOLLANMELDUNG.num_Colli > 0 Then