cT66E1 ;Leveranciersbetalingen V6 ;%T66 ;Go uit %T66E ; [ 10/29/01 12:34 PM ] G 1 ;afgeleid van %T130 ; T0 ;Overschrijvingen ; T1 ;Keuze\"[] = formulieren 1[] = bestand";Formulieren;Bestand; T2 ;Soort overschrijving\S2; T3 ;Bedrukking\S2; T4 ;Betalingswijze\S2; T5 ;Aantal milimeter\"de afstand tussen de linker rand en de rode kader (min. 10 mm)"; T6 ;;1 document met doorslag;2 documenten naast elkaar in enkelvoud;1 document (nieuw) ;2 documenten naast elkaar (nieuw); T7 ;voorbedrukt;blanco; T8 ;1 document per overschrijving;meerdere doc. per overschrijving; T10 ;Uitvoeringsdatum\"mag max. 1 maand in de toekomst liggen"; T11 ;Inschrijvingsnummer; T12 ;Identificatienummer\"Uw BTW-nummer of een nummer toegekend door de bank"; T13 ;Betaling\".[] = ok ,[] = hernemen"; T15 ; Betalingsopdracht ; fact.: ; onbekend bij leverancier !!! [] = ok ; T16 ; 2[] = cheques; T17 ;BIC-code moet ingevuld zijn bij de financiële rekening. ; T0F ;Virements ; T1F ;Choix\"[] = documents 1[] = fichier";Documents;Fichier; T2F ;Le virement consiste\S2; T3F ;Le virement est\S2; T4F ;Paiement de\S2; T5F ;Nombre de mm\"le nombre de mm entre le bord gauche et le cadre rouge (min. 10 mm)"; T6F ;;d'un document avec carbon;de deux documents côté à côté;d'un document (nouveau) ;de deux documents (nouveau) ; T7F ;préimprimé;vierge; T8F ;1 document par virement;plusieurs documents par virement; T10F ;Date d'exécution\"max. 1 mois dans le futur"; T11F ;N° d'immatriculation; T12F ;N° d'identification\"Votre n° de TVA ou le numéro vous accordé par la banque"; T13F ;Paiement\".[] = ok ,[] = reprendre"; T15F ; Ordre de paiement ; doc. : ; inconnu chez le fournisseur !!! [] = ok ; T16F ; 2[]= cheques; T17F ;Code BIC du compte financier n'est pas rrempli. ; T0E ;Overschrijvingen ; T1E ;Keuze\"[] = formulieren 1[] = bestand";Formulieren;Bestand; T2E ;Soort overschrijving\S2; T3E ;Bedrukking\S2; T4E ;Betalingswijze\S2; T5E ;Aantal milimeter\"de afstand tussen de linker rand en de rode kader (min. 10 mm)"; T6E ;;1 document met doorslag;2 documenten naast elkaar in enkelvoud;1 document (nieuw) ;2 documenten naast elkaar (nieuw); T7E ;voorbedrukt;blanco; T8E ;1 document per overschrijving;meerdere doc. per overschrijving; T10E ;Uitvoeringsdatum\"mag max. 1 maand in de toekomst liggen"; T11E ;Inschrijvingsnummer; T12E ;Identificatienummer\"Uw BTW-nummer of een nummer toegekend door de bank"; T13E ;Betaling\".[] = ok ,[] = hernemen"; T15E ; Betalingsopdracht ; fact.: ; onbekend bij leverancier !!! [] = ok ; T16E ; 2[] = cheques; T17E ;BIC-code moet ingevuld zijn bij de financiële rekening. ; ; vraagstelling S1 S R="K\22\3\"_$P($T(@("T"_X_QT)),U,2)_"\1\\K=""-""!("".""[K&(X>2))!(K&(K<5)&(X=2))" D R0 S1A S @B=$S(X=2:K,1:$L(K)) W /CUP(X+5,27),@F2 W:K'="-" $P($T(@("T"_(X+4)_QT)),U,@B+2) S1Z Q ; ; commentaar S2 S K=$T(@("T"_(X+4)_QT)) I X>2 W !?2,"[] = ",$P(K,U,2)," .[] = ",$P(K,U,3) S2A I X=2 W !?2,"1[] = ",$P(K,U,3)," 2[] = ",$P(K,U,4),!?2,"3[] = ",$P(K,U,5)," 4[] = ",$P(K,U,6) S2Z Q ; ; formulieren/bestand 1 S DV1=0,BTW=$G(@("^"_Q_"BA(49)")) I BTW="" G YZ:K="-" 11 G YZ:K="-" S (K,DV1)=1 ; S R="DV1\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-12""[K" ; I $D(@("^"_Q_"BA(""AR"")")) S COMM=$P(R,D,5),$P(COMM,"""",2)=$P(COMM,"""",2)_$P($T(@("T16"_QT)),U,2),$P(R,D,5)=COMM ; D R0 G YZ:K="-" I K="2",'$D(@("^"_Q_"BA(""AR"")")) G 11 ; I K=2 D ^cT630 G 11:K="-",6 S ARN0=$$SIGN^cAFA1("AR",BR,0) I '$L($P(ARN0,D,9))!'$$IBAN^cAFI2($P(ARN0,D,9)) S K=$P($T(@("T19"_QT_"^cT66ESE")),U,2) D TXT^cAFA1(250) S K="-" G YZ I '$L($P(ARN0,D,69)) S K=$P($T(@("T17"_QT)),U,2) D TXT^cAFA1(250) S K="-" G YZ ; ; prompten tonen 2 W /CUP(6,2),@F6,$P($T(@("T1"_QT)),U,3+DV1),@F9,": ",@F1 21 S X=$S(DV1:"10\11\4\12",1:"2\3\4\5") 23 F K=1:1:4 W /CUP(K+6,2),@F6,$P($P($T(@("T"_$P(X,D,K)_QT)),U,2),D),@F9,/CUP(K+6,25),":" 25 I DV1 G 4 ; ; formulieren 3 S X=2,B="KE" D S1 G 1:K="-" 31 S X=3,B="KU" D S1 I K="-" G 3 33 S X=4,B="BWZ" D S1 I K="-" G 31 35 S R="X\22\3\"_$P($T(@("T5"_QT)),U,2)_"\2\\K=""-""!(K?2N&(K>9))" D R0 G 33:K="-" S V=$J(X-12/2.6,0,0),FP=1027 W @F,X 37 S R=3_D_1 D ^cA345 G 1:K=",",35:K="-" 38 S DAT=DT D ^cT66E2 I $G(@("^"_Q_"BA(39)"))="DE" D ^cT142 G 6 39 D ^cT66E3 G 6 ; ; bestand 4 S DAT=$G(DAT) I 'DAT S DAT=DT 41 S R="DAT\22\3\"_$P($T(@("T10"_QT)),U,2)_"\8\\$$DCTR^cAFI1(K)&K!(K=""-"")\\\\\1" D R0 G 1:K="-"!(K=",") 43 W /CUP(7,27),DAT S R=DT_"\1M" D ^cA104 I $$DC^cAFA1(DAT)>$$DC^cAFA1(R) G 41 45 S INS=$$DC^cAFA1(DAT)_"01",R="INS\22\3\"_$P($T(@("T11"_QT)),U,2)_"\\10\\$L(K)=10!(K=""-"")\\\\\1" D R0 G 41:K="-" 47 W /CUP(8,27),INS 49 S X=4,B="BWZ" D S1 G 45:K="-" ; 5 S K=BTW I K?11N G 55 51 S R="K\22\3\"_$P($T(@("T12"_QT)),U,2)_"\11\\K?.N!(""-""[K)" D R0 G 49:K="-" S:K (K,BTW)=$E(1E11+K,2,99) 53 G 5:97-($E(K,1,9)#97)'=+$E(K,10,11) S @("^"_Q_"BA(49)")=BTW 55 W /CUP(10,27),$E(K,1,2),"-",$E(K,3,5),"-",$E(K,6,8),"-",$E(K,9,11) 57 S FORM=1,S4=$P($T(@("T0"_QT)),U,2)_AFK S FILE=$$FILE^cT66ESE(BR) I K="-"!(K=",") G 51 ; D B^cA612,^cA701,C^cA612 G 51:K="-" 58 ; S R=1_D_1 D ^cA345 G 57:K="-",1:K="," 59 S SW=0 D ^cT66E2 G YZ:SW I DV=9 D BTEMP^cT66SE(Q,PRO,DATUM,BTW_D_UI1AR) D EXP^cT66ESE(FILE,GRIDID,BVB) I K="-" G 57 ; ; D ^cT66E4,B^cA612,^cA702,C^cA612 ; ; aanpassing ivm PRINTSW - FB - 31.07.02 - Van Hove - cheques ; bevestiging 6 S R="K\22\3\"_$P($T(@("T13"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 I K'="." G 11:$G(PRINTSW) K @Q4 G YZ 61 D W^cAN220("BVB",0,BVB,106,DAT) ; datum van uitvoering 63 D W^cAN220("BVB",0,BVB,107,SWBB) ; binnenland/buitenland K ^mtemp99(GRIDID) ; ; betaling onderweg bij openstaande facturen 7 G YZ:'$D(@Q4) S @%Q1=0,K=@Q4,$P(K,D,6)=$P(K,D,6)+1,$P(K,D,4)=1,@Q4=K,LNR="",J1="" 71 S LNR=$O(@Q50) G YZ:LNR="" 73 S J1=$O(@Q52) G 71:J1="" S A=^(J1),K=$P(A,D,14) G 77:'$D(@Q2) S I1=^(LNR) G 77:'$D(@Q3),77:'$D(^(K)) 75 S R=^(K),$P(R,D,11)=1,$P(R,D,12)=$P(R,D,12)+$P(A,D,11),$P(R,D,13)=$P(R,D,13)+$P(A,D,19),^(K)=R G 73 77 S K=$T(@("T15"_QT)) W !!,$P(K,U,2),$P(A,D,1,2),!,$P(K,U,3),$P(A,D,14),$P(K,U,4) D TXT^cAFA1(4) G 73 ; YZ G Y^cT66E ; R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; ZZ ; 29.10.02 - 11 u 38 * V7.93