Index: BL/Flow/Proxy/pxLevering.cls.xml =================================================================== diff -u -r49100 -r49143 --- BL/Flow/Proxy/pxLevering.cls.xml (.../pxLevering.cls.xml) (revision 49100) +++ BL/Flow/Proxy/pxLevering.cls.xml (.../pxLevering.cls.xml) (revision 49143) @@ -433,7 +433,7 @@ #dim IsPlusMin As %Boolean =$$ISPLMIN^FLOWBON5(BONNr,FactSoort) #dim Rembours As %String = $$flbCalcRembours(KLNr,BONNr,FactSoort) - #dim CheckSumBon As %String =$$flbCalcCheckSumBon(KLNr,BONNr,FactSoort) + #dim CheckSumBon As %String = "" ;$$flbCalcCheckSumBon(KLNr,BONNr,FactSoort) #dim RecuPak As %Boolean = ($D(^KUL(KLNr,FactSoort,BONNr,"VP")))&&('IsBlum)&&('IsVH)&&('IsOrgalux)&&('HeeftEigenHoofding) Set ..BONTYPE=BonType @@ -475,7 +475,7 @@ Do ..VoegToeVerkoopsvoorwaarden(Oorsprong,TaalVV) }Else{ Set ..KlantTelefoon=$P($$$KLRec(0),"\",13) - Set ..CheckSumBon=CheckSumBon + Set ..CheckSumBon= "" ;CheckSumBon } Do:RecuPak ..BuildRecuPak(KLNr,BONNr,FactSoort) ; Niet voor Blum, Van Hoecke of Orgalux Index: FLOWBON.mac.rou =================================================================== diff -u -r29059 -r49143 --- FLOWBON.mac.rou (.../FLOWBON.mac.rou) (revision 29059) +++ FLOWBON.mac.rou (.../FLOWBON.mac.rou) (revision 49143) @@ -753,7 +753,7 @@ Do:KLNr . Set FactSoort=$$NODE(BONNr,"FGMT") . Set blLevDoc=##class(BL.Flow.Levering.Doc).%New() ; Instantiate() - . Set CheckSum=$LB(blLevDoc.CheckSumBon(BONNr,FactSoort,KLNr),$P(^KUL(KLNr,FactSoort,BONNr,1),D,43)) + . Set CheckSum= $LB("","") ;$LB(blLevDoc.CheckSumBon(BONNr,FactSoort,KLNr),$P(^KUL(KLNr,FactSoort,BONNr,1),D,43)) Quit $G(CheckSum) ; ; Vult het controlegetal in van een opgeslagen bon