BLKALC1(SoDo) ;Importeren van COA-SO en COA-DO [ 02/12/97  12:55 PM ]
 G BEGIN
  
BEGIN Set FP="2301" Write @F,@F1,"Kopieren van het Toeleveringsbestand"
 Set LevNr=$P(^BLImp(MsgId),D,2)
 Kill ^BLTO(LevNr,SoDo)
 ; Kopieren toeleveringsbestand
 Kill ^BLToe ;Set ToeNr=211480 
 Set ToeNr=199999 
L1 Set ToeNr=$N(^KTO(LevNr,ToeNr)) Goto C1:(ToeNr=-1) ;!(ToeNr>211500)
 Set Bon=^(ToeNr,1),ABNr=$P(Bon,D,10)
 Set:ABNr ^BLToe("IA",ABNr_D_ToeNr)=""
 Set ^BLToe("IL",ToeNr)="" ; Volgens Toelevering
 Set $P(Bon,D,30,99)="VH"
 Set BLKlant=$P(Bon,D,9) Set:'BLKlant BLKlant=212250
 Set:$L(BLKlant)<6 BLKlant=$TR($J(BLKlant,6)," ","0")
 If $P(^BLBeri("K",BLKlant),D,6)=SoDo Do
 .Set ^BLTO(LevNr,SoDo,ToeNr,1)=Bon
 .Set ^BLTO(LevNr,SoDo,ToeNr,0)=^KTO(LevNr,ToeNr,0)
 .Do LCopy
 Goto L1
LCopy Set SortNr=99
LC1 Set SortNr=$N(^KTO(LevNr,ToeNr,SortNr)) Q:SortNr=-1
 Set Lijn=^(SortNr) G:$P(Lijn,D,17)'="KTRPL" LC1 ; Alleen indien produktlijn
 Set:$P(Lijn,D,2) ^BLToe("IP",ToeNr,$P(Lijn,D,2),SortNr)="" ; Volgens Produkt
 Set:ABNr&$P(Lijn,D,14) ^BLToe("IA",ABNr_D_ToeNr,$P(Lijn,D,14)_D_$P(Lijn,D,13)_D_SortNr)="" ; Volgens AB
 Set ^BLToe("IL",ToeNr,$P(Lijn,D,13)_D_$P(Lijn,D,14)_D_SortNr)="" ; Volgens Toelevering
 Set $P(Lijn,D,30,99)="VH",^BLTO(LevNr,SoDo,ToeNr,SortNr)=Lijn
 Goto LC1
C1 ;
YZ Do ^BLKALC2,^BLKALC3
 Set:SoDo="DO" MailId=$$SYSTEM^vhMAIL("LE",LevNr,"KAL-lijst 'COA-DO'","BLUMDO","Nieuwe KAL voor DIRECT ORDERS binnen gekomen",,,"A")
 Set FP=2301 Write @F,@F1 Q