Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

修改

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-30 15:36:41 +08:00
parent 2b9e4b0774
commit e04395b1b8
10 changed files with 512 additions and 382 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
云翔一码通/U_KuWeiList.dfm
View File

@ -234,7 +234,7 @@ object frmKuWeiList: TfrmKuWeiList
Left = 53 Left = 53
Top = 12 Top = 12
Width = 60 Width = 60
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -249,7 +249,7 @@ object frmKuWeiList: TfrmKuWeiList
Left = 165 Left = 165
Top = 12 Top = 12
Width = 60 Width = 60
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -264,7 +264,7 @@ object frmKuWeiList: TfrmKuWeiList
Left = 261 Left = 261
Top = 12 Top = 12
Width = 60 Width = 60
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -279,7 +279,7 @@ object frmKuWeiList: TfrmKuWeiList
Left = 497 Left = 497
Top = 12 Top = 12
Width = 152 Width = 152
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15
@ -294,7 +294,7 @@ object frmKuWeiList: TfrmKuWeiList
Left = 357 Left = 357
Top = 12 Top = 12
Width = 60 Width = 60
Height = 24 Height = 23
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -15

78
云翔一码通/U_KuWeiList.pas
View File

@ -80,7 +80,6 @@ type
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject); procedure cxTabControl1Change(Sender: TObject);
procedure ZJStatusChange(Sender: TObject); procedure ZJStatusChange(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure TbSelectClick(Sender: TObject); procedure TbSelectClick(Sender: TObject);
procedure Tv1DblClick(Sender: TObject); procedure Tv1DblClick(Sender: TObject);
private private
@ -88,7 +87,6 @@ type
DQdate:TDateTime; DQdate:TDateTime;
procedure InitGrid(); procedure InitGrid();
procedure InitForm(); procedure InitForm();
procedure PrtData(KWID:String);
{ Private declarations } { Private declarations }
public public
FFInt,FCloth:Integer; FFInt,FCloth:Integer;
@ -212,82 +210,6 @@ begin
TBFind.Click; TBFind.Click;
end; end;
procedure TfrmKuWeiList.ToolButton4Click(Sender: TObject);
begin
if Order_Main.IsEmpty then Exit;
if Trim(ComboBox1.Text)='' then
begin
Application.MessageBox('方向不能为空！','提示',0);
Exit;
end;
if Order_Main.Locate('SSel',True,[])=False then
begin
Application.MessageBox('没有选择数据!','提示',0);
Exit;
end;
Order_Main.DisableControls;
with Order_Main do
begin
First;
while Locate('SSel',True,[]) do
begin
PrtData(Trim(Order_Main.fieldbyname('KWID').AsString));
Edit;
FieldByName('SSel').Value:=False;
end;
end;
Order_Main.EnableControls;
end;
procedure TfrmKuWeiList.PrtData(KWID:String);
var
fPrintFile,Txt,fImagePath:string;
i,j:Integer;
Moudle: THandle;
Makebar:TMakebar;
Mixtext:TMixtext;
begin
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\库位标签.rmf';
if FileExists(fPrintFile)=False then
begin
Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\库位标签.rmf'),'提示',0);
exit;
end;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from KuWei where KWID='''+Trim(KWID)+'''');
Open;
end;
SCreateCDS20(ADOQueryTemp,CDS_PRT);
SInitCDSData20(ADOQueryTemp,CDS_PRT);
try
Moudle:=LoadLibrary('MakeQRBarcode.dll');
@Makebar:=GetProcAddress(Moudle,'Make');
@Mixtext:=GetProcAddress(Moudle,'MixText');
Txt:=Trim(KWID);
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);
except
application.MessageBox('二维码生成失败！','提示信息',MB_ICONERROR);
exit;
end;
RMVariables['QRBARCODE']:=fImagePath;
if Trim(ComboBox1.Text)='→' then
begin
RMVariables['FangXiang']:='→→→→';
end else
if Trim(ComboBox1.Text)='←' then
begin
RMVariables['FangXiang']:='←←←←';
end;
RM1.LoadFromFile(fPrintFile);
//RM1.ShowReport;
RM1.PrintReport;
end;
procedure TfrmKuWeiList.TbSelectClick(Sender: TObject); procedure TfrmKuWeiList.TbSelectClick(Sender: TObject);
begin begin

84
云翔一码通/U_KuWeiList.pas.rej Normal file
View File

