KF9 G F ;REGISTRATIE UITLEVERINGEN (INGANG) ;Go naar KF30 [ 09/25/2003  10:45 AM ]
 ;
FOA(KLNr,AutoMb,OrdRef,PRNr,EDIORDNr,UTYP,FBRef,Offerte) 
 Do:$D(Offerte)
 .New I,R,Obj,OfferteNr,Afzender
 .Set OfferteNr=$P(Offerte("H"),D),KLNr=$P(Offerte("H"),D,2)
 .Set Obj=##Class(Flow.Offerte.Hoofding).%OpenId(OfferteNr),Afzender=Obj.Afzender
 .Set OrdRef=$E(DT_$S($L($P(Offerte("H"),D,4)):" "_$P(Offerte("H"),D,4),1:""),1,30)
 .; Opzetten default waarden
 .Set R=$G(Offerte("H","Default"))
 .If $L(R) For I=1:1:$L(R,D) If $L($P(R,D,I)) Set HDefault(I)=$P(R,D,I)
 .Set:$L(Afzender) HDefault(9)=Afzender ; Afzender
 .Set HDefault(10)=Obj.EmailOrderbevestiging
 .Set:$L($P(Offerte("H"),D,8)) HDefault(19)=$P(Offerte("H"),D,8) ; Comm - Orgalux referentie
 .Set HDefault(40)=##Class(BL.Flow.Offerte.Offerte).GetEDINr(OfferteNr) ; EDI - referentienummer
 W @F11,@F1 S US="F",UKIL="",KC=KLNr,EXTNr="A"_$G(UTYP),AutoOrd=1 S:$G(AutoMb) UJ="U",LogNr=AutoMb G 3
FUE W @F11,@F1 S US="F",UKIL="",Jump=1,EXTNr=ULNr K ^HULP($J) G 1
FOE W @F11,@F1 S US="F",UKIL="",Jump=1,EXTNr=ORDNr K ^HULP($J) G 3
FOFE W @F11,@F1 S US="F",UKIL="",Jump=1,EXTNr=OFFNr K ^HULP($J) G 6
F W @F11,@F1 S US="F",UKIL="" G 1
F1 W @F11,@F1 S US="F",UKIL=1 G 1
F2 W @F11,@F1 S US="F",UKIL="" G 3
F3 W @F11,@F1 S US="F",UKIL=1 G 3
F4 W @F11,@F1 S US="F",UKIL="" G 5
F5 W @F11,@F1 S US="F",UKIL="" G 6
F6 W @F11,@F1 S US="F",UKIL="" G 2
F7 W @F11,@F1 S US="F",UKIL="" G 4
 ;
1 S UGL="UL",UG1="U1",UG2="U2",UG3="U3",UGB="UB" G 7
2 S UGL="UL",UG1="U1",UG2="U2",UG3="U3",UGB="UB" G 8
3 S UGL="OD",UG1="O1",UG2="O2",UGB="OB" G 7
4 S UGL="OD",UG1="O1",UG2="O2",UGB="OB" G 8
5 S UGL="OFF",UG1="OFF1",UG2="OFF2",UGB="OFFB" G 7
6 S UGL="OFKL",UG1="OFKL1",UG2="OFKL2",UGB="OFKLB" G 7
 ;
7 D S1 G YZ
8 D S2 G YZ
 ;
YZ G ^KF30
 ;
S1 S X=$N(@("^"_Q_"BA(18,-1)"))
 F X=0:1:9 S:$D(^(X)) PBTW(X)=$P(^(X),D,1) S:$D(^(X+10)) PTXT(X)=$P(^(X+10),D,1) S:$D(^(X+20)) PEGA(X)=$P(^(X+20),D,1)
 S U=";",X=@("^"_Q_UGL_"(0,US,0)")
 F I="UD","UT","UTL","USM","USC","UV","UUM","UOU" S @I=^(I)
 I "\OD\UL\OFKL\"[(D_UGL_D) S USC=""
 S BS="\\\\\\\\\\\\\\\\\\\\\\\\\\",BLA="                                                            "
 S PNT="........................................"
 S UVV=$P($P(UV," ",2),"=",2),Q1="^"_Q_UGL_"(0,US,""UR"")" X X,UT K X,UT
 Q
 ;
S2 S X=$N(@("^"_Q_"BA(18,-1)"))
 F X=0:1:9 S:$D(^(X)) PBTW(X)=$P(^(X),D,1) S:$D(^(X+10)) PTXT(X)=$P(^(X+10),D,1) S:$D(^(X+20)) PEGA(X)=$P(^(X+20),D,1)
 S U=";",X=@("^"_Q_UGL_"(0,US,9)")
 F I="UD","UT","UTL","USML","USCL","UV","UUM","UOU" S @I=^(I)
 S USM=USML,USC=USCL K USML,USCL
 S BS="\\\\\\\\\\\\\\\\\\\\\\\\\\",BLA="                                                            "
 S PNT="........................................"
 S UVV=$P($P(UV," ",2),"=",2),Q1="^"_Q_UGL_"(0,US,""UR"")" X X,UT K X,UT
 Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 31