rtgit/RTFormwork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
8e9a8958be
RTFormwork/项目代码/RTBasicsV1/B04采购计划管理/U_ClothPurchasePlanPut.pas

1231 lines
42 KiB
ObjectPascal
Raw Normal View History

1
2024-07-07 09:35:27 +08:00
unit U_ClothPurchasePlanPut;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, dxDateTimeWheelPicker, dxGDIPlusClasses,
Vcl.Menus, MovePanel, cxCheckBox, cxImage, cxDBEdit, Vcl.DBCtrls, U_BaseInput,
System.ImageList, Vcl.ImgList, IdBaseComponent, IdComponent, IdTCPConnection,
1
2024-07-07 19:26:56 +08:00
IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, dxSkinWXI,
dxScrollbarAnnotations, dxCore, cxDateUtils, dxSkinBasic, dxSkinBlack,
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue, cxPC;
1
2024-07-07 09:35:27 +08:00
type
TfrmClothPurchasePlanPut = class(TfrmBaseInput)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
DS_1: TDataSource;
1
2024-07-07 19:26:56 +08:00
CDS_1: TClientDataSet;
1
2024-07-07 09:35:27 +08:00
cxgrdpmn1: TcxGridPopupMenu;
pm_sub: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
ToolButton3: TToolButton;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn17: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridDBColumn19: TcxGridDBColumn;
cxGridDBColumn20: TcxGridDBColumn;
cxGridDBColumn21: TcxGridDBColumn;
cxGridDBColumn22: TcxGridDBColumn;
cxGridDBColumn23: TcxGridDBColumn;
cxGridDBColumn24: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
1
2024-07-07 19:26:56 +08:00
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
ToolButton4: TToolButton;
TV1Column4: TcxGridDBColumn;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
cxPageControl3: TcxPageControl;
cxTabSheet3: TcxTabSheet;
ScrollBox1: TScrollBox;
lbl26: TLabel;
lbl27: TLabel;
lbl28: TLabel;
lbl30: TLabel;
lbl31: TLabel;
lbl32: TLabel;
SellRepresentative: TcxTextEdit;
SellTel: TcxTextEdit;
SellAddress: TcxTextEdit;
BuyRepresentative: TcxTextEdit;
BuyTel: TcxTextEdit;
BuyAddress: TcxTextEdit;
cxTabSheet1: TcxTabSheet;
pnl1: TPanel;
lbl5: TLabel;
lbl6: TLabel;
lbl7: TLabel;
lbl8: TLabel;
PurNo: TcxTextEdit;
Sellname: TcxButtonEdit;
BuyName: TcxButtonEdit;
PurDate: TcxDateEdit;
lbl9: TLabel;
lbl10: TLabel;
lbl1: TLabel;
lbl3: TLabel;
lbl4: TLabel;
ShippMent: TcxTextEdit;
Payment: TcxButtonEdit;
ShipMent: TcxButtonEdit;
IsTax: TcxComboBox;
DlyDate: TcxDateEdit;
lbl11: TLabel;
Note: TcxMemo;
TV1Column5: TcxGridDBColumn;
TV1Column6: TcxGridDBColumn;
TV1Column7: TcxGridDBColumn;
TV1Column9: TcxGridDBColumn;
TV1Column10: TcxGridDBColumn;
Label1: TLabel;
LightColorRatio: TcxMemo;
TV1Column8: TcxGridDBColumn;
TV1Column11: TcxGridDBColumn;
TV1Column12: TcxGridDBColumn;
TV1Column13: TcxGridDBColumn;
TV1Column14: TcxGridDBColumn;
TV1Column15: TcxGridDBColumn;
TV1Column16: TcxGridDBColumn;
TV1Column17: TcxGridDBColumn;
TV1Column18: TcxGridDBColumn;
TV1Column19: TcxGridDBColumn;
TV1Column20: TcxGridDBColumn;
1
2024-07-07 09:35:27 +08:00
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure BuyNameBtnUpClick(Sender: TObject);
procedure v1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure SalesmanBtnUpClick(Sender: TObject);
procedure v1Column15PropertiesEditValueChanged(Sender: TObject);
procedure SellNameBtnUpClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ShippMentKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton3Click(Sender: TObject);
1
2024-07-07 19:26:56 +08:00
procedure BuyNameDblClick(Sender: TObject);
procedure BuyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure SellnamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ShipMentPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure TV1Column8PropertiesEditValueChanged(Sender: TObject);
1
2024-07-07 09:35:27 +08:00
private
FLeft, FTop: Integer;
fuserName, Fstatus: string;
procedure JSMoney();
procedure InitData();
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
function TestData(): Boolean;
function SaveData(): Boolean;
procedure SetXH();
{ Private declarations }
public
CopyInt: Integer;
PState: string;
fFlileFlag: string;
FPurMId: string;
FAuthority, FGSTT: string;
{ Public declarations }
end;
var
frmClothPurchasePlanPut: TfrmClothPurchasePlanPut;
newh: hwnd;
implementation
uses
1
2024-07-07 19:26:56 +08:00
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_ClothInfoSel,
U_TradeSalesContractFCSel, U_TradeSalesContractGCSel,
U_TradeSalesContractBCSel;
1
2024-07-07 09:35:27 +08:00
{$R *.dfm}
procedure TfrmClothPurchasePlanPut.SetXH();
var
i: Integer;
begin
1
2024-07-07 19:26:56 +08:00
with CDS_1 do
1
2024-07-07 09:35:27 +08:00
begin
First;
i := 1;
while not Eof do
begin
1
2024-07-07 19:26:56 +08:00
with CDS_1 do
1
2024-07-07 09:35:27 +08:00
begin
Edit;
FieldByName('XHNoTemp').Value := i;
Post;
end;
i := i + 1;
Next;
end;
end;
1
2024-07-07 19:26:56 +08:00
with CDS_1 do
1
2024-07-07 09:35:27 +08:00
begin
1
2024-07-07 19:26:56 +08:00
CDS_1.IndexFieldNames := '';
1
2024-07-07 09:35:27 +08:00
First;
i := 1;
while not Eof do
begin
1
2024-07-07 19:26:56 +08:00
with CDS_1 do
1
2024-07-07 09:35:27 +08:00
begin
Edit;
FieldByName('SerialNo').Value := FieldByName('XHNoTemp').AsInteger;
Post;
end;
i := i + 1;
Next;
end;
1
2024-07-07 19:26:56 +08:00
CDS_1.IndexFieldNames := 'SerialNo';
end;
end;
procedure TfrmClothPurchasePlanPut.ShipMentPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TcxButtonEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
MainType := 'Pur';
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
1
2024-07-07 09:35:27 +08:00
end;
end;
procedure TfrmClothPurchasePlanPut.ShippMentKeyPress(Sender: TObject; var Key: Char);
begin
if not (((Key >= '0') and (Key <= '9')) or (Key = '.') or (Key = #8)) then
begin
Key := #0;
end
else if (pos('.', TEdit(Sender).text) <> 0) then
begin
if Key = '.' then
begin
Key := #0;
end;
end;
end;
procedure TfrmClothPurchasePlanPut.JSMoney();
var
FConQty, FConPrice, FC_Money: Double;
begin
1
2024-07-07 19:26:56 +08:00
with CDS_1 do
1
2024-07-07 09:35:27 +08:00
begin
FConQty := Fieldbyname('ConQty').AsFloat;
FConPrice := Fieldbyname('ConPrice').AsFloat;
end;
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EEA3AC><EFBFBD><EFBFBD>2λС<CEBB><D0A1>
FC_Money := RoundFloat(FConQty * FConPrice, 2);
1
2024-07-07 19:26:56 +08:00
with CDS_1 do
1
2024-07-07 09:35:27 +08:00
begin
Edit;
FieldByName('ConTotalAmount').Value := FC_Money;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
function TfrmClothPurchasePlanPut.TestData(): Boolean;
begin
try
if Trim(PurNo.Text) = '' then
raise Exception.Create('<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD>źŲ<C5BA><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
if Trim(SellName.Text) = '' then
raise Exception.Create('<27><>Ӧ<EFBFBD>̲<EFBFBD><CCB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
if Trim(BuyName.Text) = '' then
raise Exception.Create('<27>ҷ<EFBFBD><D2B7><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
1
2024-07-07 19:26:56 +08:00
if CDS_1.IsEmpty then
1
2024-07-07 09:35:27 +08:00
raise Exception.Create('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
1
2024-07-07 19:26:56 +08:00
if CDS_1.Locate('C_Name', null, []) then
1
2024-07-07 09:35:27 +08:00
raise Exception.Create('Ʒ<><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
1
2024-07-07 19:26:56 +08:00
if CDS_1.Locate('C_Name', '', []) then
1
2024-07-07 09:35:27 +08:00
raise Exception.Create('Ʒ<><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
1
2024-07-07 19:26:56 +08:00
if CDS_1.Locate('Price', null, []) then
1
2024-07-07 09:35:27 +08:00
raise Exception.Create('<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
1
2024-07-07 19:26:56 +08:00
if CDS_1.Locate('Qty', null, []) then
1
2024-07-07 09:35:27 +08:00
raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
1
2024-07-07 19:26:56 +08:00
if CDS_1.Locate('Qty', 0, []) then
1
2024-07-07 09:35:27 +08:00
raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ0<CEAA><30>');
1
2024-07-07 19:26:56 +08:00
if CDS_1.Locate('QtyUnit', null, []) then
1
2024-07-07 09:35:27 +08:00
raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
1
2024-07-07 19:26:56 +08:00
if CDS_1.Locate('QtyUnit', '', []) then
1
2024-07-07 09:35:27 +08:00
raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>');
Result := True;
except
Result := false;
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmClothPurchasePlanPut.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmClothPurchasePlanPut.InitData();
var
maxno: string;
begin
//ˢ<>²<EFBFBD>Ʒ<EFBFBD><C6B7>Ϣ
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from Pur_ClothPlan_Sub ');
sql.Add('where PurMId=''' + Trim(FPurMId) + '''');
sql.Add(' order by SerialNo ');
Open;
end;
1
2024-07-07 19:26:56 +08:00
SCreateCDS(ADOTemp, CDS_1);
SInitCDSData(ADOTemp, CDS_1);
1
2024-07-07 09:35:27 +08:00
//ˢ<><CBA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Pur_ClothPlan_Main where PurMId=''' + Trim(FPurMId) + '''');
Open;
end;
SCSHData(ADOTemp, ScrollBox1, 2);
1
2024-07-07 19:26:56 +08:00
SCSHData(ADOTemp, pnl1, 2);
BuyName.Properties.LookupItems.Text := Trim(ADOTemp.FieldByName('BuyNo').AsString);
Sellname.Properties.LookupItems.Text := Trim(ADOTemp.FieldByName('SellNo').AsString);
1
2024-07-07 09:35:27 +08:00
Fstatus := Trim(ADOTemp.FieldByName('status').AsString);
if PState = '<27><><EFBFBD><EFBFBD>' then
begin
1
2024-07-07 19:26:56 +08:00
PurDate.Date := SGetServerDateTime(ADOTemp);
DlyDate.Date := PurDate.Date;
1
2024-07-07 09:35:27 +08:00
PurNo.Text := '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>';
end;
if PState = '<27><><EFBFBD><EFBFBD>' then
begin
PState := '<27><><EFBFBD><EFBFBD>';
FPurMId := '';
PurNo.Text := '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>';
1
2024-07-07 19:26:56 +08:00
with CDS_1 do
1
2024-07-07 09:35:27 +08:00
begin
First;
while not Eof do
begin
if GetLSNo(ADOCmd, maxno, 'SCS', 'Pur_ClothPlan_Sub', 4, 1) = False then
begin
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
Edit;
FieldByName('PurMId').Value := '';
FieldByName('PurSId').Value := maxno;
Post;
Next;
end;
end;
end;
end;
procedure TfrmClothPurchasePlanPut.N1Click(Sender: TObject);
var
FValue, FFValue, FColumn, FFColumn, MHXSID: string;
MXHNO: Integer;
begin
if Fstatus = '1' then
begin
application.MessageBox('<27><>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD><CBA3>޷<EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
exit;
end;
1
2024-07-07 19:26:56 +08:00
MXHNO := CDS_1.FieldByName('XHNo').ASInteger;
1
2024-07-07 09:35:27 +08:00
FColumn := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
1
2024-07-07 19:26:56 +08:00
FValue := Trim(CDS_1.fieldbyname(FColumn).AsString);
MHXSID := Trim(CDS_1.fieldbyname('HXSID').AsString);
with CDS_1 do
1
2024-07-07 09:35:27 +08:00
begin
DisableControls;
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean then
begin
Edit;
if FValue = '' then
begin
1
2024-07-07 19:26:56 +08:00
CDS_1.FieldByName(FColumn).Value := null;
1
2024-07-07 09:35:27 +08:00
end
else
begin
1
2024-07-07 19:26:56 +08:00
CDS_1.FieldByName(FColumn).Value := FValue;
1
2024-07-07 09:35:27 +08:00
end;
if FColumn = 'C_HX' then
begin
1
2024-07-07 19:26:56 +08:00
CDS_1.FieldByName('HXSID').Value := MHXSID;
1
2024-07-07 09:35:27 +08:00
end;
Post;
JSMoney();
end;
Next;
end;
EnableControls;
end;
1
2024-07-07 19:26:56 +08:00
CDS_1.Locate('XHNO', MXHNO, []);
1
2024-07-07 09:35:27 +08:00
end;
procedure TfrmClothPurchasePlanPut.N2Click(Sender: TObject);
var
FValue, MC_Code, MC_Craft, MC_Name, MC_Spec, MC_CF, MC_Color, MC_MF, MC_KZ, MC_Note, MC_Unit, MGcHuaNo, MSuoLv, MC_EName: string;
MXHNO: Integer;
begin
if Fstatus = '1' then
begin
application.MessageBox('<27><>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD><CBA3>޷<EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
exit;
end;
1
2024-07-07 19:26:56 +08:00
MXHNO := CDS_1.FieldByName('XHNo').ASInteger;
MC_Code := CDS_1.fieldbyname('C_Code').AsString;
MC_Craft := CDS_1.fieldbyname('C_Craft').AsString;
MC_Name := CDS_1.fieldbyname('C_Name').AsString;
MC_Spec := CDS_1.fieldbyname('C_Spec').AsString;
MC_CF := CDS_1.fieldbyname('C_CF').AsString;
MC_Color := CDS_1.fieldbyname('C_Color').AsString;
MC_MF := CDS_1.fieldbyname('C_MF').AsString;
MC_KZ := CDS_1.fieldbyname('C_KZ').AsString;
MC_Note := CDS_1.fieldbyname('C_Note').AsString;
MC_Unit := CDS_1.fieldbyname('C_Unit').AsString;
MSuoLv := CDS_1.fieldbyname('SuoLv').AsString;
MGcHuaNo := CDS_1.fieldbyname('GcHuaNo').AsString;
MC_EName := CDS_1.fieldbyname('C_EName').AsString;
with CDS_1 do
1
2024-07-07 09:35:27 +08:00
begin
DisableControls;
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean then
begin
Edit;
1
2024-07-07 19:26:56 +08:00
CDS_1.fieldbyname('C_Code').Value := MC_Code;
CDS_1.fieldbyname('C_Craft').Value := MC_Craft;
CDS_1.fieldbyname('C_Name').Value := MC_Name;
CDS_1.fieldbyname('C_Spec').Value := MC_Spec;
CDS_1.fieldbyname('C_CF').Value := MC_CF;
CDS_1.fieldbyname('C_Color').Value := MC_Color;
CDS_1.fieldbyname('C_MF').Value := MC_MF;
CDS_1.fieldbyname('C_KZ').Value := MC_KZ;
CDS_1.fieldbyname('C_Note').Value := MC_Note;
CDS_1.fieldbyname('C_Unit').Value := MC_Unit;
CDS_1.fieldbyname('SuoLv').Value := MSuoLv;
CDS_1.fieldbyname('GcHuaNo').Value := MGcHuaNo;
CDS_1.fieldbyname('C_EName').Value := MC_EName;
1
2024-07-07 09:35:27 +08:00
Post;
end;
Next;
end;
EnableControls;
end;
1
2024-07-07 19:26:56 +08:00
CDS_1.Locate('XHNO', MXHNO, []);
1
2024-07-07 09:35:27 +08:00
end;
1
2024-07-07 19:26:56 +08:00
procedure TfrmClothPurchasePlanPut.ZDYHelp(FButn: TcxButtonEdit; LType: string);
1
2024-07-07 09:35:27 +08:00
var
1
2024-07-07 19:26:56 +08:00
FType, ZDYName, FText: string;
begin
end;
procedure TfrmClothPurchasePlanPut.BuyNameDblClick(Sender: TObject);
begin
TcxButtonEdit(Sender).Text := '';
TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
end;
procedure TfrmClothPurchasePlanPut.BuyNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
1
2024-07-07 09:35:27 +08:00
begin
try
1
2024-07-07 19:26:56 +08:00
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
1
2024-07-07 09:35:27 +08:00
begin
1
2024-07-07 19:26:56 +08:00
FCoType := '<27><>˾';
1
2024-07-07 09:35:27 +08:00
if ShowModal = 1 then
begin
1
2024-07-07 19:26:56 +08:00
self.BuyName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.BuyName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
self.BuyRepresentative.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CompanyContact').AsString);
self.BuyTel.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CompanyTelephone').AsString);
self.BuyAddress.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAddress').AsString);
1
2024-07-07 09:35:27 +08:00
end;
end;
1
2024-07-07 19:26:56 +08:00
1
2024-07-07 09:35:27 +08:00
finally
1
2024-07-07 19:26:56 +08:00
frmCompanySel.Free;
1
2024-07-07 09:35:27 +08:00
end;
end;
procedure TfrmClothPurchasePlanPut.FormShow(Sender: TObject);
begin
inherited;
readCxGrid(trim(self.Caption), Tv1, '<27><><EFBFBD>ۺ<EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>');
fFlileFlag := UserDataFlag + 'HX';
InitData();
end;
function TfrmClothPurchasePlanPut.SaveData(): Boolean;
var
maxno: string;
MPurNo, fDate: string;
begin
try
ADOCmd.Connection.BeginTrans;
//////////////// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> //////////////////////
if Trim(FPurMId) = '' then
begin
if GetLSNo(ADOTemp, maxno, 'PM', 'Pur_ClothPlan_Main', 3, 1) = False then
raise Exception.Create('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>');
fDate := FormatDateTime('yy', SGetServerDate(ADOTemp));
if trim(PurNo.Text) = '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>' then
begin
if GetLSNo(ADOTemp, MPurNo, fDate, 'Pur_ClothPlan_Main', 4, 0) = False then
raise Exception.Create('ȡ<><C8A1><EFBFBD>²ɹ<C2B2><C9B9><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>');
PurNo.Text := MPurNo;
end;
end
else
begin
maxno := Trim(FPurMId);
end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from Pur_ClothPlan_Main where PurMId=''' + Trim(FPurMId) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(FPurMId) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
FieldByName('status').Value := '0';
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
FieldByName('PurMId').Value := Trim(maxno);
RTSetsavedata(ADOCmd, 'Pur_ClothPlan_Main', ScrollBox1, 2);
1
2024-07-07 19:26:56 +08:00
FieldByName('BuyNo').Value := Trim(BuyName.Properties.LookupItems.Text);
FieldByName('SellNo').Value := Trim(Sellname.Properties.LookupItems.Text);
1
2024-07-07 09:35:27 +08:00
Post;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Pur_ClothPlan_Main where PurNo=''' + Trim(PurNo.Text) + '''');
Open;
end;
if ADOCmd.RecordCount > 1 then
raise Exception.Create('<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD>');
FPurMId := Trim(maxno);
//////////////// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> //////////////////////
///
//////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD> //////////////////////
1
2024-07-07 19:26:56 +08:00
with CDS_1 do
1
2024-07-07 09:35:27 +08:00
begin
First;
while not Eof do
begin
1
2024-07-07 19:26:56 +08:00
maxno := Trim(CDS_1.fieldbyname('PurSId').AsString);
1
2024-07-07 09:35:27 +08:00
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Pur_ClothPlan_Sub ');
sql.Add('where PurSId=''' + Trim(maxno) + '''');
SQL.Add('and PurMId=''' + Trim(FPurMId) + '''');
Open;
end;
with ADOCmd do
begin
if ADOCmd.IsEmpty then
Append
else
Edit;
1
2024-07-07 19:26:56 +08:00
RTSetSaveDataCDS(ADOCmd, Tv1, CDS_1, 'Pur_ClothPlan_Sub', 0);
1
2024-07-07 09:35:27 +08:00
FieldByName('PurMId').Value := Trim(FPurMId);
FieldByName('PurSId').Value := Trim(maxno);
Post;
end;
1
2024-07-07 19:26:56 +08:00
with CDS_1 do
1
2024-07-07 09:35:27 +08:00
begin
Edit;
FieldByName('PurSId').Value := Trim(maxno);
Post;
end;
Next;
end;
end;
//////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD> //////////////////////
ADOCmd.Connection.CommitTrans;
Result := True;
except
ADOCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
Result := False;
end;
end;
procedure TfrmClothPurchasePlanPut.TBSaveClick(Sender: TObject);
begin
1
2024-07-07 19:26:56 +08:00
cxPageControl3.SetFocus;
1
2024-07-07 09:35:27 +08:00
if TestData() = false then
exit;
if SaveData() then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
end;
end;
procedure TfrmClothPurchasePlanPut.ToolButton1Click(Sender: TObject);
var
i: Integer;
maxno: string;
begin
if GetLSNo(ADOCmd, maxno, 'PS', 'Pur_ClothPlan_Sub', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
1
2024-07-07 19:26:56 +08:00
i := CDS_1.RecordCount + 1;
1
2024-07-07 09:35:27 +08:00
try
frmClothInfoSel := TfrmClothInfoSel.Create(Application);
with frmClothInfoSel do
begin
if ShowModal = 1 then
begin
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
1
2024-07-07 19:26:56 +08:00
with Self.CDS_1 do
1
2024-07-07 09:35:27 +08:00
begin
Append;
FieldByName('SSEL').Value := False;
FieldByName('SerialNo').Value := i;
FieldByName('PurSId').Value := maxno + INTTOSTR(i);
FieldByName('C_Code').Value := CDS_1.fieldbyname('C_Code').value;
FieldByName('C_Name').Value := CDS_1.fieldbyname('C_Name').value;
FieldByName('C_Spec').Value := CDS_1.fieldbyname('C_Spec').value;
FieldByName('C_Composition').Value := CDS_1.fieldbyname('C_Composition').value;
FieldByName('C_Color').Value := CDS_1.fieldbyname('C_Color').value;
FieldByName('Qty').Value := 0;
FieldByName('QtyUnit').Value := 'Kg';
end;
end;
i := i + 1;
Next;
end;
end;
end;
end;
finally
frmClothInfoSel.Free;
end;
SetXH();
end;
procedure TfrmClothPurchasePlanPut.ToolButton2Click(Sender: TObject);
begin
1
2024-07-07 19:26:56 +08:00
if CDS_1.IsEmpty then
1
2024-07-07 09:35:27 +08:00
Exit;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
1
2024-07-07 19:26:56 +08:00
while CDS_1.Locate('SSel', True, []) do
1
2024-07-07 09:35:27 +08:00
begin
// with ADOTemp do
// begin
// Close;
// sql.Clear;
1
2024-07-07 19:26:56 +08:00
// sql.Add('select * from Trade_Plan_Sub where PurSId=''' + Trim(CDS_1.fieldbyname('PurSId').AsString) + '''');
1
2024-07-07 09:35:27 +08:00
// open;
// end;
// if ADOTemp.IsEmpty = false then
// begin
// exit;
// application.MessageBox('<27><><EFBFBD><EFBFBD>ϸ<EFBFBD>Ѿ<EFBFBD><D1BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
// end;
1
2024-07-07 19:26:56 +08:00
if Trim(CDS_1.fieldbyname('PurSId').AsString) <> '' then
1
2024-07-07 09:35:27 +08:00
begin
with ADOCmd do
begin
Close;
sql.Clear;
1
2024-07-07 19:26:56 +08:00
sql.Add('delete Pur_ClothPlan_Sub where PurSId=''' + Trim(CDS_1.fieldbyname('PurSId').AsString) + '''');
1
2024-07-07 09:35:27 +08:00
ExecSQL;
end;
end;
1
2024-07-07 19:26:56 +08:00
CDS_1.Delete;
1
2024-07-07 09:35:27 +08:00
end;
SetXH();
end;
procedure TfrmClothPurchasePlanPut.ToolButton3Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption), Tv1, '<27><><EFBFBD>ۺ<EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD><EFBFBD>');
end;
1
2024-07-07 19:26:56 +08:00
procedure TfrmClothPurchasePlanPut.ToolButton4Click(Sender: TObject);
var
FConMainId, FMPRTCode: string;
i: Integer;
maxno: string;
begin
i := CDS_1.RecordCount + 1;
try
frmTradeSalesContractFCSel := TfrmTradeSalesContractFCSel.Create(Application);
with frmTradeSalesContractFCSel do
begin
// fconNo := self.ConNo.Text;
// fC_Code := self.C_Code.Text;
if ShowModal = 1 then
begin
while CDS_1.locate('SSel', true, []) do
begin
if self.CDS_1.locate('ConSId', trim(CDS_1.Fieldbyname('ConSId').AsString), []) then
begin
CDS_1.Edit;
CDS_1.fieldbyname('SSel').value := false;
continue;
end;
if GetLSNo(ADOCmd, maxno, 'PS', 'Pur_ClothPlan_Sub', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
// self.BuyName.Properties.LookupItems.Text := Trim(frmTradeSalesContractFCSel.CDS_1.fieldbyname('Sellno').AsString);
// self.BuyName.Text := Trim(frmTradeSalesContractFCSel.CDS_1.fieldbyname('Sellname').AsString);
with self.CDS_1 do
begin
Append;
FieldByName('SSEL').Value := False;
FieldByName('SerialNo').Value := i;
FieldByName('PurSId').Value := maxno + INTTOSTR(i);
Fieldbyname('C_Degree').value := frmTradeSalesContractFCSel.CDS_1.Fieldbyname('PurchaseType').Value;
Fieldbyname('SerialNo').value := trim(frmTradeSalesContractFCSel.CDS_1.Fieldbyname('SerialNo').AsString);
Fieldbyname('ConNo').value := frmTradeSalesContractFCSel.CDS_1.Fieldbyname('ConNo').Value;
Fieldbyname('C_Name').value := frmTradeSalesContractFCSel.CDS_1.Fieldbyname('C_Name').Value;
Fieldbyname('C_Spec').value := frmTradeSalesContractFCSel.CDS_1.Fieldbyname('C_Spec').Value;
Fieldbyname('C_Composition').value := frmTradeSalesContractFCSel.CDS_1.Fieldbyname('C_Composition').Value;
Fieldbyname('C_Width').value := frmTradeSalesContractFCSel.CDS_1.Fieldbyname('C_Width').Value;
Fieldbyname('C_GramWeight').value := frmTradeSalesContractFCSel.CDS_1.Fieldbyname('C_GramWeight').Value;
Fieldbyname('GC_Name').value := frmTradeSalesContractFCSel.CDS_1.Fieldbyname('GC_Name').Value;
Fieldbyname('CraftCode').value := frmTradeSalesContractFCSel.CDS_1.Fieldbyname('CraftCode').Value;
Fieldbyname('CraftName').value := frmTradeSalesContractFCSel.CDS_1.Fieldbyname('CraftName').Value;
Fieldbyname('C_Code').value := frmTradeSalesContractFCSel.CDS_1.Fieldbyname('C_Code').Value;
Fieldbyname('ConNo').value := trim(frmTradeSalesContractFCSel.CDS_1.Fieldbyname('ConNo').AsString);
Fieldbyname('ConMId').value := trim(frmTradeSalesContractFCSel.CDS_1.Fieldbyname('ConMId').AsString);
Fieldbyname('ConSId').value := trim(frmTradeSalesContractFCSel.CDS_1.Fieldbyname('ConSId').AsString);
Fieldbyname('C_ColorNo').value := trim(frmTradeSalesContractFCSel.CDS_1.Fieldbyname('C_ColorNo').AsString);
Fieldbyname('C_Color').value := trim(frmTradeSalesContractFCSel.CDS_1.Fieldbyname('C_Color').AsString);
Fieldbyname('C_Pattern').value := trim(frmTradeSalesContractFCSel.CDS_1.Fieldbyname('C_Pattern').AsString);
Fieldbyname('C_ColorConfirm').value := trim(frmTradeSalesContractFCSel.CDS_1.Fieldbyname('C_ColorConfirm').AsString);
Fieldbyname('OrgQty').value := frmTradeSalesContractFCSel.CDS_1.Fieldbyname('ConQty').AsFloat;
Fieldbyname('QtyUnit').value := frmTradeSalesContractFCSel.CDS_1.Fieldbyname('ConUnit').Value;
Fieldbyname('BuyName').value := trim(frmTradeSalesContractFCSel.CDS_1.Fieldbyname('BuyName').AsString);
Fieldbyname('TallyId').value := trim(frmTradeSalesContractFCSel.CDS_1.Fieldbyname('TallyId').AsString);
Fieldbyname('Tallyer').value := trim(frmTradeSalesContractFCSel.CDS_1.Fieldbyname('Tallyer').AsString);
Fieldbyname('SalesId').value := trim(frmTradeSalesContractFCSel.CDS_1.Fieldbyname('SalesId').AsString);
Fieldbyname('Saleser').value := trim(frmTradeSalesContractFCSel.CDS_1.Fieldbyname('Saleser').AsString);
Post;
end;
i := i + 1;
CDS_1.Edit;
CDS_1.fieldbyname('SSel').value := false;
end;
end;
end;
finally
frmTradeSalesContractFCSel.Free;
end;
SetXH();
end;
procedure TfrmClothPurchasePlanPut.ToolButton5Click(Sender: TObject);
var
FConMainId, FMPRTCode: string;
i: Integer;
maxno: string;
begin
i := CDS_1.RecordCount + 1;
try
frmTradeSalesContractGCSel := TfrmTradeSalesContractGCSel.Create(Application);
with frmTradeSalesContractGCSel do
begin
if ShowModal = 1 then
begin
while CDS_1.locate('SSel', true, []) do
begin
if self.CDS_1.locate('ConSId', trim(CDS_1.Fieldbyname('ConSId').AsString), []) then
begin
CDS_1.Edit;
CDS_1.fieldbyname('SSel').value := false;
continue;
end;
if GetLSNo(ADOCmd, maxno, 'PS', 'Pur_ClothPlan_Sub', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
// self.BuyName.Properties.LookupItems.Text := Trim(frmTradeSalesContractGCSel.CDS_1.fieldbyname('Sellno').AsString);
// self.BuyName.Text := Trim(frmTradeSalesContractGCSel.CDS_1.fieldbyname('Sellname').AsString);
with self.CDS_1 do
begin
Append;
FieldByName('SSEL').Value := False;
FieldByName('SerialNo').Value := i;
FieldByName('PurSId').Value := maxno + INTTOSTR(i);
Fieldbyname('C_Degree').value := frmTradeSalesContractGCSel.CDS_1.Fieldbyname('PurchaseType').Value;
Fieldbyname('SerialNo').value := trim(frmTradeSalesContractGCSel.CDS_1.Fieldbyname('SerialNo').AsString);
Fieldbyname('ConNo').value := frmTradeSalesContractGCSel.CDS_1.Fieldbyname('ConNo').Value;
Fieldbyname('C_Name').value := frmTradeSalesContractGCSel.CDS_1.Fieldbyname('C_Name').Value;
Fieldbyname('C_Spec').value := frmTradeSalesContractGCSel.CDS_1.Fieldbyname('C_Spec').Value;
Fieldbyname('C_Composition').value := frmTradeSalesContractGCSel.CDS_1.Fieldbyname('C_Composition').Value;
Fieldbyname('C_Width').value := frmTradeSalesContractGCSel.CDS_1.Fieldbyname('C_Width').Value;
Fieldbyname('C_GramWeight').value := frmTradeSalesContractGCSel.CDS_1.Fieldbyname('C_GramWeight').Value;
Fieldbyname('GC_Name').value := frmTradeSalesContractGCSel.CDS_1.Fieldbyname('GC_Name').Value;
Fieldbyname('CraftCode').value := frmTradeSalesContractGCSel.CDS_1.Fieldbyname('CraftCode').Value;
Fieldbyname('CraftName').value := frmTradeSalesContractGCSel.CDS_1.Fieldbyname('CraftName').Value;
Fieldbyname('C_Code').value := frmTradeSalesContractGCSel.CDS_1.Fieldbyname('C_Code').Value;
Fieldbyname('ConNo').value := trim(frmTradeSalesContractGCSel.CDS_1.Fieldbyname('ConNo').AsString);
Fieldbyname('ConMId').value := trim(frmTradeSalesContractGCSel.CDS_1.Fieldbyname('ConMId').AsString);
Fieldbyname('ConSId').value := trim(frmTradeSalesContractGCSel.CDS_1.Fieldbyname('ConSId').AsString);
Fieldbyname('C_ColorNo').value := trim(frmTradeSalesContractGCSel.CDS_1.Fieldbyname('C_ColorNo').AsString);
Fieldbyname('C_Color').value := trim(frmTradeSalesContractGCSel.CDS_1.Fieldbyname('C_Color').AsString);
Fieldbyname('C_Pattern').value := trim(frmTradeSalesContractGCSel.CDS_1.Fieldbyname('C_Pattern').AsString);
Fieldbyname('C_ColorConfirm').value := trim(frmTradeSalesContractGCSel.CDS_1.Fieldbyname('C_ColorConfirm').AsString);
Fieldbyname('OrgQty').value := frmTradeSalesContractGCSel.CDS_1.Fieldbyname('ConQty').AsFloat;
Fieldbyname('QtyUnit').value := frmTradeSalesContractGCSel.CDS_1.Fieldbyname('ConUnit').Value;
Fieldbyname('BuyName').value := trim(frmTradeSalesContractGCSel.CDS_1.Fieldbyname('BuyName').AsString);
Fieldbyname('TallyId').value := trim(frmTradeSalesContractGCSel.CDS_1.Fieldbyname('TallyId').AsString);
Fieldbyname('Tallyer').value := trim(frmTradeSalesContractGCSel.CDS_1.Fieldbyname('Tallyer').AsString);
Fieldbyname('SalesId').value := trim(frmTradeSalesContractGCSel.CDS_1.Fieldbyname('SalesId').AsString);
Fieldbyname('Saleser').value := trim(frmTradeSalesContractGCSel.CDS_1.Fieldbyname('Saleser').AsString);
Post;
end;
i := i + 1;
CDS_1.Edit;
CDS_1.fieldbyname('SSel').value := false;
end;
end;
end;
finally
frmTradeSalesContractGCSel.Free;
end;
SetXH();
end;
procedure TfrmClothPurchasePlanPut.ToolButton6Click(Sender: TObject);
var
FConMainId, FMPRTCode: string;
i: Integer;
maxno: string;
begin
i := CDS_1.RecordCount + 1;
try
frmTradeSalesContractBCSel := TfrmTradeSalesContractBCSel.Create(Application);
with frmTradeSalesContractBCSel do
begin
// fconNo := self.ConNo.Text;
// fC_Code := self.C_Code.Text;
if ShowModal = 1 then
begin
while CDS_1.locate('SSel', true, []) do
begin
if self.CDS_1.locate('ConSId', trim(CDS_1.Fieldbyname('ConSId').AsString), []) then
begin
CDS_1.Edit;
CDS_1.fieldbyname('SSel').value := false;
continue;
end;
if GetLSNo(ADOCmd, maxno, 'PS', 'Pur_ClothPlan_Sub', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
// self.BuyName.Properties.LookupItems.Text := Trim(frmTradeSalesContractBCSel.CDS_1.fieldbyname('Sellno').AsString);
// self.BuyName.Text := Trim(frmTradeSalesContractBCSel.CDS_1.fieldbyname('Sellname').AsString);
with self.CDS_1 do
begin
Append;
FieldByName('SSEL').Value := False;
FieldByName('SerialNo').Value := i;
FieldByName('PurSId').Value := maxno + INTTOSTR(i);
Fieldbyname('C_Degree').value := '<27>ײ<EFBFBD>';
Fieldbyname('SerialNo').value := trim(frmTradeSalesContractBCSel.CDS_1.Fieldbyname('SerialNo').AsString);
Fieldbyname('ConNo').value := frmTradeSalesContractBCSel.CDS_1.Fieldbyname('ConNo').Value;
Fieldbyname('C_Name').value := frmTradeSalesContractBCSel.CDS_1.Fieldbyname('C_Name').Value;
Fieldbyname('C_Spec').value := frmTradeSalesContractBCSel.CDS_1.Fieldbyname('C_Spec').Value;
Fieldbyname('C_Composition').value := frmTradeSalesContractBCSel.CDS_1.Fieldbyname('C_Composition').Value;
Fieldbyname('C_Width').value := frmTradeSalesContractBCSel.CDS_1.Fieldbyname('C_Width').Value;
Fieldbyname('C_GramWeight').value := frmTradeSalesContractBCSel.CDS_1.Fieldbyname('C_GramWeight').Value;
Fieldbyname('GC_Name').value := frmTradeSalesContractBCSel.CDS_1.Fieldbyname('GC_Name').Value;
Fieldbyname('CraftCode').value := frmTradeSalesContractBCSel.CDS_1.Fieldbyname('CraftCode').Value;
Fieldbyname('CraftName').value := frmTradeSalesContractBCSel.CDS_1.Fieldbyname('CraftName').Value;
Fieldbyname('C_Code').value := frmTradeSalesContractBCSel.CDS_1.Fieldbyname('C_Code').Value;
Fieldbyname('ConNo').value := trim(frmTradeSalesContractBCSel.CDS_1.Fieldbyname('ConNo').AsString);
Fieldbyname('ConMId').value := trim(frmTradeSalesContractBCSel.CDS_1.Fieldbyname('ConMId').AsString);
Fieldbyname('ConSId').value := trim(frmTradeSalesContractBCSel.CDS_1.Fieldbyname('ConSId').AsString);
Fieldbyname('C_ColorNo').value := trim(frmTradeSalesContractBCSel.CDS_1.Fieldbyname('C_ColorNo').AsString);
Fieldbyname('C_Color').value := trim(frmTradeSalesContractBCSel.CDS_1.Fieldbyname('C_Color').AsString);
Fieldbyname('C_Pattern').value := trim(frmTradeSalesContractBCSel.CDS_1.Fieldbyname('C_Pattern').AsString);
Fieldbyname('C_ColorConfirm').value := trim(frmTradeSalesContractBCSel.CDS_1.Fieldbyname('C_ColorConfirm').AsString);
Fieldbyname('OrgQty').value := frmTradeSalesContractBCSel.CDS_1.Fieldbyname('ConQty').AsFloat;
Fieldbyname('QtyUnit').value := frmTradeSalesContractBCSel.CDS_1.Fieldbyname('ConUnit').Value;
Fieldbyname('BuyName').value := trim(frmTradeSalesContractBCSel.CDS_1.Fieldbyname('BuyName').AsString);
Fieldbyname('TallyId').value := trim(frmTradeSalesContractBCSel.CDS_1.Fieldbyname('TallyId').AsString);
Fieldbyname('Tallyer').value := trim(frmTradeSalesContractBCSel.CDS_1.Fieldbyname('Tallyer').AsString);
Fieldbyname('SalesId').value := trim(frmTradeSalesContractBCSel.CDS_1.Fieldbyname('SalesId').AsString);
Fieldbyname('Saleser').value := trim(frmTradeSalesContractBCSel.CDS_1.Fieldbyname('Saleser').AsString);
Post;
end;
i := i + 1;
CDS_1.Edit;
CDS_1.fieldbyname('SSel').value := false;
end;
end;
end;
finally
frmTradeSalesContractBCSel.Free;
end;
SetXH();
end;
procedure TfrmClothPurchasePlanPut.TV1Column8PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
FOrgQty, FShrinkageRate, FQty, FPrice, FAmount: Double; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ۣ<EFBFBD><DBA3><EFBFBD><EFBFBD><EFBFBD>
begin
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_1 do
begin
Edit;
FieldByName(FFieldName).Value := Trim(mvalue);
Post;
FOrgQty := Fieldbyname('OrgQty').AsFloat;
FShrinkageRate := Fieldbyname('ShrinkageRate').AsFloat;
FPrice := Fieldbyname('Price').AsFloat;
end;
FQty := RoundFloat(FOrgQty * (1 + FShrinkageRate / 100), 2);
FAmount := RoundFloat(FQty * FPrice, 2);
with CDS_1 do
begin
Edit;
FieldByName('Qty').Value := FQty;
FieldByName('Amount').Value := FAmount;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
1
2024-07-07 09:35:27 +08:00
procedure TfrmClothPurchasePlanPut.BuyNameBtnUpClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '<27><>˾';
if ShowModal = 1 then
begin
1
2024-07-07 19:26:56 +08:00
self.BuyName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
1
2024-07-07 09:35:27 +08:00
self.BuyName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmClothPurchasePlanPut.v1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'MPRTCodeName';
flagname := '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
1
2024-07-07 19:26:56 +08:00
CDS_1.Edit;
CDS_1.fieldbyname('PRTCodeName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
CDS_1.fieldbyname('PRTCode').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
CDS_1.Post;
1
2024-07-07 09:35:27 +08:00
end;
end;
finally
frmZDYHelp.Free;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmClothPurchasePlanPut.v1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'C_MF';
flagname := '<27>ŷ<EFBFBD><C5B7><EFBFBD>Ϣ';
if ShowModal = 1 then
begin
1
2024-07-07 19:26:56 +08:00
CDS_1.Edit;
CDS_1.fieldbyname('C_MF').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
// CDS_1.fieldbyname('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
CDS_1.Post;
1
2024-07-07 09:35:27 +08:00
end;
end;
finally
frmZDYHelp.Free;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmClothPurchasePlanPut.v1Column7PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'C_KZ';
flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ';
if ShowModal = 1 then
begin
1
2024-07-07 19:26:56 +08:00
CDS_1.Edit;
CDS_1.fieldbyname('C_KZ').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
// CDS_1.fieldbyname('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
CDS_1.Post;
1
2024-07-07 09:35:27 +08:00
end;
end;
finally
frmZDYHelp.Free;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmClothPurchasePlanPut.v1Column10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
MCYNo: string;
begin
frmClothInfoSel := TfrmClothInfoSel.Create(self);
with frmClothInfoSel do
begin
if showmodal = 1 then
begin
1
2024-07-07 19:26:56 +08:00
CDS_1.Edit;
CDS_1.fieldbyname('C_Code').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Code').asstring;
CDS_1.fieldbyname('C_Name').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Name').asstring;
CDS_1.fieldbyname('C_EName').Value := frmClothInfoSel.CDS_1.fieldbyname('C_EName').asstring;
CDS_1.fieldbyname('C_Spec').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Spec').asstring;
CDS_1.fieldbyname('C_Composition').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Composition').asstring;
CDS_1.fieldbyname('C_Color').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Color').asstring;
CDS_1.fieldbyname('C_Width').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Width').asstring;
CDS_1.fieldbyname('C_GramWeight').Value := frmClothInfoSel.CDS_1.fieldbyname('C_GramWeight').asstring;
CDS_1.Post;
1
2024-07-07 09:35:27 +08:00
end;
free;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmClothPurchasePlanPut.SalesmanBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmClothPurchasePlanPut.v1Column15PropertiesEditValueChanged(Sender: TObject);
var
mvalue: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
1
2024-07-07 19:26:56 +08:00
with CDS_1 do
1
2024-07-07 09:35:27 +08:00
begin
Edit;
FieldByName('YongJinPrice').Value := mvalue;
FieldByName('YongJin').Value := FieldByName('YongJinPrice').AsFloat * FieldByName('PRTOrderQty').AsFloat;
Post;
end;
end;
procedure TfrmClothPurchasePlanPut.SellNameBtnUpClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '<27><>Ӧ<EFBFBD><D3A6>';
if ShowModal = 1 then
begin
1
2024-07-07 19:26:56 +08:00
self.Sellname.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
1
2024-07-07 09:35:27 +08:00
self.Sellname.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
1
2024-07-07 19:26:56 +08:00
procedure TfrmClothPurchasePlanPut.SellnamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '<27><>Ӧ<EFBFBD><D3A6>';
if ShowModal = 1 then
begin
self.Sellname.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.Sellname.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
self.SellRepresentative.Text := Trim(frmCompanySel.CDS_1.fieldbyname('Contacts').AsString);
self.SellTel.Text := Trim(frmCompanySel.CDS_1.fieldbyname('Telephone').AsString);
self.SellAddress.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAddress').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
1
2024-07-07 09:35:27 +08:00
end.
Reference in New Issue Copy Permalink