Index: vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml
===================================================================
diff -u -r35089 -r35092
--- vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 35089)
+++ vhUnitTest/APPS/EDIExport/AankoopOrder/impl/BLUM/Verzender/Verzend/Test.cls.xml	(.../Test.cls.xml)	(revision 35092)
@@ -27,7 +27,149 @@
 
 	#dim XMlStream As %Stream = FileAPIFake.GeefFileWriter().GeefInhoudBestandNaam(..GeefBestandVolledigNaam())
 	
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<?xml version=""1.0"" encoding=""UTF-8""?>"),"")
 	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<ORDERS05>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<IDOC BEGIN=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<EDI_DC40 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<TABNAM>EDI_DC40</TABNAM>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<MANDT>01</MANDT>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<DOCREL>46C</DOCREL>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<STATUS>30</STATUS>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<DIRECT>1</DIRECT>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<IDOCTYP>ORDERS05</IDOCTYP>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<MESTYP>ORDERS</MESTYP>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<STDMES>ORDERS</STDMES>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<SNDPRN>0000000000000</SNDPRN>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<RCVPRN>9002617000009</RCVPRN>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</EDI_DC40>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDK01 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<CURCY>EUR</CURCY>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDK01>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDK03 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<IDDAT>011</IDDAT>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<DATUM>20121211</DATUM>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDK03>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDKA1 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PARVW>AG</PARVW>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PARTN>###Partner-ID###</PARTN>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<NAME1>Partner name</NAME1>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<NAME2>Partner name2</NAME2>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<STRAS>Street</STRAS>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<STRS2>Street2</STRS2>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<ORT01>City</ORT01>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<COUNC>AT</COUNC>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PSTLZ>PLZ</PSTLZ>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDKA1>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDKA1 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PARVW>WE</PARVW>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PARTN>###Unique Code/ID for unique delivery adress###</PARTN>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<NAME1>Partner name</NAME1>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<NAME2>Partner name2</NAME2>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<STRAS>Street</STRAS>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<STRS2>Street2</STRS2>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<ORT01>City</ORT01>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<COUNC>AT</COUNC>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PSTLZ>PLZ</PSTLZ>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDKA1>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDKA1 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PARVW>LF</PARVW>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PARTN>9002617000009</PARTN>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<NAME1>Julius Blum GmbH</NAME1>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<STRAS>Industrie. 1</STRAS>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<ORT01>Hoechst</ORT01>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<COUNC>AT</COUNC>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PSTLZ>6973</PSTLZ>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDKA1>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDK02 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<QUALF>001</QUALF>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<BELNR>00000</BELNR>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<DATUM>20121211</DATUM>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDK02>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDK17 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<QUALF>001</QUALF>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<LKOND>FCA</LKOND>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<LKTEXT>FCA, City  </LKTEXT>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDK17>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDK18 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<QUALF>001</QUALF>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<ZTERM_TXT>30 days- 3 % Skonto  </ZTERM_TXT>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDK18>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDKT1 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<TDID>002</TDID>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDKT2 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<TDLINE>Dummy Order Text ##Order Text##</TDLINE>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDKT2>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDKT1>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDP01 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<POSEX>001000</POSEX>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<ACTION>1</ACTION>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<MENGE>500.</MENGE>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<MENEE>PCE</MENEE>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PMENE>PCE</PMENE>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<VPREI>34.8</VPREI>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PEINH>100</PEINH>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<NETWR>6.96</NETWR>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PREIS>11.6</PREIS>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDP03 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<IDDAT>002</IDDAT>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<DATUM>20121214</DATUM>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDP03>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDP19 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<QUALF>001</QUALF>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<IDTNR>12345678</IDTNR>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<KTEXT>artikel text</KTEXT>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDP19>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDP19 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<QUALF>002</QUALF>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<IDTNR>01026503</IDTNR>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDP19>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDP19 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<QUALF>003</QUALF>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<IDTNR>9002617278934</IDTNR>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDP19>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDPT1 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<TDID>004</TDID>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDPT2>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<TDLINE>Positionstext ##Position Text##</TDLINE>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDPT2>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDPT1>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDP01>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDP01 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<POSEX>002000</POSEX>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<ACTION>1</ACTION>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<MENGE>500.</MENGE>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<MENEE>PCE</MENEE>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PMENE>PCE</PMENE>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<VPREI>34.8</VPREI>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PEINH>100</PEINH>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<NETWR>6.96</NETWR>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<PREIS>11.6</PREIS>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDP03 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<IDDAT>002</IDDAT>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<DATUM>20121214</DATUM>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDP03>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDP19 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<QUALF>001</QUALF>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<IDTNR>12345678</IDTNR>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<KTEXT>artikel text</KTEXT>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDP19>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDP19 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<QUALF>002</QUALF>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<IDTNR>01026503</IDTNR>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDP19>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDP19 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<QUALF>003</QUALF>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<IDTNR>9002617278934</IDTNR>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDP19>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDPT1 SEGMENT=""1"">"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<TDID>004</TDID>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<E1EDPT2>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"<TDLINE>Positionstext ##Position Text##</TDLINE>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDPT2>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDPT1>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</E1EDP01>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</IDOC>"),"")
+	do $$$AssertTrue(##class(TECH.StreamUtils).IsTextInStream(XMlStream,"</ORDERS05>"),"")
 ]]></Implementation>
 </Method>