cT819 ;Fin & div: helpscherm ;%T80 ; [ 01/12/01 9:59 AM ] G 1 ; T0 ;Fin & div: helpscherm ; T1 ;Zowel voor klanten als leveranciers zijn er meerdere opzoekmogelijkheden :; T2 ;; T3 ;- K[] L[]; T4 ; opzoeken klant/leverancier via synoniemenroutine met; T5 ; mogelijkheid tot openen; ; T6 ;; T7 ;- K.[] L.[]; T8 ; automatisch opzoeken van openstaand(e) document(en) met; T9 ; openstaand bedrag = ; T10 ;; T11 ;- K.xxx[] of K.xxxVM[] L.xxx[] of L.xxxVM[]; T12 ; automatisch opzoeken van openstaand(e) document(en) met; T13 ; openstaand bedrag = xxx ; of xxx VM; T14 ;; T15 ;- Kxxxxxx[] Lxxxxxx[]; T16 ; opzoeken openstaand document met nummer = xxxxxx; T17 ;; T18 ;- KRxxxxxx[] LRxxxxxx[]; T19 ; opzoeken openstaand document met referte = xxxxxx; T20 ; (doc.nr. leverancier); ; T0F ;Fin & div: écran aide ; T1F ;Pour les clients et les fournisseurs, il y a plusieurs façons de recherche :; T2F ;; T3F ;- K[] L[]; T4F ; recherche du client/fournisseur par son nom ou son numéro +; T5F ; possibilité de création; ; T6F ;; T7F ;- K.[] L.[]; T8F ; recherche automatique de(s) document(s) impayé(s) avec; T9F ; solde = ; T10F ;; T11F ;- K.xxx[] ou K.xxxPE[] L.xxx[] ou L.xxxPE[]; T12F ; recherche automatique de(s) document(s) impayé(s) avec; T13F ; solde = xxx ; ou xxx PE; T14F ;; T15F ;- Kxxxxxx[] Lxxxxxx[]; T16F ; recherche document impayé avec numéro = xxxxxx; T17F ;; T18F ;- KRxxxxxx[] LRxxxxxx[]; T19F ; recherche document impayé qui porte la référence xxxxxx; T20F ; (n° doc.fournisseur); ; T0E ;Financial & miscellaneous transactions: helping screen ; T1E ;There are more look up possibilities for customers as well as suppliers :; T2E ;; T3E ;- K[] L[]; T4E ; look up customer/supplier via synonyms routine with; T5E ; the possibility for creation; ; T6E ;; T7E ;- K.[] L.[]; T8E ; automatic look up of the outstanding document(s) with; T9E ; outstanding amount = ; T10E ;; T11E ;- K.xxx[] of K.xxxFC[] L.xxx[] of L.xxxFC[]; T12E ; automatic look up of outstanding document(s) with; T13E ; outstanding amount = xxx ; or xxx FC; T14E ;; T15E ;- Kxxxxxx[] Lxxxxxx[]; T16E ; look up of outstanding document with number = xxxxxx; T17E ;; T18E ;- KRxxxxxx[] LRxxxxxx[]; T19E ; look up of outstanding document with reference = xxxxxx; T20E ; (doc.nr. of supplier); ; T0D ;Fin & Div: Hilfe Schirm ; T1D ;Für Kunden und Lieferanten gibt is mehrere Aufsuchmöchligkeiten :; T2D ;; T3D ;- K[] L[]; T4D ; aufsuchen Kunde/Lieferant via Synonyme mit; T5D ; Möglichkeit zum öffnen; ; T6D ;; T7D ;- K.[] L.[]; T8D ; automatisch aufsuchen offenstehend(e) Dokument(e) mit; T9D ; offenstehend Betrag = ; T10D ;; T11D ;- K.xxx[] of K.xxxVM[] L.xxx[] of L.xxxVM[]; T12D ; automatisch aufsuchen offenstehend(e) Dokument(e) mit; T13D ; offenstehend Betrag = xxx ; oder xxx VM; T14D ;; T15D ;- Kxxxxxx[] Lxxxxxx[]; T16D ; aufsuchen offenstehend Dokument mit Nummer = xxxxxx; T17D ;; T18D ;- KRxxxxxx[] LRxxxxxx[]; T19D ; aufsuchen offenstehend Dokument mit Referenz = xxxxxx; T20D ; (dok.Nr. Lieferant); ; 1 S FP=301 W @F,!,@F1,@F F I=1:1 S J=$T(@("T"_I_QT)) Q:J="" W !?2,$P(J,U,2) D .I I=9 S R=$S(HUX<0:-HUX,1:HUX)_"\\\"_HQD D R3 W HBF .I I=13 W HBF,$P(J,U,3) ; 2 D TXT^cAFA1(4) D 3^cT809 ; YZ Q ; R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=$S($P(R,D,5):"",1:" "),R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0 R3A S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6) R3B W ?$P(R,D,3),$J(R0,R1),R4,R3 R3Z K R0,R1,R2,R3,R4,R5,R6 Q ;V3 05.07.88 ; Z X ^cZ Q ZZ ; 22.06.04 - 16 u 32 * V8