PROFORMA ;PROFORMA FAKTUUR [ 01/13/2003  1:39 PM ]
 ;
ASKNUM 
 New IK,%TC
 Write @F11,@F1
 Set FP=101 Write @F,@FMTI,"Opvragen PROFORMA-nummer ",QN,@FMTi
A1 If $D(BJ) Do REMOVE^vhLock("^KFAP(BJ,""FNR"")")
 Set R=$$ASKL^vhINP("PROFORMA","FAKTUURDATUM") Quit:R="-"
 Do VALDATE^vhLib.DataTypes(R) Goto A1:'%TC
 Goto A1:'$$BOEKJAAR(R)
 Do ADD^vhLock("^KFAP(BJ,""FNR"")")
 If '%TC Do LDISP^vhLock("^KFAP(BJ,""FNR"")","Faktuurnummer") Goto A1
 Set User=$P($$USER^vhRtn1($I),D,3) Set:User="" User=$I
 Set FANr=$$NUMMER(BJ,1)
A2 Set FP=2301
 Write @F,@F1,"Faktuurmummer: ",@FMTB,$$EXTNUM^vhLib.DataTypes(FANr,0,"+,",0),@FMTb
 Write !,"[] = ok   -[] = hernemen",@F2
 Do IK^PROC1
 If R'="ENTER" Goto A2:"-"'=R,A1
 Set ^KFAP(BJ,"FNR")=FANr+1
 Do REMOVE^vhLock("^KFAP(BJ,""FNR"")")
 Set ^KFAP("F",FANr)=User_D_$H,FP=2301
 Quit
 ;
BOEKJAAR(FaktDat) 
 New OK
 Set:'$D(FaktDat) FaktDat=DT
 Set FaktDat=$TR($$EXTDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes(FaktDat)),"-",".")
 Set (FDT,R)=FaktDat
 Do D^cT163
 Quit OK
 ;
NUMMER(BoekJaar,NoMod) 
 New FANr
 Set NoMod=$G(NoMod)
 If 'NoMod Lock +^KFAP(BoekJaar,"FNR")
 Set FANr=$G(^KFAP(BoekJaar,"FNR"))
 If 'FANr Set FANr=BoekJaar#100_"0001"
 If NoMod Quit FANr
 Set ^KFAP(BoekJaar,"FNR")=FANr+1
 Lock -^KFAP(BoekJaar,"FNR")
 Quit FANr
 ;