Group_01/D7wmoukai
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
451d1bbba9
D7wmoukai/贸易管理(TradeManage.dll)/U_OrderInPut.pas

2624 lines
70 KiB
ObjectPascal
Raw Normal View History

~
2025-07-19 17:24:07 +08:00
unit U_OrderInPut;
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,
cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Common, RM_Preview,
RM_System, RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator;
type
TfrmOrderInPut = class(TForm)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ScrollBox1: TScrollBox;
Label1: TLabel;
OrderNo: TEdit;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
v1PRTColor: TcxGridDBColumn;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
DataSource1: TDataSource;
Order_Sub: TClientDataSet;
ADOQuery1: TADOQuery;
v1PRTOrderQty: TcxGridDBColumn;
Label10: TLabel;
v1OrderUnit: TcxGridDBColumn;
v1SOrddefstr2: TcxGridDBColumn;
ToolButton3: TToolButton;
Label3: TLabel;
Label14: TLabel;
Label12: TLabel;
Label13: TLabel;
OrdDate: TDateTimePicker;
CustomerNoName: TBtnEditC;
MPRTMF: TBtnEditC;
MPRTKZ: TBtnEditC;
Label2: TLabel;
MPRTCodeName: TBtnEditC;
Label6: TLabel;
MPRTSpec: TBtnEditC;
Label5: TLabel;
MPRTDuiSeGY: TBtnEditC;
Label11: TLabel;
MPRTSL: TBtnEditC;
Label9: TLabel;
MPRTNiuDu: TBtnEditC;
Label8: TLabel;
MPRTPH: TBtnEditC;
Label15: TLabel;
HZLFactory: TBtnEditC;
Label16: TLabel;
PBFactory: TBtnEditC;
Label17: TLabel;
YCLFactory: TBtnEditC;
Label18: TLabel;
MPRTZHName: TEdit;
Label20: TLabel;
Label21: TLabel;
MPRTChuanY: TBtnEditC;
Label22: TLabel;
MPRTYaoFeng: TBtnEditC;
MPRTJiBenNote: TBtnEditC;
Label24: TLabel;
MPRTTeBieNote: TBtnEditC;
Label25: TLabel;
DLYDate: TDateTimePicker;
Label26: TLabel;
MPRTCode: TBtnEditC;
Label27: TLabel;
MPRTQtyNote: TBtnEditC;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
MPRTColorLaoDu1: TBtnEditC;
MPRTColorLaoDu2: TBtnEditC;
MPRTColorLaoDu3: TBtnEditC;
MPRTColorLaoDu4: TBtnEditC;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
MPRTKQiQiu: TBtnEditC;
MPRTDingPoLv: TBtnEditC;
MPRTZuRanXing: TBtnEditC;
Label35: TLabel;
MPRTKuanNO: TBtnEditC;
Label38: TLabel;
MPRTTangJin: TBtnEditC;
Label39: TLabel;
OrdDefDate1: TDateTimePicker;
Label40: TLabel;
OrdDefDate2: TDateTimePicker;
Label43: TLabel;
OrdPerson2: TBtnEditC;
Label44: TLabel;
SYRName: TBtnEditC;
CPCFBi: TEdit;
Label45: TLabel;
v1Column1: TcxGridDBColumn;
orddefstr1: TBtnEditC;
Label47: TLabel;
orddefstr2: TEdit;
orddefstr3: TEdit;
Label48: TLabel;
v1Column5: TcxGridDBColumn;
Label50: TLabel;
Label51: TLabel;
OrdDefDate3: TDateTimePicker;
OrdDefDate4: TDateTimePicker;
cxGrid4: TcxGrid;
TV4: TcxGridDBTableView;
V4Column1: TcxGridDBColumn;
cxGrid4Level1: TcxGridLevel;
CDS_CON: TClientDataSet;
DSCON: TDataSource;
JGType: TBtnEditC;
Label53: TLabel;
v1Column8: TcxGridDBColumn;
orddefstr4: TBtnEditC;
Label54: TLabel;
orddefstr5: TBtnEditC;
Label55: TLabel;
orddefstr6: TBtnEditC;
Label56: TLabel;
orddefstr7: TBtnEditC;
Label57: TLabel;
v1Column10: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
cxGridPopupMenu1: TcxGridPopupMenu;
orddefstr8: TBtnEditC;
Label59: TLabel;
orddefstr9: TBtnEditC;
Label58: TLabel;
v1Column2: TcxGridDBColumn;
MPRTCF: TBtnEditC;
Label60: TLabel;
Orddefnote4: TBtnEditC;
Label61: TLabel;
Orddefnote5: TBtnEditC;
Label62: TLabel;
Orddefnote6: TBtnEditC;
Label63: TLabel;
Orddefnote7: TBtnEditC;
Label64: TLabel;
Label65: TLabel;
JXSL: TBtnEditC;
Label66: TLabel;
WXSL: TBtnEditC;
v1Column4: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
ToolButton4: TToolButton;
Panel1: TPanel;
GroupBox1: TGroupBox;
Label23: TLabel;
Label42: TLabel;
Label46: TLabel;
Label49: TLabel;
PBSCNOTE: TMemo;
PBNOTE: TMemo;
PBGD: TBtnEditC;
PBGC: TBtnEditC;
GroupBox4: TGroupBox;
Label71: TLabel;
Label72: TLabel;
Label73: TLabel;
Label74: TLabel;
Label70: TLabel;
HGYSCNOTE1: TMemo;
HGYNOTE1: TMemo;
HGYGD1: TBtnEditC;
HGYGC1: TBtnEditC;
HGY1: TBtnEditC;
GroupBox2: TGroupBox;
Label4: TLabel;
Label36: TLabel;
Label37: TLabel;
Label41: TLabel;
Label7: TLabel;
RSSCNOTE: TMemo;
RSNOTE: TMemo;
RSGD: TBtnEditC;
RSGC: TBtnEditC;
RSPW: TBtnEditC;
GroupBox5: TGroupBox;
Label76: TLabel;
Label77: TLabel;
Label78: TLabel;
Label79: TLabel;
Label80: TLabel;
HGYSCNOTE2: TMemo;
HGYNOTE2: TMemo;
HGYGD2: TBtnEditC;
HGYGC2: TBtnEditC;
HGY2: TBtnEditC;
GroupBox6: TGroupBox;
Label81: TLabel;
Label82: TLabel;
Label85: TLabel;
Label75: TLabel;
Label83: TLabel;
JYSCNOTE: TMemo;
JYNOTE: TMemo;
JYLD: TBtnEditC;
JYBZNOTE: TMemo;
JYGD: TBtnEditC;
GroupBox3: TGroupBox;
Label52: TLabel;
Label67: TLabel;
Label68: TLabel;
Label69: TLabel;
YHSCNOTE: TMemo;
YHNOTE: TMemo;
YHGD: TBtnEditC;
YHGC: TBtnEditC;
ToolButton5: TToolButton;
PBLEVEL: TEdit;
Label19: TLabel;
RMPreview1: TRMPreview;
ADOQueryLabel: TClientDataSet;
RMGridReport1: TRMGridReport;
LBName: TEdit;
Label84: TLabel;
NLBName: TEdit;
Label86: TLabel;
OpenDialog1: TOpenDialog;
ADOQueryLabel10: TADOQuery;
OrdPerson5: TBtnEditC;
Label87: TLabel;
ComboBox1: TComboBox;
Label88: TLabel;
JYFHNOTE: TMemo;
Tv1Column1: TcxGridDBColumn;
Label89: TLabel;
PRTBNote: TMemo;
Label90: TLabel;
JGFactoryName: TBtnEditC;
Label91: TLabel;
PIbuType: TBtnEditC;
Label92: TLabel;
PIbuqty: TEdit;
Label93: TLabel;
PBsh: TEdit;
ConNo: TBtnEditC;
Label94: TLabel;
JIxing: TEdit;
Label95: TLabel;
PIchang: TEdit;
Label96: TLabel;
CFbili: TEdit;
ToolButton6: TToolButton;
CDS_PB: TClientDataSet;
DSPB: TDataSource;
Panel2: TPanel;
cxGrid2: TcxGrid;
Tv6: TcxGridDBTableView;
Tv6Column1: TcxGridDBColumn;
Tv6Column2: TcxGridDBColumn;
Tv6Column3: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
ToolBar3: TToolBar;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
TV4Column1: TcxGridDBColumn;
Label97: TLabel;
PIbuZl: TEdit;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Label98: TLabel;
CZZxs: TEdit;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure v1PRTColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure RanFactoryBtnUpClick(Sender: TObject);
procedure CustomerNoNameBtnUpClick(Sender: TObject);
procedure CustomerNoNameBtnDnClick(Sender: TObject);
procedure MPRTCodeNameBtnUpClick(Sender: TObject);
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure OrdDefStr2BtnUpClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure YCLFactoryBtnUpClick(Sender: TObject);
procedure MPRTSCTeBieNoteBtnUpClick(Sender: TObject);
procedure SYRNameBtnUpClick(Sender: TObject);
procedure MPRTBZNoteDblClick(Sender: TObject);
procedure PBSCNOTEDblClick(Sender: TObject);
procedure ConNoChange(Sender: TObject);
procedure TV4DblClick(Sender: TObject);
procedure v1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure MPRTCodeBtnUpClick(Sender: TObject);
procedure RSGCBtnUpClick(Sender: TObject);
procedure YHGCBtnUpClick(Sender: TObject);
procedure HGYGC1BtnUpClick(Sender: TObject);
procedure HGYGC2BtnUpClick(Sender: TObject);
procedure RSSCNOTEDblClick(Sender: TObject);
procedure YHSCNOTEDblClick(Sender: TObject);
procedure HGYSCNOTE1DblClick(Sender: TObject);
procedure HGYSCNOTE2DblClick(Sender: TObject);
procedure JYSCNOTEDblClick(Sender: TObject);
procedure JYBZNOTEDblClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure PBNOTEDblClick(Sender: TObject);
procedure RSNOTEDblClick(Sender: TObject);
procedure YHNOTEDblClick(Sender: TObject);
procedure HGYNOTE1DblClick(Sender: TObject);
procedure HGYNOTE2DblClick(Sender: TObject);
procedure JYNOTEDblClick(Sender: TObject);
procedure LBNameDblClick(Sender: TObject);
procedure NLBNameDblClick(Sender: TObject);
procedure LBNameClick(Sender: TObject);
procedure NLBNameClick(Sender: TObject);
procedure Label84MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure Label86MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure Label84MouseLeave(Sender: TObject);
procedure Label86MouseLeave(Sender: TObject);
procedure ScrollBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure NLBNameMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure LBNameMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure ComboBox1Change(Sender: TObject);
procedure JYFHNOTEDblClick(Sender: TObject);
procedure JGFactoryNameBtnUpClick(Sender: TObject);
procedure ConNoBtnDnClick(Sender: TObject);
procedure ConNoBtnUpClick(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure Tv1Column3PropertiesEditValueChanged(Sender: TObject);
procedure ConNoKeyPress(Sender: TObject; var Key: Char);
procedure CZZxsChange(Sender: TObject);
private
procedure CJEWM();
procedure InitData();
procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
function SaveData(): Boolean;
function getOrderNo(fconNo: string): string;
function getOrderNoSO(fconNo: string): string;
procedure OpenLabel();
{ Private declarations }
public
PState, CopyInt, PriceFlag: Integer;
FMainId, FFMainId, FOrderNo: string;
FXS: Integer;
canshu1: string;
fFlileFlag: string;
{ Public declarations }
end;
var
frmOrderInPut: TfrmOrderInPut;
newh: hwnd;
implementation
uses
U_DataLink, U_ZDYHelp, U_Fun, U_ZDYHelpSel, U_ZdyAttachment, U_ZdyAttachGYS,
U_CPManageSel, getpic, U_LabelList;
{$R *.dfm}
function TfrmOrderInPut.getOrderNo(fconNo: string): string;
var
str1: string;
i: integer;
begin
str1 := trim(fconNo);
with ADOTemp do
begin
close;
sql.Clear;
sql.Add('select MainID from JYOrder_Main where orderNo=' + quotedstr(trim(str1)));
open;
end;
if ADOTemp.IsEmpty then //not
begin
if GetLSNo(ADOCmd, str1, '', 'JYOrder_Main', 4, 22) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
// for i := 1 to 99 do
// begin
// str1 := trim(fconNo) + rightstr(inttostr(100 + i), 2);
// with ADOCmd do
// begin
// close;
// sql.Clear;
// sql.Add('select MainID from JYOrder_Main where orderNo=' + quotedstr(trim(str1)));
// open;
// end;
// if ADOCmd.IsEmpty then
// break;
// end;
end;
result := str1;
end;
function TfrmOrderInPut.getOrderNoSO(fconNo: string): string;
var
str1: string;
i: integer;
begin
str1 := trim(fconNo);
with ADOTemp do
begin
close;
sql.Clear;
sql.Add('select MainID from JYOrder_Main where orderNo=' + quotedstr(trim(str1)));
open;
end;
if ADOTemp.IsEmpty then //not
begin
if GetLSNo(ADOCmd, str1, '', 'JYOrder_Main', 4, 11) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
end;
result := str1;
end;
procedure TfrmOrderInPut.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('ָʾ<D6B8><CABE>¼<EFBFBD><C2BC>AA', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure TfrmOrderInPut.InitData();
begin
OrdDate.DateTime := SGetServerDateTime(ADOTemp);
DlyDate.DateTime := OrdDate.DateTime;
OrdDefDate1.DateTime := OrdDate.DateTime;
OrdDefDate2.DateTime := OrdDate.DateTime;
OrdDefDate3.DateTime := OrdDate.DateTime;
OrdDefDate4.DateTime := OrdDate.DateTime;
with ADOQuery1 do
begin
Close;
SQL.Clear;
sql.Add(' select * from JYOrder_Sub where 1=1 ');
//sql.Add('exec P_View_OrderSub :begdate,:enddate,:WSQl');
//Parameters.ParamByName('begdate').Value:='2010-10-10';
// Parameters.ParamByName('enddate').Value:='2050-12-24';
if PState = 1 then
begin
sql.Add(' and MainId=''' + Trim(FMainId) + '''');
end;
if PState = 0 then
begin
sql.Add(' and 1<>1');
end;
//ShowMessage(SQL.Text);
Open;
end;
SCreateCDS20(ADOQuery1, Order_Sub);
SInitCDSData20(ADOQuery1, Order_Sub);
with ADOQuery1 do
begin
Close;
SQL.Clear;
sql.Add(' select * from JYOrder_PB where 1=1 ');
if PState = 1 then
begin
sql.Add(' and MainId=''' + Trim(FMainId) + '''');
end;
if PState = 0 then
begin
sql.Add(' and 1<>1');
end;
//ShowMessage(SQL.Text);
Open;
end;
SCreateCDS20(ADOQuery1, CDS_PB);
SInitCDSData20(ADOQuery1, CDS_PB);
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrder_Main where MainId=''' + Trim(FMainId) + '''');
Open;
end;
conno.OnChange := nil;
SCSHDataNew(ADOQuery1, ScrollBox1, 2);
SCSHDataNew(ADOQuery1, GroupBox1, 2);
SCSHDataNew(ADOQuery1, GroupBox2, 2);
SCSHDataNew(ADOQuery1, GroupBox3, 2);
SCSHDataNew(ADOQuery1, GroupBox4, 2);
SCSHDataNew(ADOQuery1, GroupBox5, 2);
SCSHDataNew(ADOQuery1, GroupBox6, 2);
conno.OnChange := ConNoChange;
if trim(DdataBase) = '<27><>ѯ' then
begin
CustomerNoName.Text := '';
end;
if PState = 0 then
begin
OrdDate.DateTime := SGetServerDateTime(ADOTemp);
DlyDate.DateTime := OrdDate.DateTime;
OrdDefDate1.DateTime := OrdDate.DateTime;
OrdDefDate2.DateTime := OrdDate.DateTime;
OrdDefDate3.DateTime := OrdDate.DateTime;
OrdDefDate4.DateTime := OrdDate.DateTime;
end
else
begin
end;
if CopyInt = 99 then
begin
PState := 0;
FMainId := '';
OrderNo.Text := '';
with Order_Sub do
begin
First;
while not Eof do
begin
Edit;
FieldByName('MainId').Value := '';
FieldByName('SubId').Value := '';
FieldByName('hxFile').Value := '';
Post;
Next;
end;
end;
end;
if LBName.Text = '' then
exit;
with ADOQueryLabel10 do
begin
Close;
SQL.Clear;
sql.Add('select * from P_Label');
sql.Add('where valid=''Y''');
sql.Add(' and LabelCaption=''' + lbname.Text + '''');
Open;
end;
with RMGridReport1 do
begin
LoadFromBlobField(tblobfield(ADOQueryLabel10.fieldbyname('labelFile')));
//Preview :=RMPreview1;
ShowReport;
end;
RMPreview1.Visible := True;
end;
procedure TfrmOrderInPut.ZDYHelp(FButn: TcxButtonEdit; LType: string);
var
FType, ZDYName, FText: string;
begin
end;
procedure TfrmOrderInPut.FormShow(Sender: TObject);
begin
readCxGrid('ָʾ<D6B8><CABE>¼<EFBFBD><C2BC>AA', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
{if PriceFlag=99 then
begin
v1PRTPrice.Visible:=False;
v1PRTPrice.Hidden:=True;
end;}
OrderNo.Text := '';
if PState = 1 then
begin
// Label46.Visible:=true;
// orddefnote1.Visible:=true;
// Label49.Visible:=true;
// EditCnt.Visible:=true;
end;
fFlileFlag := UserDataFlag + 'HX';
ConNo.Enabled := True;
InitData();
end;
function TfrmOrderInPut.SaveData(): Boolean;
var
maxno, Smaxno, PBmaxno: string;
begin
try
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if Trim(FMainId) = '' then
begin
if GetLSNo(ADOCmd, maxno, 'JM', 'JYOrder_Main', 3, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
if ComboBox1.ItemIndex = 0 then
begin
OrderNo.Text := 'OK' + getOrderNo(trim(OrderNo.Text));
end;
if ComboBox1.ItemIndex = 1 then
begin
OrderNo.Text := 'OKP' + getOrderNo(trim(OrderNo.Text));
end;
if ComboBox1.ItemIndex = 2 then
begin
OrderNo.Text := 'OKB' + getOrderNo(trim(OrderNo.Text));
end;
if ComboBox1.ItemIndex = 3 then
begin
OrderNo.Text := 'SO' + getOrderNoSO(trim(OrderNo.Text));
end;
end
else
begin
maxno := Trim(FMainId);
end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from JYOrder_Main where MainId=''' + Trim(FMainId) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(FMainId) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('MainId').Value := Trim(maxno);
FieldByName('ordertype').Value := Trim(ComboBox1.Text);
SSetsaveSqlNew(ADOCmd, 'JYOrder_Main', ScrollBox1, 2);
FieldByName('conno').Value := Trim(ConNo.Text);
FieldByName('PBLEVEL').Value := Trim(PBLEVEL.Text);
FieldByName('PBSCNOTE').Value := Trim(PBSCNOTE.Text);
FieldByName('PBNOTE').Value := Trim(PBNOTE.Text);
FieldByName('PBGD').Value := Trim(PBGD.Text);
FieldByName('PBGC').Value := Trim(PBGC.Text);
FieldByName('PIbuqty').Value := StrToFloatDef(Trim(PIbuqty.Text), 0);
FieldByName('PBsh').Value := StrToFloatDef(Trim(PBsh.Text), 0);
FieldByName('Orddefstr15').Value := '';
SSetsaveSqlNew(ADOCmd, 'JYOrder_Main', GroupBox2, 2);
SSetsaveSqlNew(ADOCmd, 'JYOrder_Main', GroupBox3, 2);
SSetsaveSqlNew(ADOCmd, 'JYOrder_Main', GroupBox4, 2);
SSetsaveSqlNew(ADOCmd, 'JYOrder_Main', GroupBox5, 2);
SSetsaveSqlNew(ADOCmd, 'JYOrder_Main', GroupBox6, 2);
if Trim(FMainId) = '' then
begin
FieldByName('Filler').Value := Trim(DName);
end
else
begin
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
Post;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrder_Main where orderno=''' + Trim(OrderNo.Text) + '''');
Open;
end;
if ADOCmd.RecordCount > 1 then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
///<2F><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>
with Order_Sub do
begin
First;
while not Eof do
begin
if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then
begin
if GetLSNo(ADOCmd, Smaxno, 'JS', 'JYOrder_Sub', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
Smaxno := Trim(Order_Sub.fieldbyname('SubId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from JYOrder_Sub where MainId=''' + Trim(maxno) + '''');
sql.Add(' and SubId=''' + Trim(Smaxno) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(Order_Sub.fieldbyname('SubId').AsString) = '' then
Append
else
Edit;
FieldByName('MainId').Value := Trim(maxno);
FieldByName('SubId').Value := Trim(Smaxno);
RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'JYOrder_Sub', 0);
FieldByName('Sorddefstr10').Value := Order_Sub.FieldByName('Sorddefstr10').AsString;
fieldbyname('PRTPrice').Value := Order_Sub.FieldByName('PRTPrice').AsFloat;
fieldbyname('priceUnit').Value := Order_Sub.FieldByName('priceUnit').AsString;
fieldbyname('PRTOrderQty').Value := Order_Sub.FieldByName('PRTOrderQty').AsFloat;
fieldbyname('huilv').Value := Order_Sub.FieldByName('huilv').AsFloat;
fieldbyname('SordQty1').Value := Order_Sub.FieldByName('SordQty1').AsFloat;
fieldbyname('SordQty2').Value := Order_Sub.FieldByName('SordQty2').AsFloat;
FieldByName('OrderNo').Value := Trim(orderNo.Text);
Post;
end;
Order_Sub.Edit;
Order_Sub.FieldByName('SubId').Value := Trim(Smaxno);
Order_Sub.FieldByName('Mainid').Value := Trim(maxno);
CJEWM();
CJEWM();
Next;
end;
//<2F><><EFBFBD><EFBFBD>ɴ֧
with CDS_PB do
begin
First;
while not Eof do
begin
if Trim(CDS_PB.fieldbyname('PbId').AsString) = '' then
begin
if GetLSNo(ADOCmd, PBmaxno, 'PB', 'JYOrder_PB', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
PBmaxno := Trim(CDS_PB.fieldbyname('PbId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from JYOrder_PB where MainId=''' + Trim(maxno) + '''');
sql.Add(' and PbId=''' + Trim(PBmaxno) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(CDS_PB.fieldbyname('PbId').AsString) = '' then
Append
else
Edit;
FieldByName('MainId').Value := Trim(maxno);
FieldByName('PbId').Value := Trim(PBmaxno);
RTSetSaveDataCDS(ADOCmd, Tv6, CDS_PB, 'JYOrder_PB', 0);
// FieldByName('Sorddefstr10').Value := CDS_PB.FieldByName('Sorddefstr10').AsString;
// FieldByName('OrderNo').Value := Trim(orderNo.Text);
Post;
end;
CDS_PB.Edit;
CDS_PB.FieldByName('PbId').Value := Trim(PBmaxno);
CDS_PB.FieldByName('Mainid').Value := Trim(maxno);
Next;
end;
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('update JYOrder_main set PIbuqty=(select sum(PRTOrderQty) from JYOrder_Sub where MainId=''' + Trim(maxno) + ''' )+(pbsh*(select sum(PRTOrderQty) from JYOrder_Sub where MainId=''' + Trim(maxno) + ''')) where MainId=''' + Trim(maxno) + '''');
ExecSQL;
end;
end;
ADOCmd.Connection.CommitTrans;
Result := True;
except
Result := False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
end;
end;
procedure TfrmOrderInPut.TBSaveClick(Sender: TObject);
begin
OrdDate.SetFocus;
// if Trim(OrderNo.Text) = '' then
// begin
// Application.MessageBox('ָʾ<D6B8><CABE><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
if ComboBox1.ItemIndex = 0 then
begin
if Trim(conNo.Text) = '' then
begin
Application.MessageBox('<27><>ͬ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end;
// if Trim(MPRTQtyNote.Text) = '' then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̲<EFBFBD><CCB2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
// if Trim(MPRTCode.Text) = '' then
// begin
// Application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
// if Trim(MPRTCodeName.Text) = '' then
// begin
// Application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
// if Trim(MPRTPH.Text) = '' then
// begin
// Application.MessageBox('PHֵ<48><D6B5><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
// if Trim(MPRTDuiSeGY.Text) = '' then
// begin
// Application.MessageBox('<27><>ɫ<EFBFBD><C9AB>Դ<EFBFBD><D4B4><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
// if Trim(MPRTColorLaoDu1.Text) = '' then
// begin
// Application.MessageBox('ɫ<>ζȲ<CEB6><C8B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
// if Trim(MPRTKQiQiu.Text) = '' then
// begin
// Application.MessageBox('<27><>ë<EFBFBD><C3AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
// if Trim(PBLEVEL.Text) = '' then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD>Ʒ<EFBFBD>ʵȼ<CAB5><C8BC><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
// if Trim(JYBZNOTE.Text) = '' then
// begin
// Application.MessageBox('<27><>װҪ<D7B0><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
// if Trim(JYFHNOTE.Text) = '' then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ<EFBFBD><CABD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
if Order_Sub.IsEmpty then
begin
Application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
// if Trim(OrdPerson1.Text)='' then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD>Ա<EFBFBD><D4B1><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
// Exit;
// end;
// if Trim(conNo.Text) <> '' then
// begin
// with ADOTemp do
// begin
// close;
// sql.Clear;
// sql.Add('select mainID from JYOrdercon_main where conNo=''' + trim(conNo.text) + '''');
// open;
// if IsEmpty then
// begin
// application.MessageBox('<27>˺<EFBFBD>ͬ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD><EFBFBD>ڣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
// exit;
// end;
// end;
// end;
// if PState = 1 then
// begin
// if Trim(OrderNo.Text) <> Trim(FOrderNo) then
// begin
// with ADOTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select * from YF_Money_CR where MainId=''' + Trim(FMainId) + '''');
// Open;
// end;
// if ADOTemp.IsEmpty = False then
// begin
// Application.MessageBox('<27>Ѳ<EFBFBD><D1B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>ܸ<EFBFBD><DCB8>Ķ<EFBFBD><C4B6><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
// end;
// end;
if SaveData() then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
ModalResult := 1;
end;
end;
procedure TfrmOrderInPut.v1PRTColorPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'OrdColor';
flagname := '<27><>ɫ';
V1Name.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
V1Note.Caption := 'Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
fnote := True;
if ShowModal = 1 then
begin
Self.Order_Sub.Edit;
Self.Order_Sub.FieldByName('PRTColor').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
Self.Order_Sub.FieldByName('SOrddefstr4').Value := Trim(ClientDataSet1.fieldbyname('Note').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.ToolButton1Click(Sender: TObject);
var
i: Integer;
begin
// if Trim(OrderNo.Text) = '' then
// begin
// Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
// Exit;
// end;
CopyAddRow(Tv1, Order_Sub);
with Order_Sub do
begin
Edit;
FieldByName('PRTColor').Value := '';
FieldByName('PRTOrderQty').Value := null;
FieldByName('SOrddefstr4').Value := null;
FieldByName('SOrddefstr2').Value := null;
FieldByName('SOrddefstr10').Value := null;
FieldByName('hxFile').Value := '';
Post;
end;
end;
procedure TfrmOrderInPut.ToolButton2Click(Sender: TObject);
begin
if Order_Sub.IsEmpty then
Exit;
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from WFB_MJJY where SubId=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + '''');
Open;
end;
if ADOTemp.IsEmpty = False then
begin
Application.MessageBox('<27>Ѽ<EFBFBD><D1BC>鲻<EFBFBD><E9B2BB>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Trim(Order_Sub.fieldbyname('SubId').AsString) <> '' then
begin
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete JYOrder_Sub where SubId=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + '''');
ExecSQL;
end;
end;
Order_Sub.Delete;
end;
procedure TfrmOrderInPut.RanFactoryBtnUpClick(Sender: TObject);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do
begin
ZdyType.ItemIndex := ZdyType.Items.IndexOf('<27>ӹ<EFBFBD><D3B9><EFBFBD>');
ZdyType.Enabled := false;
if ShowModal = 1 then
begin
PBGC.Text := Trim(CDS_HZ.fieldbyname('Shortened').AsString);
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmOrderInPut.CustomerNoNameBtnUpClick(Sender: TObject);
begin
try
frmZdyAttachment := TfrmZdyAttachment.Create(Application);
with frmZdyAttachment do
begin
fkhType := '';
if self.canshu1 <> '<27><>Ȩ<EFBFBD><C8A8>' then
canshu1 := 'ҵ<><D2B5>Ա';
if ShowModal = 1 then
begin
CustomerNoName.Text := Trim(CDS_HZ.fieldbyname('Shortened').AsString);
CustomerNoName.TxtCode := Trim(CDS_HZ.fieldbyname('ZDYCode').AsString);
end;
end;
finally
frmZdyAttachment.Free;
end;
end;
procedure TfrmOrderInPut.CustomerNoNameBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmOrderInPut.MPRTCodeNameBtnUpClick(Sender: TObject);
begin
frmCPManageSel := TfrmCPManageSel.Create(self);
with frmCPManageSel do
begin
if showmodal = 1 then
begin
MPRTCode.Text := CDS_Main.fieldbyname('CYNo').asstring;
MPRTCodeName.Text := CDS_Main.fieldbyname('CYName').asstring;
MPRTSpec.Text := CDS_Main.fieldbyname('CYSpec').asstring;
MPRTMF.Text := CDS_Main.fieldbyname('CYmf').asstring;
MPRTKZ.Text := CDS_Main.fieldbyname('CYkz').asstring;
end;
free;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmOrderInPut.v1OrderUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
mvalues: string;
begin
mvalues := tv1.Columns[tv1.Controller.FocusedColumn.index].DataBinding.FieldName;
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'OrderUnit';
flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ';
if ShowModal = 1 then
begin
Self.Order_Sub.Edit;
Self.Order_Sub.FieldByName(mvalues).Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.v1PriceUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'PriceUnit';
flagname := '<27>۸<EFBFBD><DBB8><EFBFBD>λ';
if Trim(DParameters1) <> '<27><>Ȩ<EFBFBD><C8A8>' then
begin
TBAdd.Visible := False;
TBEdit.Visible := False;
TBDel.Visible := False;
end;
if ShowModal = 1 then
begin
Self.Order_Sub.Edit;
Self.Order_Sub.FieldByName('PriceUnit').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.OrdDefStr2BtnUpClick(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 Trim(flag) = 'OrdDefStr2' then
begin
V1Name.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
V1Note.Caption := 'Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
fnote := True;
end;
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
if Trim(flag) = 'MPRTCode' then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select Top 1 * from JYOrder_Main where MPRTCode=''' + Trim(ClientDataSet1.fieldbyname('ZDYName').AsString) + '''');
sql.Add(' order by FillTime desc');
Open;
end;
MPRTCodeName.Text := ADOTemp.fieldbyname('MPRTCodeName').AsString;
MPRTMF.Text := ADOTemp.fieldbyname('MPRTMF').AsString;
MPRTKZ.Text := ADOTemp.fieldbyname('MPRTKZ').AsString;
MPRTSpec.Text := ADOTemp.fieldbyname('MPRTSpec').AsString;
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.ToolButton3Click(Sender: TObject);
begin
if Order_Sub.IsEmpty then
Exit;
OneKeyPost(Tv1, Order_Sub);
end;
procedure TfrmOrderInPut.YCLFactoryBtnUpClick(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 TfrmOrderInPut.MPRTSCTeBieNoteBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TEdit(Sender).Text := ReturnStr;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.SYRNameBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'OrdDefStr2';
flagname := '<27><>˾̧ͷ';
V1Name.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
V1Note.Caption := 'Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
fnote := True;
if Trim(DParameters1) <> '<27><>Ȩ<EFBFBD><C8A8>' then
begin
TBAdd.Visible := False;
TBEdit.Visible := false;
TBDel.Visible := false;
TBSave.Visible := false;
end;
if ShowModal = 1 then
begin
SYRName.Text := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmOrderInPut.MPRTBZNoteDblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
// MPRTBZNote.Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
// MPRTBZNote.Lines.Add(inttostr(i)+'.'+FieldByName('ZDYName').AsString)
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.PBSCNOTEDblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
PBSCNOTE.Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
PBSCNOTE.Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString)
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.ConNoChange(Sender: TObject);
var
mvalue: string;
begin
mvalue := Trim(conNO.Text);
if Length(Trim(mvalue)) > 1 then
begin
mvalue := '%' + Trim(mvalue) + '%';
with ADOQuery1 do
begin
Close;
sql.Clear;
SQL.Add('select distinct Fprtcodename=case when (select MPRTType from JYOrderCon_Main X where X.mainid=A.mainid)=''<27><><EFBFBD><EFBFBD>'' then prtcodeCname else prtcodename end');
sql.Add(',A.* from JYOrdercon_Main A inner join JYOrdercon_sub B on B.mainID=A.mainID ');
sql.Add('where status=''1'' and not exists(select Conno from JYOrder_Main X where X.conno=A.conno and X.status=''2'' )');
if Trim(canshu1) = '<27><>Ȩ<EFBFBD><C8A8>' then
sql.Add('and A.ConPerson1=''' + Trim(DName) + ''' or A.Filler=''' + Trim(DName) + '''');
sql.Add('and A.conNO like ' + quotedstr('%' + trim(mvalue) + '%'));
// ShowMessage(sql.text);
Open;
end;
SCreateCDS20(ADOQuery1, CDS_Con);
SInitCDSData20(ADOQuery1, CDS_CON);
// with ADOQuery1 do
// begin
// Close;
// sql.Clear;
// sql.Add('select distinct A.conNO,A.khconNo,B.MainID,B.prtCode,B.PrtCodeName,B.Prtspec,CYName=(select top 1 CYName from CP_YDang X where X.CYName=B.PrtCodeName) ');
// sql.Add('from JYOrdercon_Main A inner join JYOrdercon_sub B on B.mainID=A.mainID');
// sql.Add('where A.conNO like ' + quotedstr('%' + trim(mvalue) + '%'));
// if Trim(canshu1) <> '<27><>Ȩ<EFBFBD><C8A8>' then
// sql.Add('and A.ConPerson1=''' + Trim(DName) + ''' or A.Filler=''' + Trim(DName) + ''' and A.conNO like ' + quotedstr('%' + trim(mvalue) + '%'));
//// ShowMessage(sql.text);
// Open;
// end;
// SCreateCDS20(ADOQuery1, CDS_Con);
// SInitCDSData20(ADOQuery1, CDS_CON);
if CDS_Con.IsEmpty then
cxGrid4.Visible := False
else
cxGrid4.Visible := True;
end;
end;
procedure TfrmOrderInPut.TV4DblClick(Sender: TObject);
begin
conno.OnChange := nil;
Order_Sub.EmptyDataSet;
cxGrid4.Visible := False;
conNo.Text := CDS_CON.fieldbyname('conNO').AsString;
cxGrid4.Visible := False;
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('select * from JYOrderCon_Main where mainID=' + quotedstr(trim(CDS_CON.fieldbyname('mainID').AsString)));
Open;
end;
if not ADOQuery1.IsEmpty then
begin
MPRTZHName.Text := Trim(ADOQuery1.fieldbyname('CPZHName').AsString);
MPRTMF.Text := Trim(ADOQuery1.fieldbyname('MPRTMF').AsString);
MPRTKZ.Text := Trim(ADOQuery1.fieldbyname('MPRTKZ').AsString);
// MPRTChuanY.Text:=Trim(ADOQuery1.fieldbyname('ChuanYangNote').AsString);
MPRTQtyNote.Text := Trim(ADOQuery1.fieldbyname('QtyNote').AsString);
CustomerNoName.Text := Trim(ADOQuery1.fieldbyname('CustomerNoName').AsString);
CustomerNoName.TxtCode := Trim(ADOQuery1.fieldbyname('CustomerNo').AsString);
if trim(ADOQuery1.fieldbyname('DLYDate').AsString) = '' then
DLYDate.Checked := false
else
DLYDate.DateTime := ADOQuery1.fieldbyname('DLYDate').Value;
OrdPerson2.Text := Trim(ADOQuery1.fieldbyname('ConPerson1').AsString);
OrdPerson5.Text := Trim(ADOQuery1.fieldbyname('ConPerson5').AsString);
SYRName.Text := Trim(ADOQuery1.fieldbyname('SYRName').AsString);
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('select A.*,Fprtcodename=case when (select MPRTType from JYOrderCon_Main X where X.mainid=A.mainid)=''<27><><EFBFBD><EFBFBD>'' then prtcodeCname else prtcodename end ');
sql.Add(',ColorName=(select Top 1 ZdyName from KH_Zdy B where B.Note=A.PRTColor and B.Type=''OrdColor'' ) ');
sql.Add(',CYName=(select CYName from CP_YDang X where X.CYNO=A.PrtCode) ');
SQL.Add(' from JYOrderCon_Sub A where mainID=''' + (trim(CDS_CON.fieldbyname('mainID').AsString)) + ''' ');
sql.Add(' and case when (select MPRTType from JYOrderCon_Main X where X.mainid=A.mainid)=''<27><><EFBFBD><EFBFBD>'' then prtcodeCname else prtcodename end=' + quotedstr(trim(CDS_CON.fieldbyname('Fprtcodename').AsString)));
// SQL.Add(' mainID=' + quotedstr(trim(CDS_CON.fieldbyname('mainID').AsString))); prtCode=' + quotedstr(trim(CDS_CON.fieldbyname('prtCode').AsString))
// ShowMessage(SQL.text);
Open;
end;
if not ADOQuery1.IsEmpty then
begin
MPRTCode.Text := Trim(ADOQuery1.fieldbyname('prtcode').AsString);
MPRTCodeName.Text := Trim(ADOQuery1.fieldbyname('Fprtcodename').AsString);
MPRTspec.Text := Trim(ADOQuery1.fieldbyname('PRTspec').AsString);
MPRTMF.Text := Trim(ADOQuery1.fieldbyname('PRTMF').AsString);
MPRTKZ.Text := Trim(ADOQuery1.fieldbyname('PRTKZ').AsString);
MPRTCF.Text := Trim(ADOQuery1.fieldbyname('PRTCF').AsString);
orddefstr8.Text := Trim(ADOQuery1.fieldbyname('SOrdDefStr8').AsString);
end;
with ADOQuery1 do
begin
First;
while not Eof do
begin
with Order_Sub do
begin
Append;
FieldByName('prtkuanNO').Value := Trim(ADOQuery1.fieldbyname('prtkuanNO').AsString);
FieldByName('PRTColor').Value := Trim(ADOQuery1.fieldbyname('PRTColor').AsString);
FieldByName('SOrdDefStr1').Value := Trim(ADOQuery1.fieldbyname('SOrdDefStr1').AsString);
FieldByName('SOrdDefStr4').Value := Trim(ADOQuery1.fieldbyname('SOrdDefStr4').AsString);
FieldByName('SOrdDefStr6').Value := Trim(ADOQuery1.fieldbyname('SOrdDefStr6').AsString);
FieldByName('PRTOrderQty').Value := ADOQuery1.fieldbyname('PRTOrderQty').AsFloat;
FieldByName('BYQTY').Value := ADOQuery1.fieldbyname('Prtzl').AsFloat;
FieldByName('OrderUnit').Value := Trim(ADOQuery1.fieldbyname('OrderUnit').AsString);
FieldByName('PRTPrice').Value := ADOQuery1.fieldbyname('PRTPrice').AsFloat;
FieldByName('huilv').Value := ADOQuery1.fieldbyname('huilv').AsFloat;
FieldByName('PriceUnit').Value := Trim(ADOQuery1.fieldbyname('PriceUnit').AsString);
FieldByName('PRTHX').Value := Trim(ADOQuery1.fieldbyname('PRTHX').AsString);
FieldByName('Sorddefstr10').Value := Trim(ADOQuery1.fieldbyname('SUBID').AsString);
FieldByName('hxFile').Value := '';
FieldByName('PRTpo').Value := Trim(ADOQuery1.fieldbyname('PRTpo').AsString);
Post;
end;
Next;
end;
end;
end;
conno.OnChange := ConNoChange;
end;
procedure TfrmOrderInPut.v1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
FormGetPic := TFormGetPic.create(self);
with FormGetPic do
begin
fFlileFlag := self.fFlileFlag;
fkeyNo := Order_Sub.fieldbyname('HXFile').asstring;
pat1 := 'FileName';
pic1 := 'FilesOther';
FTFType := 'HX';
if showmodal = 1 then
begin
Order_Sub.edit;
Order_Sub.fieldbyname('HXFile').Value := trim(fkeyNo);
end;
free;
end;
end;
procedure TfrmOrderInPut.MPRTCodeBtnUpClick(Sender: TObject);
begin
frmCPManageSel := TfrmCPManageSel.Create(self);
with frmCPManageSel do
begin
if showmodal = 1 then
begin
MPRTCode.Text := CDS_Main.fieldbyname('CYNo').asstring;
MPRTCodeName.Text := CDS_Main.fieldbyname('CYName').asstring;
MPRTSpec.Text := CDS_Main.fieldbyname('CYSpec').asstring;
MPRTMF.Text := CDS_Main.fieldbyname('CYmf').asstring;
MPRTKZ.Text := CDS_Main.fieldbyname('CYkz').asstring;
end;
free;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmOrderInPut.RSGCBtnUpClick(Sender: TObject);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do
begin
ZdyType.ItemIndex := ZdyType.Items.IndexOf('<27>ӹ<EFBFBD><D3B9><EFBFBD>');
ZdyType.Enabled := false;
if ShowModal = 1 then
begin
RSGC.Text := Trim(CDS_HZ.fieldbyname('Shortened').AsString);
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmOrderInPut.YHGCBtnUpClick(Sender: TObject);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do
begin
ZdyType.ItemIndex := ZdyType.Items.IndexOf('<27>ӹ<EFBFBD><D3B9><EFBFBD>');
ZdyType.Enabled := false;
if ShowModal = 1 then
begin
YHGC.Text := Trim(CDS_HZ.fieldbyname('Shortened').AsString);
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmOrderInPut.HGYGC1BtnUpClick(Sender: TObject);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do
begin
ZdyType.ItemIndex := ZdyType.Items.IndexOf('<27>ӹ<EFBFBD><D3B9><EFBFBD>');
ZdyType.Enabled := false;
if ShowModal = 1 then
begin
HGYGC1.Text := Trim(CDS_HZ.fieldbyname('Shortened').AsString);
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmOrderInPut.HGYGC2BtnUpClick(Sender: TObject);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do
begin
ZdyType.ItemIndex := ZdyType.Items.IndexOf('<27>ӹ<EFBFBD><D3B9><EFBFBD>');
ZdyType.Enabled := false;
if ShowModal = 1 then
begin
HGYGC2.Text := Trim(CDS_HZ.fieldbyname('Shortened').AsString);
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmOrderInPut.RSSCNOTEDblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
RSSCNOTE.Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
RSSCNOTE.Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString)
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.YHSCNOTEDblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
YHSCNOTE.Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
YHSCNOTE.Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString)
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.HGYSCNOTE1DblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
HGYSCNOTE1.Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
HGYSCNOTE1.Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString)
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.HGYSCNOTE2DblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
HGYSCNOTE2.Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
HGYSCNOTE2.Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString)
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.JYSCNOTEDblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
JYSCNOTE.Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
JYSCNOTE.Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString)
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.JYBZNOTEDblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
JYBZNOTE.Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
JYBZNOTE.Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString)
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.ToolButton4Click(Sender: TObject);
begin
Panel1.Visible := True;
ToolButton4.Visible := False;
ToolButton5.Visible := True;
end;
procedure TfrmOrderInPut.ToolButton5Click(Sender: TObject);
begin
Panel1.Visible := False;
ToolButton4.Visible := True;
ToolButton5.Visible := False;
end;
procedure TfrmOrderInPut.PBNOTEDblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
PBNOTE.Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
PBNOTE.Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString)
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.RSNOTEDblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
RSNOTE.Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
RSNOTE.Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString)
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.YHNOTEDblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
YHNOTE.Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
YHNOTE.Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString)
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.HGYNOTE1DblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
HGYNOTE1.Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
HGYNOTE1.Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString)
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.HGYNOTE2DblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
HGYNOTE2.Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
HGYNOTE2.Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString)
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.JYNOTEDblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
JYNOTE.Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
JYNOTE.Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString)
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.OpenLabel();
begin
if ADOQueryLabel.IsEmpty then
exit;
with RMGridReport1 do
begin
LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('labelFile')));
//Preview :=RMPreview1;
ShowReport;
end;
end;
procedure TfrmOrderInPut.LBNameDblClick(Sender: TObject);
var
maxno: string;
begin
try
frmLabelList := TfrmLabelList.Create(Application);
with frmLabelList do
begin
if ShowModal = 1 then
begin
Self.LBName.Text := Trim(ADOQueryLabel.fieldbyname('labelCaption').AsString);
end;
end;
finally
frmLabelList.Free;
end;
with ADOQueryLabel10 do
begin
Close;
SQL.Clear;
sql.Add('select * from P_Label');
sql.Add('where valid=''Y''');
sql.Add(' and LabelCaption=''' + trim(lbname.Text) + '''');
Open;
end;
with RMGridReport1 do
begin
LoadFromBlobField(tblobfield(ADOQueryLabel10.fieldbyname('labelFile')));
//Preview :=RMPreview1;
ShowReport;
end;
end;
procedure TfrmOrderInPut.NLBNameDblClick(Sender: TObject);
var
maxno: string;
begin
try
frmLabelList := TfrmLabelList.Create(Application);
with frmLabelList do
begin
if ShowModal = 1 then
begin
Self.NLBName.Text := Trim(ADOQueryLabel.fieldbyname('labelCaption').AsString);
end;
end;
finally
frmLabelList.Free;
end;
with ADOQueryLabel10 do
begin
Close;
SQL.Clear;
sql.Add('select * from P_Label');
sql.Add('where valid=''Y''');
sql.Add(' and LabelCaption=''' + trim(nlbname.Text) + '''');
Open;
end;
with RMGridReport1 do
begin
LoadFromBlobField(tblobfield(ADOQueryLabel10.fieldbyname('labelFile')));
//Preview :=RMPreview1;
ShowReport;
end;
end;
procedure TfrmOrderInPut.LBNameClick(Sender: TObject);
begin
if LBName.Text = '' then
exit;
with ADOQueryLabel10 do
begin
Close;
SQL.Clear;
sql.Add('select * from P_Label');
sql.Add('where valid=''Y''');
sql.Add(' and LabelCaption=''' + lbname.Text + '''');
Open;
end;
with RMGridReport1 do
begin
LoadFromBlobField(tblobfield(ADOQueryLabel10.fieldbyname('labelFile')));
//Preview :=RMPreview1;
ShowReport;
end;
end;
procedure TfrmOrderInPut.NLBNameClick(Sender: TObject);
begin
if NLBName.Text = '' then
exit;
with ADOQueryLabel10 do
begin
Close;
SQL.Clear;
sql.Add('select * from P_Label');
sql.Add('where valid=''Y''');
sql.Add(' and LabelCaption=''' + nlbname.Text + '''');
Open;
end;
with RMGridReport1 do
begin
LoadFromBlobField(tblobfield(ADOQueryLabel10.fieldbyname('labelFile')));
//Preview :=RMPreview1;
ShowReport;
end;
end;
procedure TfrmOrderInPut.Label84MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if LBName.Text = '' then
exit;
with ADOQueryLabel10 do
begin
Close;
SQL.Clear;
sql.Add('select * from P_Label');
sql.Add('where valid=''Y''');
sql.Add(' and LabelCaption=''' + lbname.Text + '''');
Open;
end;
with RMGridReport1 do
begin
LoadFromBlobField(tblobfield(ADOQueryLabel10.fieldbyname('labelFile')));
//Preview :=RMPreview1;
ShowReport;
end;
RMPreview1.Visible := True;
end;
procedure TfrmOrderInPut.Label86MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if NLBName.Text = '' then
exit;
with ADOQueryLabel10 do
begin
Close;
SQL.Clear;
sql.Add('select * from P_Label');
sql.Add('where valid=''Y''');
sql.Add(' and LabelCaption=''' + nlbname.Text + '''');
Open;
end;
with RMGridReport1 do
begin
LoadFromBlobField(tblobfield(ADOQueryLabel10.fieldbyname('labelFile')));
//Preview :=RMPreview1;
ShowReport;
end;
RMPreview1.Visible := True;
end;
procedure TfrmOrderInPut.Label84MouseLeave(Sender: TObject);
begin
RMPreview1.Visible := False;
end;
procedure TfrmOrderInPut.Label86MouseLeave(Sender: TObject);
begin
RMPreview1.Visible := False;
end;
procedure TfrmOrderInPut.ScrollBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
RMPreview1.Visible := False;
end;
procedure TfrmOrderInPut.NLBNameMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if NLBName.Text = '' then
exit;
with ADOQueryLabel10 do
begin
Close;
SQL.Clear;
sql.Add('select * from P_Label');
sql.Add('where valid=''Y''');
sql.Add(' and LabelCaption=''' + nlbname.Text + '''');
Open;
end;
with RMGridReport1 do
begin
LoadFromBlobField(tblobfield(ADOQueryLabel10.fieldbyname('labelFile')));
//Preview :=RMPreview1;
ShowReport;
end;
RMPreview1.Visible := True;
end;
procedure TfrmOrderInPut.LBNameMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if LBName.Text = '' then
exit;
with ADOQueryLabel10 do
begin
Close;
SQL.Clear;
sql.Add('select * from P_Label');
sql.Add('where valid=''Y''');
sql.Add(' and LabelCaption=''' + lbname.Text + '''');
Open;
end;
with RMGridReport1 do
begin
LoadFromBlobField(tblobfield(ADOQueryLabel10.fieldbyname('labelFile')));
//Preview :=RMPreview1;
ShowReport;
end;
RMPreview1.Visible := True;
end;
procedure TfrmOrderInPut.ComboBox1Change(Sender: TObject);
begin
// if ComboBox1.ItemIndex = 0 then
// begin
// ConNo.Enabled := True;
// end
// else if ComboBox1.ItemIndex = 1 then
// begin
// ConNo.Enabled := False;
// end;
end;
procedure TfrmOrderInPut.JYFHNOTEDblClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
i: integer;
begin
fsj := Trim(TMemo(Sender).Hint);
FWZ := Pos('/', fsj);
i := 0;
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
with frmZDYHelpSel do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
JYFHNOTE.Lines.Clear;
with ClientDataSet1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean = True then
begin
i := i + 1;
JYFHNOTE.Lines.Add(inttostr(i) + '.' + FieldByName('ZDYName').AsString)
end;
Next;
end;
end;
end;
end;
finally
frmZDYHelpSel.Free;
end;
end;
procedure TfrmOrderInPut.CJEWM();
var
Txt, fImagePath, maxNo: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
// i: Integer;
begin
// i := Order_Sub.RecordCount;
// i := i + 1;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(order_Sub.fieldbyname('Subid').AsString);
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath) then
DeleteFile(fImagePath);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
with ADOCmd do
begin
Close;
SQL.Clear;
SQL.Add('select * from TP_File ');
sql.Add('where TFID=' + quotedstr(trim(Txt)));
sql.Add('and TFType=''EWM''');
open;
if isempty then
begin
append;
fieldbyname('TFID').Value := trim(Txt);
fieldbyname('WBID').Value := trim(order_Sub.fieldbyname('Mainid').AsString);
fieldbyname('TFType').Value := 'EWM';
fieldbyname('FillTime').Value := SGetServerDateTime(ADOTemp);
tblobfield(FieldByName('Filesother')).LoadFromFile(fImagePath);
post;
end;
end;
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
order_Sub.EnableControls;
exit;
end;
end;
procedure TfrmOrderInPut.JGFactoryNameBtnUpClick(Sender: TObject);
begin
try
frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application);
with frmZdyAttachGYS do
begin
// fkhType := '';
if self.canshu1 <> '<27><>Ȩ<EFBFBD><C8A8>' then
canshu1 := 'ҵ<><D2B5>Ա';
if ShowModal = 1 then
begin
JGFactoryName.Text := Trim(CDS_HZ.fieldbyname('Shortened').AsString);
JGFactoryName.TxtCode := Trim(CDS_HZ.fieldbyname('ZDYCode').AsString);
end;
end;
finally
frmZdyAttachGYS.Free;
end;
end;
procedure TfrmOrderInPut.ConNoBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
cxGrid4.Visible := False;
end;
procedure TfrmOrderInPut.ConNoBtnUpClick(Sender: TObject);
var
mvalue: string;
begin
mvalue := Trim(conNO.Text);
// if Length(Trim(mvalue)) > 1 then
// begin
cxGrid4.Visible := True;
mvalue := '%' + Trim(mvalue) + '%';
with ADOQuery1 do
begin
Close;
sql.Clear;
SQL.Add('select distinct Fprtcodename=case when (select MPRTType from JYOrderCon_Main X where X.mainid=A.mainid)=''<27><><EFBFBD><EFBFBD>'' then prtcodeCname else prtcodename end');
sql.Add(',A.* from JYOrdercon_Main A inner join JYOrdercon_sub B on B.mainID=A.mainID ');
sql.Add('where status=''1'' and not exists(select Conno from JYOrder_Main X where X.conno=A.conno and X.status=''2'' )');
// sql.Add('select distinct A.conNO,A.khconNo,B.MainID,B.prtCode,B.PrtCodeName,B.Prtspec,CYName=(select top 1 CYName from CP_YDang X where X.CYName=B.PrtCodeName) ');
// sql.Add('from JYOrdercon_Main A inner join JYOrdercon_sub B on B.mainID=A.mainID');
// sql.Add('where A.status=''1'' '); //A.conNO like ' + quotedstr('%' + trim(mvalue) + '%' )
if Trim(canshu1) = '<27><>Ȩ<EFBFBD><C8A8>' then
sql.Add('and A.ConPerson1=''' + Trim(DName) + ''' or A.Filler=''' + Trim(DName) + ''''); // and A.conNO like ' + quotedstr('%' + trim(mvalue) + '%
// ShowMessage(sql.text);
Open;
end;
SCreateCDS20(ADOQuery1, CDS_Con);
SInitCDSData20(ADOQuery1, CDS_CON);
// if CDS_Con.IsEmpty then
// cxGrid4.Visible := False
// else
// cxGrid4.Visible := True;
// end;
end;
procedure TfrmOrderInPut.ToolButton7Click(Sender: TObject);
var
i: Integer;
begin
CopyAddRow(Tv6, CDS_PB);
with CDS_PB do
begin
Edit;
FieldByName('SGge').Value := '';
FieldByName('Sbili').Value := '';
FieldByName('SGys').Value := '';
Post;
end;
end;
procedure TfrmOrderInPut.ToolButton8Click(Sender: TObject);
begin
if CDS_PB.IsEmpty then
Exit;
// with ADOTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select * from WFB_MJJY where SubId=''' + Trim(Order_Sub.fieldbyname('SubId').AsString) + '''');
// Open;
// end;
// if ADOTemp.IsEmpty = False then
// begin
// Application.MessageBox('<27>Ѽ<EFBFBD><D1BC>鲻<EFBFBD><E9B2BB>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
if Trim(CDS_PB.fieldbyname('PbId').AsString) <> '' then
begin
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete JYOrder_PB where PbId=''' + Trim(CDS_PB.fieldbyname('PbId').AsString) + '''');
ExecSQL;
end;
end;
CDS_PB.Delete;
end;
procedure TfrmOrderInPut.ToolButton6Click(Sender: TObject);
begin
Panel2.Visible := True;
end;
procedure TfrmOrderInPut.ToolButton10Click(Sender: TObject);
begin
Panel2.Visible := False;
end;
procedure TfrmOrderInPut.Tv1Column3PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
Fzb, FPRTOrderQty, FBYQTY, FPRTPIbuqty, FPRTPIbuZl, Fsh, Fczzxs: Double;
i: Integer;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
FPRTPIbuqty := 0;
FPRTPIbuZl := 0;
if Trim(mvalue) = '' then
begin
mvalue := '0';
end;
Fczzxs := StrToFloatDef(CZZxs.Text, 0);
// if Trim(FFieldName) <> 'Prtzl' then
// begin
// FPrtzl := (FPRTOrderQty) * Fczzxs;
// end;
with Order_Sub do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
FPRTOrderQty := StrToFloatDef(Order_Sub.fieldbyname('PRTOrderQty').AsString, 0);
// FPrtzl := (FPRTOrderQty) * Fczzxs;
if Trim(FFieldName) <> 'Prtzl' then
begin
if Fczzxs = 0 then
begin
end
else
FBYQTY := (FPRTOrderQty) / Fczzxs;
end
else
begin
FBYQTY := StrToFloatDef(Order_Sub.fieldbyname('BYQTY').AsString, 0);
end;
Fsh := StrToFloatDef(Order_Sub.fieldbyname('PRTPBsh').AsString, 0) / 100;
FPRTPIbuqty := StrToFloatDef(Order_Sub.fieldbyname('PRTPIbuqty').AsString, 0);
FPRTPIbuZl := StrToFloatDef(Order_Sub.fieldbyname('PRTPIbuZl').AsString, 0);
end;
if Trim(FFieldName) <> 'PRTPIbuqty' then
begin
FPRTPIbuqty := (FPRTOrderQty) / (1 - Fsh);
end;
if Trim(FFieldName) <> 'PRTPIbuZL' then
begin
FPRTPIbuZl := (FBYQTY) / (1 - Fsh);
end;
with Order_Sub do
begin
Edit;
FieldByName('PRTPIbuqty').Value := FPRTPIbuqty;
FieldByName('PRTPIbuzl').Value := FPRTPIbuZl;
Post;
end;
PIbuqty.Text := FloatToStr(TV1.DataController.Summary.FooterSummaryValues[TV1.DataController.Summary.FooterSummaryItems.IndexOfItemLink(Tv1.GetColumnByFieldName('PRTPIbuqty'))]);
PIbuZl.Text := FloatToStr(TV1.DataController.Summary.FooterSummaryValues[TV1.DataController.Summary.FooterSummaryItems.IndexOfItemLink(Tv1.GetColumnByFieldName('PRTPIbuzl'))]);
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmOrderInPut.ConNoKeyPress(Sender: TObject; var Key: Char);
var
mvalue: string;
begin
mvalue := Trim(conNO.Text);
if Key = #13 then
begin
mvalue := '%' + Trim(mvalue) + '%';
with ADOQuery1 do
begin
Close;
sql.Clear;
SQL.Add('select distinct Fprtcodename=case when (select MPRTType from JYOrderCon_Main X where X.mainid=A.mainid)=''<27><><EFBFBD><EFBFBD>'' then prtcodeCname else prtcodename end');
sql.Add(',A.* from JYOrdercon_Main A inner join JYOrdercon_sub B on B.mainID=A.mainID ');
sql.Add('where status=''1'' and not exists(select Conno from JYOrder_Main X where X.conno=A.conno and X.status=''2'' ) ');
if Trim(canshu1) = '<27><>Ȩ<EFBFBD><C8A8>' then
sql.Add('and A.ConPerson1=''' + Trim(DName) + ''' or A.Filler=''' + Trim(DName) + '''');
sql.Add('and A.conNO like ' + quotedstr('%' + trim(mvalue) + '%'));
// ShowMessage(sql.text);
Open;
end;
SCreateCDS20(ADOQuery1, CDS_Con);
SInitCDSData20(ADOQuery1, CDS_CON);
if CDS_Con.IsEmpty then
cxGrid4.Visible := False
else
cxGrid4.Visible := True;
end;
end;
procedure TfrmOrderInPut.CZZxsChange(Sender: TObject);
var
mvalue, FFieldName: string;
Fczzxs, FPRTOrderQty, FBYQTY: Double;
i: Integer;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
FBYQTY := 0;
with Order_Sub do
begin
First;
while not Eof do
begin
with Order_Sub do
begin
Edit;
Post;
FPRTOrderQty := StrToFloatDef(Order_Sub.fieldbyname('PRTOrderQty').AsString, 0);
FBYQTY := StrToFloatDef(Order_Sub.fieldbyname('BYQTY').AsString, 0);
end;
Fczzxs := StrToFloatDef(CZZxs.Text, 0);
if Trim(FFieldName) <> 'Prtzl' then
begin
if Fczzxs = 0 then
begin
end
else
FBYQTY := (FPRTOrderQty) / Fczzxs;
end;
with Order_Sub do
begin
Edit;
FieldByName('BYQTY').Value := FBYQTY;
Post;
end;
Next;
end;
end;
tv1.Controller.EditingController.ShowEdit();
end;
end.
Reference in New Issue Copy Permalink