Group_02/D7gmYushang
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
main
D7gmYushang/染整计划(DyeingFinishingPlan.dll)/U_CXJY.pas

2501 lines
68 KiB
ObjectPascal
Raw Permalink Normal View History

0
2025-09-24 13:13:14 +08:00
unit U_CXJY;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox,
MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
type
Tfrmcxjy = class(TForm)
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxStyle2: TcxStyle;
cxGridPopupMenu1: TcxGridPopupMenu;
DataSource1: TDataSource;
Order_MJ: TClientDataSet;
ADOQueryMain: TADOQuery;
ADOCmd: TADOQuery;
RMDB_Main: TRMDBDataSet;
RM2: TRMGridReport;
cxGrid3: TcxGrid;
Tv3: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
DataSource2: TDataSource;
CDS_MJCD: TClientDataSet;
DataSource3: TDataSource;
CDS_MJID: TClientDataSet;
Timer1: TTimer;
ADOQueryPrint: TADOQuery;
ScrollBox1: TScrollBox;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
SpeedButton17: TSpeedButton;
SpeedButton18: TSpeedButton;
SpeedButton22: TSpeedButton;
SpeedButton23: TSpeedButton;
SpeedButton24: TSpeedButton;
SpeedButton25: TSpeedButton;
SpeedButton26: TSpeedButton;
SpeedButton29: TSpeedButton;
SpeedButton31: TSpeedButton;
SpeedButton32: TSpeedButton;
SpeedButton33: TSpeedButton;
SpeedButton34: TSpeedButton;
SpeedButton37: TSpeedButton;
SpeedButton38: TSpeedButton;
SpeedButton40: TSpeedButton;
SpeedButton41: TSpeedButton;
SpeedButton42: TSpeedButton;
cxGridPopupMenu2: TcxGridPopupMenu;
ADOQueryMainDSC: TADOQuery;
SpeedButton45: TSpeedButton;
SpeedButton46: TSpeedButton;
SpeedButton47: TSpeedButton;
SpeedButton50: TSpeedButton;
SpeedButton51: TSpeedButton;
SpeedButton54: TSpeedButton;
SpeedButton55: TSpeedButton;
SpeedButton56: TSpeedButton;
SpeedButton57: TSpeedButton;
SpeedButton59: TSpeedButton;
SpeedButton62: TSpeedButton;
SpeedButton63: TSpeedButton;
SpeedButton64: TSpeedButton;
SpeedButton65: TSpeedButton;
SpeedButton66: TSpeedButton;
SpeedButton70: TSpeedButton;
SpeedButton71: TSpeedButton;
SpeedButton72: TSpeedButton;
SpeedButton73: TSpeedButton;
SpeedButton74: TSpeedButton;
SpeedButton75: TSpeedButton;
Panel2: TPanel;
Label9: TLabel;
MJLen: TEdit;
Label4: TLabel;
MJMaoZ: TEdit;
Label5: TLabel;
Label11: TLabel;
BTPrint: TButton;
Button5: TButton;
Label10: TLabel;
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;
v3Column1: TcxGridDBColumn;
v3Column2: TcxGridDBColumn;
v3Column3: TcxGridDBColumn;
Label26: TLabel;
Edit6: TEdit;
Label30: TLabel;
MJQty3: TEdit;
Label31: TLabel;
Label32: TLabel;
MJQty4: TEdit;
Label33: TLabel;
MovePanel1: TMovePanel;
Label17: TLabel;
Label18: TLabel;
Label20: TLabel;
Label21: TLabel;
Label7: TLabel;
Label8: TLabel;
Edit1: TEdit;
Button1: TButton;
Button4: TButton;
Edit2: TEdit;
CDQty: TEdit;
RadioGroup1: TRadioGroup;
Button2: TButton;
Panel7: TPanel;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
tv2CDType: TcxGridDBColumn;
tv2CDWZ: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
Tv2CDQty: TcxGridDBColumn;
Tv2CDReason: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Panel8: TPanel;
AOrdDefNote1: TRichEdit;
Label34: TLabel;
ComboBox1: TComboBox;
SpeedButton20: TSpeedButton;
SpeedButton27: TSpeedButton;
SpeedButton28: TSpeedButton;
SpeedButton35: TSpeedButton;
SpeedButton36: TSpeedButton;
SpeedButton43: TSpeedButton;
SpeedButton52: TSpeedButton;
SpeedButton53: TSpeedButton;
SpeedButton60: TSpeedButton;
SpeedButton61: TSpeedButton;
SpeedButton68: TSpeedButton;
SpeedButton69: TSpeedButton;
SpeedButton77: TSpeedButton;
SpeedButton78: TSpeedButton;
SpeedButton79: TSpeedButton;
SpeedButton80: TSpeedButton;
SpeedButton81: TSpeedButton;
SpeedButton82: TSpeedButton;
v3Column4: TcxGridDBColumn;
Label36: TLabel;
MJStr4: TEdit;
Label37: TLabel;
v3Column5: TcxGridDBColumn;
Label38: TLabel;
RM3: TRMGridReport;
mjxh: TEdit;
MKXS: TEdit;
Panel5: TPanel;
Panel6: TPanel;
Label1: TLabel;
lblOrderNo: TLabel;
Label35: TLabel;
Label39: TLabel;
APID: TEdit;
Edit7: TEdit;
Edit8: TEdit;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
TBCD: TToolButton;
TBClose: TToolButton;
lblMPRTCodeName: TLabel;
ToolButton3: TToolButton;
lblcolor: TLabel;
Label13: TLabel;
v3Column6: TcxGridDBColumn;
Label14: TLabel;
edtYJ: TEdit;
Label2: TLabel;
v2Column4: TcxGridDBColumn;
ADOTmp: TADOQuery;
Label3: TLabel;
Label6: TLabel;
MJFMLen: TEdit;
Label15: TLabel;
YPS: TEdit;
v3Column7: TcxGridDBColumn;
MJType: TComboBox;
ToolButton2: TToolButton;
Label12: TLabel;
kj: TEdit;
Label16: TLabel;
kjj: TEdit;
Label19: TLabel;
Edit3: TEdit;
SpeedButton19: TSpeedButton;
ToolButton4: TToolButton;
Button3: TButton;
Label23: TLabel;
JYMF: TEdit;
Label22: TLabel;
JYKZ: TEdit;
Label24: TLabel;
JYKH: TEdit;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
CDS_CKCD: TClientDataSet;
DataSource4: TDataSource;
Panel1: TPanel;
cxGrid1: TcxGrid;
TV6: TcxGridDBTableView;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
Panel4: TPanel;
JYNOTE: TEdit;
ToolButton7: TToolButton;
ADOQUERYCMD: TADOQuery;
ADOQuery1: TADOQuery;
Button6: TButton;
Label25: TLabel;
Edit4: TEdit;
Label27: TLabel;
WLCODE: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBCDClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure BTPrintClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure cxGridDBColumn2PropertiesChange(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure SpeedButton49Click(Sender: TObject);
procedure APIDKeyPress(Sender: TObject; var Key: Char);
procedure Edit1Click(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Edit6Click(Sender: TObject);
procedure MJstr3KeyPress(Sender: TObject; var Key: Char);
procedure Label9Click(Sender: TObject);
procedure MJQty4Exit(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure MJMaoZChange(Sender: TObject);
procedure APIDClick(Sender: TObject);
procedure Edit7Click(Sender: TObject);
procedure MJQty4KeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
procedure Edit8Click(Sender: TObject);
procedure MJLenChange(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure Button4Click(Sender: TObject);
procedure edtYJClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure Edit3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure Tv3DblClick(Sender: TObject);
procedure Panel4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Tv3FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure ToolButton7Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Edit4Click(Sender: TObject);
private
{ Private declarations }
FColumn, FAPID, FMainId, FSubId, FFFMJID, FOperationStatus, FYXJL, FJHGZ, FPiHao, FTCNO, Flabname: string;
FCDName, FCJLB: string;
fnote: string;
isCommopen, IsJsMessage: boolean;
fxsType, fRollType: string;
function Savedata1(): boolean;
procedure InitJP(); //ˢ<>´õ<C2B4>ѡ<EFBFBD><D1A1>
procedure InitCDGrid(); //ˢ<>´õ<C2B4><C3B5><EFBFBD>Ϣ
procedure InitCDGridID(); //ˢ<>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD>Ϣ
function CheckData(CKType: string): Boolean; //У<><D0A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
function SaveData(): Boolean; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
procedure InitLCK(); //ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD>̿<EFBFBD>
procedure InitDDB(); //ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
procedure ClearGlobal(); //<2F><><EFBFBD><EFBFBD>ȫ<EFBFBD><C8AB>ID
procedure PrintCKMDG(MRKOrdID: string); //<2F><>ӡ<EFBFBD><D3A1><EFBFBD>ⵥ
procedure PrtData(FMJID: string); //<2F><>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>ǩ
procedure QuantityConversion(); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
procedure OpenCom(DllName: string);
procedure CloseCom(DllName: string);
procedure On1201(var Message: Tmessage); message 1201;
procedure On1301(var Message: Tmessage); message 1301;
public
fmanage: string;
fxiugai: string;
{ Public declarations }
end;
var
frmcxjy: Tfrmcxjy;
newh, newh1: hwnd;
implementation
uses
U_DataLink, U_Fun, U_ZDYHelp, U_iniParam, U_ProductOrderListSel, U_ZdyMapSel;
{$R *.dfm}
procedure Tfrmcxjy.QuantityConversion();
var
MLen, MNWet, MGWet, MPWet, MCC, FYJZQty: Double;
begin
MLen := StrToFloatdef(trim(MJLen.Text), 0);
MNWet := StrToFloatdef(trim(MJQty4.Text), 0);
MPWet := StrToFloatdef(trim(MJQty3.Text), 0);
MGWet := StrToFloatdef(trim(MJMaoZ.Text), 0);
MCC := StrToFloatdef(trim(MKXS.Text), 0);
//<2F><><EFBFBD><EFBFBD> <20><> <20><>ȥ<EFBFBD><C8A5><EFBFBD><EFBFBD>
if TV2.DataController.Summary.FooterSummaryValues[2] <> NULL then
begin
FYJZQty := StrToFloatdef(TV2.DataController.Summary.FooterSummaryValues[2], 0);
end
else
begin
FYJZQty := 0;
end;
if MCC > 0 then
begin
MGWet := StrToFloat(format('%.1f', [(MLen - FYJZQty) * MCC]));
MNWet := MGWet - MPWet;
MJMaoZ.Text := FloatToStr(MGWet);
MJQty4.Text := FloatToStr(MNWet);
end;
MNWet := MGWet - MPWet;
MJQty4.Text := FloatToStr(MNWet);
end;
function Tfrmcxjy.Savedata1(): boolean;
var
fbcID, FCRID, fAPTM, FMJID, fNewMJID, fnewbcid: string;
CRID: integer;
i: integer;
fKGQty1, fKGQty2: double;
begin
result := false;
if CDS_MJID.FieldByName('MJLEN').AsFloat > 0 then
begin
if strtofloatdef(trim(mjlen.Text), 0) > CDS_MJID.FieldByName('MJLEN').AsFloat then
begin
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܴ<EFBFBD><DCB4><EFBFBD>ԭ<EFBFBD><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
end;
if GetLSNo(ADOQUERYCMD, fAPTM, 'C', 'APTM', 4, 1) = False then
begin
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
// fbcID := CDSOrder.fieldbyname('BCID').AsString;
// FCRID := CDSOrder.fieldbyname('CRID').AsString;
FMJID := CDS_MJID.fieldbyname('MJID').AsString;
ADOQueryCmd.Connection.BeginTrans;
try
//<2F><><EFBFBD><EFBFBD><EFBFBD>¾<EFBFBD>
with ADOTmp do
begin
close;
sql.Clear;
sql.Add('select * from WFB_MJJY A');
sql.Add('where MJID=' + quotedstr(trim(CDS_MJID.fieldbyname('MJID').asstring)));
open;
end;
if GetLSNo(ADOQueryCmd, fNewMJID, 'C', 'WFB_MJJY', 4, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
exit;
end;
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from WFB_MJJY ');
sql.Add('where MJID=' + quotedstr(trim(FMJID)));
open;
end;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from WFB_MJJY A');
sql.Add('where 1=2 ');
open;
end;
ADOQueryCmd.Append;
for i := 0 to ADOQueryCmd.FieldCount - 1 do
begin
ADOQueryCmd.fields[i].value := ADOTmp.Fields[i].Value;
end;
ADOQueryCmd.FieldByName('MJID').Value := fNewMJID;
ADOQueryCmd.FieldByName('mjxh').Value := ADOQuery1.fieldbyname('mjxh').value;
ADOQueryCmd.FieldByName('MJQty2').Value := 0;
ADOQueryCmd.FieldByName('MJQty5').Value := 0;
ADOQueryCmd.FieldByName('MJStr2').Value := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
ADOQueryCmd.FieldByName('MJQty3').Value := strtofloatdef(MJQty3.Text, 0);
if CDS_MJID.FieldByName('MJLen').AsFloat <= 0 then
begin
ADOQueryCmd.fieldbyname('MJLen').Value := 0;
end
else
begin
ADOQueryCmd.fieldbyname('MJLen').Value := ADOQuery1.fieldbyname('MJLen').AsFloat - strtofloatdef(MJLen.Text, 0);
end;
ADOQueryCmd.fieldbyname('MJQty4').Value := ADOQuery1.fieldbyname('MJQty4').AsFloat - strtofloatdef(MJQty4.Text, 0);
ADOQueryCmd.fieldbyname('MJMaoZ').Value := ADOQuery1.fieldbyname('MJMaoZ').AsFloat - strtofloatdef(MJQty4.Text, 0) - strtofloatdef(MJQty3.Text, 0);
ADOQueryCmd.FieldByName('ZDMJID').Value := FMJID;
ADOQueryCmd.Post;
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update WFB_MJJY SET MJXH=(SELECT ISNULL(MJXH,0)+1 FROM WFB_MJJY WHERE MJID=' + QuotedStr(Trim(FMJID)));
// SQL.Add(')');
// sql.Add('where MJID=''' + Trim(fNewMJID) + '''');
// execsql;
// end;
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update WFB_MJJY SET mjxh=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY X where X.subID=WFB_MJJY.subID and X.MJstr4=WFB_MJJY.Mjstr4 and X.MJID<>WFB_MJJY.MJID ),0)');
// sql.Add('where MJID=''' + Trim(fNewMJID) + '''');
// execsql;
// end;
//<2F>޸<EFBFBD>ԭƥ<D4AD><C6A5><EFBFBD><EFBFBD>
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from WFB_MJJY ');
sql.Add('where MJID=' + quotedstr(trim(FMJID)));
open;
edit;
if Label13.Caption = 'M' then
begin
ADOQueryCmd.FieldByName('MJLen').Value := strtofloatdef(MJLen.Text, 0) + strtofloatdef(KJ.Text, 0);
end
else
begin
ADOQueryCmd.FieldByName('MJLen').Value := strtofloatdef(MJLen.Text, 0);
end;
if Label13.Caption = 'M' then
begin
ADOQueryCmd.FieldByName('MJQty4').Value := strtofloatdef(MJQty4.Text, 0);
ADOQueryCmd.FieldByName('MJmaoz').Value := strtofloatdef(MJQty4.Text, 0) + strtofloatdef(MJQty3.Text, 0);
end
else
begin
ADOQueryCmd.FieldByName('MJQty4').Value := strtofloatdef(MJQty4.Text, 0) + strtofloatdef(KJ.Text, 0);
ADOQueryCmd.FieldByName('MJmaoz').Value := strtofloatdef(MJQty4.Text, 0) + strtofloatdef(MJQty3.Text, 0) + strtofloatdef(KJ.Text, 0);
end;
ADOQueryCmd.FieldByName('kj').Value := strtofloatdef(KJ.Text, 0);
// ADOQueryCmd.FieldByName('mjstr4').Value := Trim(kuwei.Text);
ADOQueryCmd.FieldByName('MJXH').Value := 30;
// ADOQueryCmd.FieldByName('jbs').Value:= strtofloatdef(KJ.Text, 0)
// ADOQueryCmd.FieldByName('MJQty4').Value := strtofloatdef(MJQty4.Text, 0);
post;
end;
//<2F><><EFBFBD>³<EFBFBD><C2B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_Do_CFCRK @MJID=' + quotedstr(trim(fNewMJID)) + ',@OldMJID=' + quotedstr(trim(FMJID)));
// ShowMessage(SQL.Text);
execsql;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add('UPDATE CK_BanCP_CR SET ');
SQL.Add('ganghao=' + QuotedStr(Trim(ADOQuery1.FieldByName('MJSTR4').AsString)));
sql.Add(' where MJID=' + QuotedStr(Trim(fNewMJID)));
SQL.Add('UPDATE WFB_MJJY SET MJSTR4=' + QuotedStr(Trim(ADOQuery1.FieldByName('MJSTR4').AsString)));
sql.Add(' where MJID=' + QuotedStr(Trim(fNewMJID)));
SQL.Add('UPDATE WFB_MJJY SET CJKP=''1''');
sql.Add(' where MJID=' + QuotedStr(Trim(fNewMJID)));
SQL.Add('UPDATE FHSQ_SUB SET SFKP=''<27><>''');
SQL.Add('where MJID=' + QuotedStr(Trim(FMJID)));
execsql;
end;
ADOQueryCmd.Connection.CommitTrans;
if Trim(Edit6.Text) = '<27><>' then
begin
PrtData(fNewMJID);
PrtData(FMJID);
end;
ModalResult := 1;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('<27><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
function Tfrmcxjy.CheckData(CKType: string): Boolean;
var
mvalue: Double;
begin
try
if Trim(FAPID) = '' then
raise Exception.Create('<27><>ɨ<EFBFBD><C9A8><EFBFBD><EFBFBD><EFBFBD>̿<EFBFBD><CCBF><EFBFBD>');
// if Trim(FMainId) = '' then
// raise Exception.Create('<27><>ɨ<EFBFBD><C9A8><EFBFBD><EFBFBD><EFBFBD>̿<EFBFBD><CCBF><EFBFBD>');
// if Trim(FSubId) = '' then
// raise Exception.Create('<27><>ɨ<EFBFBD><C9A8><EFBFBD><EFBFBD><EFBFBD>̿<EFBFBD><CCBF><EFBFBD>');
if Trim(CKType) = '<27>ύ' then
begin
if trim(Label9.Caption) = '' then
raise Exception.Create('<27><><EFBFBD>ȵ<EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!');
if trim(MJTYPE.Text) = '' then
raise Exception.Create('<27>ȼ<EFBFBD><C8BC><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!');
if trim(JYMF.Text) = '' then
raise Exception.Create('<27>ŷ<EFBFBD><C5B7><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!');
if trim(YPS.Text) = '' then
raise Exception.Create('ԭ<><D4AD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!');
if Trim(MJMaoZ.Text) <> '' then
begin
if TryStrToFloat(MJMaoZ.Text, mvalue) = False then
raise Exception.Create('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!');
if strtofloatdef(trim(MJMaoZ.Text), 0) > 80 then
raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܴ<EFBFBD><DCB4><EFBFBD>80!');
end;
if strtofloatdef(trim(MJQty4.Text), 0) < 0.00 then
raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>С<EFBFBD><D0A1>0!');
if strtofloatdef(trim(MJLen.Text), 0) < 0.00 then
raise Exception.Create('<27><><EFBFBD>Ȳ<EFBFBD><C8B2><EFBFBD>С<EFBFBD><D0A1>0!');
if Trim(MJLen.Text) <> '' then
begin
if strtofloatdef(trim(MJLen.Text), 0) > 400 then
raise Exception.Create('<27><><EFBFBD>Ȳ<EFBFBD><C8B2>ܴ<EFBFBD><DCB4><EFBFBD>400!');
end;
if (strtofloatdef(trim(MJLen.Text), 0) = 0) and (strtofloatdef(trim(MJQty4.Text), 0) = 0) then
raise Exception.Create('<27><><EFBFBD>Ⱥ<EFBFBD><C8BA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܶ<EFBFBD>Ϊ0!!');
end;
Result := True;
except
Result := false;
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure Tfrmcxjy.ClearGlobal();
begin
FAPID := '';
FJHGZ := '';
Flabname := '';
FMainId := '';
FSubId := '';
FFFMJID := '';
FTCNO := '';
FPiHao := '';
lblOrderNo.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
lblMPRTCodeName.Caption := 'Ʒ<><C6B7>';
lblcolor.Caption := '<27><>ɫ';
MJXH.Text := '';
MJstr4.Text := '';
JYMF.Text := '';
MKXS.Text := '';
AOrdDefNote1.Text := '';
MJQty3.Text := '';
MJQty4.Text := '';
WLCODE.Text := '';
Label13.Caption := 'ʵ<><CAB5>ƽ<EFBFBD><C6BD>ϵ<EFBFBD><CFB5>:';
Label14.Caption := '<27><><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>:';
end;
procedure Tfrmcxjy.PrintCKMDG(MRKOrdID: string);
var
fPrintFile: string;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
begin
with ADOQueryPrint do
begin
Close;
SQL.Clear;
sql.Add(' exec P_Print_RKMDGangNo ');
SQL.Add(' @RKOrdID=''' + Trim(MRKOrdID) + '''');
Open;
end;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(ADOQueryPrint.fieldbyname('RKOrdID').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;
ExportFtErpFile('<27>鲼<EFBFBD><E9B2BC><EFBFBD>ֿ<EFBFBD><D6BF>뵥.rmf', ADOTmp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C>鲼<EFBFBD><E9B2BC><EFBFBD>ֿ<EFBFBD><D6BF>뵥.rmf';
if FileExists(fPrintFile) then
begin
RMVariables['QRBARCODE'] := fImagePath;
RM2.LoadFromFile(fPrintFile);
Rm2.DefaultCopies := 1;
RM2.ShowReport;
end
else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
Exit;
end;
end;
procedure Tfrmcxjy.InitDDB();
begin
with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_BanCP_CR where MJID=''' + Trim(APID.Text) + ''' and CRFlag=''<27><><EFBFBD><EFBFBD>''');
Open;
end;
if ADOTmp.IsEmpty = False then
begin
APID.Text := '';
Application.MessageBox('<27>Ѳ<EFBFBD><D1B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݼ<EFBFBD><DDBC><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('select A.*,B.*,C.*,D.MJID,D.MJXH,D.MKXS,D.MJMaoZ,D.MJQty3,D. MJQty4,D.MJLen ');
sql.Add('from CK_SXPB_CR A');
sql.Add('inner join JYOrder_Main B on A.ORDMainIdCK=B.MainId');
sql.Add('inner join JYOrder_Sub C on A.ORDSubIdCK=C.SubId');
sql.Add('inner join WFB_MJJY D on D.APID=A.SPID');
sql.Add('where MJType=''<27><><EFBFBD><EFBFBD>'' and MJID=''' + Trim(APID.Text) + '''');
Open;
end;
if ADOTmp.IsEmpty then
begin
ClearGlobal();
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD>Ǵ<EFBFBD><C7B4><EFBFBD>״̬<D7B4>޷<EFBFBD><DEB7><EFBFBD><EFBFBD>¼<EFBFBD><C2BC>飡', '<27><>ʾ', 0);
end
else
begin
FAPID := Trim(ADOTmp.fieldbyname('SPID').AsString);
FMainId := Trim(ADOTmp.fieldbyname('ORDMainIdRK').AsString);
FSubId := Trim(ADOTmp.fieldbyname('ORDSubIdRK').AsString);
FFFMJID := Trim(ADOTmp.fieldbyname('MJID').AsString);
lblOrderNo.Caption := Trim(ADOTmp.fieldbyname('crtype').AsString);
lblMPRTCodeName.Caption := Trim(ADOTmp.fieldbyname('MPRTCodeName').AsString);
lblcolor.Caption := trim(ADOTmp.fieldbyname('PRTColor').AsString);
MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString);
MJstr4.Text := Trim(ADOTmp.fieldbyname('rcgangNo').AsString);
MKXS.Text := Trim(ADOTmp.fieldbyname('Xs').AsString);
AOrdDefNote1.Text := '<27><>װҪ<D7B0><D2AA>:' + Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString) + #13 + '<27>ŷ<EFBFBD>:' + Trim(ADOTmp.fieldbyname('MPRTMF').AsString) + #13 + '<27><><EFBFBD><EFBFBD>:' + Trim(ADOTmp.fieldbyname('MPRTKZ').AsString) + #13 + '<27>ر<EFBFBD><D8B1><EFBFBD>ʾ:' + Trim(ADOTmp.fieldbyname('Note').AsString);
// MJQty3.Text := Trim(ADOTmp.fieldbyname('PiZhong').AsString);
MKXS.Text := Trim(ADOTmp.fieldbyname('MKXS').AsString);
MJMaoZ.Text := Trim(ADOTmp.fieldbyname('MJMaoZ').AsString);
MJQty3.Text := Trim(ADOTmp.fieldbyname('MJQty3').AsString);
MJQty4.Text := Trim(ADOTmp.fieldbyname('MJQty4').AsString);
MJLen.Text := Trim(ADOTmp.fieldbyname('MJLen').AsString);
if Trim(ADOTmp.fieldbyname('OrderUnit').AsString) <> '' then
begin
Label20.Caption := Label9.Caption;
Label7.Caption := Label9.Caption;
end;
end;
with ADOCmd do
begin
Close;
sql.Clear;
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><D8BC><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD>ţ<EFBFBD>' + trim(APID.Text))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
ExecSQL;
end;
InitCDGridID();
InitCDGrid();
APID.Text := '';
end;
procedure Tfrmcxjy.InitLCK();
begin
with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('select A.*,B.*,C.*,A.Note DJBNote,D.SCSKX ');
sql.Add(',maxRoll=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY X where X.APID=A.SPID ),0)');
sql.Add('from CK_SXPB_CR A');
sql.Add('left join JYOrder_Main B on A.ORDMainIdCK=B.MainId');
sql.Add('left join JYOrder_Sub C on A.ORDSubIdCK=C.SubId');
sql.Add('left join SalesContract_Sub D on A.ORDSubIdCK=D.SubId');
sql.Add('where SPID=''' + Trim(APID.Text) + '''');
SQL.Add('AND CKNAME=''<27>ؼ<EFBFBD>''');
sql.Add('and crtype in(''ƴ<>׼<EFBFBD><D7BC>ؼ<EFBFBD><D8BC><EFBFBD><EFBFBD><EFBFBD>'',''<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'')');
Open;
end;
if ADOTmp.IsEmpty = False then
begin
FAPID := Trim(APID.Text);
FTCNO := Trim(ADOTmp.fieldbyname('TCNO').AsString);
Flabname := Trim(ADOTmp.fieldbyname('thbq').AsString);
FCJLB := Trim(ADOTmp.fieldbyname('CRTYPE').AsString);
FMainId := Trim(ADOTmp.fieldbyname('ORDMainIdCK').AsString);
FSubId := Trim(ADOTmp.fieldbyname('ORDSubIdCK').AsString);
FPiHao := Trim(ADOTmp.fieldbyname('PiHao').AsString);
FYXJL := Trim(ADOTmp.fieldbyname('YXJL').AsString);
FJHGZ := Trim(ADOTmp.fieldbyname('JHGZ').AsString);
if FJHGZ = '<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>' then
begin
mjxh.ReadOnly := False;
end
else
begin
mjxh.ReadOnly := True;
end;
MJXH.Text := Trim(ADOTmp.fieldbyname('maxRoll').AsString);
MJstr4.Text := Trim(ADOTmp.fieldbyname('rcgangno').AsString);
lblOrderNo.Caption := Trim(ADOTmp.fieldbyname('crtype').AsString);
// lblMPRTCodeName.Caption := Trim(ADOTmp.fieldbyname('MPRTCodeName').AsString);
MKXS.Text := Trim(ADOTmp.fieldbyname('Xs').AsString);
kj.Text := Trim(ADOTmp.fieldbyname('KJXs').AsString);
kjj.Text := Trim(ADOTmp.fieldbyname('kjjXs').AsString);
fnote := '<27><><EFBFBD>ⱸע:' + Trim(ADOTmp.fieldbyname('DJBNote').AsString);
AOrdDefNote1.Text := 'Ʒ<><C6B7>:' + Trim(ADOTmp.fieldbyname('SPCode').AsString) + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '<27><>ɫ:' + Trim(ADOTmp.fieldbyname('SPColor').AsString) + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '<27><><EFBFBD><EFBFBD>:' + Trim(ADOTmp.fieldbyname('SCSKX').AsString) + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '<27><>װҪ<D7B0><D2AA>:' + Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString) + #13 + '<27>ŷ<EFBFBD>:' + Trim(ADOTmp.fieldbyname('SPMF').AsString) + #13 + '<27><><EFBFBD><EFBFBD>:' + Trim(ADOTmp.fieldbyname('SPKZ').AsString) + #13 + '<27><><EFBFBD>ⱸע:' + Trim(ADOTmp.fieldbyname('DJBNote').AsString);
if Trim(ADOTmp.fieldbyname('crtype').AsString) = '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>' then
begin
AOrdDefNote1.Text := Trim(ADOTmp.fieldbyname('DJBNote').AsString);
end;
MJQty3.Text := Trim(ADOTmp.fieldbyname('PiZhong').AsString);
WLCODE.Text := Trim(ADOTmp.fieldbyname('WLCODE').AsString);
// lblcolor.Caption := trim(ADOTmp.fieldbyname('PRTColor').AsString);
if Trim(ADOTmp.fieldbyname('OrderUnit').AsString) <> '' then
begin
Label20.Caption := Label9.Caption;
Label7.Caption := Label9.Caption;
end;
if FYXJL = '<27><><EFBFBD><EFBFBD>' then
begin
MJLen.SetFocus;
Edit1Click(MJLen);
end
else
begin
MJMaoZ.SetFocus;
Edit1Click(MJMaoZ);
end;
Label14.Caption := '<27><><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>:' + trim(ADOTmp.fieldbyname('LLXS').AsString);
InitCDGridID();
InitCDGrid();
end
else
begin
ClearGlobal();
end;
// if Trim(lblOrderNo.Caption) = '' then
// Exit;
APID.Text := '';
end;
procedure Tfrmcxjy.CloseCom(DllName: string);
type
TMyFunc = function(sCommName: PAnsiChar): HWND; stdcall;
var
Tf1: TMyFunc;
Tp1: TFarProc;
Th1: Thandle;
begin
Th1 := LoadLibrary(Pchar(trim(DllName)));
if Th1 > 0 then
begin
try
Tp1 := GetProcAddress(Th1, 'CommClose');
if Tp1 <> nil then
begin
Tf1 := TMyFunc(Tp1);
newh1 := Tf1('Comm1');
end
else
begin
end;
finally
// FreeLibrary(Th1);
end;
end
else
begin
application.MessageBox(Pchar('<27>Ҳ<EFBFBD><D2B2><EFBFBD> ' + trim(DllName) + ' <20>ļ<EFBFBD><C4BC><EFBFBD>'), '<27><>ʾ');
end;
end;
procedure Tfrmcxjy.OpenCom(DllName: string);
type
TMyFunc = function(fhandle: hwnd; sCommName: PAnsiChar; IntTime: integer; IsMessage: integer): HWND; stdcall;
var
Tf: TMyFunc;
Tp: TFarProc;
Th: Thandle;
begin
// closeCom(FComFile);
Th := LoadLibrary(Pchar(trim(DllName)));
if Th > 0 then
begin
try
Tp := GetProcAddress(Th, 'CommOpen');
if Tp <> nil then
begin
Tf := TMyFunc(Tp);
newh := Tf(self.Handle, 'Comm1', 500, 1);
if newh < 1 then
begin
application.MessageBox(Pchar('<27>򿪴<EFBFBD><F2BFAAB4><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>'), '<27><>ʾ');
end
else
IsCommOpen := true;
end
else
begin
IsCommOpen := false;
end;
finally
// FreeLibrary(Th);
end;
end
else
begin
IsCommOpen := false;
application.MessageBox(Pchar('<27>Ҳ<EFBFBD><D2B2><EFBFBD> ' + trim(DllName) + ' <20>ļ<EFBFBD><C4BC><EFBFBD>'), '<27><>ʾ');
end;
end;
procedure Tfrmcxjy.FormDestroy(Sender: TObject);
begin
frmcxjy := nil;
end;
procedure Tfrmcxjy.On1301(var Message: Tmessage);
var
i1, i2: integer;
unitname: string;
fdata: double;
begin
i1 := Message.WParam;
i2 := Message.LParam;
if IsJsMessage then
begin
if (trim(Edit7.Text) = '<27><>') then
begin
MJLen.Text := format('%.1f', [i1 / 100000]);
// if i2 = 0 then
// Label9.Caption := 'M'
// else
// Label9.Caption := 'Y';
edit1.Text := format('%.1f', [i1 / 100000]);
end;
end;
end;
procedure Tfrmcxjy.On1201(var Message: Tmessage);
var
i1, i2: integer;
unitname: string;
fdata: double;
begin
i1 := Message.WParam;
i2 := Message.LParam;
if IsJsMessage then
begin
if trim(Edit7.Text) = '<27><>' then
begin
MJMaoZ.Text := format('%.1f', [i1 / 100000]);
end;
end;
end;
procedure Tfrmcxjy.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//DataLink_WFBProducttion.ADOLink.Connected:=False;
if isCommopen then
begin
closeCom(DZCDYDllName);
closeCom(MBDYDllName);
end;
Action := caFree;
end;
procedure Tfrmcxjy.InitCDGrid();
begin
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add('select * from WFB_MJJY_CD where MJID=' + quotedstr(Trim(FFFMJID)));
Open;
end;
SCreateCDS20(ADOQueryMain, CDS_MJCD);
SInitCDSData20(ADOQueryMain, CDS_MJCD);
end;
procedure Tfrmcxjy.InitCDGridID();
var
MMJQty4, MMJLen: double;
begin
if FCJLB = '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>' then
begin
if Edit4.Text <> '' then
begin
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add('select A.*');
sql.Add(',JXXS=(case when MJQty4>0 then round(MJLen/MJQty4,2) else 0 end)');
sql.Add('from WFB_MJJY A where mjid in (select mjid from ck_sxpb_cr_mx where fsid=''' + Trim(FAPID) + '''');
sql.Add('AND ISNULL(YCJ,'''')<>''1'') ');
SQL.Add('UNION ALL');
sql.Add('select B.*');
sql.Add(',JXXS=(case when MJQty4>0 then round(MJLen/MJQty4,2) else 0 end)');
sql.Add('from WFB_MJJY B where ZDmjid in (select mjid from ck_sxpb_cr_mx where fsid=''' + Trim(FAPID) + '''');
sql.Add(' AND ISNULL(YCJ,'''')<>''1'') AND CJKP=''1''');
Open;
end;
end
else
begin
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add('select A.*');
sql.Add(',JXXS=(case when MJQty4>0 then round(MJLen/MJQty4,2) else 0 end)');
sql.Add('from WFB_MJJY A where mjid in (select mjid from ck_sxpb_cr_mx where fsid=''' + Trim(FAPID) + '''');
sql.Add(') ');
SQL.Add('UNION ALL');
sql.Add('select B.*');
sql.Add(',JXXS=(case when MJQty4>0 then round(MJLen/MJQty4,2) else 0 end)');
sql.Add('from WFB_MJJY B where ZDmjid in (select mjid from ck_sxpb_cr_mx where fsid=''' + Trim(FAPID) + '''');
sql.Add(') AND CJKP=''1''');
Open;
end;
end;
end
else
begin
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add('select A.*');
sql.Add(',JXXS=(case when MJQty4>0 then round(MJLen/MJQty4,2) else 0 end)');
sql.Add('from WFB_MJJY A where apid=''' + Trim(FAPID) + '''');
Open;
end;
end;
SCreateCDS20(ADOQueryMain, CDS_MJID);
SInitCDSData20(ADOQueryMain, CDS_MJID);
if TV3.DataController.Summary.FooterSummaryValues[1] <> NULL then
MMJLen := TV3.DataController.Summary.FooterSummaryValues[1]
else
MMJLen := 0;
if TV3.DataController.Summary.FooterSummaryValues[3] <> NULL then
MMJQty4 := TV3.DataController.Summary.FooterSummaryValues[3]
else
MMJQty4 := 0;
if MMJQty4 > 0 then
Label13.Caption := 'ʵ<><CAB5>ƽ<EFBFBD><C6BD>ϵ<EFBFBD><CFB5>:' + floattostr(RoundFloat(MMJLen / MMJQty4, 2))
else
Label13.Caption := 'ʵ<><CAB5>ƽ<EFBFBD><C6BD>ϵ<EFBFBD><CFB5>:';
end;
procedure Tfrmcxjy.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure Tfrmcxjy.TBCDClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'WFBCD';
flagname := '<27>õ<EFBFBD>';
fnote := True;
V1Note.Caption := 'Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
Self.InitJP();
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure Tfrmcxjy.FormShow(Sender: TObject);
begin
SInitComBoxBySql(ADOTmp, MJType, False, 'select ZDYName name from KH_Zdy where Type=''MJType'' ');
MJType.ItemIndex := MJType.Items.IndexOf('AA');
InitJP();
InitCDGrid();
if trim(Edit7.Text) = '<27><>' then
IsJsMessage := true;
if IsINIFile() then
ReadINIFile()
else
WriteINIFile;
if trim(fmanage) <> '<27><>Ȩ<EFBFBD><C8A8>' then
begin
if trim(DZCDYDllName) <> '' then
OpenCom(DZCDYDllName);
if trim(MBDYDllName) <> '' then
OpenCom(MBDYDllName);
Edit7.Visible := true;
Label35.Visible := true;
end;
APID.SetFocus();
end;
procedure Tfrmcxjy.InitJP();
var
AA: array[0..100] of string;
i, j: Integer;
begin
with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO ');
Open;
end;
if ADOTmp.IsEmpty then
begin
Application.MessageBox('û<>ж<EFBFBD><D0B6><EFBFBD><EFBFBD>õ㣡', '<27><>ʾ', 0);
Exit;
end;
with ADOTmp do
begin
First;
i := 0;
while not Eof do
begin
AA[i] := Trim(fieldbyname('ZDYName').AsString);
i := i + 1;
Next;
end;
end;
i := i - 1;
if i > 69 then
begin
i := 69;
end;
for j := 0 to i do
begin
with ScrollBox1 do
begin
TSpeedButton(Controls[j]).Visible := True;
TSpeedButton(Controls[j]).Hint := AA[j];
if Length(AA[j]) > 4 then
begin
TSpeedButton(Controls[j]).Caption := Copy(Trim(AA[j]), 1, 4) + #13 + Copy(Trim(AA[j]), 5, Length(AA[j]) - 4);
end
else
TSpeedButton(Controls[j]).Caption := AA[j];
end;
end;
end;
procedure Tfrmcxjy.Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
if CDS_MJCD.IsEmpty then
Exit;
// if Trim(CDS_MJCD.fieldbyname('MCID').AsString) = '' then
// begin
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
if Trim(cds_mjcd.fieldbyname('MCID').AsString) <> '' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete WFB_MJJY_CD where MCID=''' + Trim(cds_mjcd.fieldbyname('MCID').AsString) + '''');
ExecSQL;
end;
end;
CDS_MJCD.Delete;
// end;
end;
function Tfrmcxjy.SaveData(): Boolean;
var
maxno, FMJID, BZID, strsql: string;
FMJLen, FYJZQty: Double;
begin
// SCXFlag := '02';
if FOperationStatus = '<27><><EFBFBD><EFBFBD><EFBFBD>ؼ<EFBFBD>' then
begin
FMJID := FFFMJID;
end
else
begin
FMJID := '';
end;
if fxiugai <> '' then
begin
FMJID := cds_mjid.fieldbyname('mjid').AsString;
end;
try
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from WFB_MJJY where MJId=''' + Trim(FMJID) + '''');
Open;
end; //Trim(SCXFlag)
with ADOCmd do
begin
if Trim(FMJID) = '' then
begin
Append;
if GetLSNo(ADOTmp, maxno, Trim(SCXFlag), 'WFB_MJJY', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
exit;
end;
end
else
begin
maxno := Trim(FMJID);
Edit;
end;
if FTCNO <> '' then
begin
FieldByName('MainId').value := Trim(FTCNO);
FieldByName('SubId').value := Trim(FTCNO);
FieldByName('FromMainId').value := Trim(FTCNO);
FieldByName('FromSubId').value := Trim(FTCNO);
end
else
begin
if lblOrderNo.Caption <> '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>' then
begin
FieldByName('MainId').value := Trim(FMainId);
FieldByName('SubId').value := Trim(FSubId);
FieldByName('FromMainId').value := Trim(FMainId);
FieldByName('FromSubId').value := Trim(FSubId);
end;
end;
with ADOTmp do
begin
Close;
sql.Clear;
SQL.Add('select * from WFB_MJJY where MJId=''' + Trim(FMJID) + '''');
Open;
end;
if (lblOrderNo.Caption = 'ƴ<>׼<EFBFBD><D7BC>ؼ<EFBFBD><D8BC><EFBFBD><EFBFBD><EFBFBD>') or (ADOTmp.FieldByName('APID').AsString = '') then
begin
FieldByName('APId').value := Trim(FAPID);
end;
if lblOrderNo.Caption = '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>' then
begin
FieldByName('baoid').value := '';
FieldByName('FILLTIME').value := SGetServerDateTime(ADOTmp);
end;
FieldByName('PiHao').value := Trim(FPiHao);
FieldByName('MJID').Value := Trim(maxno);
FieldByName('MJStr2').Value := 'δ<><CEB4><EFBFBD><EFBFBD>';
FieldByName('MJstr4').Value := Trim(MJstr4.Text); //<2F><><EFBFBD><EFBFBD><EFBFBD>׺<EFBFBD>
FieldByName('mjxh').Value := strtointdef(trim(mjxh.Text), 0);
FieldByName('MJTypeOther').Value := Trim(Label9.Caption);
if WLCODE.Text <> '' then
begin
FieldByName('wlcode').Value := Trim(wlcode.Text);
end;
//<2F><><EFBFBD><EFBFBD> <20><> <20><>ȥ<EFBFBD><C8A5><EFBFBD><EFBFBD>
if TV2.DataController.Summary.FooterSummaryValues[2] <> NULL then
begin
FYJZQty := StrToFloatdef(TV2.DataController.Summary.FooterSummaryValues[2], 0);
end
else
begin
FYJZQty := 0;
end;
//<2F><><EFBFBD><EFBFBD>
FieldByName('YPS').Value := StrToFloatDef(YPS.Text, 0);
FieldByName('MJFMLen').Value := StrToFloatDef(MJFMLen.Text, 0);
FieldByName('YJZQty').Value := FYJZQty;
FieldByName('KJJ').Value := StrToFloatDef(KJJ.Text, 0);
FieldByName('KJ').Value := StrToFloatDef(kj.Text, 0);
FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) - FYJZQty - StrToFloatDef(MJFMLen.Text, 0) + StrToFloatDef(kj.Text, 0) - StrToFloatDef(kjJ.Text, 0);
//Ƥ<><C6A4>
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
//ë<><C3AB>
FieldByName('MJMaoZ').Value := StrToFloatdef(trim(MJMaoZ.Text), 0);
//<2F><><EFBFBD><EFBFBD>
FieldByName('MJQty4').Value := StrToFloatdef(trim(MJMaoZ.Text), 0) - StrToFloatdef(trim(MJQty3.Text), 0);
//ϵ<><CFB5>
FieldByName('MKXS').Value := StrToFloatdef(trim(MKXS.Text), 0);
FieldByName('MJType').Value := Trim(MJType.Text);
FieldByName('JYNOTE').Value := Trim(JYNOTE.Text);
FieldByName('JYMF').Value := Trim(JYMF.Text);
FieldByName('JYKH').Value := Trim(JYKH.Text);
// FieldByName('JYKZ').Value := Trim(JYKZ.Text);
if Trim(FMJID) = '' then
begin
FieldByName('Filler').Value := Trim(DName);
// FieldByName('filltime').Value := SGetServerDateTime(ADOTmp);
end
else
begin
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTmp);
end;
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̨<EFBFBD><CCA8>
if Trim(SCXFlag) <> '' then
begin
FieldByName('JTType').Value := Trim(SCXFlag);
end;
FieldByName('MJTypeOther').Value := Trim(Label9.Caption);
Post;
end;
// if FJHGZ = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
// begin
// with ADOCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update WFB_MJJY SET mjxh=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY X where X.subID=WFB_MJJY.subID and X.MJstr4=WFB_MJJY.Mjstr4 and X.APID=WFB_MJJY.APID and X.MJID<>WFB_MJJY.MJID),0)');
// sql.Add('where MJID=''' + Trim(maxno) + '''');
// execsql;
// end;
//
// end;
// if FJHGZ = '<27><><EFBFBD><EFBFBD>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>' then
// begin
// with ADOCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update WFB_MJJY SET mjxh=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY X where X.subID=WFB_MJJY.subID and X.MJID<>WFB_MJJY.MJID and X.MJType =''<27><>Ʒ''),0)');
// sql.Add('where MJID=''' + Trim(maxno) + '''');
// execsql;
// end;
// end;
// if FJHGZ = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
// begin
// with ADOCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update WFB_MJJY SET mjxh=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY X where X.mainid=WFB_MJJY.mainid and X.MJID<>WFB_MJJY.MJID and X.MJType =''<27><>Ʒ''),0)');
// sql.Add('where MJID=''' + Trim(maxno) + '''');
// execsql;
// end;
// end;
if fxiugai <> '<27>޸<EFBFBD>' then
begin
if edit3.Text = '' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('update WFB_MJJY SET mjxh=1+isnull((select cast (max(mjxh) as int) from WFB_MJJY X where X.APID=WFB_MJJY.APID and X.MJID<>WFB_MJJY.MJID ),0)');
sql.Add('where MJID=''' + Trim(maxno) + '''');
execsql;
end;
end;
end;
//<2F><><EFBFBD><EFBFBD>Ʒ<EFBFBD>ľ<EFBFBD><C4BE>Ÿ<EFBFBD>Ϊ0
// with ADOCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update WFB_MJJY SET mjxh=0 ');
// sql.Add('where MJType =''<27><>Ʒ'' and MJID=''' + Trim(maxno) + '''');
// execsql;
// end;
//<2F><>ѯ<EFBFBD><D1AF><EFBFBD><EFBFBD><EFBFBD>޸Ľ<DEB8><C4BD><EFBFBD>
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select MJXH from WFB_MJJY');
sql.Add('where MJID=''' + Trim(maxno) + '''');
open;
if not IsEmpty then
begin
MJXH.Text := fieldbyname('mjxh').AsString;
end;
end;
FMJID := Trim(maxno);
FFFMJID := Trim(maxno);
///<2F><><EFBFBD><EFBFBD>ĸ<EFBFBD><C4B8><EFBFBD>õ<EFBFBD><C3B5><EFBFBD>
with CDS_MJCD do
begin
First;
while not Eof do
begin
if Trim(CDS_MJCD.fieldbyname('MCID').AsString) = '' then
begin
if GetLSNo(ADOTmp, maxno, 'MC', 'WFB_MJJY_CD', 5, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxno := Trim(CDS_MJCD.fieldbyname('MCID').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from WFB_MJJY_CD ');
sql.Add(' where MCID=''' + Trim(maxno) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(CDS_MJCD.fieldbyname('MCID').AsString) = '' then
Append
else
Edit;
FieldByName('MJId').Value := Trim(FMJID);
FieldByName('MCID').Value := Trim(maxno);
SSetSaveDataCDSNew(ADOCmd, Tv2, CDS_MJCD, 'WFB_MJJY_CD', 0);
FieldByName('KouFenType').Value := CDS_MJCD.fieldbyname('KouFenType').Value;
Post;
end;
CDS_MJCD.Edit;
CDS_MJCD.FieldByName('MCID').Value := Trim(maxno);
Next;
end;
end;
with ADOCmd do
begin
close;
sql.Clear;
sql.Add('update WFB_MJJY SET CDList= dbo.F_Get_Order_SubStr(MJID,''MJCDHZSL'')');
sql.Add('where MJID=''' + Trim(FMJID) + ''' ');
execsql;
end;
//<2F><><EFBFBD><EFBFBD><EFBFBD>⼰<EFBFBD><E2BCB0><EFBFBD><EFBFBD>
if Trim(FCJLB) = '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_CPCK_Insert_JY2 @MJID=''' + trim(FMJID) + '''');
execsql;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('update CK_SXPB_CR_mx set cjdate=getdate(),ycj=''1'' where MJID=''' + trim(FMJID) + '''');
sql.Add('and fsid=''' + trim(FAPID) + '''');
execsql;
end;
end
else
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_CPCK_Insert_JY @MJID=''' + trim(FMJID) + '''');
execsql;
end;
end;
//<2F><><EFBFBD>¿<EFBFBD><C2BF><EFBFBD>
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_UPdate_LCKJY @APID=''' + trim(FAPID) + '''');
execsql;
end;
ADOCmd.Connection.CommitTrans;
Result := True;
except
Result := False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
end;
end;
procedure Tfrmcxjy.BTPrintClick(Sender: TObject);
var
fPrintFile: string;
mvalue: Double;
i: Integer;
FFMJID: string;
begin
APID.SetFocus;
if CheckData('<27>ύ') = False then
exit;
if FCJLB = '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>' then
begin
if fxiugai = '' then
Exit;
end;
if CDS_MJID.IsEmpty = False then
begin
FFMJID := Trim(CDS_MJID.fieldbyname('MJID').AsString);
end;
if FJHGZ = '<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOTmp do
begin
Close;
sql.Clear;
SQL.Add('select * from WFB_MJJY where APID=' + quotedstr(Trim(FAPID)));
SQL.Add(' and mjxh=' + Trim(mjxh.Text));
Open;
end;
if not ADOTmp.IsEmpty then
begin
Application.MessageBox('<27>þ<EFBFBD><C3BE><EFBFBD><EFBFBD>Ѵ<EFBFBD><D1B4>ڣ<EFBFBD>', '<27><>ʾ', 0);
exit;
end;
end;
if fxiugai <> '<27>޸<EFBFBD>' then
begin
if Edit3.Text = '<27><>' then
begin
with ADOTmp do
begin
Close;
sql.Clear;
SQL.Add('select * from WFB_MJJY where APID=' + quotedstr(Trim(FAPID)));
SQL.Add(' and mjxh=' + Trim(mjxh.Text));
Open;
end;
if not ADOTmp.IsEmpty then
begin
Application.MessageBox('<27>þ<EFBFBD><C3BE><EFBFBD><EFBFBD>Ѵ<EFBFBD><D1B4>ڣ<EFBFBD>', '<27><>ʾ', 0);
exit;
end;
end;
end;
if SaveData() then
begin
MJLen.Text := '';
MJFMLen.Text := '';
MJMaoZ.Text := '';
MJQty4.Text := '';
YPS.Text := '';
JYNOTE.Text := '';
edtYJ.Text := '';
MJType.ItemIndex := 1;
MJType.ItemIndex := MJType.Items.IndexOf('AA');
MJXH.Text := inttostr(strTointdef(trim(MJXH.Text), 0) + 1);
if Trim(Edit6.Text) = '<27><>' then
begin
// if fxiugai <> '<27>޸<EFBFBD>' then
// begin
PrtData(FFFMJID);
// end;
end;
end;
FOperationStatus := '';
FFFMJID := '';
fxiugai := '';
InitCDGridID();
InitCDGrid();
CDS_MJID.locate('MJID', FFMJID, []);
if FYXJL = '<27><><EFBFBD><EFBFBD>' then
begin
MJLen.SetFocus;
Edit1Click(MJLen);
end
else
begin
MJMaoZ.SetFocus;
Edit1Click(MJMaoZ);
end;
if lblOrderNo.Caption = '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>' then
begin
if Edit4.Text = '' then
begin
CDS_MJID.Next;
end;
ToolButton6.Click();
end;
end;
procedure Tfrmcxjy.PrtData(FMJID: string);
var
fPrintFile: string;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
begin
with ADOQueryPrint do
begin
Close;
SQL.Clear;
sql.Add(' EXEC P_Print_JYLab ');
SQL.Add(' @MJID=''' + Trim(FMJID) + '''');
Open;
end;
if ADOQueryPrint.IsEmpty then
begin
application.MessageBox('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>δ<EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(ADOQueryPrint.fieldbyname('MJID').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;
if Flabname <> '' then
begin
ExportFtErpFile(Trim(Flabname) + '.rmf', ADOTmp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(Flabname) + '.rmf'
end
else
begin
if Trim(ADOQueryPrint.fieldbyname('LBName').AsString) <> '' then
begin
ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('LBName').AsString) + '.rmf', ADOTmp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('LBName').AsString) + '.rmf'
end
else
begin
ExportFtErpFile('ͨ<><CDA8>Ӣ<EFBFBD>ı<EFBFBD>ǩ.rmf', ADOTmp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ͨ<><CDA8>Ӣ<EFBFBD>ı<EFBFBD>ǩ.rmf';
end;
end;
if FileExists(fPrintFile) then
begin
RMVariables['QRBARCODE'] := fImagePath;
RM2.LoadFromFile(fPrintFile);
Rm2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);
RM2.PrintReport;
end
else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
end;
end;
procedure Tfrmcxjy.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 Tfrmcxjy.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 Tfrmcxjy.SpeedButton13Click(Sender: TObject);
var
i: Integer;
begin
if CheckData('<27>õ<EFBFBD>') = False then
exit;
FCDName := Trim(TSpeedButton(Sender).Hint);
MovePanel1.Visible := True;
Label21.Caption := Trim(FCDName);
//<2F><>ʾ<EFBFBD><CABE><EFBFBD>ּ<EFBFBD><D6BC><EFBFBD>
Edit1.SetFocus;
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(Edit1.Name);
end;
end;
end;
end;
procedure Tfrmcxjy.cxGridDBColumn2PropertiesChange(Sender: TObject);
var
fsj: string;
begin
fsj := Trim(Order_MJ.fieldbyname('SubId').AsString);
Order_MJ.DisableControls;
with Order_MJ do
begin
First;
while not Eof do
begin
if Trim(Order_MJ.fieldbyname('SubId').AsString) <> fsj then
begin
Edit;
FieldByName('SSel').Value := False;
end;
Next;
end;
end;
Order_MJ.EnableControls;
Order_MJ.Locate('SubId', fsj, []);
end;
procedure Tfrmcxjy.Button1Click(Sender: TObject);
var
mvalue: Double;
begin
if Trim(Edit1.Text) = '' then
begin
Application.MessageBox('<27><>ʼλ<CABC>ò<EFBFBD><C3B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
exit;
end;
if Trim(Edit1.Text) <> '' then
begin
if Trim(Edit2.Text) <> '' then
begin
if StrToFloat(Edit2.Text) < StrToFloat(Edit1.Text) then
begin
Application.MessageBox('<27>õ<EFBFBD>λ<EFBFBD><CEBB>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
end;
if CDQty.Text <> '' then
begin
if TryStrToFloat(CDQty.Text, mvalue) = False then
begin
Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
with CDS_MJCD do
begin
Append;
FieldByName('cdname').Value := Trim(FCDName);
FieldByName('CDbeg').Value := Trim(Edit1.Text);
FieldByName('CDEnd').Value := Trim(Edit2.Text);
FieldByName('KouFenQty').Value := 0;
if RadioGroup1.ItemIndex > -1 then
FieldByName('KouFenType').Value := RadioGroup1.Items.Strings[RadioGroup1.ItemIndex];
if RadioGroup1.ItemIndex > -1 then
begin
if RadioGroup1.ItemIndex < 3 then
begin
FieldByName('KouFenQty').Value := RadioGroup1.ItemIndex + 1;
end
else
begin
FieldByName('KouFenQty').Value := 4;
end;
end;
if Trim(FCDName) = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
FieldByName('KouFenQty').Value := 0;
FieldByName('CDQty').Value := StrToFloatdef(trim(CDQty.Text), 0);
if Trim(edtYJ.Text) <> '' then
begin
FieldByName('YJQty').Value := StrToFloatdef(trim(CDQty.Text), 0);
end
else
begin
FieldByName('YJQty').Value := 0;
end;
Post;
end;
Edit1.Text := '';
Edit2.Text := '';
CDQty.Text := '';
MovePanel1.Visible := False;
Panel3.Visible := False;
end;
procedure Tfrmcxjy.ToolButton1Click(Sender: TObject);
begin
InitJP();
end;
procedure Tfrmcxjy.Button5Click(Sender: TObject);
var
fPrintFile: string;
i: Integer;
mvalue: Double;
begin
if CDS_MJID.IsEmpty then
Exit;
PrtData(CDS_MJID.fieldbyname('MJID').AsString);
end;
procedure Tfrmcxjy.SpeedButton49Click(Sender: TObject);
begin
Panel3.Visible := False;
end;
procedure Tfrmcxjy.APIDKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
ClearGlobal();
FOperationStatus := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
InitLCK();
APID.Text := '';
if (CDS_MJID.IsEmpty = False) and (lblOrderNo.Caption = '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>') then
begin
CDS_MJID.First;
// btprint.Visible := False;
// ToolButton6.Visible := False;
// ToolButton7.Visible := False;
ToolButton6.Click;
end;
end;
end;
procedure Tfrmcxjy.Edit1Click(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 Tfrmcxjy.Edit2Change(Sender: TObject);
var
mvalue: Double;
begin
if Trim(Edit1.Text) <> '' then
begin
if TryStrToFloat(Edit1.Text, mvalue) = False then
begin
Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
Exit;
end;
if Trim(Edit2.Text) <> '' then
begin
if TryStrToFloat(Edit2.Text, mvalue) = False then
begin
Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
Exit;
end;
CDQty.Text := FloatToStr(StrToFloat(Edit2.Text) - StrToFloat(Edit1.Text));
end;
procedure Tfrmcxjy.Edit6Click(Sender: TObject);
begin
if Trim(Edit6.Text) = '' then
begin
Edit6.Text := '<27><>';
end
else
begin
Edit6.Text := '';
end;
end;
procedure Tfrmcxjy.MJstr3KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SelectNext(ActiveControl as TWinControl, True, True);
end;
end;
procedure Tfrmcxjy.Label9Click(Sender: TObject);
begin
if trim(Label9.Caption) = 'M' then
begin
Label9.Caption := 'Y';
Label3.Caption := 'Y';
Label20.Caption := 'Y';
Label7.Caption := 'Y';
end
else
begin
Label9.Caption := 'M';
Label3.Caption := 'M';
Label20.Caption := 'M';
Label7.Caption := 'M';
end;
end;
procedure Tfrmcxjy.MJQty4Exit(Sender: TObject);
begin
if (trim(MJMaoZ.Text) = '') and (trim(MJQty4.Text) = '') then
exit;
if (trim(MJMaoZ.Text) = '') and (trim(MJQty3.Text) = '') then
exit;
if (trim(MJQty4.Text) = '') and (trim(MJQty3.Text) = '') then
exit;
if (trim(MJQty3.Text) = '') then
exit;
if (trim(MJQty4.Text) <> '') then
begin
MJMaoZ.Text := floattostr(strtofloatdef(trim(MJQty3.Text), 0) + strtofloatdef(trim(MJQty4.Text), 0));
exit;
end;
end;
procedure Tfrmcxjy.Button2Click(Sender: TObject);
begin
RadioGroup1.ItemIndex := -1;
end;
procedure Tfrmcxjy.MJMaoZChange(Sender: TObject);
begin
QuantityConversion();
end;
procedure Tfrmcxjy.APIDClick(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 Tfrmcxjy.Edit7Click(Sender: TObject);
begin
if Trim(Edit7.Text) = '' then
begin
Edit7.Text := '<27><>';
end
else
begin
Edit7.Text := '';
end;
end;
procedure Tfrmcxjy.MJQty4KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
BTPrint.Click;
end;
end;
procedure Tfrmcxjy.FormCreate(Sender: TObject);
begin
IsCommopen := false;
IsJsMessage := false;
end;
procedure Tfrmcxjy.Edit8Click(Sender: TObject);
begin
if Trim(Edit8.Text) = '' then
begin
Edit8.Text := '<27><>';
Button5.Visible := true;
end
else
begin
Edit8.Text := '';
Button5.Visible := false;
end;
end;
procedure Tfrmcxjy.MJLenChange(Sender: TObject);
begin
QuantityConversion();
end;
procedure Tfrmcxjy.ToolButton3Click(Sender: TObject);
var
SRKOrdID, strsql: string;
begin
ToolButton3.Enabled := false;
if Trim(MJStr4.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׺ţ<D7BA>', '<27><>ʾ', 0);
Exit;
end;
if Trim(FAPID) = '' then
begin
Application.MessageBox('<27><>ɨ<EFBFBD><C9A8><EFBFBD><EFBFBD><EFBFBD>̿<EFBFBD><CCBF><EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Trim(FMainId) = '' then
begin
Application.MessageBox('<27><>ѡ<EFBFBD><D1A1>ָʾ<D6B8><CABE><EFBFBD><EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if Trim(FSubId) = '' then
begin
Application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>ɫ<EFBFBD><C9AB>', '<27><>ʾ', 0);
Exit;
end;
if Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
begin
ToolButton3.Enabled := true;
Exit;
end;
if GetLSNo(ADOTmp, SRKOrdID, 'RK', 'CK_BanCP_CR', 4, 1) = False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
exit;
end;
try
ADOCmd.Connection.BeginTrans;
with Self.ADOCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE CK_BanCP_CR Set ');
sql.add('RKOrdID=' + quotedstr(trim(SRKOrdID)));
sql.Add(' where CK_BanCP_CR.APID=' + quotedstr(trim(FAPID)));
sql.Add(' and CK_BanCP_CR.MainId=' + quotedstr(trim(FMainId)));
sql.Add(' and CK_BanCP_CR.SubId=' + quotedstr(trim(FSubId)));
sql.Add(' and CK_BanCP_CR.ganghao=' + quotedstr(trim(MJStr4.Text)));
sql.Add(' and CK_BanCP_CR.CRFlag=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
sql.Add('UPDATE CK_BanCP_CR Set ');
sql.add(' CRTime=getdate(),CRType=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'',CRFlag=''<27><><EFBFBD><EFBFBD>'' ');
sql.Add(' where CK_BanCP_CR.APID=' + quotedstr(trim(FAPID)));
sql.Add(' and CK_BanCP_CR.MainId=' + quotedstr(trim(FMainId)));
sql.Add(' and CK_BanCP_CR.SubId=' + quotedstr(trim(FSubId)));
sql.Add(' and CK_BanCP_CR.ganghao=' + quotedstr(trim(MJStr4.Text)));
sql.Add(' and CK_BanCP_CR.CRFlag=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
sql.Add('UPDATE WFB_MJJY Set ');
sql.add('RKOrdID=' + quotedstr(trim(SRKOrdID)) + ' ,MJStr2=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
sql.Add(' where WFB_MJJY.APID=' + quotedstr(trim(FAPID)));
sql.Add(' and WFB_MJJY.MainId=' + quotedstr(trim(FMainId)));
sql.Add(' and WFB_MJJY.SubId=' + quotedstr(trim(FSubId)));
sql.Add(' and WFB_MJJY.MJStr4=' + quotedstr(trim(MJStr4.Text)));
SQL.Add('and WFB_MJJY.MJStr2=''δ<><CEB4><EFBFBD><EFBFBD>'' ');
ExecSQL;
end;
ADOCmd.Connection.CommitTrans;
PrintCKMDG(Trim(SRKOrdID));
except
ADOCmd.Connection.RollbackTrans;
ToolButton3.Enabled := true;
application.MessageBox('<27><><EFBFBD>ݳ<EFBFBD><DDB3><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
ToolButton3.Enabled := true;
end;
procedure Tfrmcxjy.Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var
FMJLen, FMJMaoZ: Double;
begin
FMJLen := AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('MJLen').Index];
FMJMaoZ := AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('MJMaoZ').Index];
if (FMJLen < 10) or (FMJLen > 200) then
begin
ACanvas.Brush.Color := $B5E4FF;
end;
if (FMJMaoZ < 5) or (FMJMaoZ > 40) then
begin
ACanvas.Brush.Color := $B5E4FF;
end
end;
procedure Tfrmcxjy.Button4Click(Sender: TObject);
begin
MovePanel1.Visible := false;
end;
procedure Tfrmcxjy.edtYJClick(Sender: TObject);
begin
if Trim(TEdit(Sender).Text) = '' then
begin
TEdit(Sender).Text := '<27><>';
end
else
begin
TEdit(Sender).Text := '';
end;
end;
procedure Tfrmcxjy.ToolButton2Click(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'MJType';
flagname := '<27>ȼ<EFBFBD>';
if ShowModal = 1 then
begin
end;
end;
finally
frmZDYHelp.Free;
end;
SInitComBoxBySql(ADOTmp, MJType, False, 'select ZDYName name from KH_Zdy where Type=''MJType'' ');
end;
procedure Tfrmcxjy.Edit3Click(Sender: TObject);
begin
if Trim(Edit3.Text) = '' then
begin
Edit3.Text := '<27><>';
mjxh.ReadOnly := False;
end
else
begin
Edit3.Text := '';
mjxh.ReadOnly := True;
end;
end;
procedure Tfrmcxjy.ToolButton4Click(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'JYNOTE';
flagname := '<27><><EFBFBD>鱸ע';
if ShowModal = 1 then
begin
Self.InitJP();
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure Tfrmcxjy.Button3Click(Sender: TObject);
begin
try
frmZdyMapSel := TfrmZdyMapSel.Create(self);
with frmZdyMapSel do
begin
FlagStr := 'jynote';
if ShowModal = 1 then
begin
JYNOTE.Text := Trim(JYNOTE.Text) + frmZdyMapSel.FSDPerson;
// self.KuangHao.Text := frmZdyMapSel.FSDPerson;
end;
end;
finally
frmZdyMapSel.Free;
end;
end;
procedure Tfrmcxjy.ToolButton5Click(Sender: TObject);
var
FSCRZ: string;
begin
if CDS_MJID.IsEmpty then
exit;
with ADOTmp do
begin
Close;
sql.Clear;
SQL.Add('select * from fhsq_sub b inner join fhsq_main a on a.fsid=b.fsid where MJId=''' + Trim(CDS_MJID.fieldbyName('mjid').AsString) + '''');
sql.Add('and a.sqtype<>''<27><><EFBFBD><EFBFBD>''');
// SQL.Add('select * from FHSQ_SUB A WHERE A.MJID=' + QuotedStr(trim(CDS_MJID.fieldbyName('MJID').AsString)));
OPEN;
end;
if ADOTmp.IsEmpty = False then
begin
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><>ֹɾ<D6B9><C9BE><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
exit;
end;
if Application.MessageBox(PChar('ȷ<><C8B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>š<EFBFBD>' + trim(CDS_MJID.fieldbyName('MJXH').AsString) + '<27><>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'), '', 32 + 4) <> IDYES then
Exit;
FSCRZ := '';
FSCRZ := '<27><><EFBFBD><EFBFBD><EFBFBD>룺' + trim(CDS_MJID.fieldbyname('MJID').AsString);
FSCRZ := FSCRZ + ' <20><><EFBFBD>ţ<EFBFBD>' + trim(CDS_MJID.fieldbyname('MJXH').AsString);
FSCRZ := FSCRZ + ' <20><><EFBFBD>ţ<EFBFBD>' + trim(CDS_MJID.fieldbyname('apid').AsString);
FSCRZ := FSCRZ + ' ë<>أ<EFBFBD>' + trim(CDS_MJID.fieldbyname('MJMaoZ').AsString);
FSCRZ := FSCRZ + ' <20><><EFBFBD>أ<EFBFBD>' + trim(CDS_MJID.fieldbyname('MJQty4').AsString);
FSCRZ := FSCRZ + ' <20><><EFBFBD>ȣ<EFBFBD>' + trim(CDS_MJID.fieldbyname('MJLen').AsString);
with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('delete WFB_MJJY where MJID=''' + Trim(CDS_MJID.fieldbyname('MJID').AsString) + '''');
sql.Add('delete CK_BanCP_CR where MJID=''' + Trim(CDS_MJID.fieldbyname('MJID').AsString) + '''');
sql.Add('delete CK_BanCP_KC where MJID=''' + Trim(CDS_MJID.fieldbyname('MJID').AsString) + '''');
sql.Add('delete WFB_MJJY_CD where MJID=''' + Trim(CDS_MJID.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><CFBC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(FSCRZ));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
ExecSQL;
end;
InitCDGrid();
InitCDGridid();
end;
procedure Tfrmcxjy.ToolButton6Click(Sender: TObject);
begin
if CDS_MJID.IsEmpty then
exit;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from fhsq_sub b inner join fhsq_main a on a.fsid=b.fsid where MJId=''' + Trim(CDS_MJID.fieldbyName('mjid').AsString) + '''');
sql.Add('and a.sqtype<>''<27><><EFBFBD><EFBFBD>''');
Open;
end;
if ADOCmd.IsEmpty = False then
begin
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><>ֹ<EFBFBD>޸ģ<DEB8>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
exit;
end;
if lblOrderNo.Caption <> '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>' then
begin
if Application.MessageBox(PChar('ȷ<><C8B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>š<EFBFBD>' + trim(CDS_MJID.fieldbyName('MJXH').AsString) + '<27><><EFBFBD>޸<EFBFBD><DEB8><EFBFBD><EFBFBD><EFBFBD>'), '', 32 + 4) <> IDYES then
Exit;
end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from WFB_MJJY where MJId=''' + Trim(CDS_MJID.fieldbyName('mjid').AsString) + '''');
Open;
end;
SCSHDataNew(ADOCmd, panel2, 0);
WLCODE.Text := ADOCmd.fieldbyName('WLCODE').AsString;
// MJType.ItemIndex:='1'
// edit5.Text := '';
// edit9.Text := '';
// edit10.Text := '';
// edit11.Text := '';
// edit12.Text := '';
// edit13.Text := '';
// edit14.Text := '';
// edit15.Text := '';
jynote.Text := ADOCmd.FieldByName('JYNOTE').asstring;
// if lblOrderNo.Caption = '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>' then
// begin
// with ADOCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('delete WFB_MJJY_CD where mjid=''' + Trim(CDS_MJID.fieldbyname('mjid').AsString) + '''');
// SQL.Add('AND EXISTS(SELECT MJID FROM WFB_MJJY B WHERE B.MJID=WFB_MJJY_CD.MJID AND convert(varchar(10),getdate(),120)<>convert(varchar(10),B.FILLTIME,120) AND MJID=''' + Trim(CDS_MJID.fieldbyname('mjid').AsString) + '''');
// SQL.Add(')');
//// ShowMessage(SQL.Text);
// ExecSQL;
// end;
// end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from WFB_MJJY_cd where MJId=''' + Trim(CDS_MJID.fieldbyName('mjid').AsString) + '''');
Open;
end;
SCreateCDS20(ADOCmd, cds_mjcd);
SInitCDSData20(ADOCmd, cds_mjcd);
fxiugai := '<27>޸<EFBFBD>';
end;
procedure Tfrmcxjy.Tv3DblClick(Sender: TObject);
begin
panel1.Visible := True;
with ADOTmp do
begin
Close;
sql.Clear;
SQL.Add('select * from WFB_MJJY_cd where MJId=''' + Trim(CDS_MJID.fieldbyName('mjid').AsString) + '''');
Open;
end;
SCreateCDS20(ADOTmp, CDS_CKCD);
SInitCDSData20(ADOTmp, CDS_CKCD);
JYNOTE.Text := CDS_MJID.fieldbyName('JYNOTE').AsString;
end;
procedure Tfrmcxjy.Panel4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
panel1.Visible := False;
JYNOTE.Text := '';
end;
procedure Tfrmcxjy.Tv3FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
JYNOTE.Text := '';
if Panel1.Visible = True then
begin
with ADOTmp do
begin
Close;
sql.Clear;
SQL.Add('select * from WFB_MJJY_cd where MJId=''' + Trim(CDS_MJID.fieldbyName('mjid').AsString) + '''');
Open;
end;
SCreateCDS20(ADOTmp, CDS_CKCD);
SInitCDSData20(ADOTmp, CDS_CKCD);
JYNOTE.Text := CDS_MJID.fieldbyName('JYNOTE').AsString;
end;
if lblOrderNo.Caption = '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOTmp do
begin
Close;
sql.Clear;
SQL.Add('select * from CK_BanCP_KC where MJId=''' + Trim(CDS_MJID.fieldbyName('mjid').AsString) + '''');
Open;
end;
AOrdDefNote1.Text := fnote + #13 + '<27><><EFBFBD><EFBFBD>:' + Trim(ADOTmp.fieldbyname('c_Code').AsString) + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '<27><>ɫ:' + Trim(ADOTmp.fieldbyname('C_Color').AsString) + #13;
AOrdDefNote1.Text := AOrdDefNote1.Text + '<27>׺<EFBFBD>:' + Trim(ADOTmp.fieldbyname('C_GANGNO').AsString) + #13 + '<27>ŷ<EFBFBD>:' + Trim(ADOTmp.fieldbyname('C_MF').AsString) + #13 + '<27><><EFBFBD><EFBFBD>:' + Trim(ADOTmp.fieldbyname('C_KZ').AsString);
end;
end;
procedure Tfrmcxjy.ToolButton7Click(Sender: TObject);
begin
if (StrToFloatDef(MJMaoZ.Text, 0) <= 0) and (StrToFloatDef(mjlen.Text, 0) <= 0) then
begin
application.MessageBox('ë<>غͳ<D8BA><CDB3>Ȳ<EFBFBD><C8B2>ܶ<EFBFBD>Ϊ0<CEAA><30>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
exit;
end;
if Application.MessageBox(PChar('ȷ<><C8B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>롶' + trim(CDS_MJID.fieldbyName('mjid').AsString) + '<27><><EFBFBD><EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD>'), '', 32 + 4) <> IDYES then
Exit;
savedata1();
InitCDGridID();
end;
procedure Tfrmcxjy.Button6Click(Sender: TObject);
begin
try
ADOQueryCmd.Connection.BeginTrans;
with CDS_MJID do
begin
with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('UPDATE CK_SXPB_CR_mx SET YCJ=''1'' where convert(varchar(10),CJDATE,120)=convert(varchar(10),GETDATE(),120)');
SQL.Add('AND FSID=' + QuotedStr(Trim(FAPID)));
// ShowMessage(SQL.Text);
ExecSQL;
end;
EnableControls;
end;
if Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9>Ƿ<EFBFBD>ˢ<EFBFBD>£<EFBFBD>', '<27><>ʾ', 32 + 4) = IDYES then
begin
InitCDGridID();
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure Tfrmcxjy.Edit4Click(Sender: TObject);
begin
if Trim(Edit4.Text) = '' then
begin
Edit4.Text := '<27><>';
end
else
begin
Edit4.Text := '';
end;
if FAPID <> '' then
begin
InitCDGridID();
CDS_MJID.First;
ToolButton6.Click();
end
else
begin
Exit;
end;
end;
end.
Reference in New Issue Copy Permalink