stp_riba_u.pas

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

unit stp_Riba_u;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, Db, StdCtrls, Mask, DBCtrls, DBTables, ppCtrls, ppVar, ppPrnabl,
  ppClass, ppBands, ppDB, ppRelatv, ppCache, ppDBPipe, ppDBBDE, ppComm,
  ppProd, ppReport, ppEndUsr, intesta_u, ppStrtch, ppSubRpt, ppModule,
  daDatMod;

type
  TStpRiba_Form = class(TForm)
    TTParDiscoRb: TTable;
    TTParDiscoRbNumeroprimaRiba: TFloatField;
    TTParDiscoRbNumeroultimaRiba: TFloatField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DSParDiscoRb: TDataSource;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    QRiba: TQuery;
    QRibaRiba: TFloatField;
    QRibaBancaappoggio: TStringField;
    QRibaDatascadenza: TDateField;
    QRibaBancadebitore: TStringField;
    QRibaImporto: TCurrencyField;
    QRibaRagionesociale: TStringField;
    QRibaLkBancaApp: TStringField;
    QRibaLkBancaDeb: TStringField;
    PPDistinta: TppReport;
    PPQRiba: TppBDEPipeline;
    DSQRiba: TDataSource;
    TTIntesta: TTable;
    TTIntestaRagionesociale: TStringField;
    TTIntestaIndirizzoSL: TStringField;
    TTIntestaCapSL: TStringField;
    TTIntestaLocalitaSL: TStringField;
    TTIntestaProvinciaSL: TStringField;
    TTIntestaPresso: TStringField;
    TTIntestaIndirizzoU: TStringField;
    TTIntestaCapU: TStringField;
    TTIntestaLocalitaU: TStringField;
    TTIntestaProvinciaU: TStringField;
    TTIntestaTelefono: TStringField;
    TTIntestaPartitaiva: TStringField;
    TTIntestaRegistrazione: TStringField;
    DSIntesta: TDataSource;
    PPIntesta: TppBDEPipeline;
    TTParDiscoRbFiledistinta: TStringField;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    SpeedButton3: TSpeedButton;
    ODG: TOpenDialog;
    RpDesigner: TppDesigner;
    SpeedButton4: TSpeedButton;
    TTParDiscoRbFilestampa: TStringField;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    SpeedButton5: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    TTTriba: TTable;
    DsTRiba: TDataSource;
    TTTribaRiba: TFloatField;
    TTTribaBancaappoggio: TStringField;
    TTTribaNumeroRiba: TFloatField;
    TTTribaDatascadenza: TDateField;
    TTTribaDebitore: TStringField;
    TTTribaBancadebitore: TStringField;
    TTTribaImporto: TCurrencyField;
    TTTribaImportoinlettere: TStringField;
    TTTribaDettaglioelaborato: TBooleanField;
    TTTribaDisco: TBooleanField;
    PPTriba: TppBDEPipeline;
    TTBanca: TTable;
    TTsoggetti: TTable;
    TTBancaCodice: TStringField;
    TTBancaBanca: TStringField;
    TTBancaAbi: TStringField;
    TTBancaCab: TStringField;
    TTsoggettiCodice: TStringField;
    TTsoggettiTiporapporto: TStringField;
    TTsoggettiRagionesociale: TStringField;
    TTsoggettiIndirizzo: TStringField;
    TTsoggettiCap: TStringField;
    TTsoggettiLocalita: TStringField;
    TTsoggettiProvincia: TStringField;
    TTsoggettiStato: TStringField;
    TTsoggettiPartitaIVA: TStringField;
    TTsoggettiCodiceFiscale: TStringField;
    TTsoggettiEL: TStringField;
    TTsoggettiIndirizzofatture: TStringField;
    TTsoggettiCapfatture: TStringField;
    TTsoggettiLocalitafatture: TStringField;
    TTsoggettiProvinciafatture: TStringField;
    TTsoggettiStatofatture: TStringField;
    TTsoggettiPersonadacontattare: TStringField;
    TTsoggettiTelefono: TStringField;
    TTsoggettiFax: TStringField;
    TTsoggettiDati: TStringField;
    TTsoggettiEmail: TStringField;
    TTsoggettiURL: TStringField;
    TTsoggettiLogin: TStringField;
    TTsoggettiPassword: TStringField;
    TTsoggettiHost: TStringField;
    TTsoggettiPathlistino: TStringField;
    TTsoggettiNomefilelistino: TStringField;
    TTsoggettiNomeproceduralistino: TStringField;
    TTsoggettiFido: TCurrencyField;
    TTsoggettiAgente: TStringField;
    TTsoggettiZona: TStringField;
    TTsoggettiDepositopreferenziale: TStringField;
    TTsoggettiVettorepreferenziale: TStringField;
    TTsoggettiListino: TStringField;
    TTsoggettiBanca: TStringField;
    TTsoggettiConto: TStringField;
    TTsoggettiValutaconto: TStringField;
    TTsoggettiPagamento: TStringField;
    TTsoggettiGruppo: TStringField;
    TTsoggettiIva: TStringField;
    TTsoggettiTestoesenzioniIVA: TMemoField;
    TTsoggettiContocorrente: TStringField;
    TTsoggettiSconto: TFloatField;
    TTsoggettiNote: TMemoField;
    TTTribaLkBncApp: TStringField;
    TTTribaLkBncAppAbi: TStringField;
    TTTribaLkBncAppCab: TStringField;
    TTTribaLkBncDeb: TStringField;
    TTTribaLkBncDebAbi: TStringField;
    TTTribaLkBncDebCab: TStringField;
    TTTribaLkDebRagSoc: TStringField;
    TTTribaLkDebInd: TStringField;
    TTTribaLkDebCap: TStringField;
    TTTribaLkDebLoc: TStringField;
    TTTribaLkDebProv: TStringField;
    TTTribaRiferimento: TStringField;
    TTParDiscoRbGruppo: TFloatField;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    TTParDiscoRbDatainizio: TDateField;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    QRibaDebitore: TStringField;
    QRibaRiferimento: TStringField;
    TTTribaLkCodFis: TStringField;
    TTTribaLkPiva: TStringField;
    ppHeaderBand1: TppHeaderBand;
    ppShape10: TppShape;
    ppShape9: TppShape;
    ppShape8: TppShape;
    ppShape7: TppShape;
    ppShape6: TppShape;
    ppLabel1: TppLabel;
    ppDBText1: TppDBText;
    ppSystemVariable1: TppSystemVariable;
    ppSystemVariable2: TppSystemVariable;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppDBText7: TppDBText;
    ppDBText8: TppDBText;
    ppDBText9: TppDBText;
    ppDBText10: TppDBText;
    ppDBText11: TppDBText;
    ppDBText13: TppDBText;
    ppDetailBand1: TppDetailBand;
    ppShape1: TppShape;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppShape2: TppShape;
    ppDBText4: TppDBText;
    ppShape3: TppShape;
    ppDBText5: TppDBText;
    ppShape4: TppShape;
    ppShape5: TppShape;
    ppDBText6: TppDBText;
    ppFooterBand1: TppFooterBand;
    ppDBCalc1: TppDBCalc;
    ppLabel8: TppLabel;
    ppShape11: TppShape;
    ppShape12: TppShape;
    ppDBText12: TppDBText;
    ppLabel9: TppLabel;
    ppDBText14: TppDBText;
    ppLabel10: TppLabel;
    ppShape13: TppShape;
    QRibaLkBancaAppCab: TStringField;
    QRibaLkBancaAppAbi: TStringField;
    QRibaLkBancaDebCab: TStringField;
    QRibaLkBancaDebAbi: TStringField;
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);

    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  StpRiba_Form: TStpRiba_Form;

