[Progress] Fonction Accumulate qui marche pas

Fonction Accumulate qui marche pas [Progress] - Divers - Programmation

Marsh Posté le 15-12-2002 à 23:19:32    

Bon jsais que c pas tres répendu le progress sur ce forum mais je tente le coup parce que là jsuis vraiment découragé
 

Code :
  1. DEF VAR VD-Date AS DATE FORMAT 99/99/9999.
  2.     DEF VAR VC-Marque AS CHAR.
  3.    
  4.     ASSIGN VD-DATE = DATE(INPUT fln_Date).
  6.     FOR EACH Facture WHERE Facture.I-SousGarantie <> 0 AND Facture.D-DateFacture >= DATE(INPUT fln_Date):
  7.         FIND FIRST Vehicule OF Facture NO-LOCK NO-ERROR.
  8.        
  9.         CREATE TFacture.
  10.         ASSIGN  TFacture.C-Marque = Vehicule.C-Marque
  11.                 TFacture.I-NoFacture = Facture.I-NoFacture
  12.                 TFacture.N-TempsMainOeuvre = Facture.N-TempsMainOeuvre
  13.                 TFacture.I-SousGarantie = Facture.I-SousGarantie.
  14.     END.
  15.    
  16.     OUTPUT TO CR0044.txt PAGED.
  17.    
  18.     FIND FIRST CieParam NO-LOCK NO-ERROR.
  19.    
  20.     FOR EACH TFacture BREAK BY TFacture.C-Marque:
  21.    
  22.         IF TFacture.C-Marque <> VC-Marque THEN
  23.         DO:   
  24.             PUT "CR 0044  Réclamation au fabricant pour la période débutant le  ".
  25.             PUT VD-DATE SKIP.
  26.             PUT "Date:  ".
  27.             PUT TODAY.
  28.             PUT " à ".
  29.             PUT String(TIME,"HH:MM" ).
  30.             PUT "Page:" AT 50.
  31.             PUT PAGE-NUMBER AT 55 SKIP(1).
  32.             PUT "Fabricant :  " AT 5.
  33.             PUT TFacture.C-Marque.
  34.             PUT "# Date" AT 9 SKIP.
  35.             PUT "  facture facture".
  36.             PUT "Frais MO Cout pieces" AT 24 SKIP.
  37.             PUT "--------- ---------- ---------- -----------" SKIP.
  38.            
  39.             VC-Marque = TFacture.C-Marque.
  40.         END.
  41.        
  42.         FOR EACH Facture OF TFacture, EACH Vehicule OF Facture WHERE Vehicule.C-Marque = TFacture.C-Marque:
  43.             PUT TFacture.I-NoFacture TO 9.
  44.             PUT Facture.D-Date AT 11.
  45.             IF TFacture.I-SousGarantie = 1 THEN
  46.             DO:
  47.                 ACCUMULATE TFacture.N-TempsMainOeuvre * CieParam.N-TauxHorraire (TOTAL).
  48.                 PUT TFacture.N-TempsMainOeuvre * CieParam.N-TauxHorraire TO 31.
  49.             END.
  50.             ELSE
  51.                 PUT "0.00" TO 31.
  52.             FOR EACH Detail OF Facture:
  53.                 FIND FIRST Piece OF Detail NO-LOCK NO-ERROR.
  54.                 ACCUMULATE Detail.I-QuantiteRequise * Piece.N-Prix (TOTAL).         
  55.             END.
  56.             PUT ACCUM TOTAL Detail.I-QuantiteRequise * Piece.N-Prix TO 43 SKIP.
  57.             ACCUMULATE (ACCUM TOTAL Detail.I-QuantiteRequise * Piece.N-Prix) (TOTAL).
  58.            
  59.             IF LAST-OF (TFacture.C-Marque) THEN
  60.             DO:
  61.                 DEF VAR N-SousTotal AS DECIMAL.
  62.                 N-SousTotal = (ACCUM TOTAL TFacture.N-TempsMainOeuvre * CieParam.N-TauxHorraire) + (ACCUM TOTAL (ACCUM TOTAL Detail.I-QuantiteRequise * Piece.N-Prix)).
  63.                
  64.                 PUT "---------- -----------" AT 25 SKIP.
  65.                 PUT ACCUM TOTAL TFacture.N-TempsMainOeuvre * CieParam.N-TauxHorraire TO 31.
  66.                 PUT ACCUM TOTAL (ACCUM TOTAL Detail.I-QuantiteRequise * Piece.N-Prix) TO 43 SKIP(1).
  67.                 PUT "Sous Total:" TO 42.
  68.                 PUT N-SousTotal TO 52 SKIP.
  69.                 PUT "TPS:" TO 42.
  70.                 PUT CieParam.N-TPS * N-SousTotal TO 52 SKIP.
  71.                 PUT "TVQ:" TO 42.
  72.                 PUT CieParam.N-TVQ * (N-SousTotal + (CieParam.N-TPS * N-SousTotal)) TO 52 SKIP.
  73.                 PUT "GRAND Total:" TO 42.
  74.                 PUT N-SousTotal + CieParam.N-TVQ * (N-SousTotal + (CieParam.N-TPS * N-SousTotal)) + CieParam.N-TPS * N-SousTotal TO 52 SKIP.
  75.                 OUTPUT CLOSE.
  76.                 OUTPUT TO CR0044.txt PAGED APPEND.
  77.             END.
  78.            
  79.         END.
  80.        
  81.        
  82.        
  83.     END.
  84.    
  85.  
  86.     OUTPUT CLOSE.
  87.    
  88.     MESSAGE "Impression terminée.".


 
ce dode devrait me permettre de faire un rapport, ca marche plutot bien sauf pour 2 trucs
 
les sous-totaux de ma colonne Frais MO et Cout piece ne fonctionne pas, ca me donne le prix de la derniere piece alors que mon Accumulate est selon moi correctement fait
 
la 2e question c pour connaitre une fonction de saut de page, parce que présentment jfais une fermeture et ouverture de fichier, sauf que ca reset mon # de page, donc jai tjrs 1 comme # de page
 
merci


---------------
http://www.boincstats.com/signature/user_664861.gif
Reply

Marsh Posté le 15-12-2002 à 23:19:32   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed