1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
| FILENAME OUT '/folders/myfolders/facture.txt' ;
DATA _NULL_ ;
FILE OUT ;
SET Table_Finale ;
BY Client ;
IF First.Client THEN DO ;
_Total = 0 ;
_Total_TVA = 0 ;
PUT @6 "Bricoflex" +35 "Créteil, le 25 janvier 2016" ;
PUT @1 "Matériel de bricolage" ;
PUT @1 "Facture n°:" Facture ;
PUT @50 Cvl Pnom Nom ;
PUT @50 Adresse ;
PUT @50 Code_Postal "-- " Ville ;
PUT ;
PUT @1 "Code" @6 "Description" @40 "Prix HT" @50 "TVA" @60 "Qté" @71 "TTC" ;
END ;
_TVA = round(Prix_HT*TVA/100,0.01) ;
_TTC = round(Q*Prix_HT*(1+TVA/100),0.01) ;
_Total + _TTC ;
_Total_TVA + Q*_TVA ;
PUT @1 Produit @6 Descriptif @41 prix_HT @50 _TVA @62 Q @70 _TTC +0 "";
IF Last.Client THEN DO;
PUT @6 "Total" @70 _Total "" ;
PUT ;
PUT "Total arrêté à " _Total "EUR toutes taxes comprises, incluant " _Total_TVA "EUR de TVA." ;
PUT ;
PUT "En votre aimable règlement par retour de courrier." ;
PUT ;
PUT "- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -" ;
PUT ;
END ;
RUN ; |
Partager