implementation

{$R *.DFM}

Uses ana_mod;

procedure TStpRiba_Form.SpeedButton2Click(Sender: TObject);
begin

     release;

end;

procedure TStpRiba_Form.FormDestroy(Sender: TObject);
begin

     if (TTParDiscoRb.state = DsEdit) or (TTParDiscoRb.state = DsInsert) then
        TTParDiscoRb.post;

end;

procedure TStpRiba_Form.SpeedButton1Click(Sender: TObject);
var pathfile : string ;
begin
     pathfile := ModuloDatiAnagrafiche.Euro2000Path;
     if (TTParDiscoRb.state = DsEdit) or (TTParDiscoRb.state = DsInsert) then
        TTParDiscoRb.post;

     if TTParDiscoRbGruppo.IsNull then
          ShowMessage('Attenzione! Occorre specificare il numero del gruppo di generazione delle Riba.');
          
     if TTParDiscoRbFileDistinta.IsNull then
        ShowMessage('Attenzione! Occorre indicare il nome del file di stampa della distinta.');

     if Qriba.Active then
      Qriba.close ;
     QRiba.Open ;
     PPDistinta.Template.Filename := PathFile + TTParDiscoRbFileDistinta.AsString ;
     PPDistinta.Template.LoadFromFile() ;
     PPDistinta.DeviceType := 'Screen';
     PPDistinta.Print ;

