/*
w ##class(BL.EC.EDI).CalcOfferteMatrix(142,,"c:\Temp\TBox NEVES calcMatrix.txt")
w ##class(BL.EC.EDI).CalcOfferteMatrix(1331,,"c:\Temp\TBox Uytterhoeven calcMatrix.txt")
 */
 
	; SUBROUTINE VAN classmethod CalcOfferteMatrix()
	; Definitie van de parameters/dimensies voor de calculatiemathix
comSetMatrixDfl(arMatrix)   ; arMatrix als .local doorgeven
  /*   * /
 	// KLANT 1387 - UYTTERHOEVEN   (Deel 1 : 50kg)
	Set arMatrix("IN","InitVal","ItemDK")=50
	Set arMatrix("IN","Dim")=$LB("ItemLT","ItemLD","ItemCB")   ; !!! VOLGORDE is BELANGRIJK voor de matrix !!!
	; LadeType
	Set arMatrix("IN","Prm","ItemLT","Val")=$LB("M","D","M/Z","D/Z")
	Set arMatrix("IN","Prm","ItemLT","Xtra","D","ItemBX")="BD"
	Set arMatrix("IN","Prm","ItemLT","Xtra","D/Z","ItemBX")="BD"
	Set arMatrix("IN","Prm","ItemLT","Xtra","D/Z","ItemBGRP")="H"
	Set arMatrix("IN","Prm","ItemLT","Xtra","M/Z","ItemBGRP")="X"
	; LadeDiepte
	Set arMatrix("IN","Prm","ItemLD","Val")=$LB(450,500,550,600,650)
	; CorpusBreedte
	Set arMatrix("IN","Prm","ItemCB","Val")=$LB(400,600,800,1000,1200)
	Quit
  /*   * /
 
 	// KLANT 1387 - UYTTERHOEVEN   (Deel 2 : 30kg)
	Set arMatrix("IN","InitVal","ItemDK")=30
	Set arMatrix("IN","Dim")=$LB("ItemLT","ItemLD","ItemCB")   ; !!! VOLGORDE is BELANGRIJK voor de matrix !!!
	; LadeType
	Set arMatrix("IN","Prm","ItemLT","Val")=$LB("M","D","M/Z","D/Z")
	Set arMatrix("IN","Prm","ItemLT","Xtra","D","ItemBX")="BD"
	Set arMatrix("IN","Prm","ItemLT","Xtra","D/Z","ItemBX")="BD"
	Set arMatrix("IN","Prm","ItemLT","Xtra","D/Z","ItemBGRP")="H"
	Set arMatrix("IN","Prm","ItemLT","Xtra","M/Z","ItemBGRP")="X"
	; LadeDiepte
	Set arMatrix("IN","Prm","ItemLD","Val")=$LB(270,350,400,450,500,550)
	; CorpusBreedte
	Set arMatrix("IN","Prm","ItemCB","Val")=$LB(400,600,800,1000)
	Quit
 /*   */
 	// KLANT 1387 - UYTTERHOEVEN   (Deel 2b : 30kg ; D-laden DubReling)  
	Set arMatrix("IN","InitVal","ItemDK")=30
	Set arMatrix("IN","Dim")=$LB("ItemLT","ItemLD","ItemCB")   ; !!! VOLGORDE is BELANGRIJK voor de matrix !!!
	; LadeType
	Set arMatrix("IN","Prm","ItemLT","Val")=$LB("D","D/Z")
	Set arMatrix("IN","Prm","ItemLT","Xtra","D","ItemBX")="ER"
	Set arMatrix("IN","Prm","ItemLT","Xtra","D/Z","ItemBX")="ER"
	Set arMatrix("IN","Prm","ItemLT","Xtra","D/Z","ItemBGRP")="H"
	; LadeDiepte
	Set arMatrix("IN","Prm","ItemLD","Val")=$LB(270,350,400)
	; CorpusBreedte
	Set arMatrix("IN","Prm","ItemCB","Val")=$LB(400,600,800,1000)
	Quit
 /*   * /
 	// KLANT 1387 - UYTTERHOEVEN   (Deel 3 : 80kg)
	Set arMatrix("IN","InitVal","ItemDK")=80
	Set arMatrix("IN","InitVal","ItemBM")="LR"
	Set arMatrix("IN","InitVal","ItemBX")="BD"
	Set arMatrix("IN","Dim")=$LB("ItemLT","ItemLD","ItemCB")   ; !!! VOLGORDE is BELANGRIJK voor de matrix !!!
	; LadeType
	Set arMatrix("IN","Prm","ItemLT","Val")=$LB("D")
	;Set arMatrix("IN","Prm","ItemLT","Xtra","D","ItemBX")="BD"
	; LadeDiepte
	Set arMatrix("IN","Prm","ItemLD","Val")=$LB(500,550,600,650)
	; CorpusBreedte
	Set arMatrix("IN","Prm","ItemCB","Val")=$LB(800,1000,1200)
	Quit
 
 /*   * /
 	// KLANT 4485 - NEVES
	Set arMatrix("IN","Dim")=$LB("ItemLT","ItemLD","ItemCB")   ; !!! VOLGORDE is BELANGRIJK voor de matrix !!!
	; LadeType
	Set arMatrix("IN","Prm","ItemLT","Val")=$LB("M")   ; $LB("M","D")   ; $LB("M","D")
	Set arMatrix("IN","Prm","ItemLT","Xtra","D","ItemBX")="ER"
	; LadeDiepte
	Set arMatrix("IN","Prm","ItemLD","Val")=$LB(450,500,600)   ; $LB(270,350,400,450,500,600)
	Set arMatrix("IN","Prm","ItemLD","Xtra",600,"ItemDK")=50
	; CorpusBreedte
	Set arMatrix("IN","Prm","ItemCB","Val")=$LB(250,300,900)   ; $LB(250,300,350,400,450,500,550,600,650,700,750,800,850,900) 
	Quit
 /*   */
 
 Quit
 
 
 
 
 
 /*
<<$LB("~Flow.Offerte.LijnProduct~Flow.Offerte.LijnProductGA~","","01.001.00.00","","")>>
 
"KM","KLNummer")=1387	   "KLNummer")=1387		  "KLNummer")=1387		  "KLNummer")=1387
"KM","ItemASM")=		   "ItemASM")=			  "ItemASM")=			  "ItemASM")=
"KM","ItemBM")=I		   "ItemBM")=I			  "ItemBM")=I			  "ItemBM")=LR
"KM","ItemDS")=IS		   "ItemDS")=IS			  "ItemDS")=IS			  "ItemDS")=IS
"KM","ItemKB")=DG		   "ItemKB")=DG			  "ItemKB")=DG			  "ItemKB")=DG
"KM","ItemKL")=IN		   "ItemKL")=IN			  "ItemKL")=IN			  "ItemKL")=IN
"KM","ItemKX")=IN		   "ItemKX")=IN			  "ItemKX")=IN			  "ItemKX")=IN
"KM","ItemOLP")=		   "ItemOLP")=			  "ItemOLP")=			  "ItemOLP")=
"KM","ItemOPVL")=		   "ItemOPVL")=			  "ItemOPVL")=			  "ItemOPVL")=
"KM","ItemRK")=CR		   "ItemRK")=CR			  "ItemRK")=CR			  "ItemRK")=CR
"KM","ItemSB")=0		   "ItemSB")=0			  "ItemSB")=0			  "ItemSB")=0
"KM","ItemSPZK")=		   "ItemSPZK")=			  "ItemSPZK")=			  "ItemSPZK")=
"KM","ItemVPK")=S		   "ItemVPK")=S			  "ItemVPK")=S			  "ItemVPK")=S
"KM","ItemWD")=18		   "ItemWD")=18			  "ItemWD")=18			  "ItemWD")=18
 
"KM","ItemBGRP")=X		   "ItemBGRP")=H		  "ItemBGRP")=X			  "ItemBGRP")=X
"KM","ItemBX")=ZR		   "ItemBX")=BD			  "ItemBX")=BD			  "ItemBX")=BD
"KM","ItemCB")=400		   "ItemCB")=800		  "ItemCB")=1200		  "ItemCB")=1000
"KM","ItemDK")=30		   "ItemDK")=30			  "ItemDK")=50			  "ItemDK")=80
"KM","ItemFB")=S		   "ItemFB")=S			  "ItemFB")=S			  "ItemFB")=S
"KM","ItemLD")=400		   "ItemLD")=550		  "ItemLD")=500			  "ItemLD")=650
"KM","ItemLT")=M		   "ItemLT")=D/Z		  "ItemLT")=D			  "ItemLT")=D
 
 
 
"KM","ItemDK")=30		   "ItemDK")=30			  "ItemDK")=50			  "ItemDK")=80
 
"KM","ItemLT")=M		   "ItemLT")=D/Z		  "ItemLT")=D			  "ItemLT")=D
"KM","ItemLD")=400		   "ItemLD")=550		  "ItemLD")=500			  "ItemLD")=650
"KM","ItemCB")=400		   "ItemCB")=800		  "ItemCB")=1200		  "ItemCB")=1000
"KM","ItemBGRP")=X		   "ItemBGRP")=H		  "ItemBGRP")=X			  "ItemBGRP")=X
"KM","ItemBX")=ZR		   "ItemBX")=BD			  "ItemBX")=BD			  "ItemBX")=BD
"KM","ItemFB")=S		   "ItemFB")=S			  "ItemFB")=S			  "ItemFB")=S
 
 
w ##class(BL.EC.EDI).CalcOfferteMatrix(1331,,"TBox Uytterhoeven calcMatrix.txt")
 
 */