cT104 ;Openstaande leveranciersfacturen naar file ;%T10 ;%T10* ; [ 03/06/01 6:00 PM ] ; ; Indien SWVB = 1 wordt dit prog. gebruikt om een grid in VB op te bouwen (zie ook VB^cAT10) ; ; T0 ;Openstaande leveranciersfacturen ; T3 ;Nummer\Naam van de leverancier\JRN\ \B\Document\Datum\Openst.;\Verv.;\Vervaldatum\Dag.verv\Factuurnr.lev.\Omschrijving\Betaling\Bet.term.\Telefoon 1\Klant nr.\Woonplaats\Mnt\Totaal Mnt\Openst.Mnt\G\K.c.Mnt; T4 ;Blz :;FCW;FCW; T5 ;Referentiedatum : ; - Referentie factuurdatum : ; ; T0F ;Documents de fournisseur non soldés ; T3F ;Numéro\Nom du fournisseur\JRN\ \P\Document\Date\Impayé ;\Echu ;\Echéance\Jours echu\N° facture fourn.\Description\Paiement\Dél.paiem.\Téléphone 1\N° de client\Localité\Mon\Total en Mon.\Impayé en Mon.\P\Esc.compt.Mon.; T4F ;Page:;FCW;FCT; T5F ;Date de référence : ; - Référence date facture : ; ; T0E ;Outstanding purchase vouchers ; T3E ;Number\Supplier Name\JRN\ \P\Document\Date\Outst.;\Overdue ;\Due Date\Num.of Days due\Invoice num.Supl.\Description\Payment\Paym.Term\Telephone 1\Num.Customer\City\Cur\Total Cur\Outst.Cur\P\Cash disc.Cur; T4E ;Pge :;FCW;ICB; T5E ;Reference date : ; - Reference invoice date : ; ; ; initialisatie 1 S HD(1)=D,HD(2)=D_$P($T(@("T0"_QT)),U,2)_";C;F82",HD(3)=D_$P($T(@("T5"_QT)),U,2)_RFD I UFD S HD(3)=HD(3)_$P($T(@("T5"_QT)),U,3)_UFD K LN S TAB="7\36\40\44\46\53\62\73\84\93\104\120\136\147\162\181\188\212\216\227\238\240\251",TIT(1)=$P($T(@("T3"_QT)),U,2)_$P(MUNT,D)_$P($T(@("T3"_QT)),U,3)_$P(MUNT,D)_$P($T(@("T3"_QT)),U,4) 11 S (SWE,ETONB,ETVER)=0 I $G(QW) S $P(QW(QW),D,7)=1 13 S SORT=$P(@("^"_Q_"BA")@("%T",2),D) ; ; volgende leverancier 2 I $G(SWVB) S LIM1=$$UI1^cAFA1("LE",101,KC) G YZ:'$L(LIM1),YZ:'$L($$SIGN^cAFA1("LE",LIM1,0)) G 3 G YZ:ESW=2 S R="LIM1\LE" D ^cA327 I LIM1="" G YZ ; ; per leverancier 3 S SWV=0 I ESW<2 S I1=LIM1,B(1)=$$SIGN^cAFA1("LE",I1,0),B(2)=$G(^(1)),B(3)=$G(^(2)),COR=SWC&$P(B(3),D,30),(ONB,VER)=0 D ^cT101 31 S FNR="" I ACT=3 S FNR=990000 F S FNR=$O(@QH1) Q:FNR="" D . S A=^(FNR) I '$P(A,D,5) K ^(FNR) Q ; openstaand = 0 . I DOCS=1,FNR?5N K ^(FNR) Q ; geen wissels . I DOCS=2,FNR?6N K ^(FNR) Q ; enkel wissels . ; Van Wisselnr - Tot wisselnr . I DOCS=2,FNR?5N D .. I $L($G(VANWIS)),(FNRTOTWIS) K ^(FNR) . I RFD'=DT,FNR>990000 D S ^(FNR)=A .. S $P(A,D,2)="??.??.??",$P(A,D,3)="??.??.??",$P(A,D,9)="" .. S $P(A,D,4)=$P(A,D,5),$P(A,D,6)=$P(A,D,5) .. I $P(A,D)="?" S $P(A,D)="C" 32 I ACT=2 S A=0 D I 'A G 6 ; enkel met CN . S FNR="" F S FNR=$O(@QH1) Q:FNR="" I $P(^(FNR),D)="C" S A=1 Q 33 S FNR="" I ACT=3 S FNR=990000 I 'ACT,'$L($O(@QH1)) D I 'COR G 6 ; enkel met bedragen . I COR S R=^HULP(boot,$J+.04) I '$P(R,D),'$P(R,D,2) S COR=0 35 S TXT(1)=$P(B(1),D) 37 S TXT(2)=$P(B(1),D,2) 39 K ^HULP(boot,$J+.09) F S FNR=$O(@QH1) Q:FNR="" S A=^(FNR),I3=$$DC^cAFD1($S(SORT<2:$P(A,D,2+SORT),1:DT))*1E6+FNR,^HULP(boot,$J+.09,I3)=FNR ; ; facturen weergeven (gesorteerd) 4 S I3=$O(^HULP(boot,$J+.09,"")) G 6:I3="" 40 S FNR=^(I3) K ^(I3) 41 S A=@QH1,VVD=$P(A,D,3),OPE=+$P(A,D,5) S FC=$P(A,D),MNT=$P(A,D,7),OPV=+$P(A,D,6) S:MNT="" MNT=BF,OPV=+$P(A,D,4) G 4:'OPE 42 S ONB=ONB+OPE S:FC'="C" OPV=-OPV ; ; 2 lijn per factuur 5 F I=3:1:21 S TXT(I)="" F I=8:1:9 S $P(TXT(I),D,8)=1,$P(TXT(I),D,27)=0 I QD>0 S $P(TXT(I),D,27)="0." F J=1:1:QD S $P(TXT(I),D,27)=$P(TXT(I),D,27)_"0" S $P(TXT(11),D,27)=0 S $P(TXT(14),D,27)=0 I QD>0 S $P(TXT(14),D,27)="0." F J=1:1:QD S $P(TXT(14),D,27)=$P(TXT(14),D,27)_"0" S LEV=@("^"_Q_"L1($P(B(1),D))") S FNRSTR=$G(@("^"_Q_"LE(LEV,FNR)")) I FNRSTR="" D . S FDAT=$P(A,D,2) . S FDAT=$$DC^cAFD1(FDAT) . S FDAT=$E(FDAT,1,4)_"."_$E(FDAT,5,6) . S STR=$G(@("^"_Q_"AA(FDAT,FNR)")) . S $P(FNRSTR,D,8)="" . S $P(FNRSTR,D,16)=$P(STR,D,21) . S $P(FNRSTR,D,5)=$$OMREK^cAFE1(Q,OPE,$P(MUNT,D),MNT,"V","") . S $P(FNRSTR,D,6)=$$OMREK^cAFE1(Q,$P(STR,D,10),$P(MUNT,D),MNT,"V","") S JRNNR=$P(FNRSTR,D,16) I JRNNR S JRNNR=$E("000",1,3-$L(JRNNR))_JRNNR,JRN=$$JRN^cAFO2("V",JRNNR) S TXT(3)=$S(JRNNR:JRN,1:"") 50 S TXT(4)=$TR(FC,$P($T(@("T4"_QT)),U,3),$P($T(@("T4"_QT)),U,4)),TXT(5)=$P(FNRSTR,D,8),TXT(6)=FNR,TXT(7)=$P(A,D,2),TXT(10)=VVD,TXT(16)=$P(B(1),D,13) S STRFI=$P(A,D,10) S TXT(12)=$P(A,D,9) I $L(STRFI) S TXT(12)=$P(@("^"_Q_"FI($P(STRFI,""#""),$P(STRFI,""#"",2),$P(STRFI,""#"",3))"),D,9) S TXT(17)=$$KLANT($P(B(1),D)),TXT(18)=$P(B(1),D,7),TXT(19)=MNT 51 S TXT(20)=OPV_"\\\\1\"_$$DEC^cAFA1(MNT),$P(TXT(20),D,27)="0.00" S TXT(21)=$S(FC'="C":-$P(FNRSTR,D,5),1:$P(FNRSTR,D,5))_"\\\\1\"_$$DEC^cAFA1(MNT),$P(TXT(21),D,27)="0.00" S TXT(8)=OPE_"\\\\1\"_QD_"\\1" S ETONB=ETONB+OPE 53 S R=VVD_D_RFD D ^cA326 I R'>0 S TXT(9)=OPE_"\\\\1\"_QD_"\\1",VER=VER+R S ETVER=ETVER+OPE S R=VVD_D_DT D ^cA326 S TXT(11)=-R_"\1" S TXT(15)=$$BET^cAFO1($P(B(1),D,18)) S:OPE<0&((FC'="C")) OPE=-OPE I RFD=DT,$P(A,D,11),$L($P(A,D,13)) S TXT(14)=$S(FC'="C":-$P(A,D,8),1:$P(A,D,8))_"\\\\1\"_QD_"\\1" ; I $S(FC="C":$P(A,D,8),1:-$P(A,D,8))=0 S $P(TXT(14),D)="" S TXT(22)=$S(+OPV'=$S(FC'="C":-$P(FNRSTR,D,5),1:+$P(FNRSTR,D,5)):"*",1:"") S TXT(23)=$S(FC'="C":-$P(FNRSTR,D,6),1:$P(FNRSTR,D,6))_"\\\\1\"_$$DEC^cAFA1(MNT) I +$P(FNRSTR,D,6)=0 S $P(TXT(23),D)="" S TXT(13)=$$OMS^cAT190(FNR) I $L(STRFI) S TXT(13)=$P(@("^"_Q_"FI($P(STRFI,""#""),$P(STRFI,""#"",2),$P(STRFI,""#"",3))"),D,15) 55 I $G(SWVB) D @BTEMP G 4 D ^cA334 G 4 ; ; einde leverancier 6 I $G(SWVB) G YZ G 2 ; ; eindtotaal YZ I '$G(SWVB) S END=1 D ^cA334 Q ; ; Ophalen corresponderende klant bij de leverancier KLANT(LE) N R,COR S $ZT="TRAP^cAN000" S COR=$$SG^cAFA1("LE",LE,330) I COR S COR=$G(@("^"_Q_"K1(COR)")) I $L(COR) S COR=$O(@("^"_Q_"KL(COR,9999)")) S COR=$S(COR?5.6N:"*",1:" ") S R=$S(COR="*":$$SG^cAFA1("LE",LE,330),1:"") KLANTZ Q R ; ZZ ; 29.08.07 - 10 u 22 * V8.09