928 lines
29 KiB
ObjectPascal
928 lines
29 KiB
ObjectPascal
unit U_ZGJBMX230727;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
|
||
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
|
||
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
|
||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
|
||
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
|
||
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
|
||
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||
cxTextEdit, cxDBLookupComboBox, cxContainer, cxDropDownEdit, cxPC, Menus,
|
||
TeEngine, Series, TeeProcs, Chart, DbChart, GanttCh, cxLookAndFeels,
|
||
cxLookAndFeelPainters, cxNavigator, cxGridBandedTableView,
|
||
cxGridDBBandedTableView, cxButtons;
|
||
|
||
type
|
||
TfrmZGJBMX230727 = class(TForm)
|
||
ADOQueryTemp: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
ADOQueryMain: TADOQuery;
|
||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||
Panel2: TPanel;
|
||
Panel3: TPanel;
|
||
cxGrid1: TcxGrid;
|
||
Tv1: TcxGridDBTableView;
|
||
v2Column12: TcxGridDBColumn;
|
||
v2Column7: TcxGridDBColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
SH1: TPanel;
|
||
ClientDataSet1: TClientDataSet;
|
||
DataSource1: TDataSource;
|
||
DataSource2: TDataSource;
|
||
ClientDataSet2: TClientDataSet;
|
||
v1Column4: TcxGridDBColumn;
|
||
cxGrid0: TcxGrid;
|
||
Tv0: TcxGridDBTableView;
|
||
cxGridDBColumn7: TcxGridDBColumn;
|
||
cxGridDBColumn8: TcxGridDBColumn;
|
||
cxGridDBColumn9: TcxGridDBColumn;
|
||
cxGridDBColumn10: TcxGridDBColumn;
|
||
cxGridDBColumn11: TcxGridDBColumn;
|
||
cxGridDBColumn12: TcxGridDBColumn;
|
||
cxGridLevel3: TcxGridLevel;
|
||
Tv0Column1: TcxGridDBColumn;
|
||
Tv0Column2: TcxGridDBColumn;
|
||
Tv0Column3: TcxGridDBColumn;
|
||
Tv0Column4: TcxGridDBColumn;
|
||
Tv0Column5: TcxGridDBColumn;
|
||
cxGrid2: TcxGrid;
|
||
cxGridLevel2: TcxGridLevel;
|
||
Tv2: TcxGridDBBandedTableView;
|
||
cxStyleRepository1: TcxStyleRepository;
|
||
cxStyle1: TcxStyle;
|
||
Tv2Column1: TcxGridDBBandedColumn;
|
||
Tv2Column2: TcxGridDBBandedColumn;
|
||
Tv2Column3: TcxGridDBBandedColumn;
|
||
Tv2Column4: TcxGridDBBandedColumn;
|
||
Tv2Column5: TcxGridDBBandedColumn;
|
||
Tv2Column6: TcxGridDBBandedColumn;
|
||
Tv2Column7: TcxGridDBBandedColumn;
|
||
Tv2Column8: TcxGridDBBandedColumn;
|
||
Tv2Column9: TcxGridDBBandedColumn;
|
||
Tv2Column10: TcxGridDBBandedColumn;
|
||
Tv2Column11: TcxGridDBBandedColumn;
|
||
Tv2Column12: TcxGridDBBandedColumn;
|
||
Tv2Column13: TcxGridDBBandedColumn;
|
||
Tv2Column14: TcxGridDBBandedColumn;
|
||
Tv2Column15: TcxGridDBBandedColumn;
|
||
Tv2Column16: TcxGridDBBandedColumn;
|
||
Tv2Column17: TcxGridDBBandedColumn;
|
||
Tv2Column18: TcxGridDBBandedColumn;
|
||
Tv0Column6: TcxGridDBColumn;
|
||
Tv0Column7: TcxGridDBColumn;
|
||
Tv0Column8: TcxGridDBColumn;
|
||
Tv0Column9: TcxGridDBColumn;
|
||
Tv0Column10: TcxGridDBColumn;
|
||
DataSource0: TDataSource;
|
||
ClientDataSet0: TClientDataSet;
|
||
Tv1Column1: TcxGridDBColumn;
|
||
Tv1Column2: TcxGridDBColumn;
|
||
Panel1: TPanel;
|
||
cxGrid3: TcxGrid;
|
||
Tv3: TcxGridDBTableView;
|
||
cxGridDBColumn1: TcxGridDBColumn;
|
||
cxGridDBColumn2: TcxGridDBColumn;
|
||
cxGridDBColumn3: TcxGridDBColumn;
|
||
cxGridDBColumn4: TcxGridDBColumn;
|
||
cxGridDBColumn5: TcxGridDBColumn;
|
||
cxGridLevel4: TcxGridLevel;
|
||
Tv3Column1: TcxGridDBColumn;
|
||
Tv3Column2: TcxGridDBColumn;
|
||
Tv3Column3: TcxGridDBColumn;
|
||
Tv3Column4: TcxGridDBColumn;
|
||
Tv3Column5: TcxGridDBColumn;
|
||
DataSource3: TDataSource;
|
||
ClientDataSet3: TClientDataSet;
|
||
RM2: TRMGridReport;
|
||
RMDB_Main: TRMDBDataSet;
|
||
ADOQueryPrint: TADOQuery;
|
||
Panel4: TPanel;
|
||
ClientDataSet5: TClientDataSet;
|
||
RichEdit1: TRichEdit;
|
||
Tv3Column6: TcxGridDBColumn;
|
||
Tv2Column19: TcxGridDBBandedColumn;
|
||
Tv2Column20: TcxGridDBBandedColumn;
|
||
Tv2Column21: TcxGridDBBandedColumn;
|
||
Tv2Column22: TcxGridDBBandedColumn;
|
||
Panel5: TPanel;
|
||
Tv0Column11: TcxGridDBColumn;
|
||
Tv0Column12: TcxGridDBColumn;
|
||
Tv0Column13: TcxGridDBColumn;
|
||
Tv0Column14: TcxGridDBColumn;
|
||
Tv0Column15: TcxGridDBColumn;
|
||
Label1: TLabel;
|
||
Tv2Column23: TcxGridDBBandedColumn;
|
||
SaveGS: TcxButton;
|
||
Tv0Column16: TcxGridDBColumn;
|
||
Tv0Column17: TcxGridDBColumn;
|
||
Tv0Column18: TcxGridDBColumn;
|
||
Tv0Column19: TcxGridDBColumn;
|
||
Tv2Column24: TcxGridDBBandedColumn;
|
||
Tv2Column25: TcxGridDBBandedColumn;
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure Tv2CellDblClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
procedure Tv3CellClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
procedure Panel4DblClick(Sender: TObject);
|
||
procedure Tv2CustomDrawCell(Sender: TcxCustomGridTableView;
|
||
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
|
||
var ADone: Boolean);
|
||
procedure Tv2Column21CustomDrawCell(Sender: TcxCustomGridTableView;
|
||
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
|
||
var ADone: Boolean);
|
||
procedure cxGridDBColumn7HeaderClick(Sender: TObject);
|
||
procedure Tv0CellDblClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
procedure cxGridDBColumn9HeaderClick(Sender: TObject);
|
||
procedure SH1DblClick(Sender: TObject);
|
||
procedure Label1Click(Sender: TObject);
|
||
procedure SaveGSClick(Sender: TObject);
|
||
procedure Tv2Column9CustomDrawCell(Sender: TcxCustomGridTableView;
|
||
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
|
||
var ADone: Boolean);
|
||
procedure Tv2Column23CustomDrawCell(Sender: TcxCustomGridTableView;
|
||
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
|
||
var ADone: Boolean);
|
||
procedure Tv2Column4CompareRowValuesForCellMerging(
|
||
Sender: TcxGridColumn; ARow1: TcxGridDataRow;
|
||
AProperties1: TcxCustomEditProperties; const AValue1: Variant;
|
||
ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties;
|
||
const AValue2: Variant; var AAreEqual: Boolean);
|
||
procedure Tv2Column5CompareRowValuesForCellMerging(
|
||
Sender: TcxGridColumn; ARow1: TcxGridDataRow;
|
||
AProperties1: TcxCustomEditProperties; const AValue1: Variant;
|
||
ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties;
|
||
const AValue2: Variant; var AAreEqual: Boolean);
|
||
procedure Tv2Column2CompareRowValuesForCellMerging(
|
||
Sender: TcxGridColumn; ARow1: TcxGridDataRow;
|
||
AProperties1: TcxCustomEditProperties; const AValue1: Variant;
|
||
ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties;
|
||
const AValue2: Variant; var AAreEqual: Boolean);
|
||
procedure Tv2Column22CompareRowValuesForCellMerging(
|
||
Sender: TcxGridColumn; ARow1: TcxGridDataRow;
|
||
AProperties1: TcxCustomEditProperties; const AValue1: Variant;
|
||
ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties;
|
||
const AValue2: Variant; var AAreEqual: Boolean);
|
||
procedure Tv2Column3CompareRowValuesForCellMerging(
|
||
Sender: TcxGridColumn; ARow1: TcxGridDataRow;
|
||
AProperties1: TcxCustomEditProperties; const AValue1: Variant;
|
||
ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties;
|
||
const AValue2: Variant; var AAreEqual: Boolean);
|
||
private
|
||
|
||
{ Private declarations }
|
||
procedure InitGrid();
|
||
public
|
||
FMainid,FConNo,FFlag:String;
|
||
|
||
end;
|
||
|
||
var
|
||
frmZGJBMX230727: TfrmZGJBMX230727;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_RTFun,U_JYDayListGang,U_Fun,U_JYOrderCDList,U_JYOrderCDGangList;
|
||
|
||
{$R *.dfm}
|
||
|
||
|
||
procedure TfrmZGJBMX230727.InitGrid();
|
||
begin
|
||
try
|
||
ADOQueryMain.DisableControls;
|
||
with ADOQueryMain do
|
||
begin
|
||
Filtered := False;
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('exec P_View_JD_Main :MainId');
|
||
Parameters.ParamByName('MainId').Value:=FMainid;
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryMain, ClientDataSet0);
|
||
SInitCDSData20(ADOQueryMain, ClientDataSet0);
|
||
with ADOQueryMain do
|
||
begin
|
||
Filtered := False;
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('exec P_View_JD_PB :OrderNO');
|
||
Parameters.ParamByName('OrderNO').Value:=FConNo;
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryMain, ClientDataSet1);
|
||
SInitCDSData20(ADOQueryMain, ClientDataSet1);
|
||
with ADOQueryMain do
|
||
begin
|
||
Filtered := False;
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('exec P_View_JD :MainId');
|
||
Parameters.ParamByName('MainId').Value:=FMainid;
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryMain, ClientDataSet2);
|
||
SInitCDSData20(ADOQueryMain, ClientDataSet2);
|
||
with ADOQueryMain do
|
||
begin
|
||
Filtered := False;
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('exec P_View_JD_HZ :MainId');
|
||
//sql.Add('exec P_Print_CRJD_HZ :MainId');
|
||
Parameters.ParamByName('MainId').Value:=FMainid;
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryMain, ClientDataSet3);
|
||
SInitCDSData20(ADOQueryMain, ClientDataSet3);
|
||
|
||
with ADOQueryMain do
|
||
begin
|
||
Filtered := False;
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('exec P_Print_CRJD_CD :MainId');
|
||
Parameters.ParamByName('MainId').Value:=FMainid;
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryMain, ClientDataSet5);
|
||
SInitCDSData20(ADOQueryMain, ClientDataSet5);
|
||
RichEdit1.Text:=Trim(ClientDataSet5.fieldbyname('HZCD').AsString);
|
||
RichEdit1.Text:=RichEdit1.Text+#13+#13+Trim(ClientDataSet5.fieldbyname('ZJCD1').AsString);
|
||
RichEdit1.Text:=RichEdit1.Text+#13+#13+Trim(ClientDataSet5.fieldbyname('ZJCD2').AsString);
|
||
|
||
finally
|
||
ADOQueryMain.EnableControls;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
|
||
Action := caHide;
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.FormShow(Sender: TObject);
|
||
begin
|
||
if Trim(DName)='ADMIN' then SaveGS.Visible:=True;
|
||
ReadCxGridAll(trim(self.Caption)+'0', Tv0);
|
||
ReadCxGridAll(trim(self.Caption)+'1', Tv1);
|
||
ReadCxGridAll(trim(self.Caption)+'3', Tv3);
|
||
ReadCxBandedGridAll(trim(self.Caption)+'2', Tv2);
|
||
InitGrid();
|
||
FFlag:='';
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmZGJBMX230727:=nil;
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.Tv2CellDblClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
var
|
||
fPrintFile: string;
|
||
Txt, fImagePath: string;
|
||
Moudle: THandle;
|
||
Makebar: TMakebar;
|
||
Mixtext: TMixtext;
|
||
begin
|
||
if Tv2.Controller.FocusedColumn.Tag=1 then
|
||
begin
|
||
try
|
||
frmJYDayListGang:=TfrmJYDayListGang.Create(Application);
|
||
with frmJYDayListGang do
|
||
begin
|
||
FAPID:=Trim(Self.ClientDataSet2.fieldbyname('APID').AsString);
|
||
if ShowModal=1 then
|
||
begin
|
||
|
||
end;
|
||
end;
|
||
finally
|
||
frmJYDayListGang.Free;
|
||
end;
|
||
|
||
end else
|
||
if Tv2.Controller.FocusedColumn.Tag=2 then
|
||
begin
|
||
if ClientDataSet2.IsEmpty then
|
||
Exit;
|
||
ExportFtErpFile('<27><><EFBFBD><EFBFBD><EFBFBD>ֿ<EFBFBD><D6BF>뵥.rmf', ADOQueryTemp);
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select TOp 1 * from WFB_MJJY A where A.APID='''+Trim(ClientDataSet2.fieldbyname('APID').AsString)+''' and isnull(RKOrdID,'''')<>'''' ');
|
||
sql.Add(' and isnull(Mjstr4,'''')='''+Trim(ClientDataSet2.fieldbyname('Ganghao').AsString)+'''');
|
||
open;
|
||
end;
|
||
with ClientDataSet2 do
|
||
begin
|
||
|
||
with ADOQueryPrint do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add(' exec P_Print_RKMDGangNo2 ');
|
||
SQL.Add(' @RKOrdID=''' + Trim(ADOQueryTemp.fieldbyname('RKOrdID').AsString) + '''');
|
||
Open;
|
||
end;
|
||
try
|
||
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
||
@Makebar := GetProcAddress(Moudle, 'Make');
|
||
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
||
Txt := Trim(ADOQueryPrint.fieldbyname('RKOrdID').AsString);
|
||
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
|
||
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
|
||
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
|
||
if FileExists(fImagePath) then
|
||
DeleteFile(fImagePath);
|
||
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
|
||
except
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
exit;
|
||
end;
|
||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD><EFBFBD>ֿ<EFBFBD><D6BF>뵥.rmf';
|
||
if FileExists(fPrintFile) then
|
||
begin
|
||
RMVariables['QRBARCODE'] := fImagePath;
|
||
RM2.LoadFromFile(fPrintFile);
|
||
//Rm2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);
|
||
// RM2.PrintReport;
|
||
RM2.ShowReport;
|
||
end
|
||
else
|
||
begin
|
||
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
|
||
end;
|
||
|
||
end else
|
||
if Tv2.Controller.FocusedColumn.Tag=3 then
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select TOp 1 * from WFB_MJJY A where A.APID='''+Trim(ClientDataSet2.fieldbyname('APID').AsString)+''' and isnull(RKOrdID,'''')<>'''' ');
|
||
sql.Add(' and isnull(Mjstr4,'''')='''+Trim(ClientDataSet2.fieldbyname('Ganghao').AsString)+'''');
|
||
open;
|
||
end;
|
||
|
||
with ADOQueryPrint do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add(' exec P_Print_RKMDGangNo_CK ');
|
||
SQL.Add(' @RKOrdID=''' + Trim(ADOQueryTemp.fieldbyname('RKOrdID').AsString) + '''');
|
||
Open;
|
||
end;
|
||
try
|
||
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
||
@Makebar := GetProcAddress(Moudle, 'Make');
|
||
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
||
Txt := Trim(ADOQueryPrint.fieldbyname('RKOrdID').AsString);
|
||
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
|
||
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
|
||
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
|
||
if FileExists(fImagePath) then
|
||
DeleteFile(fImagePath);
|
||
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
|
||
except
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
exit;
|
||
end;
|
||
ExportFtErpFile('<27><><EFBFBD><EFBFBD><EFBFBD>뵥GJ.rmf', ADOQueryTemp);
|
||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD><EFBFBD>뵥GJ.rmf';
|
||
if FileExists(fPrintFile) then
|
||
begin
|
||
RMVariables['QRBARCODE'] := fImagePath;
|
||
RM2.LoadFromFile(fPrintFile);
|
||
//Rm2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);
|
||
// RM2.PrintReport;
|
||
RM2.ShowReport;
|
||
end
|
||
else
|
||
begin
|
||
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end else
|
||
if Tv2.Controller.FocusedColumn.Tag=4 then
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select TOp 1 * from WFB_MJJY A where A.APID='''+Trim(ClientDataSet2.fieldbyname('APID').AsString)+''' and isnull(RKOrdID,'''')<>'''' ');
|
||
sql.Add(' and isnull(Mjstr4,'''')='''+Trim(ClientDataSet2.fieldbyname('Ganghao').AsString)+'''');
|
||
open;
|
||
end;
|
||
|
||
with ADOQueryPrint do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add(' exec P_Print_RKMDGangNo_KC ');
|
||
SQL.Add(' @RKOrdID=''' + Trim(ADOQueryTemp.fieldbyname('RKOrdID').AsString) + '''');
|
||
Open;
|
||
end;
|
||
try
|
||
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
||
@Makebar := GetProcAddress(Moudle, 'Make');
|
||
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
||
Txt := Trim(ADOQueryPrint.fieldbyname('RKOrdID').AsString);
|
||
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
|
||
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
|
||
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
|
||
if FileExists(fImagePath) then
|
||
DeleteFile(fImagePath);
|
||
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
|
||
except
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
exit;
|
||
end;
|
||
ExportFtErpFile('<27><><EFBFBD><EFBFBD><EFBFBD>뵥.rmf', ADOQueryTemp);
|
||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD><EFBFBD>뵥.rmf';
|
||
if FileExists(fPrintFile) then
|
||
begin
|
||
RMVariables['QRBARCODE'] := fImagePath;
|
||
RM2.LoadFromFile(fPrintFile);
|
||
//Rm2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);
|
||
// RM2.PrintReport;
|
||
RM2.ShowReport;
|
||
end
|
||
else
|
||
begin
|
||
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.Tv3CellClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
begin
|
||
ClientDataSet2.Filter:='PRTColor='''+Trim(ClientDataSet3.fieldbyname('PRTColor').AsString)+'''';
|
||
ClientDataSet2.Filtered:=True;
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.Panel4DblClick(Sender: TObject);
|
||
begin
|
||
ClientDataSet2.Filtered:=False;
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.Tv2CustomDrawCell(Sender: TcxCustomGridTableView;
|
||
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
|
||
var ADone: Boolean);
|
||
var
|
||
Fsunhao:Double;
|
||
begin
|
||
Fsunhao := AViewInfo.GridRecord.Values[TcxGridDBBandedTableView(Sender).GetColumnByFieldName('PCBFB').Index];
|
||
//if VarToStr(Fsunhao)='' then Exit;
|
||
|
||
{if Fsunhao >=15 then
|
||
ACanvas.Brush.Color := $4763FF
|
||
else
|
||
if (Fsunhao >=10) and (Fsunhao <15) then
|
||
begin
|
||
ACanvas.Brush.Color := $00FFFF
|
||
end
|
||
else
|
||
begin
|
||
|
||
end; }
|
||
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.Tv2Column21CustomDrawCell(
|
||
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
var
|
||
id:Integer;
|
||
Fsunhao10:string;
|
||
Fsunhao:Double;
|
||
begin
|
||
|
||
Id:=TV2.GetColumnByFieldName('PCBFB').Index;
|
||
|
||
if Id<0 then Exit;
|
||
|
||
|
||
|
||
if AViewInfo.GridRecord.Values[Id]=null then Exit;
|
||
|
||
Fsunhao10:=AViewInfo.GridRecord.Values[Id];
|
||
|
||
Fsunhao:=StrToInt(Fsunhao10);
|
||
if Fsunhao >=15 then
|
||
ACanvas.Brush.Color := $4763FF
|
||
else
|
||
if (Fsunhao >=10) and (Fsunhao <15) then
|
||
begin
|
||
ACanvas.Brush.Color := $00FFFF
|
||
end
|
||
else
|
||
begin
|
||
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.cxGridDBColumn7HeaderClick(Sender: TObject);
|
||
var
|
||
fPrintFile: string;
|
||
EngMoney: string;
|
||
FEWMID,Txt, fImagePath: string;
|
||
Moudle: THandle;
|
||
Makebar: TMakebar;
|
||
Mixtext: TMixtext;
|
||
begin
|
||
if ClientDataSet0.IsEmpty then
|
||
Exit;
|
||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><>Ⱦ<EFBFBD><C8BE><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD>.rmf';
|
||
Panel5.Visible:=True;
|
||
Panel5.Refresh;
|
||
ExportFtErpFile('<27><>Ⱦ<EFBFBD><C8BE><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD>.rmf', ADOQueryPrint);
|
||
with ADOQueryPrint do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select A.*,B.* ');
|
||
sql.Add(',OrderDetail=(select Top 1 OrderDetail from PBOrder_Main B where B.OrderNo=A.ConNo and B.Valid=''Y'')');
|
||
sql.Add(' from SalesContract_Main A inner join SalesContract_Sub B on A.MainId=B.MainId ');
|
||
sql.Add(' where A.Conno=''' + Trim(ClientDataSet0.fieldbyname('Conno').AsString) + '''');
|
||
sql.Add(' order by B.XHNo ');
|
||
Open;
|
||
end;
|
||
|
||
FEWMID:=Trim(ADOQueryPrint.fieldbyname('Mainid').AsString);
|
||
|
||
try
|
||
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
||
@Makebar := GetProcAddress(Moudle, 'Make');
|
||
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
||
Txt := Trim(FEWMID);
|
||
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 FileExists(fPrintFile) then
|
||
begin
|
||
// RMVariables['EngMoney']:=EngMoney;
|
||
//RMVariables['enddate']:=enddate.DateTime;
|
||
RMVariables['QRBARCODE'] := fImagePath;
|
||
RM2.LoadFromFile(fPrintFile);
|
||
RM2.ShowReport;
|
||
Panel5.Visible:=False;
|
||
end
|
||
else
|
||
begin
|
||
Panel5.Visible:=False;
|
||
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.Tv0CellDblClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
var
|
||
fPrintFile: string;
|
||
EngMoney,LBName: string;
|
||
FEWMID,Txt, fImagePath: string;
|
||
Moudle: THandle;
|
||
Makebar: TMakebar;
|
||
Mixtext: TMixtext;
|
||
begin
|
||
if Tv0.Controller.FocusedColumn.Tag=1 then
|
||
begin
|
||
if ClientDataSet0.IsEmpty then
|
||
Exit;
|
||
|
||
LBName := 'Ⱦ<><C8BE>ָʾ<D6B8><CABE>';
|
||
Panel5.Visible:=True;
|
||
Panel5.Refresh;
|
||
ExportFtErpFile(Trim(LBName) + '.rmf', ADOQueryTemp);
|
||
with ADOQueryPrint do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('exec P_Print_Order');
|
||
sql.add('@mainID=' + quotedstr(trim(ClientDataSet0.fieldbyname('MainID').AsString)));
|
||
Open;
|
||
end;
|
||
|
||
FEWMID:=Trim(ClientDataSet0.fieldbyname('Mainid').AsString);
|
||
|
||
try
|
||
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
||
@Makebar := GetProcAddress(Moudle, 'Make');
|
||
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
||
Txt := Trim(FEWMID);
|
||
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;
|
||
|
||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(LBName) + '.rmf';
|
||
if FileExists(fPrintFile) then
|
||
begin
|
||
RMVariables['QRBARCODE'] := fImagePath;
|
||
RM2.LoadFromFile(fPrintFile);
|
||
//RMVariables['SYRName'] := Trim(SYRName);
|
||
RM2.ShowReport;
|
||
Panel5.Visible:=False;
|
||
end
|
||
else
|
||
begin
|
||
Panel5.Visible:=False;
|
||
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + ExtractFilePath(Application.ExeName) + 'Report\' + Trim(LBName) + '.rmf'), '<27><>ʾ', 0);
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.cxGridDBColumn9HeaderClick(Sender: TObject);
|
||
var
|
||
fPrintFile: string;
|
||
Txt, fImagePath: string;
|
||
Moudle: THandle;
|
||
Makebar: TMakebar;
|
||
Mixtext: TMixtext;
|
||
begin
|
||
if ClientDataSet0.IsEmpty then
|
||
exit;
|
||
if trim(ClientDataSet0.fieldbyname('LBName').AsString) = '' then
|
||
exit;
|
||
Panel5.Visible:=True;
|
||
Panel5.Refresh;
|
||
with ADOQueryPrint do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('exec P_Print_Cs_Roll ');
|
||
sql.Add('@mainID=''' + trim(ClientDataSet0.fieldbyname('mainID').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;
|
||
ExportFtErpFile10(Trim(ClientDataSet0.fieldbyname('LBName').AsString) + '.rmf', ADOQueryTemp);
|
||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report10\' + Trim(ClientDataSet0.fieldbyname('LBName').AsString) + '.rmf';
|
||
if FileExists(fPrintFile) then
|
||
begin
|
||
RMVariables['QRBARCODE'] := fImagePath;
|
||
RM2.LoadFromFile(fPrintFile);
|
||
RM2.ShowReport;
|
||
Panel5.Visible:=False;
|
||
end
|
||
else
|
||
begin
|
||
Panel5.Visible:=False;
|
||
Application.MessageBox(PChar('û<><C3BB><EFBFBD>ҵ<EFBFBD>' + trim(fPrintFile)), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.SH1DblClick(Sender: TObject);
|
||
begin
|
||
try
|
||
frmJYOrderCDList:=TfrmJYOrderCDList.Create(Application);
|
||
with frmJYOrderCDList do
|
||
begin
|
||
FMainid:=Trim(Self.ClientDataSet0.fieldbyname('Mainid').AsString);
|
||
if ShowModal=1 then
|
||
begin
|
||
|
||
end;
|
||
end;
|
||
finally
|
||
frmJYOrderCDList.Free;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.Label1Click(Sender: TObject);
|
||
begin
|
||
try
|
||
frmJYOrderCDGangList:=TfrmJYOrderCDGangList.Create(Application);
|
||
with frmJYOrderCDGangList do
|
||
begin
|
||
FMainid:=Trim(Self.ClientDataSet0.fieldbyname('Mainid').AsString);
|
||
if ShowModal=1 then
|
||
begin
|
||
|
||
end;
|
||
end;
|
||
finally
|
||
frmJYOrderCDGangList.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.SaveGSClick(Sender: TObject);
|
||
begin
|
||
if Trim(DName)='ADMIN' then
|
||
begin
|
||
Panel5.Visible:=True;
|
||
Panel5.Refresh;
|
||
WriteCxGridAll(trim(self.Caption)+'0', Tv0,ADOQueryCmd,ADOQueryTemp);
|
||
WriteCxGridAll(trim(self.Caption)+'1', Tv1,ADOQueryCmd,ADOQueryTemp);
|
||
WriteCxGridAll(trim(self.Caption)+'3', Tv3,ADOQueryCmd,ADOQueryTemp);
|
||
WriteCxBandedGridAll(trim(self.Caption)+'2', Tv2,ADOQueryCmd,ADOQueryTemp);
|
||
Panel5.Visible:=False;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.Tv2Column9CustomDrawCell(
|
||
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
var
|
||
id:Integer;
|
||
Fsunhao10:string;
|
||
Fsunhao:Double;
|
||
begin
|
||
|
||
Id:=TV2.GetColumnByFieldName('jyshStr').Index;
|
||
|
||
if Id<0 then Exit;
|
||
|
||
if AViewInfo.GridRecord.Values[Id]=null then Exit;
|
||
|
||
Fsunhao10:=AViewInfo.GridRecord.Values[Id];
|
||
|
||
Fsunhao:=StrToFloat(Fsunhao10);
|
||
if Fsunhao >=3 then
|
||
ACanvas.Brush.Color:= $00FFFF
|
||
else
|
||
begin
|
||
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.Tv2Column23CustomDrawCell(
|
||
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
var
|
||
id:Integer;
|
||
Fsunhao10:string;
|
||
Fsunhao:Double;
|
||
begin
|
||
|
||
Id:=TV2.GetColumnByFieldName('KPJSPC').Index;
|
||
|
||
if Id<0 then Exit;
|
||
|
||
if AViewInfo.GridRecord.Values[Id]=null then Exit;
|
||
|
||
Fsunhao10:=AViewInfo.GridRecord.Values[Id];
|
||
|
||
Fsunhao:=StrToFloat(Fsunhao10);
|
||
if Fsunhao<0 then Fsunhao:=Fsunhao*(-1);
|
||
if Fsunhao >=5 then
|
||
ACanvas.Brush.Color:= $00FFFF
|
||
else
|
||
begin
|
||
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.Tv2Column4CompareRowValuesForCellMerging(
|
||
Sender: TcxGridColumn; ARow1: TcxGridDataRow;
|
||
AProperties1: TcxCustomEditProperties; const AValue1: Variant;
|
||
ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties;
|
||
const AValue2: Variant; var AAreEqual: Boolean);
|
||
var
|
||
i,j:Integer;
|
||
begin
|
||
i:=tv2.GetColumnByFieldName('RCGangNo').Index;
|
||
j:=tv2.GetColumnByFieldName('KpPS').Index;
|
||
if (ARow1.Values[i]=ARow2.Values[i]) and (ARow1.Values[j]=ARow2.Values[j]) then
|
||
begin
|
||
AAreEqual:=True;
|
||
end else
|
||
begin
|
||
AAreEqual:=False;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.Tv2Column5CompareRowValuesForCellMerging(
|
||
Sender: TcxGridColumn; ARow1: TcxGridDataRow;
|
||
AProperties1: TcxCustomEditProperties; const AValue1: Variant;
|
||
ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties;
|
||
const AValue2: Variant; var AAreEqual: Boolean);
|
||
var
|
||
i,j:Integer;
|
||
begin
|
||
i:=tv2.GetColumnByFieldName('RCGangNo').Index;
|
||
j:=tv2.GetColumnByFieldName('KpQty').Index;
|
||
if (ARow1.Values[i]=ARow2.Values[i]) and (ARow1.Values[j]=ARow2.Values[j]) then
|
||
begin
|
||
AAreEqual:=True;
|
||
end else
|
||
begin
|
||
AAreEqual:=False;
|
||
end;
|
||
end;
|
||
|
||
|
||
procedure TfrmZGJBMX230727.Tv2Column2CompareRowValuesForCellMerging(
|
||
Sender: TcxGridColumn; ARow1: TcxGridDataRow;
|
||
AProperties1: TcxCustomEditProperties; const AValue1: Variant;
|
||
ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties;
|
||
const AValue2: Variant; var AAreEqual: Boolean);
|
||
var
|
||
i,j:Integer;
|
||
begin
|
||
i:=tv2.GetColumnByFieldName('PRTEColor').Index;
|
||
j:=tv2.GetColumnByFieldName('KPDate').Index;
|
||
if (ARow1.Values[i]=ARow2.Values[i]) and (ARow1.Values[j]=ARow2.Values[j]) then
|
||
begin
|
||
AAreEqual:=True;
|
||
end else
|
||
begin
|
||
AAreEqual:=False;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.Tv2Column22CompareRowValuesForCellMerging(
|
||
Sender: TcxGridColumn; ARow1: TcxGridDataRow;
|
||
AProperties1: TcxCustomEditProperties; const AValue1: Variant;
|
||
ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties;
|
||
const AValue2: Variant; var AAreEqual: Boolean);
|
||
var
|
||
i,j:Integer;
|
||
begin
|
||
i:=tv2.GetColumnByFieldName('PRTColor').Index;
|
||
j:=tv2.GetColumnByFieldName('PRTEColor').Index;
|
||
if (ARow1.Values[i]=ARow2.Values[i]) and (ARow1.Values[j]=ARow2.Values[j]) then
|
||
begin
|
||
AAreEqual:=True;
|
||
end else
|
||
begin
|
||
AAreEqual:=False;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmZGJBMX230727.Tv2Column3CompareRowValuesForCellMerging(
|
||
Sender: TcxGridColumn; ARow1: TcxGridDataRow;
|
||
AProperties1: TcxCustomEditProperties; const AValue1: Variant;
|
||
ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties;
|
||
const AValue2: Variant; var AAreEqual: Boolean);
|
||
var
|
||
i,j:Integer;
|
||
begin
|
||
i:=tv2.GetColumnByFieldName('KPDate').Index;
|
||
j:=tv2.GetColumnByFieldName('RCGangNo').Index;
|
||
if (ARow1.Values[i]=ARow2.Values[i]) and (ARow1.Values[j]=ARow2.Values[j]) then
|
||
begin
|
||
AAreEqual:=True;
|
||
end else
|
||
begin
|
||
AAreEqual:=False;
|
||
end;
|
||
end;
|
||
|
||
end.
|
||
|