stp_riba_u.pas

一套来自国外的ERP系统,有兴趣的朋友可以看看!

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