cT156 ;Openstaande wissels ;%T156 ; [ 12/29/00  5:12 PM ]
 ;
 G 1
 ;
T0 ;Openstaande wissels ;
T1 ; Klant\;
T2 ; Leverancier\;
T3 ; Woonplaats\ Wissel\ Datum\ VVD\     Bedrag\Munt\ Documenten;
T4 ;Keuze\"[] = alle wissels   .[] = selectie op vervaldatum";
T5 ;Alle wissels;Selectie op vervaldatum;
 ;
T0F ;Traites impayées ;
T1F ; Client\;
T2F ; Fournisseur\;
T3F ; Localité\ Traite\ Date\Echéance\    Montant\Mon.\ Documents;
T4F ;Choix\"[] = toutes les traites   .[] = sélection sur date d'échéance";
T5F ;Toutes les traites;Sélection sur date d'échéance;
 ;
T0E ;Outstanding bills of exchange ;
T1E ; Customer\;
T2E ; Supplier\;
T3E ; City\ Bill  \ Date\Due date\     Amount\Cur.\ Documents;
T4E ;Choice\"[] = all bills of exchange   .[] = selection on due date";
T5E ;All bills of exchange;Selection on due date;
 ;
1 S SRT=$P(R,U,2)
11 ;D O^cA612(2,1,20,80,1,0,1,1),T^cA612($P($T(@("T0"_QT)),U,2),0,0,7,1,1) ;10.03.00
 D P^cA612(2,1,20,80,1,0,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1)
 ;  Algemene selectie leveranciers/klanten
13 D ^cAN003(2,SRT) I K="-" G YZ
14 W /CUP(10,1),@F1
15 S R="KEUZE\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\"".-""[K" D R0 G 13:K="-"
17 W /CUP(10,2),@F6,$P($T(@("T5"_QT)),U,2+$L(KEUZE)),@F9,@F1
19 I KEUZE="" S VAN="",LVAN="",TOT="",LTOT="" G 23
 ;
 ;  Vraagstelling Van datum - Tot datum
2 S VAN=$$VAN^cAN005(DT,11,3) I VAN="-" G 14
20 S TOT=$$TOT^cAN005(VAN,12,3,VAN) I TOT="-" G 2
21 S LTOT=$$DC^cAFD1(TOT),LVAN=$$DC^cAFD1(VAN)
 ;  Printerkeuze
23 D ^cAN3223(1,1,">80",0) I K="-" G 20:KEUZE=".",14
 ;
 ;  Printen van de lijst
3 S HD(2)=D_$P($T(@("T0"_QT)),U,2)_";C;F82",HD(1)=D
31 I KEUZE="" S HD(3)=D_$P($T(@("T5"_QT)),U,2)_";C;"
33 I KEUZE="." S HD(3)=D_VAN_" - "_TOT_";C;"
35 S TAB="30\50\58\67\76\89\94\131"
37 S TIT(1)=$S(SRT="KL":$P($T(@("T1"_QT)),U,2),1:$P($T(@("T2"_QT)),U,2))
39 S TIT(1)=TIT(1)_$P($T(@("T3"_QT)),U,2)
 ;
4 S SRTDAT=$P(@("^"_Q_"BA(""%T"",2)"),D)
41 S I1=""
43 F  D ^cAN004("I1",SRT) Q:I1=""  D
 . S NR=$$SIG^cAFA1(SRT,I1,101)
 . S NAAM=$P(^(0),D,2)
 . S TXT(1)=NR_" "_NAAM_"\\1\\\\\\\1"
 . S TXT(2)=$P(^(0),D,7)_"\\1\\\\\\\1" ; Woonplaats
 . K ^HULP(boot,$J+.03)
 . S I2=9999
 . F  S I2=$O(@("^"_Q_SRT_"(I1,I2)")) Q:I2=""!(I2'?5N)  D
 .. S X=^(I2)
 .. S SRTDAT=$S(SRTDAT="":$P(X,D,2),SRTDAT=1:$P(X,D,3),1:DT)
 .. S SRTDAT=$$DC^cAFD1(SRTDAT)
 .. S ^HULP(boot,$J+.03,SRTDAT_" "_I2)=I2
 . S I3="" 
 . F  S I3=$O(^HULP(boot,$J+.03,I3)) Q:I3=""  D
 .. S WISSEL=^(I3)
 .. S TXT(3)=WISSEL_"\\1"
 .. S TXT(4)=$P(@("^"_Q_"WI(WISSEL,0)"),D,4) ; Datum
 .. S VVD=$P(^(0),D,5)
 .. S LVVD=$$DC^cAFD1(VVD)
 .. I KEUZE="."&((LVVD<LVAN)!(LVVD>LTOT)) Q
 .. S TXT(5)=VVD ; vervaldatum
 .. S MUNT=$P(^(0),D,8)
 .. S TXT(6)=$P(^(0),D,7)_"\\\\1\"_$$DEC^cAFA1(MUNT) ; Bedrag
 .. S TXT(7)=MUNT ; Munt
 .. S FACT=""
 .. S FNR=0
 .. F  S FNR=$O(@("^"_Q_"WI(WISSEL,FNR)")) Q:FNR=""  D
 ... S FACT=FACT_FNR_" "
 .. S TXT(8)=FACT
 .. S END=0 D ^cA334
45 S END=1 D ^cA334
 ;
YZ D C^cA612 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84