@ -0,0 +1,84 @@
diff a/云翔一码通/U_KuWeiList.pas b/云翔一码通/U_KuWeiList.pas (rejected hunks)
@@ -212,6 +212,82 @@
TBFind.Click;
end;
+procedure TfrmKuWeiList.ToolButton4Click(Sender: TObject);
+begin
+ if Order_Main.IsEmpty then Exit;
+ if Trim(ComboBox1.Text)='' then
+ begin
+ Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
+ Exit;
+ end;
+ if Order_Main.Locate('SSel',True,[])=False then
+ begin
+ Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
+ Exit;
+ end;
+ Order_Main.DisableControls;
+ with Order_Main do
+ begin
+ First;
+ while Locate('SSel',True,[]) do
+ begin
+ PrtData(Trim(Order_Main.fieldbyname('KWID').AsString));
+ Edit;
+ FieldByName('SSel').Value:=False;
+ end;
+ end;
+ Order_Main.EnableControls;
+end;
+procedure TfrmKuWeiList.PrtData(KWID:String);
+var
+ fPrintFile,Txt,fImagePath:string;
+ i,j:Integer;
+ Moudle: THandle;
+ Makebar:TMakebar;
+ Mixtext:TMixtext;
+begin
+ fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\<5C><>λ<EFBFBD><CEBB>ǩ.rmf';
+ if FileExists(fPrintFile)=False then
+ begin
+ Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>'+ExtractFilePath(Application.ExeName)+'Report\<5C><>λ<EFBFBD><CEBB>ǩ.rmf'),'<27><>ʾ',0);
+ exit;
+ end;
+ with ADOQueryTemp do
+ begin
+ Close;
+ SQL.Clear;
+ sql.Add('select * from KuWei where KWID='''+Trim(KWID)+'''');
+ Open;
+ end;
+ SCreateCDS20(ADOQueryTemp,CDS_PRT);
+ SInitCDSData20(ADOQueryTemp,CDS_PRT);
+ try
+ Moudle:=LoadLibrary('MakeQRBarcode.dll');
+ @Makebar:=GetProcAddress(Moudle,'Make');
+ @Mixtext:=GetProcAddress(Moudle,'MixText');
+ Txt:=Trim(KWID);
+ 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);
+ except
+ application.MessageBox('<27><>ά<EFBFBD><CEAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
+ exit;
+ end;
+ RMVariables['QRBARCODE']:=fImagePath;
+ if Trim(ComboBox1.Text)='<27><>' then
+ begin
+ RMVariables['FangXiang']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
+ end else
+ if Trim(ComboBox1.Text)='<27><>' then
+ begin
+ RMVariables['FangXiang']:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
+ end;
+ RM1.LoadFromFile(fPrintFile);
+ //RM1.ShowReport;
+ RM1.PrintReport;
+end;
procedure TfrmKuWeiList.TbSelectClick(Sender: TObject);
begin

14
云翔一码通/U_YMTJGWCList.pas
View File

@ -125,7 +125,7 @@ implementation
uses uses
U_DataLink, U_RTFun, U_YMTRKInPut, U_ZdyAttachGYS, U_LabelPrintFun, U_DataLink, U_RTFun, U_YMTRKInPut, U_ZdyAttachGYS, U_LabelPrintFun,
U_ZDYHelp; U_ZDYHelp, U_KuWeiList;
{$R *.dfm} {$R *.dfm}
@ -368,23 +368,21 @@ end;
procedure TfrmYMTJGWCList.KuWeiPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmYMTJGWCList.KuWeiPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
try try
frmZDYHelp := TfrmZDYHelp.Create(Application); frmKuWeiList := TfrmKuWeiList.Create(Application);
with frmZDYHelp do with frmKuWeiList do
begin begin
flag := 'KuWei';
flagname := '¿âλ';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
with Self.CDS_Main do with Self.CDS_Main do
begin begin
Edit; Edit;
KuWei.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); FieldByName('KuWei').Value := Trim(frmKuWeiList.Order_Main.fieldbyname('KWName').AsString);
end; end;
end; end;
end; end;
finally finally
frmZDYHelp.Free; frmKuWeiList.Free;
end; end;
end; end;

2
云翔一码通/U_YMTRKInPut.dfm
View File

@ -297,7 +297,7 @@ object frmYMTRKInPut: TfrmYMTRKInPut
end end
object Tv1IsTax: TcxGridDBColumn object Tv1IsTax: TcxGridDBColumn
Tag = 2 Tag = 2
Caption = #31246#29366 Caption = #31246#20917
DataBinding.FieldName = 'IsTax' DataBinding.FieldName = 'IsTax'
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList

268
云翔一码通/U_YMTRKInPut.pas
View File

@ -98,10 +98,8 @@ type
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBDelClick(Sender: TObject); procedure TBDelClick(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
procedure v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure v1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure v1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
@ -124,6 +122,7 @@ type
procedure InitMXGrid(SPID: string); procedure InitMXGrid(SPID: string);
procedure InitGrid(); procedure InitGrid();
procedure AddRows(); procedure AddRows();
function YFData(): Boolean;
public public
{ Public declarations } { Public declarations }
FBCId: string; FBCId: string;
@ -136,9 +135,181 @@ var
implementation implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_ZdyAttachGYS, U_MLMangeYHSel, U_ZdyAttachKH; U_DataLink, U_RTFun, U_ZDYHelp, U_ZdyAttachGYS, U_MLMangeYHSel, U_ZdyAttachKH,U_KuWeiList;
{$R *.dfm} {$R *.dfm}
function TfrmYMTRKInPut.YFData(): Boolean;
var
CRID, OrdMainId, YFID, FComTaiTou, FCRID, FFactoryName, FFactoryNo: string;
begin
Result := False;
FFactoryName := Trim(CDS_Sub.FieldByName('FactoryName').AsString);
FFactoryNo := Trim(CDS_Sub.FieldByName('FactoryNo').AsString);
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from YS_Money_KC where FactoryNo=' + quotedstr(Trim(FFactoryNo)));
sql.Add(' and KCType=''GYS'' ');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
CRID := ADOQueryTemp.fieldbyname('CRID').AsString;
end
else
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from YS_Money_CRID');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YS_Money_CRID set CRID=CRID+1');
sql.Add('select * from YS_Money_CRID ');
Open;
end;
end
else
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('insert into YS_Money_CRID select 0 ');
sql.Add('select * from YS_Money_CRID ');
Open;
end;
end;
CRID := ADOQueryCmd.fieldbyname('CRID').AsString;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from YS_Money_KC where 1=2');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('CRID').Value := StrToInt(CRID);
FieldByName('FactoryName').Value := Trim(FFactoryName);
FieldByName('FactoryNo').Value := Trim(FFactoryNo);
FieldByName('ZdyStr1').Value := '壇마마';
FieldByName('KCType').Value := 'GYS';
Post;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from YS_Money_CR where FactoryNo=' + quotedstr(Trim(FFactoryNo)));
sql.Add(' and YFTypeId=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
if GetLSNo(ADOQueryCmd, YFID, 'JG', 'YS_Money_CR', 4, 1) = False then
begin
Application.MessageBox('혤壇마離댕뵀呵겨!', '瓊刻', 0);
Exit;
end;
end
else
begin
YFID := Trim(ADOQueryTemp.fieldbyname('YFID').AsString);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from YS_Money_CR where YFID=''' + Trim(YFID) + '''');
Open;
end;
with ADOQueryCmd do
begin
if ADOQueryTemp.IsEmpty then
begin
Append;
FieldByName('SCQty').Value := CDS_Sub.FieldByName('Qty').Asfloat;
FieldByName('SCPS').Value := CDS_Sub.FieldByName('PiQty').Asfloat;
end
else
Edit;
FieldByName('YFID').Value := Trim(YFID);
FieldByName('YFTypeId').Value := Trim(CDS_Sub.fieldbyname('SPID').AsString);
FieldByName('CRID').Value := StrToInt(CRID);
FieldByName('YFName').Value := '꽃뭔롤';
FieldByName('Filler').Value := Trim(DName);
FieldByName('CRType').Value := '壇마운되션';
FieldByName('CRFlag').Value := '壇마마';
FieldByName('ChkStatusP').Value := '灌<>뵙';
FieldByName('ChkStatusQ').Value := '灌<>뵙';
FieldByName('QtyFlag').Value := 1;
FieldByName('FactoryName').Value := Trim(FFactoryName);
FieldByName('FactoryNo').Value := Trim(FFactoryNo);
FieldByName('CRTime').Value := CDS_Sub.fieldbyname('CRTime').AsString;
if CDS_Sub.FieldByName('PriceType').Value = '쵠' then
begin
FieldByName('Qty').Value := CDS_Sub.FieldByName('Qty').Asfloat;
FieldByName('QtyUnit').Value := 'M';
end
else
begin
FieldByName('Qty').Value := CDS_Sub.FieldByName('KGQty').Asfloat;
FieldByName('QtyUnit').Value := 'KG';
end;
FieldByName('PS').Value := CDS_Sub.FieldByName('PiQty').Asfloat;
FieldByName('YFType').Value := '菱땡<E88FB1>냥';
FieldByName('Price').Value := CDS_Sub.FieldByName('Price').Asfloat;
FieldByName('Money').Value := CDS_Sub.FieldByName('Money').Asfloat;
if CDS_Sub.FieldByName('IsTax').Value = '벵江' then
begin
FieldByName('HanShui').Value := '벵江';
end
else
begin
FieldByName('HanShui').Value := '꼇벵江';
end;
FieldByName('CKNO').Value := trim(CDS_Sub.fieldbyname('SPID').AsString);
FieldByName('SJQty').Value := CDS_Sub.FieldByName('Money').Asfloat;
FieldByName('MiQty').Value := CDS_Sub.FieldByName('Qty').Asfloat;
FieldByName('KGQty').Value := CDS_Sub.FieldByName('KGQty').Asfloat;
FieldByName('JSmoney').Value := CDS_Sub.FieldByName('Money').Asfloat;
FieldByName('HSmoney').Value := CDS_Sub.FieldByName('Money').Asfloat;
FieldByName('P_CodeName').Value := CDS_Sub.FieldByName('SPName').Asstring;
FieldByName('P_MF').Value := CDS_Sub.FieldByName('SPMF').Asstring;
FieldByName('P_KZ').Value := CDS_Sub.FieldByName('SPKZ').Asstring;
FieldByName('P_Color').Value := CDS_Sub.FieldByName('SPColor').Asstring;
// FieldByName('P_ColorNo').Value := Trim(MYColorNo.Text); CDS_Sub.FieldByName('ColorNo').Asstring;
FieldByName('P_HX').Value := CDS_Sub.FieldByName('SPHX').Asstring;
FieldByName('BZType').Value := '＄';
FieldByName('status').Value := '0';
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YS_Money_KC Set KCMoney=(select isnull(Sum(HSMoney*QtyFlag),0) from YS_Money_CR A where A.CRID=YS_Money_KC.CRID)');
sql.Add(' where CRID=' + CRID);
ExecSQL;
end;
Result := True;
end;
procedure TfrmYMTRKInPut.InitMXGrid(SPID: string); procedure TfrmYMTRKInPut.InitMXGrid(SPID: string);
begin begin
with ADOQueryTemp do with ADOQueryTemp do
@ -346,7 +517,7 @@ begin
FieldByName('CRQtyFlag').Value := 1; FieldByName('CRQtyFlag').Value := 1;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'YMT_CK_CR', 2); RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'YMT_CK_CR', 2);
YFData();
if Trim(FFSPID) = '' then if Trim(FFSPID) = '' then
FieldByName('Filler').Value := Trim(DName) FieldByName('Filler').Value := Trim(DName)
else else
@ -534,28 +705,6 @@ begin
end; end;
end; end;
procedure TfrmYMTRKInPut.v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'SXKuWei';
flagname := '¿âλ';
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('KuWei').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmYMTRKInPut.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmYMTRKInPut.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
try try
@ -593,7 +742,7 @@ begin
with Self.CDS_Sub do with Self.CDS_Sub do
begin begin
Edit; Edit;
FieldByName('spcode').Value := Trim(frmMLMangeYHSel.CDS_Main.fieldbyname('MLXXNO').AsString); FieldByName('SPcode').Value := Trim(frmMLMangeYHSel.CDS_Main.fieldbyname('MLXXNO').AsString);
FieldByName('SPName').Value := Trim(frmMLMangeYHSel.CDS_Main.fieldbyname('MLName').AsString); FieldByName('SPName').Value := Trim(frmMLMangeYHSel.CDS_Main.fieldbyname('MLName').AsString);
FieldByName('GYLXName').Value := Trim(frmMLMangeYHSel.CDS_Main.fieldbyname('GYLXName').AsString); FieldByName('GYLXName').Value := Trim(frmMLMangeYHSel.CDS_Main.fieldbyname('GYLXName').AsString);
FieldByName('SPCF').Value := Trim(frmMLMangeYHSel.CDS_Main.fieldbyname('MLCF').AsString); FieldByName('SPCF').Value := Trim(frmMLMangeYHSel.CDS_Main.fieldbyname('MLCF').AsString);
@ -608,28 +757,6 @@ begin
end; end;
end; end;
procedure TfrmYMTRKInPut.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'KuWei';
flagname := '¿âλ';
if ShowModal = 1 then
begin
with Self.CDS_Sub do
begin
Edit;
FieldByName('KuWei').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmYMTRKInPut.v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmYMTRKInPut.v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
try try
@ -676,22 +803,22 @@ end;
procedure TfrmYMTRKInPut.v1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmYMTRKInPut.v1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
// try try
// frmKuWeiList := TfrmKuWeiList.Create(Application); frmKuWeiList := TfrmKuWeiList.Create(Application);
// with frmKuWeiList do with frmKuWeiList do
// begin begin
// if ShowModal = 1 then if ShowModal = 1 then
// begin begin
// with Self.CDS_Sub do with Self.CDS_Sub do
// begin begin
// Edit; Edit;
// FieldByName('KuWei').Value := Trim(frmKuWeiList.Order_Main.fieldbyname('KWName').AsString); FieldByName('KuWei').Value := Trim(frmKuWeiList.Order_Main.fieldbyname('KWName').AsString);
// end; end;
// end; end;
// end; end;
// finally finally
// frmKuWeiList.Free; frmKuWeiList.Free;
// end; end;
end; end;
procedure TfrmYMTRKInPut.Button2Click(Sender: TObject); procedure TfrmYMTRKInPut.Button2Click(Sender: TObject);
@ -907,11 +1034,9 @@ begin
end; end;
procedure TfrmYMTRKInPut.Tv1PricePropertiesEditValueChanged(Sender: TObject);
procedure TfrmYMTRKInPut.Tv1PricePropertiesEditValueChanged(
Sender: TObject);
var var
mvalue,FFieldName: string; mvalue, FFieldName: string;
begin begin
mvalue := TcxCurrencyEdit(Sender).EditingText; mvalue := TcxCurrencyEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
@ -933,10 +1058,9 @@ begin
end; end;
end; end;
procedure TfrmYMTRKInPut.Tv1PriceTypePropertiesEditValueChanged( procedure TfrmYMTRKInPut.Tv1PriceTypePropertiesEditValueChanged(Sender: TObject);
Sender: TObject);
var var
mvalue,FFieldName: string; mvalue, FFieldName: string;
begin begin
mvalue := TcxComboBox(Sender).EditingText; mvalue := TcxComboBox(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);

12
云翔一码通/U_YMTRKList.pas
View File

@ -180,7 +180,7 @@ implementation
uses uses
U_DataLink, U_RTFun, U_YMTRKInPut, U_ZdyAttachGYS, U_LabelPrintFun, U_DataLink, U_RTFun, U_YMTRKInPut, U_ZdyAttachGYS, U_LabelPrintFun,
U_ZDYHelp; U_ZDYHelp, U_KuWeiList;
{$R *.dfm} {$R *.dfm}
procedure TfrmYMTRKList.InitMXGrid(SPID: string); procedure TfrmYMTRKList.InitMXGrid(SPID: string);
@ -619,22 +619,20 @@ end;
procedure TfrmYMTRKList.KuWeiPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmYMTRKList.KuWeiPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
try try
frmZDYHelp := TfrmZDYHelp.Create(Application); frmKuWeiList := TfrmKuWeiList.Create(Application);
with frmZDYHelp do with frmKuWeiList do
begin begin
flag := 'KuWei';
flagname := '¿âλ';
if ShowModal = 1 then if ShowModal = 1 then
begin begin
with Self.CDS_Main do with Self.CDS_Main do
begin begin
Edit; Edit;
KuWei.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); FieldByName('KuWei').Value := Trim(frmKuWeiList.Order_Main.fieldbyname('KWName').AsString);
end; end;
end; end;
end; end;
finally finally
frmZDYHelp.Free; frmKuWeiList.Free;
end; end;
end; end;

392
云翔生产管理(MYSC.dll)/U_CPXiaoShouList.pas
View File

@ -6,26 +6,26 @@ uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
Menus, cxButtonEdit, cxDropDownEdit, cxPC, Buttons, cxTextEdit, cxDropDownEdit, cxPC, Buttons, cxTextEdit, cxLookAndFeels,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinDarkRoom,
dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime,
dxSkinDarkRoom, dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2013White, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinSharpPlus, dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
dxSkinSpringTime, dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
dxSkinsDefaultPainters, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
dxSkinscxPCPainter; dxSkinWhiteprint, dxSkinXmas2008Blue;
type type
TfrmCPXiaoShouList = class(TForm) TfrmCPXiaoShouList = class(TForm)
@ -120,22 +120,21 @@ type
procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject);
procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Shift: TShiftState; X, Y: Integer);
procedure Image1Click(Sender: TObject); procedure Image1Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject); procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject); procedure SpeedButton4Click(Sender: TObject);
private private
canshu1:string; canshu1: string;
DQdate:TDateTime; DQdate: TDateTime;
procedure InitGrid(); procedure InitGrid();
procedure InitGridKH(); procedure InitGridKH();
procedure InitGridSub(); procedure InitGridSub();
procedure InitForm(); procedure InitForm();
function DelData():Boolean; function DelData(): Boolean;
{ Private declarations } { Private declarations }
public public
FFInt,FCloth:Integer; FFInt, FCloth: Integer;
{ Public declarations } { Public declarations }
end; end;
@ -144,33 +143,33 @@ var
frmCPXiaoShouList: TfrmCPXiaoShouList; frmCPXiaoShouList: TfrmCPXiaoShouList;
implementation implementation
uses uses
U_DataLink,U_RTFun, U_XiShouInPut,U_ZDYHelp,U_XiShouInPutWKC,U_XiaoShouDataOldListQB,U_CKProductBCPOutList, U_DataLink, U_RTFun, U_XiShouInPut, U_ZDYHelp, U_XiShouInPutWKC,
U_XiaoShouDataNewListQB; U_XiaoShouDataOldListQB, U_CKProductBCPOutList, U_XiaoShouDataNewListQB;
{$R *.dfm} {$R *.dfm}
procedure TfrmCPXiaoShouList.FormDestroy(Sender: TObject); procedure TfrmCPXiaoShouList.FormDestroy(Sender: TObject);
begin begin
frmCPXiaoShouList:=nil; frmCPXiaoShouList := nil;
end; end;
procedure TfrmCPXiaoShouList.FormClose(Sender: TObject; procedure TfrmCPXiaoShouList.FormClose(Sender: TObject; var Action: TCloseAction);
var Action: TCloseAction);
begin begin
Action:=caFree; Action := caFree;
end; end;
procedure TfrmCPXiaoShouList.FormCreate(Sender: TObject); procedure TfrmCPXiaoShouList.FormCreate(Sender: TObject);
begin begin
cxgrid1.Align:=alClient; cxgrid1.Align := alClient;
canshu1:=Trim(DParameters1); canshu1 := Trim(DParameters1);
end; end;
procedure TfrmCPXiaoShouList.TBCloseClick(Sender: TObject); procedure TfrmCPXiaoShouList.TBCloseClick(Sender: TObject);
begin begin
WriteCxGrid('销售码单登记YXMX',Tv1,'贸易生产管理'); WriteCxGrid('销售码单登记YXMX', Tv1, '贸易生产管理');
WriteCxGrid('销售码单登记YXZY',Tv2,'贸易生产管理'); WriteCxGrid('销售码单登记YXZY', Tv2, '贸易生产管理');
Close; Close;
end; end;
@ -180,7 +179,7 @@ begin
ADOQueryCmd.DisableControls; ADOQueryCmd.DisableControls;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Filtered:=False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select AA.*,B.* '); sql.Add(' select AA.*,B.* ');
@ -190,19 +189,19 @@ begin
sql.Add(' from CK_YCL_CR A '); sql.Add(' from CK_YCL_CR A ');
sql.Add(' inner join CK_YCL_CR_Main B on A.SMID=B.SMID '); sql.Add(' inner join CK_YCL_CR_Main B on A.SMID=B.SMID ');
sql.add(' where 1=1'); sql.add(' where 1=1');
if CheckBox1.Checked=True then if CheckBox1.Checked = True then
begin begin
SQL.Add(' and B.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); SQL.Add(' and B.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and B.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); sql.Add(' and B.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
BegDate.Visible:=True; BegDate.Visible := True;
EndDate.Visible:=true; EndDate.Visible := true;
end end
else else
begin begin
SQL.Add(' and B.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',now))+''''); SQL.Add(' and B.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', now)) + '''');
sql.Add(' and B.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',now+1))+''''); sql.Add(' and B.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', now + 1)) + '''');
BegDate.Visible:=false; BegDate.Visible := false;
EndDate.Visible:=false; EndDate.Visible := false;
end; end;
sql.Add(' and isnull(B.CKName,'''')=''ÏúÊÛ³ö¿â'' '); sql.Add(' and isnull(B.CKName,'''')=''ÏúÊÛ³ö¿â'' ');
sql.Add(' Group by A.SMID,BZType )AA'); sql.Add(' Group by A.SMID,BZType )AA');
@ -210,8 +209,8 @@ begin
SQL.Add(' order by B.CRTime desc'); SQL.Add(' order by B.CRTime desc');
Open; Open;
end; end;
SCreateCDS20(ADOQueryCmd,Order_Main); SCreateCDS20(ADOQueryCmd, Order_Main);
SInitCDSData20(ADOQueryCmd,Order_Main); SInitCDSData20(ADOQueryCmd, Order_Main);
finally finally
ADOQueryCmd.EnableControls; ADOQueryCmd.EnableControls;
end; end;
@ -223,7 +222,7 @@ begin
ADOQueryTemp.DisableControls; ADOQueryTemp.DisableControls;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Filtered:=False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select AA.*,B.* '); sql.Add(' select AA.*,B.* ');
@ -233,20 +232,20 @@ begin
sql.Add(' from CK_YCL_CR A '); sql.Add(' from CK_YCL_CR A ');
sql.Add(' inner join CK_YCL_CR_Main B on A.SMID=B.SMID '); sql.Add(' inner join CK_YCL_CR_Main B on A.SMID=B.SMID ');
sql.Add(' where 1=1'); sql.Add(' where 1=1');
if CheckBox1.Checked=true then if CheckBox1.Checked = true then
begin begin
sql.add(' and B.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+''''); sql.add(' and B.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and B.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',enddate.DateTime+1))+''''); sql.Add(' and B.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
end end
else else
begin begin
sql.add(' and B.CRTime>='''+Trim(FormatDateTime('yyyy-MM-dd',Now))+''''); sql.add(' and B.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', Now)) + '''');
sql.Add(' and B.CRTime<'''+Trim(FormatDateTime('yyyy-MM-dd',Now+1))+''''); sql.Add(' and B.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', Now + 1)) + '''');
end; end;
sql.Add(' and isnull(B.CKName,'''')=''ÏúÊÛ³ö¿â'' '); sql.Add(' and isnull(B.CKName,'''')=''ÏúÊÛ³ö¿â'' ');
sql.Add(' and isnull(B.FactoryNo,'''')='''+Trim(ClientDataSet2.fieldbyname('FactoryNo').AsString)+''''); sql.Add(' and isnull(B.FactoryNo,'''')=''' + Trim(ClientDataSet2.fieldbyname('FactoryNo').AsString) + '''');
sql.Add(' and isnull(B.CRType,'''')='''+Trim(ClientDataSet2.fieldbyname('CRType').AsString)+''''); sql.Add(' and isnull(B.CRType,'''')=''' + Trim(ClientDataSet2.fieldbyname('CRType').AsString) + '''');
sql.Add(' and isnull(B.YWY,'''')='''+Trim(ClientDataSet2.fieldbyname('YWY').AsString)+''''); sql.Add(' and isnull(B.YWY,'''')=''' + Trim(ClientDataSet2.fieldbyname('YWY').AsString) + '''');
if ClientDataSet2.IsEmpty then if ClientDataSet2.IsEmpty then
begin begin
sql.Add(' and 1=2'); sql.Add(' and 1=2');
@ -256,8 +255,8 @@ begin
SQL.Add(' order by B.CRTime desc'); SQL.Add(' order by B.CRTime desc');
Open; Open;
end; end;
SCreateCDS20(ADOQueryTemp,Order_Main); SCreateCDS20(ADOQueryTemp, Order_Main);
SInitCDSData20(ADOQueryTemp,Order_Main); SInitCDSData20(ADOQueryTemp, Order_Main);
finally finally
ADOQueryTemp.EnableControls; ADOQueryTemp.EnableControls;
end; end;
@ -269,7 +268,7 @@ begin
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
begin begin
Filtered:=False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select B.CRType,B.FactoryNo,B.YWY,FactoryName=KHNameJC '); sql.Add(' select B.CRType,B.FactoryNo,B.YWY,FactoryName=KHNameJC ');
@ -279,50 +278,52 @@ begin
sql.Add(' Group by B.CRType,B.FactoryNo,B.YWY,A.KHNameJC'); sql.Add(' Group by B.CRType,B.FactoryNo,B.YWY,A.KHNameJC');
Open; Open;
end; end;
SCreateCDS20(ADOQueryMain,ClientDataSet2); SCreateCDS20(ADOQueryMain, ClientDataSet2);
SInitCDSData20(ADOQueryMain,ClientDataSet2); SInitCDSData20(ADOQueryMain, ClientDataSet2);
finally finally
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
end; end;
end; end;
procedure TfrmCPXiaoShouList.InitForm(); procedure TfrmCPXiaoShouList.InitForm();
begin begin
BegDate.Date:=StrToDate(FormatDateTime('yyyy-MM',SGetServerDate(ADOQueryTemp))+'-01'); BegDate.Date := StrToDate(FormatDateTime('yyyy-MM', SGetServerDate(ADOQueryTemp)) + '-01');
EndDate.Date:=SGetServerDate(ADOQueryTemp); EndDate.Date := SGetServerDate(ADOQueryTemp);
ReadCxGrid('销售码单登记YXMX',Tv1,'贸易生产管理'); ReadCxGrid('销售码单登记YXMX', Tv1, '贸易生产管理');
ReadCxGrid('销售码单登记YXZY',Tv2,'贸易生产管理'); ReadCxGrid('销售码单登记YXZY', Tv2, '贸易生产管理');
InitGridKH(); InitGridKH();
end; end;
procedure TfrmCPXiaoShouList.TBFindClick(Sender: TObject); procedure TfrmCPXiaoShouList.TBFindClick(Sender: TObject);
begin begin
if ADOQueryCmd.Active=False then Exit; if ADOQueryCmd.Active = False then
SDofilter(ADOQueryCmd,SGetFilters(Panel1,1,2)); Exit;
SCreateCDS20(ADOQueryCmd,Order_Main); SDofilter(ADOQueryCmd, SGetFilters(Panel1, 1, 2));
SInitCDSData20(ADOQueryCmd,Order_Main); SCreateCDS20(ADOQueryCmd, Order_Main);
SInitCDSData20(ADOQueryCmd, Order_Main);
end; end;
procedure TfrmCPXiaoShouList.TBDelClick(Sender: TObject); procedure TfrmCPXiaoShouList.TBDelClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
Exit;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from YS_Money_CR where YFTypeId in'); sql.Add('select * from YS_Money_CR where YFTypeId in');
sql.Add('(select SPID from CK_YCL_CR where SMID='''+Trim(Order_Main.fieldbyname('SMID').AsString)+''')'); sql.Add('(select SPID from CK_YCL_CR where SMID=''' + Trim(Order_Main.fieldbyname('SMID').AsString) + ''')');
sql.Add(' and (isnull(ChkerP,'''')<>'''' '); sql.Add(' and (isnull(ChkerP,'''')<>'''' ');
sql.Add(' or isnull(ChkerQ,'''')<>'''') '); sql.Add(' or isnull(ChkerQ,'''')<>'''') ');
Open; Open;
end; end;
if ADOQueryTemp.IsEmpty=False then if ADOQueryTemp.IsEmpty = False then
begin begin
Application.MessageBox('单价或数量已审核不能删除!','提示',0); Application.MessageBox('单价或数量已审核不能删除!', '提示', 0);
Exit; Exit;
end; end;
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit; if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
try try
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do with ADOQueryCmd do
@ -330,9 +331,9 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' delete YS_Money_CR where YFTypeId in'); sql.Add(' delete YS_Money_CR where YFTypeId in');
sql.Add('(select SPID from CK_YCL_CR where SMID='''+Trim(Order_Main.fieldbyname('SMID').AsString)+''')'); sql.Add('(select SPID from CK_YCL_CR where SMID=''' + Trim(Order_Main.fieldbyname('SMID').AsString) + ''')');
sql.Add(' delete CK_YCL_CR where SMID='''+Trim(Order_Main.fieldbyname('SMID').AsString)+''''); sql.Add(' delete CK_YCL_CR where SMID=''' + Trim(Order_Main.fieldbyname('SMID').AsString) + '''');
sql.Add(' delete CK_YCL_CR_Main where SMID='''+Trim(Order_Main.fieldbyname('SMID').AsString)+''''); sql.Add(' delete CK_YCL_CR_Main where SMID=''' + Trim(Order_Main.fieldbyname('SMID').AsString) + '''');
ExecSQL; ExecSQL;
end; end;
@ -340,15 +341,15 @@ begin
Order_Main.Delete; Order_Main.Delete;
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('删除异常!','提示',0); Application.MessageBox('删除异常!', '提示', 0);
end; end;
end; end;
function TfrmCPXiaoShouList.DelData():Boolean; function TfrmCPXiaoShouList.DelData(): Boolean;
begin begin
try try
Result:=false; Result := false;
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
Order_Main.DisableControls; Order_Main.DisableControls;
with Order_Main do with Order_Main do
@ -361,10 +362,10 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' insert into CK_MYSC_CR_Log '); sql.Add(' insert into CK_MYSC_CR_Log ');
sql.Add(' select * from CK_MYSC_CR where MYID='''+Trim(Order_Main.fieldbyname('MYID').AsString)+''''); sql.Add(' select * from CK_MYSC_CR where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + '''');
sql.Add(' UPdate CK_MYSC_CR_Log Set DelTime=getdate(),DelerCode='''+Trim(DCode)+''',Deler='''+Trim(DName)+''''); sql.Add(' UPdate CK_MYSC_CR_Log Set DelTime=getdate(),DelerCode=''' + Trim(DCode) + ''',Deler=''' + Trim(DName) + '''');
sql.Add(' where MYID='''+Trim(Order_Main.fieldbyname('MYID').AsString)+''''); sql.Add(' where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + '''');
sql.Add('Delete CK_MYSC_CR where MYId='''+Trim(Order_Main.fieldbyname('MYId').AsString)+''''); sql.Add('Delete CK_MYSC_CR where MYId=''' + Trim(Order_Main.fieldbyname('MYId').AsString) + '''');
ExecSQL; ExecSQL;
end; end;
Order_Main.Delete; Order_Main.Delete;
@ -372,20 +373,20 @@ begin
end; end;
Order_Main.EnableControls; Order_Main.EnableControls;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
Result:=True; Result := True;
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Result:=False; Result := False;
Application.MessageBox('数据删除异常！','提示',0); Application.MessageBox('数据删除异常！', '提示', 0);
end; end;
end; end;
procedure TfrmCPXiaoShouList.TBExportClick(Sender: TObject); procedure TfrmCPXiaoShouList.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then Exit; if ADOQueryMain.IsEmpty then
TcxGridToExcel(Self.Caption,cxGrid1); Exit;
TcxGridToExcel(Self.Caption, cxGrid1);
end; end;
procedure TfrmCPXiaoShouList.TBRafreshClick(Sender: TObject); procedure TfrmCPXiaoShouList.TBRafreshClick(Sender: TObject);
@ -396,7 +397,7 @@ end;
procedure TfrmCPXiaoShouList.TBAddClick(Sender: TObject); procedure TfrmCPXiaoShouList.TBAddClick(Sender: TObject);
begin begin
Panel2.Visible:=True; Panel2.Visible := True;
end; end;
procedure TfrmCPXiaoShouList.FormShow(Sender: TObject); procedure TfrmCPXiaoShouList.FormShow(Sender: TObject);
@ -416,21 +417,22 @@ end;
procedure TfrmCPXiaoShouList.ToolButton1Click(Sender: TObject); procedure TfrmCPXiaoShouList.ToolButton1Click(Sender: TObject);
var var
FFMYType:String; FFMYType: string;
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
FFMYType:=Trim(Order_Main.fieldbyname('CRType').AsString); Exit;
if Trim(FFMYType)='老系统销售' then FFMYType := Trim(Order_Main.fieldbyname('CRType').AsString);
if Trim(FFMYType) = '老系统销售' then
begin begin
try try
frmXiShouInPut:=TfrmXiShouInPut.Create(Application); frmXiShouInPut := TfrmXiShouInPut.Create(Application);
with frmXiShouInPut do with frmXiShouInPut do
begin begin
TBSave.Visible:=False; TBSave.Visible := False;
PState:=1; PState := 1;
FMainId:=Trim(Self.Order_Main.fieldbyname('SMID').AsString); FMainId := Trim(Self.Order_Main.fieldbyname('SMID').AsString);
Label21.Caption:=FFMYType; Label21.Caption := FFMYType;
if ShowModal=1 then if ShowModal = 1 then
begin begin
end; end;
@ -438,19 +440,20 @@ begin
finally finally
frmXiShouInPut.Free; frmXiShouInPut.Free;
end; end;
end else end
else
begin begin
try try
frmXiShouInPutWKC:=TfrmXiShouInPutWKC.Create(Application); frmXiShouInPutWKC := TfrmXiShouInPutWKC.Create(Application);
with frmXiShouInPutWKC do with frmXiShouInPutWKC do
begin begin
TBSave.Visible:=False; TBSave.Visible := False;
PState:=1; PState := 1;
FMainId:=Trim(Self.Order_Main.fieldbyname('SMID').AsString); FMainId := Trim(Self.Order_Main.fieldbyname('SMID').AsString);
Label21.Caption:=FFMYType; Label21.Caption := FFMYType;
if ShowModal=1 then if ShowModal = 1 then
begin begin
end; end;
end; end;
finally finally
@ -460,18 +463,18 @@ begin
end; end;
procedure TfrmCPXiaoShouList.CustomerNoNameChange(Sender: TObject); procedure TfrmCPXiaoShouList.CustomerNoNameChange(Sender: TObject);
begin begin
if ADOQueryMain.Active=False then Exit; if ADOQueryMain.Active = False then
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2)); Exit;
SCreateCDS20(ADOQueryMain,ClientDataSet2); SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SInitCDSData20(ADOQueryMain,ClientDataSet2); SCreateCDS20(ADOQueryMain, ClientDataSet2);
SInitCDSData20(ADOQueryMain, ClientDataSet2);
end; end;
procedure TfrmCPXiaoShouList.N2Click(Sender: TObject); procedure TfrmCPXiaoShouList.N2Click(Sender: TObject);
begin begin
SelOKNo(Order_Main,True); SelOKNo(Order_Main, True);
end; end;
procedure TfrmCPXiaoShouList.N1Click(Sender: TObject); procedure TfrmCPXiaoShouList.N1Click(Sender: TObject);
@ -491,39 +494,42 @@ end;
procedure TfrmCPXiaoShouList.ToolButton4Click(Sender: TObject); procedure TfrmCPXiaoShouList.ToolButton4Click(Sender: TObject);
var var
fPrintFile:string; fPrintFile: string;
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
if Trim(Order_Main.fieldbyname('Chker').AsString)='' then exit; Exit;
fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\检测报告.rmf'; if Trim(Order_Main.fieldbyname('Chker').AsString) = '' then
RMXLSExport2:= TRMXLSExport.Create(RMXLSExport2); exit;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\检测报告.rmf';
RMXLSExport2 := TRMXLSExport.Create(RMXLSExport2);
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from Test_Report where TRId='''+Trim(Order_Main.fieldbyname('TRId').AsString)+''''); sql.Add('select * from Test_Report where TRId=''' + Trim(Order_Main.fieldbyname('TRId').AsString) + '''');
Open; Open;
end; end;
SCreateCDS20(ADOQueryTemp,CDS_PRT); SCreateCDS20(ADOQueryTemp, CDS_PRT);
SInitCDSData20(ADOQueryTemp,CDS_PRT); SInitCDSData20(ADOQueryTemp, CDS_PRT);
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
begin begin
//RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value; //RMVariables['OrderUnit']:=Order_Main.fieldbyname('OrderUnit').Value;
RM1.LoadFromFile(fPrintFile); RM1.LoadFromFile(fPrintFile);
RM1.ShowReport; RM1.ShowReport;
end else end
else
begin begin
Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\检测报告.rmf'),'提示',0); Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\检测报告.rmf'), '提示', 0);
end; end;
end; end;
procedure TfrmCPXiaoShouList.Tv1DblClick(Sender: TObject); procedure TfrmCPXiaoShouList.Tv1DblClick(Sender: TObject);
begin begin
frmCKProductBCPOutList:=TfrmCKProductBCPOutList.Create(self); frmCKProductBCPOutList := TfrmCKProductBCPOutList.Create(self);
with frmCKProductBCPOutList do with frmCKProductBCPOutList do
begin begin
FCKNO:=trim(Order_Main.fieldbyname('CKNo').AsString); FCKNO := trim(Order_Main.fieldbyname('CKNo').AsString);
if ShowModal=1 then if ShowModal = 1 then
begin begin
end; end;
@ -533,34 +539,35 @@ end;
procedure TfrmCPXiaoShouList.TBEditClick(Sender: TObject); procedure TfrmCPXiaoShouList.TBEditClick(Sender: TObject);
var var
FFMYType:String; FFMYType: string;
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
Exit;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select * from YS_Money_CR where YFTypeId in'); sql.Add('select * from YS_Money_CR where YFTypeId in');
sql.Add('(select SPID from CK_YCL_CR where SMID='''+Trim(Order_Main.fieldbyname('SMID').AsString)+''')'); sql.Add('(select SPID from CK_YCL_CR where SMID=''' + Trim(Order_Main.fieldbyname('SMID').AsString) + ''')');
Open; Open;
end; end;
if ADOQueryTemp.IsEmpty=False then if ADOQueryTemp.IsEmpty = False then
begin begin
Application.MessageBox('已经生成应收款不能修改!','提示',0); Application.MessageBox('已经生成应收款不能修改!', '提示', 0);
Exit; Exit;
end; end;
FFMYType:=Trim(Order_Main.fieldbyname('CRType').AsString); FFMYType := Trim(Order_Main.fieldbyname('CRType').AsString);
if Trim(FFMYType)='老系统销售' then if Trim(FFMYType) = '老系统销售' then
begin begin
try try
frmXiShouInPut:=TfrmXiShouInPut.Create(Application); frmXiShouInPut := TfrmXiShouInPut.Create(Application);
with frmXiShouInPut do with frmXiShouInPut do
begin begin
PState:=1; PState := 1;
FMainId:=Trim(Self.Order_Main.fieldbyname('SMID').AsString); FMainId := Trim(Self.Order_Main.fieldbyname('SMID').AsString);
Label21.Caption:=FFMYType; Label21.Caption := FFMYType;
Button1.Visible:=False; Button1.Visible := False;
if ShowModal=1 then if ShowModal = 1 then
begin begin
InitGridSub(); InitGridSub();
end; end;
@ -568,16 +575,17 @@ begin
finally finally
frmXiShouInPut.Free; frmXiShouInPut.Free;
end; end;
end else end
else
begin begin
try try
frmXiShouInPutWKC:=TfrmXiShouInPutWKC.Create(Application); frmXiShouInPutWKC := TfrmXiShouInPutWKC.Create(Application);
with frmXiShouInPutWKC do with frmXiShouInPutWKC do
begin begin
PState:=1; PState := 1;
FMainId:=Trim(Self.Order_Main.fieldbyname('SMID').AsString); FMainId := Trim(Self.Order_Main.fieldbyname('SMID').AsString);
Label21.Caption:=FFMYType; Label21.Caption := FFMYType;
if ShowModal=1 then if ShowModal = 1 then
begin begin
InitGridSub(); InitGridSub();
end; end;
@ -589,20 +597,19 @@ begin
end; end;
procedure TfrmCPXiaoShouList.Image2Click(Sender: TObject); procedure TfrmCPXiaoShouList.Image2Click(Sender: TObject);
begin begin
Panel2.Visible:=False; Panel2.Visible := False;
end; end;
procedure TfrmCPXiaoShouList.SpeedButton1Click(Sender: TObject); procedure TfrmCPXiaoShouList.SpeedButton1Click(Sender: TObject);
begin begin
Panel2.Visible:=False; Panel2.Visible := False;
try try
frmXiaoShouDataOldListQB:=TfrmXiaoShouDataOldListQB.Create(Application); frmXiaoShouDataOldListQB := TfrmXiaoShouDataOldListQB.Create(Application);
with frmXiaoShouDataOldListQB do with frmXiaoShouDataOldListQB do
begin begin
if ShowModal=1 then if ShowModal = 1 then
begin begin
end; end;
@ -614,15 +621,15 @@ end;
procedure TfrmCPXiaoShouList.SpeedButton2Click(Sender: TObject); procedure TfrmCPXiaoShouList.SpeedButton2Click(Sender: TObject);
begin begin
Panel2.Visible:=False; Panel2.Visible := False;
try try
frmXiShouInPutWKC:=TfrmXiShouInPutWKC.Create(Application); frmXiShouInPutWKC := TfrmXiShouInPutWKC.Create(Application);
with frmXiShouInPutWKC do with frmXiShouInPutWKC do
begin begin
PState:=0; PState := 0;
FMainId:=''; FMainId := '';
Label21.Caption:='无库存销售'; Label21.Caption := '无库存销售';
if ShowModal=1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
end; end;
@ -634,15 +641,15 @@ end;
procedure TfrmCPXiaoShouList.SpeedButton3Click(Sender: TObject); procedure TfrmCPXiaoShouList.SpeedButton3Click(Sender: TObject);
begin begin
Panel2.Visible:=False; Panel2.Visible := False;
try try
frmXiShouInPutWKC:=TfrmXiShouInPutWKC.Create(Application); frmXiShouInPutWKC := TfrmXiShouInPutWKC.Create(Application);
with frmXiShouInPutWKC do with frmXiShouInPutWKC do
begin begin
PState:=0; PState := 0;
FMainId:=''; FMainId := '';
Label21.Caption:='免单销售'; Label21.Caption := '免单销售';
if ShowModal=1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
end; end;
@ -652,47 +659,48 @@ begin
end; end;
end; end;
procedure TfrmCPXiaoShouList.Tv2MouseDown(Sender: TObject; procedure TfrmCPXiaoShouList.Tv2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin begin
InitGridSub(); InitGridSub();
end; end;
procedure TfrmCPXiaoShouList.Image1Click(Sender: TObject); procedure TfrmCPXiaoShouList.Image1Click(Sender: TObject);
begin begin
if Order_Main.IsEmpty then exit; if Order_Main.IsEmpty then
Panel3.Visible:=false; exit;
Panel3.Visible := false;
end; end;
procedure TfrmCPXiaoShouList.SpeedButton8Click(Sender: TObject); procedure TfrmCPXiaoShouList.SpeedButton8Click(Sender: TObject);
var var
fPrintFile:string; fPrintFile: string;
begin begin
if Order_Main.IsEmpty then Exit; if Order_Main.IsEmpty then
if Order_Main.Locate('ssel',True,[])=false then Exit;
if Order_Main.Locate('ssel', True, []) = false then
begin begin
application.MessageBox('没有选择数据','提示'); application.MessageBox('没有选择数据', '提示');
exit; exit;
end; end;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('delete TBSubID where DName='''+Trim(DCode)+''''); sql.Add('delete TBSubID where DName=''' + Trim(DCode) + '''');
ExecSQL; ExecSQL;
end; end;
fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\销售码单新.rmf'; fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\销售码单新.rmf';
RMXLSExport2:= TRMXLSExport.Create(RMXLSExport2); RMXLSExport2 := TRMXLSExport.Create(RMXLSExport2);
with Order_Main do with Order_Main do
begin begin
first; first;
while not Eof do while not Eof do
begin begin
if FieldByName('Ssel').AsBoolean=true then if FieldByName('Ssel').AsBoolean = true then
begin begin
with ADOQuery1 do with ADOQuery1 do
begin begin
Filtered:=False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select distinct isnull(D.MJID,C.MJID) MJID'); sql.Add(' select distinct isnull(D.MJID,C.MJID) MJID');
@ -700,7 +708,7 @@ begin
sql.Add(' inner join CK_YCL_CR_Main B on A.SMID=B.SMID '); sql.Add(' inner join CK_YCL_CR_Main B on A.SMID=B.SMID ');
sql.Add(' left join CP_InOut1 C on C.InOutNo=B.CKNo'); sql.Add(' left join CP_InOut1 C on C.InOutNo=B.CKNo');
sql.Add(' left join CK_BanCP_CR D on D.CKOrdNo=B.CKNo'); sql.Add(' left join CK_BanCP_CR D on D.CKOrdNo=B.CKNo');
sql.add(' where B.CKNO='''+Trim(Order_Main.fieldbyname('CKNO').AsString)+''''); sql.add(' where B.CKNO=''' + Trim(Order_Main.fieldbyname('CKNO').AsString) + '''');
Open; Open;
end; end;
with ADOQueryTemp do with ADOQueryTemp do
@ -716,8 +724,8 @@ begin
while not eof do while not eof do
begin begin
ADOQueryTemp.append; ADOQueryTemp.append;
ADOQueryTemp.fieldbyname('SubId').Value:=Trim(ADOQuery1.fieldbyname('MJID').AsString); ADOQueryTemp.fieldbyname('SubId').Value := Trim(ADOQuery1.fieldbyname('MJID').AsString);
ADOQueryTemp.fieldbyname('Dname').Value:=Trim(DCode); ADOQueryTemp.fieldbyname('Dname').Value := Trim(DCode);
ADOQueryTemp.post; ADOQueryTemp.post;
next; next;
end; end;
@ -731,30 +739,31 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.add('exec P_Print_CKMD3 '); sql.add('exec P_Print_CKMD3 ');
sql.add('@mainID='+quotedstr(Trim(''))); sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName='+quotedstr(Trim(DCode))); sql.add(',@DName=' + quotedstr(Trim(DCode)));
Open; Open;
end; end;
SCreateCDS20(ADOQueryTemp,CDS_PRT); SCreateCDS20(ADOQueryTemp, CDS_PRT);
SInitCDSData20(ADOQueryTemp,CDS_PRT); SInitCDSData20(ADOQueryTemp, CDS_PRT);
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
begin begin
RM1.LoadFromFile(fPrintFile); RM1.LoadFromFile(fPrintFile);
RM1.ShowReport; RM1.ShowReport;
end else end
else
begin begin
Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\销售码单新.rmf'),'提示',0); Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\销售码单新.rmf'), '提示', 0);
end; end;
end; end;
procedure TfrmCPXiaoShouList.SpeedButton4Click(Sender: TObject); procedure TfrmCPXiaoShouList.SpeedButton4Click(Sender: TObject);
begin begin
Panel2.Visible:=False; Panel2.Visible := False;
try try
frmXiaoShouDataNewListQB:=TfrmXiaoShouDataNewListQB.Create(Application); frmXiaoShouDataNewListQB := TfrmXiaoShouDataNewListQB.Create(Application);
with frmXiaoShouDataNewListQB do with frmXiaoShouDataNewListQB do
begin begin
if ShowModal=1 then if ShowModal = 1 then
begin begin
end; end;
@ -766,4 +775,3 @@ end;
end. end.

5
云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.pas
View File

@ -622,11 +622,6 @@ begin
Application.MessageBox('供应商不能为空!', '提示', 0); Application.MessageBox('供应商不能为空!', '提示', 0);
Exit; Exit;
end; end;
if (Trim(MDMLConNo.Text) = '') and (Trim(MLOrderNo.Text) = '') then
begin
Application.MessageBox('合同号和指示单号不能同时为空!', '提示', 0);
Exit;
end;
if Trim(MYName.Text) = '' then if Trim(MYName.Text) = '' then
begin begin

29
云翔生产管理(MYSC.dll)/U_XiaoShouDataNewListQB.pas
View File

@ -11,20 +11,21 @@ uses
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
cxDropDownEdit, cxPC, Buttons, BtnEdit, cxTextEdit, cxLookAndFeels, cxDropDownEdit, cxPC, Buttons, BtnEdit, cxTextEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore,
dxSkinDarkRoom, dxSkinDarkRoom, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinSpringTime,
dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2013White, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinSharpPlus, dxSkinSpringTime, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinsDefaultPainters, dxSkinOffice2013LightGray, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSilver, dxSkinStardust,
dxSkinscxPCPainter; dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010,
dxSkinWhiteprint, dxSkinXmas2008Blue;
type type
TfrmXiaoShouDataNewListQB = class(TForm) TfrmXiaoShouDataNewListQB = class(TForm)