u_nonvenduti.pas

来自「一套来自国外的ERP系统,有兴趣的朋友可以看看!」· 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.