u_nonvenduti.pas

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

unit u_nonvenduti;

interface

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

type
  TNonvenduti = class(TForm)
    DSlista: TDataSource;
    DBGrid1: TDBGrid;
    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;
    ToolBar1: TToolBar;
    DBNavigator1: TDBNavigator;
    TotaleL: TEdit;
    TotaleE: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    ToolButton4: TToolButton;
    ActionList1: TActionList;
    Esci: TAction;
    ppNonVenduti: TppBDEPipeline;
    NonVenduti: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppDetailBand1: TppDetailBand;
    ppFooterBand1: TppFooterBand;
    ppGroup1: TppGroup;
    ppGroupHeaderBand1: TppGroupHeaderBand;
    ppGroupFooterBand1: TppGroupFooterBand;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppSystemVariable1: TppSystemVariable;
    ppDBText1: TppDBText;
    ppLine1: TppLine;
    ppLine2: TppLine;
    ppDBText2: TppDBText;
    ppDBText4: TppDBText;
    ppDBText5: TppDBText;
    Stampa: TAction;
    ToolButton5: TToolButton;
    listaQtarimasta2: TFloatField;
    ppDBText3: TppDBText;
    ppDBText6: TppDBText;
    ppLabel3: TppLabel;
    ppDBText7: TppDBText;
    ppLabel4: TppLabel;
    ppDBText8: TppDBText;
    ppSystemVariable2: TppSystemVariable;
    listaQtavenduta2: TFloatField;
    listaImportoL: TCurrencyField;
    listaImportoE: TCurrencyField;
    listaIdGiornale: TStringField;
    listaArticoloetichetta: TStringField;
    listaDenominazione: TStringField;
    QNonVenduti: TQuery;
    DSQNonVenduti: TDataSource;
    QNonVendutiIdriga: TIntegerField;
    QNonVendutiIdlista: TIntegerField;
    QNonVendutiSezione: TStringField;
    QNonVendutiArticolo: TStringField;
    QNonVendutiDescrizione: TStringField;
    QNonVendutiQta: TFloatField;
    QNonVendutiPrezzoL: TCurrencyField;
    QNonVendutiPrezzoE: TCurrencyField;
    QNonVendutiQtaprenota: TFloatField;
    QNonVendutiQtavenduta: TFloatField;
    QNonVendutiQtaconsegnata: TFloatField;
    QNonVendutiOrdinamento: TIntegerField;
    QNonVendutiSelezione: TBooleanField;
    QNonVendutiQtaselezionata: TFloatField;
    QNonVendutiQtarimasta: TFloatField;
    QNonVendutiQtarimasta2: TFloatField;
    QNonVendutiQtanonconsegnata: TFloatField;
    QNonVendutiArticoloetichetta: TStringField;
    QNonVendutiDenominazione: TStringField;
    QNonVendutiIdGiornale: TStringField;
    QNonVendutiIdLista2: TIntegerField;
    QNonVendutiCognomenomesposo: TStringField;
    QNonVendutiCognomenomesposa: TStringField;
    QNonVendutiDatanozze: TDateField;
    QNonVendutiModalitdiconsegna: TStringField;
    QNonVendutiIndirizzoattualesposo: TStringField;
    QNonVendutiIndirizzoattualesposa: TStringField;
    QNonVendutiCAPattualesposo: TStringField;
    QNonVendutiCAPattualesposa: TStringField;
    QNonVendutiLocalitattualesposo: TStringField;
    QNonVendutiLocalitattualesposa: TStringField;
    QNonVendutiProvinciaattualesposo: TStringField;
    QNonVendutiProvinciaattualesposa: TStringField;
    QNonVendutiTelefonosposo: TStringField;
    QNonVendutiTelefonosposa: TStringField;
    QNonVendutiCellsposo: TStringField;
    QNonVendutiCellsposa: TStringField;
    QNonVendutiIndirizzocoppia: TStringField;
    QNonVendutiCAPcoppia: TStringField;
    QNonVendutiLocalitcoppia: TStringField;
    QNonVendutiProvinciacoppia: TStringField;
    QNonVendutiData: TDateField;
    QNonVendutiRecapitodelleconsegne: TStringField;
    QNonVendutiTelefonoconsegne: TStringField;
    QNonVendutiRecapitodelleconsegne2: TStringField;
    QNonVendutiTelefonodelleconsegne2: TStringField;
    QNonVendutiTipopromozione: TStringField;
    QNonVendutiSconto: TFloatField;
    QNonVendutiNote: TMemoField;
    QNonVendutiModalitdiconsegna2: TStringField;
    QNonVendutiIdGiornale_1: TStringField;
    QNonVendutiImportoL: TCurrencyField;
    QNonVendutiOperatore: TStringField;
    QNonVendutiArticolofornitore: TStringField;
    QNonVendutiImportoE: TCurrencyField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure EsciExecute(Sender: TObject);
    procedure StampaExecute(Sender: TObject);
    procedure listaCalcFields(DataSet: TDataSet);
    procedure QNonVendutiCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Nonvenduti: TNonvenduti;

implementation

uses Liste_nozze, main;

{$R *.DFM}

procedure TNonvenduti.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     lista_nozze.lista.first;
end;

procedure TNonvenduti.FormActivate(Sender: TObject);

var TotL : currency;
    TotE : currency;
begin
     if lista_Nozze.lista.State = dsEdit then
        lista_nozze.lista.Post;
     DsLista.Enabled := false;
     TotL:=0;
     TotE:=0;
     Lista.First;
     while not lista.eof do
     begin
          TotL:=TotL+(listaPrezzoL.AsCurrency*listaQtaRimasta2.AsInteger);
          TotE:=TotE+((Main_form.ArrotondaImponibile4(listaPrezzoE.AsCurrency,'E'))*listaQtaRimasta2.AsFloat);
          lista.next;
     end;
     lista.first;
     TotaleL.text := Formatfloat('#,###',TotL);
     TotaleE.text := Formatfloat('#,##0.00',TotE);
     DsLista.Enabled := true;
end;

procedure TNonvenduti.EsciExecute(Sender: TObject);
begin
    close;
end;

procedure TNonvenduti.StampaExecute(Sender: TObject);
begin
     QNonVenduti.Close ;
     QNonVenduti.ParamByName('Lista').Value := Lista_Nozze.listeIDlista.AsInteger ;
     QNonVenduti.Prepare ;
     QNonVenduti.Open ;
     NonVenduti.Print;
end;

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

procedure TNonvenduti.QNonVendutiCalcFields(DataSet: TDataSet);
begin
     QNonVendutiImportoL.AsCurrency := QNonVendutiqtarimasta2.AsFloat * QNonVendutiprezzoL.AsCurrency;
     QNonVendutiImportoE.AsCurrency := QNonVendutiqtarimasta2.AsFloat * (Main_form.ArrotondaImponibile4(QNonVendutiprezzoE.AsCurrency,'E'));
end;

end.