u_nonconsegnati.pas

基于OOP设计的一套较好的ERP系统

unit u_nonconsegnati;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, DBCtrls, Db, DBTables, Grids, DBGrids, ppDB, ppBands,
  ppCtrls, ppClass, ppVar, ppPrnabl, ppProd, ppReport, ppComm, ppRelatv,
  ppCache, ppDBPipe, ppDBBDE, ComCtrls, ToolWin, ActnList, ppModule,
  daDatMod;

type
  TNonconsegnati = class(TForm)
    DBGrid1: TDBGrid;
    DSlista: TDataSource;
    lista: TTable;
    listaIdriga: TIntegerField;
    listaIdlista: TIntegerField;
    listaSezione: TStringField;
    listaArticolo: TStringField;
    listaDescrizione: TStringField;
    listaQta: TFloatField;
    listaPrezzoL: TCurrencyField;
    listaPrezzoE: TCurrencyField;
    listaQtaprenota: TFloatField;
    listaQtaconsegnata: TFloatField;
    listaOrdinamento: TIntegerField;
    listaSelezione: TBooleanField;
    listaQtaselezionata: TFloatField;
    listaQtarimasta: TFloatField;
    listaQtanonconsegnata: TFloatField;
    ActionList1: TActionList;
    Stampa: TAction;
    Esci: TAction;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ppNonConsegnati: TppBDEPipeline;
    NonConsegnati: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppLabel1: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppGroup1: TppGroup;
    ppGroupHeaderBand1: TppGroupHeaderBand;
    ppDBText1: TppDBText;
    ppLine1: TppLine;
    ppLine2: TppLine;
    ppGroupFooterBand1: TppGroupFooterBand;
    ppDBText2: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    ppDBText3: TppDBText;
    ppSystemVariable2: TppSystemVariable;
    ppLabel3: TppLabel;
    ppDBText6: TppDBText;
    ppLabel4: TppLabel;
    ppDBText7: TppDBText;
    ppLabel5: TppLabel;
    ppDBText8: TppDBText;
    DBNavigator1: TDBNavigator;
    listaQtavenduta: TFloatField;
    listaQtarimasta2: TFloatField;
    listaImportoL: TCurrencyField;
    listaImportoE: TCurrencyField;
    listaIdGiornale: TStringField;
    listaArticoloetichetta: TStringField;
    listaDenominazione: TStringField;
    QNonConsegnati: TQuery;
    QNonConsegnatiIdriga: TIntegerField;
    QNonConsegnatiIdlista: TIntegerField;
    QNonConsegnatiSezione: TStringField;
    QNonConsegnatiArticolo: TStringField;
    QNonConsegnatiDescrizione: TStringField;
    QNonConsegnatiQta: TFloatField;
    QNonConsegnatiPrezzoL: TCurrencyField;
    QNonConsegnatiPrezzoE: TCurrencyField;
    QNonConsegnatiQtaprenota: TFloatField;
    QNonConsegnatiQtavenduta: TFloatField;
    QNonConsegnatiQtaconsegnata: TFloatField;
    QNonConsegnatiOrdinamento: TIntegerField;
    QNonConsegnatiSelezione: TBooleanField;
    QNonConsegnatiQtaselezionata: TFloatField;
    QNonConsegnatiQtarimasta: TFloatField;
    QNonConsegnatiQtarimasta2: TFloatField;
    QNonConsegnatiQtanonconsegnata: TFloatField;
    QNonConsegnatiArticoloetichetta: TStringField;
    QNonConsegnatiDenominazione: TStringField;
    QNonConsegnatiIdGiornale: TStringField;
    QNonConsegnatiIdLista2: TIntegerField;
    QNonConsegnatiCognomenomesposo: TStringField;
    QNonConsegnatiCognomenomesposa: TStringField;
    QNonConsegnatiDatanozze: TDateField;
    QNonConsegnatiModalitdiconsegna: TStringField;
    QNonConsegnatiIndirizzoattualesposo: TStringField;
    QNonConsegnatiIndirizzoattualesposa: TStringField;
    QNonConsegnatiCAPattualesposo: TStringField;
    QNonConsegnatiCAPattualesposa: TStringField;
    QNonConsegnatiLocalitattualesposo: TStringField;
    QNonConsegnatiLocalitattualesposa: TStringField;
    QNonConsegnatiProvinciaattualesposo: TStringField;
    QNonConsegnatiProvinciaattualesposa: TStringField;
    QNonConsegnatiTelefonosposo: TStringField;
    QNonConsegnatiTelefonosposa: TStringField;
    QNonConsegnatiCellsposo: TStringField;
    QNonConsegnatiCellsposa: TStringField;
    QNonConsegnatiIndirizzocoppia: TStringField;
    QNonConsegnatiCAPcoppia: TStringField;
    QNonConsegnatiLocalitcoppia: TStringField;
    QNonConsegnatiProvinciacoppia: TStringField;
    QNonConsegnatiData: TDateField;
    QNonConsegnatiRecapitodelleconsegne: TStringField;
    QNonConsegnatiTelefonoconsegne: TStringField;
    QNonConsegnatiRecapitodelleconsegne2: TStringField;
    QNonConsegnatiTelefonodelleconsegne2: TStringField;
    QNonConsegnatiTipopromozione: TStringField;
    QNonConsegnatiSconto: TFloatField;
    QNonConsegnatiNote: TMemoField;
    QNonConsegnatiModalitdiconsegna2: TStringField;
    QNonConsegnatiIdGiornale_1: TStringField;
    QNonConsegnatiImportoL: TCurrencyField;
    DSQNonConsegnati: TDataSource;
    QNonConsegnatiOperatore: TStringField;
    QNonConsegnatiArticolofornitore: TStringField;
    QNonConsegnatiImportoE: TCurrencyField;
    procedure StampaExecute(Sender: TObject);
    procedure EsciExecute(Sender: TObject);
    procedure listaBeforePost(DataSet: TDataSet);
    procedure listaCalcFields(DataSet: TDataSet);
    procedure QNonConsegnatiCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Nonconsegnati: TNonconsegnati;

