BLKALO1 G BEGIN ;Overdracht wijzigingen KAL [ 09/12/2000  11:55 AM ]
BEGIN Write @F11,@F1,@FMTI," VAN HOECKE : Overdracht KAL lijst ",@FMTi
 Do ^BLKALS ; Geeft LevNr en SoDo terug
 Quit:'LevNr
 Set FP=2301 Write @F,"Ben U zeker dat U de gegevens wenst over te brengen"
 Set FP=2401 Write @F,"O = Overbrengen, [] = Exit"
 Kill IK Do IK^PROC1
 Goto YZ:R'="O"
 Set FP=2301 Write @F,@F1,"Overbrengen van de nieuwe gegevens"
 Set FP=2401 Write @F,"Toelevering : ",@FCH
 Do BLDALLDEVSAVE^FLOWTOE6(LevNr)
 Set RecCnt=1
 Set ToeNr=199999
LOOP Set ToeNr=$N(^BLTO(LevNr,SoDo,ToeNr)) Goto EXIT:ToeNr=-1
 Set LVHCYB=0
 Set FP=2415 Write @F,ToeNr
 Do BVerw
 Do:LVHCYB WIJZ^LOG("TO",ToeNr)
 Goto LOOP
BVerw Set RecToe=^BLTO(LevNr,SoDo,ToeNr,1)
 Do BOvdr
 Set SortNr=99,LijnCnt=0
BV1 Set SortNr=$N(^BLTO(LevNr,SoDo,ToeNr,SortNr)) Goto BV2:SortNr=-1
 Set RecToe=^(SortNr),LijnCnt=LijnCnt+1
 Do LOvdr
 Goto BV1
BV2 Q
 ; Overdracht BON
BOvdr Set BStatus=$P(RecToe,D,30),Conf=$P(RecToe,D,32)
 Q:Conf=""
 Do @$S(BStatus="BL":"BBL",BStatus="VH":"BVH",1:"BVHBL")
 Q
 ; Overdragen ABNummer
BVHBL Q:'$D(^KTO(5005,ToeNr,1))  S R=^(1) Q:$P(R,D,10)=$P(RecToe,D,34)
 Set R="5005\"_ToeNr_D_$P(R,D,3)_D_$P(R,D,10)_D_$P(RecToe,D,34),LVHCYB=1 D ^BLKALAB
 Q
 ; Kreeren Toelevering
BBL Q
 ; Verwijderen Toelevering
BVH Q
 ; Overdracht LIJN
LOvdr Set Test=$P(RecToe,D,31),Status=$P(RecToe,D,30),Conf=$P(RecToe,D,32)
 Do @$S(Status="BL":"LBL",Status="BO":"LBO",Status="VH":"LVH",1:"LVHBL")
 Q
 ; Overdragen velden
LVHBL 
 Q:'$D(^KTO3(ToeNr,$P(RecToe,D,13,14)_D_SortNr))  Set I=1
LVHBL1 Set T=$P(Test,",",I) Goto LVHBL2:T=""
 Do @$S(T="QTY":"QTY",T="LVW":"LVW",T="ID":"ID",T="PR":"PR",1:"DUMMY")
 S I=I+1 Goto LVHBL1
LVHBL2 If $D(^KTO(5005,ToeNr,SortNr)),$P(RecToe,D,14)'=$P(RecToe,D,34) Set LVHCYB=1 Do ^BLKALAL
 Q
DUMMY Q
QTY Set $P(RecToe,D,3)=$P(RecToe,D,37)
 Q
LVW 
 Q:'$D(^KTO(5005,ToeNr,SortNr))  S R=^(SortNr) Q:$P(R,D,25)=$P(RecToe,D,40)
 Set R="5005\"_ToeNr_D_SortNr_D_$P(RecToe,D,2)_D_$P(RecToe,D,40),LVHCYB=1 D ^BLKALLW
 Q
PR Q
ID Q
 ; Verwijderen Lijn
LVH Q
 ; Kreeren Lijn
LBL Q
 ; Kreeren Backorder
LBO Q
EXIT Do ^BLKALC3
 Do CHKALLDEVSAVE^FLOWTOE6(LevNr),DELALLDEVSAVE^FLOWTOE6
 Goto YZ
StrNum Set NUM="",SN1=1
SN1 Set:+$E(STR,SN1)!($E(STR,SN1)=0) NUM=NUM_$E(STR,SN1) Set SN1=SN1+1 Goto SN1:SN1'>$L(STR)
 Q
 ; Omzetten van "DD.MM.YY" naar $H-formaat Input->R,output->R
XT S R=$$INTDATE^vhLib.DataTypes(R)
 Q
YZ Write @FCS Q