end;

procedure TStpRiba_Form.SpeedButton3Click(Sender: TObject);
var pathfile : string ;
begin
     pathfile := ModuloDatiAnagrafiche.Euro2000Path;
     ODG.InitialDir := pathfile ;
     If ODG.Execute then
      begin
           TTParDiscoRb.Edit;
           TTParDiscoRbFileDistinta.Value := ExtractFileName(ODG.FileName);
           TTParDiscoRb.Post;
      end;

end;

procedure TStpRiba_Form.SpeedButton4Click(Sender: TObject);
var pathfile : string ;
begin
     pathfile := ModuloDatiAnagrafiche.Euro2000Path;
     if (TTParDiscoRb.state = DsEdit) or (TTParDiscoRb.state = DsInsert) then
        TTParDiscoRb.post;

     PPDistinta.Template.Filename := PathFile + TTParDiscoRbFileDistinta.AsString ;
     PPDistinta.Template.LoadFromFile() ;
     RpDesigner.Show;

end;

procedure TStpRiba_Form.SpeedButton5Click(Sender: TObject);
var pathfile : string ;
begin
     pathfile := ModuloDatiAnagrafiche.Euro2000Path;
     ODG.InitialDir := pathfile ;
     If ODG.Execute then
      begin
           TTParDiscoRb.Edit;
           TTParDiscoRbFileStampa.Value := ExtractFileName(ODG.FileName);
           TTParDiscoRb.Post;
      end;

end;

procedure TStpRiba_Form.SpeedButton8Click(Sender: TObject);
var pathfile : string ;
begin
     pathfile := ModuloDatiAnagrafiche.Euro2000Path;

     if (TTParDiscoRb.state = DsEdit) or (TTParDiscoRb.state = DsInsert) then
        TTParDiscoRb.post;

     PPDistinta.Template.Filename := pathfile + TTParDiscoRbFileStampa.AsString ;
     PPDistinta.Template.LoadFromFile() ;
     RpDesigner.Show;

end;

procedure TStpRiba_Form.SpeedButton7Click(Sender: TObject);
var pathfile : string ;
begin
     pathfile := ModuloDatiAnagrafiche.Euro2000Path;

     if (TTParDiscoRb.state = DsEdit) or (TTParDiscoRb.state = DsInsert) then
        TTParDiscoRb.post;

     if TTParDiscoRbNumeroPrimaRiba.IsNull or TTParDiscoRbNumeroUltimaRiba.isNull then
        begin
          ShowMessage('Attenzione!' + #13 + 'Occorre specificare entrambi i numeri delle Riba.');
          exit;
        end;
     if TTParDiscoRbNumeroPrimaRiba.value > TTParDiscoRbNumeroUltimaRiba.value then
        begin
          ShowMessage('Attenzione!' + #13 + 'Il numero della prima Riba non pu