1456 lines
42 KiB
ObjectPascal
1456 lines
42 KiB
ObjectPascal
unit U_CPDBAO;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, strutils,SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||
cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView,
|
||
cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
|
||
cxGridCustomView, cxGrid, StdCtrls, cxContainer, cxTextEdit,
|
||
cxCurrencyEdit, BtnEdit, ExtCtrls, ComCtrls, ToolWin, DBClient, ADODB,
|
||
MovePanel, Buttons, Menus, cxLookAndFeelPainters, cxButtons, RM_Common,
|
||
RM_Class, RM_GridReport, RM_System, RM_Dataset, cxCheckBox,MMSystem,Math;
|
||
|
||
type
|
||
TfrmCPDBao = class(TForm)
|
||
Panel1: TPanel;
|
||
Label1: TLabel;
|
||
Panel2: TPanel;
|
||
cxGrid2: TcxGrid;
|
||
TV2: TcxGridDBTableView;
|
||
cxGridDBColumn1: TcxGridDBColumn;
|
||
cxGridDBColumn2: TcxGridDBColumn;
|
||
cxGridDBColumn3: TcxGridDBColumn;
|
||
cxGridDBColumn4: TcxGridDBColumn;
|
||
cxGridDBColumn5: TcxGridDBColumn;
|
||
cxGridDBColumn6: TcxGridDBColumn;
|
||
cxGridDBColumn7: TcxGridDBColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
ADOQueryMain: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
CDSMJID: TClientDataSet;
|
||
DataSource2: TDataSource;
|
||
SmNO: TEdit;
|
||
ADOQueryTmp: TADOQuery;
|
||
V2Column1: TcxGridDBColumn;
|
||
kcKw: TBtnEditA;
|
||
Label5: TLabel;
|
||
MovePanel1: TMovePanel;
|
||
Button4: TButton;
|
||
Label2: TLabel;
|
||
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;
|
||
ADOQuery1: TADOQuery;
|
||
DataSource1: TDataSource;
|
||
cxGrid3: TcxGrid;
|
||
Tv3: TcxGridDBTableView;
|
||
cxGridLevel2: TcxGridLevel;
|
||
Tv3Column1: TcxGridDBColumn;
|
||
ADOQueryTm: TADOQuery;
|
||
DSTm: TDataSource;
|
||
baoNo: TEdit;
|
||
BaoID: TEdit;
|
||
Label3: TLabel;
|
||
Label4: TLabel;
|
||
V2BaoNO: TcxGridDBColumn;
|
||
V2BaoID: TcxGridDBColumn;
|
||
Panel3: TPanel;
|
||
SpeedButton1: TSpeedButton;
|
||
SpeedButton2: TSpeedButton;
|
||
SpeedButton3: TSpeedButton;
|
||
SpeedButton4: TSpeedButton;
|
||
SpeedButton5: TSpeedButton;
|
||
SpeedButton6: TSpeedButton;
|
||
SpeedButton7: TSpeedButton;
|
||
SpeedButton8: TSpeedButton;
|
||
SpeedButton9: TSpeedButton;
|
||
SpeedButton10: TSpeedButton;
|
||
SpeedButton11: TSpeedButton;
|
||
SpeedButton12: TSpeedButton;
|
||
SpeedButton49: TSpeedButton;
|
||
FileName: TcxButton;
|
||
RMDB_Main: TRMDBDataSet;
|
||
RM2: TRMGridReport;
|
||
ComboBox1: TComboBox;
|
||
V2Column2: TcxGridDBColumn;
|
||
V2Column3: TcxGridDBColumn;
|
||
Panel4: TPanel;
|
||
ADOQueryPrint: TADOQuery;
|
||
Label6: TLabel;
|
||
BtnEditA1: TBtnEditA;
|
||
v3Column1: TcxGridDBColumn;
|
||
v3Column2: TcxGridDBColumn;
|
||
v3Column3: TcxGridDBColumn;
|
||
CDSTM: TClientDataSet;
|
||
Panel5: TPanel;
|
||
cxButton3: TcxButton;
|
||
CDSSEL: TClientDataSet;
|
||
cxGrid1: TcxGrid;
|
||
TV4: TcxGridDBTableView;
|
||
cxGridDBColumn8: TcxGridDBColumn;
|
||
cxGridDBColumn9: TcxGridDBColumn;
|
||
cxGridDBColumn10: TcxGridDBColumn;
|
||
cxGridDBColumn11: TcxGridDBColumn;
|
||
cxGridDBColumn12: TcxGridDBColumn;
|
||
cxGridDBColumn13: TcxGridDBColumn;
|
||
cxGridDBColumn14: TcxGridDBColumn;
|
||
cxGridDBColumn15: TcxGridDBColumn;
|
||
cxGridDBColumn16: TcxGridDBColumn;
|
||
cxGridDBColumn17: TcxGridDBColumn;
|
||
cxGridDBColumn18: TcxGridDBColumn;
|
||
cxGridDBColumn19: TcxGridDBColumn;
|
||
cxGridLevel3: TcxGridLevel;
|
||
DSSEL: TDataSource;
|
||
cxButton4: TcxButton;
|
||
V2Column5: TcxGridDBColumn;
|
||
V2Column4: TcxGridDBColumn;
|
||
V4Column1: TcxGridDBColumn;
|
||
V4Column2: TcxGridDBColumn;
|
||
v3Column4: TcxGridDBColumn;
|
||
check_bz: TCheckBox;
|
||
cxButton5: TcxButton;
|
||
v3Column5: TcxGridDBColumn;
|
||
CheckBox1: TCheckBox;
|
||
ComboBox3: TComboBox;
|
||
v3Column6: TcxGridDBColumn;
|
||
v3Column7: TcxGridDBColumn;
|
||
cxButton7: TcxButton;
|
||
v3Column8: TcxGridDBColumn;
|
||
Label7: TLabel;
|
||
PRTColor: TEdit;
|
||
SOrddefstr1: TEdit;
|
||
Label8: TLabel;
|
||
PRTHX: TEdit;
|
||
Label9: TLabel;
|
||
mjstr4: TEdit;
|
||
Label10: TLabel;
|
||
prtkuanNo: TEdit;
|
||
Label11: TLabel;
|
||
ComboBox4: TComboBox;
|
||
v3Column9: TcxGridDBColumn;
|
||
PopupMenu1: TPopupMenu;
|
||
N1: TMenuItem;
|
||
N2: TMenuItem;
|
||
PopupMenu2: TPopupMenu;
|
||
MenuItem1: TMenuItem;
|
||
MenuItem2: TMenuItem;
|
||
Label12: TLabel;
|
||
MJlen: TEdit;
|
||
ComboBox5: TEdit;
|
||
Label13: TLabel;
|
||
ZBS: TEdit;
|
||
Label17: TLabel;
|
||
v3Column10: TcxGridDBColumn;
|
||
V2Column6: TcxGridDBColumn;
|
||
V4Column3: TcxGridDBColumn;
|
||
cxButton1: TcxButton;
|
||
cxButton8: TcxButton;
|
||
ADOTemp: TADOQuery;
|
||
Label18: TLabel;
|
||
Label19: TLabel;
|
||
Label20: TLabel;
|
||
Label21: TLabel;
|
||
N3: TMenuItem;
|
||
N4: TMenuItem;
|
||
cxButton9: TcxButton;
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure SmNOKeyPress(Sender: TObject; var Key: Char);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView;
|
||
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
|
||
var ADone: Boolean);
|
||
procedure kcKwBtnClick(Sender: TObject);
|
||
procedure Button4Click(Sender: TObject);
|
||
procedure baoNoKeyPress(Sender: TObject; var Key: Char);
|
||
procedure baoNoClick(Sender: TObject);
|
||
procedure SpeedButton1Click(Sender: TObject);
|
||
procedure SpeedButton12Click(Sender: TObject);
|
||
procedure SpeedButton49Click(Sender: TObject);
|
||
procedure FileNameClick(Sender: TObject);
|
||
procedure baoNoExit(Sender: TObject);
|
||
procedure BtnEditA1BtnClick(Sender: TObject);
|
||
procedure cxButton3Click(Sender: TObject);
|
||
procedure cxButton4Click(Sender: TObject);
|
||
procedure cxButton5Click(Sender: TObject);
|
||
procedure cxButton7Click(Sender: TObject);
|
||
procedure N1Click(Sender: TObject);
|
||
procedure N2Click(Sender: TObject);
|
||
procedure MenuItem1Click(Sender: TObject);
|
||
procedure MenuItem2Click(Sender: TObject);
|
||
procedure cxButton1Click(Sender: TObject);
|
||
procedure cxButton8Click(Sender: TObject);
|
||
procedure MovePanel1DblClick(Sender: TObject);
|
||
procedure N3Click(Sender: TObject);
|
||
procedure N4Click(Sender: TObject);
|
||
procedure cxButton9Click(Sender: TObject);
|
||
private
|
||
Rolls:integer;
|
||
MyBlock:string;
|
||
procedure InitGrid();
|
||
procedure InitMJID();
|
||
Procedure QueryRk();
|
||
Procedure QueryTM();
|
||
procedure QueryCDSSEL();
|
||
procedure ShowMovePanel(msg:string;dbps:Integer);
|
||
procedure PrintBao(PBaoId:string);
|
||
{ Private declarations }
|
||
public
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmCPDBao: TfrmCPDBao;
|
||
newh:hwnd;
|
||
|
||
implementation
|
||
uses
|
||
U_DataLink,U_Fun, U_ZDYHelp, U_OrderSelDB;
|
||
{$R *.dfm}
|
||
|
||
Procedure TfrmCPDBao.PrintBao(PBaoId:string);
|
||
var fPrintFile: string;
|
||
Txt,fImagePath:string;
|
||
Moudle: THandle;
|
||
Makebar:TMakebar;
|
||
Mixtext:TMixtext;
|
||
NLBName:string;
|
||
begin
|
||
NLBName:='<27><><EFBFBD><EFBFBD>ǩ';
|
||
with ADOQueryPrint do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add(' SELECT D.LBName,D.NLBName');
|
||
sql.Add(' from WFB_MJJY A');
|
||
sql.Add(' inner join JYOrder_Main D on D.MainID=A.MainID');
|
||
SQL.Add('where BaoId='''+PBaoId+'''');
|
||
Open;
|
||
IF not ADOQueryPrint.IsEmpty then
|
||
begin
|
||
if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)<>'' then
|
||
begin
|
||
NLBName:=Trim(ADOQueryPrint.fieldbyname('NLBName').AsString);
|
||
end;
|
||
end;
|
||
end;
|
||
with ADOQueryPrint do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('exec [P_Do_PrintDaBao]'+quotedstr(PBaoId));
|
||
Open;
|
||
end;
|
||
try
|
||
Moudle:=LoadLibrary('MakeQRBarcode.dll');
|
||
@Makebar:=GetProcAddress(Moudle,'Make');
|
||
@Mixtext:=GetProcAddress(Moudle,'MixText');
|
||
Txt:=PBaoID;
|
||
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;
|
||
|
||
IF check_bz.Checked then
|
||
begin
|
||
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(NLBName)+'.rmf';
|
||
IF Not FileExists(fPrintFile) then
|
||
begin
|
||
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>'+fPrintFile),'<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if FileExists(fPrintFile) then
|
||
begin
|
||
RMVariables['QRBARCODE']:=fImagePath;
|
||
RM2.LoadFromFile(fPrintFile);
|
||
RM2.DefaultCopies:=strtointdef(trim(ComboBox1.Text),1);
|
||
RM2.printReport;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
Procedure TfrmCPDBao.ShowMovePanel(msg:string;dbps:Integer);
|
||
begin
|
||
with ADOQueryTmp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('exec [P_Do_GetDaBaoTJ1] '+quotedstr(Trim(DCode)));
|
||
SQL.Add(','+quotedstr('99'));
|
||
Open;
|
||
end;
|
||
Label18.Caption:=msg;
|
||
Label2.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+Trim(IntToStr(ADOQueryTmp.FieldByName('bs').AsInteger));
|
||
Label19.Caption:='ƥ<><C6A5><EFBFBD><EFBFBD>'+Trim(IntToStr(ADOQueryTmp.FieldByName('ps').AsInteger));
|
||
Label21.Caption:='Ԥ<>ƾ<EFBFBD><C6BE><EFBFBD><EFBFBD><EFBFBD>'+Trim(IntToStr(dbps));
|
||
if dbps=ADOQueryTmp.FieldByName('ps').AsInteger then
|
||
begin
|
||
Label2.Font.Color:=clBlack;
|
||
Label19.Font.Color:=clBlack;
|
||
end
|
||
else
|
||
begin
|
||
Label2.Font.Color:=clRed;
|
||
Label19.Font.Color:=clRed;
|
||
// MyBlock:='<27><>ֹ';
|
||
end;
|
||
MovePanel1.Visible:=True;
|
||
end;
|
||
|
||
Procedure TfrmCPDBao.QueryTm();
|
||
var
|
||
FBaoID:string;
|
||
begin
|
||
with ADOQueryTM do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select A.*,B.*,C.MPrtCodeName,C.orderNo as OrderNoM');
|
||
sql.Add('from WFB_MJJY A ');
|
||
sql.Add('inner join JYOrder_sub B on B.subID=A.subID ');
|
||
sql.Add('inner join JYOrder_main C on C.mainID=A.MainID ');
|
||
sql.Add(' where A.mjstr2=''δ<><CEB4><EFBFBD><EFBFBD>'' and isnull(A.BaoID,'''')='''' and C.orderNo='+quotedstr(trim(BtnEditA1.Text)));
|
||
SQL.Add(' and B.subid in (select wsql1 from TBwsql where dname='+quotedstr(Trim(DName))+' and maintype=''<27><><EFBFBD><EFBFBD>'')');
|
||
open;
|
||
end;
|
||
SCreateCDS20(ADOQueryTM,CDSTM);
|
||
SInitCDSData20(ADOQueryTM,CDSTM);
|
||
cxButton7.Click;
|
||
SCreateCDS20(ADOQueryTM,CDSMJID);
|
||
IF not CDSTM.IsEmpty then
|
||
begin
|
||
with ADOQuery1 do
|
||
begin
|
||
close;
|
||
sql.clear;
|
||
sql.add('select isnull(max(cast(baoNo as int)),0)+1 as MaxBaoNo from WFB_MJJY ');
|
||
sql.Add('where mainID='+quotedstr(trim(CDSTM.fieldbyname('MainID').AsString)));
|
||
open;
|
||
end;
|
||
baoNo.text:=ADOQuery1.fieldbyname('MaxBaoNo').AsString;
|
||
if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',4,1)=False then
|
||
begin
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
BaoID.Text:=trim(FBaoid);
|
||
end;
|
||
SMNO.SetFocus;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.QueryCDSSEL();
|
||
begin
|
||
with ADOTemp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select A.*,B.*,C.MPrtCodeName,C.orderNo as OrderNoM');
|
||
sql.Add('from WFB_MJJY A ');
|
||
sql.Add('inner join JYOrder_sub B on B.subID=A.subID ');
|
||
sql.Add('inner join JYOrder_main C on C.mainID=A.MainID ');
|
||
sql.Add(' where A.mjstr2=''δ<><CEB4><EFBFBD><EFBFBD>'' and C.orderNo='+quotedstr(trim(BtnEditA1.Text)));
|
||
SQL.Add(' and B.subid in (select wsql1 from TBwsql where dname='+quotedstr(Trim(DName))+' and maintype=''<27><><EFBFBD><EFBFBD>'')');
|
||
sql.Add(' and SUBSTRING(isnull(A.BaoID,''''),3,6)=convert(varchar(100),getdate(),12) ');
|
||
open;
|
||
// ShowMessage(SQL.Text);
|
||
end;
|
||
SCreateCDS20(ADOTemp,CDSSEL);
|
||
SInitCDSData20(ADOTemp,CDSSEL);
|
||
end;
|
||
|
||
Procedure TfrmCPDBao.QueryRk();
|
||
begin
|
||
with ADOQuery1 do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select A.*,hC_ps=A.AordQty2,JY_ps=(select count(MainID) from WFB_MJJY X where X.APID=A.APID),');
|
||
sql.Add('JY_Qty=(select sum(MJLen) from WFB_MJJY X where X.APID=A.APID), ');
|
||
sql.Add('RK_RollNum=(select sum(SOrdQty1) from CK_BanCP_CR X where X.APID=A.APID and X.CRType=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''),');
|
||
sql.Add('RK_Qty=(select sum(MJLen) from CK_BanCP_CR X where X.APID=A.APID and X.CRType=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'') ');
|
||
sql.Add('from JYOrder_sub_anPai A ');
|
||
SQL.Add('WHERE exists(select MJID from WFB_MJJY X where X.APID=A.APID and X.MJID='+quotedstr(trim(smNO.Text)));
|
||
sql.Add(')');
|
||
open;
|
||
end;
|
||
end;
|
||
|
||
|
||
procedure TfrmCPDBao.InitGrid();
|
||
begin
|
||
with ADOQueryMain do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select A.*,B.*,C.MprtCodeName,C.orderNo as OrderNoM from WFB_MJJY A ');
|
||
sql.add('inner join JYOrder_Sub B on B.SubId=A.SubId');
|
||
sql.add('inner join JYOrder_Main C on C.maiNID=A.mainID');
|
||
SQL.Add('where 1=2 ');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryMain,CDSSEL);
|
||
end;
|
||
|
||
procedure TfrmCPDBao.InitMJID();
|
||
begin
|
||
MovePanel1.Visible:=false;
|
||
|
||
|
||
with ADOQueryMain do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select A.*,B.*,C.MprtCodeName,C.orderNo as OrderNoM from WFB_MJJY A ');
|
||
sql.add('inner join JYOrder_Sub B on B.SubId=A.SubId');
|
||
sql.add('inner join JYOrder_Main C on C.maiNID=A.mainID');
|
||
sql.Add('where MJID='+quotedstr(trim(SmNO.Text)));
|
||
Open;
|
||
if not IsEmpty then
|
||
begin
|
||
IF trim(Fieldbyname('MJstr2').AsString)='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
||
begin
|
||
CDSMJID.Append;
|
||
CDSMJID.FieldByName('SDefNote').Value:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text);
|
||
CDSMJID.Post;
|
||
end
|
||
else
|
||
begin
|
||
CDSMJID.Append;
|
||
CDSMJID.FieldByName('SDefNote').Value:='<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>';
|
||
CDSMJID.FieldByName('MJID').Value:=trim(ADOQueryMain.Fieldbyname('MJID').AsString);
|
||
// CDSMJID.FieldByName('CRID').Value:=trim(ADOQueryMain.Fieldbyname('CRID').AsString);
|
||
CDSMJID.FieldByName('PRTCodeName').Value:=trim(ADOQueryMain.Fieldbyname('PRTCodeName').AsString);
|
||
CDSMJID.FieldByName('MPRTCodeName').Value:=trim(ADOQueryMain.Fieldbyname('MPRTCodeName').AsString);
|
||
CDSMJID.FieldByName('PRTColor').Value:=trim(ADOQueryMain.Fieldbyname('PRTColor').AsString);
|
||
CDSMJID.FieldByName('PRTHX').Value:=trim(ADOQueryMain.Fieldbyname('PRTHX').AsString);
|
||
CDSMJID.FieldByName('MJStr4').Value:=trim(ADOQueryMain.Fieldbyname('MJStr4').AsString);
|
||
CDSMJID.FieldByName('MJType').Value:=trim(ADOQueryMain.Fieldbyname('MJType').AsString);
|
||
CDSMJID.FieldByName('BaoNo').Value:=trim(BaoNo.Text);
|
||
CDSMJID.FieldByName('BaoID').Value:=trim(BaoID.Text);
|
||
CDSMJID.FieldByName('SOrdQty1').Value:=1;
|
||
CDSMJID.FieldByName('MJLen').Value:=ADOQueryMain.Fieldbyname('MJLen').AsFloat;
|
||
CDSMJID.FieldByName('MJMaoZ').Value:=ADOQueryMain.Fieldbyname('MJMaoZ').AsFloat;
|
||
CDSMJID.FieldByName('MJQty3').Value:=ADOQueryMain.Fieldbyname('MJQty3').AsFloat;
|
||
CDSMJID.FieldByName('MJQty4').Value:=ADOQueryMain.Fieldbyname('MJQty4').AsFloat;
|
||
CDSMJID.FieldByName('MJTypeOther').Value:=trim(ADOQueryMain.Fieldbyname('MJTypeOther').AsString);
|
||
CDSMJID.FieldByName('mainID').Value:=trim(ADOQueryMain.Fieldbyname('mainID').AsString);
|
||
CDSMJID.FieldByName('subID').Value:=trim(ADOQueryMain.Fieldbyname('subID').AsString);
|
||
CDSMJID.Post;
|
||
Rolls:=Rolls+1;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
CDSMJID.Append;
|
||
CDSMJID.FieldByName('SDefNote').Value:='<27><><EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EBB2BB><EFBFBD><EFBFBD>';
|
||
CDSMJID.FieldByName('MJID').Value:=trim(SmNO.Text);
|
||
CDSMJID.Post;
|
||
end;
|
||
end;
|
||
IF trim(CDSMJID.FieldByName('SDefNote').AsString)<>'<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>' then
|
||
begin
|
||
// MovePanel1.Visible:=true;
|
||
// Edit2.Text:=SmNO.Text;
|
||
// Label2.Caption:=trim(CDSMJID.FieldByName('SDefNote').AsString);
|
||
IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav'),0, SND_ASYNC);
|
||
CDSMJID.delete;
|
||
end
|
||
else
|
||
begin
|
||
IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\<5C><>ȷ.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\<5C><>ȷ.wav'),0, SND_ASYNC);
|
||
end;
|
||
If CDSTM.Locate('MJID',trim(smno.Text),[]) then
|
||
begin
|
||
// application.MessageBox('AAAA','AAAAAAAA',0);
|
||
CDSTM.Delete;
|
||
tv2.Controller.EditingController.ShowEdit();
|
||
tv3.Controller.EditingController.ShowEdit();
|
||
end;
|
||
IF CheckBox1.Checked then
|
||
begin
|
||
IF (Rolls=strtointdef(trim(ComboBox3.Text),0)) and (strtointdef(trim(ComboBox3.Text),0)>0) then
|
||
begin
|
||
FileName.Click;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmCPDBao:=nil;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.FormClose(Sender: TObject;
|
||
var Action: TCloseAction);
|
||
begin
|
||
//writeCxGrid(self.Caption+tv1.Name,Tv1,'<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
|
||
writeCxGrid(self.Caption+Tv2.Name,Tv2,'<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
|
||
writeCxGrid(self.Caption+Tv3.Name+'1',Tv3,'<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
|
||
writeCxGrid(self.Caption+Tv4.Name,Tv4,'<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
|
||
Action:=cafree;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.FormCreate(Sender: TObject);
|
||
begin
|
||
readCxGrid(self.Caption+Tv2.Name,Tv2,'<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
|
||
readCxGrid(self.Caption+Tv3.Name+'1',Tv3,'<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
|
||
readCxGrid(self.Caption+Tv4.Name,Tv4,'<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
|
||
Rolls:=0;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.SmNOKeyPress(Sender: TObject; var Key: Char);
|
||
begin
|
||
IF key=#13 then
|
||
begin
|
||
if trim(smno.Text)='' then exit;
|
||
if trim(smno.Text)='123456789' then
|
||
begin
|
||
FileName.Click;
|
||
end
|
||
else
|
||
begin
|
||
if trim(BaoNo.Text)='' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
if trim(BaoNo.Text)='' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
if trim(BaoID.Text)='' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EBB2BB>Ϊ<EFBFBD><CEAA>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
IF CDSTM.IsEmpty then exit;
|
||
IF CDSMJID.Locate('MJID',trim(smno.Text),[]) then
|
||
begin
|
||
IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\<5C>ظ<EFBFBD>ɨ<EFBFBD><C9A8>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\<5C>ظ<EFBFBD>ɨ<EFBFBD><C9A8>.wav'),0, SND_ASYNC);
|
||
smno.Text:='';
|
||
smno.SetFocus;
|
||
exit;
|
||
end;
|
||
If not CDSTM.Locate('MJID',trim(smno.Text),[]) then
|
||
begin
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select A.*,B.*,C.MprtCodeName,C.OrderNO as orderNoM from WFB_MJJY A ');
|
||
sql.add('inner join JYOrder_Sub B on B.SubId=A.SubId');
|
||
sql.add('inner join JYOrder_Main C on C.maiNID=A.mainID');
|
||
sql.Add('where MJID='+quotedstr(trim(SmNO.Text)));
|
||
Open;
|
||
IF isempty then
|
||
begin
|
||
IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav'),0, SND_ASYNC);
|
||
end
|
||
else
|
||
begin
|
||
If not CDSTM.Locate('orderNoM',trim(fieldbyname('OrderNoM').AsString),[]) then
|
||
begin
|
||
IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav'),0, SND_ASYNC);
|
||
end
|
||
else
|
||
begin
|
||
IF Fieldbyname('MJstr2').AsString<>'δ<><CEB4><EFBFBD><EFBFBD>' then
|
||
begin
|
||
IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav'),0, SND_ASYNC);
|
||
end
|
||
else
|
||
begin
|
||
IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav'),0, SND_ASYNC);
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
smno.Text:='';
|
||
smno.SetFocus;
|
||
exit;
|
||
end
|
||
else
|
||
begin
|
||
initMJID();
|
||
end;
|
||
end;
|
||
smno.Text:='';
|
||
smno.SetFocus;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.FormShow(Sender: TObject);
|
||
begin
|
||
// MovePanel1.Left:=(Width-MovePanel1.Width) div 2;
|
||
// MovePanel1.top:=(Height-MovePanel1.Height-200) div 2;
|
||
Tv3.OptionsView.Footer:=True;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.TV2CustomDrawCell(Sender: TcxCustomGridTableView;
|
||
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
|
||
var ADone: Boolean);
|
||
var
|
||
i:integer;
|
||
begin
|
||
i:=tv2.GetColumnByFieldName('SDefNote').Index;
|
||
if (AViewInfo.GridRecord.Values[i]<>'<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>') then
|
||
ACanvas.Brush.Color:=clred;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.kcKwBtnClick(Sender: TObject);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='CPKWFlag';
|
||
flagname:='<27><>λ<EFBFBD><CEBB>Ϣ';
|
||
V1Name.Caption:='<27><>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>';
|
||
V1Note.Caption:='Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
// MainType:=Trim(DName);
|
||
fnote:=FALSE;
|
||
if ShowModal=1 then
|
||
begin
|
||
kcKw.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.Button4Click(Sender: TObject);
|
||
begin
|
||
if MyBlock<>'<27><>ֹ' then
|
||
begin
|
||
MovePanel1.Visible:=False;
|
||
SmNO.SetFocus;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.baoNoKeyPress(Sender: TObject; var Key: Char);
|
||
var FBaoID: string;
|
||
begin
|
||
|
||
end;
|
||
|
||
procedure TfrmCPDBao.baoNoClick(Sender: TObject);
|
||
var
|
||
i:Integer;
|
||
begin
|
||
// Panel3.Visible:=True;
|
||
{ with Panel3 do
|
||
begin
|
||
for i:=0 to ControlCount-1 do
|
||
begin
|
||
if Controls[i] is TSpeedButton then
|
||
begin
|
||
TSpeedButton(Controls[i]).Hint:=Trim(TEdit(Sender).Name);
|
||
end;
|
||
end;
|
||
end; }
|
||
end;
|
||
|
||
procedure TfrmCPDBao.SpeedButton1Click(Sender: TObject);
|
||
var
|
||
fsj:string;
|
||
begin
|
||
fsj:=Trim(TSpeedButton(Sender).Hint);
|
||
if Trim(fsj)='' then Exit;
|
||
fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text);
|
||
TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=fsj+Trim(TSpeedButton(Sender).Caption);
|
||
TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.SpeedButton12Click(Sender: TObject);
|
||
var
|
||
fsj:string;
|
||
begin
|
||
fsj:=Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text);
|
||
if Trim(fsj)='' then Exit;
|
||
TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text:=Copy(fsj,1,Length(fsj)-1);
|
||
TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll;
|
||
end;
|
||
procedure TfrmCPDBao.SpeedButton49Click(Sender: TObject);
|
||
var
|
||
FBaoID:string;
|
||
begin
|
||
IF trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Hint)<>'' then
|
||
begin
|
||
if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',4,1)=False then
|
||
begin
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
BaoID.Text:=trim(FBaoid);
|
||
end;
|
||
Panel3.Visible:=False;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.FileNameClick(Sender: TObject);
|
||
var fPrintFile: string;
|
||
Txt,fImagePath:string;
|
||
Moudle: THandle;
|
||
Makebar:TMakebar;
|
||
Mixtext:TMixtext;
|
||
FBaoID,NLBName:string;
|
||
i:Integer;
|
||
begin
|
||
if trim(BaoID.Text)='' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EBB2BB>Ϊ<EFBFBD><CEAA>','<27><>ʾ');
|
||
exit;
|
||
end;
|
||
IF CDSMJID.IsEmpty then exit;
|
||
NLBName:='<27><><EFBFBD><EFBFBD>ǩ';
|
||
with ADOQueryPrint do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add(' SELECT D.LBName,D.NLBName');
|
||
sql.Add(' from WFB_MJJY A');
|
||
sql.Add(' inner join JYOrder_Main D on D.MainID=A.MainID');
|
||
SQL.Add('where MJID='''+Trim(CDSMJID.fieldbyname('MJID').AsString)+'''');
|
||
Open;
|
||
IF not ADOQueryPrint.IsEmpty then
|
||
begin
|
||
if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)<>'' then
|
||
begin
|
||
NLBName:=Trim(ADOQueryPrint.fieldbyname('NLBName').AsString);
|
||
end;
|
||
end;
|
||
end;
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
try
|
||
with CDSMJID do
|
||
begin
|
||
DisableControls;
|
||
first;
|
||
while not eof do
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('Update WFB_MJJY Set BaoNo='''+trim(BaoNo.Text)+''',BaoID='''+trim(Baoid.text)+''' where MJID='''+Trim(CDSMJID.fieldbyname('MJID').AsString)+'''');
|
||
sql.Add('UPDATE CK_BanCP_CR SET BaoNo='''+trim(BaoNo.Text)+''',baoID='''+trim(Baoid.text)+''' where MJID='''+Trim(CDSMJID.fieldbyname('MJID').AsString)+'''');
|
||
ExecSQL;
|
||
end;
|
||
edit;
|
||
fieldByName('Sflag').AsString :='2';
|
||
fieldbyname('BaoNo').Value:=trim(BaoNo.Text);
|
||
fieldbyname('BaoID').Value:=trim(BaoID.Text);
|
||
post;
|
||
next;
|
||
end;
|
||
EnableControls;
|
||
end;
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
if Trim(ComboBox4.Text)='<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>' then
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('exec P_Update_Order_JD_ByOther @MainType=''<27><><EFBFBD><EFBFBD>''');
|
||
sql.Add(',@DName='+quotedstr(Trim(DName)));
|
||
ExecSQL;
|
||
end;
|
||
IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\<5C><>ȷ.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\<5C><>ȷ.wav'),0, SND_ASYNC);
|
||
end;
|
||
except
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav'),0, SND_ASYNC);
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',0);
|
||
exit;
|
||
end;
|
||
with ADOQueryPrint do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('exec [P_Do_PrintDaBao] '+quotedstr(Trim(BaoID.Text)));
|
||
Open;
|
||
end;
|
||
if ADOQueryPrint.RecordCount>1 then
|
||
begin
|
||
Application.MessageBox('<27><>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>ǩʧ<C7A9>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>´<EFBFBD><C2B4><EFBFBD>!','<27><>ʾ',0);
|
||
IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav'),0, SND_ASYNC);
|
||
Exit;
|
||
end;
|
||
if ADOQueryPrint.RecordCount<1 then
|
||
begin
|
||
Application.MessageBox('<27>˰<EFBFBD><CBB0>Ż<EFBFBD>δ<EFBFBD><CEB4><EFBFBD><EFBFBD><EFBFBD>棬<EFBFBD>뱣<EFBFBD><EBB1A3><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3>ڴ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD>룡','<27><>ʾ',0);
|
||
IF FileExists(PChar(ExtractFilePath(Application.ExeName)+'wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName)+'wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav'),0, SND_ASYNC);
|
||
Exit;
|
||
end;
|
||
|
||
try
|
||
Moudle:=LoadLibrary('MakeQRBarcode.dll');
|
||
@Makebar:=GetProcAddress(Moudle,'Make');
|
||
@Mixtext:=GetProcAddress(Moudle,'MixText');
|
||
Txt:=trim(BaoID.Text);
|
||
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;
|
||
|
||
baoNo.Text:=inttostr(strtointdef(trim(baoNo.Text),0)+1);
|
||
if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',4,1)=False then
|
||
begin
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
BaoID.Text:=trim(FBaoid);
|
||
CDSsel.Last;
|
||
with CDSMJID do
|
||
begin
|
||
DisableControls;
|
||
first;
|
||
while not eof do
|
||
begin
|
||
CDSsel.Append;
|
||
for i:=0 to FieldCount-1 do
|
||
begin
|
||
CDSsel.fields[i].value:=Fields[i].Value ;
|
||
end;
|
||
CDSsel.Post;
|
||
next;
|
||
end;
|
||
EnableControls;
|
||
end;
|
||
CDSMJID.EmptyDataSet;
|
||
|
||
IF check_bz.Checked then
|
||
begin
|
||
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\'+Trim(NLBName)+'.rmf';
|
||
IF Not FileExists(fPrintFile) then
|
||
begin
|
||
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>'+fPrintFile),'<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
|
||
if FileExists(fPrintFile) then
|
||
begin
|
||
RMVariables['QRBARCODE']:=fImagePath;
|
||
RM2.LoadFromFile(fPrintFile);
|
||
RM2.DefaultCopies:=strtointdef(trim(ComboBox1.Text),1);
|
||
RM2.printReport;
|
||
end;
|
||
end;
|
||
Rolls:=0;
|
||
SmNO.SetFocus;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.baoNoExit(Sender: TObject);
|
||
var
|
||
FBaoID:string;
|
||
begin
|
||
IF baoNo.Text<>'' then
|
||
begin
|
||
if GetLSNo(ADOQueryTmp,FBaoID,'BI','WFB_MJJY',4,1)=False then
|
||
begin
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
BaoID.Text:=trim(FBaoid);
|
||
end
|
||
else
|
||
BaoID.Text:='';
|
||
end;
|
||
|
||
procedure TfrmCPDBao.BtnEditA1BtnClick(Sender: TObject);
|
||
var
|
||
FBaoID:string;
|
||
FMainID:string;
|
||
begin
|
||
frmOrderSelDB:=TfrmOrderSelDB.Create(Application);
|
||
with frmOrderSelDB do
|
||
begin
|
||
if ShowModal=1 then
|
||
begin
|
||
CDS_OrderSel.DisableControls;
|
||
with CDS_OrderSel do
|
||
begin
|
||
with ADOTemp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
SQL.Add('delete TBwsql where DName='+quotedstr(Trim(DName))+' and MainType='+quotedstr('<27><><EFBFBD><EFBFBD>'));
|
||
ExecSQL;
|
||
end;
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if FieldByName('SSel').Value=True then
|
||
begin
|
||
BtnEditA1.Text:=trim(CDS_OrderSel.fieldbyname('OrderNo').asstring);
|
||
with ADOTemp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('insert into TBwsql(DName,MainType,wsql1) values('+quotedstr(Trim(DName))+','+quotedstr('<27><><EFBFBD><EFBFBD>')+','+quotedstr(CDS_OrderSel.fieldbyname('subid').asstring)+')');
|
||
ExecSQL;
|
||
end;
|
||
end;
|
||
Next;
|
||
end;
|
||
end;
|
||
CDS_OrderSel.EnableControls;
|
||
end;
|
||
frmOrderSelDB.Free;
|
||
end;
|
||
SMNO.SetFocus;
|
||
QueryTm();
|
||
InitGrid();
|
||
end;
|
||
|
||
procedure TfrmCPDBao.cxButton3Click(Sender: TObject);
|
||
var
|
||
i:integer;
|
||
begin
|
||
IF CDSMJID.IsEmpty then exit;
|
||
IF CDSMJID.fieldByName('Sflag').AsString='2' then
|
||
begin
|
||
application.MessageBox('<27>Ѵ<EFBFBD><D1B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',0);
|
||
exit;
|
||
end
|
||
else
|
||
begin
|
||
with CDSMJID do
|
||
begin
|
||
CDSTM.Last;
|
||
CDSTM.Append;
|
||
for i:=0 to FieldCount-1 do
|
||
begin
|
||
CDSTM.fields[i].value:=Fields[i].Value ;
|
||
end;
|
||
CDSTM.Post;
|
||
end;
|
||
CDSMJID.Delete;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.cxButton4Click(Sender: TObject);
|
||
var
|
||
strsql:string;
|
||
begin
|
||
if CDSSEL.IsEmpty then Exit;
|
||
if CDSSEL.Locate('SSel',True,[])=False then
|
||
begin
|
||
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
try
|
||
CDSSEL.DisableControls;
|
||
with CDSSEL do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if FieldByName('SSel').AsBoolean then
|
||
begin
|
||
strsql:='<27><><EFBFBD>ţ<EFBFBD>'+trim(CDSSEL.FieldByName('MJID').AsString)+';<3B><>ID:'+trim(CDSSEL.FieldByName('BAOID').AsString)+
|
||
'<27><><EFBFBD>ţ<EFBFBD>'+trim(CDSSEL.FieldByName('baoNo').AsString);
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('Update WFB_MJJY Set baoID='''',baoNo='''' ');
|
||
sql.Add('where MJID='''+Trim(CDSSEL.fieldbyname('MJID').AsString)+'''');
|
||
sql.Add('UPDATE CK_BanCP_CR SET BaoNo='''',baoID='''' where MJID='''+Trim(CDSSEL.fieldbyname('MJID').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><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
|
||
sql.Add(','+quotedstr(trim(strsql)));
|
||
sql.Add(','+quotedstr(trim('<27>ɹ<EFBFBD>')));
|
||
sql.Add(')');
|
||
ExecSQL;
|
||
end;
|
||
delete;
|
||
end
|
||
else
|
||
begin
|
||
Next;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('exec P_Update_Order_JD_ByOther @MainType=''<27><><EFBFBD><EFBFBD>''');
|
||
sql.Add(',@DName='+quotedstr(Trim(DName)));
|
||
ExecSQL;
|
||
end;
|
||
|
||
CDSSEL.EnableControls;
|
||
application.MessageBox('<27><><EFBFBD>ݳ<EFBFBD><DDB3><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ');
|
||
QueryTm();
|
||
exit;
|
||
except
|
||
CDSSEL.EnableControls;
|
||
application.MessageBox('<27><><EFBFBD>ݳ<EFBFBD><DDB3><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.cxButton5Click(Sender: TObject);
|
||
begin
|
||
QueryCDSSEL();
|
||
QueryTm();
|
||
end;
|
||
|
||
procedure TfrmCPDBao.cxButton7Click(Sender: TObject);
|
||
begin
|
||
SDofilter(ADOQueryTM,SGetFilters(Panel5,1,2));
|
||
SCreateCDS20(ADOQueryTM,CDSTM);
|
||
SInitCDSData20(ADOQueryTM,CDSTM);
|
||
end;
|
||
|
||
procedure TfrmCPDBao.N1Click(Sender: TObject);
|
||
begin
|
||
if CDSTM.IsEmpty then Exit;
|
||
CDSTM.DisableControls;
|
||
with CDSTM do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
Edit;
|
||
FieldByName('SSel').Value:=True;
|
||
Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
CDSTM.EnableControls;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.N2Click(Sender: TObject);
|
||
begin
|
||
if CDSTM.IsEmpty then Exit;
|
||
CDSTM.DisableControls;
|
||
with CDSTM do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
Edit;
|
||
FieldByName('SSel').Value:=False;
|
||
Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
CDSTM.EnableControls;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.MenuItem1Click(Sender: TObject);
|
||
begin
|
||
if CDSSEL.IsEmpty then Exit;
|
||
CDSSEL.DisableControls;
|
||
with CDSSEL do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
Edit;
|
||
FieldByName('SSel').Value:=True;
|
||
Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
CDSSEL.EnableControls;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.MenuItem2Click(Sender: TObject);
|
||
begin
|
||
if CDSSEL.IsEmpty then Exit;
|
||
CDSSEL.DisableControls;
|
||
with CDSSEL do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
Edit;
|
||
FieldByName('SSel').Value:=False;
|
||
Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
CDSSEL.EnableControls;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.cxButton1Click(Sender: TObject);
|
||
begin
|
||
WriteCxGrid(self.Caption+Tv2.Name,Tv2,'<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
|
||
WriteCxGrid(self.Caption+Tv3.Name+'1',Tv3,'<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
|
||
WriteCxGrid(self.Caption+Tv4.Name,Tv4,'<27><>Ʒ<EFBFBD>ֿ<EFBFBD>');
|
||
close;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.cxButton8Click(Sender: TObject);
|
||
begin
|
||
PrintBao(CDSSEL.fieldbyname('BaoId').AsString);
|
||
end;
|
||
|
||
procedure TfrmCPDBao.MovePanel1DblClick(Sender: TObject);
|
||
begin
|
||
Button4.Click;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.N3Click(Sender: TObject);
|
||
var
|
||
FBaoId:string;
|
||
begin
|
||
FBaoId:=Trim(CDSSEL.FieldByName('BaoID').AsString);
|
||
with CDSSEL do
|
||
begin
|
||
DisableControls;
|
||
while Locate('SSel;BaoID', VarArrayOf([False,FBaoId]),[]) do
|
||
begin
|
||
Edit;
|
||
FieldByName('Ssel').Value:=True;
|
||
Post;
|
||
end;
|
||
EnableControls;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.N4Click(Sender: TObject);
|
||
var
|
||
FBaoId:string;
|
||
begin
|
||
FBaoId:=Trim(CDSSEL.FieldByName('BaoID').AsString);
|
||
with CDSSEL do
|
||
begin
|
||
DisableControls;
|
||
while Locate('SSel;BaoID', VarArrayOf([true,FBaoId]),[]) do
|
||
begin
|
||
Edit;
|
||
FieldByName('Ssel').Value:=false;
|
||
Post;
|
||
end;
|
||
EnableControls;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCPDBao.cxButton9Click(Sender: TObject);
|
||
var
|
||
i,j,k,MLQty,xs,dbps:Integer;
|
||
ts:Double;
|
||
msg:string;
|
||
begin
|
||
MLQty:=StrToInt(ComboBox5.Text);
|
||
if ComboBox4.Text='<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>' then
|
||
begin
|
||
with CDSTM do
|
||
begin
|
||
DisableControls;
|
||
while Locate('ssel',true,[]) do
|
||
begin
|
||
CDSMJID.Append;
|
||
CDSMJID.FieldByName('SDefNote').Value:='<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>';
|
||
CDSMJID.FieldByName('MJID').Value:=trim(Fieldbyname('MJID').AsString);
|
||
CDSMJID.FieldByName('MJXH').Value:=trim(Fieldbyname('MJXH').AsString);
|
||
CDSMJID.FieldByName('PRTCodeName').Value:=trim(Fieldbyname('PRTCodeName').AsString);
|
||
CDSMJID.FieldByName('MPRTCodeName').Value:=trim(Fieldbyname('MPRTCodeName').AsString);
|
||
CDSMJID.FieldByName('PRTColor').Value:=trim(Fieldbyname('PRTColor').AsString);
|
||
CDSMJID.FieldByName('PRTHX').Value:=trim(Fieldbyname('PRTHX').AsString);
|
||
CDSMJID.FieldByName('MJStr4').Value:=trim(Fieldbyname('MJStr4').AsString);
|
||
CDSMJID.FieldByName('MJType').Value:=trim(Fieldbyname('MJType').AsString);
|
||
CDSMJID.FieldByName('BaoNo').Value:=trim(BaoNo.Text);
|
||
CDSMJID.FieldByName('BaoID').Value:=trim(BaoID.Text);
|
||
CDSMJID.FieldByName('SOrdQty1').Value:=1;
|
||
CDSMJID.FieldByName('MJLen').Value:=Fieldbyname('MJLen').AsFloat;
|
||
CDSMJID.FieldByName('MJMaoZ').Value:=Fieldbyname('MJMaoZ').AsFloat;
|
||
CDSMJID.FieldByName('MJQty3').Value:=Fieldbyname('MJQty3').AsFloat;
|
||
CDSMJID.FieldByName('MJQty4').Value:=Fieldbyname('MJQty4').AsFloat;
|
||
CDSMJID.FieldByName('MJTypeOther').Value:=trim(Fieldbyname('MJTypeOther').AsString);
|
||
CDSMJID.FieldByName('mainID').Value:=trim(Fieldbyname('mainID').AsString);
|
||
CDSMJID.FieldByName('subID').Value:=trim(Fieldbyname('subID').AsString);
|
||
CDSMJID.Post;
|
||
CDSTM.Delete;
|
||
end;
|
||
first;
|
||
EnableControls;
|
||
end;
|
||
tv2.Controller.EditingController.ShowEdit();
|
||
tv3.Controller.EditingController.ShowEdit();
|
||
end
|
||
else
|
||
begin
|
||
//<2F>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>
|
||
if CDSTM.Locate('SSel',True,[])=False then
|
||
begin
|
||
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
try
|
||
CDSTM.DisableControls;
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
//ɾ<><C9BE><EFBFBD><EFBFBD>ʷ<EFBFBD><CAB7><EFBFBD><EFBFBD>
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('delete TBSubID where DName='''+Trim(DCode)+'''');
|
||
ExecSQL;
|
||
end;
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
with CDSTM do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
If Fieldbyname('Ssel').AsBoolean then
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('insert into TBSubID(SubId,Dname) values('+quotedstr(Trim(CDSTM.fieldbyname('MJID').AsString))+','+quotedstr(Trim(DCode))+')');
|
||
ExecSQL;
|
||
end;
|
||
end;
|
||
Next;
|
||
end;
|
||
end;
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
CDSTM.EnableControls;
|
||
except
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
CDSTM.EnableControls;
|
||
end;
|
||
|
||
if ComboBox4.Text='<27><>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>' then
|
||
begin
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
with ADOQueryTmp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('exec [P_Do_GetDaBaoTJ] '+quotedstr(Trim(IntToStr(MLQty))));
|
||
sql.Add(','+quotedstr(Trim(DCode)));
|
||
sql.Add(','+quotedstr('1'));
|
||
Open;
|
||
end;
|
||
msg:=ADOQueryTmp.FieldByName('msg').AsString;
|
||
xs:=ADOQueryTmp.FieldByName('xs').AsInteger;
|
||
dbps:=ADOQueryTmp.FieldByName('dbps').AsInteger;
|
||
ts:=dbps/xs;
|
||
//<2F><>ȡʵ<C8A1>ʴ<EFBFBD><CAB4><EFBFBD><EFBFBD><EFBFBD>
|
||
if Trim(ZBS.Text)<>'ȫ<><C8AB>' then
|
||
begin
|
||
if xs>StrToInt(Trim(ZBS.Text)) then
|
||
begin
|
||
xs:= StrToInt(Trim(ZBS.Text));
|
||
if (ts*xs)=(ts*xs) then
|
||
begin
|
||
dbps:=Ceil(ts*xs);
|
||
end
|
||
else
|
||
begin
|
||
Application.MessageBox('<27>ѳ<EFBFBD><D1B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>ת<EFBFBD><D7AA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
if Application.MessageBox(PChar(msg),'ȷ<>ϴ<EFBFBD><CFB4><EFBFBD>',MB_YESNO)=6 then
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' exec [P_Do_DaBao] '+quotedstr(Trim(DCode))
|
||
+','+quotedstr('<27><>ɫ')
|
||
+','+inttostr(xs)+','+inttostr(MLQty));
|
||
Open;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
while not Eof do
|
||
begin
|
||
PrintBao(Trim(FieldByName('BaoId').AsString));
|
||
Sleep(200);
|
||
Next;
|
||
end;
|
||
end;
|
||
ShowMovePanel(msg,dbps);
|
||
end;
|
||
end;
|
||
|
||
if ComboBox4.Text='<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>' then
|
||
begin
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʣ<EFBFBD><CAA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
with ADOQueryTmp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('exec [P_Do_GetDaBaoTJ] '+quotedstr(Trim(IntToStr(MLQty))));
|
||
sql.Add(','+quotedstr(Trim(DCode)));
|
||
sql.Add(','+quotedstr('3'));
|
||
Open;
|
||
end;
|
||
msg:=ADOQueryTmp.FieldByName('msg').AsString;
|
||
xs:=ADOQueryTmp.FieldByName('xs').AsInteger;
|
||
dbps:=ADOQueryTmp.FieldByName('dbps').AsInteger;
|
||
ts:=dbps/xs;
|
||
//<2F><>ȡʵ<C8A1>ʴ<EFBFBD><CAB4><EFBFBD><EFBFBD><EFBFBD>
|
||
if Trim(ZBS.Text)<>'ȫ<><C8AB>' then
|
||
begin
|
||
if xs>StrToInt(Trim(ZBS.Text)) then
|
||
begin
|
||
xs:= StrToInt(Trim(ZBS.Text));
|
||
if (ts*xs)=(ts*xs) then
|
||
begin
|
||
dbps:=Ceil(ts*xs);
|
||
end
|
||
else
|
||
begin
|
||
Application.MessageBox('<27>ѳ<EFBFBD><D1B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>ת<EFBFBD><D7AA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
if Application.MessageBox(PChar(msg),'ȷ<>ϴ<EFBFBD><CFB4><EFBFBD>',MB_YESNO)=6 then
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' exec [P_Do_DaBao] '+quotedstr(Trim(DCode))
|
||
+','+quotedstr('<27><><EFBFBD><EFBFBD>')
|
||
+','+inttostr(xs)+','+inttostr(MLQty));
|
||
Open;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
while not Eof do
|
||
begin
|
||
PrintBao(Trim(FieldByName('BaoId').AsString));
|
||
Sleep(200);
|
||
Next;
|
||
end;
|
||
end;
|
||
ShowMovePanel(msg,dbps);
|
||
end;
|
||
|
||
end;
|
||
|
||
if ComboBox4.Text='<27><><EFBFBD>ʹ<EFBFBD><CDB4><EFBFBD>' then
|
||
begin
|
||
with ADOQueryTmp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('exec [P_Do_GetDaBaoTJ] '+quotedstr(Trim(IntToStr(MLQty))));
|
||
sql.Add(','+quotedstr(Trim(DCode)));
|
||
sql.Add(','+quotedstr('2'));
|
||
Open;
|
||
end;
|
||
msg:=ADOQueryTmp.FieldByName('msg').AsString;
|
||
xs:=ADOQueryTmp.FieldByName('xs').AsInteger;
|
||
dbps:=ADOQueryTmp.FieldByName('dbps').AsInteger;
|
||
ts:=dbps/xs;
|
||
if Trim(ZBS.Text)<>'ȫ<><C8AB>' then
|
||
begin
|
||
if xs>StrToInt(Trim(ZBS.Text)) then
|
||
begin
|
||
xs:= StrToInt(Trim(ZBS.Text));
|
||
if (ts*xs)=(ts*xs) then
|
||
begin
|
||
dbps:=Ceil(ts*xs);
|
||
end
|
||
else
|
||
begin
|
||
Application.MessageBox('<27>ѳ<EFBFBD><D1B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>ת<EFBFBD><D7AA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
if Application.MessageBox(PChar(msg),'ȷ<>ϴ<EFBFBD><CFB4><EFBFBD>',MB_YESNO)=6 then
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' exec [P_Do_DaBao] '+quotedstr(Trim(DCode))
|
||
+','+quotedstr('<27><><EFBFBD><EFBFBD>')
|
||
+','+inttostr(xs)+','+inttostr(MLQty));
|
||
Open;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
while not Eof do
|
||
begin
|
||
PrintBao(Trim(FieldByName('BaoId').AsString));
|
||
Sleep(200);
|
||
Next;
|
||
end;
|
||
end;
|
||
ShowMovePanel(msg,dbps);
|
||
end;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('exec P_Update_Order_JD_ByOther @MainType=''<27><><EFBFBD><EFBFBD>''');
|
||
sql.Add(',@DName='+quotedstr(Trim(DName)));
|
||
ExecSQL;
|
||
end;
|
||
QueryTm();
|
||
QueryCDSSEL();
|
||
end;
|
||
end;
|
||
|
||
end.
|