Group_01/D7DJmingsheng
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
112de07f06
D7DJmingsheng/检验管理/U_MJManageNewFDNew.pas

4056 lines
116 KiB
ObjectPascal
Raw Normal View History

~
2025-04-30 20:03:01 +08:00
unit U_MJManageNewFDNew;
interface
~
2025-12-08 10:16:13 +08:00
uses
~
2025-04-30 20:03:01 +08:00
Windows, Messages, SysUtils, Variants, math, 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, ShellAPI,
FTComboBox, BtnEdit, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
~
2025-12-08 10:16:13 +08:00
dxSkinscxPCPainter, Menus, cxButtons;
~
2025-04-30 20:03:01 +08:00
type
TfrmMJManageNewFDNewSF = class(TForm)
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
cxStyle2: TcxStyle;
cxGridPopupMenu1: TcxGridPopupMenu;
DataSource1: TDataSource;
Order_MJ: TClientDataSet;
ADOQueryMain: TADOQuery;
ADOCmd: TADOQuery;
ADOTmp: 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;
cxStyleRepository2: TcxStyleRepository;
cxStyle3: TcxStyle;
cxStyleRepository3: TcxStyleRepository;
cxStyle4: TcxStyle;
cxStyleRepository4: TcxStyleRepository;
cxStyle5: TcxStyle;
cxStyleRepository5: TcxStyleRepository;
cxStyle6: TcxStyle;
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;
MJFK: TEdit;
Label3: TLabel;
MJLen: TEdit;
Label4: TLabel;
MJMaoZ: TEdit;
Label5: TLabel;
Label6: TLabel;
Label11: TLabel;
BTPrint: TButton;
Edit3: TEdit;
Label10: TLabel;
Edit4: TEdit;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
MJQty1: TEdit;
Label15: TLabel;
Label22: TLabel;
Label23: TLabel;
MJSJKZ: TEdit;
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;
Label27: TLabel;
MJQty2: TEdit;
Label26: TLabel;
Edit6: TEdit;
Label29: TLabel;
MJstr3: TEdit;
Label30: TLabel;
MJQty3: TEdit;
Label31: TLabel;
Label32: TLabel;
MJQty4: TEdit;
Label33: TLabel;
MovePanel1: TMovePanel;
Label17: TLabel;
Label18: TLabel;
Label19: 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;
MJXH: TEdit;
v3Column5: TcxGridDBColumn;
kmxs: TEdit;
Label39: TLabel;
MJstr5: TEdit;
Label40: TLabel;
Label41: TLabel;
Edit8: TEdit;
Label42: TLabel;
v2Column4: TcxGridDBColumn;
baoNo: TEdit;
Label45: TLabel;
BaoID: TEdit;
Button7: TButton;
v3Column6: TcxGridDBColumn;
ToolBar1: TToolBar;
Panel9: TPanel;
Label49: TLabel;
Label50: TLabel;
MaxRollNo: TEdit;
MinRollNo: TEdit;
TBCD: TToolButton;
ToolButton3: TToolButton;
ToolButton2: TToolButton;
ToolButton4: TToolButton;
TBClose: TToolButton;
Label1: TLabel;
APID: TEdit;
Button6: TButton;
Panel6: TPanel;
Label2: TLabel;
Label16: TLabel;
Label24: TLabel;
Label25: TLabel;
Label35: TLabel;
Label38: TLabel;
Label44: TLabel;
Label46: TLabel;
Label47: TLabel;
Label48: TLabel;
Label51: TLabel;
Label52: TLabel;
BTAdd: TButton;
BTEdit: TButton;
Button3: TButton;
Edit7: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
ComboBox2: TComboBox;
Tv3Column1: TcxGridDBColumn;
Edit5: TEdit;
Label28: TLabel;
Label43: TLabel;
MJQty5: TEdit;
Edit13: TEdit;
Label53: TLabel;
Label54: TLabel;
Label55: TLabel;
Label57: TLabel;
Label58: TLabel;
Label59: TLabel;
Label60: TLabel;
CustomerNoName: TBtnEditA;
PRTCodeName: TBtnEditA;
PRTColor: TBtnEditA;
guige: TBtnEditA;
SOrddefstr1: TBtnEditA;
SLbName: TFTComboBox;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
ScrollBox2: TScrollBox;
SpeedButton19: TSpeedButton;
SpeedButton21: TSpeedButton;
SpeedButton30: TSpeedButton;
SpeedButton39: TSpeedButton;
SpeedButton44: TSpeedButton;
SpeedButton48: TSpeedButton;
SpeedButton58: TSpeedButton;
SpeedButton67: TSpeedButton;
SpeedButton76: TSpeedButton;
SpeedButton83: TSpeedButton;
SpeedButton84: TSpeedButton;
SpeedButton85: TSpeedButton;
SpeedButton86: TSpeedButton;
SpeedButton87: TSpeedButton;
SpeedButton88: TSpeedButton;
SpeedButton89: TSpeedButton;
SpeedButton90: TSpeedButton;
SpeedButton91: TSpeedButton;
SpeedButton92: TSpeedButton;
SpeedButton93: TSpeedButton;
SpeedButton94: TSpeedButton;
SpeedButton95: TSpeedButton;
SpeedButton96: TSpeedButton;
SpeedButton97: TSpeedButton;
Button8: TButton;
Label61: TLabel;
Edit14: TEdit;
Tv3Column2: TcxGridDBColumn;
Tv3Column3: TcxGridDBColumn;
Tv3Column4: TcxGridDBColumn;
Tv3Column5: TcxGridDBColumn;
Tv3Column6: TcxGridDBColumn;
Label56: TLabel;
Label62: TLabel;
CDws: TEdit;
Label63: TLabel;
Label64: TLabel;
ZLws: TEdit;
ToolButton1: TToolButton;
QryCheckNet: TADOQuery;
Label65: TLabel;
dingdanhao: TEdit;
Tv3Column7: TcxGridDBColumn;
Label66: TLabel;
Edit15: TEdit;
Label67: TLabel;
Label68: TLabel;
machi: TEdit;
Label69: TLabel;
dj: TEdit;
Button5: TButton;
Button14: TButton;
ADOQuery1: TADOQuery;
Timer2: TTimer;
Label70: TLabel;
note: TEdit;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Button18: TButton;
Button19: TButton;
ComboBox3: TComboBox;
~
2025-12-08 10:16:13 +08:00
cxButton1: TcxButton;
cxButton2: TcxButton;
cxButton3: TcxButton;
~
2025-04-30 20:03:01 +08:00
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure MJMaoZClick(Sender: TObject);
procedure MJLenClick(Sender: TObject);
procedure MJFKClick(Sender: TObject);
procedure MJBanZuClick(Sender: TObject);
procedure MJSJKZClick(Sender: TObject);
procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure FormClick(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure BTAddClick(Sender: TObject);
procedure BTEditClick(Sender: TObject);
procedure BTPrintClick(Sender: TObject);
procedure Tv2CDQtyPropertiesEditValueChanged(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure cxGridDBColumn2PropertiesChange(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure SpeedButton49Click(Sender: TObject);
procedure APIDKeyPress(Sender: TObject; var Key: Char);
procedure Edit1Click(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure Edit3Click(Sender: TObject);
procedure Edit4Click(Sender: TObject);
procedure Edit6Click(Sender: TObject);
procedure MJstr3KeyPress(Sender: TObject; var Key: Char);
procedure Label9Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure MJQty4Change(Sender: TObject);
procedure MJMaoZChange(Sender: TObject);
procedure APIDClick(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Edit7Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure MJQty4KeyPress(Sender: TObject; var Key: Char);
procedure MJXHClick(Sender: TObject);
procedure MJLenChange(Sender: TObject);
procedure MJQty3Change(Sender: TObject);
procedure MJQty5Change(Sender: TObject);
procedure MJQty4KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure MJStr4Exit(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure Edit9Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Edit10Click(Sender: TObject);
procedure Edit11Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure MaxRollNoKeyPress(Sender: TObject; var Key: Char);
procedure Edit12Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure TBCDClick(Sender: TObject);
procedure baoNoExit(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Edit5Click(Sender: TObject);
procedure Edit13Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure SpeedButton19DblClick(Sender: TObject);
procedure SLbNameChange(Sender: TObject);
procedure Edit14Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure CustomerNoNameChange(Sender: TObject);
procedure ComboBox2Change(Sender: TObject);
procedure dingdanhaoChange(Sender: TObject);
procedure ComboBox3Change(Sender: TObject);
procedure Edit15Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure Button19Click(Sender: TObject);
procedure Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
private
{ Private declarations }
FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
FColumn, FBanZu, FAPID, FMainId, FSubId, FFFMJID, FFFMJID1: string;
FJZ, FJC, FDC: Double;
fRollType, fRollType1, fbaotype, fbaosx, fOrderUnit, Ftj: string;
isCommopen, IsJsMessage: boolean;
MValue, FCDName, MggCDFalg: string;
fxsws, fxsws1: string;
procedure InitJP();
procedure InitJP2(flag: string);
procedure InitCDGrid();
procedure InitCDGridID();
procedure PrtBaoData(FBaoid: string); //<2F><>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD>ǩ
procedure AddCD(Fbtn: TButton);
procedure AddSL(Fbtn: TButton);
function SaveData(): Boolean;
procedure BtnStatus(BSInt: Boolean);
procedure AddSLNew(Fbtn: TSpeedButton);
procedure AddCDNew(Fbtn: TSpeedButton);
procedure SavedataCK();
procedure PrtData(FMJID: string);
procedure PrtDataqb(FMJID1: string);
procedure OpenCom(DllName: string);
procedure CloseCom(DllName: string);
procedure On1201(var Message: Tmessage); message 1201;
procedure On1301(var Message: Tmessage); message 1301;
procedure clearCom(DllName: string);
function JsXj(str1: string): string;
function SelfConnData(): Boolean;
function NewRoundTo(value: Double; ws: Integer): Double;
public
fmanage, Ftest, Fzlmjid, Fzlmjxh: string;
{ Public declarations }
end;
var
frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF;
newh, newh1, newh2: hwnd;
implementation
uses
U_DataLink, U_Fun, U_ZDYHelp, U_iniParam, U_ClothHCList, MMSystem,
U_SCPersonColor, U_SysLogOrder;
{$R *.dfm}
function TfrmMJManageNewFDNewSF.NewRoundTo(value: Double; ws: Integer): Double;
var
iLen: Integer;
E: Extended;
begin
iLen := StrToInt('1' + stringOfChar('0', ws));
E := StrToFloat(FloatToStr(value));
Result := Ceil(E * iLen) / iLen;
end;
procedure TfrmMJManageNewFDNewSF.PrtDataqb(FMJID1: string);
var
fPrintFile: string;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
begin
with ADOQueryPrint do
begin
Close;
SQL.Clear;
// sql.Add('select A.mjxh,A.CustomerNoName,A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.conNo,B.LBName');
sql.Add('select(case when rollflag=''1'' then A.mjxh else null end)as mjxh,(case when khflag=''1'' then A.CustomerNoName else null end)as CustomerNoName,A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.conNo,B.LBName');
sql.Add(',B.MPRTCF,A.*,C.Slbname ');
sql.Add(' from WFB_MJJY A');
sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid');
sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
SQL.Add(' where A.MJID=''' + Trim(FMJID1) + '''');
// sql.Add(' where A.MJID=(select mjid from WFB_MJJY where mainID=''' + Trim(FmainID) + ''' and MJQTY4=0 and MJxh= (select DISTINCT min(MJXH) from WFB_MJJY where mainID=''' + Trim(FmainID) + ''' and MJQTY4=0)) ');
// ShowMessage(SQL.Text);
Open;
end;
// with ADOQueryPrint1 do
// begin
// Close;
// SQL.Clear;
// sql.Add('exec P_Print_RollLabel');
// sql.Add('@MJID=''' + Trim(FMJID1) + ''' ');
//// sql.Add(' @MJID=(select mjid from WFB_MJJY where mainID=''' + Trim(FmainID) + ''' and MJQTY4=0 and MJxh= (select DISTINCT min(MJXH) from WFB_MJJY where mainID=''' + Trim(FmainID) + ''' and MJQTY4=0)) ');
// Open;
//
// 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);
CDS_MJID.EnableControls;
exit;
end;
if Trim(ADOQueryPrint.fieldbyname('Slbname').AsString) <> '' then
begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('Slbname').AsString);
ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('Slbname').AsString), ADOCmd);
end
else
begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><>ʤ<EFBFBD><CAA4>ǩ.rmf';
ExportFtErpFile('<27><>ʤ<EFBFBD><CAA4>ǩ.rmf', ADOCmd);
end;
// if Edit14.text = '' then
// begin
// if Trim(ADOQueryPrint.fieldbyname('Slbname').AsString) <> '' then
// begin
// fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('Slbname').AsString);
// ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('Slbname').AsString), ADOCmd);
// end
// else
// begin
// fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ͨ<>ñ<EFBFBD>ǩ.rmf';
// ExportFtErpFile('ͨ<>ñ<EFBFBD>ǩ.rmf', ADOCmd);
// end;
// end
// else
// begin
// fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD>ͨ<EFBFBD>ñ<EFBFBD>ǩ.rmf';
// ExportFtErpFile('<27><><EFBFBD><EFBFBD>ͨ<EFBFBD>ñ<EFBFBD>ǩ.rmf', ADOCmd);
// end;
if FileExists(fPrintFile) then
begin
RMVariables['QRBARCODE'] := fImagePath;
RM2.LoadFromFile(fPrintFile);
RM2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);
// RM2.ShowReport;
Sleep(1000);
RM2.PrintReport;
if MggCDFalg = '99' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result,MainId) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD>ش<EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:' + trim(CDS_MJID.FieldByName('MJID').AsString) + ',' + trim(Label24.Caption) + ',' + trim(Label38.Caption) + ',' + trim(Label25.Caption) + ',<2C>׺ţ<D7BA>' + trim(CDS_MJID.FieldByName('mjstr4').AsString) + ',<2C><><EFBFBD><EFBFBD>:' + trim(CDS_MJID.FieldByName('MJXH').AsString) + ',<2C><><EFBFBD><EFBFBD>:' + trim(ComboBox1.Text))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(',' + quotedstr(trim(FMainId)));
sql.Add(')');
execsql;
end;
PlaySound('wav\<5C>ش<EFBFBD><D8B4>ɹ<EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
end;
MggCDFalg := '';
end
else
begin
MggCDFalg := '';
PlaySound('wav\<5C><>ǩû<C7A9><C3BB><EFBFBD>ҵ<EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
Application.MessageBox('<27><>ǩû<C7A9><C3BB><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>볢<EFBFBD><EBB3A2><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD>¼<EFBFBD><C2BC><EFBFBD>п<EFBFBD><D0BF>ܱ<EFBFBD>ǩû<C7A9><C3BB><EFBFBD>ϴ<EFBFBD>', '<27><>ʾ', 0);
end;
end;
procedure TfrmMJManageNewFDNewSF.clearCom(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, 'CommClear');
if Tp1 <> nil then
begin
Tf1 := TMyFunc(Tp1);
newh2 := 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 TfrmMJManageNewFDNewSF.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
if trim(CDws.text) = '-1' then
MJLen.Text := format('%.0f', [i1 / 100000 - 0.5])
else
MJLen.Text := format('%.' + trim(CDws.text) + 'f', [i1 / 100000]);
if i2 = 0 then
Label9.Caption := 'M'
else
Label9.Caption := 'Y';
if trim(CDws.text) = '-1' then
edit1.Text := format('%.0f', [i1 / 100000 - 0.5])
else
edit1.Text := format('%.' + trim(CDws.text) + 'f', [i1 / 100000]);
end;
end;
end;
procedure TfrmMJManageNewFDNewSF.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(Edit9.Text) = '<27><>' then
begin
MJMaoZ.Text := format('%.' + trim(ZLws.text) + 'f', [i1 / 100000]);
end;
end;
end;
procedure TfrmMJManageNewFDNewSF.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 TfrmMJManageNewFDNewSF.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;
function TfrmMJManageNewFDNewSF.JsXj(str1: string): string;
begin
end;
procedure TfrmMJManageNewFDNewSF.FormDestroy(Sender: TObject);
begin
frmMJManageNewFDNewSF := nil;
end;
procedure TfrmMJManageNewFDNewSF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
if isCommopen then
begin
if trim(DllName) <> '' then
closeCom(DllName);
if trim(JCYDLL) <> '' then
closeCom(JCYDLL);
end;
end;
procedure TfrmMJManageNewFDNewSF.InitCDGrid();
begin
with ADOQueryMain do
begin
Close;
SQL.Clear;
if PState = 1 then
sql.Add('select * from WFB_MJJY_CD where MJID='''' ')
else
sql.Add('select * from WFB_MJJY_CD where MJID=''' + Trim(CDS_MJID.fieldbyname('MJID').AsString) + '''');
Open;
end;
SCreateCDS20(ADOQueryMain, CDS_MJCD);
SInitCDSData20(ADOQueryMain, CDS_MJCD);
end;
procedure TfrmMJManageNewFDNewSF.InitCDGridID();
begin
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add('select ');
//sql.Add('Case when isnull(MJType,'''')=''<27><>Ʒ'' then ''B''+RTrim(Cast(MJXH as varchar(20))) else Cast(MJXH as varchar(20)) end as MJXH ,');
sql.Add(' A.* from WFB_MJJY A where APID=''' + Trim(FAPID) + '''');
// if Trim(SCXFlag) <> '' then
// sql.Add(' and JTType=''' + Trim(SCXFlag) + '''');
// sql.Add('and mjstr2=''δ<><CEB4><EFBFBD><EFBFBD>'' ');
if Trim(Edit14.Text) = '<27><>' then
begin
SQL.Add('and A.dingdanhao=''' + trim(dingdanhao.text) + ''' ');
end;
// sql.Add('and A.FillTime>=getdate()-1');
sql.Add(' order by FillTime desc');
Open;
end;
SCreateCDS20(ADOQueryMain, CDS_MJID);
SInitCDSData20(ADOQueryMain, CDS_MJID);
end;
procedure TfrmMJManageNewFDNewSF.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('<27><>Ʒ<EFBFBD><C6B7>̨<EFBFBD><CCA8><EFBFBD><EFBFBD>Tv2', Tv2);
WriteCxGrid('<27><>Ʒ<EFBFBD><C6B7>̨<EFBFBD><CCA8><EFBFBD><EFBFBD>Tv311', Tv3);
close;
end;
procedure TfrmMJManageNewFDNewSF.FormShow(Sender: TObject);
begin
readCxGrid('<27><>Ʒ<EFBFBD><C6B7>̨<EFBFBD><CCA8><EFBFBD><EFBFBD>Tv2', Tv2);
readCxGrid('<27><>Ʒ<EFBFBD><C6B7>̨<EFBFBD><CCA8><EFBFBD><EFBFBD>Tv311', Tv3);
InitJP();
with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('select BanZu from SY_User where UserId=''' + Trim(DCode) + '''');
Open;
FBanZu := Trim(Fieldbyname('BanZu').AsString);
end;
if trim(Edit7.Text) = '<27><>' then
IsJsMessage := true;
if trim(fmanage) <> '<27><>Ȩ<EFBFBD><C8A8>' then
begin
if trim(DllName) <> '' then
OpenCom(DllName);
if trim(JCYDLL) <> '' then
OpenCom(JCYDLL);
Edit7.Visible := true;
Label35.Visible := true;
Edit9.Visible := true;
Label44.Visible := true;
end;
end;
procedure TfrmMJManageNewFDNewSF.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 ');
// showmessage(sql.text);
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 > 59 then
begin
i := 59;
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 TfrmMJManageNewFDNewSF.AddCD(Fbtn: TButton);
begin
if PState < 1 then
Exit;
if Order_MJ.IsEmpty then
Exit;
with CDS_MJCD do
begin
Append;
FieldByName('cdname').value := Trim(TButton(Fbtn).Caption);
Post;
end;
end;
procedure TfrmMJManageNewFDNewSF.AddCDNew(Fbtn: TSpeedButton);
begin
with CDS_MJCD do
begin
Append;
FieldByName('cdname').value := Trim(TSpeedButton(Fbtn).Hint);
Post;
end;
end;
procedure TfrmMJManageNewFDNewSF.AddSL(Fbtn: TButton);
begin
if PState < 1 then
Exit;
if Order_MJ.IsEmpty then
Exit;
//if MJMaoZ.Focused then
if FInt = 4 then
Exit;
if CDS_MJCD.IsEmpty = False then
begin
FColumn := Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName;
if Trim(FColumn) <> '' then
begin
with CDS_MJCD do
begin
Edit;
FieldByName(FColumn).value := Trim(FieldByName(FColumn).AsString) + Trim(TButton(Fbtn).Caption);
if Trim(fieldbyname('CDQtyS').AsString) <> '' then
Fieldbyname('CDQty').value := Trim(fieldbyname('CDQtyS').AsString);
Post;
end;
end;
end;
end;
procedure TfrmMJManageNewFDNewSF.AddSLNew(Fbtn: TSpeedButton);
begin
if PState < 1 then
Exit;
if Trim(FAPID) = '' then
Exit;
if FInt = 4 then
Exit;
if FInt = 11 then
begin
if TSpeedButton(Fbtn).Tag = 9 then
Exit;
Edit1.Text := Trim(Edit1.Text) + Trim(TSpeedButton(Fbtn).Caption);
Edit1.SelectAll;
end
else if FInt = 12 then
begin
if TSpeedButton(Fbtn).Tag = 9 then
Exit;
Edit2.Text := Trim(Edit2.Text) + Trim(TSpeedButton(Fbtn).Caption);
Edit2.SelectAll;
end;
end;
procedure TfrmMJManageNewFDNewSF.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;
CDS_MJCD.Delete;
end;
end;
procedure TfrmMJManageNewFDNewSF.MJMaoZClick(Sender: TObject);
begin
FInt := 1;
FColumn := '';
panel3.Visible := True;
end;
procedure TfrmMJManageNewFDNewSF.MJLenClick(Sender: TObject);
begin
FInt := 2;
FColumn := '';
panel3.Visible := True;
end;
procedure TfrmMJManageNewFDNewSF.MJFKClick(Sender: TObject);
begin
FInt := 3;
FColumn := '';
panel3.Visible := True;
end;
procedure TfrmMJManageNewFDNewSF.MJBanZuClick(Sender: TObject);
begin
FInt := 4;
end;
procedure TfrmMJManageNewFDNewSF.MJSJKZClick(Sender: TObject);
begin
FInt := 4;
end;
procedure TfrmMJManageNewFDNewSF.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
//DataLink_WFBProducttion.ADOLink.Connected:=False;
FInt := 4;
// if PState=1 then Exit;
InitCDGridID();
//InitCDGrid();
{with ADOTmp do
begin
close;
sql.Clear;
sql.Add('select * from WFB_MJJY where MJID='''+Trim(CDS_MJID.fieldbyname('MJID').AsString)+'''');
Open;
end;
if ADOTmp.IsEmpty then
begin
MJMaoZ.Text:='';
MJLen.Text:='';
MJFK.Text:='';
MJSJKZ.Text:='';
end else
SSetWinData(ADOTmp,Panel5); }
end;
procedure TfrmMJManageNewFDNewSF.FormClick(Sender: TObject);
begin
FInt := 4;
end;
procedure TfrmMJManageNewFDNewSF.Button12Click(Sender: TObject);
//var
// fsj: string;
begin
try
frmSCPersonColor := TfrmSCPersonColor.Create(self);
with frmSCPersonColor do
begin
FTYPE := 'SOrddefstr1';
FCX := trim(SOrddefstr1.Text);
if ShowModal = 1 then
begin
SOrddefstr1.Text := FName;
end;
end;
finally
frmSCPersonColor.close;
end;
// ScrollBox2.Visible := true;
// InitJP2('SOrddefstr1');
// ftest := 'SOrddefstr1';
// Button8.Font.Color := clRed; // <20><><EFBFBD>ð<EFBFBD>ť<EFBFBD>ı<EFBFBD><C4B1><EFBFBD>ɫΪ<C9AB><CEAA>ɫ
// ScrollBox2.Left := frmMJManageNewFDNewSF.Width div 2 - 240;
// if PState < 1 then
// Exit;
// if Trim(FAPID) = '' then
// Exit;
// if FInt = 4 then
// Exit;
// begin
// FColumn := Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName;
// if Trim(FColumn) <> '' then
// begin
// if Trim(CDS_MJCD.FieldByName(FColumn).AsString) <> '' then
// begin
// with CDS_MJCD do
// begin
// Edit;
// if Length(CDS_MJCD.FieldByName(FColumn).AsString) = 1 then
// begin
// FieldByName(FColumn).Value := null;
// FieldByName('CDQty').Value := 0;
// end
// else
// begin
// FieldByName(FColumn).Value := Copy(Trim(FieldByName(FColumn).AsString), 1, Length(Trim(FieldByName(FColumn).AsString)) - 1);
// FieldByName('CDQty').Value := FieldByName(FColumn).Value;
// end;
// Post;
// end;
// end;
// end;
// end;
end;
function TfrmMJManageNewFDNewSF.SaveData(): Boolean;
var
maxno, FMJID, BZID, strsql, CFMJXH, GMJXH, GMJLen, GMJMaoZ, GMJQty4, Gmjstr4: string;
FMJLen: Double;
FOrder: Integer;
Rollflag, khflag: string;
begin
result := false;
if PState = 1 then
FMJID := ''
else if PState = 2 then
FMJID := Trim(CDS_MJID.fieldbyname('MJID').AsString)
else if PState = 33 then
FMJID := Trim(Fzlmjid)
else if PState < 1 then
Exit;
if PState = 1 then
begin
if ComboBox2.ItemIndex = 0 then
begin
if fRollType = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
sql.Add('from WFB_MJJY X where X.dingdanhao=' + quotedstr(trim(dingdanhao.text)));
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end;
end
else if fRollType = '<27><><EFBFBD>׺<EFBFBD><D7BA><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
// sql.Add('from WFB_MJJY X where X.subID=''' + trim(FSubId) + ''' ');
sql.Add('from WFB_MJJY X where X.dingdanhao=' + quotedstr(trim(dingdanhao.text)));
sql.add('and X.prtcolor=' + quotedstr(trim(prtcolor.text)));
sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end;
end
else if fRollType = '<27>޹<EFBFBD><DEB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
end
else
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
sql.Add('from WFB_MJJY X where X.subID=''' + trim(FSubId) + ''' and X.PRTColor=''' + trim(PRTColor.text) + ''' and X.dingdanhao=''' + trim(dingdanhao.text) + ''' ');
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end;
end;
end;
end;
if minRollNo.Text <> '' then
begin
if StrToIntDef(minRollNo.Text, 0) > StrToIntDef(MJXH.Text, 0) then
begin
Application.MessageBox('С<><D0A1><EFBFBD><EFBFBD>С<EFBFBD><D0A1><EFBFBD>ţ<EFBFBD><C5A3><EFBFBD><EFBFBD>ܱ<EFBFBD><DCB1>棡', '<27><>ʾ', 0);
exit;
end;
end;
if MaxRollNo.Text <> '' then
begin
if StrToIntDef(MaxRollNo.Text, 0) < StrToIntDef(MJXH.Text, 0) then
begin
Application.MessageBox('<27>ѳ<EFBFBD><D1B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ţ<EFBFBD><C5A3><EFBFBD><EFBFBD>ܱ<EFBFBD><DCB1>棡', '<27><>ʾ', 0);
exit;
end;
end;
try
ADOCmd.Connection.BeginTrans;
if PState = 2 then
begin
GMJXH := Trim(CDS_MJID.fieldbyname('MJXH').AsString);
GMJLen := Trim(CDS_MJID.fieldbyname('MJLen').AsString);
GMJMaoZ := Trim(CDS_MJID.fieldbyname('MJMaoZ').AsString);
GMJQty4 := Trim(CDS_MJID.fieldbyname('MJQty4').AsString);
Gmjstr4 := Trim(CDS_MJID.fieldbyname('mjstr4').AsString);
GMJXH := '<27><><EFBFBD>ţ<EFBFBD>' + GMJXH + ',<2C>׺ţ<D7BA>' + Gmjstr4 + ',<2C><><EFBFBD>ȣ<EFBFBD>' + GMJLen + ',' + 'ë<>أ<EFBFBD>' + GMJMaoZ + ',<2C><><EFBFBD>أ<EFBFBD>' + GMJQty4;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result,Mainid) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27>޸<EFBFBD><DEB8><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27>޸<EFBFBD>ǰ<EFBFBD><C7B0><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:' + trim(FMJID) + ', ' + trim(Label24.Caption) + ', ' + trim(Label38.Caption) + ', ' + trim(Label25.Caption) + ', ' + trim(GMJXH))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(',' + quotedstr(trim(FMainId)));
sql.Add(')');
execsql;
end;
end;
if Edit5.Text = '<27><>' then
begin
Rollflag := '1';
end
else
begin
Rollflag := '0';
end;
if Edit13.Text = '<27><>' then
begin
khflag := '1';
end
else
begin
khflag := '0';
end;
///<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;
with ADOCmd do
begin
if Trim(FMJID) = '' then
begin
Append;
if GetLSNo(ADOTmp, maxno, Trim(SCXFlag), 'WFB_MJJY', 4, 22) = 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;
FieldByName('MainId').value := Trim(FMainId);
FieldByName('SubId').value := Trim(FSubId);
FieldByName('APId').value := Trim(FAPId);
FieldByName('MJID').value := Trim(maxno);
FieldByName('MJStr2').value := 'δ<><CEB4><EFBFBD><EFBFBD>';
FieldByName('MJBanZu').value := Trim(FBanZu);
FieldByName('MJstr3').value := Trim(MJstr3.Text);
FieldByName('MJstr4').value := Trim(MJstr4.Text);
FieldByName('MJstr5').value := Trim(MJstr5.Text);
if (PState = 33) then
begin
FieldByName('mjxh').value := Trim(Fzlmjxh);
end
else
begin
FieldByName('mjxh').value := Trim(mjxh.Text);
end;
FieldByName('JRollType').value := Trim(ComboBox3.Text);
FieldByName('MJTypeOther').value := Trim(Label9.Caption);
FieldByName('MJStr1').value := Trim(Label13.Caption);
FieldByName('Rollflag').value := Rollflag;
FieldByName('khflag').value := khflag;
FieldByName('note').value := Trim(note.Text);
FieldByName('PRTCodeName').value := Trim(PRTCodeName.Text);
FieldByName('CustomerNoName').value := Trim(CustomerNoName.Text);
FieldByName('PRTColor').value := Trim(PRTColor.Text);
// FieldByName('PRTHX').Value := Trim(PRTHX.Text);
FieldByName('guige').value := Trim(guige.Text);
FieldByName('SOrddefstr1').value := Trim(SOrddefstr1.Text);
FieldByName('CDws').value := Trim(CDws.Text);
FieldByName('ZLws').value := Trim(ZLws.Text);
FieldByName('dingdanhao').value := Trim(dingdanhao.Text);
if Edit12.Text <> '' then
begin
FieldByName('DingMaFlag').value := '<27><><EFBFBD><EFBFBD>';
end;
if Edit10.Text <> '' then
begin
FieldByName('DaoXuFlag').value := '<27><><EFBFBD>ŵ<EFBFBD><C5B5><EFBFBD>';
end;
FieldByName('QuhaoFlag').value := Trim(ComboBox2.Text);
if (FDC <> 0) and (Edit12.text <> '') then
begin
FieldByName('MJLen').value := FDC;
end
else
begin
if (PState = 33) then
begin
end
else
begin
FieldByName('MJLen').value := format('%.' + trim(CDws.text) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0) / StrToFloatdef(trim(machi.Text), 1) + StrToFloatdef(trim(MJQty2.Text), 0) + fjc)]);
end;
end;
FieldByName('machi').value := StrToFloatdef(trim(machi.Text), 1);
FieldByName('MJQty1').value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty5').value := StrToFloatdef(trim(MJQty5.Text), 0);
FieldByName('MJQty3').value := StrToFloatdef(trim(MJQty3.Text), 0);
if (PState = 2) or (Ftj = '<27>ύ') or (PState = 33) then
begin
FieldByName('MJQty4').value := StrToFloatdef(trim(MJQty4.Text), 0) + StrToFloatdef(trim(MJQty5.Text), 0) + fjZ;
if Trim(MJMaoZ.Text) <> '' then
begin
FieldByName('MJMaoZ').value := StrToFloat(MJMaoZ.Text) + StrToFloatdef(trim(MJQty5.Text), 0) + fjz;
end;
end;
// if trim(fOrderUnit) = 'KG' then
// begin
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + StrToFloatdef(trim(MJQty5.Text), 0) + fjZ;
// FieldByName('MJMaoZ').Value := StrToFloatdef(trim(MJMaoZ.Text), 0) + StrToFloatdef(trim(MJQty5.Text), 0) + fjZ;
// end
// else
// begin
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
// FieldByName('MJMaoZ').Value := StrToFloatdef(trim(MJMaoZ.Text), 0) + fjZ;
// end;
if Trim(MJFK.Text) <> '' then
begin
FieldByName('MJFK').value := MJFK.Text;
end;
if Trim(MJSJKZ.Text) <> '' then
begin
FieldByName('MJSJKZ').value := MJSJKZ.Text;
end;
FieldByName('MJType').value := '';
if Trim(Edit3.Text) <> '' then
begin
FieldByName('MJType').value := '<27><>Ʒ';
end;
if Trim(Edit4.Text) <> '' then
begin
FieldByName('MJType').value := '<27><>Ʒ';
end;
FieldByName('MJStr1').value := Trim(Label13.Caption);
if Trim(FMJID) = '' then
begin
FieldByName('Filler').value := Trim(DName);
end
else
begin
FieldByName('Editer').value := Trim(DName);
FieldByName('EditTime').value := SGetServerDateTime(ADOTmp);
end;
if Trim(SCXFlag) <> '' then
begin
FieldByName('JTType').value := Trim(SCXFlag);
end;
FieldByName('MJTypeOther').value := Trim(Label9.Caption);
if trim(fbaotype) = '<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>' then
begin
FieldByName('baoNO').value := Trim(baono.text);
FieldByName('baoID').value := Trim(baoID.Text);
end;
Post;
end;
if PState = 1 then
begin
if ComboBox2.ItemIndex = 0 then
begin
if fRollType = '<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.dingdanhao=WFB_MJJY.dingdanhao and X.MJID<>WFB_MJJY.MJID),0)');
sql.Add('where MJID=''' + Trim(maxno) + '''');
// 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),0)');
// sql.Add('where MJID=''' + Trim(maxno) + '''');
execsql;
end;
end
else if fRollType = '<27><><EFBFBD>׺<EFBFBD><D7BA><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 ');
sql.Add(' where X.dingdanhao=WFB_MJJY.dingdanhao and isnull(X.prtcolor,'''')=isnull(WFB_MJJY.prtcolor,'''') and isnull(X.mjstr4,'''')=isnull(WFB_MJJY.mjstr4,'''') and X.MJID<>WFB_MJJY.MJID),0)');
sql.Add('where MJID=''' + Trim(maxno) + '''');
execsql;
end;
end
else if fRollType = '<27>޹<EFBFBD><DEB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
end
else
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 isnull(X.prtcolor,'''')=isnull(WFB_MJJY.prtcolor,'''') and X.dingdanhao=WFB_MJJY.dingdanhao and X.MJID<>WFB_MJJY.MJID),0)');
sql.Add('where MJID=''' + Trim(maxno) + '''');
execsql;
end;
end;
end;
end
else if PState = 2 then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from WFB_MJJY where MJID=''' + Trim(maxno) + '''');
Open;
end;
GMJXH := Trim(ADOCmd.fieldbyname('MJXH').AsString);
GMJLen := Trim(ADOCmd.fieldbyname('MJLen').AsString);
GMJMaoZ := Trim(ADOCmd.fieldbyname('MJMaoZ').AsString);
GMJQty4 := Trim(ADOCmd.fieldbyname('MJQty4').AsString);
Gmjstr4 := Trim(ADOCmd.fieldbyname('mjstr4').AsString);
GMJXH := '<27><><EFBFBD>ţ<EFBFBD>' + GMJXH + ',<2C>׺ţ<D7BA>' + Gmjstr4 + ',<2C><><EFBFBD>ȣ<EFBFBD>' + GMJLen + ',' + 'ë<>أ<EFBFBD>' + GMJMaoZ + ',<2C><><EFBFBD>أ<EFBFBD>' + GMJQty4;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result,Mainid) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27>޸<EFBFBD><DEB8><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27>޸ĺ<DEB8><C4BA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:' + trim(maxno) + ', ' + trim(Label24.Caption) + ', ' + trim(Label38.Caption) + ', ' + trim(Label25.Caption) + ', ' + trim(GMJXH))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(',' + quotedstr(trim(FMainId)));
sql.Add(')');
execsql;
end;
end;
////////////<2F>ж<EFBFBD><D0B6><EFBFBD><EFBFBD>ź;<C5BA><CDBE><EFBFBD><EFBFBD>ظ<EFBFBD>
if fRollType = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
//////////////////<2F><><EFBFBD><EFBFBD><EFBFBD>ж<EFBFBD>
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select Top 1 MJXH,MJID from WFB_MJJY A where A.dingdanhao=''' + Trim(dingdanhao.Text) + ''' order by MJXH Desc');
// sql.Add('select Top 1 MJXH,MJID from WFB_MJJY A where A.mainID=''' + Trim(FMainId) + ''' order by MJXH Desc');
Open;
end;
GMJXH := Trim(ADOCmd.fieldbyname('MJXH').AsString);
GMJLen := Trim(ADOCmd.fieldbyname('MJID').AsString);
GMJMaoZ := IntToStr(StrToInt(GMJXH) - 1);
if Trim(GMJXH) <> '1' then
begin
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select MJID from WFB_MJJY X where X.dingdanhao=''' + Trim(dingdanhao.text) + '''');
SQL.Add(' and MJXH=' + GMJXH + '-1');
Open;
end;
if ComboBox2.ItemIndex = 0 then
begin
if ADOCmd.IsEmpty then
begin
Result := False;
ADOCmd.Connection.RollbackTrans;
PlaySound('wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ţ<EFBFBD><C5A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ύ!', '<27><>ʾ', 0);
Exit;
end;
end
else if ComboBox2.ItemIndex = 1 then
begin
if ADOCmd.IsEmpty then
begin
PlaySound('wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
if Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ţ<EFBFBD><C5A3>Ƿ<EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 32 + 4) <> IDYes then
begin
Result := False;
ADOCmd.Connection.RollbackTrans;
Exit;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result,Mainid) 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('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:' + trim(GMJLen) + ', ' + '<27><><EFBFBD>ţ<EFBFBD>' + Trim(GMJXH) + ', ' + trim(Label24.Caption) + ', ' + trim(Label38.Caption) + ', ' + trim(Label25.Caption) + ',<2C><><EFBFBD>ţ<EFBFBD>' + Trim(GMJMaoZ))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(',' + quotedstr(trim(FMainId)));
sql.Add(')');
execsql;
end;
end;
end;
end;
//////////////////<2F><><EFBFBD><EFBFBD><EFBFBD>ж<EFBFBD>
//////////////////<2F><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8>ж<EFBFBD>
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select Mainid,MJXH from WFB_MJJY X where X.dingdanhao=''' + Trim(dingdanhao.text) + '''');
sql.Add(' Group by Mainid,MJXH having count(*)>1');
Open;
end;
if ADOCmd.IsEmpty = False then
begin
CFMJXH := Trim(ADOCmd.fieldbyname('MJXH').AsString);
Result := False;
ADOCmd.Connection.RollbackTrans;
PlaySound('wav\<5C><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
Application.MessageBox(Pchar('<27><><EFBFBD><EFBFBD>: ' + Trim(CFMJXH) + ' <20>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD>봦<EFBFBD><EBB4A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'), '<27><>ʾ', 0);
Exit;
end;
//////////////////<2F><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8>ж<EFBFBD>
end
else if fRollType = '<27><><EFBFBD>׺<EFBFBD><D7BA><EFBFBD><EFBFBD><EFBFBD>' then
begin
//////////////////<2F><><EFBFBD><EFBFBD><EFBFBD>ж<EFBFBD>
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select Top 1 MJXH,MJID from WFB_MJJY A ');
sql.Add(' where A.mainID=''' + Trim(FMainId) + ''' and A.dingdanhao=''' + Trim(dingdanhao.text) + ''' and A.prtcolor=''' + Trim(prtcolor.text) + ''' and isnull(A.MJStr4,'''')=''' + Trim(MJStr4.Text) + '''');
sql.Add(' order by MJXH Desc');
Open;
end;
GMJXH := Trim(ADOCmd.fieldbyname('MJXH').AsString);
GMJLen := Trim(ADOCmd.fieldbyname('MJID').AsString);
GMJMaoZ := IntToStr(StrToInt(GMJXH) - 1);
if Trim(GMJXH) <> '1' then
begin
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select MJID from WFB_MJJY X where X.mainID=''' + Trim(FMainId) + ''' and X.dingdanhao=''' + Trim(dingdanhao.text) + ''' and A.prtcolor=''' + Trim(prtcolor.text) + ''' and isnull(X.MJStr4,'''')=''' + Trim(MJStr4.Text) + '''');
SQL.Add(' and MJXH=' + GMJXH + '-1');
Open;
end;
if ComboBox2.ItemIndex = 0 then
begin
if ADOCmd.IsEmpty then
begin
Result := False;
ADOCmd.Connection.RollbackTrans;
PlaySound('wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ţ<EFBFBD><C5A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ύ!', '<27><>ʾ', 0);
Exit;
end;
end
else if ComboBox2.ItemIndex = 1 then
begin
if ADOCmd.IsEmpty then
begin
PlaySound('wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
if Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ţ<EFBFBD><C5A3>Ƿ<EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 32 + 4) <> IDYes then
begin
Result := False;
ADOCmd.Connection.RollbackTrans;
Exit;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result,Mainid) 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('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:' + trim(GMJLen) + ', ' + '<27><><EFBFBD>ţ<EFBFBD>' + Trim(GMJXH) + ', ' + trim(Label24.Caption) + ', ' + trim(Label38.Caption) + ', ' + trim(Label25.Caption) + ',<2C><><EFBFBD>ţ<EFBFBD>' + Trim(GMJMaoZ))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(',' + quotedstr(trim(FMainId)));
sql.Add(')');
execsql;
end;
end;
end;
end;
//////////////////<2F><><EFBFBD><EFBFBD><EFBFBD>ж<EFBFBD>
//////////////////<2F><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8>ж<EFBFBD>
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select subid,MJStr4,MJXH from WFB_MJJY X where X.dingdanhao=''' + Trim(dingdanhao.text) + ''' and X.prtcolor=''' + Trim(prtcolor.text) + ''' and isnull(X.MJStr4,'''')=''' + Trim(MJStr4.Text) + '''');
sql.Add(' Group by subid,MJStr4,MJXH having count(*)>1');
Open;
end;
if ADOCmd.IsEmpty = False then
begin
CFMJXH := Trim(ADOCmd.fieldbyname('MJXH').AsString);
Result := False;
ADOCmd.Connection.RollbackTrans;
PlaySound('wav\<5C><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
Application.MessageBox(Pchar('<27><><EFBFBD><EFBFBD>: ' + Trim(CFMJXH) + ' <20>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD>봦<EFBFBD><EBB4A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'), '<27><>ʾ', 0);
Exit;
end;
//////////////////<2F><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8>ж<EFBFBD>
end
else if fRollType = '<27>޹<EFBFBD><DEB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
end
else
begin
//////////////////<2F><><EFBFBD><EFBFBD><EFBFBD>ж<EFBFBD>
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select Top 1 MJXH,MJID from WFB_MJJY A where A.Subid=''' + Trim(FSubid) + ''' and A.dingdanhao=''' + Trim(dingdanhao.text) + ''' and A.prtcolor=''' + Trim(prtcolor.text) + ''' order by MJXH Desc');
Open;
end;
GMJXH := Trim(ADOCmd.fieldbyname('MJXH').AsString);
GMJLen := Trim(ADOCmd.fieldbyname('MJID').AsString);
GMJMaoZ := IntToStr(StrToInt(GMJXH) - 1);
if Trim(GMJXH) <> '1' then
begin
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select MJID from WFB_MJJY X where X.Subid=''' + Trim(FSubid) + ''' and X.prtcolor=''' + trim(prtcolor.text) + ''' and X.dingdanhao=''' + trim(dingdanhao.text) + ''' ');
SQL.Add(' and MJXH=' + GMJXH + '-1');
Open;
end;
if ComboBox2.ItemIndex = 0 then
begin
if ADOCmd.IsEmpty then
begin
Result := False;
ADOCmd.Connection.RollbackTrans;
PlaySound('wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ţ<EFBFBD><C5A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ύ!', '<27><>ʾ', 0);
Exit;
end;
end
else if ComboBox2.ItemIndex = 1 then
begin
if ADOCmd.IsEmpty then
begin
PlaySound('wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
if Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ţ<EFBFBD><C5A3>Ƿ<EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 32 + 4) <> IDYes then
begin
Result := False;
ADOCmd.Connection.RollbackTrans;
Exit;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result,Mainid) 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('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:' + trim(GMJLen) + ', ' + '<27><><EFBFBD>ţ<EFBFBD>' + Trim(GMJXH) + ', ' + trim(Label24.Caption) + ', ' + trim(Label38.Caption) + ', ' + trim(Label25.Caption) + ',<2C><><EFBFBD>ţ<EFBFBD>' + Trim(GMJMaoZ))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(',' + quotedstr(trim(FMainId)));
sql.Add(')');
execsql;
end;
end;
end;
end;
//////////////////<2F><><EFBFBD><EFBFBD><EFBFBD>ж<EFBFBD>
//////////////////<2F><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8>ж<EFBFBD>
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select SubID,MJXH from WFB_MJJY X where X.SubID=''' + Trim(FSubID) + ''' and X.prtcolor=''' + trim(prtcolor.text) + ''' and X.dingdanhao=''' + trim(dingdanhao.text) + ''' ');
sql.Add(' Group by SubID,MJXH having count(*)>1');
Open;
end;
if ADOCmd.IsEmpty = False then
begin
CFMJXH := Trim(ADOCmd.fieldbyname('MJXH').AsString);
Result := False;
ADOCmd.Connection.RollbackTrans;
PlaySound('wav\<5C><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
Application.MessageBox(Pchar('<27><><EFBFBD><EFBFBD>: ' + Trim(CFMJXH) + ' <20>ظ<EFBFBD><D8B8><EFBFBD><EFBFBD>봦<EFBFBD><EBB4A6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'), '<27><>ʾ', 0);
Exit;
end;
//////////////////<2F><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8>ж<EFBFBD>
end;
////////////<2F>ж<EFBFBD><D0B6><EFBFBD><EFBFBD>ź;<C5BA><CDBE><EFBFBD><EFBFBD>ظ<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 CDS_MJID do
begin
Append;
FieldByName('MJID').value := Trim(FMJID);
Post;
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;
if (fbaotype = '<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>') or (fbaotype = '') or (PState = 2) then
begin
end
else
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_Update_Bao ''' + trim(FMJID) + ''' ');
if fbaotype = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
sql.Add(',1 ');
end
else if fbaotype = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ' then
begin
sql.Add(',2 ');
end
else if fbaotype = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ' then
begin
sql.Add(',3 ');
end;
execsql;
end;
end;
ADOCmd.Connection.CommitTrans;
Result := True;
except
Result := False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
end;
Ftj := '';
end;
procedure TfrmMJManageNewFDNewSF.BTAddClick(Sender: TObject);
begin
if Trim(Label24.Caption) = '' then
Exit;
PState := 1;
InitCDGridID();
InitCDGrid();
BtnStatus(True);
Label16.Caption := '<27><><EFBFBD><EFBFBD>';
end;
procedure TfrmMJManageNewFDNewSF.BTEditClick(Sender: TObject);
begin
if CDS_MJID.IsEmpty then
Exit;
PState := 2;
Label16.Caption := '<27>޸<EFBFBD>';
end;
procedure TfrmMJManageNewFDNewSF.BTPrintClick(Sender: TObject);
var
fPrintFile: string;
mvalue: Double;
mvalue1: integer;
i: Integer;
begin
Ftj := '<27>ύ';
if trim(dingdanhao.text) = '' then
begin
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
exit;
end;
if Trim(FAPID) = '' then
Exit;
if (strtofloatdef(trim(MJLen.Text), 0) = 0) and (strtofloatdef(trim(mjqty4.Text), 0) = 0) then
begin
application.MessageBox('<27><><EFBFBD>Ȼ<EFBFBD><C8BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܶ<EFBFBD>Ϊ<EFBFBD>㣡', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
exit;
end;
if trim(MJXH.text) = '' then
begin
application.MessageBox('<27><><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
exit;
end;
if trim(MJXH.text) = '0' then
begin
application.MessageBox('<27><><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ0', '<27><>ʾ');
exit;
end;
if trim(CDws.text) = '' then
begin
application.MessageBox('<27><><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
exit;
end;
if trim(ZLws.text) = '' then
begin
application.MessageBox('<27><><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
exit;
end;
if trim(Label9.Caption) = '' then
begin
Application.MessageBox('<27><><EFBFBD>ȵ<EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if Trim(MJQty1.Text) <> '' then
begin
if TryStrToFloat(MJQty1.Text, mvalue) = False then
begin
Application.MessageBox('ԭ<><D4AD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
if Trim(MJMaoZ.Text) <> '' then
begin
if TryStrToFloat(MJMaoZ.Text, mvalue) = False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
if Trim(MJQty2.Text) <> '' then
begin
if TryStrToFloat(MJQty2.Text, mvalue) = False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
// if (strtofloatdef(trim(MJLen.Text), 0) > 200) then
// begin
// application.MessageBox('<27><><EFBFBD>Ȳ<EFBFBD><C8B2>ܴ<EFBFBD><DCB4><EFBFBD>200<30><30>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
// exit;
// end;
// if Trim(Edit6.Text) <> '' then
// begin
// with ADOTmp do
// begin
// Close;
// sql.Clear;
// sql.Add('select * from JYorder_Sub where Subid=''' + Trim(FSubId) + ''' and isnull(Slbname,'''')<>'''' ');
// Open;
// end;
// if ADOTmp.IsEmpty then
// begin
// PlaySound('wav\û<><C3BB><EFBFBD><EFBFBD><EFBFBD>ñ<EFBFBD>ǩ.wav', 0, SND_FILENAME or SND_ASYNC);
// Application.MessageBox('û<><C3BB><EFBFBD><EFBFBD><EFBFBD>ñ<EFBFBD>ǩ', '<27><>ʾ', 0);
// Exit;
// end
// else
// begin
// fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOTmp.fieldbyname('Slbname').AsString);
// if FileExists(fPrintFile) then
// begin
//
// end
// else
// begin
// PlaySound('wav\<5C><>ǩû<C7A9><C3BB><EFBFBD>ҵ<EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
// Application.MessageBox('<27><>ǩû<C7A9><C3BB><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>볢<EFBFBD><EBB3A2><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD>¼<EFBFBD><C2BC><EFBFBD>п<EFBFBD><D0BF>ܱ<EFBFBD>ǩû<C7A9><C3BB><EFBFBD>ϴ<EFBFBD>', '<27><>ʾ', 0);
// Exit;
// end;
// end;
// end;
BTPrint.Enabled := False;
Timer1.Enabled := True;
if SaveData() then
begin
MJMaoZ.Text := '';
MJQty1.Text := '';
// MJQty2.Text := '';
// MJQty5.Text := '';
Label15.Caption := '';
MJQty4.Text := '';
if edit10.Text = '<27><>' then
begin
MJXH.Text := inttostr(strTointdef(trim(MJXH.Text), 0) - 1);
end
else
begin
MJXH.Text := inttostr(strTointdef(trim(MJXH.Text), 0) + 1);
end;
if PState = 1 then
begin
PlaySound('wav\<5C><>ȷ.wav', 0, SND_FILENAME or SND_ASYNC);
end
else if PState = 2 then
begin
PlaySound('wav\<5C>޸ijɹ<C4B3>.wav', 0, SND_FILENAME or SND_ASYNC);
end;
if PState = 2 then
begin
apid.Text := FAPID;
Button3.Click;
end;
end
else
exit;
if Trim(Edit6.Text) = '<27><>' then
begin
PrtData(FFFMJID);
end;
if Trim(Edit6.Text) = '<27><>' then
begin
if (fbaotype = '<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>') or (fbaotype = '') then
begin
end
else
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_View_Baoid ''' + trim(FFFMJID) + ''' ');
sql.Add(',''' + trim(FMainId) + ''' ,''' + trim(FSubId) + ''' ');
if fbaotype = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
sql.Add(' ,1 ');
end;
if fbaotype = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ' then
begin
sql.Add(' ,2 ');
end;
if fbaotype = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ' then
begin
sql.Add(' ,3 ');
end;
Open;
end;
if ADOCmd.FieldByName('baoid').AsString <> '' then
begin
baoNo.Text := inttostr(ADOCmd.fieldbyname('baoNo').AsInteger + 1);
PrtBaoData(ADOCmd.fieldbyname('baoid').AsString);
end;
end;
end;
Label16.Caption := '';
// if trim(JCYDLL) <> '' then
// clearCom(JCYDLL);
BTAdd.Click;
MJLen.SetFocus;
MJQty4.OnClick(MJQty4);
end;
procedure TfrmMJManageNewFDNewSF.PrtBaoData(FBaoid: string);
var
fPrintFile: string;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
i: Integer;
begin
if CDS_MJID.IsEmpty then
exit;
CDS_MJID.First;
with ADOQueryPrint do
begin
Close;
SQL.Clear;
sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName,');
sql.Add('PRTCodeName=DBO.F_Get_Order_SubStr(BaoID,''BNCodeName''),');
sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),');
sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), ');
sql.Add('Mjstr4=DBO.F_Get_Order_SubStr(BaoID,''BNGangNo''), ');
sql.Add('MJXH=DBO.F_Get_Order_SubStr(BaoID,''BNMJXH''), ');
sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), ');
sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),');
sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), ');
sql.Add('MprtCodeNameEng=(select top 1 Note from KH_Zdy X where X.zdyName=D.MprtCodeName), ');
SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty2) as MJQty2,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen');
sql.Add('from WFB_MJJY A');
sql.Add('inner join JYOrder_Sub C on C.SubID=A.SubID');
sql.Add('inner join JYOrder_Main D on D.MainID=A.MainID');
SQL.Add('where A.BaoID=''' + Trim(FBaoid) + '''');
SQL.ADD('group by A.Baoid,A.BaoNo,A.MJTypeOther,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName');
Open;
end;
if ADOQueryPrint.RecordCount > 1 then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>´<EFBFBD><C2B4><EFBFBD>!', '<27><>ʾ', 0);
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);
Exit;
end;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := trim(FBaoid);
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 Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) <> '' then
begin
ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('NLbName').AsString), ADOCmd);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLbName').AsString)
end
else
begin
ExportFtErpFile('<27><><EFBFBD><EFBFBD>ǩ.rmf', ADOCmd);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD>ǩ.rmf';
end;
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 := 1;
//RM2.ShowReport;
RM2.printReport;
end;
end;
procedure TfrmMJManageNewFDNewSF.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('select(case when rollflag=''1'' then A.mjxh else null end)as mjxh,(case when khflag=''1'' then A.CustomerNoName else null end)as CustomerNoName,A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.conNo,B.LBName');
// sql.Add(',EngColor=(select max(Note) from KH_Zdy X where X.ZDYName=C.PRTColor and X.Type=''OrdColor'' ) ');
// sql.Add('select A.mjxh,A.CustomerNoName,A.MJID,A.mjstr3,QtyUnit=A.MJTypeOther,B.orderNo,B.conNo,B.LBName');
sql.Add(',B.MPRTCF,A.*,C.Slbname ');
sql.Add(' from WFB_MJJY A');
sql.Add(' inner join JYOrder_Main B On A.Mainid=B.Mainid');
sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId');
SQL.Add(' where A.MJID=''' + Trim(FMJID) + '''');
// showmessage(sql.Text);
Open;
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);
CDS_MJID.EnableControls;
exit;
end;
if Trim(ADOQueryPrint.fieldbyname('Slbname').AsString) <> '' then
begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('Slbname').AsString);
ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('Slbname').AsString), ADOCmd);
end
else
begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><>ʤ<EFBFBD><CAA4>ǩ.rmf';
ExportFtErpFile('<27><>ʤ<EFBFBD><CAA4>ǩ.rmf', ADOCmd);
end;
if FileExists(fPrintFile) then
begin
RMVariables['QRBARCODE'] := fImagePath;
RM2.LoadFromFile(fPrintFile);
if (strtofloatdef(trim(ComboBox1.Text), 0) > 100) then
begin
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܴ<EFBFBD><DCB4><EFBFBD>100<30><30>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
exit;
end;
RM2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);
// RM2.ShowReport;
Sleep(1000);
RM2.PrintReport;
if MggCDFalg = '99' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result,MainId) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD>ش<EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:' + trim(CDS_MJID.FieldByName('MJID').AsString) + ',' + trim(Label24.Caption) + ',' + trim(Label38.Caption) + ',' + trim(Label25.Caption) + ',<2C>׺ţ<D7BA>' + trim(CDS_MJID.FieldByName('mjstr4').AsString) + ',<2C><><EFBFBD><EFBFBD>:' + trim(CDS_MJID.FieldByName('MJXH').AsString) + ',<2C><><EFBFBD><EFBFBD>:' + trim(ComboBox1.Text))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(',' + quotedstr(trim(FMainId)));
sql.Add(')');
execsql;
end;
PlaySound('wav\<5C>ش<EFBFBD><D8B4>ɹ<EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
end;
MggCDFalg := '';
end
else
begin
MggCDFalg := '';
PlaySound('wav\<5C><>ǩû<C7A9><C3BB><EFBFBD>ҵ<EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
Application.MessageBox('<27><>ǩû<C7A9><C3BB><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>볢<EFBFBD><EBB3A2><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD>¼<EFBFBD><C2BC><EFBFBD>п<EFBFBD><D0BF>ܱ<EFBFBD>ǩû<C7A9><C3BB><EFBFBD>ϴ<EFBFBD>', '<27><>ʾ', 0);
end;
end;
procedure TfrmMJManageNewFDNewSF.SavedataCK();
var
CRID: Integer;
MaxCkNo, MaxCkSubNo: string;
begin
//if Trim(Cds_Main.fieldbyname('SubType').AsString)='<27><><EFBFBD><EFBFBD>' then
//////////////////////////////////////////////////////////////<2F><><EFBFBD>浽<EFBFBD><E6B5BD><EFBFBD><EFBFBD>Ʒ<EFBFBD>ֿ<EFBFBD>////////////////////////////////////////////////
with ADOCmd do
begin
Close;
sql.Clear;
SQL.add('Update CK_BanCP_CRID Set CRID=CRID+1');
sql.Add('select * from CK_BanCP_CRID');
Open;
end;
CRID := ADOCmd.fieldbyname('CRID').value;
if GetLSNo(ADOCmd, MaxCkNo, 'JR', 'CK_BanCP_CR', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>Ʒ<EFBFBD>ֿ<EFBFBD><D6BF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from CK_BanCP_CR where 1<>1');
Open;
end;
with ADOCmd do
begin
Append;
FieldByName('MainId').value := Trim(FMainId);
FieldByName('SubId').value := Trim(FSubId);
FieldByName('APID').value := Trim(FAPID);
FieldByName('MJID').value := Trim(CDS_MJID.fieldbyname('MJId').AsString);
FieldByName('BCID').value := Trim(MaxCkNo);
FieldByName('CRTime').value := SGetServerDateTime(ADOTmp);
FieldByName('CRFlag').value := '<27><><EFBFBD><EFBFBD>';
FieldByName('CRType').value := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
//FieldByName('JTType').Value:=Trim(XJFlag);
FieldByName('CRID').value := CRID;
if Trim(MJMaoZ.Text) <> '' then
begin
FieldByName('KGQty').value := StrToFloat(MJMaoZ.Text);
end;
if Trim(MJLen.Text) <> '' then
begin
FieldByName('Qty').value := StrToFloat(MJLen.Text);
end;
FieldByName('QtyUnit').value := Trim(Label9.Caption);
FieldByName('Filler').value := Trim(DName);
FieldByName('FillTime').value := SGetServerDateTime(ADOTmp);
if Trim(Edit3.Text) <> '' then
begin
FieldByName('CPType').value := '<27><>Ʒ';
end;
if Trim(Edit4.Text) <> '' then
begin
FieldByName('CPType').value := '<27><>Ʒ';
end;
Post;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from CK_BanCP_KC where 1<>1');
Open;
end;
with ADOCmd do
begin
Append;
FieldByName('CRID').value := CRID;
FieldByName('BCID').value := Trim(MaxCkNo);
FieldByName('MJID').value := Trim(CDS_MJID.fieldbyname('MJID').AsString);
if Trim(MJMaoZ.Text) <> '' then
begin
FieldByName('KCKGQty').value := StrToFloat(MJMaoZ.Text);
end;
if Trim(MJLen.Text) <> '' then
begin
FieldByName('KCQty').value := StrToFloat(MJLen.Text);
end;
FieldByName('KCQtyUnit').value := Trim(Label9.Caption);
Post;
end;
end;
procedure TfrmMJManageNewFDNewSF.BtnStatus(BSInt: Boolean);
begin
// Tv2.OptionsSelection.CellSelect:=BSInt;
end;
procedure TfrmMJManageNewFDNewSF.Tv2CDQtyPropertiesEditValueChanged(Sender: TObject);
var
mvalue: string;
begin
try
mvalue := TcxTextEdit(Sender).EditingText;
if Trim(mvalue) <> '' then
begin
CDS_MJCD.Edit;
CDS_MJCD.FieldByName('CDQty').value := mvalue;
CDS_MJCD.Post;
end
else
begin
CDS_MJCD.Edit;
CDS_MJCD.FieldByName('CDQty').value := 0;
CDS_MJCD.Post;
end;
CDS_MJCD.Edit;
CDS_MJCD.FieldByName('CDQtyS').value := mvalue;
except
Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD>֣<EFBFBD>', '<27><>ʾ', 0);
end;
end;
procedure TfrmMJManageNewFDNewSF.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 TfrmMJManageNewFDNewSF.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 TfrmMJManageNewFDNewSF.SpeedButton13Click(Sender: TObject);
var
i: Integer;
begin
if Trim(Label24.Caption) = '' then
Exit;
if Label24.Visible = False then
Exit;
{with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('select * from Order_JYResult where APID='''+Trim(FAPID)+'''');
Open;
end;
if ADOTmp.IsEmpty then
begin
Application.MessageBox('<27>ŷ<EFBFBD><C5B7><EFBFBD><EFBFBD><EFBFBD>δ¼<CEB4><C2BC>,<2C><><EFBFBD>ܼ<EFBFBD><DCBC><EFBFBD>!','<27><>ʾ',0);
Exit;
end; }
if Trim(CDS_MJCD.fieldbyname('MJID').AsString) <> '' then
begin
BTAdd.Click;
end;
if Trim(Label15.Caption) <> '' then
begin
//MJFK.Text:='';
//MJSJKZ.Text:='';
MJLen.Text := '';
MJMaoZ.Text := '';
MJQty1.Text := '';
//MJSJKZ.Text:='';
Label15.Caption := '';
end;
if Trim(FAPID) = '' then
Exit;
FCDName := Trim(TSpeedButton(Sender).Hint);
MovePanel1.Visible := True;
Label21.Caption := Trim(FCDName);
FInt := 11;
Edit1.SetFocus;
//CDQty.SetFocus;
Panel3.Visible := True;
PState := 1;
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 TfrmMJManageNewFDNewSF.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 TfrmMJManageNewFDNewSF.Button1Click(Sender: TObject);
var
mvalue: Double;
begin
{ if Trim(Edit1.Text)='' then
begin
Application.MessageBox('λ<>ò<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 := RadioGroup1.ItemIndex + 1;
FieldByName('JBQty').value := strtofloatdef(trim(Edit8.Text), 0);
if Trim(CDQty.Text) <> '' then
begin
FieldByName('CDQty').value := StrToFloat(CDQty.Text);
end
else
begin
FieldByName('CDQty').value := 0;
end;
Post;
end;
Edit1.Text := '';
Edit2.Text := '';
CDQty.Text := '';
Edit8.Text := '';
MovePanel1.Visible := False;
Panel3.Visible := False;
end;
procedure TfrmMJManageNewFDNewSF.Button4Click(Sender: TObject);
begin
Edit1.Text := '';
Edit2.Text := '';
CDQty.Text := '';
MovePanel1.Visible := False;
Panel3.Visible := False;
end;
procedure TfrmMJManageNewFDNewSF.SpeedButton49Click(Sender: TObject);
begin
Panel3.Visible := False;
end;
procedure TfrmMJManageNewFDNewSF.APIDKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Button3.Click;
end;
end;
procedure TfrmMJManageNewFDNewSF.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 TfrmMJManageNewFDNewSF.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 TfrmMJManageNewFDNewSF.Edit3Click(Sender: TObject);
begin
if Trim(Edit3.Text) = '' then
begin
Edit3.Text := '<27><>';
Edit4.Text := '';
end
else
begin
Edit3.Text := '';
end;
end;
procedure TfrmMJManageNewFDNewSF.Edit4Click(Sender: TObject);
begin
if Trim(Edit4.Text) = '' then
begin
Edit4.Text := '<27><>';
Edit3.Text := '';
end
else
begin
Edit4.Text := '';
end;
end;
procedure TfrmMJManageNewFDNewSF.Edit6Click(Sender: TObject);
begin
if Trim(Edit6.Text) = '' then
begin
Edit6.Text := '<27><>';
end
else
begin
Edit6.Text := '';
end;
end;
procedure TfrmMJManageNewFDNewSF.MJstr3KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
BTPrint.Click;
end;
end;
procedure TfrmMJManageNewFDNewSF.Label9Click(Sender: TObject);
begin
if trim(Label9.Caption) = 'M' then
begin
Label9.Caption := 'Y';
Label19.Caption := 'Y';
Label20.Caption := 'Y';
Label7.Caption := 'Y';
end
else
begin
Label9.Caption := 'M';
Label19.Caption := 'M';
Label20.Caption := 'M';
Label7.Caption := 'M';
end;
end;
procedure TfrmMJManageNewFDNewSF.Button2Click(Sender: TObject);
begin
RadioGroup1.ItemIndex := -1;
end;
procedure TfrmMJManageNewFDNewSF.MJQty4Change(Sender: TObject);
var
FReal: Double;
begin
if Trim(MJQty4.Text) = '' then
begin
MJMaoZ.Text := '';
Exit;
end;
if TryStrToFloat(MJQty4.Text, FReal) = False then
Exit;
if Edit11.Text = '' then
begin
if (strtofloatdef(trim(kmxs.Text), 0) <> 0) and (strtofloatdef(trim(mjQty4.Text), 0) <> 0) then
begin
MJLen.Text := format('%.' + trim(CDws.text) + 'f', [(strtofloatdef(trim(mjQty4.Text), 0) + fjZ) * strtofloatdef(trim(kmxs.Text), 0)])
end;
end;
end;
procedure TfrmMJManageNewFDNewSF.MJMaoZChange(Sender: TObject);
var
FReal, jz: Double;
begin
if Trim(MJMaoZ.Text) = '' then
begin
MJQty4.Text := '';
Exit;
end;
if TryStrToFloat(MJMaoZ.Text, FReal) = False then
Exit;
if Trim(MJQty3.Text) <> '' then
begin
if TryStrToFloat(MJQty3.Text, FReal) = False then
Exit;
jz := StrToFloat(MJMaoZ.Text) - StrToFloat(MJQty3.Text);
MJQty4.Text := format('%.' + trim(ZLws.text) + 'f', [jz]);
end
else
begin
MJQty4.Text := MJMaoZ.Text;
end;
if Edit11.Text <> '' then
begin
if (strtofloatdef(trim(kmxs.Text), 0) <> 0) and (strtofloatdef(trim(MJMaoZ.Text), 0) <> 0) then
begin
MJLen.Text := format('%.' + trim(CDws.text) + 'f', [(strtofloatdef(trim(MJMaoZ.Text), 0) + fjZ) * strtofloatdef(trim(kmxs.Text), 0)])
end;
end;
end;
procedure TfrmMJManageNewFDNewSF.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 TfrmMJManageNewFDNewSF.Button3Click(Sender: TObject);
var
FBaoID: string;
begin
fRollType := '';
with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('select B.*,B.OrderNo OrderNoM,C.*,A.FillTime, ');
sql.Add('maxMJxh=isnull((select max(mjxh) from WFB_MJJY X where X.SubID=C.subID),0),');
sql.Add('minMJxh=isnull((select min(mjxh) from WFB_MJJY X where X.SubID=C.subID),1),');
sql.Add('maxBaoNO=case when B.baosx=''<27><><EFBFBD><EFBFBD>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>'' then isnull((select max(cast(baoNO as int)) from WFB_MJJY X where X.mainID=C.mainID and X.subid=C.subID ),0)');
sql.Add(' else isnull((select max(cast(baoNO as int)) from WFB_MJJY X where X.mainID=C.mainID ),0) end ');
sql.Add('from JYOrder_Sub C');
SQL.Add('inner join JYOrder_Main B on B.MainId=C.MainId ');
~
2025-12-08 10:16:13 +08:00
SQL.Add('left join WFB_MJJY A on A.MainId=A.MainId and A.subid=C.subid ');
~
2025-04-30 20:03:01 +08:00
sql.Add('where C.SubID=''' + Trim(APID.Text) + '''');
// SQL.Add('and A.dingdanhao=''' + trim(dingdanhao.text) + ''' ');
// sql.Add('and A.FillTime>=getdate()-1');
// sql.Add('and B.FillTime>=format(getdate(),''yyyy-MM-dd'') ');
// sql.Add('and B.FillTime<format(getdate()+1,''yyyy-MM-dd'') ');
// ShowMessage(sql.text);
Open;
end;
if ADOTmp.IsEmpty = False then
begin
if edit10.Text = '<27><>' then
begin
fRollType := '<27>޹<EFBFBD><DEB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
fRollType1 := trim(ADOTmp.fieldbyname('Orddefstr15').AsString);
end
else
begin
fRollType := trim(ADOTmp.fieldbyname('Orddefstr15').AsString);
end;
Label24.Visible := True;
Label24.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:' + Trim(ADOTmp.fieldbyname('OrderNoM').AsString);
Label38.Visible := True;
Label38.Caption := 'Ʒ<><C6B7>:' + Trim(ADOTmp.fieldbyname('PRTCodeName').AsString);
Label25.Visible := True;
Label25.Caption := '<27><>ɫ:' + Trim(ADOTmp.fieldbyname('PRTCOLOR').AsString);
Label47.Visible := true;
Label47.Caption := '<27>ͻ<EFBFBD>:' + Trim(ADOTmp.fieldbyname('CustomerNoName').AsString);
if PState = 2 then
begin
end
else
begin
dingdanhao.Text := Trim(ADOTmp.fieldbyname('OrderNoM').AsString);
PRTCodeName.Text := Trim(ADOTmp.fieldbyname('PRTCodeName').AsString);
CustomerNoName.Text := Trim(ADOTmp.fieldbyname('CustomerNoName').AsString);
PRTColor.Text := Trim(ADOTmp.fieldbyname('PRTColor').AsString);
guige.Text := Trim(ADOTmp.fieldbyname('PRTspec').AsString);
SOrddefstr1.Text := Trim(ADOTmp.fieldbyname('SOrddefstr1').AsString);
DJ.text := ADOTmp.fieldbyname('prtdj').asstring;
MJstr4.Text := Trim(AdoTmp.fieldbyname('PrtMJstr4').AsString);
end;
FAPID := Trim(ADOTmp.fieldbyname('SubId').AsString);
FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString);
FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString);
FJZ := ADOTmp.fieldbyname('jiazhong').AsFloat;
FJC := ADOTmp.fieldbyname('jiachang').AsFloat;
FDC := StrToFloatDef(ADOTmp.fieldbyname('DC').asstring, 0);
fbaotype := Trim(ADOTmp.fieldbyname('baotype').AsString);
fbaosx := Trim(ADOTmp.fieldbyname('baosx').AsString);
fOrderUnit := uppercase(Trim(ADOTmp.fieldbyname('OrderUnit').AsString));
if FDC <> 0 then
begin
Edit12.Visible := True;
Label51.Visible := True;
Edit12.Text := '<27><>';
end
else
begin
Edit12.Visible := False;
Label51.Visible := False;
Edit12.Text := '';
end;
AOrdDefNote1.Text := '<27><>װҪ<D7B0><D2AA>:' + #13 + Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString) + #13 + '<27><><EFBFBD><EFBFBD>Ҫ<EFBFBD><D2AA>:' + #13 + Trim(ADOTmp.fieldbyname('MPRTSCTeBieNote').AsString);
MJQty3.Text := Trim(ADOTmp.fieldbyname('SPiZhong').AsString);
kmxs.Text := Trim(ADOTmp.fieldbyname('kmxs').AsString);
MJFK.Text := Trim(ADOTmp.fieldbyname('PRTMF').AsString);
MJSJKZ.Text := Trim(ADOTmp.fieldbyname('PRTKZ').AsString);
if edit10.Text = '' then
begin
MJXH.Text := inttostr(ADOTmp.fieldbyname('maxMJxh').AsInteger + 1);
end
else
begin
MJXH.Text := inttostr(ADOTmp.fieldbyname('minMJxh').AsInteger - 1);
end;
CDws.Text := Trim(ADOTmp.fieldbyname('xsws').AsString);
ZLws.Text := Trim(ADOTmp.fieldbyname('xsws1').AsString);
// fxsws := Trim(ADOTmp.fieldbyname('xsws').AsString);
// fxsws1 := Trim(ADOTmp.fieldbyname('xsws1').AsString);
baoNO.Text := Trim(ADOTmp.fieldbyname('maxBaoNO').AsString);
if GetLSNo(ADOCmd, FBaoID, 'BI', 'WFB_MJJY', 3, 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 := FBaoID;
Edit3.Text := '<27><>';
Edit4.Text := '';
// MJStr4.Text := '';
end
else
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Label2.Visible := False;
Label2.Caption := '';
APID.Text := '';
FAPID := '';
FMainId := '';
FSubId := '';
AOrdDefNote1.Text := '';
// MJStr4.Text := '';
fRollType := '';
Exit;
end;
APID.Text := '';
BTAdd.Click;
end;
procedure TfrmMJManageNewFDNewSF.Edit7Click(Sender: TObject);
begin
if Trim(Edit7.Text) = '' then
begin
Edit7.Text := '<27><>';
if not IsCommOpen then
OpenCom(JCYDLL);
IsJsMessage := true;
end
else
begin
Edit7.Text := '';
IsJsMessage := true;
end;
end;
procedure TfrmMJManageNewFDNewSF.Button6Click(Sender: TObject);
begin
frmClothHCList := TfrmClothHCList.create(self);
with frmClothHCList do
begin
fType := '10';
if showmodal = 1 then
begin
APID.Text := trim(Order_Main.fieldbyname('Subid').asstring);
Button3.Click;
end;
free;
end;
end;
procedure TfrmMJManageNewFDNewSF.MJQty4KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
BTPrint.Click;
end;
end;
procedure TfrmMJManageNewFDNewSF.MJXHClick(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 TfrmMJManageNewFDNewSF.MJLenChange(Sender: TObject);
begin
// MJLen.Text:=JsXj(MJLen.Text);
end;
procedure TfrmMJManageNewFDNewSF.MJQty3Change(Sender: TObject);
begin
// MJQty3.Text:=JsXj(MJQty3.Text);
end;
procedure TfrmMJManageNewFDNewSF.MJQty5Change(Sender: TObject);
begin
// MJQty2.Text:=JsXj(MJQty2.Text);
end;
procedure TfrmMJManageNewFDNewSF.MJQty4KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
Tedit(Sender).SelStart := length(Tedit(Sender).Text);
end;
procedure TfrmMJManageNewFDNewSF.MJStr4Exit(Sender: TObject);
begin
if Pstate = 1 then
begin
if fRollType = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then //fRollType = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
sql.Add('from WFB_MJJY X where X.dingdanhao=' + quotedstr(trim(dingdanhao.text)));
// sql.Add('from WFB_MJJY X where X.mainID=''' + trim(fMainID) + ''' ');
// sql.add('and X.MJStr4='+quotedstr(trim(MJstr4.text)));
Open;
// ShowMessage(sql.text);
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end;
end
else if fRollType = '<27><><EFBFBD>׺<EFBFBD><D7BA><EFBFBD><EFBFBD><EFBFBD>' then
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
sql.Add('from WFB_MJJY X where X.dingdanhao=''' + trim(dingdanhao.text) + ''' ');
sql.add('and X.MJStr4=' + quotedstr(trim(MJstr4.text)));
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end;
end
else if fRollType = '<27>޹<EFBFBD><DEB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
end
else
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select maxRoll=1+isnull(cast(max(mjxh) as int),0) ');
sql.Add('from WFB_MJJY X where X.subID=''' + trim(FSubId) + ''' ');
Open;
MJXH.Text := Trim(fieldbyname('maxRoll').AsString);
end;
end;
end;
end;
procedure TfrmMJManageNewFDNewSF.ToolButton2Click(Sender: TObject);
begin
if CDS_MJID.IsEmpty then
exit;
if CDS_MJCD.IsEmpty = False then
begin
if Trim(CDS_MJCD.fieldbyname('MJID').AsString) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
FInt := 4;
PState := 0;
InitCDGrid();
with ADOTmp do
begin
close;
sql.Clear;
sql.Add('select * from WFB_MJJY where MJID=''' + Trim(CDS_MJID.fieldbyname('MJID').AsString) + '''');
Open;
end;
dingdanhao.Text := Trim(ADOTmp.fieldbyname('dingdanhao').AsString);
CustomerNoName.Text := Trim(ADOTmp.fieldbyname('CustomerNoName').AsString);
PRTCodeName.Text := Trim(ADOTmp.fieldbyname('PRTCodeName').AsString);
PRTColor.Text := Trim(ADOTmp.fieldbyname('PRTColor').AsString);
SOrddefstr1.Text := Trim(ADOTmp.fieldbyname('SOrddefstr1').AsString);
CDws.Text := Trim(ADOTmp.fieldbyname('CDws').AsString);
ZLws.Text := Trim(ADOTmp.fieldbyname('ZLws').AsString);
Dj.Text := Trim(ADOTmp.fieldbyname('dj').AsString);
MJFK.Text := Trim(ADOTmp.fieldbyname('MJFK').AsString);
MJSJKZ.Text := Trim(ADOTmp.fieldbyname('MJSJKZ').AsString);
MJQty1.Text := Trim(ADOTmp.fieldbyname('MJQty1').AsString);
MJQty2.Text := Trim(ADOTmp.fieldbyname('MJQty2').AsString);
MJQty5.Text := Trim(ADOTmp.fieldbyname('MJQty5').AsString);
MJQty3.Text := Trim(ADOTmp.fieldbyname('MJQty3').AsString);
MJQty4.Text := Trim(ADOTmp.fieldbyname('MJQty4').AsString);
MJMaoZ.Text := Trim(ADOTmp.fieldbyname('MJMaoZ').AsString);
Label15.Caption := Trim(CDS_MJID.fieldbyname('MJID').AsString);
MJLen.Text := Trim(ADOTmp.fieldbyname('MJLen').AsString);
MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString);
MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString);
baoid.Text := Trim(ADOTmp.fieldbyname('baoid').AsString);
baoNo.Text := Trim(ADOTmp.fieldbyname('baoNo').AsString);
if Trim(ADOTmp.fieldbyname('MJType').AsString) = '<27><>Ʒ' then
begin
Edit3.Text := '<27><>';
Edit4.Text := '';
end
else if Trim(ADOTmp.fieldbyname('MJType').AsString) = '<27><>Ʒ' then
begin
Edit4.Text := '<27><>';
Edit3.Text := '';
end;
BtnStatus(False);
Label16.Caption := '';
PState := 2;
end;
procedure TfrmMJManageNewFDNewSF.Edit9Click(Sender: TObject);
begin
if Trim(Edit9.Text) = '' then
begin
Edit9.Text := '<27><>';
end
else
begin
Edit9.Text := '';
end;
end;
procedure TfrmMJManageNewFDNewSF.ToolButton3Click(Sender: TObject);
begin
if CDS_MJID.IsEmpty then
exit;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
with ADOCmd do
begin
Close;
sql.Clear;
sql.add('insert into WFB_MJJY_Del select * from WFB_MJJY where mjid=''' + trim(CDS_MJID.FieldByName('MJID').AsString) + ''' ');
sql.Add('update WFB_MJJY_Del Set DelTime=Getdate(),Deler=''' + Trim(DName) + ''' where mjid=''' + trim(CDS_MJID.FieldByName('MJID').AsString) + ''' ');
sql.Add('delete WFB_MJJY 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,Mainid) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>')));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:' + trim(CDS_MJID.FieldByName('MJID').AsString) + ' ָʾ<D6B8><CABE><EFBFBD><EFBFBD>:' + trim(fsubID) + '<27>׺<EFBFBD>:' + trim(CDS_MJID.FieldByName('MJstr4').AsString) + '<27><><EFBFBD><EFBFBD>:' + trim(CDS_MJID.FieldByName('MJXH').AsString) + '<27><><EFBFBD><EFBFBD>:' + trim(CDS_MJID.FieldByName('MJLen').AsString) + '<27><><EFBFBD><EFBFBD>:' + trim(CDS_MJID.FieldByName('MJQty4').AsString))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(',' + quotedstr(trim(fmainID)));
sql.Add(')');
execsql;
end;
InitCDGridID();
PlaySound('wav\ɾ<><C9BE><EFBFBD>ɹ<EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
end;
procedure TfrmMJManageNewFDNewSF.Button7Click(Sender: TObject);
var
fPrintFile: string;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
FBaoID: string;
i: Integer;
begin
if CDS_MJID.IsEmpty then
exit;
// CDS_MJID.First;
with ADOQueryPrint do
begin
Close;
SQL.Clear;
sql.Add('select A.Baoid,A.BaoNo,A.MJTypeOther as QtyUnit,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName,C.KHorderNo,');
sql.Add('PRTCodeName=DBO.F_Get_Order_SubStr(BaoID,''BNCodeName''),');
sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),');
sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), ');
sql.Add('Mjstr4=DBO.F_Get_Order_SubStr(BaoID,''BNGangNo''), ');
sql.Add('MJXH=DBO.F_Get_Order_SubStr(BaoID,''BNMJXH''), ');
sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), ');
sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),');
sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), ');
sql.Add('MprtCodeNameEng=(select top 1 Note from KH_Zdy X where X.zdyName=D.MprtCodeName), ');
SQL.ADD('count(A.MJID) as JSl,sum(A.MJMaoZ) MJMAOZ,sum(MJQty2) as MJQty2,sum(MJQty3) as MJQty3,sum(MJQty4) as MJQty4,SUM(A.MJLen)as MJLen');
sql.Add('from WFB_MJJY A');
sql.Add('inner join JYOrder_Sub C on C.SubID=A.SubID');
sql.Add('inner join JYOrder_Main D on D.MainID=A.MainID');
SQL.Add('where A.BaoID=''' + Trim(CDS_MJID.fieldbyname('baoID').AsString) + '''');
SQL.ADD('group by A.Baoid,A.BaoNo,A.MJTypeOther,D.OrderNo,D.conNo,D.customerNoName,D.MprtCodeName,D.Mprtspec,D.OrdPerson1,D.MPRTKuanNO,D.LBName,D.NLBName,C.KHorderNo');
Open;
end;
if ADOQueryPrint.RecordCount > 1 then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>´<EFBFBD><C2B4><EFBFBD>!', '<27><>ʾ', 0);
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);
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;
with ADOTmp do
begin
close;
sql.Clear;
sql.Add('select max(cast(baoNO as int)) as maxbaoNO from WFB_MJJY ');
sql.Add('where mainID=' + quotedstr(trim(fmainID)));
if fbaosx = '<27><><EFBFBD><EFBFBD>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>' then
begin
sql.Add('and subID=' + quotedstr(trim(fsubID)));
end;
open;
end;
baoNo.Text := inttostr(ADOTmp.fieldbyname('maxbaoNO').AsInteger + 1);
if GetLSNo(ADOTmp, FBaoID, 'BI', 'WFB_MJJY', 3, 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);
if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) <> '' then
begin
ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('NLbName').AsString), ADOCmd);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLbName').AsString)
end
else
begin
ExportFtErpFile('<27><><EFBFBD><EFBFBD>ǩ.rmf', ADOCmd);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD>ǩ.rmf';
end;
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 := 1;
//RM2.ShowReport;
RM2.printReport;
end;
end;
procedure TfrmMJManageNewFDNewSF.Edit10Click(Sender: TObject);
begin
if Trim(Edit10.Text) = '' then
begin
Edit10.Text := '<27><>';
frolltype1 := frolltype;
frolltype := '<27>޹<EFBFBD><DEB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end
else
begin
Edit10.Text := '';
frolltype := frolltype1;
frolltype1 := '';
end;
end;
procedure TfrmMJManageNewFDNewSF.Edit11Click(Sender: TObject);
begin
if Trim(Edit11.Text) = '' then
begin
Edit11.Text := '<27><>';
end
else
begin
Edit11.Text := '';
end;
end;
procedure TfrmMJManageNewFDNewSF.ToolButton4Click(Sender: TObject);
begin
frmSysLogOrder := TfrmSysLogOrder.create(self);
with frmSysLogOrder do
begin
fModel := self.caption;
frmSysLogOrder.FMainId := Trim(Self.FMainId);
showmodal;
free;
end;
end;
procedure TfrmMJManageNewFDNewSF.MaxRollNoKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9']) then
Key := #0;
end;
procedure TfrmMJManageNewFDNewSF.Edit12Click(Sender: TObject);
begin
if Trim(Edit12.Text) = '' then
begin
Edit12.Text := '<27><>';
end
else
begin
Edit12.Text := '';
end;
end;
procedure TfrmMJManageNewFDNewSF.Timer1Timer(Sender: TObject);
begin
btprint.Enabled := True;
~
2025-07-19 17:09:43 +08:00
Button5.Enabled := True;
~
2025-04-30 20:03:01 +08:00
Timer1.Enabled := False;
end;
procedure TfrmMJManageNewFDNewSF.TBCDClick(Sender: TObject);
var
fPrintFile: string;
i: Integer;
begin
if CDS_MJID.IsEmpty then
Exit;
MggCDFalg := '99';
PrtData(Trim(CDS_MJID.fieldbyname('MJID').AsString));
Label16.Caption := '';
BTAdd.Click;
MJLen.SetFocus;
MJQty4.OnClick(MJQty4);
end;
procedure TfrmMJManageNewFDNewSF.baoNoExit(Sender: TObject);
var
FBaoID: string;
begin
with ADOTmp do
begin
close;
sql.Clear;
sql.Add('select baoID from WFB_MJJY ');
sql.Add('where mainID=''' + trim(fmainID) + ''' ');
sql.Add('and baoNo=''' + trim(baoNo.Text) + '''');
open;
end;
if ADOTmp.IsEmpty then
begin
application.MessageBox('<27>˰<EFBFBD><CBB0>Ų<EFBFBD><C5B2><EFBFBD><EFBFBD>ڣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
if GetLSNo(ADOTmp, FBaoID, 'BI', 'WFB_MJJY', 3, 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
else
begin
baoID.Text := trim(ADOTmp.fieldbyName('baoID').AsString);
end;
end;
procedure TfrmMJManageNewFDNewSF.FormCreate(Sender: TObject);
begin
fxsws := '2';
fxsws1 := '2';
end;
procedure TfrmMJManageNewFDNewSF.Edit5Click(Sender: TObject);
begin
if Trim(Edit5.Text) = '' then
begin
Edit5.Text := '<27><>';
end
else
begin
Edit5.Text := '';
end;
end;
procedure TfrmMJManageNewFDNewSF.Edit13Click(Sender: TObject);
begin
if Trim(Edit13.Text) = '' then
begin
Edit13.Text := '<27><>';
end
else
begin
Edit13.Text := '';
end;
end;
procedure TfrmMJManageNewFDNewSF.Button9Click(Sender: TObject);
begin
try
frmSCPersonColor := TfrmSCPersonColor.Create(self);
with frmSCPersonColor do
begin
FTYPE := 'CustomerNoName';
FCX := trim(CustomerNoName.Text);
if ShowModal = 1 then
begin
CustomerNoName.Text := FName;
end;
end;
finally
frmSCPersonColor.close;
end;
// ScrollBox2.Visible := true;
// InitJP2('CustomerNoName');
// ftest := 'CustomerNoName';
// ScrollBox2.Left := frmMJManageNewFDNewSF.Width div 2 - 240;
end;
procedure TfrmMJManageNewFDNewSF.Button10Click(Sender: TObject);
begin
try
frmSCPersonColor := TfrmSCPersonColor.Create(self);
with frmSCPersonColor do
begin
FTYPE := 'PRTCodeName';
FCX := trim(CustomerNoName.Text);
if ShowModal = 1 then
begin
prtcodename.Text := FName;
end;
end;
finally
frmSCPersonColor.close;
end;
end;
procedure TfrmMJManageNewFDNewSF.Button13Click(Sender: TObject);
begin
try
frmSCPersonColor := TfrmSCPersonColor.Create(self);
with frmSCPersonColor do
begin
FTYPE := 'guige';
FCX := trim(CustomerNoName.Text);
if ShowModal = 1 then
begin
guige.Text := FName;
end;
end;
finally
frmSCPersonColor.close;
end;
end;
procedure TfrmMJManageNewFDNewSF.Button11Click(Sender: TObject);
begin
try
frmSCPersonColor := TfrmSCPersonColor.Create(self);
with frmSCPersonColor do
begin
FTYPE := 'PRTColor';
FCX := trim(CustomerNoName.Text);
if ShowModal = 1 then
begin
prtcolor.Text := FName;
end;
end;
finally
frmSCPersonColor.close;
end;
end;
procedure TfrmMJManageNewFDNewSF.Button8Click(Sender: TObject);
begin
InitJP2('0');
ScrollBox2.Visible := False;
end;
procedure TfrmMJManageNewFDNewSF.InitJP2(flag: string);
var
AA: array[0..100] of string;
i, j, c: Integer;
begin
if flag = '0' then
begin
for c := 0 to ScrollBox2.ControlCount - 1 do
begin
if ScrollBox2.Controls[c] is TSpeedButton then
begin
TSpeedButton(ScrollBox2.Controls[c]).Visible := False;
TSpeedButton(ScrollBox2.Controls[c]).Caption := ''; // <20><><EFBFBD><EFBFBD>Caption
TSpeedButton(ScrollBox2.Controls[c]).Down := true; //ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ
end;
end;
end
else
begin
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select ZDYName from KH_Zdy where Type=''' + flag + ''' order by ZDYNO ');
//showmessage(sql.text);
Open;
end;
with ADOQueryMain 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 > 59 then
begin
i := 59;
end;
for j := 0 to i do
begin
with ScrollBox2 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;
end;
procedure TfrmMJManageNewFDNewSF.SpeedButton19DblClick(Sender: TObject);
begin
// if ftest = 'PRTHX' then
// begin
// PRTHX.Text := TSpeedButton(Sender).caption;
//
// end;
// if ftest = 'PRTCodeName' then
// begin
// PRTCodeName.Text := TSpeedButton(Sender).caption;
//
// end;
// if ftest = 'PRTColor' then
// begin
// PRTColor.Text := TSpeedButton(Sender).caption;
//
// end;
// if ftest = 'CustomerNoName' then
// begin
// CustomerNoName.Text := TSpeedButton(Sender).caption;
//
// end;
// if ftest = 'SOrddefstr1' then
// begin
// SOrddefstr1.Text := TSpeedButton(Sender).caption;
//
// end;
// InitJP2('0');
// ScrollBox2.Visible := False;
// TSpeedButton(Sender).Down := True;
// Ftest := '';
end;
procedure TfrmMJManageNewFDNewSF.SLbNameChange(Sender: TObject);
begin
if Trim(Edit14.Text) = '' then
begin
Exit;
end
else
begin
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.Add('Update JYOrder_Sub Set SLBName=''' + Trim(SLBName.Text) + ''' + ''.rmf'' ');
sql.Add(' where Subid=''' + FSubId + '''');
ExecSQL;
end;
end;
end;
procedure TfrmMJManageNewFDNewSF.Edit14Click(Sender: TObject);
begin
if Trim(Edit14.Text) = '' then
begin
Edit14.Text := '<27><>';
APID.Text := 'JS230922001';
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.Add('Update JYOrder_Sub Set SLBName=''' + Trim(SLBName.Text) + ''' + ''.rmf'' ');
sql.Add(' where Subid=''' + APID.Text + '''');
ExecSQL;
end;
// with ADOQueryPrint do
// begin
// Close;
// sql.Clear;
// sql.Add('Update JYOrder_Main Set Orddefstr15=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
// sql.Add(' where mainid=''' + FmainId + '''');
// ExecSQL;
// end;
Button3.Click;
end
else
begin
Edit14.Text := '';
end;
end;
procedure TfrmMJManageNewFDNewSF.ToolButton1Click(Sender: TObject);
begin
if SelfConnData() = false then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>±<EFBFBD><C2B1><EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end;
function TfrmMJManageNewFDNewSF.SelfConnData(): Boolean;
begin
try
with QryCheckNet do
begin
Close;
sql.Clear;
//<2F><>ѯһ<D1AF><D2BB>С<EFBFBD><D0A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
SQL.Add('select getdate()');
Open;
end;
Result := true;
except
// if Application.MessageBox('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>磡','<27><>ʾ',32+4)<>IDYES then Exit;
if not Assigned(DataLink_TradeManage) then
DataLink_TradeManage := TDataLink_TradeManage.Create(Application);
try
with DataLink_TradeManage.ADOLink do
begin
//if not Connected then
begin
Connected := false;
ConnectionString := DConString;
LoginPrompt := false;
Connected := true;
end;
end;
Result := true;
except
Result := false;
end;
end;
end;
procedure TfrmMJManageNewFDNewSF.CustomerNoNameChange(Sender: TObject);
begin
// with ADOQueryMain do
// begin
// Close;
// SQL.Clear;
// sql.Add('select ');
// sql.Add('maxMJxh=isnull((select max(mjxh) from WFB_MJJY X where X.CustomerNoName=''' + Trim(CustomerNoName.Text) + '''),0),');
// sql.Add(' A.* from WFB_MJJY A where APID=''' + Trim(FAPID) + '''');
//// if Trim(SCXFlag) <> '' then
//// sql.Add(' and JTType=''' + Trim(SCXFlag) + '''');
// sql.Add('and mjstr2=''δ<><CEB4><EFBFBD><EFBFBD>'' ');
// SQL.Add('and A.CustomerNoName=''' + trim(CustomerNoName.text) + ''' ');
// sql.Add(' order by FillTime desc');
//// showmessage(SQL.text);
// Open;
// end;
// SCreateCDS20(ADOQueryMain, CDS_MJID);
// SInitCDSData20(ADOQueryMain, CDS_MJID);
end;
procedure TfrmMJManageNewFDNewSF.ComboBox2Change(Sender: TObject);
begin
if trim(ComboBox2.Text) = '<27><><EFBFBD><EFBFBD>' then
begin
Edit7.Text := '';
Edit9.Text := '';
end
else
begin
Edit7.Text := '<27><>';
Edit9.Text := '<27><>';
end;
end;
procedure TfrmMJManageNewFDNewSF.dingdanhaoChange(Sender: TObject);
begin
if (Length(dingdanhao.Text) < 2) or (Trim(Edit14.Text) = '') then
Exit;
// MovePanel2.Visible := True;
// MovePanel2.Refresh;
with ADOQueryMain do
begin
Close;
SQL.Clear;
sql.Add('select ');
sql.Add('maxMJxh=isnull((select max(mjxh) from WFB_MJJY X where X.dingdanhao=''' + Trim(dingdanhao.Text) + '''),0),');
sql.Add(' A.* from WFB_MJJY A where APID=''' + Trim(FAPID) + '''');
// if Trim(SCXFlag) <> '' then
// sql.Add(' and JTType=''' + Trim(SCXFlag) + '''');
sql.Add('and mjstr2=''δ<><CEB4><EFBFBD><EFBFBD>'' ');
SQL.Add('and A.dingdanhao=''' + trim(dingdanhao.text) + ''' ');
sql.Add(' order by FillTime desc');
// showmessage(SQL.text);
Open;
end;
SCreateCDS20(ADOQueryMain, CDS_MJID);
SInitCDSData20(ADOQueryMain, CDS_MJID);
if ADOQueryMain.RecordCount >= 1 then
begin
MJXH.Text := inttostr(ADOQueryMain.fieldbyname('maxMJxh').AsInteger + 1);
end
else
begin
MJXH.Text := inttostr(1);
end;
end;
procedure TfrmMJManageNewFDNewSF.ComboBox3Change(Sender: TObject);
begin
// with ADOQueryPrint do
// begin
// Close;
// sql.Clear;
// sql.Add('Update JYOrder_Main Set Orddefstr15=''' + Trim(ComboBox3.Text) + ''' ');
// sql.Add(' where mainid=''' + FmainId + '''');
// ExecSQL;
// end;
// fRollType := Trim(ComboBox3.Text);
if trim(Edit14.Text) = '<27><>' then
begin
if (Trim(ComboBox3.Text) = '<27><><EFBFBD><EFBFBD>') then
begin
fRollType := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end
else if Trim(ComboBox3.Text) = '<27><>ɫ' then
begin
fRollType := '<27><><EFBFBD><EFBFBD>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>';
end
else
fRollType := '<27><><EFBFBD>׺<EFBFBD><D7BA><EFBFBD><EFBFBD><EFBFBD>';
end;
end;
procedure TfrmMJManageNewFDNewSF.Edit15Click(Sender: TObject);
begin
if Trim(Edit15.Text) = '' then
begin
Edit15.Text := '<27><>';
fRollType := '<27><><EFBFBD>׺<EFBFBD><D7BA><EFBFBD><EFBFBD><EFBFBD>';
end
else
begin
Edit15.Text := '';
fRollType := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
end;
end;
procedure TfrmMJManageNewFDNewSF.Button14Click(Sender: TObject);
var
FMJID1: string;
mzlen, jzlen: Double;
~
2025-12-08 10:16:13 +08:00
fPrintFile: string;
mvalue: Double;
~
2025-04-30 20:03:01 +08:00
mvalue1: integer;
~
2025-07-19 17:09:43 +08:00
i: Integer;
~
2025-04-30 20:03:01 +08:00
begin
begin
// Y1 := false;
PState := 33;
~
2025-12-08 10:16:13 +08:00
// if Edit9.text <> '' then
// begin
if (strtofloatdef(trim(MJMaoZ.Text), 0) <= 0) or (strtofloatdef(trim(MJQty4.Text), 0) <= 0) then
~
2025-04-30 20:03:01 +08:00
begin
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>㣡', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
exit;
end;
~
2025-12-08 10:16:13 +08:00
// end;
~
2025-04-30 20:03:01 +08:00
with ADOQuery1 do
begin
Close;
sql.Clear;
// SQL.Add('select mjid from WFB_MJJY where mainID=''' + Trim(FmainID) + ''' and subID=''' + Trim(FAPID) + ''' and MJQTY4=0 and mjstr4=''' + Trim(mjstr4.text) + ''' and MJxh= (select DISTINCT min(MJXH) from WFB_MJJY where mainID=''' + Trim(FmainID) + ''' and subID=''' + Trim(FAPID) + ''' and MJQTY4=0 and mjstr4=''' + Trim(mjstr4.text) + ''')');
SQL.Add('select mjid,mjxh from WFB_MJJY where mainID=''' + Trim(FmainID) + ''' and subID=''' + Trim(FAPID) + ''' and MJQTY4=0 ');
SQL.Add('and isnull(mjstr4,'''')=''' + Trim(mjstr4.text) + ''' and isnull(dingdanhao,'''')=''' + trim(dingdanhao.text) + ''' ');
SQL.Add(' and MJxh= (select DISTINCT min(MJXH) from WFB_MJJY where mainID=''' + Trim(FmainID) + ''' and subID=''' + Trim(FAPID) + ''' and isnull(dingdanhao,'''')=''' + trim(dingdanhao.text) + ''' and MJQTY4=0 and isnull(mjstr4,'''')=''' + Trim(mjstr4.text) + ''')');
Open;
// showmessage(sql.text);
end;
if Trim(ADOQuery1.fieldbyname('MJID').AsString) = '' then
begin
PState := 1;
application.MessageBox('û<>о<EFBFBD><D0BE><EFBFBD>Ϊ0<CEAA><30><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>', '<27><>ʾ');
exit;
end;
FMJID1 := Trim(ADOQuery1.fieldbyname('MJID').AsString);
FFFMJID1 := Trim(ADOQuery1.fieldbyname('MJID').AsString);
Fzlmjid := Trim(ADOQuery1.fieldbyname('MJID').AsString);
Fzlmjxh := Trim(ADOQuery1.fieldbyname('MJXH').AsString);
Button5.Click;
// jzlen := NEWroundto(StrToFloatdef(trim(MJQty4.Text), 0) + StrToFloatdef(trim(MJQty5.Text), 0), 1) + fjz;
// mzlen := NEWroundto(StrToFloatdef(trim(MJMaoZ.Text), 0) + StrToFloatdef(trim(MJQty5.Text), 0), 1) + fjz;
// with ADOCmd do
// begin
// Close;
// sql.Clear;
//
// SQL.Add('update WFB_MJJY SET MJQTY4=''' + FloatToStr(jzlen) + '''' + ', MJmaoz=''' + FloatToStr(mzlen) + ''',MJQty5=''' + FloatToStr(StrToFloatdef(trim(MJQty5.Text), 0)) + '''');
// SQL.Add('where mjid=''' + trim(FMJID1) + ''' ');
//
//// showmessage(sql.text);
// execsql;
// end;
// PlaySound('wav\<5C><>ȷ.wav', 0, SND_FILENAME or SND_ASYNC);
// Button5.Enabled := False;
// Timer2.Enabled := True;
// BTPrint.Enabled := False;
// if Trim(Edit6.Text) = '<27><>' then
// begin
// PrtDataqb(FFFMJID1);
//// PrtData(FFFMJID);
// end;
// BTAdd.Click;
end;
end;
procedure TfrmMJManageNewFDNewSF.Button5Click(Sender: TObject);
var
fPrintFile: string;
mvalue: Double;
mvalue1: integer;
i: Integer;
begin
if trim(dingdanhao.text) = '' then
begin
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
exit;
end;
if Trim(FAPID) = '' then
Exit;
if (strtofloatdef(trim(MJLen.Text), 0) = 0) and (strtofloatdef(trim(mjqty4.Text), 0) = 0) then
begin
application.MessageBox('<27><><EFBFBD>Ȼ<EFBFBD><C8BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܶ<EFBFBD>Ϊ<EFBFBD>㣡', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
exit;
end;
if trim(MJXH.text) = '' then
begin
application.MessageBox('<27><><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
exit;
end;
if trim(MJXH.text) = '0' then
begin
application.MessageBox('<27><><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ0', '<27><>ʾ');
exit;
end;
if trim(CDws.text) = '' then
begin
application.MessageBox('<27><><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
exit;
end;
if trim(ZLws.text) = '' then
begin
application.MessageBox('<27><><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ');
exit;
end;
if trim(Label9.Caption) = '' then
begin
Application.MessageBox('<27><><EFBFBD>ȵ<EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if Trim(MJQty1.Text) <> '' then
begin
if TryStrToFloat(MJQty1.Text, mvalue) = False then
begin
Application.MessageBox('ԭ<><D4AD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
if Trim(MJMaoZ.Text) <> '' then
begin
if TryStrToFloat(MJMaoZ.Text, mvalue) = False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
if Trim(MJQty2.Text) <> '' then
begin
if TryStrToFloat(MJQty2.Text, mvalue) = False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>¼<EFBFBD><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
// if (strtofloatdef(trim(MJLen.Text), 0) > 200) then
// begin
// application.MessageBox('<27><><EFBFBD>Ȳ<EFBFBD><C8B2>ܴ<EFBFBD><DCB4><EFBFBD>200<30><30>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
// exit;
// end;
if Trim(Edit6.Text) <> '' then
begin
with ADOTmp do
begin
Close;
sql.Clear;
sql.Add('select * from JYorder_Sub where Subid=''' + Trim(FSubId) + ''' and isnull(Slbname,'''')<>'''' ');
Open;
end;
if ADOTmp.IsEmpty then
begin
PlaySound('wav\û<><C3BB><EFBFBD><EFBFBD><EFBFBD>ñ<EFBFBD>ǩ.wav', 0, SND_FILENAME or SND_ASYNC);
Application.MessageBox('û<><C3BB><EFBFBD><EFBFBD><EFBFBD>ñ<EFBFBD>ǩ', '<27><>ʾ', 0);
Exit;
end
else
begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOTmp.fieldbyname('Slbname').AsString);
if FileExists(fPrintFile) then
begin
end
else
begin
PlaySound('wav\<5C><>ǩû<C7A9><C3BB><EFBFBD>ҵ<EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
Application.MessageBox('<27><>ǩû<C7A9><C3BB><EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD><EFBFBD>볢<EFBFBD><EBB3A2><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD>¼<EFBFBD><C2BC><EFBFBD>п<EFBFBD><D0BF>ܱ<EFBFBD>ǩû<C7A9><C3BB><EFBFBD>ϴ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end;
end;
BTPrint.Enabled := False;
~
2025-07-19 17:09:43 +08:00
Button5.Enabled := False;
~
2025-04-30 20:03:01 +08:00
Timer1.Enabled := True;
if SaveData() then
begin
MJMaoZ.Text := '';
MJQty1.Text := '';
// MJQty2.Text := '';
// MJQty5.Text := '';
Label15.Caption := '';
MJQty4.Text := '';
if edit10.Text = '<27><>' then
begin
MJXH.Text := inttostr(strTointdef(trim(MJXH.Text), 0) - 1);
end
else
begin
MJXH.Text := inttostr(strTointdef(trim(MJXH.Text), 0) + 1);
end;
if PState = 1 then
begin
PlaySound('wav\<5C><>ȷ.wav', 0, SND_FILENAME or SND_ASYNC);
end
else if PState = 2 then
begin
PlaySound('wav\<5C>޸ijɹ<C4B3>.wav', 0, SND_FILENAME or SND_ASYNC);
end;
if PState = 2 then
begin
apid.Text := FAPID;
Button3.Click;
end;
end
else
exit;
if ((Trim(Edit7.text) = '<27><>') and (Trim(Edit9.text) = '')) or (PState = 2) or (PState = 33) then
begin
if Trim(Edit6.Text) = '<27><>' then
begin
PrtData(FFFMJID);
end;
end;
// if (Trim(Edit6.Text) = '<27><>') and (PState='33') then
// begin
// PrtData(FFFMJID);
// end;
if Trim(Edit6.Text) = '<27><>' then
begin
if (fbaotype = '<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>') or (fbaotype = '') then
begin
end
else
begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_View_Baoid ''' + trim(FFFMJID) + ''' ');
sql.Add(',''' + trim(FMainId) + ''' ,''' + trim(FSubId) + ''' ');
if fbaotype = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
begin
sql.Add(' ,1 ');
end;
if fbaotype = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ' then
begin
sql.Add(' ,2 ');
end;
if fbaotype = '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ' then
begin
sql.Add(' ,3 ');
end;
Open;
end;
if ADOCmd.FieldByName('baoid').AsString <> '' then
begin
baoNo.Text := inttostr(ADOCmd.fieldbyname('baoNo').AsInteger + 1);
PrtBaoData(ADOCmd.fieldbyname('baoid').AsString);
end;
end;
end;
Label16.Caption := '';
if (PState <> 33) then
begin
if trim(JCYDLL) <> '' then
clearCom(JCYDLL);
end;
BTAdd.Click;
MJLen.SetFocus;
MJQty4.OnClick(MJQty4);
end;
procedure TfrmMJManageNewFDNewSF.Button15Click(Sender: TObject);
begin
CustomerNoName.Text := '';
end;
procedure TfrmMJManageNewFDNewSF.Button16Click(Sender: TObject);
begin
PRTCodeName.Text := '';
end;
procedure TfrmMJManageNewFDNewSF.Button17Click(Sender: TObject);
begin
guige.Text := '';
end;
procedure TfrmMJManageNewFDNewSF.Button18Click(Sender: TObject);
begin
PRTColor.Text := '';
end;
procedure TfrmMJManageNewFDNewSF.Button19Click(Sender: TObject);
begin
SOrddefstr1.Text := '';
end;
procedure TfrmMJManageNewFDNewSF.Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.GridRecord.Values[tv3.GetColumnByFieldName('mjqty4').Index] = 0 then
ACanvas.Brush.Color := clYellow;
// if (AViewInfo.GridRecord.Values[tv3.GetColumnByFieldName('mjlen').Index] >0)
// and (AViewInfo.GridRecord.Values[tv3.GetColumnByFieldName('mjqty4').Index] >0) then
// ACanvas.Brush.Color := clYellow;
end;
end.
Reference in New Issue Copy Permalink