Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Domein/LaseropdrachtController.vb
===================================================================
diff -u -r1932 -r1933
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Domein/LaseropdrachtController.vb (.../LaseropdrachtController.vb) (revision 1932)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Domein/LaseropdrachtController.vb (.../LaseropdrachtController.vb) (revision 1933)
@@ -30,7 +30,7 @@
End If
'Geen twee opdrachten vlak achter elkaar (tweede negeren)
- If IsNothing(_laserOpdracht) Then Return False
+ If Not IsNothing(_laserOpdracht) Then Return False
Try
'_laserOpdracht = _cacheMapper.GeefInfoMetBarcodeId("ZCV42L90105")
@@ -80,6 +80,9 @@
Dim scriptProces = Process.Start(scriptProcessProperties)
scriptProces.WaitForExit()
+ 'Als het script een fout heeft opgelopen, toon dit (zorgt ervoor dat operator geen foute opdracht uitvoert)
+ If scriptProces.ExitCode <> 0 Then Throw New Exception($"Het Python script heeft een fout ondervonden, probeer opnieuw.{vbNewLine}De foutmelding staat in het log bestand.")
+
_laserOpdracht = Nothing
Catch ex As Exception
Throw New Exception($"De laser opdracht kon niet worden verwerkt:{vbNewLine}{ex.Message}")
Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Laser Gravering.vbproj
===================================================================
diff -u -r1929 -r1933
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Laser Gravering.vbproj (.../Laser Gravering.vbproj) (revision 1929)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Laser Gravering.vbproj (.../Laser Gravering.vbproj) (revision 1933)
@@ -27,8 +27,8 @@
false
false
true
- 1
- 1.6.0.%2a
+ 2
+ 1.7.0.%2a
false
true
true