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