Group_DJD/D7DJbulaikeyi
8
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-27 10:53:32 +08:00
parent c34a9975c1
commit 2a930bc9b2
3 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -1557,7 +1557,7 @@ begin
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '检验码单(中文)') then if (trim(ComboBox1.Text) = '检验码单(中文)') or (trim(ComboBox1.Text) = '检验码单(空加)') then
begin begin
with ADOQueryTemp do with ADOQueryTemp do
begin begin

8
打卷检验管理/U_OrderInPut.dfm
View File

@ -1,6 +1,6 @@
object frmOrderInPut: TfrmOrderInPut object frmOrderInPut: TfrmOrderInPut
Left = 393 Left = 363
Top = 409 Top = 395
Width = 1379 Width = 1379
Height = 761 Height = 761
Caption = #25351#31034#21333#24405#20837 Caption = #25351#31034#21333#24405#20837
@ -1889,8 +1889,8 @@ object frmOrderInPut: TfrmOrderInPut
end end
end end
object cxGrid4: TcxGrid object cxGrid4: TcxGrid
Left = 484 Left = 780
Top = 256 Top = 224
Width = 237 Width = 237
Height = 321 Height = 321
TabOrder = 4 TabOrder = 4

6
打卷检验管理/U_OrderInPut.pas
View File

@ -239,6 +239,7 @@ type
procedure v1PRTCodeNamePropertiesChange(Sender: TObject); procedure v1PRTCodeNamePropertiesChange(Sender: TObject);
procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char); procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
procedure v1PRTColorPropertiesChange(Sender: TObject); procedure v1PRTColorPropertiesChange(Sender: TObject);
//procedure ConNoChange(Sender: TObject); //procedure ConNoChange(Sender: TObject);
private private
procedure InitData(); procedure InitData();
@ -253,6 +254,7 @@ type
function getOrderNo(fconNo: string): string; function getOrderNo(fconNo: string): string;
procedure InitDataSetDictionary(); procedure InitDataSetDictionary();
function SelfConnData(): Boolean; function SelfConnData(): Boolean;
{ Private declarations } { Private declarations }
public public
PState, CopyInt, PriceFlag: Integer; PState, CopyInt, PriceFlag: Integer;
@ -1924,11 +1926,13 @@ begin
end; end;
SCreateCDS20(ADOQueryTmp, CDS_Con); SCreateCDS20(ADOQueryTmp, CDS_Con);
SInitCDSData20(ADOQueryTmp, CDS_CON); SInitCDSData20(ADOQueryTmp, CDS_CON);
if CDS_Con.IsEmpty then if CDS_Con.IsEmpty then
cxGrid4.Visible := False cxGrid4.Visible := False
else else
cxGrid4.Visible := True; cxGrid4.Visible := True;
end; end;
procedure TfrmOrderInPut.CustomerNoNameKeyPress(Sender: TObject; var Key: Char); procedure TfrmOrderInPut.CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
@ -1966,5 +1970,7 @@ begin
cxGrid4.Visible := True; cxGrid4.Visible := True;
end; end;
end. end.