77 lines
2.0 KiB
ObjectPascal
77 lines
2.0 KiB
ObjectPascal
unit U_TradeClothSplit;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, ExtCtrls, DB, ADODB, cxGraphics, cxControls, cxLookAndFeels,
|
|
cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore,
|
|
dxSkinsDefaultPainters, Vcl.Menus, cxButtons, cxTextEdit, cxCurrencyEdit;
|
|
|
|
type
|
|
TfrmTradeClothSplit = class(TForm)
|
|
Panel1: TPanel;
|
|
ADOQueryMain: TADOQuery;
|
|
ADOQueryTemp: TADOQuery;
|
|
ADOQueryCmd: TADOQuery;
|
|
Label11: TLabel;
|
|
Qty: TcxCurrencyEdit;
|
|
cxButton1: TcxButton;
|
|
cxButton2: TcxButton;
|
|
Label1: TLabel;
|
|
procedure cxButton1Click(Sender: TObject);
|
|
procedure cxButton2Click(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
FStkID: string;
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frmTradeClothSplit: TfrmTradeClothSplit;
|
|
|
|
implementation
|
|
|
|
uses
|
|
U_DataLink, U_RTFun;
|
|
{$R *.dfm}
|
|
|
|
procedure TfrmTradeClothSplit.cxButton1Click(Sender: TObject);
|
|
begin
|
|
if StrToFloatDef(Qty.Text, 0) = 0 then
|
|
begin
|
|
application.MessageBox('请输入拆分米数', '提示信息', 0);
|
|
end;
|
|
//FStkID
|
|
try
|
|
with ADOQueryCmd do
|
|
begin
|
|
Close;
|
|
sql.Clear;
|
|
Sql.Add('exec P_BS_Cloth_IOALL ');
|
|
Sql.Add(' @Operation=' + quotedstr(Trim('库存拆分')));
|
|
Sql.Add(' ,@StkID=' + quotedstr(Trim(FStkID)));
|
|
Sql.Add(' ,@IOTime=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', SGetServerDate(ADOQueryTemp)))));
|
|
Sql.Add(' ,@Piece=' + Trim('0.01'));
|
|
Sql.Add(' ,@Qty=' + Trim(Qty.Text));
|
|
Sql.Add(' ,@Dcode=' + quotedstr(Trim(Dcode)));
|
|
Sql.Add(' ,@DName=' + quotedstr(Trim(DName)));
|
|
open;
|
|
end;
|
|
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
|
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
|
ModalResult := 1;
|
|
except
|
|
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmTradeClothSplit.cxButton2Click(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
end.
|
|
|