cA308 ;FAKTUURKLANT BEPALEN ;%A308 ; [ 01/17/2001  12:03 PM ]
 G 1
 ;
T0 ;Factuurklant bepalen ;
T1 ;De leverancier;
T2 ;R=R_"Klantnummer aan wie te factureren\";
T3 ;R=R_"[] = de klant zelf   .[] = specifieke klant   *[] = factuuradres";
T4 ;De klant;
T5 ;Naam of nummer van ;
T6 ;   [] = vervolg;
 ;
T0F ;Determiner le numéro de la facture ;
T1F ;Fournisseur;
T2F ;R=R_"Client a facturer\";
T3F ;R=R_"[] = client même  .[] = client specifique   *[] = adresse de facture";
T4F ;Client;
T5F ;Nom ou numéro du ;
T6F ;   [] = suite;
 ;
 ;
S2 S R="K\2100\"_$P($T(@("T1"_QT)),U,2)_"\LE\L1" D @$G(@("^"_Q_"LE(0,5)"),"^cA101") G YZ:K="-" S K=$P(K," ",2) S FP=2101 W @F,@F1 G YZ
 ;
1 S R="K\22\3\",@$P($T(@("T2"_QT)),U,2),R=R_"""",@$P($T(@("T3"_QT)),U,2),R=R_"""\1\\""-,.*""[K" D R0 G YZ:"-,*"[K
2 S K=$$^cANSYN("KL") G 1:K="-" S K=$P(K," ",2)
 ;
YZ Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
 ;
Z X ^cZ
ZZ ; 05.02.01 - 16 u 23 * V7.84