u_nonconsegnati.pas

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

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.