sj_fhdfs.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{                     发货单信息发送                    }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{               编制：中软金马项目开发组                }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模块在省级库房管理模块 集邮票、集邮品、零枚票、市场购入票四部分的发货审核模块中调用。
*)

unit SJ_FHDFS;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, CheckLst, SqlStrings,Pub ;

type
  Tfrm_FHDFS = class(TForm)
    RB_curr: TRadioButton;
    RB_mult: TRadioButton;
    GB_mult: TGroupBox;
    CB_mult: TCheckListBox;
    BBt_all: TBitBtn;
    BBt_allnot: TBitBtn;
    BBt_ok: TBitBtn;
    BBt_cancel: TBitBtn;
    CB_sent: TCheckBox;
    procedure RB_currClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CB_sentClick(Sender: TObject);
    procedure BBt_okClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BBt_allClick(Sender: TObject);
  private
    Fio_Type: TIO_TYPE;
    PS_FHDH: string;
    PS_CurrFHDH: string;
    procedure SetCtlsEnabled(AEnabled: boolean);
    procedure SetRKDView(isALL: boolean);
    { Private declarations }
  public
    { Public declarations }
  end;

function SelFHD(io_typ: TIO_TYPE; AFHDH: string): string;

var
  frm_FHDFS: Tfrm_FHDFS;

implementation
uses datas;
{$R *.DFM}

function SelFHD(io_typ: TIO_TYPE; AFHDH: string): string;
begin
  Application.CreateForm(Tfrm_FHDFS, frm_FHDFS);
  with frm_FHDFS do
  begin
    Caption := pCaption[integer(io_Typ)] + '发货单信息发送';
    FIO_type := io_typ;
    PS_CurrFHDH := AFHDH;
    case io_typ of
      io_jyp:
        begin
        end;
      io_yp:
        begin
        end;
      io_grp:
        begin
        end;
    end;
    ShowModal;
    Result := PS_FHDH;
    Free;
  end;
end;

procedure Tfrm_FHDFS.SetCtlsEnabled(AEnabled: boolean);
begin
  GB_mult.Enabled := AEnabled;
  CB_mult.Enabled := AEnabled;
  BBt_all.Enabled := AEnabled;
  BBt_allnot.Enabled := AEnabled;
  CB_sent.Enabled := AEnabled;
  if AEnabled then
    CB_mult.Color := clWindow
  else
    CB_mult.Color := clBtnFace;
end;

procedure Tfrm_FHDFS.SetRKDView(isALL: boolean);
const
//  S_JYP= 'select a.FHDH, b.DWJC from TKS_JYFHD a, TGS_GXDWSJB b where a.QXDW=b.DWDM and a.YJDH=(select YJDH from TKS_JYFHD where FHDH='J200206001/0001')';
  S_SQL = 'select a.FHDH, b.DWJC from %s a, TGS_GXDWSJB b where a.QXDW=b.DWDM and not a.HDR is Null and a.YJDH=(select YJDH from %s where FHDH=''%s'')';
var
  vs_sql: string;
begin
  CB_mult.Items.Clear;
  with data.qrytmp do
  begin
    Close;
    SQL.Clear;
    case Fio_Type of
      io_jyp:
        vs_sql := format(S_SQL, ['TKS_JYFHD', 'TKS_JYFHD', PS_CurrFHDH]);
      io_txp:
        vs_sql := format(S_SQL, ['TKS_TXFHD', 'TKS_TXFHD', PS_CurrFHDH]);
      io_yp:
        vs_sql := format(S_SQL, ['TKS_YPFHD', 'TKS_YPFHD', PS_CurrFHDH]);
      io_grp:
        vs_sql := format(S_SQL, ['TKS_GRPFHD', 'TKS_GRPFHD', PS_CurrFHDH]);
    end;
    if CB_sent.Checked then
      vs_sql := vs_sql + ' and a.SDATE is null ';
    SQL.Add(vs_sql);
    Open;
    while not Eof do
    begin
      CB_mult.Items.Add(FieldByName('FHDH').AsString);
      Next;
    end;
  end;

end;


procedure Tfrm_FHDFS.RB_currClick(Sender: TObject);
begin
  SetCtlsEnabled(RB_mult.Checked);
end;

procedure Tfrm_FHDFS.FormCreate(Sender: TObject);
begin
  RB_mult.Checked := true;
  RB_currClick(nil);

end;

procedure Tfrm_FHDFS.CB_sentClick(Sender: TObject);
begin
  SetRKDView(not CB_sent.Checked);
end;

procedure Tfrm_FHDFS.BBt_okClick(Sender: TObject);
var
  i: integer;
begin
  if RB_curr.Checked then
    PS_FHDH := '''' + PS_CurrFHDH + ''''
  else
  begin
    for i := 0 to CB_mult.Items.Count - 1 do
      if CB_mult.Checked[i] then
        PS_FHDH := PS_FHDH + '''' + CB_mult.Items[i] + ''',';
    if PS_FHDH <> '' then
      PS_FHDH := copy(PS_FHDH, 1, length(PS_FHDH) - 1)
    else
    begin
      CHQMsgBox('请选择发货单！');
      exit;
    end;
  end;
  Close;
end;

procedure Tfrm_FHDFS.FormShow(Sender: TObject);
begin
  CB_sentClick(nil);
end;

procedure Tfrm_FHDFS.BBt_allClick(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to CB_mult.Items.Count - 1 do
    CB_mult.Checked[i] := (TBitBtn(Sender).Tag = 11);

end;

end.