Group_99/D10xhGemei
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-18 10:18:16 +08:00
parent 3189748f58
commit 95cc79a4f5
9 changed files with 141 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
A09财务通用管理/U_ReceivableInput.dfm
View File

@ -60,10 +60,10 @@ object frmReceivableInput: TfrmReceivableInput
Height = 447 Height = 447
Width = 1353 Width = 1353
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 4 Left = 2
Top = 23 Top = 26
Width = 1345 Width = 1349
Height = 408 Height = 419
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -446,8 +446,8 @@ object frmReceivableInput: TfrmReceivableInput
Width = 151 Width = 151
end end
object OrderNo: TcxButtonEdit object OrderNo: TcxButtonEdit
Left = 337 Left = 339
Top = 53 Top = 60
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True

122
A09财务通用管理/U_ReceivableInput.pas
View File

@ -108,7 +108,6 @@ type
procedure v1QtyPropertiesEditValueChanged(Sender: TObject); procedure v1QtyPropertiesEditValueChanged(Sender: TObject);
procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
procedure ConNoPropertiesChange(Sender: TObject); procedure ConNoPropertiesChange(Sender: TObject);
private private
{ Private declarations } { Private declarations }
procedure InitGrid(); procedure InitGrid();
@ -162,7 +161,8 @@ begin
Filtered := False; Filtered := False;
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add(' select * from Finance_Flow where FFID=''' + Trim(FFFID) + ''''); // sql.Add(' select * from Finance_Flow where FFID=''' + Trim(FFFID) + '''');
sql.Add(' select * from Finance_Flow where FromID1=''' + Trim(FFFID) + '''');
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_1); SCreateCDS(ADOQueryMain, CDS_1);
@ -267,7 +267,26 @@ begin
self.OrderNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString); self.OrderNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString);
self.F_Code.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Code').AsString); self.F_Code.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Code').AsString);
// 多选指示单信息
First;
while Locate('SSel', True, []) do
begin
with Self.CDS_1 do
begin
Append;
Self.CDS_1.FieldByName('QtyUnit').AsString := frmFinTradePlanSel.CDS_1.FieldByName('OrdUnit').AsString;
Self.CDS_1.FieldByName('F_Name').AsString := frmFinTradePlanSel.CDS_1.FieldByName('C_Name').AsString;
Self.CDS_1.FieldByName('F_ColorNo').AsString := frmFinTradePlanSel.CDS_1.FieldByName('C_ColorNo').AsString;
Self.CDS_1.FieldByName('F_Color').AsString := frmFinTradePlanSel.CDS_1.FieldByName('C_Color').AsString;
Self.CDS_1.FieldByName('Price').AsString := frmFinTradePlanSel.CDS_1.FieldByName('ProcessingPrice').AsString;
Self.CDS_1.FieldByName('Currency').AsString := frmFinTradePlanSel.CDS_1.FieldByName('OrdUnit').AsString;
Self.CDS_1.FieldByName('Qty').AsString := frmFinTradePlanSel.CDS_1.FieldByName('OrdQty').AsString;
Self.CDS_1.FieldByName('QtyUnit').AsString := frmFinTradePlanSel.CDS_1.FieldByName('OrdUnit').AsString;
Self.CDS_1.post;
end;
frmFinTradePlanSel.CDS_1.Delete;
end;
// 多选指示单信息
with ADO2 do with ADO2 do
begin begin
Filtered := False; Filtered := False;
@ -296,6 +315,7 @@ begin
end; end;
end; end;
end; end;
end; end;
end; end;
@ -543,53 +563,65 @@ function TfrmReceivableInput.SaveData(): Boolean;
var var
MaxId, MaxSubId, FCoCode, FCCID: string; MaxId, MaxSubId, FCoCode, FCCID: string;
begin begin
try try
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
if Trim(FFFID) = '' then with CDS_1 do
begin begin
if not GetLSNo(ADOQueryCmd, MaxId, 'YS', 'Finance_Flow', 4, 1) then First;
raise Exception.Create('取最大号失败！'); while not Eof do
end begin
else // if Trim(FFFID) = '' then
begin if Trim(CDS_1.fieldbyname('FFID').AsString) = '' then
MaxId := Trim(FFFID); begin
end; if not GetLSNo(ADOQueryCmd, MaxId, 'YS', 'Finance_Flow', 4, 1) then
raise Exception.Create('取最大号失败！');
end
else
begin
MaxId := Trim(CDS_1.fieldbyname('FFID').AsString);//Trim(FFFID);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
// sql.Add('select * from Finance_Flow where FFID=''' + Trim(FFFID) + '''');
sql.Add('select * from Finance_Flow where FFID=''' +Trim(CDS_1.fieldbyname('FFID').AsString)+ '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(CDS_1.fieldbyname('FFID').AsString)='' then //Trim(FFFID) = ''
begin
Append;
FieldByName('FillId').Value := Trim(DCode);
FieldByName('Filler').Value := Trim(DName);
FieldByName('FFFlag').Value := '应收收';
FieldByName('FFType').Value := '应收款登记';
FieldByName('status').Value := '0';
FieldByName('FFQtyFlag').Value := 1;
end
else
begin
Edit;
FieldByName('EditId').Value := Trim(DCode);
FieldByName('Editer').Value := Trim(DName);
FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('Store').Value := Trim(canshu4);
FieldByName('OppCoNo').Value := Trim(OppCoName.Properties.LookupItems.Text);
FieldByName('OurCoNo').Value := Trim(OurCoName.Properties.LookupItems.Text);
FieldByName('OppParentCoNo').Value := Trim(OppParentCoName.Properties.LookupItems.Text);
FieldByName('FFID').Value := Trim(MaxId);
RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 0);
with ADOQueryCmd do RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Finance_Flow', 0);
begin Post;
Close;
SQL.Clear; end;
sql.Add('select * from Finance_Flow where FFID=''' + Trim(FFFID) + ''''); Next;
Open;
end;
with ADOQueryCmd do
begin
if Trim(FFFID) = '' then
begin
Append;
FieldByName('FillId').Value := Trim(DCode);
FieldByName('Filler').Value := Trim(DName);
FieldByName('FFFlag').Value := '应收收';
FieldByName('FFType').Value := '应收款登记';
FieldByName('status').Value := '0';
FieldByName('FFQtyFlag').Value := 1;
end
else
begin
Edit;
FieldByName('EditId').Value := Trim(DCode);
FieldByName('Editer').Value := Trim(DName);
FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
end; end;
FieldByName('Store').Value := Trim(canshu4);
FieldByName('OppCoNo').Value := Trim(OppCoName.Properties.LookupItems.Text);
FieldByName('OurCoNo').Value := Trim(OurCoName.Properties.LookupItems.Text);
FieldByName('OppParentCoNo').Value := Trim(OppParentCoName.Properties.LookupItems.Text);
FieldByName('FFID').Value := Trim(MaxId);
RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 0);
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Finance_Flow', 0);
Post;
end; end;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
@ -665,8 +697,6 @@ begin
end; end;
end; end;
procedure TfrmReceivableInput.Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); procedure TfrmReceivableInput.Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean);
var var
FValue: string; FValue: string;

3
A09财务通用管理/U_ReceivableList.pas
View File

@ -704,7 +704,8 @@ begin
with frmReceivableInput do with frmReceivableInput do
begin begin
canshu4 := Self.canshu4; canshu4 := Self.canshu4;
FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString); FFFID := Trim(SELF.CDS_1.fieldbyname('FromID1').AsString);
// FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
FAuthority := Self.FAuthority; FAuthority := Self.FAuthority;
if ShowModal = 1 then if ShowModal = 1 then
begin begin

18
T02贸易汇总仓库/U_TradeClothTotalInList.dfm
View File

@ -28,7 +28,6 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 2 TabOrder = 2
ExplicitWidth = 1295
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -131,7 +130,6 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
ParentBackground = False ParentBackground = False
ParentColor = True ParentColor = True
TabOrder = 3 TabOrder = 3
ExplicitWidth = 1295
object Label3: TLabel object Label3: TLabel
Left = 254 Left = 254
Top = 47 Top = 47
@ -268,7 +266,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
TabOrder = 6 TabOrder = 6
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1291 ExplicitWidth = 1230
ExplicitHeight = 37 ExplicitHeight = 37
inherited lbl2: TLabel inherited lbl2: TLabel
Width = 16 Width = 16
@ -347,20 +345,16 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Height = 517 Height = 517
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
Properties.ActivePage = cxTabSheet2 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 5 Properties.Style = 5
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ExplicitWidth = 1295
ExplicitHeight = 514
ClientRectBottom = 517 ClientRectBottom = 517
ClientRectRight = 1234 ClientRectRight = 1234
ClientRectTop = 32 ClientRectTop = 32
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = ' '#20135#21697#27719#24635' ' Caption = ' '#20135#21697#27719#24635' '
ImageIndex = 0 ImageIndex = 0
ExplicitWidth = 1295
ExplicitHeight = 482
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
@ -369,8 +363,8 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1295 ExplicitLeft = -64
ExplicitHeight = 482 ExplicitTop = 24
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
OnDblClick = TV2DblClick OnDblClick = TV2DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -523,8 +517,6 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
object cxTabSheet2: TcxTabSheet object cxTabSheet2: TcxTabSheet
Caption = #20135#21697#26126#32454 Caption = #20135#21697#26126#32454
ImageIndex = 1 ImageIndex = 1
ExplicitWidth = 1295
ExplicitHeight = 482
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
@ -533,8 +525,6 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1295
ExplicitHeight = 482
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

43
T02贸易汇总仓库/U_TradeClothTotalInList.pas
View File

@ -164,6 +164,7 @@ type
procedure cxPageControl1Change(Sender: TObject); procedure cxPageControl1Change(Sender: TObject);
private private
canshu1, FSTKName, canshu3, canshu4: string; canshu1, FSTKName, canshu3, canshu4: string;
FMXflag: string; //判断是否刷新所有的明细
procedure InitGrid1(); procedure InitGrid1();
procedure InitGrid2(); procedure InitGrid2();
procedure setStatus(); procedure setStatus();
@ -213,23 +214,26 @@ begin
SqlStr := SqlStr + ' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + ''''; SqlStr := SqlStr + ' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
SqlStr := SqlStr + ' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + ''''; SqlStr := SqlStr + ' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''';
SqlStr := SqlStr + ' and IOFlag=''Èë¿â'' '; SqlStr := SqlStr + ' and IOFlag=''Èë¿â'' ';
if FMXflag = '是' then //是就是刷新所有的明细
begin
WSqlStr := CommonFiltersByTv(Tv2, '{"RemovalNull":true,"Fields":"BCIONO"}'); end
else
begin
WSqlStr := CommonFiltersByTv(Tv2, '{"RemovalNull":true,"Fields":"BCIONO"}');
end;
if TRIM(WSqlStr) <> '' then if TRIM(WSqlStr) <> '' then
SqlStr := SqlStr + ' and ' + WSqlStr; SqlStr := SqlStr + ' and ' + WSqlStr;
if Trim(canshu4) <> '' then if Trim(canshu4) <> '' then
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + ''''; SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
SqlStr := SqlStr + ' order by IOTime desc'; SqlStr := SqlStr + ' order by IOTime desc';
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID'); InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID');
end; end;
procedure TfrmTradeClothTotalInList.InitGrid2(); procedure TfrmTradeClothTotalInList.InitGrid2();
var var
SqlStr: string; SqlStr: string;
begin // 两个QtyUnit，what’s meanings? begin
SqlStr := ' select A.BCIONO,A.C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit,StkPieceint=sum(CEILING(A.StkPiece)),StkQty=sum(StkQty) '; SqlStr := ' select A.BCIONO,A.C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit,StkPieceint=sum(CEILING(A.StkPiece)),StkQty=sum(StkQty) ';
SqlStr := SqlStr + ' from BS_Cloth_IO A '; SqlStr := SqlStr + ' from BS_Cloth_IO A ';
SqlStr := SqlStr + ' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + ''''; SqlStr := SqlStr + ' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''';
@ -252,7 +256,19 @@ end;
procedure TfrmTradeClothTotalInList.TBRafreshClick(Sender: TObject); procedure TfrmTradeClothTotalInList.TBRafreshClick(Sender: TObject);
begin begin
frmFrameDateSel1.BegDate.SetFocus; frmFrameDateSel1.BegDate.SetFocus;
InitGrid2(); // InitGrid2();
case cxPageControl1.ActivePageIndex of
0:
begin
InitGrid2();
end;
1:
begin
FMXflag := '是';
InitGrid1();
end;
end;
end; end;
procedure TfrmTradeClothTotalInList.ToolButton1Click(Sender: TObject); procedure TfrmTradeClothTotalInList.ToolButton1Click(Sender: TObject);
@ -315,12 +331,25 @@ end;
procedure TfrmTradeClothTotalInList.TV2DblClick(Sender: TObject); procedure TfrmTradeClothTotalInList.TV2DblClick(Sender: TObject);
begin begin
cxPageControl1.ActivePageIndex := 1; cxPageControl1.ActivePageIndex := 1;
FMXflag := '否';
end; end;
procedure TfrmTradeClothTotalInList.BCIONoKeyPress(Sender: TObject; var Key: Char); procedure TfrmTradeClothTotalInList.BCIONoKeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then
InitGrid2(); begin
case cxPageControl1.ActivePageIndex of
0:
begin
InitGrid2();
end;
1:
begin
FMXflag := '是';
InitGrid1();
end;
end;
end;
end; end;
procedure TfrmTradeClothTotalInList.btn1Click(Sender: TObject); procedure TfrmTradeClothTotalInList.btn1Click(Sender: TObject);

18
T02贸易汇总仓库/U_TradeXinYuOutList.dfm
View File

@ -3,13 +3,13 @@ inherited frmTradeXinYuOutList: TfrmTradeXinYuOutList
Top = 13 Top = 13
Caption = #22823#36135#21333 Caption = #22823#36135#21333
ClientHeight = 594 ClientHeight = 594
ClientWidth = 1985 ClientWidth = 1924
Color = clBtnFace Color = clBtnFace
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 2001 ExplicitWidth = 1940
ExplicitHeight = 633 ExplicitHeight = 633
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -17,7 +17,7 @@ inherited frmTradeXinYuOutList: TfrmTradeXinYuOutList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1985 Width = 1924
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -95,7 +95,7 @@ inherited frmTradeXinYuOutList: TfrmTradeXinYuOutList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1985 Width = 1924
Height = 91 Height = 91
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -165,7 +165,7 @@ inherited frmTradeXinYuOutList: TfrmTradeXinYuOutList
inline frmFrameDateSel1: TfrmFrameDateSel inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 1981 Width = 1920
Height = 37 Height = 37
Align = alTop Align = alTop
Color = clWhite Color = clWhite
@ -174,7 +174,7 @@ inherited frmTradeXinYuOutList: TfrmTradeXinYuOutList
TabOrder = 4 TabOrder = 4
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1981 ExplicitWidth = 1920
ExplicitHeight = 37 ExplicitHeight = 37
inherited lbl2: TLabel inherited lbl2: TLabel
Width = 16 Width = 16
@ -187,7 +187,7 @@ inherited frmTradeXinYuOutList: TfrmTradeXinYuOutList
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 152 Top = 152
Width = 1985 Width = 1924
Height = 442 Height = 442
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
@ -403,7 +403,7 @@ inherited frmTradeXinYuOutList: TfrmTradeXinYuOutList
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
Top = 121 Top = 121
Width = 1985 Width = 1924
Height = 31 Height = 31
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -416,7 +416,7 @@ inherited frmTradeXinYuOutList: TfrmTradeXinYuOutList
' '#20840#37096' ') ' '#20840#37096' ')
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 31 ClientRectBottom = 31
ClientRectRight = 1985 ClientRectRight = 1924
ClientRectTop = 28 ClientRectTop = 28
end end
inherited loadProcess: TPanel inherited loadProcess: TPanel

3
T02贸易汇总仓库/U_TradeXinYuOutList.pas
View File

@ -355,6 +355,9 @@ begin
sql.Add('update Trade_Market_Main SET status=''10'' '); sql.Add('update Trade_Market_Main SET status=''10'' ');
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add(' update Trade_Market_Sub SET OutQty=(select sum(qty) from Trade_Market_Sub_Qty x where x.TMSId = Trade_Market_Sub.TMSID) ');
sql.Add('where TMMId=' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
sql.Add('values(''贸易布坯出库'' '); sql.Add('values(''贸易布坯出库'' ');
sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString))); sql.Add(',' + quotedstr(trim(Order_Main.fieldbyname('TMMId').AsString)));

2
T05贸易门市管理/U_GetDllForm.pas
View File

@ -78,7 +78,7 @@ begin
//Parameters1 := '管理'; //Parameters1 := '管理';
Parameters1 := '查询'; Parameters1 := '查询';
// Parameters2 := '梭织'; // Parameters2 := '梭织';
Parameters4 := '新余'; // Parameters4 := '新余';
DCode := 'ADMIN'; DCode := 'ADMIN';
DName := 'ADMIN'; DName := 'ADMIN';
end end

4
T05贸易门市管理/U_TradeMarketInPut.pas
View File

@ -491,8 +491,12 @@ begin
sql.Clear; sql.Clear;
sql.Add(' SELECT distinct A.C_Code,A.C_Name,A.qtyunit,A.HotQty,StkQty = SUM(B.StkQty) '); sql.Add(' SELECT distinct A.C_Code,A.C_Name,A.qtyunit,A.HotQty,StkQty = SUM(B.StkQty) ');
SQL.ADD(' FROM Bs_Cloth_Info A LEFT JOIN Bs_Cloth_Io B on A.C_Code=B.C_Code'); SQL.ADD(' FROM Bs_Cloth_Info A LEFT JOIN Bs_Cloth_Io B on A.C_Code=B.C_Code');
sql.add(' where B.ioflag=''入库'' ');
if Trim(canshu4) = '新余' then
sql.Add(' and isnull(STKNAME,'''')=''新余'' ');
SQL.add('group by A.C_Code,A.C_Name,A.qtyunit,A.HotQty'); SQL.add('group by A.C_Code,A.C_Name,A.qtyunit,A.HotQty');
SQL.ADD('order by A.C_Code '); SQL.ADD('order by A.C_Code ');
// showmessage(SQL.text);
Open; Open;
end; end;
with ADO_YS do with ADO_YS do