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