Index: vhUnitTest/APPS/OV/impl/TestFlowObjectInhoudService.cls.xml =================================================================== diff -u -r867 -r995 --- vhUnitTest/APPS/OV/impl/TestFlowObjectInhoudService.cls.xml (.../TestFlowObjectInhoudService.cls.xml) (revision 867) +++ vhUnitTest/APPS/OV/impl/TestFlowObjectInhoudService.cls.xml (.../TestFlowObjectInhoudService.cls.xml) (revision 995) @@ -1,11 +1,11 @@ - + do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.OV.impl.TestFlowObjectInhoudService") 1 vhUnitTest.TestCase -62131,53568.47021 +62182,30582.101335 0 @@ -33,6 +33,78 @@ Set ^KO1(113220,"F") = "14308\" + Set ^KFAP("F",95234,0,0) = "7587\C\05.09.09\1\EUR\05.06.09\28.26\28.26\5.93\0\0\34.19\0\34\\\8#0\\\\\\\\\\" + Set ^KFAP("F",95234,0,1) = "8#28.26#\8#28.26#\8#5.93#\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFAP("F",95234,0,2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFAP("F",95234,0,3) = "\\\\\\\\\\\\\\\\\\\\##\1.81319\\\\\\\\\" + Set ^KFAP("F",95234,"U323725",0) = "\" + Set ^KFAP("F",95234,"U323725",1) = "\29.05.09\\\\7587\INT #Intern\\\\\\0.00##1.81319\\\\\EUR\\\00\1\\###\P\\\F\F\\\\\\\\\\" + Set ^KFAP("F",95234,"U323725",2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFAP("F",95234,"U323725",3) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFAP("F",95234,"U323725",4) = "3" + Set ^KFAP("F",95234,"U323725",101) = "\\\58#1031#61510,35028\122545 - 29.05.09 - Retour Halux 29/5\\\\\\\\\\100\\KF5\\DIV#61510,35028#122545\\\\\\\" + Set ^KFAP("F",95234,"U323725",102) = "707000 \11651\-1\\\28.26\0#\8\-28.26\-28.26\707000 \L\\F\200\-28.26\KF6\\\\E1\EUR\\\09/22\\\\\\\\\\\\\\\\1\1\\\\1" + + Set ^KFAP("F",95348,0,0) = "7878\F\08.07.09\1\EUR\08.06.09\0\0\0\0\0\0\0\0\\\8#0.00\\\\\\\\\\" + Set ^KFAP("F",95348,0,1) = "\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFAP("F",95348,0,2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFAP("F",95348,0,3) = "\\\\\\\\\\\\\\\\\\\\##\3.26808\\\\\\\\\" + Set ^KFAP("F",95348,"U325226",0) = "\" + Set ^KFAP("F",95348,"U325226",1) = "\05.06.09\\\\7878\DI1 #Distributeur 1 - GLS\4361;325226;5036\#\\\\0.00##3.26808\\\\\EUR\\\00\1\\###\M\\\F\F\CO\\\\1042#61517,29237\\\\TP4361\\\\OD1;61517;130410;25253" + Set ^KFAP("F",95348,"U325226",2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFAP("F",95348,"U325226",3) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFAP("F",95348,"U325226",4) = "4" + Set ^KFAP("F",95348,"U325226",101) = "\\\1043#1172#61514,60564\123332 - 02.06.09 - 02.06.09 U/TEL JME/G\\\\\\\\\\100\\KF5\\1043#61514,60571#123332\VERVANGING\\#\\\\" + Set ^KFAP("F",95348,"U325226",102) = "703000 \165827\1\\\13.57\20#\8\13.57\13.57\703000 \L\\F\200\13.57\KF6\\\\E1\EUR\\\09/23\\\\\\\\7.1218\\\\\\\\1\1\\\\0" + Set ^KFAP("F",95348,"U325226",103) = "703000 \165830\1\\\16.28\20#\8\16.28\16.28\703000 \L\\F\300\16.28\KF6\\\\E1\EUR\\\09/23\\\\\\\\8.5452\\\\\\\\1\1\\\\0" + + Set ^KFA("F",652567,0,0) = "3446\F\09.05.06\1\EUR\10.03.06\808.20\792.04\166.33\0.00\0.00\974.53\16.16\974.53\\\8#0.00\\\\\\\\\\" + Set ^KFA("F",652567,0,1) = "8#808.20#\8#792.04#\8#166.33#\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFA("F",652567,0,2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFA("F",652567,0,3) = "\\\\\\\\\\\\\\\\\\\\0#0#0\87.0562\\\\\\\\\" + Set ^KFA("F",652567,"U324846",0) = "\" + Set ^KFA("F",652567,"U324846",1) = "\09.03.06\\\\3446\SP #ABX logistics\1291;324846;5036\#\\\\0.00##87.0562\\\\\EUR\005003\\00\1\\###\\\\F\\SP\\\\\\\\TP1291\" + Set ^KFA("F",652567,"U324846",2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFA("F",652567,"U324846",3) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFA("F",652567,"U324846",4) = "7" + Set ^KFA("F",652567,"U324846",101) = "\\\1048#1053#60333,38618\199402 - 09.03.06 - 09.03.06 U/TEL PBU/KS\\\\\\\\\\100\\KF5\\1048#60333,38626#199402\\\\\\\" + Set ^KFA("F",652567,"U324846",102) = "703000 \19134\20\\\4.67\20#\8\93.40\93.40\703000 \L\\\200\93.40\KF6\\\\E1\EUR\\\06/10\\\\\\\116.8\56.036\93.4\\\\\\\1\1" + Set ^KFA("F",652567,"U324846",103) = "703000 \19135\20\\\4.67\20#\8\93.40\93.40\703000 \L\\\300\93.40\KF6\\\\E1\EUR\\\06/10\\\\\\\116.8\56.036\93.4\\\\\\\1\1" + Set ^KFA("F",652567,"U324846",104) = "703000 \141634\20\\\5.41\20#\8\108.20\108.20\703000 \L\\\400\108.20\KF6\\\\E1\EUR\\\06/10\\\\\\\135.2\64.894\108.2\\\\\\\1\1" + Set ^KFA("F",652567,"U324846",105) = "703000 \141647\20\\\5.41\20#\8\108.20\108.20\703000 \L\\\500\108.20\KF6\\\\E1\EUR\\\06/10\\\\\\\135.2\64.894\108.2\\\\\\\1\1" + Set ^KFA("F",652567,"U324846",106) = "703000 \89761\20\A\\20.25\20#\8\405.00\405.00\703000 \L\\\600\405.00\KF6\\\\E1\EUR\\\06/10\\\\\\\506.4\243\405\\\\\\\1\1" + + Set ^KFA("F",652568,0,0)="3498\F\10.04.06\1\EUR\10.03.06\18.25\17.89\3.76\0.00\0.00\22.01\.36\22.01\\\8#0.00\\\\\\\\\\" + Set ^KFA("F",652568,0,1)="8#18.25#\8#17.89#\8#3.76#\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFA("F",652568,0,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFA("F",652568,0,3)="\\\\\\\\\\\\\\\\\\\\0#0#0\1.8524\\\\\\\\\" + Set ^KFA("F",652568,"U324761",0)="\" + Set ^KFA("F",652568,"U324761",1)="\09.03.06\\\\3498\SP #ABX logistics\1291;324761;5036\#\\\\0.00##1.8524\\\\\EUR\005003\\00\1\\###\\\\F\\SP\\\\\\\\TP1291\" + Set ^KFA("F",652568,"U324761",2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KFA("F",652568,"U324761",3)="1\CORLUY ROBERT\MEUBELMAKERIJ\DHR.\KWIKAARD 128\2980\ZOERSEL\1019\N\\\\03-385 37 62\\\\\\.\\\\\\\\\\\\\\\\\" + Set ^KFA("F",652568,"U324761",4)="5" + Set ^KFA("F",652568,"U324761",101)="\\\1023#1043#60333,29860\199294 - 09.03.06 - 09.03.06 U/FAX AB/RC\\\\\\\\\\100\\KF5\\1023#60333,29869#199294\\\\\\\" + Set ^KFA("F",652568,"U324761",102)="703000 \10479\1\\\0.54\10#\8\0.54\0.54\703000 \L\\\200\0.54\KF6\\\\E1\EUR\\\06/10\\\\\\\.6\.2846\.54\\\\\\\1\1" + Set ^KFA("F",652568,"U324761",103)="703000 \10480\1\\\0.54\10#\8\0.54\0.54\703000 \L\\\300\0.54\KF6\\\\E1\EUR\\\06/10\\\\\\\.6\.2846\.54\\\\\\\1\1" + Set ^KFA("F",652568,"U324761",104)="703000 \154595\1\\\17.17\20#0\8\17.17\17.17\703000 \L\\\400\17.17\KF6\\\\E1\EUR\\\06/10\\\\\\\21.46\10.2982\17.17\\\\\\\1\1" + + Set ^KU1(323725,"F") = "7587\95234\P\" + Set ^KU1(323725,"F",95234) = "P" + Set ^KU1(325226,"F") = "7878\" + Set ^KU1(324846,"F") = "9275\953552\" + Set ^KU1(324846,"F",953552) = "" + Set ^KU1(324761,"F") = "8168\953597\" + Set ^KU1(324761,"F",953597) = "" + + Set ^KUL(7878,"F",325226,0) = "104" + Set ^KUL(7878,"F",325226,1) = "\05.06.09\\\\7878\DI1 #Distributeur 1 - GLS\4361;325226;5036\#\\\\9.09##3.26808\\\\\EUR\\\00\1\\###\M\\\M\F\CO\\\\1042#61517,29237\\\\\\\\OD1;61517;130410;25253" + Set ^KUL(7878,"F",325226,2) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KUL(7878,"F",325226,3) = "\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" + Set ^KUL(7878,"F",325226,4) = "4" + Set ^KUL(7878,"F",325226,101) = "\\\1043#1172#61514,60564\123332 - 02.06.09 - 02.06.09 U/TEL JME/G\\\\\\\\\\100\\KF5\\1043#61514,60571#123332\VERVANGING\\#\\\\" + Set ^KUL(7878,"F",325226,102) = "703000 \165827\1\\\13.57\20#\8\13.57\13.57\703000 \L\\F\200\13.57\KF6\\\\E1\EUR\\\61514\\\\\\\\\\\\\\\\1\1\\\\0" + Set ^KUL(7878,"F",325226,103) = "703000 \165830\1\\\16.28\20#\8\16.28\16.28\703000 \L\\F\300\16.28\KF6\\\\E1\EUR\\\61514\\\\\\\\\\\\\\\\1\1\\\\0" + Quit $$$OK ]]> @@ -61,27 +133,27 @@ Set BevatLangGoed = ##class(APPS.OV.impl.FlowObjectInhoudService).OrderBevatLangGoed(Order) Do $$$AssertTrue(BevatLangGoed,"Het order bevat langgoed") - Set ProformaNr = 30000 + Set ProformaNr = 95348 Set Proforma = OrderAPI.GeefProforma(ProformaNr) Set BevatLangGoed = ##class(APPS.OV.impl.FlowObjectInhoudService).ProformaBevatLangGoed(Proforma) Do $$$AssertFalse(BevatLangGoed,"Het proforma bevat geen langgoed") - Set ProformaNr = 64901 + Set ProformaNr = 95234 Set Proforma = OrderAPI.GeefProforma(ProformaNr) Set BevatLangGoed = ##class(APPS.OV.impl.FlowObjectInhoudService).ProformaBevatLangGoed(Proforma) Do $$$AssertTrue(BevatLangGoed,"Het proforma bevat langgoed") - Set FactuurNr = 320000 + Set FactuurNr = 652568 Set Factuur = OrderAPI.GeefFactuur(FactuurNr) Set BevatLangGoed = ##class(APPS.OV.impl.FlowObjectInhoudService).FactuurBevatLangGoed(Factuur) Do $$$AssertFalse(BevatLangGoed,"De factuur bevat geen langgoed") - Set FactuurNr = 932444 + Set FactuurNr = 652567 Set Factuur = OrderAPI.GeefFactuur(FactuurNr) Set BevatLangGoed = ##class(APPS.OV.impl.FlowObjectInhoudService).FactuurBevatLangGoed(Factuur) Do $$$AssertTrue(BevatLangGoed,"De factuur bevat langgoed") ]]> - +