" Write !,$c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9) Set TargetOrd=$S((KLNr=$$$KLNrListAll)||(sMode="PROCESS"):"target=""_blank""",1:"") Set UrlOrdALT=..WebTextValue("IngaveOpenen",Taal,"L") Set RowCnt=0 Set lnI="" Kill tmpArLN Merge tmpArLN=arHistVTL("LN") Write !,$c(9,9,9,9) %csp00008 If '(..LoopArray(.tmpArLN,.lnI)) Goto %csp00007 ;{ Write !,$c(9,9,9,9,9) #define LenKLNaam 15 Set RowCnt=RowCnt+1 Set i=lnI Set iKLNr=$G(arHistVTL("LN",i,"KLNr")) Set blnOrdHidden=($G(arHistVTL("LN",i,"ShowInHist"))<$$$shShownForVHEPN) Set RowAttrStyle=$S($G(arHistVTL("LN",i,"ShowInHist"))<$$$shShownForKlant:"color:#666666;",1:"color:black;")_$S(blnOrdHidden:" font-style:italic;",1:"") If CntKL'=1 Do . Set tmpNaam=$G(arHistVTL("LN",i,"KLNaam")) . Set arHistVTL("LN",i,"KLNaamDSP")=$S($L(tmpNaam)>$$$LenKLNaam:$E(tmpNaam,1,$$$LenKLNaam-2)_"...", 1:tmpNaam) . Set arHistVTL("LN",i,"KLNaamALT")="Lijst voor "_$G(arHistVTL("LN",i,"KLNaam"),"klant")_$S($L(arHistVTL("LN",i,"KLNr")):" ("_arHistVTL("LN",i,"KLNr")_")", 1:"") If arHistVTL("LN",i,"OrderDCM")="I" Do . Set arHistVTL("LN",i,"OrderDCM_DSP")="intivo" . Set arHistVTL("LN",i,"OrderDCM_ALT")="Design: intivo" If arHistVTL("LN",i,"OrderDCM")="A" Do . Set arHistVTL("LN",i,"OrderDCM_DSP")="antaro" . Set arHistVTL("LN",i,"OrderDCM_ALT")="Design: antaro" Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9) If '(arHistVTL("LN",i,"BonType")?1(1"BBON",1"OFF",1"OFFAV",1"INKP")) Goto %csp00009 ;{ Write !,$c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9) Goto %csp00010 ;} %csp00009 ;{ Write !,$c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9) %csp00010 ;} Write !,$c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9,9) Goto %csp00008 %csp00007 ;} Write !,$c(9,9,9,9)_"

"_(..WebTextValue("Nummer_Kort",Taal,"L"))_"		"_($S(CntKL=1:"",1:"Klant"))_"	"_(..WebTextValue("HistHKlantRef",Taal,"L"))_"		"_(..WebTextValue("HistHDatum",Taal,"L"))_"	"_(..WebTextValue("HistHTotPrijs",Taal,"L"))_"
" Write "" Write (arHistVTL("LN",i,"OrderNr")) Write "" Write "	" Write "" Write "	"_(arHistVTL("LN",i,"BonType"))_"	" If '((CntKL>1)&&($L(iKLNr))) Goto %csp00011 ;{ Write "" Write ($G(arHistVTL("LN",i,"KLNaamDSP"))) Write "" Goto %csp00012 ;} %csp00011 ;{ %csp00012 ;} Write "	"_(arHistVTL("LN",i,"Commissie"))_"	"_($G(arHistVTL("LN",i,"OrderDCM_DSP")))_"	"_(arHistVTL("LN",i,"TimeCust"))_"	"_($S(arHistVTL("LN",i,"TotPrs")>0:$J($$PrijsConvert^cspBasis.Library(arHistVTL("LN",i,"MuntCalc"),arHistVTL("LN",i,"TotPrs")),0,2)_" "_arHistVTL("LN",i,"Munt"), 1:" "))_"

",! Write $c(9,9,9,9) Write "