Group_02/D7gmYushang
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
main
D7gmYushang/样品仓库(SampleWarehouse.dll)/U_JYGLlistCW.pas

1307 lines
39 KiB
ObjectPascal
Raw Permalink Normal View History

0
2025-09-24 13:13:14 +08:00
unit U_JYGLlistCW;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData,
cxButtonEdit, cxDropDownEdit, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Common,
RM_Class, RM_e_Xls, RM_GridReport, RM_System, RM_Dataset, cxTextEdit, cxPC,
cxCheckBox, Menus, U_SLT, jpeg, cxContainer, cxMaskEdit, MovePanel,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
cxCalendar, cxSplitter, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinscxPCPainter;
type
TfrmJYGLlistCW = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBAdd: TToolButton;
TBEdit: TToolButton;
TBDel: TToolButton;
TBExport: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
Label1: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
v1CRType: TcxGridDBColumn;
v1CRTime: TcxGridDBColumn;
v1CRNO: TcxGridDBColumn;
v1Filler: TcxGridDBColumn;
Label2: TLabel;
CRType: TComboBox;
Label5: TLabel;
ADOQueryCmd: TADOQuery;
ADOQueryTmp: TADOQuery;
DataSource1: TDataSource;
CDS_Main: TClientDataSet;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOPrint: TADOQuery;
RMXLSExport1: TRMXLSExport;
v1inoutNO: TcxGridDBColumn;
inoutNo: TEdit;
Label7: TLabel;
RMDB_Main: TRMDBDataSet;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxStyle2: TcxStyle;
cxStyle_gridRow: TcxStyle;
cxStyle_gridFoot: TcxStyle;
cxStyle_gridHead: TcxStyle;
cxStyle_gridGroupBox: TcxStyle;
cxStyle_yellow: TcxStyle;
cxStyle_Red: TcxStyle;
cxStyle_fontBlack: TcxStyle;
cxStyle_fontclFuchsia: TcxStyle;
cxStyle_fontclPurple: TcxStyle;
cxStyle_fontclGreen: TcxStyle;
cxStyle_fontclBlue: TcxStyle;
cxStyle_fontclTeal: TcxStyle;
cxStyle_fontclOlive: TcxStyle;
Label8: TLabel;
ToFactoryName: TEdit;
ADOQueryMain: TADOQuery;
RM1: TRMGridReport;
v1Column5: TcxGridDBColumn;
CODENAME: TEdit;
Color: TEdit;
Label10: TLabel;
Label11: TLabel;
CODE: TEdit;
Label14: TLabel;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
adoqueryPicture: TADOQuery;
tbChk: TToolButton;
tbChkNo: TToolButton;
cxTabControl1: TcxTabControl;
btn1: TToolButton;
cv1Column6: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
ToolButton1: TToolButton;
ComboBox1: TComboBox;
MovePanel1: TMovePanel;
JSY: TcxButtonEdit;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
v1Column8: TcxGridDBColumn;
ToolButton4: TToolButton;
cxStyleRepository2: TcxStyleRepository;
cxStyle3: TcxStyle;
cxStyle4: TcxStyle;
cxStyle5: TcxStyle;
Label4: TLabel;
CPLeiBie: TComboBox;
Label6: TLabel;
salesman: TEdit;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
cxSplitter1: TcxSplitter;
Panel2: TPanel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn17: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridDBColumn19: TcxGridDBColumn;
cxGridDBColumn20: TcxGridDBColumn;
cxGridDBColumn21: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
CDS_SUB: TClientDataSet;
DataSource2: TDataSource;
TV2Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
ADOQuery1: TADOQuery;
Tv1Column8: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
TV2Column5: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
TV2Column6: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure OrderNoChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure v1Column6CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure tbChkClick(Sender: TObject);
procedure tbChkNoClick(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure JSYPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure v1CRTypePropertiesChange(Sender: TObject);
private
procedure InitGrid();
procedure InitSUB();
function YSData(ADO: TADOQuery): Boolean;
function YSData_Other(ADO: TADOQuery; fYFName: string; fmoney: double): Boolean;
procedure SetStatus();
{ Private declarations }
public
canshu1, canshu2, fCKName: string;
{ Public declarations }
end;
var
Mach: array of TfrmSlt;
implementation
uses
U_DataLink, U_Fun10, U_ZDYHelp, U_JYGLCK, u_fun;
{$R *.dfm}
procedure TfrmJYGLlistCW.SetStatus();
begin
tbADD.Visible := False;
tbEdit.Visible := False;
tbChk.Visible := False;
tbChkNo.Visible := False;
TBDel.Visible := False;
// cv1Column6.Visible := False;
// cv1Column6.Hidden := True;
if Trim(CanShu1) = '<27>ֿ<EFBFBD>' then
begin
// label8.Visible := False;
btn1.Visible := False;
// ToFactoryName.Visible := False;
end;
case cxTabControl1.TabIndex of
0:
begin
if Trim(CanShu1) = '<27>ֿ<EFBFBD>' then
begin
tbChk.Visible := True;
tbEdit.Visible := true;
// TBDel.Visible := true;
end;
end;
1:
begin
if Trim(CanShu1) = '<27>ֿ<EFBFBD>' then
begin
tbChkNo.Visible := True;
end;
end;
end;
end;
function TfrmJYGLlistCW.YSData(ADO: TADOQuery): Boolean;
var
CRID, YFID, Price, PriceUnit, OrderUnit, FComTaiTou, cust: string;
begin
Result := False;
with ADOQueryTmp do
begin
Close;
SQL.Clear;
sql.Add('select * from YF_Money_KC where FactoryName=''' + Trim(ADO.fieldbyname('custName').asstring) + ''' and YFDefFlag1=0 ');
Open;
end;
if not ADOQueryTmp.IsEmpty then
begin
CRID := ADOQueryTmp.fieldbyname('CRID').AsString;
end
else
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YF_Money_CRID set CRID=CRID+1');
sql.Add('select * from YF_Money_CRID ');
Open;
end;
CRID := ADOQueryCmd.fieldbyname('CRID').AsString;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from YF_Money_KC where 1<>1');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('CRID').Value := StrToInt(CRID);
FieldByName('FactoryName').Value := Trim(ADO.fieldbyname('custName').asstring);
FieldByName('ZdyStr1').Value := 'Ӧ<><D3A6><EFBFBD><EFBFBD>';
Post;
end;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete from YF_Money_CR ');
sql.Add(' where MainID=''' + Trim(ADO.fieldbyname('CRNO').AsString) + '''');
sql.Add(' and subID=''' + Trim(ADO.fieldbyname('CRID').AsString) + '''');
sql.Add(' and YFName=''<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'' ');
execsql;
end;
with ADOQueryTmp do
begin
Close;
sql.Clear;
sql.Add('select * from YF_Money_CR ');
sql.Add(' where MainID=''' + Trim(ADO.fieldbyname('CRNO').AsString) + '''');
sql.Add(' and subID=''' + Trim(ADO.fieldbyname('CRID').AsString) + '''');
sql.Add(' and YFName=''<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'' ');
Open;
end;
if ADOQueryTmp.IsEmpty then
begin
if GetLSNo(ADOQueryCmd, YFID, 'CS', 'YF_Money_CR', 4, 1) = False then
begin
Application.MessageBox('ȡӦ<C8A1><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from YF_Money_CR where 1<>1');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('YFID').Value := Trim(YFID);
FieldByName('YFTypeId').Value := Trim(ADO.fieldbyname('CRNO').AsString);
FieldByName('CRID').Value := StrToInt(CRID);
FieldByName('Filler').Value := Trim(DName);
FieldByName('CRType').Value := 'Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>';
FieldByName('CRFlag').Value := 'Ӧ<><D3A6><EFBFBD><EFBFBD>';
FieldByName('QtyFlag').Value := 1;
FieldByName('FactoryName').Value := Trim(ADO.fieldbyname('custName').asstring);
FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', ADO.fieldbyname('CRTime').AsDateTime));
FieldByName('YFType').Value := '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>';
FieldByName('ps').Value := ADO.fieldbyname('RollNum').AsFloat;
FieldByName('Qty').Value := ADO.fieldbyname('Qty').AsFloat;
FieldByName('Price').Value := ADO.fieldbyname('Price').AsFloat;
FieldByName('Money').Value := ADO.fieldbyname('Money').AsFloat;
FieldByName('BBMoney').Value := ADO.fieldbyname('Money').AsFloat;
FieldByName('HuiLv').Value := 1;
FieldByName('BZType').Value := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
FieldByName('QtyUnit').Value := Trim(ADO.fieldbyname('QtyUnit').AsString);
FieldByName('ComTaiTou').Value := Trim(cust);
FieldByName('YFName').Value := '<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
FieldByName('MainId').Value := Trim(ADO.fieldbyname('CRNO').AsString);
FieldByName('subID').Value := Trim(ADO.fieldbyname('CRID').AsString);
FieldByName('status').Value := '0';
Post;
end;
end
else
begin
YFID := Trim(ADOQueryTmp.fieldbyname('YFID').AsString);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)');
sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)');
sql.Add(' where CRID=' + CRID);
ExecSQL;
end;
Result := True;
end;
function TfrmJYGLlistCW.YSData_Other(ADO: TADOQuery; fYFName: string; fmoney: double): Boolean;
var
CRID, YFID, Price, PriceUnit, OrderUnit, FComTaiTou, cust: string;
begin
Result := False;
with ADOQueryTmp do
begin
Close;
SQL.Clear;
sql.Add('select * from YF_Money_KC where FactoryName=''' + Trim(ADO.fieldbyname('custName').asstring) + ''' and YFDefFlag1=0 ');
Open;
end;
if not ADOQueryTmp.IsEmpty then
begin
CRID := ADOQueryTmp.fieldbyname('CRID').AsString;
end
else
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YF_Money_CRID set CRID=CRID+1');
sql.Add('select * from YF_Money_CRID ');
Open;
end;
CRID := ADOQueryCmd.fieldbyname('CRID').AsString;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from YF_Money_KC where 1<>1');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('CRID').Value := StrToInt(CRID);
FieldByName('FactoryName').Value := Trim(ADO.fieldbyname('custName').asstring);
FieldByName('ZdyStr1').Value := 'Ӧ<><D3A6><EFBFBD><EFBFBD>';
Post;
end;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete from YF_Money_CR ');
sql.Add(' where MainID=''' + Trim(ADO.fieldbyname('CRNO').AsString) + '''');
sql.Add(' and subID=''' + Trim(ADO.fieldbyname('CRID').AsString) + '''');
sql.Add(' and YFName=''' + trim(fYFName) + ''' ');
execsql;
end;
with ADOQueryTmp do
begin
Close;
sql.Clear;
sql.Add('select * from YF_Money_CR ');
sql.Add(' where MainID=''' + Trim(ADO.fieldbyname('CRNO').AsString) + '''');
sql.Add(' and subID=''' + Trim(ADO.fieldbyname('CRID').AsString) + '''');
sql.Add(' and YFName=''' + trim(fYFName) + ''' ');
Open;
end;
if ADOQueryTmp.IsEmpty then
begin
if GetLSNo(ADOQueryCmd, YFID, 'CS', 'YF_Money_CR', 4, 1) = False then
begin
Application.MessageBox('ȡӦ<C8A1><D3A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from YF_Money_CR where 1<>1');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('YFID').Value := Trim(YFID);
FieldByName('YFTypeId').Value := Trim(ADO.fieldbyname('CRNO').AsString);
FieldByName('CRID').Value := StrToInt(CRID);
FieldByName('Filler').Value := Trim(DName);
FieldByName('CRType').Value := 'Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>';
FieldByName('CRFlag').Value := 'Ӧ<><D3A6><EFBFBD><EFBFBD>';
FieldByName('QtyFlag').Value := 1;
FieldByName('FactoryName').Value := Trim(ADO.fieldbyname('custName').asstring);
FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', ADO.fieldbyname('CRTIme').AsDateTime));
FieldByName('YFType').Value := '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>';
FieldByName('Qty').Value := 1;
FieldByName('Price').Value := fmoney;
FieldByName('Money').Value := fmoney;
FieldByName('BBMoney').Value := fmoney;
FieldByName('HuiLv').Value := 1;
FieldByName('BZType').Value := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
FieldByName('QtyUnit').Value := '<27><>';
FieldByName('ComTaiTou').Value := Trim(cust);
FieldByName('YFName').Value := fYFName;
FieldByName('MainId').Value := Trim(ADO.fieldbyname('CRNO').AsString);
FieldByName('subID').Value := Trim(ADO.fieldbyname('CRID').AsString);
FieldByName('status').Value := '0';
Post;
end;
end
else
begin
YFID := Trim(ADOQueryTmp.fieldbyname('YFID').AsString);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)');
sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)');
sql.Add(' where CRID=' + CRID);
ExecSQL;
end;
Result := True;
end;
procedure TfrmJYGLlistCW.InitGrid();
begin
try
with ADOQueryMain do
begin
close;
sql.Clear;
sql.Add(' select (CASE WHEN A.PRINTCOUNT>0 THEN 1 ELSE 0 END )PRINTCOUNT,ZBZNOTE,inoutno,ToFactoryName,CPLeiBie,CRTime,CRType,SHDiZhi,chker,SHDianHua,SHer,Filler,CPLeiBie,salesman ');
sql.Add(',CWYRZ=cast((case when isnull((select count(YFPZNO) from YF_Money_CR_Sub X where X.YFPZNO=A.INOUTNO ),0)>0 then 1 else 0 end) as bit)');
// sql.Add(',znote=(select top 1 note from CK_Sample_CR b where a.inoutno=b.inoutno and note is not null)');
SQL.Add(',YDY=CAST((CASE WHEN PRINTCOUNT>0 THEN 1 ELSE 0 END ) AS BIT)');
SQL.Add(',CODE=cast((select P_CODE+'';'' from CK_Sample_CR B where B.INOUTNO=A.INOUTNO for xml path('''')) as varchar(200))');
SQL.Add(',CODENAME=cast((select P_CodeName+'';'' from CK_Sample_CR B where B.INOUTNO=A.INOUTNO for xml path('''')) as varchar(200))');
SQL.Add(',Color=cast((select P_Color+'';'' from CK_Sample_CR B where B.INOUTNO=A.INOUTNO for xml path('''')) as varchar(200))');
SQL.Add(' from CK_Sample_CR A ');
sql.Add(' where CRFlag=''<27><><EFBFBD><EFBFBD>'' and A.valid=''Y'' ');
sql.Add(' and VisType=''<27><><EFBFBD><EFBFBD>'' and CKName=' + quotedstr(trim(fCKName)));
case cxTabControl1.TabIndex of
0:
begin
sql.Add(' and isnull(A.Chkstatus,''-1'')=''0''');
sql.Add(' and CRTime>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
sql.Add(' and CRTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
sql.Add('and a.jsperson is not null');
end;
1:
begin
sql.Add(' and isnull(A.Chkstatus,''-1'')=''1''');
sql.Add(' and CRTime>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
sql.Add(' and CRTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
end;
2:
begin
// sql.Add(' and isnull(A.Chkstatus,''-1'')=''1''');
sql.Add(' and CRTime>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
sql.Add(' and CRTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
end;
end;
sql.Add('group by (CASE WHEN A.PRINTCOUNT>0 THEN 1 ELSE 0 END ),inoutno,chker,ToFactoryName,ZBZNOTE,CRTime,CPLeiBie,SHer,SHDiZhi,SHDianHua,CRType,Filler,CPLeiBie,salesman');
sql.Add(' order by inoutNo desc ');
// showmessage(sql.Text);
open;
end;
SCreateCDS20(ADOQueryMain, CDS_Main);
SInitCDSData20(ADOQueryMain, CDS_Main);
finally
end;
end;
procedure TfrmJYGLlistCW.InitSUB();
begin
try
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add(' select * ');
sql.Add(',YSM=cast((case when isnull((select sum(ISNULL(FHPS,0)) from FHSQ_SUB X where X.FROMYPID=A.CRNO ),0)>0 then 1 else 0 end) as bit)');
// SQL.Add(',YDY=CAST((CASE WHEN PRINTCOUNT>0 THEN 1 ELSE 0 END ) AS BIT)');
SQL.Add(' from CK_Sample_CR A ');
sql.Add(' where CRFlag=''<27><><EFBFBD><EFBFBD>'' and A.valid=''Y'' ');
sql.Add(' and VisType=''<27><><EFBFBD><EFBFBD>'' and CKName=' + quotedstr(trim(fCKName)));
SQL.Add('AND INOUTNO=' + QUOTEDSTR(Trim(CDS_Main.fieldbyname('INOUTNO').AsString)));
case cxTabControl1.TabIndex of
0:
begin
sql.Add(' and isnull(A.Chkstatus,''-1'')=''0''');
sql.Add(' and CRTime>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
sql.Add(' and CRTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
sql.Add('and a.jsperson is not null');
end;
1:
begin
sql.Add(' and isnull(A.Chkstatus,''-1'')=''1''');
sql.Add(' and CRTime>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
sql.Add(' and CRTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
end;
2:
begin
// sql.Add(' and isnull(A.Chkstatus,''-1'')=''1''');
sql.Add(' and CRTime>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
sql.Add(' and CRTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
end;
end;
sql.Add(' order by inoutNo desc ');
// showmessage(sql.Text);
open;
end;
SCreateCDS20(ADOQuery1, CDS_SUB);
SInitCDSData20(ADOQuery1, CDS_SUB);
finally
end;
end;
procedure TfrmJYGLlistCW.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := cafree;
end;
procedure TfrmJYGLlistCW.TBAddClick(Sender: TObject);
begin
frmJYGLCK := TfrmJYGLCK.create(self);
with frmJYGLCK do
begin
fkeyNo := '';
fType := 0;
fCKName := trim(self.fCKName);
canshu1 := Self.canshu1;
jyfs := '<27><><EFBFBD><EFBFBD>';
if showmodal = 1 then
begin
TBRafresh.Click;
self.CDS_Main.Locate('crNo', trim(fkeyNo), []);
end;
free;
end;
end;
procedure TfrmJYGLlistCW.OrderNoChange(Sender: TObject);
begin
if ADOQuerymain.Active = False then
Exit;
SDofilter(ADOQuerymain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQuerymain, CDS_Main);
SInitCDSData20(ADOQuerymain, CDS_Main);
end;
procedure TfrmJYGLlistCW.FormShow(Sender: TObject);
begin
readCxGrid(trim(self.Caption), Tv1, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
readCxGrid(trim(self.Caption), Tv2, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>2');
// SetStatus();
InitGrid();
end;
procedure TfrmJYGLlistCW.FormCreate(Sender: TObject);
begin
EndDate.Date := SGetServerDate10(ADOQueryTmp);
BegDate.Date := EndDate.Date - 30;
cxGrid1.Align := alclient;
end;
procedure TfrmJYGLlistCW.TBCloseClick(Sender: TObject);
begin
writeCxGrid(trim(self.Caption), Tv1, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
writeCxGrid(trim(self.Caption), Tv2, '<27><>Ʒ<EFBFBD>ֿ<EFBFBD>2');
close;
end;
procedure TfrmJYGLlistCW.TBEditClick(Sender: TObject);
begin
if cds_main.IsEmpty then
exit;
if (cds_main.fieldbyname('Filler').AsString <> trim(DName)) and (trim(canshu1) <> '<27>ֿ<EFBFBD>') then
begin
application.MessageBox('<27><><EFBFBD><EFBFBD>Ա<EFBFBD><D4B1><EFBFBD><EFBFBD>ȷ<EFBFBD><C8B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.Add('select * from CK_Sample_CR where Chkstatus=''1'' ');
SQL.Add('and inoutno=' + quotedstr(trim(cds_main.fieldbyname('inoutno').AsString)));
SQL.Add('AND VALID=''Y''');
Open;
end;
if ADOQueryTmp.IsEmpty = False then
begin
application.MessageBox('<27><><EFBFBD>ȳ<EFBFBD><C8B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD>ݣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
frmJYGLCK := TfrmJYGLCK.create(self);
with frmJYGLCK do
begin
FCK := '1';
// fkeyNo := self.cds_main.fieldbyname('crno').AsString;
fxiugai := self.cds_main.fieldbyname('inoutno').AsString;
fType := 1;
InoutNo.Enabled := false;
fCKName := trim(self.fCKName);
if showmodal = 1 then
begin
TBRafresh.Click;
// self.CDS_Main.Locate('CRNO', trim(fkeyNo), []);
end;
free;
end;
end;
procedure TfrmJYGLlistCW.TBDelClick(Sender: TObject);
var
YFID, CRID, note: string;
begin
if CDS_Main.IsEmpty then
Exit;
// if Trim(CDS_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
// begin
// Application.MessageBox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
// Exit;
// end;
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.Add('select * from CK_Sample_CR where Chkstatus=''1'' ');
SQL.Add('and inoutno=' + quotedstr(trim(cds_main.fieldbyname('inoutno').AsString)));
SQL.Add('AND VALID=''Y''');
Open;
end;
if ADOQueryTmp.IsEmpty = False then
begin
application.MessageBox('<27><><EFBFBD>ȳ<EFBFBD><C8B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD>ݣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.Add('select * from fhsq_main where ');
SQL.Add(' FROMCRNO=' + quotedstr(trim(cds_main.fieldbyname('crno').AsString)));
Open;
end;
if ADOQueryTmp.IsEmpty = False then
begin
application.MessageBox('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
try
if Trim(CDS_Main.FieldByName('CRNO').AsString) <> '' then
begin
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('update CK_Sample_CR set Valid=''N'' where CRNO=' + quotedstr(Trim(CDS_Main.FieldByName('CRNO').AsString)));
sql.Add('delete yp_inout where fromCRNO=' + quotedstr(Trim(CDS_Main.FieldByName('CRNO').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>')));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD>ţ<EFBFBD>' + trim(CDS_Main.FieldByName('crno').AsString))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Add('exec P_Up_SampleKc ' + quotedstr(trim(CDS_Main.fieldbyname('MJID').AsString)));
Open;
end;
ADOQueryCmd.Connection.CommitTrans;
CDS_Main.Delete;
end;
except
Application.MessageBox('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmJYGLlistCW.TBRafreshClick(Sender: TObject);
begin
initGrid();
end;
procedure TfrmJYGLlistCW.TBExportClick(Sender: TObject);
begin
if CDS_Main.IsEmpty then
Exit;
TcxGridToExcel(self.Caption, cxgrid1);
end;
procedure TfrmJYGLlistCW.v1Column6CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
var
colIdx0, colIdx1: integer;
begin
colIdx0 := tv1.GetColumnByFieldName('CRNO').Index;
if (ARow1.Values[colIdx0] = ARow2.Values[colIdx0]) then
AAreEqual := True
else
AAreEqual := False;
end;
procedure TfrmJYGLlistCW.N1Click(Sender: TObject);
begin
SelOKNo(CDS_Main, True);
end;
procedure TfrmJYGLlistCW.N2Click(Sender: TObject);
begin
SelOKNo(CDS_Main, False);
end;
procedure TfrmJYGLlistCW.cxTabControl1Change(Sender: TObject);
begin
SetStatus();
InitGrid();
end;
procedure TfrmJYGLlistCW.tbChkClick(Sender: TObject);
begin
if CDS_Main.IsEmpty then
exit;
if CDS_Main.Locate('ssel', true, []) = false then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with CDS_Main do
begin
DisableControls;
First;
while not eof do
begin
if Fieldbyname('ssel').AsBoolean then
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update CK_Sample_CR SET Chkstatus=''1'',Chktime=getdate(),Chker= ' + quotedstr(trim(DName)));
sql.Add('where inoutno=' + quotedstr(trim(CDS_Main.fieldbyname('inoutno').AsString)));
sql.Add('AND jsperson is NOT NULL');
execsql;
end;
// with ADOQueryCmd do
// begin
// close;
// sql.Clear;
// sql.Add('select * from CK_Sample_CR ');
// sql.Add('where crno=' + quotedstr(trim(CDS_Main.fieldbyname('crno').AsString)));
// Open;
// end;
// if ADOQueryCmd.fieldbyname('mjid').AsString <> '' then
// begin
// with ADOQueryCmd do
// begin
// Close;
// SQL.Clear;
// SQL.Add('exec P_Up_SampleKc ' + quotedstr(trim(CDS_Main.fieldbyname('MJID').AsString)));
// Open;
// end;
// end;
end;
next;
end;
First;
EnableControls;
end;
ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('<27><><EFBFBD>˳ɹ<CBB3><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
TBRafresh.Click;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmJYGLlistCW.tbChkNoClick(Sender: TObject);
begin
if CDS_Main.IsEmpty then
exit;
if CDS_Main.Locate('ssel', true, []) = false then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with CDS_Main do
begin
DisableControls;
First;
while not eof do
begin
if Fieldbyname('ssel').AsBoolean then
begin
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.Add('select * from yf_money_cr_sub');
sql.Add('where yfpzno=' + quotedstr(trim(CDS_Main.fieldbyname('INOUTNO').AsString)));
Open;
end;
if ADOQueryTmp.IsEmpty = False then
begin
CDS_Main.EnableControls;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><D3A6><EFBFBD>˿<CBBF>ܳ<EFBFBD><DCB3><EFBFBD>!', '<27><>ʾ', 0);
ADOQueryCmd.Connection.RollbackTrans;
Exit;
end;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update CK_Sample_CR SET Chkstatus=''0'',Chktime=null , Chker=null ');
sql.Add('where inoutno=' + quotedstr(trim(CDS_Main.fieldbyname('inoutno').AsString)));
execsql;
end;
end;
next;
end;
First;
EnableControls;
end;
ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˳ɹ<CBB3><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
TBRafresh.Click;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmJYGLlistCW.btn1Click(Sender: TObject);
begin
frmJYGLCK := TfrmJYGLCK.create(self);
with frmJYGLCK do
begin
fkeyNo := '';
fType := 0;
fCKName := trim(self.fCKName);
canshu1 := Self.canshu1;
jyfs := '<27>ճ<EFBFBD>';
if showmodal = 1 then
begin
TBRafresh.Click;
self.CDS_Main.Locate('crNo', trim(fkeyNo), []);
end;
free;
end;
end;
procedure TfrmJYGLlistCW.ToolButton1Click(Sender: TObject);
var
fPrintFile: string;
EngMoney: string;
Porderno, LBName, SYRName: string;
i, j: Integer;
OrderKg: Double;
FDate: string;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
begin
if CDS_Main.IsEmpty then
Exit;
ExportFtErpFile(Trim(ComboBox1.Text) + '.rmf', ADOQueryTmp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ComboBox1.Text) + '.rmf';
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('delete TBSubID where DName=''' + Trim(DCode) + '''');
// ExecSQL;
// end;
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('SELECT * FROM TBSubID where 1=2 ');
// open;
// end;
// CDS_Main.DisableControls;
// try
// ADOQueryCmd.Connection.BeginTrans;
// with CDS_Main do
// begin
// First;
// while not Eof do
// begin
// if Fieldbyname('Ssel').AsBoolean then
// begin
//
// ADOQueryCmd.append;
// ADOQueryCmd.fieldbyname('SubId').Value := Trim(CDS_Main.fieldbyname('crno').AsString);
// ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode);
// ADOQueryCmd.post;
// end;
// Next;
// end;
// end;
// ADOQueryCmd.Connection.CommitTrans;
// except
// ADOQueryCmd.Connection.RollbackTrans;
// end;
// CDS_Main.EnableControls;
if ComboBox1.Text = '<27><>Ʒ<EFBFBD>뵥1' then
begin
with ADOPrint do
begin
Close;
sql.Clear;
// sql.Add(' select A.* ');
// SQL.Add(' from CK_Sample_CR A ');
// sql.Add(' where CRFlag=''<27><><EFBFBD><EFBFBD>'' and A.valid=''Y'' ');
// sql.Add(' and VisType=''<27><><EFBFBD><EFBFBD>'' ');
// sql.Add('and EXISTS(select SubId from TBSubID X where X.SubId=A.crno and X.DName=' + quotedstr(Trim(DCode)));
// sql.Add(')');
SQL.Add('EXEC P_Print_YPMD' + QUOTEDSTR(Trim(CDS_Main.fieldbyname('INOUTNO').AsString)));
// ShowMessage(sql.Text);
Open;
end;
end
else
begin
with ADOPrint do
begin
Close;
sql.Clear;
SQL.Add('EXEC P_Print_YPMD2' + QUOTEDSTR(Trim(CDS_Main.fieldbyname('INOUTNO').AsString)));
Open;
end;
end;
with ADOQueryTmp do
begin
Close;
sql.Clear;
SQL.Add('UPDATE CK_Sample_CR SET PRINTCOUNT=PRINTCOUNT+1 WHERE INOUTNO= ' + QUOTEDSTR(Trim(CDS_Main.fieldbyname('INOUTNO').AsString)));
EXECSQL;
end;
if FileExists(fPrintFile) then
begin
RMVariables['CustomerNoName'] := CDS_Main.fieldbyname('ToFactoryName').AsString;
RMVariables['ShouHuoer'] := CDS_Main.fieldbyname('SHer').AsString;
RMVariables['KHDH'] := CDS_Main.fieldbyname('SHDianHua').AsString;
RMVariables['FHDZ'] := CDS_Main.fieldbyname('SHDiZhi').AsString;
RMVariables['filler'] := CDS_Main.fieldbyname('filler').AsString;
RMVariables['NOTE'] := CDS_Main.fieldbyname('ZBZNOTE').AsString;
RMVariables['crtime'] := CDS_Main.fieldbyname('CRTime').AsDateTime;
RMVariables['YWY'] := CDS_Main.fieldbyname('SALESMAN').AsString;
RMVariables['CustomerNoName'] := CDS_Main.fieldbyname('ToFactoryName').AsString;
RMVariables['SQDLX'] := CDS_Main.fieldbyname('CPLeiBie').AsString;
//RMVariables['enddate']:=enddate.DateTime;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim((trim(CDS_Main.fieldbyname('inoutno').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);
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
RM1.LoadFromFile(fPrintFile);
RMVariables['QRBARCODE'] := fImagePath;
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
end;
end;
procedure TfrmJYGLlistCW.JSYPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'JSPERSON';
flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
JSY.TEXT := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmJYGLlistCW.Button2Click(Sender: TObject);
begin
MovePanel1.visible := False;
end;
procedure TfrmJYGLlistCW.Button1Click(Sender: TObject);
begin
if JSY.Text = '' then
begin
application.MessageBox('<27><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
Exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
with CDS_Main do
begin
DisableControls;
First;
while not eof do
begin
if Fieldbyname('ssel').AsBoolean then
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update CK_Sample_CR SET jsperson=' + quotedstr(Trim(JSY.Text)));
sql.Add(',jstime=getdate()');
sql.Add('where CRNO=' + quotedstr(trim(CDS_Main.fieldbyname('CRNO').AsString)));
execsql;
end;
end;
next;
end;
First;
EnableControls;
end;
ADOQueryCmd.Connection.CommitTrans;
application.MessageBox('<27><><EFBFBD>ճɹ<D5B3><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
MovePanel1.visible := False;
ToolButton4.Click();
TBRafresh.Click;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmJYGLlistCW.ToolButton4Click(Sender: TObject);
var
fPrintFile: string;
EngMoney: string;
Porderno, LBName, SYRName: string;
i, j: Integer;
OrderKg: Double;
FDate: string;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
begin
if CDS_sub.IsEmpty then
Exit;
if CDS_sub.Locate('SSel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD>ӱ<EFBFBD><D3B1><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
ExportFtErpFile('<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩ.rmf', ADOQueryTmp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩ.rmf';
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete TBSubID where DName=''' + Trim(DCode) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('SELECT * FROM TBSubID where 1=2 ');
open;
end;
CDS_sub.DisableControls;
try
ADOQueryCmd.Connection.BeginTrans;
with CDS_sub do
begin
First;
while not Eof do
begin
if CDS_sub.Fieldbyname('Ssel').AsBoolean then
begin
ADOQueryCmd.append;
ADOQueryCmd.fieldbyname('SubId').Value := Trim(CDS_sub.fieldbyname('crno').AsString);
ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode);
ADOQueryCmd.post;
end;
Next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
end;
CDS_sub.EnableControls;
try
ADOQueryCmd.Connection.BeginTrans;
with CDS_SUB do
begin
First;
while not Eof do
begin
if Fieldbyname('Ssel').AsBoolean then
begin
with ADOPrint do
begin
Close;
sql.Clear;
sql.Add(' select A.* ');
SQL.Add(' from CK_Sample_CR A ');
sql.Add(' where CRFlag=''<27><><EFBFBD><EFBFBD>'' and A.valid=''Y'' ');
sql.Add(' and VisType=''<27><><EFBFBD><EFBFBD>'' ');
SQL.Add('and crno=' + quotedstr(Trim(CDS_SUB.fieldbyname('crno').AsString)));
// sql.Add('and EXISTS(select SubId from TBSubID X where X.SubId=A.crno and X.DName=' + quotedstr(Trim(DCode)));
// sql.Add(')');
// ShowMessage(sql.Text);
Open;
end;
if FileExists(fPrintFile) then
begin
// RMVariables['EngMoney']:=EngMoney;
//RMVariables['enddate']:=enddate.DateTime;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim((trim(CDS_SUB.fieldbyname('crno').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);
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
RM1.LoadFromFile(fPrintFile);
RMVariables['QRBARCODE'] := fImagePath;
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
end;
end;
Next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
end;
end;
procedure TfrmJYGLlistCW.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
INITSUB();
end;
procedure TfrmJYGLlistCW.v1CRTypePropertiesChange(Sender: TObject);
var
mvalues, FFieldName: string;
begin
inherited;
mvalues := TCXTextEdit(Sender).Text;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_Main do
begin
edit;
fieldbyname(FFieldName).Value := mvalues;
post;
end;
tv1.Controller.EditingController.ShowEdit();
// if trim(mvalues) <> '' then
// begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update CK_Sample_CR ');
SQL.Add(' Set ' + FFieldName + '=' + QuotedStr(mvalues));
sql.Add(' where INOUTNO=''' + Trim(CDS_Main.fieldbyname('INOUTNO').AsString) + '''');
ExecSQL;
end;
tv1.Controller.EditingController.ShowEdit();
end;
end.
Reference in New Issue Copy Permalink