u_nonvenduti.pas

来自「大型企业管理源码,JAVA类,包括销售,采购,财务,OA辅助办公处理,有学习JA」· PAS 代码 · 共 206 行

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.