unit BillPublic;

interface

uses ShareBill, Forms, SysUtils;

function ExistDrawShow(lMode: Integer): string; //領(lǐng)料單
function ExistReturnShow(lMode: Integer): string; //退料單
function ExistEnterShow(lMode: Integer): string; //產(chǎn)品進(jìn)倉
function ExistCheckShow(lMode: Integer): string; //庫存盤點
function ExistChangeShow(lMode: Integer): string; //存貨調(diào)價
function ExistExchangeShow(lMode: Integer): string; //庫存變動
function ExistAssemblyShow(lMode: Integer): string; //組裝與拆卸
function ExistOtherShow(lMode: Integer): string; //倉庫調(diào)撥

implementation

uses SysPublic;

function ExistDrawShow(lMode: Integer): string;
var
  frmExistDraw: TfrmShareBill;
begin
  frmExistDraw := TfrmShareBill.Create(Application);
  with frmExistDraw do
  begin
    Caption := '領(lǐng)料單';
    sMasterSql := ' SELECT * FROM ExistIndex e where e.mode=' + IntToStr(lMode);
    lMasterID := 0;
    sListSql := ' SELECT * FROM ExistList el ';
    lPanelHeight := PANEL_HEIGHT_1;
    lPubMode := lMode;
    sEditField := 'DepotID,EmployeID';
    sEditCaption := '領(lǐng)料倉,領(lǐng)料人';
    sEditType := 'eButton,eButton';
    sButton := IntToStr(BASE_DEPOT) + ',' + IntToStr(BASE_EMPLOYE);
    sGridField := 'WareID,WareCode,WareName,Number,Price,Total';
    sGridCaption := '商品ID,商品編號,商品名稱,數(shù)量,單價,金額';
    sGridWidth := '30,150,150,70,70,70';
    MainShow;
    Result := sReturn;
    Free;
  end;
end;

function ExistReturnShow(lMode: Integer): string;
var
  frmExistReturn: TfrmShareBill;
begin
  frmExistReturn := TfrmShareBill.Create(Application);
  with frmExistReturn do
  begin
    Caption := '退料單';
    sMasterSql := ' SELECT * FROM ExistIndex e where e.mode=' + IntToStr(lMode);
    sListSql := ' SELECT * FROM ExistList el ';
    lMasterID := 0;
    lPanelHeight := PANEL_HEIGHT_1;
    lPubMode := lMode;
    sEditField := 'DepotID,EmployeID';
    sEditCaption := '退料倉,退料人';
    sEditType := 'eButton,eButton';
    sButton := IntToStr(BASE_DEPOT) + ',' + IntToStr(BASE_EMPLOYE);
    sGridField := 'WareID,WareCode,WareName,Number,Price,Total';
    sGridCaption := '商品ID,商品編號,商品名稱,數(shù)量,單價,金額';
    sGridWidth := '30,150,150,70,70,70';
    MainShow;
    Result := sReturn;
    Free;
  end;
end;

function ExistEnterShow(lMode: Integer): string;
var
  frmExistEnter: TfrmShareBill;
begin
  frmExistEnter := TfrmShareBill.Create(Application);
  with frmExistEnter do
  begin
    Caption := '產(chǎn)品進(jìn)倉';
    sMasterSql := ' SELECT * FROM ExistIndex e where e.mode=' + IntToStr(lMode);
    sListSql := ' SELECT * FROM ExistList el ';
    lMasterID := 0;
    lPanelHeight := PANEL_HEIGHT_1;
    lPubMode := lMode;
    sEditField := 'DepotID,BatchNo';
    sEditCaption := '進(jìn)貨倉,批號';
    sEditType := 'eButton,eText';
    sButton := IntToStr(BASE_DEPOT) + ',0';
    sGridField := 'WareID,WareCode,WareName,Number,Price,Total';
    sGridCaption := '商品ID,商品編號,商品名稱,數(shù)量,平均成本價,金額';
    sGridWidth := '30,150,150,70,70,70';
    MainShow;
    Result := sReturn;
    Free;
  end;
end;

function ExistCheckShow(lMode: Integer): string;
var
  frmExistCheck: TfrmShareBill;
begin
  frmExistCheck := TfrmShareBill.Create(Application);
  with frmExistCheck do
  begin
    Caption := '庫存盤點';
    sMasterSql := ' SELECT * FROM ExistIndex e where e.mode=' + IntToStr(lMode);
    sListSql := ' SELECT * FROM ExistList el ';
    lMasterID := 0;
    lPanelHeight := PANEL_HEIGHT_1;
    lPubMode := lMode;
    sEditField := 'DepotID';
    sEditCaption := '盤點倉庫';
    sEditType := 'eButton';
    sButton := IntToStr(BASE_DEPOT);
    sGridField := 'WareID,WareCode,WareName,Number,Price,Total';
    sGridCaption := '商品ID,商品編號,商品名稱,數(shù)量,單價,金額';
    sGridWidth := '30,150,150,70,70,70';
    MainShow;
    Result := sReturn;
    Free;
  end;
end;

function ExistChangeShow(lMode: Integer): string;
var
  frmExistChange: TfrmShareBill;
