Index: RPLKL.mac.rou =================================================================== diff -u -r29059 -r59761 --- RPLKL.mac.rou (.../RPLKL.mac.rou) (revision 29059) +++ RPLKL.mac.rou (.../RPLKL.mac.rou) (revision 59761) @@ -5,8 +5,8 @@ G 1 ; T1 ;DE KLANT\KL\K1 -T30 ;WELK SCHERM ;A,U,S,B,O,L,F,M,N,V,R,T,G,E,Z,Y -[] = einde programma;A,U,S,O,L,F,N,V,R,T,G,E,Z,Y -[] = einde programma -T31 ;WELK SCHERM ;A,U,S,O,L,F,M,V,R,T,E,Z -[] = einde programma;A,U,S,O,L,F,N,V,R,T,G,E,Z,Y -[] = einde programma +T30 ;WELK SCHERM ;A,B,O,L,F,M,N,V,R,T,G,E,Z,Y -[] = einde programma;A,U,S,O,L,F,N,V,R,T,G,E,Z,Y -[] = einde programma +T31 ;WELK SCHERM ;A,O,L,F,M,V,R,T,E,Z -[] = einde programma;A,U,S,O,L,F,N,V,R,T,G,E,Z,Y -[] = einde programma T101 ;KLANTNUMMER;4;2;;4;5;;K D KLANTVAN^RPLKL3;5;;;1;;;1;101;;;;;;;1; T102 ;KLANTNAAM;5;2;;5;5;;;25;;;;;;;102;;;;;;;1; T103 ;WOONPLAATS;6;2;;6;5;;$E($S($$LAND^vhRtn1($P(B(1),D,8))="BE":"",1:$$LAND^vhRtn1($P(B(1),D,8))_" ")_K,1,22);22;;;;;;;107;;;;;;;1; @@ -214,11 +214,8 @@ I U4="INS" G RAP I U4="R" D PRF^RPLKL1 G 33 I U4="G" D VKG^RPLKL1 G 33 - I U4="S",VTB'="U" D OFA^RPLKL1 G 33 I U4="T" G TOF - I U4="S",VTB="U" D UTZS^RPLKL1 G 33 I U4="H",VTB="U" D UTZH^RPLKL1 G 33 - I U4="U" D UTZ^RPLKL1 G 33 I U4="&" D DISP^RPLSCHAD(KC) G 33 I U4="!" D DISP^RPLSCHAD(KC,"!") G 33 I U4="Q" D VKA^RPLKL1 G 33