Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml =================================================================== diff -u -r53437 -r53467 --- APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml (.../IDataOphaler.cls.xml) (revision 53437) +++ APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml (.../IDataOphaler.cls.xml) (revision 53467) @@ -52,7 +52,7 @@ Set OudeRegistratie=##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.GaNaarProduct).OpzoekenCode(..Registratie.RegistratieCode) If OudeRegistratie'="",OudeRegistratie.PRNr'=..Registratie.PRNr { - ;Do ..SendWarnings(OudeRegistratie) + Do ..SendWarnings(OudeRegistratie) Set ReturnWaarde="Dubbele registratie van "_..Registratie.RegistratieCode_" op "_OudeRegistratie.Tijdstip Do ##class(vhLib.Logger).%New("LADEREGISTRATIE").Info("Dubbel gebruik van barcode "_..Registratie.RegistratieCode_" op "_OudeRegistratie.Tijdstip_" Indien het tijdstip ouder is dan 30min. en in de logging zijn er meerdere registraties, gelieve dan planning te verwittigen dat ze de rol met de OL etiketten moeten vervangen op lijn "_..Registratie.Werkpost) } @@ -80,8 +80,9 @@ Set Subject = "Dubbele etiketten in productie ! (Rol vervangen.)" Set Body= ##class(%GlobalCharacterStream).%New() - Set Message ="Dubbele registratie van "_..Registratie.RegistratieCode_" op "_OudeRegistratie.Tijdstip + Set Message ="Dubbele registratie van "_..Registratie.RegistratieCode_" , tijdstip vorige registratie : "_OudeRegistratie.Tijdstip Set Message = Message _ " Gelieve dan planning te verwittigen dat ze de rol met de OL etiketten moeten vervangen voor werkpost "_..Registratie.Werkpost _" en Ladetype " _..Registratie.Familie + Set Message = Message _ " Oude productnr " _OudeRegistratie.PRNr _" - gescande productnr " _..Registratie.PRNr Do Body.WriteLine(Message) Do SendMiniMail^vhLib($$$SystemMail("Laderegistratie - productie"),MailTo,Subject,Body,1,1)