#include Prod.Product

DynalogControle





FetchIndex(IdentNr,Modaliteit)
	New (IdentNr,Modaliteit)
	If IdentNr="?" Quit $TR("PRNr,IdentNummer,KortTekst,SN,Alias,NietBeschikBaarVoor,NietBeschikbaarDoorKlas,Meerdere",",",$C(9))
	Set:$L(IdentNr)<8 IdentNr=0_IdentNr
	Set Modaliteit=$G(Modaliteit,"DYNALOG")
	Set pxCriteria=##class(BL.Prod.sub.pxSearchCriteria).%New(Modaliteit)
	Set pxCriteria.SearchTxt=IdentNr
	Set pxCriteria.At="I"
	Set lbProduct=##class(BL.Prod.Search).SearchIndexAsList(pxCriteria)
	;Write $$ListToPieces^vhLib(lbProduct),!
	Quit $$Result(IdentNr,lbProduct)
	
Result(IdentNr,lbProduct)
	Set Result=""
	If $LL(lbProduct)
	{
		Set Result=$$ListToPieces^vhLib($$ListToInfo(lbProduct),$C(9))
	}
	Quit $G(Result)
	
GeefInfo(PRNr)	
	New lbResult,IdentNummer,Alias,KortTekst,SN,D,NietBeschikbaarVoor,NietBeschikbaarDoorKlas
	Set D="\"
	Set IdentNummer=$$$PRGet($$$IdentNummer)
	Set Alias=$S(IdentNr=$TR(IdentNummer,"."):"",1:"A")
	Set KortTekst=$$$PRGet($$$KortTekst)
	Set SN=$S($$$PRGet($$$StockType):"S",1:"N")
	Set NietBeschikbaarVoor=$$$PRGet(404)
	Set NietBeschikbaarDoorKlas=$$ECBeperkKlas^PRODUKT2(PRNr)
	Set NietBeschikbaarDoorKlas=$S($L(NietBeschikbaarDoorKlas):$P(NietBeschikbaarDoorKlas,"\")_":"_$$DISPL^KLASS($P(NietBeschikbaarDoorKlas,"\",2)),1:"")
	Set lbResult=$LB(PRNr,IdentNummer,KortTekst,SN,Alias,NietBeschikBaarVoor,NietBeschikbaarDoorKlas)
	Quit lbResult

ListToInfo(lbProduct)
	New PRNr,I,lbResultaat,lbResult
	Set lbResultaat=""
	For I=1:1:$LL(lbProduct) Do
	. Set PRNr=$LG(lbProduct,I)
	. Quit:PRNr=""
	. Set lbResult=$$GeefInfo(PRNr)
	. Set lbResultaat=lbResultaat_lbResult
	Quit lbResultaat
		
ExportAliases
	Set Dev=$$OPEN^vhDEV(,"ProductAliases","W","T")
	Use Dev
	Set PRNr=0
	Write "PRNR	SortKey	IdentNr	Korttekst	Stock	AliasIdent	AliasKortTekst",!
	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
	. Set AliasI=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("OEI",PRNr,"AliasI")) 
	. Set AliasK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("OEI",PRNr,"AliasK")) 
	. Quit:(AliasI="")&&(AliasK="")
	. Set IdentNummer=$$$PRGet($$$IdentNummer)
	. Set KortTekst=$$$PRGet($$$KortTekst)
	. Set SN=$S($$$PRGet($$$StockType):"S",1:"N")
	. Write PRNr,*9,$$SORTKEY^PRODUKT(PRNr),*9,IdentNummer,*9,KortTekst,*9,SN,*9,AliasI,*9,AliasK ,!
	Do CLOSE^vhDEV(Dev)