Index: FLOWORD.mac.rou =================================================================== diff -u -r48784 -r48799 --- FLOWORD.mac.rou (.../FLOWORD.mac.rou) (revision 48784) +++ FLOWORD.mac.rou (.../FLOWORD.mac.rou) (revision 48799) @@ -70,7 +70,7 @@ Do:($IsObject(##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefMaatwerkConfiguratorService().GeefBesteldeProducten(##class(APPS.VKP.Maatwerk.enu.DocumentType).Order(), ORDNr))) DoeConfigurator Do:($IsObject(##class(CHUI.Flow.ConfiguratorHelper).GeefAdminSessieParameters(##class(APPS.VKP.Maatwerk.enu.DocumentType).Order(), ORDNr))) DoeConfigurator Do RESET^vhScherm - For Do If Input="-" Do:AD(13)'="FLOWORDADP" DETAIL(1) Do SORT(KLNr,ORDNr),ChkRembours^FLOWORD4(ORDNr),AkpVkpVerlies^FLOW2("O",ORDNr,.AkpVkpVerlies),qc2^vhRtn2("^KOD("_KLNr_",""F"","_ORDNr_")") Quit + For Do If Input="-" Do:((AD(13)'="FLOWORDADP")&&$D(^KOD(KLNr,"F",ORDNr))) DETAIL(1) Do SORT(KLNr,ORDNr),ChkRembours^FLOWORD4(ORDNr),AkpVkpVerlies^FLOW2("O",ORDNr,.AkpVkpVerlies),qc2^vhRtn2("^KOD("_KLNr_",""F"","_ORDNr_")") Quit .Set ScrolOrd=1 .Do REFRESH .If USC=""!'Help Set FP=$P(UD,D,2)+1*100+1 Write @F,@F1 @@ -1061,4 +1061,3 @@ -