Index: DCDETAIL.mac.rou
===================================================================
diff -u -r29059 -r49990
--- DCDETAIL.mac.rou	(.../DCDETAIL.mac.rou)	(revision 29059)
+++ DCDETAIL.mac.rou	(.../DCDETAIL.mac.rou)	(revision 49990)
@@ -8,7 +8,7 @@
  .If $L(EdiNummer) Do
  ..Set:$L(OrgalRef) OrgalRef=OrgalRef_"/" Set OrgalRef=OrgalRef_EdiNummer
  ..Set:$L(VHisieVwCust) OrgalRef=OrgalRef_"/"_VHisieVwCust
- .Set R=$P(R,D,5),ORDNr=$P(R," - "),OrdRef=$P(R," - ",3)
+ .Set R=$P(R,D,5),ORDNr=$P(R," - "),OrdRef=$P(R," - ",3,99)
  .Do ORDREF^DCFAKTP(ORDNr,OrdRef,OrgalRef)
  If $P($P(R,D,17),"#")="KF11" Do TEXTFAKT^DCTEXT Quit $$PROFNXTL(FANr,BONNr,OLNr)
  If $P($P(R,D,17),"#")="KF1925" Do MANFAKT^DCMANL(R) Quit $$PROFNXTL(FANr,BONNr,OLNr)
@@ -23,7 +23,7 @@
  .If $L(EdiNummer) Do
  ..Set:$L(OrgalRef) OrgalRef=OrgalRef_"/" Set OrgalRef=OrgalRef_EdiNummer
  ..Set:$L(VHisieVwCust) OrgalRef=OrgalRef_"/"_VHisieVwCust
- .Set R=$P(R,D,5),ORDNr=$P(R," - "),OrdRef=$P(R," - ",3)
+ .Set R=$P(R,D,5),ORDNr=$P(R," - "),OrdRef=$P(R," - ",3,99)
  .Do ORDREF^DCFAKT(ORDNr,OrdRef,OrgalRef)
  If $P($P(R,D,17),"#")="KF11" Do TEXTFAKT^DCTEXT Quit $$FAKTNXTL(FANr,BONNr,OLNr)
  If $P($P(R,D,17),"#")="KF1925" Do MANFAKT^DCMANL(R) Quit $$FAKTNXTL(FANr,BONNr,OLNr)
@@ -38,7 +38,7 @@
  .If $L(EdiNummer) Do
  ..Set:$L(OrgalRef) OrgalRef=OrgalRef_"/" Set OrgalRef=OrgalRef_EdiNummer
  ..Set:$L(VHisieVwCust) OrgalRef=OrgalRef_"/"_VHisieVwCust
- .Set R=$P(R,D,5),ORDNr=$P(R," - "),OrdRef=$P(R," - ",3)
+ .Set R=$P(R,D,5),ORDNr=$P(R," - "),OrdRef=$P(R," - ",3,99)
  .Do ORDREF^DCBON(ORDNr,OrdRef,OrgalRef)
  If $P($P(R,D,17),"#")="KF11" Do TEXTBON^DCTEXT Quit $$BONNXTL(BONNr,OLNr,FakSoort)
  Set Netto=Netto+$P(R,D,9)
@@ -50,7 +50,7 @@
  Set R=^KUL(KLNr,"F",BONNr,OLNr)
  If $P(R,D,17)="KF5" Do  Quit 0
  .Set OrgalRef=$P(R,D,20)
- .Set R=$P(R,D,5),ORDNr=$P(R," - "),OrdRef=$P(R," - ",3)
+ .Set R=$P(R,D,5),ORDNr=$P(R," - "),OrdRef=$P(R," - ",3,99)
  .Do ORDREF^DCSBON(ORDNr,OrdRef,OrgalRef)
  Set Netto=Netto+$P(R,D,9)
  Quit 0