www.pudn.com > Source.rar > imp_info_HT_FRN.pas, change:2007-02-04,size:2913b


unit imp_info_HT_FRN; 
 
interface 
 
uses Windows, SysUtils, Messages, Classes, Graphics, Controls, 
  StdCtrls, ExtCtrls, Forms, QuickRpt, QRCtrls, DB, DBTables; 
 
type 
  TImp_Mouvement_Piece = class(TQuickRep) 
    TitleBand1: TQRBand; 
    QRShape1: TQRShape; 
    QRShape2: TQRShape; 
    Titre: TQRLabel; 
    QRShape3: TQRShape; 
    QRLabel5: TQRLabel; 
    QRLabel4: TQRLabel; 
    QRLabel8: TQRLabel; 
    QRLabel9: TQRLabel; 
    QRLabel10: TQRLabel; 
    QRLabel17: TQRLabel; 
    QRShape4: TQRShape; 
    QRShape5: TQRShape; 
    QRShape6: TQRShape; 
    QRShape7: TQRShape; 
    QRShape8: TQRShape; 
    QRSubDetail2: TQRSubDetail; 
    QRDBText13: TQRDBText; 
    QRDBText15: TQRDBText; 
    QRDBText23: TQRDBText; 
    PageFooterBand1: TQRBand; 
    QRSysData1: TQRSysData; 
    SummaryBand1: TQRBand; 
    QRShape16: TQRShape; 
    QRShape9: TQRShape; 
    QRShape10: TQRShape; 
    QRLabel2: TQRLabel; 
    QRShape11: TQRShape; 
    QRShape12: TQRShape; 
    QRShape19: TQRShape; 
    QRShape20: TQRShape; 
    QRLabel3: TQRLabel; 
    QRLabel6: TQRLabel; 
    QRLabel7: TQRLabel; 
    QRLabel11: TQRLabel; 
    QRLabel13: TQRLabel; 
    QRLabel14: TQRLabel; 
    QRDBText2: TQRDBText; 
    QRDBText3: TQRDBText; 
    QRDBText5: TQRDBText; 
    QRDBText6: TQRDBText; 
    QRDBText7: TQRDBText; 
    QRDBText8: TQRDBText; 
    His_Article: TQuery; 
    His_Articlereference: TStringField; 
    His_ArticleN_piece: TFloatField; 
    His_ArticleType: TStringField; 
    His_ArticleN_Ligne: TIntegerField; 
    His_ArticleDesignation: TStringField; 
    His_ArticleRaison: TStringField; 
    His_ArticleDAte: TDateField; 
    His_ArticleQte: TFloatField; 
    His_ArticlePrix: TCurrencyField; 
    His_ArticleSens: TStringField; 
    His_ArticleQte_SRT: TFloatField; 
    His_ArticleVal_SRT: TCurrencyField; 
    His_ArticleQte_ent: TFloatField; 
    His_ArticleVal_ent: TCurrencyField; 
    DataSource1: TDataSource; 
    QRExpr5: TQRExpr; 
    QRExpr6: TQRExpr; 
    QRShape13: TQRShape; 
    QRShape14: TQRShape; 
    QRLabel1: TQRLabel; 
    QRShape15: TQRShape; 
    QRShape17: TQRShape; 
    QRShape18: TQRShape; 
    QRShape21: TQRShape; 
    QRLabel15: TQRLabel; 
    QRLabel16: TQRLabel; 
    QRExpr1: TQRExpr; 
    QRExpr2: TQRExpr; 
    QRExpr3: TQRExpr; 
    QRExpr4: TQRExpr; 
    QRLabel12: TQRLabel; 
    QRLabel18: TQRLabel; 
    QRLabel19: TQRLabel; 
    QRLabel20: TQRLabel; 
    QRLabel21: TQRLabel; 
    du: TQRLabel; 
    au: TQRLabel; 
    procedure His_ArticleCalcFields(DataSet: TDataSet); 
  private 
 
  public 
 
  end; 
 
var 
  Imp_Mouvement_Piece: TImp_Mouvement_Piece; 
 
implementation 
 
uses Unit3; 
 
{$R *.DFM} 
 
procedure TImp_Mouvement_Piece.His_ArticleCalcFields(DataSet: TDataSet); 
begin 
HIS_ARTicleVal_SRT.Value:=HIS_ARTicleQte_SRT.Value*HIS_ARTiclePrix.Value; 
HIS_ARTicleVal_ENT.Value:=HIS_ARTicleQte_ENT.Value*HIS_ARTiclePrix.Value; 
 
end; 
 
end.