Data verwerking - Order, Fakturen, Historiek, ProductRef BL.EC.Common,Prod.Product,BL.Derde.Kennis 1 %RegisteredObject 0 Groeperingen At 3040 3041 3042 3050 OrderTypes OrderTypes 3000 3001 3002 3003 VoorraadStatus VoorraadStatus 3010 OK BV NV OB IL KennisAnker opties View 3030 3031 3032 Klachten opties Status 3043 3044 3045 Recente verkoop opties At 3046 3047 3048 3049 Productgroep De details van de productgroep zie include file ProductGroep 3400 Zoek string Zoek 3100 Perioden Periode 3020 3021 3022 3023 3024 3025 3026 3027 3028 Errors DATA:FavDelete DATA:FavAdd DATA:FavErrorProd DATA:FavProdNotAllowed Row positions Recente verkoop 6 7 8 pxCriteria Criteria pxFetch ",1:"")_$P(OLRec,"\",5) . Quit:'HasProd . Set ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("OFH",OFFNr,^KOFKL(KLNr,"F",OFFNr,1),OfferteTotaal) . Set SnapNewPage(LijnCnt)="" . Set (ProdGrp,OLNr)="" . For Set ProdGrp=$O(Sort(ProdGrp)) Quit:ProdGrp="" Do . . Set:IncludeProdGrp ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("G",ProdGrp) . . For Set OLNr=$O(Sort(ProdGrp,OLNr)) Quit:OLNr="" Do . . . Set LijnType=$LI(Sort(ProdGrp,OLNr),1) . . . Set OLRec=$LI(Sort(ProdGrp,OLNr),2) . . . Set:LijnType="T"&&$D(GrpTekst(OLNr)) ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("OFT",,GrpTekst(OLNr)) . . . Set:LijnType="P" ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("OFP",OLRec,$G(GrpTekst(OLNr)),$LG(Sort(ProdGrp,OLNr),3)) Set pxFetch=$$CreatePages^BL.EC.Common(SessionKey,LijnCnt,$$$tgOfferte,,.SnapNewPage) Set pxFetch.HasFullText=1 Set pxFetch.HasCriteria=1 Set pxFetch.HasProductDetail=1 Quit pxFetch ]]> KLNr,OFFNr,EndDat OffDat 0 ; Te oud Quit 1 ]]> %Query Page:%Integer,FullText:%Boolean 1 %Status 1 OffertePageExecute 0 %Status %LijnMax) Do . Set AtEnd=1 Else Do . Set Row=%blData.OfferteRow(^ECHULP(%SessionKey,"FD",%LijnNr)) . If Row="" Set AtEnd=1 Quit $$$OK ]]> List 1 OffertePageExecute %Status Zoek,StartPage,StartLine,Direction,pxFetch pxCriteria Criteria pxFetch Criteria pxFetch OrderType,Criteria pxFetch ",1:"")_$P(OLRec,"\",5) . . Set LastGrpOLUNr=GrpOLUNr . . Quit:'HasProd . . Set ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("OH",ORDNr,^KOD(KLNr,"F",ORDNr,1),OrderTotaal) . Set SnapNewPage(LijnCnt)="" . Set (ProdGrp,OLNr)="" . For Set ProdGrp=$O(Sort(ProdGrp)) Quit:ProdGrp="" Do . . Set:IncludeProdGrp ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("G",ProdGrp) . . For Set OLNr=$O(Sort(ProdGrp,OLNr)) Quit:OLNr="" Do . . . Set LijnType=$LI(Sort(ProdGrp,OLNr),1) . . . Set OLRec=$LI(Sort(ProdGrp,OLNr),2) . . . Set OLUNr=$P(OLRec,"\",15) . . . Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("OT",,GrpTekst(OLUNr)) . . . Set:LijnType="P" ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("OP",OLRec,$G(GrpTekst(OLUNr)),$LI(Sort(ProdGrp,OLNr),3),KLNr,ORDNr) Set pxFetch=$$CreatePages^BL.EC.Common(SessionKey,LijnCnt,$S(OrderType=..#otContract:$$$tgContractOrder,1:$$$tgOrder),,.SnapNewPage) Set pxFetch.HasFullText=1 Set pxFetch.HasCriteria=1 Set pxFetch.HasProductDetail=1 Quit pxFetch ]]> KLNr,ORDNr,OrderTypeDef %Query Page:%Integer,FullText:%Boolean 1 %Status 1 OrderPageExecute 0 %Status %LijnMax) Do . Set AtEnd=1 Else Do . Set Row=%blData.OrderRow(^ECHULP(%SessionKey,"FD",%LijnNr)) . If Row="" Set AtEnd=1 Quit $$$OK ]]> List "_$$$Translate("CommRef")_" : "_Ref2 . Set:$L(Ref3) TCompact=TCompact_$S($L(TCompact):" - ",1:"")_""_$$$Translate("EDIRef")_" : "_Ref3 . Set TFull=TCompact . Set Adres=$G(^KOD(%KLNr,"F",ORDNr,3)) . Set:$TR(Adres,"\0","")="" Adres=^KKL(^KK1(%KLNr),0) . Set AdresFmt=""_$$$Translate("LevAdr")_" : "_$P(Adres,"\",2)_$S($L($P(Adres,"\",3)):" - "_$P(Adres,"\",3),1:"")_" - "_$P(Adres,"\",5)_" - "_$P(Adres,"\",7) . Set TFull=TFull_$S($L(TFull):"
",1:"")_AdresFmt . Set Row=$LB("OH",,,TCompact,TFull,ORDNr,Ref1,Datum) . Set $LI(Row,14)=$S(%ECSession.Opties[$$$opNoPrice:$$$NoPrice,1:$LG(List,4)) ; OrderTotaal Else If $LG(List)="OT" Do . Set Tekst=$LG(List,3) . Set Row=$LB("OT",,,Tekst,Tekst) Else If $LG(List)="OP" Do . Set Rec=$LG(List,2) . Set Tekst=$LG(List,3) . Set PRNr=$P(Rec,"\",2) . ;Set Datum=$P($G(^KOD($LG(List,5,"*"),"F",$LG(List,6,"*"),1)),"\",16) ; Beloofde datum . ; . ;If $L(Datum) Do ;Beloofdedatum ..; Set Datum=$$INTDATE^vhDTyp(Datum,"DK") ..; Set Datum=$$FormatDateTime^vhLib("d mmm yy",Datum,%Taal) . ;Else Do ;Weekdatum (midden van de week - woensdag) ..; Set Datum=$$INTDATE^vhDTyp($P(Rec,"\",25),"DW") ..; Set Datum=$$$Translate("WeekVan")_" "_$$FormatDateTime^vhLib("d mmm yy",Datum,%Taal) . . Set Datum=$$FormatDateTime^vhLib("ddd d mmm yy",$P(Rec,"\",25),%Taal) . Set Row=$LB("OP")_%blProduct.ProductElements(PRNr,%KLNr,Tekst,$S(%ECSession.Opties[$$$opShowProdRef:"ShowProdRef",1:""),$P(Rec,"\",5)) . Set Row=Row_$LB(,,Datum,$P(Rec,"\",3),$LG(List,4),+$P(Rec,"\",6),,$P(Rec,"\",22),$P(Rec,"\",16)) . Set:$E($P(Rec,"\",21))="H" $LI(Row,12)="H" . If %ECSession.Opties[$$$opNoPrice Set $LI(Row,11)=$$$NoPrice,$LI(Row,14)=$LI(Row,11)*$LI(Row,9) . Set Row=Row_%blData.FavorietElement(PRNr,1,1) Set $LI(Row,4,5)=$LB($LG(Row,4+%FullText)) Quit Row ]]> 1 OrderPageExecute %Status Zoek,StartPage,StartLine,Direction,pxFetch pxCriteria Criteria pxFetch ",1:"")_$P(BLRec,"\",5) . . Set LastGrpOLUNr=GrpOLUNr . . Quit:'HasProd . . Set ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("LH",BONNr,^KUL(KLNr,"F",BONNr,1),Totaal) . Set SnapNewPage(LijnCnt)="" . Set (ProdGrp,BLNr,ORDCnt)="" . For Set ORDCnt=$O(Sort(ORDCnt)) Quit:ORDCnt="" Do . . Quit:$D(Sort(ORDCnt))<10 ; Heeft product subnode . . Set ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("LO",$LG($G(Sort(ORDCnt)))) . . For Set ProdGrp=$O(Sort(ORDCnt,ProdGrp)) Quit:ProdGrp="" Do . . . Set:IncludeProdGrp ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("G",ProdGrp) . . . For Set BLNr=$O(Sort(ORDCnt,ProdGrp,BLNr)) Quit:BLNr="" Do . . . . Set LijnType=$LI(Sort(ORDCnt,ProdGrp,BLNr),1) . . . . Set BLRec=$LI(Sort(ORDCnt,ProdGrp,BLNr),2) . . . . Set OLUNr=$P(BLRec,"\",15) . . . . Set:LijnType="T"&&$D(GrpTekst(ORDCnt,OLUNr)) ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("LT",,GrpTekst(ORDCnt,OLUNr)) . . . . Set:LijnType="P" ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("LP",BLRec,$G(GrpTekst(ORDCnt,OLUNr))) Set pxFetch=$$CreatePages^BL.EC.Common(SessionKey,LijnCnt,$$$tgUitlevering,,.SnapNewPage) Set pxFetch.HasFullText=1 Set pxFetch.HasCriteria=1 Set pxFetch.HasProductDetail=1 Quit pxFetch ]]> KLNr,BONNr %Query Page:%Integer,FullText:%Boolean 1 %Status 1 OrderPageExecute 0 %Status %LijnMax) Do . Set AtEnd=1 Else Do . Set Row=%blData.UitLeveringRow(^ECHULP(%SessionKey,"FD",%LijnNr)) . If Row="" Set AtEnd=1 Quit $$$OK ]]> List "_$$$Translate("LevAdr")_" : "_$P(Adres,"\",2)_$S($L($P(Adres,"\",3)):" - "_$P(Adres,"\",3),1:"")_" - "_$P(Adres,"\",5)_" - "_$P(Adres,"\",7) . Set TFull=TFull_$S($L(TFull):"
",1:"")_AdresFmt . Set Row=$LB("LH",,,TCompact,TFull,BONNr,VerzendWijze,Datum) . Set $LI(Row,14)=$S(%ECSession.Opties[$$$opNoPrice:$$$NoPrice,1:$LG(List,4)) ; Totaal Else If $LG(List)="LO" Do ; OrderHoofding . Set Rec=$LG(List,2) . Set Ref=$P(Rec,"\",5) . Set CommRef=..KlantOrderRef($P(Rec,"\",20),$P(Rec,"\",21),$P(Rec,"\",22)) ; (OrgalRef,EdiNummer,VHisieVwCust) . Set TCompact="Order : "_Ref . Set:$L(CommRef) TCompact=TCompact_" / "_CommRef . Set TFull=TCompact . Set Row=$LB("LO",,,TCompact,TFull) Else If $LG(List)="LT" Do ; Tekst . Set Tekst=$LG(List,3) . Set Row=$LB("LT",,,Tekst,Tekst) Else If $LG(List)="LP" Do ; Product . Set Rec=$LG(List,2) . Set Tekst=$LG(List,3) . Set PRNr=$P(Rec,"\",2) . Set Row=$LB("LP")_%blProduct.ProductElements(PRNr,%KLNr,Tekst,$S(%ECSession.Opties[$$$opShowProdRef:"ShowProdRef",1:""),$P(Rec,"\",5)) . Set Row=Row_$LB(,,,$P(Rec,"\",3),$LG(List,4),+$P(Rec,"\",6),,$P(Rec,"\",22),$P(Rec,"\",16)) . Set:$E($P(Rec,"\",21))="H" $LI(Row,12)="H" . If %ECSession.Opties[$$$opNoPrice Set $LI(Row,11)=$$$NoPrice,$LI(Row,14)=$LI(Row,11)*$LI(Row,9) . Set Row=Row_%blData.FavorietElement(PRNr,1,1) Set $LI(Row,4,5)=$LB($LG(Row,4+%FullText)) Quit Row ]]> 1 OrderPageExecute %Status Zoek,StartPage,StartLine,Direction,pxFetch Criteria pxFetch ",1:"")_$P(TLRec,"\",5) . . Set LastGrpTLUNr=GrpTLUNr . . Quit:'HasProd . . Set ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("OH",TOENr,^KTO(LEVNr,TOENr,1),Totaal) . Set SnapNewPage(LijnCnt)="" . Set (ProdGrp,TLNr)="" . For Set ProdGrp=$O(Sort(ProdGrp)) Quit:ProdGrp="" Do . . ;Set ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("G",ProdGrp) . . For Set TLNr=$O(Sort(ProdGrp,TLNr)) Quit:TLNr="" Do . . . Set LijnType=$LI(Sort(ProdGrp,TLNr),1) . . . Set TLRec=$LI(Sort(ProdGrp,TLNr),2) . . . Set TLUNr=$P(TLRec,"\",15) . . . Set:LijnType="T"&&$D(GrpTekst(TLUNr)) ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("OT",,GrpTekst(TLUNr)) . . . Set:LijnType="P" ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("OP",TLRec,$G(GrpTekst(TLUNr))) Set pxFetch=$$CreatePages^BL.EC.Common(SessionKey,LijnCnt,$$$tgDirectOrder,,.SnapNewPage) Set pxFetch.HasFullText=1 Set pxFetch.HasProductDetail=1 ;Set pxFetch.HasCriteria=1 Quit pxFetch ]]> LEVNr,TOENr,KLNr 0 %Query Page:%Integer,FullText:%Boolean 1 %Status 1 OrderPageExecute 0 %Status %LijnMax) Do . Set AtEnd=1 Else Do . Set Row=%blData.DirectOrderRow(^ECHULP(%SessionKey,"FD",%LijnNr)) . If Row="" Set AtEnd=1 Quit $$$OK ]]> 1 OrderPageExecute %Status List "_$$$Translate("Lev. Ref")_" : "_Ref2 . Set TFull=TCompact . Set Row=$LB("OH",,,TCompact,TFull,TOENr,Ref1,Datum) . Set $LI(Row,14)=$S(%ECSession.Opties[$$$opNoPrice:$$$NoPrice,1:$LG(List,4)) ; Totaal Else If $LG(List)="OT" Do . Set Tekst=$LG(List,3) . Set Row=$LB("OT",,,Tekst,Tekst) Else If $LG(List)="OP" Do . Set Rec=$LG(List,2) . Set Tekst=$LG(List,3) . Set PRNr=$P(Rec,"\",2) . Set Datum=$$INTDATE^vhDTyp($P(Rec,"\",25),"DW") . Set Datum=$$FormatDateTime^vhLib("d mmm yy",Datum,%Taal) . Set Row=$LB("OP")_%blProduct.ProductElements(PRNr,%KLNr,Tekst,$S(%ECSession.Opties[$$$opShowProdRef:"ShowProdRef",1:"")) . Set Row=Row_$LB(,,Datum,$P(Rec,"\",3),$LG(List,4),+$P(Rec,"\",6),,$P(Rec,"\",22),$P(Rec,"\",16)) . Set:$E($P(Rec,"\",21))="H" $LI(Row,12)="H" . If %ECSession.Opties[$$$opNoPrice Set $LI(Row,11)=$$$NoPrice,$LI(Row,14)=$LI(Row,11)*$LI(Row,9) . Set Row=Row_%blData.FavorietElement(PRNr) Set $LI(Row,4,5)=$LB($LG(Row,4+%FullText)) Quit Row ]]> Zoek,StartPage,StartLine,Direction,pxFetch Geeft aan welke criteria er moeten genomen worden pxCriteria Criteria pxFetch EndDatum Do ;FakDatum is negatief, recenste eerst en beperkt tot de gevraagde periode . Set FAKNr="" . For Set FAKNr=$O(^KFA1("F",KLNr,FakDatum,FAKNr)) Quit:FAKNr="" Do . . Quit:'..CheckFactuur(KLNr,FAKNr,Periode,.Include,.OpenstaandBedrag,.AantalRappels) . . Quit:'Include . . Set HeadingProcessed=0 . . Set BONNr="U" . . For Set BONNr=$O(^KFA("F",FAKNr,BONNr)) Quit:$E(BONNr)'="U" Do . . . Set HasProd="" . . . Kill Sort,GrpTekst . . . Set LastGrpTijd="",LastGrpOLUNr="" . . . Set Totaal=0 . . . Set ORDCnt=0 . . . Set ProdGrp="" . . . Set LNr=99 . . . For Set LNr=$O(^KFA("F",FAKNr,BONNr,LNr)) Quit:LNr="" Do . . . . Do ..CheckFactuurLijn(KLNr,FAKNr,BONNr,LNr,ProductGroepen,.LijnType,.ProdGrp) . . . . Quit:LijnType="" . . . . Set LRec=^KFA("F",FAKNr,BONNr,LNr) . . . . If LijnType="O" Set ORDCnt=ORDCnt+1,Sort(ORDCnt)=$LB(LRec) Quit ; Orderhoofding . . . . Set PRNr=$P(LRec,"\",2) . . . . Set:PRNr?4.7N HasProd=1 . . . . ; ProdGrp wordt allen door een product gedefinieerd, anders wordt de waarde van de vorige lijn genomen . . . . If ProdGrp="" Do . . . . .Set MemSort(LNr)=$LB(LijnType,LRec) ; onthouden van de lijn totdat prodgrp gekend . . . . Else Do . . . . . Merge Sort(ORDCnt,ProdGrp)=MemSort . . . . . Kill MemSort . . . . . Set Sort(ORDCnt,ProdGrp,LNr)=$LB(LijnType,LRec) ; onthouden van de lijn . . . . Quit:LijnType'="T" ; alleen tekstlijnen groeperen . . . . Set Groep=$P(LRec,"\",18) . . . . Set:LastGrpTijd'=$P(Groep,";") LastGrpOLUNr="" ; nieuwe groep . . . . Set LastGrpTijd=$P(Groep,";") . . . . Set GrpOLUNr=$P(Groep,";",3) . . . . Set:GrpOLUNr="" GrpOLUNr=LastGrpOLUNr . . . . Set:GrpOLUNr="" GrpOLUNr=$P(LRec,"\",15) . . . . Quit:GrpOLUNr="" . . . . Set GrpTekst(ORDCnt,GrpOLUNr)=$G(GrpTekst(ORDCnt,GrpOLUNr))_$S($D(GrpTekst(ORDCnt,GrpOLUNr)):"
",1:"")_$P(LRec,"\",5) . . . . Set LastGrpOLUNr=GrpOLUNr . . . . . . Quit:'HasProd . . . . . . If 'HeadingProcessed Do . . . . Set SnapNewPage(LijnCnt+1)="" ; onthouden begin faktuur . . . . Set HeadingProcessed=1 . . . . Set ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("FH",FAKNr,^KFA("F",FAKNr,0,0),$G(^KFA("F",FAKNr,0,1)),OpenstaandBedrag,AantalRappels) . . . Set ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("FU",$E(BONNr,2,99),^KFA("F",FAKNr,BONNr,1),$G(^KFA("F",FAKNr,BONNr,3))) . . . Set (ProdGrp,LNr,ORDCnt)="" . . . For Set ORDCnt=$O(Sort(ORDCnt)) Quit:ORDCnt="" Do . . . . Quit:$D(Sort(ORDCnt))<10 ; Heeft product subnode . . . . Set ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("FO",$LG($G(Sort(ORDCnt)))) . . . . For Set ProdGrp=$O(Sort(ORDCnt,ProdGrp)) Quit:ProdGrp="" Do . . . . . Set:IncludeProdGrp ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("G",ProdGrp) . . . . . For Set LNr=$O(Sort(ORDCnt,ProdGrp,LNr)) Quit:LNr="" Do . . . . . . Set LijnType=$LI(Sort(ORDCnt,ProdGrp,LNr),1) . . . . . . Set LRec=$LI(Sort(ORDCnt,ProdGrp,LNr),2) . . . . . . Set OLUNr=$P(LRec,"\",15) . . . . . . Set:(LijnType="T")&&$D(GrpTekst(ORDCnt,OLUNr)) ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("FT",,GrpTekst(ORDCnt,OLUNr)) . . . . . . Set:LijnType="P" ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("FP",LRec,$G(GrpTekst(ORDCnt,OLUNr))) Set pxFetch=$$CreatePages^BL.EC.Common(SessionKey,LijnCnt,$$$tgFactuur,,.SnapNewPage) Set pxFetch.HasFullText=1 Set pxFetch.HasCriteria=1 Set pxFetch.HasProductDetail=1 Quit pxFetch ]]> KLNr,FAKNr,Periode,Include,OpenstaandBedrag,AantalRappels %Query Page:%Integer,FullText:%Boolean 1 %Status 1 OrderPageExecute 0 %Status %LijnMax) Do . Set AtEnd=1 Else Do . Set Row=%blData.FactuurRow(^ECHULP(%SessionKey,"FD",%LijnNr)) . If Row="" Set AtEnd=1 Quit $$$OK ]]> List "_$$$Translate("OpenstaandBedrag")_" : "_$FN(OpenstaandBedrag,".",2)_" EUR" . . Set VervalDatum=$P(Rec,"\",3) . . Set:VervalDatum'="" VervalDatum=$$INTDATE^vhDTyp(VervalDatum) . . Set AantalVervallen=$H-VervalDatum . . Set:VervalDatum VervalDatum=$$FormatDateTime^vhLib("d mmm yy",VervalDatum,%Taal) . . Set TCompact = TCompact_"
"_""_$$$Translate("VervalDatum")_" : "_VervalDatum . . Set:AantalVervallen>0 TCompact=TCompact_"
"_""_$$$Translate("AantalVervallen")_" : "_AantalVervallen . . Set:AantalRappels TCompact=TCompact_"
"_""_$$$Translate("AantalRappels")_" : "_AantalRappels . . Set Status="O" . Set TFull=TCompact . Set Row=$LB("FH",,,TCompact,TFull,FAKNr,,Datum,,Status,,,Munt) . Set $LI(Row,14)=$S(%ECSession.Opties[$$$opNoPrice:$$$NoPrice,1:TotaalBedrag) ; Totaal Else If $LG(List)="FU" Do ; Uitlevering . Set BONNr=$LG(List,2) . Set Rec=$LG(List,3) . Set Datum=$P(Rec,"\",2) . Set:Datum'="" Datum=$$INTDATE^vhDTyp(Datum) . Set:Datum Datum=$$FormatDateTime^vhLib("d mmm yy",Datum,%Taal) . Set VerzendWijze=$P($P(Rec,"\",7),"#",2) . Set TCompact="" . Set TFull=TCompact . Set Adres=$LG(List,4) . Set:$TR(Adres,"\0","")="" Adres=^KKL(^KK1(%KLNr),0) . Set AdresFmt=""_$$$Translate("LevAdr")_" : "_$P(Adres,"\",2)_$S($L($P(Adres,"\",3)):" - "_$P(Adres,"\",3),1:"")_" - "_$P(Adres,"\",5)_" - "_$P(Adres,"\",7) . Set TFull=TFull_$S($L(TFull):"
",1:"")_AdresFmt . Set Row=$LB("FU",,,TCompact,TFull,BONNr,VerzendWijze,Datum) Else If $LG(List)="FO" Do ; OrderHoofding . Set Rec=$LG(List,2) . Set Ref=$P(Rec,"\",5) . Set CommRef=..KlantOrderRef($P(Rec,"\",20),$P(Rec,"\",21),$P(Rec,"\",22)) ; (OrgalRef,EdiNummer,VHisieVwCust) . Set TCompact="Order : "_Ref . Set:$L(CommRef) TCompact=TCompact_" / "_CommRef . Set TFull=TCompact . Set Row=$LB("FO",,,TCompact,TFull) Else If $LG(List)="FT" Do ; Tekst . Set Tekst=$LG(List,3) . Set Row=$LB("FT",,,Tekst,Tekst) Else If $LG(List)="FP" Do ; Product . Set Rec=$LG(List,2) . Set Tekst=$LG(List,3) . Set PRNr=$P(Rec,"\",2) . Set Row=$LB("FP")_%blProduct.ProductElements(PRNr,%KLNr,Tekst,$S(%ECSession.Opties[$$$opShowProdRef:"ShowProdRef",1:""),$P(Rec,"\",5)) . Set Row=Row_$LB(,,,$P(Rec,"\",3),$LG(List,4),+$P(Rec,"\",6),,$P(Rec,"\",22),$P(Rec,"\",16)) . Set:$E($P(Rec,"\",21))="H" $LI(Row,12)="H" . If %ECSession.Opties[$$$opNoPrice Set $LI(Row,11)=$$$NoPrice,$LI(Row,14)=$LI(Row,11)*$LI(Row,9) . Set Row=Row_%blData.FavorietElement(PRNr,1,1) Set $LI(Row,4,5)=$LB($LG(Row,4+%FullText)) Quit Row ]]> 1 OrderPageExecute %Status Zoek,StartPage,StartLine,Direction,pxFetch Criteria:pxCriteriaSet %Query Page:%Integer,FullText:%Boolean 1 %Status 1 HistoriekPageExecute 0 %Status %LijnMax) Do . Set AtEnd=1 Else Do ; Nieuwe groep . Set Row=%blData.HistoriekRow(^ECHULP(%SessionKey,"FD",%LijnNr)) . Set:Row="" AtEnd=1 Quit $$$OK ]]> 1 HistoriekPageExecute %Status List Zoek,StartPage,StartLine,Direction,pxFetch KLNr pxCriteria Criteria:pxCriteriaSet SortKey) &sql(OPEN FAVSQL) For &sql(FETCH FAVSQL) Quit:SQLCODE Do . Quit:PRNr'?4.7N . Quit:'$D(^KPR(PRNr)) . Quit:'%blProduct.IsAllowed(PRNr) . Set ProdGrp=%blProduct.GetAndIsInProductGroep(PRNr,ProductGroepen) . Quit:ProdGrp="" ; Beperking . Set Sort(ProdGrp,..ProductSortKey(PRNr))=$LB("FP",PRNr) &sql(CLOSE FAVSQL) Set ProdGrp="",VolgNr="" Set LijnCnt=0 For Set ProdGrp=$O(Sort(ProdGrp)) Quit:ProdGrp="" Do . Set:IncludeProdGrp ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("G",ProdGrp) . Set SnapNewPage(LijnCnt)="" . For Set VolgNr=$O(Sort(ProdGrp,VolgNr)) Quit:VolgNr="" Do . . Set ^ECHULP(SessionKey,"FD",$I(LijnCnt))=Sort(ProdGrp,VolgNr) Set pxFetch=$$CreatePages^BL.EC.Common(SessionKey,LijnCnt,$$$tgFavorites,,.SnapNewPage) Set pxFetch.HasFullText=1 Set pxFetch.HasCriteria=1 Set pxFetch.HasProductDetail=1 Quit pxFetch ]]> %Query Page:%Integer,FullText:%Boolean 1 0 %Status 1 FavorietPageExecute 0 %Status %LijnMax) Do . Set AtEnd=1 Else Do ; Nieuwe groep . Set Row=%blData.FavorietRow(^ECHULP(%SessionKey,"FD",%LijnNr)) . Set:Row="" AtEnd=1 Quit $$$OK ]]> 1 FavorietPageExecute %Status List Zoek,StartPage,StartLine,Direction,pxFetch KLNr pxCriteria KLNr,ToegangID,PRNr Controle op Favoriet en/of Historiek PRNr,CheckFav,CheckHist +$H IsFav="H" Quit $LB(IsFav) ]]> PRNr PRNr Criteria:pxCriteriaSet 0 . . Set StatRec=^INTRAST(2,StatNr) . . Set StatSort=$P(StatRec,"\",1)_" "_$P(StatRec,"\",3) . . Set:'$D(Sort(StatSort)) Sort(StatSort)=$LB($P(StatRec,"\",1),$P(StatRec,"\",2)) . . Set Gewicht=$$$PRGet($$$Gewicht)*Aantal/1000 . . Set lb=Sort(StatSort) . . Set $LI(lb,3)=$LG(lb,3)+Gewicht . . Set:$P(StatRec,"\",3) $LI(lb,4)=$LG(lb,4)+Aantal ; Aanvullende eenheid . . Set $LI(lb,5)=$LG(lb,5)+Waarde . . Set Sort(StatSort)=lb . Set ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("ISM",$$FormatDateTime^vhLib("mmmm yyyy",Maand,%ECSession.Taal)) . Set StatSort="" . For Set StatSort=$O(Sort(StatSort)) Quit:StatSort="" Do . . Set ^ECHULP(SessionKey,"FD",$I(LijnCnt))=$LB("ISP")_Sort(StatSort) Set pxFetch=$$CreatePages^BL.EC.Common(SessionKey,LijnCnt,$$$tgIntraStat,,.SnapNewPage) Quit pxFetch ]]> 1 %Query Page:%Integer,FullText:%Boolean 1 %Status 1 HistoriekPageExecute 0 %Status %LijnMax) Do . Set AtEnd=1 Else Do ; Nieuwe groep . Set Row=%blData.IntraStatRow(^ECHULP(%SessionKey,"FD",%LijnNr)) . Set:Row="" AtEnd=1 Quit $$$OK ]]> 1 HistoriekPageExecute %Status List Zoek,StartPage,StartLine,Direction,pxFetch expression Tag:%String %String expression Tag:%String %String emList emMainItem emList,List,Start,DefaultPos Periode %Date D ##class(BL.EC.Data).testklantinfo() 1 KLNr Options met ";" gescheiden PERS = Persoon (medewerkers) PERSBLANK = Extra blanko lijnen bij Persoon UITZ = Uitzonderingen ADR = Leveringsadressen POT = Potentieel EC = E-commerce logins INTERN = Intern (incl. CODEX) FIN = Financiele gegevens (betalingsvoorw, kredietlimiet) 1 KlantNr,SkipMainAddress,Options LEVNr param CompactFull kan drie waardes aannemen : Leeg : gedefault via %ECSEssion.Opties[$$$Toegang "0" : compact "1" : full Result = 1 as full is 0 as compact CompactFull %Boolean pxCriteria Criteria:pxCriteriaSet " If (Obj.ValidFromDate'="") || (Obj.ValidToDate'="") Do . Set Text=Text_"
Geldig" . If Obj.ValidFromDate'="" Do .. Set Text=Text_" van "_$ZD(Obj.ValidFromDate,4) . If Obj.ValidToDate'="" Do .. Set Text=Text_" tot "_$ZD(Obj.ValidToDate,4) If $LL(Obj.lbKlassificatie)>0 Do . Set Text=Text_"
Klassificatie: "_##class(BL.Derde.Kennis.Kennis).ShowKlassificatieFull(Obj.lbKlassificatie,,", ",,0) If ($LL(Obj.lbProducten)>0) || ($LL(Obj.lbProductSelecties)>0) Do . Set Text=Text_"
Product: "_##class(BL.Derde.Kennis.Kennis).ShowProductenFull(Obj.lbProducten,Obj.lbProductSelecties) Set HasHistory=$IsObject(Obj.LinkBackward) Set ^ECHULP(SessionKey,"FD",$I(varLoop))=$LB("KA",KennisID,CreationDateAndTime,CreationUser,ActionDomainSmall,ActionDomainFull,Text,HasHistory) Quit ]]> %Query Page:%Integer 1 %Status 1 KennisAnkerPageExecute 0 %Status %LijnMax) Do . Set AtEnd=1 Else Do ; Nieuwe groep . Set Row=%blData.KennisAnkerRow(^ECHULP(%SessionKey,"FD",%LijnNr)) . Set:Row="" AtEnd=1 Quit $$$OK ]]> 1 KennisAnkerPageExecute %Status List Zoek,StartPage,StartLine,Direction,pxFetch pxCriteria Criteria:pxCriteriaSet "_Text_"" Do ConcatStringWithEmptyCheck^vhLib(Obj.GetOmschrijving(KlachtID,"
"),.Text) Set:(Text'="") Text=Text_"
" Do:('SingleKlant) ConcatStringWithEmptyCheck^vhLib(Klant,.Text,"Klant:") Do ConcatStringWithEmptyCheck^vhLib(Obj.Contactpersoon,.Text,"Aanbrenger:") Do ConcatStringWithEmptyCheck^vhLib(Obj.GetRechtZetTypeAsStr(Obj.RechtZetType),.Text,"Rechtzetting:") Set Index=+(HDatum_"."_$I(varLoop)) ;sorteren op datum Set ^ECHULP(SessionKey,"tmpFD",Index)=$LB("KL",KlachtID,Datum,Klant,Aanmaker,Type,TypeLong,Status,Text) ;tmpFD, index wordt later naar integer omgevormd Quit ]]> SessionKey,FromType,ToType,Direction %Query Page:%Integer 1 %Status 1 KlachtenPageExecute 0 %Status %LijnMax) Do . Set AtEnd=1 Else Do ; Nieuwe groep . Set Row=%blData.KlachtenRow(^ECHULP(%SessionKey,"FD",%LijnNr)) . Set:Row="" AtEnd=1 Quit $$$OK ]]> 1 KlachtenPageExecute %Status List Zoek,StartPage,StartLine,Direction,pxFetch pxCriteria Criteria:pxCriteriaSet %Query Page:%Integer 1 %Status 1 AgendaKlantPageExecute 0 %Status %LijnMax) Do . Set AtEnd=1 Else Do ; Nieuwe groep . Set Row=%blData.AgendaKlantRow(^ECHULP(%SessionKey,"FD",%LijnNr)) . Set:Row="" AtEnd=1 Quit $$$OK ]]> 1 AgendaKlantPageExecute %Status List Zoek,StartPage,StartLine,Direction,pxFetch pxCriteria Criteria:pxCriteriaSet %Query Page:%Integer 1 %Status 1 OmzetPageExecute 0 %Status %LijnMax) Do . Set AtEnd=1 Else Do ; Nieuwe groep . Set Row=%blData.OmzetRow(^ECHULP(%SessionKey,"FD",%LijnNr)) . Set:Row="" AtEnd=1 Quit $$$OK ]]> 1 OmzetPageExecute %Status List pxCriteria Criteria:pxCriteriaSet DatTot DatTot=$$CALCDATE^vhDTyp(DatVan,"W","LD") Set D="\" Set Regios=..GetRegios() $$$blProduct ; Ophalen van de details uit factuur en proforma Set (KLId)=0 For Set KLId=$O(^KKL(KLId)) Quit:KLId="" Do . Set Regio=$P(^KKL(KLId,0),D,20) . Quit:'$LF(Regios,Regio) . Set KLNr=$P(^KKL(KLId,0),D,1) . Do Cumul("^KFA",KLNr,DatVan,DatTot,Criteria.At,SessionKey) . Do Cumul("^KFAP",KLNr,DatVan,DatTot,Criteria.At,SessionKey) ; Omzetting van de data naar factuur Set SortKey1="" Set Count=0 Set:($D(^ECHULP(SessionKey,"TMP"))) ^ECHULP(SessionKey,"FD",$I(Count))=^ECHULP(SessionKey,"TMP") ; eerst totaal For Set SortKey1=$O(^ECHULP(SessionKey,"TMP",SortKey1)) Quit:SortKey1="" Do . Set ^ECHULP(SessionKey,"FD",$I(Count))=^ECHULP(SessionKey,"TMP",SortKey1) . Set SortKey2="" . For Set SortKey2=$O(^ECHULP(SessionKey,"TMP",SortKey1,SortKey2)) Quit:SortKey2="" Do . . Set ^ECHULP(SessionKey,"FD",$I(Count))=^ECHULP(SessionKey,"TMP",SortKey1,SortKey2) ; Clean Kill ^ECHULP(SessionKey,"TMP") Set pxFetch=$$CreatePages^BL.EC.Common(SessionKey,Count,$$$tgRecentVkp,,.SnapNewPage) Set pxFetch.HasCriteria=1 Set pxFetch.HasProductDetail=0 Set pxFetch.HasChildren=(Criteria.At'=..#rvoDetailNone) Set tmplbAllProductGroepenListTrans="" For Loop=1:1:$LL($$$pgAllProductGroepenList) Do . Set tmplbAllProductGroepenListTrans=tmplbAllProductGroepenListTrans_$LB($$$Translate($LI($$$pgAllProductGroepenList,Loop))) Set pxFetch.Headers=$$ListToPieces^vhLib(tmplbAllProductGroepenListTrans) Quit pxFetch Cumul(Global,KLNr,DatVan,DatTot,Detail,SessionKey) Set Dat=$S(DatTot:-DatTot-1,1:"") Set:DatVan="" DatVan=1 Set Global1=Global_"1" Set D="\" Set FAKNr="" For Set Dat=$O(@Global1@("F",KLNr,Dat)) Quit:Dat="" Quit:Dat>-DatVan Do . For Set FAKNr=$O(@Global1@("F",KLNr,Dat,FAKNr)) Quit:FAKNr="" Do . . Set KlantNaam=##class(Derde.Klant.Klant).GetFullName(KLNr) . . Set BONNr="U" . . Set (SomAnd,SomBL)=0 . . Set (CntAnd,CntBL)=0 . . For Set BONNr=$O(@Global@("F",FAKNr,BONNr)) Quit:BONNr="" Do . . . Set LNr=100 . . . For Set LNr=$O(@Global@("F",FAKNr,BONNr,LNr)) Quit:LNr="" Do . . . . Set Rec=^(LNr) . . . . Set PRNr=$P(Rec,D,2) . . . . Quit:PRNr'?4.7N . . . . Set ProductGrp=%blProduct.ProductGroep(PRNr) . . . . Set:ProductGrp="" ProductGrp=$$$pgBeslagAndere . . . . Set ProductGrpPos=$LF($$$pgAllProductGroepenList,%blProduct.ProductGroep(PRNr))-1 . . . . Set Omzet=$P(Rec,D,34) . . . . Set SortKey1=KLId . . . . Set SortKey2=$S(Detail=..#rvoDetailPerProduct:..ProductSortKey(PRNr),Detail=..#rvoDetailPerFactuur:$S(Global["P":"PROFORMA",1:FAKNr),1:"*") . . . . ; Detail . . . . If (SortKey2'="") && (SortKey2'="*") Do ; met detail ivm factuur of product . . . . . If Detail=..#rvoDetailPerProduct Do . . . . . . Set DetailStr=$P($G(^KPR(PRNr,0)),"\") . . . . . . Set DetailStr2=PRNr . . . . . . Set Qty=$P(Rec,D,3) . . . . . Else Do . . . . . . Set DetailStr=FAKNr . . . . . . Set DetailStr2="" . . . . . . Set Qty=1 . . . . . Set List=$G(^ECHULP(SessionKey,"TMP",SortKey1,SortKey2),$LB("D",,,DetailStr,DetailStr2)) . . . . . Set $LI(List,..#rpRVNrOfLines)=$LG(List,..#rpRVNrOfLines)+Qty ; Aantal lijnen of aantal stuks . . . . . Set:Global'["P" $LI(List,..#rpRVStartOfProds+ProductGrpPos)=$LG(List,..#rpRVStartOfProds+ProductGrpPos)+Omzet, $LI(List,..#rpRVTotal)=$LG(List,..#rpRVTotal)+Omzet . . . . . Set ^ECHULP(SessionKey,"TMP",SortKey1,SortKey2)=List . . . . ; Klant . . . . Set List=$G(^ECHULP(SessionKey,"TMP",SortKey1),$LB("K",KLNr,KlantNaam,##class(Derde.Klant.Klant).GetWoonplaats(KLNr))) . . . . Set $LI(List,..#rpRVNrOfLines)=$LG(List,..#rpRVNrOfLines)+1 ; Aantal lijnen . . . . Set:Global'["P" $LI(List,..#rpRVStartOfProds+ProductGrpPos)=$LG(List,..#rpRVStartOfProds+ProductGrpPos)+Omzet, $LI(List,..#rpRVTotal)=$LG(List,..#rpRVTotal)+Omzet . . . . Set ^ECHULP(SessionKey,"TMP",SortKey1)=List . . . . ; Totaal . . . . Set List=$G(^ECHULP(SessionKey,"TMP"),$LB("T")) . . . . Set $LI(List,..#rpRVNrOfLines)=$LG(List,..#rpRVNrOfLines)+1 ; Aantal lijnen . . . . Set:Global'["P" $LI(List,..#rpRVStartOfProds+ProductGrpPos)=$LG(List,..#rpRVStartOfProds+ProductGrpPos)+Omzet, $LI(List,..#rpRVTotal)=$LG(List,..#rpRVTotal)+Omzet . . . . Set ^ECHULP(SessionKey,"TMP")=List Quit ]]> %Query Page:%Integer 1 %Status 1 RecentVkpPageExecute 0 %Status %LijnMax) Do . Set AtEnd=1 Else Do ; Nieuwe groep . Set Row=%blData.RecentVkpRow(^ECHULP(%SessionKey,"FD",%LijnNr)) . Set:Row="" AtEnd=1 Quit $$$OK ]]> 1 RecentVkpPageExecute %Status Row Zoek,StartPage,StartLine,Direction,pxFetch 1 PRNr 0 %String NaamMetPlaceholder:%String 1 %String GedeelteNaarBase64:%String,GedeelteLetterlijk:%String,Extensie:%String="pdf" 1 %String s x=##class(BL.EC.Data).%New().GetDocumentURL("XX","MN:PL","CHK","",1239) URLKey,Toegang,RecordType,DocNr,KlantNr BL.EC.pxDocLink "_DocURL) . Set pxDocLink=##class(BL.EC.pxDocLink).Create("","",DocURL) Quit pxDocLink ]]> 1 KlantNr:%String %String 1 OrgalRef:%String,EdiNummer:%String,VHisieVwCust:%String %String %Library.CacheStorage ^BL.EC.DataD DataDefaultData ^BL.EC.DataD ^BL.EC.DataI ^BL.EC.DataS listnode %%CLASSNAME