implementation

uses Liste_nozze, main;

{$R *.DFM}

procedure TNonconsegnati.StampaExecute(Sender: TObject);
begin
    QNonConsegnati.Close ;
    QNonConsegnati.ParamByName('Lista').Value := Lista_Nozze.listeIDlista.AsInteger ;
    QNonConsegnati.Prepare ;
    QNonConsegnati.Open ;
    NonConsegnati.Print;
    QNonConsegnati.Close ;
end;

procedure TNonconsegnati.EsciExecute(Sender: TObject);
begin
     Close;
end;

procedure TNonconsegnati.listaBeforePost(DataSet: TDataSet);
begin
     listaQtaNonConsegnata.AsInteger := listaQtavenduta.AsInteger-listaQtaConsegnata.AsInteger;
     if listaQtaNonConsegnata.AsInteger = 0 then
        listaQtaNonConsegnata.AsString := '';
     if listaQtaConsegnata.AsInteger = 0 then
        listaQtaConsegnata.AsString := '';
end;

procedure TNonconsegnati.listaCalcFields(DataSet: TDataSet);
begin
     ListaImportoL.AsCurrency := listaqta.AsFloat * listaprezzoL.AsCurrency;
     ListaImportoE.AsCurrency := listaqta.AsFloat * listaprezzoE.AsCurrency;
end;

procedure TNonconsegnati.QNonConsegnatiCalcFields(DataSet: TDataSet);
begin
     QNonConsegnatiImportoL.AsCurrency := QNonConsegnatiqtanonconsegnata.AsFloat * QNonConsegnatiprezzoL.AsCurrency ;
     QNonConsegnatiImportoE.AsCurrency := QNonConsegnatiQtaNonConsegnata.AsFloat * (Main_form.ArrotondaImponibile4(QNonCOnsegnatiPrezzoE.AsCurrency,'E')) ;
end;

end.