VerwerkDoc ; Navigatie naar offerte, order en uilevering
 Q

 ; OfferteNr - Bevat de gegevens voor het opmaken van een order
 ; HDefault  - Default gegevens van de hoofding
AutoVerwerkOrder(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($P(Offerte("H"),D,4),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 Order
ExternVerwerkUitlevering W @F11,@F1 S US="F",UKIL="",Jump=1,EXTNr=ULNr K ^HULP($J) G Uitlevering
ExternVerwerkOrder W @F11,@F1 S US="F",UKIL="",Jump=1,EXTNr=ORDNr K ^HULP($J) G Order
ExternVerwerkOfferte W @F11,@F1 S US="F",UKIL="",Jump=1,EXTNr=OFFNr K ^HULP($J) G Offerte
VerwerkUitlevering W @F11,@F1 S US="F",UKIL="" G Uitlevering
VerwerkOrder W @F11,@F1 S US="F",UKIL="" G Order
VerwerkOfferte W @F11,@F1 S US="F",UKIL="" G Offerte
 
 ; UGL - Naam van het hoofdbestand
 ; UG1 - Indexbestand 1
 ; UG2 - Indexbestand 2
 ; UG3 - Indexbestand 3
 ; UGB - Printbakje
Uitlevering S UGL="UL",UG1="U1",UG2="U2",UG3="U3",UGB="UB" G VerwerkDocument
Order S UGL="OD",UG1="O1",UG2="O2",UGB="OB" G VerwerkDocument
Offerte S UGL="OFKL",UG1="OFKL1",UG2="OFKL2",UGB="OFKLB" G VerwerkDocument
VerwerkDocument
 D Initialisatie
 G ^Flow.SelecteerDoc
 
Initialisatie
 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