Index: APPS/TRANSP/Transsmart/impl/ResponseControleur.cls.xml =================================================================== diff -u -r68311 -r68592 --- APPS/TRANSP/Transsmart/impl/ResponseControleur.cls.xml (.../ResponseControleur.cls.xml) (revision 68311) +++ APPS/TRANSP/Transsmart/impl/ResponseControleur.cls.xml (.../ResponseControleur.cls.xml) (revision 68592) @@ -12,15 +12,19 @@ #dim BevatFout As %Boolean = $$$False if Response.%ClassName(1) = "WS.Transsmart.tns.doManifestResponse" { #dim ManifResponse as WS.Transsmart.tns.doManifestResponse = Response - If $$$Not(##class(TECH.StringUtils).Equals(ManifResponse.manifestResponseInfo.status, "OK")){ - Set BevatFout = $$$True - } - Set ListIt = ##class(TECH.ListIterator).%New(ManifResponse.shipments) - while (ListIt.HasNext()) { - #dim Shipment as WS.Transsmart.tns.DoManifestResponseShipmentStatus = ListIt.Next() - if $$$Not(Shipment.manifestStatus="OK") { - Set BevatFout = $$$True - } + if (ManifResponse.manifestResponseInfo.Status = "ERROR") & ManifResponse.manifestResponseInfo.description = "TMEM2: no shipments to manifest found for client [VANHOECKE] / costcenter [30467] / carrier [DAC] / receiverCountry []" { + ; no shipments to manifest, not an error + } else { + If $$$Not(##class(TECH.StringUtils).Equals(ManifResponse.manifestResponseInfo.status, "OK")){ + Set BevatFout = $$$True + } + Set ListIt = ##class(TECH.ListIterator).%New(ManifResponse.shipments) + while (ListIt.HasNext()) { + #dim Shipment as WS.Transsmart.tns.DoManifestResponseShipmentStatus = ListIt.Next() + if $$$Not(Shipment.manifestStatus="OK") { + Set BevatFout = $$$True + } + } } } else { If $$$Not(##class(TECH.StringUtils).Equals(Response.statusResponseInfo.status, "OK")){