ufpgl.pas

安徽省货物销售统一发票管理系统 操作说明 1、开票 F7或双击可 查询

unit Ufpgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls,
  main;

type
  Tfrm_fpgl = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    StatusBar1: TStatusBar;
    StatusBar2: TStatusBar;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DBText1: TDBText;
    DBLookupComboBox1: TDBLookupComboBox;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    Label3: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_fpgl: Tfrm_fpgl;

implementation
uses UdataM;
{$R *.dfm}

procedure Tfrm_fpgl.BitBtn6Click(Sender: TObject);
begin
  if datam.fpkset.Eof then exit;
  frm_main.Action17.Execute;
end;

procedure Tfrm_fpgl.BitBtn2Click(Sender: TObject);
var makstr:string;
begin
  if  datam.fpkset.Eof and datam.fpkset.Bof then exit;
  if datam.fpksetsyfs.AsInteger<=0 then
  begin
    Application.MessageBox('已经没有剩余的发票了，不能启用！', '提示', MB_OK +
      MB_ICONINFORMATION + MB_TOPMOST);
    exit;
  end;
  datam.fpkset.DisableControls;
  makstr:=datam.fpkset.Bookmark;
  datam.fpkset.First;
  while not datam.fpkset.Eof do
  begin
    datam.fpkset.Edit;
    datam.fpksetactive.AsBoolean:=false;
    datam.fpkset.Next;
  end;
  datam.fpkset.First;
  datam.fpkset.Bookmark:=makstr;
  datam.fpkset.Edit;
  datam.fpksetactive.AsBoolean:=true;
  datam.fpkset.post;
  datam.fpkset.EnableControls;
end;

procedure Tfrm_fpgl.BitBtn5Click(Sender: TObject);
var inNo:string;
begin
  if  datam.fpkset.Eof and datam.fpkset.Bof then exit;
  if datam.fpksetykfs.AsInteger>0 then
  begin
    Application.MessageBox('本批次发票已经使用，如果你确实要删除该发票，' +
      #13#10 + '请使用发票缴剪功能，将本批次全部剩余发票缴剪作废！', '提示',
      MB_OK + MB_ICONINFORMATION + MB_TOPMOST);
    exit;
  end;
  inno:=datam.fpksetbeginno.AsString+'到'+datam.fpksetendNo.AsString;
  if Application.MessageBox(PChar('你真的打算要将该批次的发票全部出库（删除）吗？'
    + #13#10 + '发票号：从'+inno), PChar('询问'), MB_OKCANCEL + MB_ICONQUESTION +
    MB_TOPMOST) = IDOK then
  begin
    datam.fpkset.Delete;
  end;
end;

procedure Tfrm_fpgl.BitBtn3Click(Sender: TObject);
var inNo:string;
    Afs:integer;
begin
  if  datam.fpkset.Eof and datam.fpkset.Bof then exit;
  inno:=datam.fpksetbeginno.AsString+'到'+datam.fpksetendNo.AsString;
  Afs:=datam.fpksetsyfs.AsInteger;
  if afs<=0 then
  begin
    Application.MessageBox(PChar('该批次发票已经全部用完了！'), PChar('提示'), 
      MB_OK + MB_ICONINFORMATION + MB_TOPMOST);
    exit;
  end;
  if Application.MessageBox(PChar('你真的打算要将该批次的发票全部剩余发票缴剪作废吗？'
    + #13#10 + '发 票 号：从'+inno + #13#10 + '剩余份数：'+inttostr(Afs)), PChar('询问'),
    MB_OKCANCEL + MB_ICONQUESTION + MB_TOPMOST) = IDOK then
  begin
    datam.fpkset.Edit;
    datam.fpksetactive.AsBoolean:=false;
    datam.fpksetjffs.AsInteger:=Afs;
    datam.fpksetsyfs.AsInteger:=0;
    datam.fpkset.Post;
  end;
end;

procedure Tfrm_fpgl.BitBtn1Click(Sender: TObject);
begin
  frm_main.Action16.Execute;
end;

end.