Index: cAFO5.mac.rou
===================================================================
diff -u -r734 -r3542
--- cAFO5.mac.rou	(.../cAFO5.mac.rou)	(revision 734)
+++ cAFO5.mac.rou	(.../cAFO5.mac.rou)	(revision 3542)
@@ -1,37 +1,38 @@
-cAFO5 ;Output formaten ivm pw's ;%AFO5 ; [ 12/27/00  4:31 PM ]
- ;
-M(DMS,UI1) ; igv machines (heftrucks)
- ;  Machinenr - serienummer - benaming - merk
- n R,UREF,UQC,USC
- d DMS^cAN000("UQC","USC",DMS)
- s R="" i $l(UQC),$l(USC),$d(^DMC(UQC,USC,"DATA","REF")) d
- . s UREF=^("REF")
- . i UI1="" s R=$$Z^cAFO1
- . i $l(UI1) s R=UI1_" ?" i $d(@UREF@(0)) d
- .. s R=$p(^(0),D,1)_" - "          ; nummer
- .. s R=R_$p(^(0),D,8)_" - "        ; serienummer
- .. s R=R_$p(^(0),D,20)_" - "       ; omschrijving
- .. s R=R_$$SIG^cAFA1("PR.MK",$p(^(0),D,3),102)       ; merk
- q R
- ;
-UPWU(UPW,UI1,SRT) ; tonen/printen van info
- ; UPW = "M" machines, "PWT" toestellen
- ; SRT = "U" = uitlevering of order, "F" = factuur
- ; nieuw
- N K
- S K=$$Z^cAFO1 I '$L(UI1) G UPWUZ
- I $L($G(@("^"_Q_UGL_"(0,US,""UPW""_SRT)"))) X ^("UPW"_SRT) G UPWUZ
- ; oud
- ; I $L($G(@("^"_Q_UPW_"(0,""UDI""_SRT)"))) X "S K="_^("UDI"_SRT) G UPWUZ
- S K=$$PWT^cAFO5(UPW,UI1)
-UPWUZ Q K
- ;
-PWT(DMS,UI1) ; igv toestellen of ev. algemeen
- ;     volgens de rubrieken in ^DMC( ... "TOP"
- n R,UQC,USC
- d DMS^cAN000("UQC","USC",DMS)
- s R=""
- i $l(UQC),$l(USC),$d(^DMC(UQC,USC,"LOGGING","TOP")) x ^("TOP") s R=UTOP(1.1)
- q R
- ;
-ZZ ; 05.02.01 - 16 u 23 * V7.84
\ No newline at end of file
+cAFO5	;Output formaten ivm pw's ;%AFO5 ; [ 06/25/01  11:32 AM ]
+	;
+M(DMS,UI1)	; igv machines (heftrucks)
+	;  Machinenr - serienummer - benaming - merk
+	n R,UREF,UQC,USC
+	d DMS^cAN000("UQC","USC",DMS)
+	s R="" i $l(UQC),$l(USC),$d(^DMC(UQC,USC,"DATA","REF")) d
+	. s UREF=^("REF")
+	. i UI1="" s R=$$Z^cAFO1
+	. i $l(UI1) s R=UI1_" ?" i $d(@UREF@(0)) d
+	.. s R=$p(^(0),D,1)_" - "          ; nummer
+	.. s R=R_$p(^(0),D,8)_" - "        ; serienummer
+	.. s R=R_$p(^(1),D,20)_" - "       ; omschrijving
+	.. s R=R_$$SIG^cAFA1("PR.MK",$p(^(0),D,3),102)       ; merk
+	q R
+	;
+UPWU(UPW,UI1,SRT)	; tonen/printen van info
+	; UPW = "M" machines, "PWT" toestellen
+	; SRT = "U" = uitlevering of order, "F" = factuur
+	; nieuw
+	N K
+	S K=$$Z^cAFO1 I '$L(UI1) G UPWUZ
+	I $L($G(@("^"_Q_UGL_"(0,US,""UPW""_SRT)"))) X ^("UPW"_SRT) G UPWUZ
+	; oud
+	; I $L($G(@("^"_Q_UPW_"(0,""UDI""_SRT)"))) X "S K="_^("UDI"_SRT) G UPWUZ
+	S K=$$PWT^cAFO5(UPW,UI1)
+UPWUZ	Q K
+	;
+PWT(DMS,UI1)	; igv toestellen of ev. algemeen
+	;     volgens de rubrieken in ^DMC( ... "TOP"
+	n R,UQC,USC
+	d DMS^cAN000("UQC","USC",DMS)
+	s R=""
+	i $l(UQC),$l(USC),$d(^DMC(UQC,USC,"LOGGING","TOP")) x ^("TOP") s R=UTOP(1.1)
+	q R
+	;
+ZZ	; 06.08.01 - 17 u 28 * V7.87
+