Group_01/D7wmleixiaofu
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
60e1f6aa5a
D7wmleixiaofu/贸易管理/U_JYOrderCDOne.pas

2207 lines
71 KiB
ObjectPascal
Raw Normal View History

~
2025-04-30 16:04:42 +08:00
unit U_JYOrderCDOne;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
增加二维码
2025-09-24 13:58:45 +08:00
StrUtils, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles,
cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB,
cxDBData, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar,
cxSplitter, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport,
RM_e_Xls, Menus, MovePanel, cxTextEdit, cxContainer, cxCurrencyEdit, U_SMLB,
BtnEdit, RM_e_main, RM_e_htm, RM_e_Graphic, RM_e_Jpeg, RM_e_txt, RM_e_csv,
RM_E_llPDF, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, 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, dxSkinscxPCPainter, cxImage;
type
TZintSymbol = packed record
symbology: Integer;
height: Integer;
whitespace_width: Integer;
border_width: Integer;
output_options: Integer;
fgcolour: array[0..9] of AnsiChar;
bgcolour: array[0..9] of AnsiChar;
outfile: array[0..255] of AnsiChar;
scale: Single;
option_1: Integer;
option_2: Integer;
option_3: Integer;
show_hrt: Integer;
input_mode: Integer;
eci: Integer;
text: array[0..127] of AnsiChar;
rows: Integer;
width: Integer;
primary: array[0..127] of AnsiChar;
encoded_data: array[0..199, 0..142] of AnsiChar;
row_height: array[0..199] of Integer; // Largest symbol is 189 x 189
errtxt: array[0..99] of AnsiChar;
bitmap: PAnsiChar;
bitmap_width: Integer;
bitmap_height: Integer;
bitmap_byte_length: Cardinal;
dot_size: Single;
rendered: Pointer;
debug: Integer;
end;
PZintSymbol = ^TZintSymbol;
const
// Tbarcode 7 codes
BARCODE_QRCODE = 71;
~
2025-04-30 16:04:42 +08:00
type
TfrmJYOrderCDOne = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Label1: TLabel;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
OrderNo: TEdit;
TBExport: TToolButton;
Order_Main: TClientDataSet;
conNO: TEdit;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
MJID: TEdit;
Label2: TLabel;
CDQK: TEdit;
Panel4: TPanel;
Label11: TLabel;
Panel10: TPanel;
Image2: TImage;
RichEdit1: TRichEdit;
v1Column1: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
Label4: TLabel;
MJType: TComboBox;
v1Column13: TcxGridDBColumn;
Label5: TLabel;
MPRTCodeName: TEdit;
v1Column16: TcxGridDBColumn;
Label6: TLabel;
MJStr2: TComboBox;
v1Column17: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
Label12: TLabel;
Label13: TLabel;
fromfactoryName: TEdit;
factoryName: TEdit;
v1Column20: TcxGridDBColumn;
v1Column21: TcxGridDBColumn;
Filler: TComboBox;
TBManage: TToolButton;
v1Column22: TcxGridDBColumn;
v1Column23: TcxGridDBColumn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
TBZF: TToolButton;
ToolButton1: TToolButton;
RM2: TRMGridReport;
RMDB_Main: TRMDBDataSet;
ADOQueryPrint: TADOQuery;
v1Column25: TcxGridDBColumn;
TBAftChkHX: TToolButton;
v1Column24: TcxGridDBColumn;
RadioGroup1: TRadioGroup;
MovePanel2: TMovePanel;
v1Column27: TcxGridDBColumn;
v1Column28: TcxGridDBColumn;
ToolButton2: TToolButton;
v1Column14: TcxGridDBColumn;
CDS_CD: TClientDataSet;
RMCD: TRMGridReport;
RMDBCD: TRMDBDataSet;
CDS_LS: TClientDataSet;
v1Column15: TcxGridDBColumn;
Label14: TLabel;
CheckBox1: TCheckBox;
ToolButton3: TToolButton;
Panel2: TPanel;
Label15: TLabel;
cxCurrencyEdit1: TcxCurrencyEdit;
Button1: TButton;
Button2: TButton;
v1MKXS: TcxGridDBColumn;
CheckBox2: TCheckBox;
v1Column29: TcxGridDBColumn;
v1Column30: TcxGridDBColumn;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
BAONO: TEdit;
BAOID: TEdit;
Label16: TLabel;
Label17: TLabel;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
Mjstr4: TEdit;
gangNO: TEdit;
PrtColor: TEdit;
Label18: TLabel;
ComboBox1: TComboBox;
RM3: TRMGridReport;
v1Column26: TcxGridDBColumn;
v1Column31: TcxGridDBColumn;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
v1Column32: TcxGridDBColumn;
v1Column33: TcxGridDBColumn;
Panel3: TPanel;
Check_bq: TCheckBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
Fbq: TBtnEditA;
check_Fbz: TCheckBox;
Button3: TButton;
Button4: TButton;
KHConNO: TEdit;
Label19: TLabel;
v1Column34: TcxGridDBColumn;
APID: TEdit;
Label20: TLabel;
v1Column35: TcxGridDBColumn;
PRTKuanNO: TEdit;
Label21: TLabel;
v1Column36: TcxGridDBColumn;
Label22: TLabel;
ISHZ: TComboBox;
ToolButton10: TToolButton;
RMXLSExport1: TRMXLSExport;
ISbao: TComboBox;
Label23: TLabel;
ToolButton11: TToolButton;
CDS_HZ: TClientDataSet;
RMDBHZ: TRMDBDataSet;
cxCurrencyEdit2: TcxCurrencyEdit;
Label24: TLabel;
TBBN: TToolButton;
Label25: TLabel;
ComboBox4: TComboBox;
RMDBPRT: TRMDBDataSet;
CDS_PRT: TClientDataSet;
v1Column37: TcxGridDBColumn;
v1Column38: TcxGridDBColumn;
SOrddefstr1: TEdit;
Label26: TLabel;
prthx: TEdit;
Label27: TLabel;
ToolButton12: TToolButton;
Panel5: TPanel;
Label28: TLabel;
ComboBox5: TComboBox;
Button5: TButton;
Button6: TButton;
v1Column39: TcxGridDBColumn;
KJZH: TEdit;
Label29: TLabel;
CDS_CON: TClientDataSet;
DSCON: TDataSource;
ADOQuery1: TADOQuery;
cxGrid4: TcxGrid;
TV4: TcxGridDBTableView;
V4Column1: TcxGridDBColumn;
cxGrid4Level1: TcxGridLevel;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
增加二维码
2025-09-24 13:58:45 +08:00
Tv1Column4: TcxGridDBColumn;
ToolButton13: TToolButton;
Panel8: TPanel;
Label30: TLabel;
Panel9: TPanel;
Image1: TImage;
Button11: TButton;
RadioGroup2: TRadioGroup;
ADOQuery2: TADOQuery;
cxImage1: TcxImage;
~
2025-04-30 16:04:42 +08:00
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure OrderNoChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure Image2Click(Sender: TObject);
procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure TBManageClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure TBZFClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure TBAftChkHXClick(Sender: TObject);
procedure AorddefstrChange(Sender: TObject);
procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
procedure PRTColorChange(Sender: TObject);
procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure ToolButton2Click(Sender: TObject);
procedure v1Column15PropertiesEditValueChanged(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure FbqBtnClick(Sender: TObject);
procedure MJIDKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton10Click(Sender: TObject);
procedure APIDKeyPress(Sender: TObject; var Key: Char);
procedure ISbaoChange(Sender: TObject);
procedure ToolButton11Click(Sender: TObject);
procedure TBBNClick(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure ToolButton12Click(Sender: TObject);
procedure TV4DblClick(Sender: TObject);
procedure BAONOChange(Sender: TObject);
增加二维码
2025-09-24 13:58:45 +08:00
procedure ToolButton13Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
~
2025-04-30 16:04:42 +08:00
private
DQdate: TDateTime;
FLeft, FTop: Integer;
procedure InitGrid();
procedure InitGrid10();
procedure InitForm();
function Savedata(): Boolean;
procedure GetCDSData();
procedure GetBGData();
增加二维码
2025-09-24 13:58:45 +08:00
procedure tsewm6(); //<2F><>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ά<EFBFBD><CEAC>
~
2025-04-30 16:04:42 +08:00
{ Private declarations }
public
FFInt: Integer;
增加二维码
2025-09-24 13:58:45 +08:00
FDETM6: string;
~
2025-04-30 16:04:42 +08:00
{ Public declarations }
end;
增加二维码
2025-09-24 13:58:45 +08:00
const
LibName = 'zint.dll';
//struct zint_symbol *ZBarcode_Create(void);
function ZBarcode_Create(): PZintSymbol; cdecl; external LibName;
//void ZBarcode_Delete(struct zint_symbol *symbol);
procedure ZBarcode_Delete(symbol: PZintSymbol); cdecl; external LibName;
//int ZBarcode_Encode_and_Buffer(struct zint_symbol *symbol, unsigned char *input, int length, int rotate_angle);
function ZBarcode_Encode_and_Buffer(symbol: PZintSymbol; input: PAnsiChar; length, rotate_angle: Integer): Integer; cdecl; external LibName;
// create bitmap <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʹ<EFBFBD>ñ<EFBFBD><C3B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ<EFBFBD><CDBC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Bitmap<61>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>zint<6E><74><EFBFBD><EFBFBD><EFBFBD>˲<EFBFBD><CBB2><EFBFBD>zint.hͷ<68>ļ<EFBFBD><C4BC>У<EFBFBD><D0A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>zint.hͷ<68>ļ<EFBFBD><C4BC>С<EFBFBD>
procedure ZBarcode_To_Bitmap(symbol: PZintSymbol; const ABitmap: TBitmap);
~
2025-04-30 16:04:42 +08:00
var
frmJYOrderCDOne: TfrmJYOrderCDOne;
implementation
uses
U_DataLink, U_OrderInPut, U_Fun, U_MJEdit, U_CPDBAO, U_CPGangNo, U_JYMJIDPRINT,
U_ZDYHelp, U_ProductOrderListSel;
{$R *.dfm}
增加二维码
2025-09-24 13:58:45 +08:00
procedure ZBarcode_To_Bitmap(symbol: PZintSymbol; const ABitmap: TBitmap);
var
SrcRGB: PRGBTriple;
Row, RowWidth: Integer;
begin
ABitmap.PixelFormat := pf24bit;
ABitmap.Height := symbol.bitmap_height;
ABitmap.Width := symbol.bitmap_width;
// ABitmap.Height := 80;
// ABitmap.Width := 80;
SrcRGB := Pointer(symbol.bitmap);
RowWidth := symbol.bitmap_width * 3;
for Row := 0 to symbol.bitmap_height - 1 do
begin
CopyMemory(ABitmap.ScanLine[Row], SrcRGB, RowWidth);
Inc(SrcRGB, symbol.bitmap_width);
end;
SetBitmapBits(ABitmap.Handle, symbol.bitmap_width * symbol.bitmap_height * 3, symbol.bitmap);
end;
procedure TfrmJYOrderCDOne.tsewm6();
var
lvData: UTF8String; // ʹ<><CAB9>UTF8<46><38><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ<EFBFBD><D6B7><EFBFBD>
lvBitMap: TBitmap;
lvSymbol: PZintSymbol;
lvErrorNumber: Integer;
lvErrorText: string;
bitmap: TBitmap;
begin
lvSymbol := ZBarcode_Create();
if lvSymbol = nil then
Exit;
lvBitMap := TBitmap.Create;
try //'010872020901234590RS9999-100R1011234567893112005160'
lvData := UTF8String(FDETM6);
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ΪQRCODE
lvSymbol.symbology := BARCODE_QRCODE;
// lvSymbol.option_2 := 1;
//Data Matrix <20><>ISO 16022<32><32>(and HIBC)
// <20><><EFBFBD><EFBFBD>
lvErrorNumber := ZBarcode_Encode_and_Buffer(lvSymbol, PAnsiChar(lvData), Length(lvData), 0);
// <20><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>
if lvErrorNumber = 0 then
begin
// <20><><EFBFBD><EFBFBD>Bitmapͼ<70><CDBC>
ZBarcode_To_Bitmap(lvSymbol, lvBitMap);
// <20><>ʾ<EFBFBD><CABE>Image<67><65>
cxImage1.Picture.Bitmap.Width := 80;
cxImage1.Picture.Bitmap.Height := 80;
cxImage1.Picture.Bitmap.Canvas.Brush.Color := clWhite;
cxImage1.Picture.Bitmap.Canvas.FillRect(Rect(0, 0, cxImage1.Width, cxImage1.Height));
cxImage1.Picture.Bitmap.Canvas.StretchDraw(Rect(10, 10, cxImage1.Width - 10, cxImage1.Height - 10), lvBitMap);
end
else
begin
cxImage1.Picture.Bitmap.Width := cxImage1.Width;
cxImage1.Picture.Bitmap.Height := cxImage1.Height;
cxImage1.Picture.Bitmap.Canvas.Brush.Color := clWhite;
cxImage1.Picture.Bitmap.Canvas.FillRect(Rect(0, 0, cxImage1.Width, cxImage1.Height));
lvErrorText := string(AnsiString(lvSymbol.errtxt));
ShowMessage('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' + lvErrorText);
end;
finally
lvBitMap.Free;
lvBitMap := nil;
ZBarcode_Delete(lvSymbol);
end;
bitmap := TBitmap.Create;
try
bitmap.Assign(cxImage1.Picture.Bitmap);
bitmap.SaveToFile(ExtractFilePath(Application.ExeName) + 'image\temp6.bmp');
finally
bitmap.Free;
end;
end;
~
2025-04-30 16:04:42 +08:00
procedure TfrmJYOrderCDOne.FormDestroy(Sender: TObject);
begin
frmJYOrderCDOne := nil;
end;
procedure TfrmJYOrderCDOne.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmJYOrderCDOne.FormCreate(Sender: TObject);
begin
cxgrid1.Align := alClient;
DQdate := SGetServerDate(ADOQueryTemp);
end;
procedure TfrmJYOrderCDOne.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('<27><><EFBFBD>鱨<EFBFBD><E9B1A8>JF', Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure TfrmJYOrderCDOne.InitGrid();
var
i: integer;
j: Integer;
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('exec P_JYOrder_HZFX20 :begdate,:enddate,:PState,:FFSql ');
Parameters.ParamByName('begdate').Value := FormatDateTime('yyyy-MM-dd', BegDate.DateTime);
Parameters.ParamByName('enddate').Value := FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1);
Parameters.ParamByName('PState').Value := 0;
Parameters.ParamByName('FFSql').Value := ' ';
Open;
end;
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
//TBFind.Click;
end;
end;
procedure TfrmJYOrderCDOne.InitGrid10();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('exec P_JYOrder_HZFX :begdate,:enddate,:PState ');
Parameters.ParamByName('begdate').Value := '2012-01-01';
Parameters.ParamByName('enddate').Value := '2011-01-01';
Parameters.ParamByName('PState').Value := 3;
Open;
end;
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmJYOrderCDOne.InitForm();
var
fsj: string;
begin
ReadCxGrid('<27><><EFBFBD>鱨<EFBFBD><E9B1A8>JF', Tv1, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
fsj := 'select distinct(Filler) name from WFB_MJJY ';
SInitComBoxBySql(ADOQueryCmd, Filler, False, fsj);
BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 1;
EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
//InitGrid();
end;
procedure TfrmJYOrderCDOne.TBFindClick(Sender: TObject);
var
fsj, fwhere: string;
begin
if ADOQueryMain.Active = False then
Exit;
fwhere := SGetFilters(Panel1, 1, 2);
fsj := '';
if trim(ISbao.Text) = '<27>Ѵ<EFBFBD><D1B4><EFBFBD>' then
begin
fsj := fsj + ' baoNo>''0'' ';
end
else if trim(ISbao.Text) = 'δ<><CEB4><EFBFBD><EFBFBD>' then
begin
fsj := fsj + ' baoNo='''' ';
end;
if trim(fsj) <> '' then
begin
if fwhere = '' then
fwhere := fsj
else
fwhere := fwhere + ' and ' + fsj;
end;
SDofilter(ADOQueryMain, fwhere);
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end;
procedure TfrmJYOrderCDOne.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
SelExportData(Tv1, ADOQueryMain, '<27><><EFBFBD>鱨<EFBFBD><E9B1A8>');
end;
procedure TfrmJYOrderCDOne.TBRafreshClick(Sender: TObject);
begin
OrderNo.SetFocus;
MovePanel2.Left := (self.Width - MovePanel2.Width) div 2;
MovePanel2.Visible := True;
MovePanel2.Refresh;
InitGrid();
MovePanel2.Visible := False;
end;
procedure TfrmJYOrderCDOne.OrderNoChange(Sender: TObject);
begin
tbfind.Click;
end;
procedure TfrmJYOrderCDOne.FormShow(Sender: TObject);
begin
InitForm();
if Trim(DParameters2) = '<27><><EFBFBD><EFBFBD>' then
begin
TBManage.Visible := True;
TBZF.Visible := True;
v1Column15.Options.Focusing := True;
ToolButton3.Visible := true;
TBBN.Visible := true;
ToolButton12.Visible := true;
ToolButton1.Visible := true;
ToolButton9.Visible := true;
ToolButton4.Visible := true;
ToolButton6.Visible := true;
ToolButton5.Visible := true;
ToolButton7.Visible := true;
ToolButton11.Visible := true;
//TBAftChkHX.Visible:=True;
end;
if Trim(DParameters2) = '<27><>Ʒ' then
begin
MJType.ItemIndex := MJType.Items.IndexOf('<27><>Ʒ');
MJType.Enabled := false;
增加二维码
2025-09-24 13:58:45 +08:00
ToolButton12.Visible := false;
~
2025-04-30 16:04:42 +08:00
end;
end;
procedure TfrmJYOrderCDOne.Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
TWinControl(Panel4).Perform(WM_SYSCOMMAND, $F012, 0);
end;
procedure TfrmJYOrderCDOne.Image2Click(Sender: TObject);
begin
Panel4.Visible := False;
end;
procedure TfrmJYOrderCDOne.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
FLeft := X;
FTop := Y;
end;
procedure TfrmJYOrderCDOne.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
Panel4.Left := FLeft;
Panel4.Top := FTop + 110;
Panel4.Visible := True;
Panel4.Refresh;
Panel10.Caption := Trim(TV1.Controller.FocusedColumn.Caption);
RichEdit1.Text := Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString;
end;
procedure TfrmJYOrderCDOne.TBManageClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_BanCP_CR where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''' and CRFlag=''<27><><EFBFBD><EFBFBD>''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
Order_Main.EnableControls;
Application.MessageBox('<27>Ѳ<EFBFBD><D1B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>ɾ<EFBFBD><C9BE>!', '<27><>ʾ', 0);
Exit;
end;
try
frmMJEdit := TfrmMJEdit.Create(Application);
with frmMJEdit do
begin
MJID.Text := Trim(Self.Order_Main.fieldbyname('MJID').AsString);
with ADOTmp do
begin
Close;
sql.Clear;
SQL.Add('select A.*,AOrddefstr3=(select AOrddefstr3 from JYOrder_Sub_AnPai B where B.APID=A.APID), ');
sql.Add('AOrddefstr2=(select AOrddefstr2 from JYOrder_Sub_AnPai B where B.APID=A.APID) from WFB_MJJY A');
sql.Add(' where A.MJID=''' + Trim(MJID.Text) + '''');
Open;
end;
if ADOTmp.IsEmpty then
begin
MJID.Text := '';
Label2.Caption := '';
Label2.Visible := False;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString);
MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString);
MJMaoZ.Text := Trim(ADOTmp.fieldbyname('MJMaoZ').AsString);
MJLen.Text := Trim(ADOTmp.fieldbyname('MJLen').AsString);
MJQty1.Text := Trim(ADOTmp.fieldbyname('MJQty1').AsString);
MJQty2.Text := Trim(ADOTmp.fieldbyname('MJQty2').AsString);
MJQty4.Text := Trim(ADOTmp.fieldbyname('MJQty4').AsString);
MJFK.Text := Trim(ADOTmp.fieldbyname('MJFK').AsString);
MJSJKZ.Text := Trim(ADOTmp.fieldbyname('MJSJKZ').AsString);
M.Caption := Trim(Trim(ADOTmp.fieldbyname('MJTypeOther').AsString));
Ma.Caption := Trim(Trim(ADOTmp.fieldbyname('MJStr1').AsString));
if Trim(m.Caption) = '' then
begin
m.Caption := Trim(ADOTmp.fieldbyname('AOrddefstr3').AsString);
end;
if Trim(Ma.Caption) = '' then
begin
Ma.Caption := Trim(ADOTmp.fieldbyname('AOrddefstr2').AsString);
end;
if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString)) = '<27><>Ʒ' then
begin
RadioGroup1.ItemIndex := 0
end
else if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString)) = '<27><>Ʒ' then
begin
RadioGroup1.ItemIndex := 1;
end
else if Trim(Trim(ADOTmp.fieldbyname('MJType').AsString)) = '<27><><EFBFBD><EFBFBD>' then
begin
RadioGroup1.ItemIndex := 2;
end;
with ADOTmp do
begin
Close;
sql.Clear;
SQL.Add('select * from WFB_MJJY_CD A where A.MJID=''' + Trim(MJID.Text) + '''');
Open;
end;
Label2.Caption := Trim(MJID.Text);
Label2.Visible := True;
MJID.Text := '';
SCreateCDS20(ADOTmp, Order_MJ);
SInitCDSData20(ADOTmp, Order_MJ);
if ShowModal = 1 then
begin
end;
end;
finally
frmMJEdit.Free;
end;
end;
procedure TfrmJYOrderCDOne.N1Click(Sender: TObject);
begin
SelOKNo(Order_Main, True);
end;
procedure TfrmJYOrderCDOne.N2Click(Sender: TObject);
begin
SelOKNo(Order_Main, False);
end;
procedure TfrmJYOrderCDOne.TBZFClick(Sender: TObject);
begin
if Order_Main.Locate('ssel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϻ<EFBFBD><CFBA><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2>ָܻ<DCBB><D6B8><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
Order_Main.DisableControls;
with Order_Main do
begin
First;
while not Eof do
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_BanCP_CR where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''' and CRFlag=''<27><><EFBFBD><EFBFBD>''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
Order_Main.EnableControls;
Application.MessageBox('<27>Ѳ<EFBFBD><D1B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>ɾ<EFBFBD><C9BE>!', '<27><>ʾ', 0);
Exit;
end
else
begin
//begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete WFB_MJJY where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('delete CK_BanCP_CR where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('delete WFB_MJJY_CD where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
// end;
end;
Order_Main.Delete;
end
else
Next;
end;
end;
Order_Main.EnableControls;
end;
procedure TfrmJYOrderCDOne.ToolButton1Click(Sender: TObject);
var
fPrintFile: string;
增加二维码
2025-09-24 13:58:45 +08:00
Txt, fImagePath, fImagePath1, fImagePath2, fImagePath3, fImagePath5, fImagePath6, Txt7, fImagePath7: string;
~
2025-04-30 16:04:42 +08:00
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
Order_Main.DisableControls;
with Order_Main do
begin
First;
while not Eof do
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update WFB_MJJY Set PrtAgnFlag=1,PrtAgnDate=getdate(),PrtAgnPerson=''' + Trim(DName) + '''');
sql.Add(' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
with ADOQueryPrint do
begin
增加二维码
2025-09-24 13:58:45 +08:00
Close;
~
2025-04-30 16:04:42 +08:00
SQL.Clear;
sql.Add('select QtyUnit=A.MJTypeOther,B.orderNo,B.conNo,B.MPRTCode,GangNo=D.RCgangNO,PRTColorEng=E.Note,B.LBName,B.NLBName ');
sql.Add(',khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=B.conNO) ');
sql.Add(',MPRTCodeNameEng=ISNULL((select Top 1 F.note from KH_Zdy F where F.zdyname=B.MPRTCodeName and F.Type=''PRTCodeName''),B.MPRTCodeName)');
增加二维码
2025-09-24 13:58:45 +08:00
sql.Add(',B.MPRTCF,B.MPRTMF,B.MPRTKZ,C.SOrddefstr4,B.MPRTCodeName,B.MPRTCode,B.MPRTSpec,B.MPRTKuanNO,C.*,A.* ');
~
2025-04-30 16:04:42 +08:00
sql.Add(',Case when A.MJSJKZ*A.MJFK<>0 then Cast(A.MJQty4*1000/A.MJSJKZ/(A.MJFK/100) as int) else 0 end as MQty');
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(' left join KH_Zdy E on C.PRTColor=E.ZdyName and E.Type=''OrdColor'' ');
sql.Add(' inner join CK_SXPB_CR D on D.SPId=A.APId ');
SQL.Add(' where A.MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
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);
exit;
end;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(ADOQueryPrint.fieldbyname('DETM').AsString);
fImagePath1 := ExtractFilePath(Application.ExeName) + 'image\temp1.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath1) then
DeleteFile(fImagePath1);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath1), 3);
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(ADOQueryPrint.fieldbyname('DETM2').AsString);
fImagePath2 := ExtractFilePath(Application.ExeName) + 'image\temp2.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath2) then
DeleteFile(fImagePath2);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath2), 3);
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(ADOQueryPrint.fieldbyname('DETM3').AsString);
fImagePath3 := ExtractFilePath(Application.ExeName) + 'image\temp3.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath3) then
DeleteFile(fImagePath3);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath3), 3);
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
增加二维码
2025-09-24 13:58:45 +08:00
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(ADOQueryPrint.fieldbyname('DETM5').AsString);
fImagePath5 := ExtractFilePath(Application.ExeName) + 'image\temp5.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath5) then
DeleteFile(fImagePath5);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath5), 3);
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt7 := Trim(ADOQueryPrint.fieldbyname('DETM7').AsString);
fImagePath7 := ExtractFilePath(Application.ExeName) + 'image\temp5.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath7) then
DeleteFile(fImagePath7);
Makebar(pchar(Txt7), Length(Txt7), 3, 3, 0, PChar(fImagePath7), 3);
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
try
fImagePath6 := ExtractFilePath(Application.ExeName) + 'image\temp6.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath6) then
DeleteFile(fImagePath6);
FDETM6 := Trim(ADOQueryPrint.fieldbyname('DETM6').AsString);
// FDETM6 := 'TECLECL01XXX' + Trim(ADOQueryPrint.fieldbyname('SOrddefstr1').AsString) + ' ' + '#' + Trim(ADOQueryPrint.fieldbyname('PRTHX').AsString) + '-' + RightStr(('10000' + trim(ADOQueryPrint.fieldbyName('MJXH').AsString)), 4) + '-' + Trim(ADOQueryPrint.fieldbyname('SOrddefstr2').AsString);
tsewm6();
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
~
2025-04-30 16:04:42 +08:00
if Trim(ADOQueryPrint.fieldbyname('LbName').AsString) <> '' then
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('LbName').AsString) + '.rmf'
else
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ͨ<><CDA8>Ӣ<EFBFBD>ı<EFBFBD>ǩ.rmf';
// fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\15029<32><39><EFBFBD><EFBFBD>.rmf' ;
if FileExists(fPrintFile) then
begin
RMVariables['QRBARCODE'] := fImagePath;
RMVariables['QRBARCODE1'] := fImagePath1;
RMVariables['QRBARCODE2'] := fImagePath2;
RMVariables['QRBARCODE3'] := fImagePath3;
增加二维码
2025-09-24 13:58:45 +08:00
RMVariables['QRBARCODE5'] := fImagePath5;
RMVariables['QRBARCODE6'] := fImagePath6;
RMVariables['QRBARCODE7'] := fImagePath7;
~
2025-04-30 16:04:42 +08:00
RM2.LoadFromFile(fPrintFile);
Rm2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);
增加二维码
2025-09-24 13:58:45 +08:00
RM2.ShowReport;
~
2025-04-30 16:04:42 +08:00
RM2.PrintReport;
{ IF Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)<>'' then
begin
fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\'+Trim(ADOQueryPrint.fieldbyname('NLBName').AsString)+'.rmf';
if FileExists(fPrintFile) then
begin
RMVariables['QRBARCODE']:=fImagePath;
RM3.LoadFromFile(fPrintFile);
RM3.DefaultCopies:=1;
// RM3.ShowReport;
RM3.PrintReport;
end;
end; }
end
else
begin
Order_Main.EnableControls;
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD>ǩ.rmf'), '<27><>ʾ', 0);
Exit;
end;
end;
Next;
end;
end;
Order_Main.EnableControls;
end;
procedure TfrmJYOrderCDOne.RadioGroup1Click(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmJYOrderCDOne.TBAftChkHXClick(Sender: TObject);
var
fsj, fsj10: string;
begin
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
Order_Main.DisableControls;
with Order_Main do
begin
First;
while not Eof do
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
if Trim(fsj) = '' then
begin
fsj := Trim(Order_Main.fieldbyname('SubId').AsString);
end
else
begin
if Trim(fsj) <> Trim(Order_Main.fieldbyname('SubId').AsString) then
begin
Order_Main.EnableControls;
Application.MessageBox('<27><>ͬ<EFBFBD><CDAC>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
end;
Next;
end;
end;
Order_Main.EnableControls;
Order_Main.DisableControls;
with Order_Main do
begin
First;
while not Eof do
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
if Trim(fsj10) = '' then
begin
fsj10 := Trim(Order_Main.fieldbyname('AOrddefstr4').AsString);
end
else
begin
if Trim(fsj10) <> Trim(Order_Main.fieldbyname('AOrddefstr4').AsString) then
begin
Order_Main.EnableControls;
Application.MessageBox('<27><>ͬȾ<CDAC><C8BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
end;
end;
Next;
end;
end;
Order_Main.EnableControls;
end;
function TfrmJYOrderCDOne.Savedata(): Boolean;
var
maxno, LLID: string;
HXPS: Integer;
HXQty, HXMQty: Double;
begin
HXPS := 0;
HXQty := 0;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select Top 1 * from Contract_Cloth_LL where OrdSubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
sql.Add(' and FirstName=''' + Trim(Order_Main.fieldbyname('AOrddefstr4').AsString) + '''');
Open;
end;
LLID := Trim(ADOQueryTemp.fieldbyname('LLID').AsString);
if Trim(LLID) = '' then
begin
Result := False;
Application.MessageBox('û<><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD>ļӹ<C4BC><D3B9><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
if GetLSNo(ADOQueryCmd, maxno, 'HX', 'Contract_Cloth_BefChkHX', 2, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
with Order_Main do
begin
First;
while not Eof do
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
HXPS := HXPS + 1;
HXQty := HXQty + Order_Main.FieldByName('MJLen').Value;
end;
Next;
end;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('');
Open;
end;
except
end;
end;
procedure TfrmJYOrderCDOne.AorddefstrChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmJYOrderCDOne.OrderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
if Length(OrderNo.Text) < 4 then
Exit;
MovePanel2.Visible := True;
MovePanel2.Refresh;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('exec P_JYOrder_HZFX20 :begdate,:enddate,:PState,:FFSql ');
Parameters.ParamByName('begdate').Value := '2010-01-01';
Parameters.ParamByName('enddate').Value := '2050-01-01';
Parameters.ParamByName('PState').Value := 3;
// Parameters.ParamByName('FFSql').Value:=' where CC.OrderNo like '''+Trim(OrderNo.Text)+'%'+'''';
Parameters.ParamByName('FFSql').Value := ' where CC.OrderNo=''' + Trim(OrderNo.Text) + ''' ';
//ShowMessage(sql.Text);
Open;
end;
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
MovePanel2.Visible := False;
end;
end;
procedure TfrmJYOrderCDOne.PRTColorChange(Sender: TObject);
begin
TBFind.Click;
if Order_Main.IsEmpty = False then
begin
//InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp);
// InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
end;
end;
procedure TfrmJYOrderCDOne.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
if Order_Main.IsEmpty = False then
begin
// InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp);
// InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
// InitRCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),GangNo,ADOQueryTemp);
end;
end;
procedure TfrmJYOrderCDOne.GetCDSData();
begin
CDS_CD.FieldByName('MJXH').Value := CDS_LS.fieldbyname('MJXH').Value;
CDS_CD.FieldByName('GangNo').Value := CDS_LS.fieldbyname('Aorddefstr1').Value;
CDS_CD.FieldByName('PRTColor').Value := CDS_LS.fieldbyname('PRTColor').Value;
CDS_CD.FieldByName('PRTEColor').Value := CDS_LS.fieldbyname('SOrddefstr4').Value;
CDS_CD.FieldByName('MJLen').Value := CDS_LS.fieldbyname('MJLen').Value;
CDS_CD.FieldByName('MJJZ').Value := CDS_LS.fieldbyname('MJQty4').Value;
CDS_CD.FieldByName('MJMZ').Value := CDS_LS.fieldbyname('MJMaoZ').Value;
CDS_CD.FieldByName('MJFK').Value := CDS_LS.fieldbyname('MJFK').Value;
CDS_CD.FieldByName('KFQtyHZ').Value := CDS_LS.fieldbyname('KFQtyHZ').Value;
CDS_CD.FieldByName('DengJi').Value := CDS_LS.fieldbyname('DengJi').Value;
CDS_CD.FieldByName('PanDing').Value := CDS_LS.fieldbyname('PanDing').Value;
CDS_CD.FieldByName('MJID').Value := CDS_LS.fieldbyname('MJID').Value;
end;
procedure TfrmJYOrderCDOne.ToolButton2Click(Sender: TObject);
var
fPrintFile: string;
begin
GetBGData();
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD>鱨<EFBFBD><E9B1A8>.rmf';
if FileExists(fPrintFile) then
begin
RMCD.LoadFromFile(fPrintFile);
RMVariables['OrderNo'] := Trim(Order_Main.fieldbyname('OrderNo').AsString);
RMVariables['CustomerNoName'] := Trim(Order_Main.fieldbyname('CustomerNoName').AsString);
RMVariables['MPRTCodeName'] := Trim(Order_Main.fieldbyname('MPRTCodeName').AsString);
RMVariables['MPRTMF'] := Trim(Order_Main.fieldbyname('MPRTMF').AsString);
增加二维码
2025-09-24 13:58:45 +08:00
// RMVariables['JGC'] := Trim(Order_Main.fieldbyname('AOrddefstr4').AsString);
// RMVariables['PBC'] := Trim(Order_Main.fieldbyname('AOrddefstr6').AsString);
~
2025-04-30 16:04:42 +08:00
RMCD.ShowReport;
end
else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD>鱨<EFBFBD><E9B1A8>.rmf'), '<27><>ʾ', 0);
end;
end;
procedure TfrmJYOrderCDOne.GetBGData();
var
FMJId: string;
i, j, z: Integer;
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select MJXH=Cast(0 as int),GangNo=Cast('''' as varchar(20)),PRTColor=Cast('''' as varchar(20)),MJID=Cast('''' as varchar(20))');
sql.Add(',PRTEColor=Cast('''' as varchar(20)),MJLen=Cast(0 as decimal(18,2)),MJJZ=Cast(0 as decimal(18,2)),XH=Cast(0 as int)');
sql.Add(',MJMZ=Cast(0 as decimal(18,2)),MJFK=Cast(0 as decimal(18,2)),KFQtyHZ=Cast(0 as int),DengJi=Cast('''' as varchar(20)),PanDing=Cast('''' as varchar(20))');
sql.Add(',CDName0=Cast('''' as varchar(20)),CDBeg0=Cast('''' as varchar(20)),KFQty0=Cast(0 as int)');
sql.Add(',CDName1=Cast('''' as varchar(20)),CDBeg1=Cast('''' as varchar(20)),KFQty1=Cast(0 as int)');
sql.Add(',CDName2=Cast('''' as varchar(20)),CDBeg2=Cast('''' as varchar(20)),KFQty2=Cast(0 as int)');
sql.Add(',CDName3=Cast('''' as varchar(20)),CDBeg3=Cast('''' as varchar(20)),KFQty3=Cast(0 as int)');
sql.Add(',CDName4=Cast('''' as varchar(20)),CDBeg4=Cast('''' as varchar(20)),KFQty4=Cast(0 as int)');
sql.Add(',CDName5=Cast('''' as varchar(20)),CDBeg5=Cast('''' as varchar(20)),KFQty5=Cast(0 as int)');
sql.Add(',CDName6=Cast('''' as varchar(20)),CDBeg6=Cast('''' as varchar(20)),KFQty6=Cast(0 as int)');
sql.Add(',CDName7=Cast('''' as varchar(20)),CDBeg7=Cast('''' as varchar(20)),KFQty7=Cast(0 as int)');
sql.Add(',CDName8=Cast('''' as varchar(20)),CDBeg8=Cast('''' as varchar(20)),KFQty8=Cast(0 as int)');
sql.Add(',CDName9=Cast('''' as varchar(20)),CDBeg9=Cast('''' as varchar(20)),KFQty9=Cast(0 as int)');
Open;
end;
SCreateCDS20(ADOQueryTemp, CDS_CD);
SInitCDSData20(ADOQueryTemp, CDS_CD);
if CDS_CD.IsEmpty = False then
CDS_CD.Delete;
增加二维码
2025-09-24 13:58:45 +08:00
~
2025-04-30 16:04:42 +08:00
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('select A.*,Case when isnull(MJType,'''')=''<27><>Ʒ'' and KFQtyHZ<26 then ''A'' ');
sql.Add(' when isnull(MJType,'''')=''<27><>Ʒ'' and KFQtyHZ>33 then ''C''');
sql.Add(' when isnull(MJType,'''')=''<27><>Ʒ'' and KFQtyHZ>25 and A.KFQtyHZ<34 then ''B''');
sql.Add(' else MJType end as DengJi');
sql.Add('from (select A.CDBeg,A.CDName,A.KouFenQty,B.MJXH,C.Aorddefstr1,JS.PRTColor,JS.SOrddefstr4,B.MJID ');
sql.Add(',CDEName=(select Note from KH_Zdy KZ where KZ.ZdyName=A.CDName and KZ.Type=''WFBCD'' )');
sql.Add(',B.MJLen,B.MJQty4,B.MJMaoZ,B.MJTypeOther,B.MJSJKZ,B.MJFK,B.MJType,B.PanDing');
sql.Add(',KFQtyHZ=(select Sum(KouFenQty) from WFB_MJJY_CD MCD where MCD.MJID=B.MJID)');
sql.Add(' from WFB_MJJY B inner join WFB_MJJY_CD A on B.MJID=A.MJID');
sql.Add(' inner join JYOrder_Sub_AnPai C on B.APID=C.APID');
sql.Add(' inner join JYOrder_Sub JS on C.SubId=JS.SubId');
SQL.Add(' where B.MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
if Trim(MJType.Text) <> '' then
begin
sql.Add(' and isnull(B.MJType,'''')=''' + Trim(MJType.Text) + '''');
end;
sql.Add(')A order by PRTColor,Cast(Aorddefstr1 as int),MJID,MJXH');
Open;
end;
//ShowMessage(ADOQueryTemp.SQL.Text);
//ShowMessage(IntToStr(ADOQueryTemp.RecordCount));
SCreateCDS20(ADOQueryTemp, CDS_LS);
SInitCDSData20(ADOQueryTemp, CDS_LS);
CDS_LS.DisableControls;
with CDS_LS do
begin
First;
while not Eof do
begin
if CDS_CD.IsEmpty then
begin
with CDS_CD do
begin
Append;
GetCDSData();
if CheckBox1.Checked = True then
FieldByName('CDName0').Value := CDS_LS.fieldbyname('CDEName').Value
else
FieldByName('CDName0').Value := CDS_LS.fieldbyname('CDName').Value;
FieldByName('CDBeg0').Value := CDS_LS.fieldbyname('CDBeg').Value;
FieldByName('KFQty0').Value := CDS_LS.fieldbyname('KouFenQty').Value;
FieldByName('XH').Value := 0;
Post;
FMJId := Trim(CDS_LS.fieldbyname('MJID').AsString);
i := 0; //<2F>к<EFBFBD>
j := 0;
z := 0; //<2F>к<EFBFBD>
end;
end
else
begin
if Trim(CDS_LS.fieldbyname('MJID').AsString) = FMJId then
begin
i := i + 1;
if i < 10 then
begin
with CDS_CD do
begin
Edit;
GetCDSData();
if CheckBox1.Checked = True then
FieldByName('CDName' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDEName').Value
else
FieldByName('CDName' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDName').Value;
FieldByName('CDBeg' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDBeg').Value;
FieldByName('KFQty' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('KouFenQty').Value;
Post;
end;
end
else
begin
i := 0;
with CDS_CD do
begin
Append;
GetCDSData();
if CheckBox1.Checked = True then
FieldByName('CDName' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDEName').Value
else
FieldByName('CDName' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDName').Value;
FieldByName('CDBeg' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDBeg').Value;
FieldByName('KFQty' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('KouFenQty').Value;
Post;
end;
end;
end
else
begin
i := 0;
with CDS_CD do
begin
Append;
GetCDSData();
if CheckBox1.Checked = True then
FieldByName('CDName' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDEName').Value
else
FieldByName('CDName' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDName').Value;
FieldByName('CDBeg' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('CDBeg').Value;
FieldByName('KFQty' + Trim(IntToStr(i))).Value := CDS_LS.fieldbyname('KouFenQty').Value;
Post;
end;
FMJId := Trim(CDS_LS.fieldbyname('MJID').AsString);
end;
end;
Next;
end;
end;
CDS_LS.EnableControls;
end;
procedure TfrmJYOrderCDOne.v1Column15PropertiesEditValueChanged(Sender: TObject);
var
mvalue: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
with Order_Main do
begin
Edit;
FieldByName('PanDing').Value := Trim(mvalue);
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate WFB_MJJY Set PanDing=''' + Trim(mvalue) + '''');
SQL.Add(' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
end;
procedure TfrmJYOrderCDOne.Button2Click(Sender: TObject);
begin
Panel2.Visible := false;
end;
procedure TfrmJYOrderCDOne.Button1Click(Sender: TObject);
var
i, J: string;
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if trim(ComboBox4.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ͳ<EFBFBD><CDB2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
i := floattostr(strtofloatdef(trim(cxCurrencyEdit1.Text), 0));
J := floattostr(strtofloatdef(trim(cxCurrencyEdit2.Text), 0));
try
Order_Main.DisableControls;
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
begin
First;
while not Eof do
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
// sql.Add('Update WFB_MJJY Set MKXs='''+trim(i)+''',MJLen=cast(1.00000* MJQty4 *'''+trim(i)+''' as decimal(18,1)) ');
if trim(ComboBox4.Text) = '<27><><EFBFBD>Ȼ<EFBFBD><C8BB>㾻<EFBFBD><E3BEBB>' then
begin
sql.Add('Update WFB_MJJY Set MKXs=''' + trim(i) + ''',MJQty3=''' + trim(J) + ''',MJQty4=cast(1.00000* MJlen *''' + trim(i) + ''' as decimal(18,1)) ');
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('Update WFB_MJJY Set MJMaoZ=MJQty4+MJQty3 ');
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
end;
if trim(ComboBox4.Text) = '<27><><EFBFBD>ػ<EFBFBD><D8BB>㳤<EFBFBD><E3B3A4>' then
begin
sql.Add('Update WFB_MJJY Set MKXs=''' + trim(i) + ''',MJQty3=''' + trim(J) + ''',MJlen=cast(1.00000* MJQty4 *''' + trim(i) + ''' as decimal(18,0)) ');
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('Update WFB_MJJY Set MJMaoZ=MJQty4+MJQty3 ');
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
end;
ExecSQL;
end;
end;
Next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Order_Main.EnableControls;
application.MessageBox('<27><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
Panel2.Visible := false;
TBRafresh.Click;
exit;
except
ADOQueryCmd.Connection.RollbackTrans;
Order_Main.EnableControls;
application.MessageBox('<27><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmJYOrderCDOne.ToolButton3Click(Sender: TObject);
begin
Panel2.Left := (self.Width - Panel2.Width) div 2;
Panel2.Visible := true;
end;
procedure TfrmJYOrderCDOne.CheckBox2Click(Sender: TObject);
begin
SelOKNo(Order_Main, CheckBox2.Checked);
end;
procedure TfrmJYOrderCDOne.ToolButton4Click(Sender: TObject);
begin
frmCPDBao := TfrmCPDBao.Create(self);
with frmCPDBao do
begin
show;
end;
// frmCPDBao.Release;
end;
procedure TfrmJYOrderCDOne.ToolButton6Click(Sender: TObject);
var
strsql: string;
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>𣿳<EFBFBD><F0A3BFB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2>ָܻ<DCBB><D6B8><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
try
Order_Main.DisableControls;
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
begin
First;
while not Eof do
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
if trim(fieldbyname('mjstr2').AsString) <> 'δ<><CEB4><EFBFBD><EFBFBD>' then
begin
ADOQueryCmd.Connection.RollbackTrans;
Order_Main.EnableControls;
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ⲻ<EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
strsql := '<27><><EFBFBD>ţ<EFBFBD>' + trim(Order_Main.FieldByName('MJID').AsString) + ';<3B><>ID:' + trim(Order_Main.FieldByName('BAOID').AsString) + '<27><><EFBFBD>ţ<EFBFBD>' + trim(Order_Main.FieldByName('baoNo').AsString);
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update WFB_MJJY Set baoID='''',baoNo='''' ');
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('Update CK_BanCP_CR Set baoID='''',baoNo='''' ');
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim(strsql)));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
ExecSQL;
end;
end;
Next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Order_Main.EnableControls;
application.MessageBox('<27><><EFBFBD>ݳ<EFBFBD><DDB3><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
TBRafresh.Click;
exit;
except
ADOQueryCmd.Connection.RollbackTrans;
Order_Main.EnableControls;
application.MessageBox('<27><><EFBFBD>ݳ<EFBFBD><DDB3><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmJYOrderCDOne.ToolButton7Click(Sender: TObject);
begin
frmCPGangNo := TfrmCPGangNo.Create(self);
with frmCPGangNo do
begin
if showmodal = 1 then
begin
// InitGrid();
end;
end;
frmCPGangNo.Free;
end;
procedure TfrmJYOrderCDOne.ToolButton8Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
frmJYMJIDPRINT := TfrmJYMJIDPRINT.create(self);
with frmJYMJIDPRINT do
begin
FMJId := trim(Order_Main.fieldbyname('MJID').AsString);
show;
end;
end;
procedure TfrmJYOrderCDOne.ToolButton9Click(Sender: TObject);
begin
frmSMLB := TfrmSMLB.create(self);
with frmSMLB do
begin
show;
end;
end;
procedure TfrmJYOrderCDOne.Button4Click(Sender: TObject);
begin
Panel3.Visible := false;
end;
procedure TfrmJYOrderCDOne.Button3Click(Sender: TObject);
var
fPrintFile: string;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
FBaoID: string;
begin
if Order_Main.IsEmpty then
Exit;
if trim(Order_Main.FieldByName('BaoID').AsString) = '' then
begin
application.MessageBox('δ<><CEB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܴ<EFBFBD>ӡ', '<27><>ʾ');
exit;
end;
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('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('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(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(Order_Main.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');
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;
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := trim(ADOQueryPrint.fieldbyname('baoID').AsString);
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath) then
DeleteFile(fImagePath);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
if Check_bq.Checked then
begin
if Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) <> '' then
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('NLBName').AsString) + '.rmf'
else
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD>ǩ.rmf';
if FileExists(fPrintFile) then
begin
RMVariables['QRBARCODE'] := fImagePath;
RM2.DefaultCopies := strtointdef(trim(ComboBox2.Text), 1);
RM2.LoadFromFile(fPrintFile);
// RM2.ShowReport;
RM2.printReport;
end
else
begin
// Order_Main.EnableControls;
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
Exit;
end;
end;
if check_Fbz.Checked then
begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(Fbq.Text) + '.rmf';
if FileExists(fPrintFile) then
begin
RMVariables['QRBARCODE'] := fImagePath;
RM2.DefaultCopies := strtointdef(trim(ComboBox3.Text), 1);
RM2.LoadFromFile(fPrintFile);
// RM2.ShowReport;
RM2.printReport;
end
else
begin
// Order_Main.EnableControls;
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
Exit;
end;
end;
end;
procedure TfrmJYOrderCDOne.ToolButton5Click(Sender: TObject);
begin
Panel3.Left := (self.Width - Panel3.Width) div 2;
Panel3.Visible := true;
end;
procedure TfrmJYOrderCDOne.FbqBtnClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'BAOFFLAG';
flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǩ';
if ShowModal = 1 then
begin
Fbq.Text := trim(ClientDataSet1.fieldbyname('zdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmJYOrderCDOne.MJIDKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
if Length(MJID.Text) < 4 then
Exit;
MovePanel2.Visible := True;
MovePanel2.Refresh;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('exec P_JYOrder_HZFX20 :begdate,:enddate,:PState,:FFSql ');
Parameters.ParamByName('begdate').Value := '2010-01-01';
Parameters.ParamByName('enddate').Value := '2050-01-01';
Parameters.ParamByName('PState').Value := 3;
Parameters.ParamByName('FFSql').Value := ' where A.MJID like ''' + '%' + Trim(MJID.Text) + '%' + '''';
//ShowMessage(sql.Text);
Open;
end;
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
if Order_Main.IsEmpty = False then
begin
//InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp);
// InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
// InitRCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),GangNo,ADOQueryTemp);
end;
finally
ADOQueryMain.EnableControls;
end;
MovePanel2.Visible := False;
end;
end;
procedure TfrmJYOrderCDOne.ToolButton10Click(Sender: TObject);
var
fPrintFile: string;
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
with ADOqueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete TBSubID where DName=''' + Trim(DCode) + '''');
ExecSQL;
end;
with ADOqueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * FROM TBSubID where 1=2 ');
open;
end;
ADOqueryCmd.Connection.BeginTrans;
try
Order_Main.DisableControls;
with Order_Main do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean then
begin
ADOQueryCmd.append;
ADOQueryCmd.fieldbyname('SubId').Value := Trim(fieldbyname('MJID').AsString);
ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode);
ADOQueryCmd.post;
end;
Next;
end;
end;
Order_Main.EnableControls;
ADOqueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
end;
with ADOqueryPrint do
begin
close;
sql.Clear;
sql.Add(' exec P_Get_JYMJID_Main ');
sql.Add(' @MJID=' + quotedstr(''));
sql.Add(',@flag=''0'' ');
sql.Add(',@userID=' + quotedstr(trim(DCode)));
open;
end;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ.rmf';
;
if not FileExists(fPrintFile) then
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + trim(fPrintFile)), '<27><>ʾ', MB_ICONERROR);
exit;
end;
Rm2.LoadFromFile(fPrintFile);
Rm2.ShowReport;
end;
procedure TfrmJYOrderCDOne.APIDKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
if Length(APID.Text) < 4 then
Exit;
MovePanel2.Visible := True;
MovePanel2.Refresh;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('exec P_JYOrder_HZFX20 :begdate,:enddate,:PState,:FFSql ');
Parameters.ParamByName('begdate').Value := '2010-01-01';
Parameters.ParamByName('enddate').Value := '2050-01-01';
Parameters.ParamByName('PState').Value := 3;
Parameters.ParamByName('FFSql').Value := ' where B.APID like ''' + '%' + Trim(APID.Text) + '%' + '''';
//ShowMessage(sql.Text);
Open;
end;
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
if Order_Main.IsEmpty = False then
begin
//InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp);
// InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
// InitRCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),GangNo,ADOQueryTemp);
end;
finally
ADOQueryMain.EnableControls;
end;
MovePanel2.Visible := False;
end;
end;
procedure TfrmJYOrderCDOne.ISbaoChange(Sender: TObject);
begin
Tbfind.Click;
end;
procedure TfrmJYOrderCDOne.ToolButton11Click(Sender: TObject);
var
fPrintFile, fPrintFile10, FMainID: string;
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete TBSubID where DName=''' + Trim(DCode) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('SELECT * FROM TBSubID where 1=2 ');
open;
end;
FMainID := '';
Order_Main.DisableControls;
try
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
begin
First;
while not Eof do
begin
if Fieldbyname('Ssel').AsBoolean then
begin
if FMainID = '' then
begin
FMainID := Trim(Order_Main.fieldbyname('mainID').AsString);
end
else
begin
if Trim(Order_Main.fieldbyname('mainID').AsString) <> FMainID then
begin
application.MessageBox('ѡ<><D1A1><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD>ͬһ<CDAC><D2BB>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
ADOQueryCmd.Connection.RollbackTrans;
EnableControls;
exit;
end;
end;
ADOQueryCmd.append;
ADOQueryCmd.fieldbyname('SubId').Value := Trim(Order_Main.fieldbyname('MJID').AsString);
ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode);
ADOQueryCmd.post;
end;
Next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
end;
Order_Main.EnableControls;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd30 ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''0'' ');
Open;
end;
SCreateCDS20(ADOQueryCmd, CDS_HZ);
SInitCDSData20(ADOQueryCmd, CDS_HZ);
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.add('exec P_Do_PrintMd30_HZ ');
sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''0'' ');
Open;
end;
SCreateCDS20(ADOQueryCmd, CDS_PRT);
SInitCDSData20(ADOQueryCmd, CDS_PRT);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD><EFBFBD>뵥3.rmf';
if FileExists(fPrintFile) then
begin
RM3.LoadFromFile(fPrintFile);
RM3.ShowReport;
end
else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
end;
end;
procedure TfrmJYOrderCDOne.TBBNClick(Sender: TObject);
var
fmainid, fsubid: string;
begin
if Order_Main.IsEmpty then
exit;
if Order_Main.Locate('ssel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫת<D2AA><D7AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
fmainid := '';
frmProductOrderListSel := TfrmProductOrderListSel.create(self);
with frmProductOrderListSel do
begin
if showmodal = 1 then
begin
fmainid := Order_Main.fieldbyname('MainID').asstring;
fsubid := Order_Main.fieldbyname('subID').asstring;
end;
free;
end;
if trim(fmainid) <> '' then
begin
ADOQueryCmd.Connection.BeginTrans;
try
with Order_Main do
begin
DisableControls;
First;
while not eof do
begin
if fieldbyname('ssel').AsBoolean then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPdate WFB_MJJY Set MainId=''' + Trim(fmainid) + ''',SubId=''' + Trim(fsubid) + ''' ');
sql.Add('where MJID=' + quotedstr(trim(Order_Main.fieldbyName('MJID').AsString)));
sql.Add('UPdate CK_BanCP_CR Set MainId=''' + Trim(fmainid) + ''',SubId=''' + Trim(fsubid) + ''' ');
sql.Add('where MJID=' + quotedstr(trim(Order_Main.fieldbyName('MJID').AsString)));
execsql;
end;
end;
next;
end;
first;
EnableControls;
end;
ADOQueryCmd.Connection.CommitTrans;
TBRafresh.Click;
except
Order_Main.EnableControls;
ADOQueryCmd.Connection.RollbackTrans;
end;
end;
end;
procedure TfrmJYOrderCDOne.Button6Click(Sender: TObject);
begin
Panel5.Visible := false;
end;
procedure TfrmJYOrderCDOne.Button5Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if trim(ComboBox5.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
try
Order_Main.DisableControls;
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
begin
First;
while not Eof do
begin
if Order_Main.FieldByName('SSel').AsBoolean = True then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update WFB_MJJY Set MJTypeOther=''' + trim(ComboBox5.Text) + ''' ');
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('Update CK_BanCP_CR Set QtyUnit=''' + trim(ComboBox5.Text) + ''' ');
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
sql.Add('Update CK_BanCP_KC Set kcQtyUnit=''' + trim(ComboBox5.Text) + ''' ');
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL;
end;
end;
Next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Order_Main.EnableControls;
application.MessageBox('<27><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
Panel2.Visible := false;
TBRafresh.Click;
exit;
except
ADOQueryCmd.Connection.RollbackTrans;
Order_Main.EnableControls;
application.MessageBox('<27><><EFBFBD>ݱ<EFBFBD><DDB1><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmJYOrderCDOne.ToolButton12Click(Sender: TObject);
begin
Panel5.Visible := true;
end;
procedure TfrmJYOrderCDOne.TV4DblClick(Sender: TObject);
begin
cxGrid4.Visible := False;
orderno.Text := CDS_CON.fieldbyname('orderno').AsString;
cxGrid4.Visible := False;
if Length(OrderNo.Text) < 4 then
Exit;
MovePanel2.Visible := True;
MovePanel2.Refresh;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('exec P_JYOrder_HZFX20 :begdate,:enddate,:PState,:FFSql ');
Parameters.ParamByName('begdate').Value := '2010-01-01';
Parameters.ParamByName('enddate').Value := '2050-01-01';
Parameters.ParamByName('PState').Value := 3;
// Parameters.ParamByName('FFSql').Value:=' where CC.OrderNo like '''+Trim(OrderNo.Text)+'%'+'''';
Parameters.ParamByName('FFSql').Value := ' where CC.OrderNo=''' + Trim(OrderNo.Text) + ''' ';
//ShowMessage(sql.Text);
Open;
end;
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
MovePanel2.Visible := False;
end;
procedure TfrmJYOrderCDOne.BAONOChange(Sender: TObject);
begin
if Length(Trim(orderno.text)) > 3 then
begin
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('select A.*');
sql.Add('from JYOrder_Main A');
sql.Add('where A.orderno like ''' + '%' + Trim(OrderNo.Text) + '%' + '''');
// showmessage(sql.text);
Open;
end;
SCreateCDS20(ADOQuery1, CDS_Con);
SInitCDSData20(ADOQuery1, CDS_Con);
if CDS_Con.IsEmpty then
cxGrid4.Visible := False
else
cxGrid4.Visible := True;
end
else
begin
cxGrid4.Visible := False
end;
end;
增加二维码
2025-09-24 13:58:45 +08:00
procedure TfrmJYOrderCDOne.ToolButton13Click(Sender: TObject);
var
fPrintFile, fZMFile: string;
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
Panel8.Visible := true;
end;
procedure TfrmJYOrderCDOne.Button11Click(Sender: TObject);
var
fPrintFile, fZMFile, LBName: string;
begin
if Order_Main.IsEmpty then
Exit;
// fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD>鱨<EFBFBD><E9B1A8>.rmf';
LBName := RadioGroup2.Items.Strings[RadioGroup2.ItemIndex];
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(LBName) + '.rmf';
ExportFtErpFile(Trim(LBName) + '.rmf', ADOQueryCmd);
with ADOQuery2 do
begin
Close;
sql.Clear;
sql.add('exec P_Do_Print_JYBB ');
sql.add('@mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainid').AsString)));
sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''0'' ');
Open;
end;
SCreateCDS20(ADOQuery2, CDS_HZ);
SInitCDSData20(ADOQuery2, CDS_HZ);
if FileExists(fPrintFile) then
begin
if RMCD.CanExport = true then
begin
fZMFile := 'C:\Users\Administrator\Desktop';
if not DirectoryExists(fZMFile) then
begin
fZMFile := 'C:\Documents and Settings\Administrator\<5C><><EFBFBD><EFBFBD>\' + trim(Order_Main.fieldbyname('ConNO').AsString) + Trim(LBName) + '.xls';
end
else
begin
fZMFile := 'C:\Users\Administrator\Desktop\' + trim(Order_Main.fieldbyname('ConNO').AsString) + Trim(LBName) + '.XLS';
end;
RMCD.ExportTo(RMXLSExport1, fZMFile);
end;
RMCD.CanExport := true;
RMCD.LoadFromFile(fPrintFile);
RMCD.ShowReport;
RMCD.CanExport := False;
end
else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + ExtractFilePath(Application.ExeName) + 'Report\' + Trim(LBName) + '.rmf'), '<27><>ʾ', 0); //+ 'Report\<5C><><EFBFBD>鱨<EFBFBD><E9B1A8>.rmf'
end;
end;
procedure TfrmJYOrderCDOne.Image1Click(Sender: TObject);
begin
Panel8.Visible := false;
end;
~
2025-04-30 16:04:42 +08:00
end.
Reference in New Issue Copy Permalink