begin
  frmExistChange := TfrmShareBill.Create(Application);
  with frmExistChange do
  begin
    Caption := '存貨調(diào)價';
    sMasterSql := ' SELECT * FROM ExistIndex e where e.mode=' + IntToStr(lMode);
    sListSql := ' SELECT * FROM ExistList el ';
    lMasterID := 0;
    lPanelHeight := PANEL_HEIGHT_1;
    lPubMode := lMode;
    sEditField := '';
    sEditCaption := '';
    sEditType := '';
    sButton := '';
    sGridField := 'WareID,WareCode,WareName,Number,Price,Price1,Total';
    sGridCaption := '商品ID,商品編號,商品名稱,數(shù)量,原單價,新單價,金額';
    sGridWidth := '30,150,150,70,70,70';
    MainShow;
    Result := sReturn;
    Free;
  end;
end;

function ExistAssemblyShow(lMode: Integer): string;
var
  frmExistAssembly: TfrmShareBill;
begin
  frmExistAssembly := TfrmShareBill.Create(Application);
  with frmExistAssembly do
  begin
    Caption := '組裝與拆卸';
    sMasterSql := ' SELECT * FROM ExistIndex e where e.mode=' + IntToStr(lMode);
    sListSql := ' SELECT * FROM ExistList el ';
    lMasterID := 0;
    lPanelHeight := PANEL_HEIGHT_3;
    lPubMode := lMode;
    sEditField := 'WareID,DepotID,EmployeID,Number,Money,Sum';
    sEditCaption := '商品,倉庫,經(jīng)手人,數(shù)量,單價,金額';
    sEditType := 'eButton,eButton,eButton,eText,eText,eText';
    sButton := IntToStr(BASE_WARE) + ',' + IntToStr(BASE_DEPOT) + ',' +
      IntToStr(BASE_EMPLOYE) + ',0,0';
    sGridField := 'WareID,WareCode,WareName,Number,Price,Total';
    sGridCaption := '商品ID,商品編號,商品名稱,數(shù)量,單價,金額';
    sGridWidth := '30,150,150,70,70,70';
    MainShow;
    Result := sReturn;
    Free;
  end;
end;

function ExistOtherShow(lMode: Integer): string;
var
  frmExistOther: TfrmShareBill;
begin
  frmExistOther := TfrmShareBill.Create(Application);
  with frmExistOther do
  begin
    Caption := '倉庫調(diào)撥';
    sMasterSql := ' SELECT * FROM ExistIndex e where e.mode=' + IntToStr(lMode);
    sListSql := ' SELECT * FROM ExistList el ';
    lMasterID := 0;
    lPanelHeight := PANEL_HEIGHT_1;
    lPubMode := lMode;
    sEditField := 'DepotID,DepotID';
    sEditCaption := '調(diào)出倉,調(diào)入倉';
    sEditType := 'eButton,eButton';
    sButton := IntToStr(BASE_DEPOT) + ',' + IntToStr(BASE_DEPOT);
    sGridField := 'WareID,WareCode,WareName,Number,Price,Total';
    sGridCaption := '商品ID,商品編號,商品名稱,數(shù)量,單價,金額';
    sGridWidth := '30,150,150,70,70,70';
    MainShow;
    Result := sReturn;
    Free;
  end;
end;

function ExistExchangeShow(lMode: Integer): string;
var
  frmExistExchange: TfrmShareBill;
begin
  frmExistExchange := TfrmShareBill.Create(Application);
  with frmExistExchange do
  begin
    Caption := '庫存變動';
    sMasterSql := ' SELECT * FROM ExistIndex e where e.mode=' + IntToStr(lMode);
    sListSql := ' SELECT * FROM ExistList el ';
    lMasterID := 0;
    lPanelHeight := PANEL_HEIGHT_2;
    lPubMode := lMode;
    sEditField := 'ChangeType,DepotID,Address,Memo';
    sEditCaption := '變動類型,變動倉庫,相關(guān)信息,說明';
    sEditType := 'eButton,eButton,eText';
    sButton := IntToStr(BASE_CHANGE_TYPE) + ',' + IntToStr(BASE_DEPOT) + ',0';
    sGridField := 'WareID,WareCode,WareName,Number,Price,Total,UnNumber';
    sGridCaption := '商品ID,商品編號,商品名稱,數(shù)量,單價,金額,退還數(shù)量';
    sGridWidth := '30,150,150,70,70,70,70';
    MainShow;
    Result := sReturn;
    Free;
  end;
end;

end.



//此源碼由程序太平洋收集整理發(fā)布,任何人都可自由轉(zhuǎn)載,但需保留本站信息
//╭⌒╮┅~ ¤　歡迎光臨程序太平洋╭⌒╮
//╭⌒╭⌒╮╭⌒╮～╭⌒╮  ︶  ,︶︶
//,︶︶︶︶,''︶~~ ,''~︶︶　 ,''
//╔　╱◥███◣═╬╬╬╬╬╬╬╬╬╗
//╬ ︱田︱田 田 ︱　　　　　　　　　 ╬
//╬　　　　　　　http://www.5ivb.net ╬
//╬　 ╭○╮●　                   　╬
//╬　　/■\/■\　　                  ╬
//╬　　 <|　||　   有希望,就有成功！ ╬
//╬　　　　　　　　　　　　　　　　　╬
//╚╬╬╬╬╬╬╬╬╬╬╗  ╔╬╬╬╬╝
//
//說明：
//專業(yè)提供VB、．NET、Delphi、ASP、PB源碼下載
//包括:程序源碼,控件,商業(yè)源碼,系統(tǒng)方案，開發(fā)工具，書籍教程，技術(shù)文檔