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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-10-02 10:37:26 +02:00
parent ce31c2c398
commit 75b12f314d
42 changed files with 1131 additions and 510 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -56,8 +56,9 @@ Public Class subRptLaufzettelZollDE_ATA
If IsNumeric(barcodeString) Then barcodeString = CInt(barcodeString).ToString()
txtATNr.Value = ACD & " " & barcodeString & " / " & monat
picBarcodeATAMRN.Visible = False
Else
ElseIf barcodeString.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)
'barcodeATA.RotateFlip(RotateFlipType.Rotate270FlipNone)
picBarcodeATAMRN.Image = barcodeATA