|
|
unit u_op_seae_hbl;
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
uses
|
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,IdFTP,IdFTPCommon,DateUtils,
|
|
|
Dialogs, bsSkinCtrls, ExtCtrls, DB, ADODB, dxExEdtr, dxCntner, dxTL,
|
|
|
dxDBCtrl, dxDBGrid, ComCtrls, bsSkinTabs, RxLookup, StdCtrls, Mask,inifiles,
|
|
|
DBCtrls, wwdbdatetimepicker, wwdblook, u_op_sate, u_fee, u_op_card, Menus,
|
|
|
dxDBTLCl, dxGrClms, bsdbctrls, XPMenu, wwdbedit, Wwdotdot, Wwdbcomb,
|
|
|
Grids, Wwdbigrd, Wwdbgrid, FtpCli, IdBaseComponent, IdComponent,
|
|
|
IdTCPConnection, IdTCPClient, IdIntercept, IdLogBase, IdLogEvent,DBClient,
|
|
|
IdAntiFreezeBase, IdAntiFreeze, dxEditor, dxEdLib, dxDBELib, DBCtrlsEh
|
|
|
,ComObj,DsWebService,SoapHTTPClient,InvokeRegistry,XMLIntf,XMLDoc, xmldom, Xmlxform,
|
|
|
msxmldom, bsSkinBoxCtrls,DyxtService,Service,jfczService,myService,CaragtQuery_Cxwl,IdHTTP,
|
|
|
kbmMemTable, cxControls, cxContainer, cxCheckListBox, cxDBCheckListBox,
|
|
|
OleCtrls, SHDocVw, IdExplicitTLSClientServerBase, cxTreeView;
|
|
|
|
|
|
type
|
|
|
Tfrm_op_seae_hbl = class(TForm)
|
|
|
Panel2: TPanel;
|
|
|
bsSkinButton7: TbsSkinButton;
|
|
|
bsSkinButton6: TbsSkinButton;
|
|
|
bsSkinButton11: TbsSkinButton;
|
|
|
bsSkinButton2: TbsSkinButton;
|
|
|
bsSkinButton4: TbsSkinButton;
|
|
|
bsSkinButton3: TbsSkinButton;
|
|
|
bsSkinButton5: TbsSkinButton;
|
|
|
bsSkinButton38: TbsSkinButton;
|
|
|
Notebook1: TNotebook;
|
|
|
t_op_seae: TADOQuery;
|
|
|
t_op_seae1: TDataSource;
|
|
|
dxDBGrid1: TdxDBGrid;
|
|
|
bsSkinPageControl1: TbsSkinPageControl;
|
|
|
bsSkinTabSheet1: TbsSkinTabSheet;
|
|
|
bsSkinPanel1: TbsSkinPanel;
|
|
|
Label2: TLabel;
|
|
|
Label38: TLabel;
|
|
|
DBEdit9: TDBEdit;
|
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column2: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column6: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column7: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column8: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column10: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column11: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column12: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column13: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column14: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column15: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column16: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column18: TdxDBGridMaskColumn;
|
|
|
dxDBGrid1Column19: TdxDBGridDateColumn;
|
|
|
dxDBGrid1Column17: TdxDBGridColumn;
|
|
|
XPMenu1: TXPMenu;
|
|
|
PopupMenu2: TPopupMenu;
|
|
|
N10: TMenuItem;
|
|
|
N11: TMenuItem;
|
|
|
N14: TMenuItem;
|
|
|
N13: TMenuItem;
|
|
|
N12: TMenuItem;
|
|
|
N15: TMenuItem;
|
|
|
N16: TMenuItem;
|
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
|
Label47: TLabel;
|
|
|
Label49: TLabel;
|
|
|
Label51: TLabel;
|
|
|
wwDBDateTimePicker9: TwwDBDateTimePicker;
|
|
|
wwDBDateTimePicker11: TwwDBDateTimePicker;
|
|
|
Edit3: TEdit;
|
|
|
wwDBDateTimePicker12: TwwDBDateTimePicker;
|
|
|
Label52: TLabel;
|
|
|
wwDBDateTimePicker13: TwwDBDateTimePicker;
|
|
|
Label53: TLabel;
|
|
|
bsSkinButton8: TbsSkinButton;
|
|
|
bsSkinButton12: TbsSkinButton;
|
|
|
Label60: TLabel;
|
|
|
DBEdit10: TDBEdit;
|
|
|
dxDBGrid1Column65: TdxDBGridColumn;
|
|
|
dxDBGrid1Column67: TdxDBGridColumn;
|
|
|
Label48: TLabel;
|
|
|
wwDBComboBox2: TwwDBComboBox;
|
|
|
bsSkinGroupBox4: TbsSkinGroupBox;
|
|
|
Label54: TLabel;
|
|
|
Label55: TLabel;
|
|
|
Label56: TLabel;
|
|
|
Label59: TLabel;
|
|
|
t_op_ctn1: TDataSource;
|
|
|
t_op_ctn: TADOQuery;
|
|
|
strngfld_op_ctnDSDesigner2: TStringField;
|
|
|
strngfld_op_ctnDSDesigner6: TStringField;
|
|
|
intgrfld_op_ctnDSDesigner5: TIntegerField;
|
|
|
strngfld_op_ctnDSDesigner7: TStringField;
|
|
|
strngfld_op_ctnDSDesigner8: TStringField;
|
|
|
intgrfld_op_ctnDSDesigner9: TIntegerField;
|
|
|
strngfld_op_ctnDSDesigner10: TStringField;
|
|
|
bcdfld_op_ctnDSDesigner11: TBCDField;
|
|
|
bcdfld_op_ctnDSDesigner12: TBCDField;
|
|
|
strngfld_op_ctnDSDesigner14: TStringField;
|
|
|
intgrfld_op_ctnTEU: TIntegerField;
|
|
|
strngfld_op_ctnDSDesigner4: TStringField;
|
|
|
strngfld_op_ctnDSDesigner3: TStringField;
|
|
|
atncfld_op_ctnctn_id: TAutoIncField;
|
|
|
strngfld_op_ctnDSDesigner: TStringField;
|
|
|
wwDBComboBox3: TwwDBComboBox;
|
|
|
t_op_ctnDSDesigner: TStringField;
|
|
|
t_op_ctnPO: TStringField;
|
|
|
t_op_ctnSKU: TStringField;
|
|
|
t_op_ctnSKU2: TStringField;
|
|
|
t_op_ctnUN: TStringField;
|
|
|
t_op_ctnHTS: TStringField;
|
|
|
t_op_ctnDSDesigner2: TStringField;
|
|
|
t_op_ctnDSDesigner3: TBCDField;
|
|
|
bsSkinPanel5: TbsSkinPanel;
|
|
|
bsSkinGroupBox5: TbsSkinGroupBox;
|
|
|
DBMemo3: TDBMemo;
|
|
|
bsSkinGroupBox7: TbsSkinGroupBox;
|
|
|
DBMemo1: TDBMemo;
|
|
|
bsSkinGroupBox8: TbsSkinGroupBox;
|
|
|
DBMemo2: TDBMemo;
|
|
|
t_op_ctnDSDesigner4: TStringField;
|
|
|
SaveDialog1: TSaveDialog;
|
|
|
t_code_shiper: TADOQuery;
|
|
|
t_code_shiper1: TDataSource;
|
|
|
FtpClient1: TFtpClient;
|
|
|
IdFTP1: TIdFTP;
|
|
|
IdLogEvent1: TIdLogEvent;
|
|
|
Label77: TLabel;
|
|
|
Label78: TLabel;
|
|
|
dxDBGrid1Column20: TdxDBGridColumn;
|
|
|
dxDBGrid1Column21: TdxDBGridColumn;
|
|
|
Label80: TLabel;
|
|
|
Edit1: TEdit;
|
|
|
Label217: TLabel;
|
|
|
wwDBLookupCombo26: TwwDBLookupCombo;
|
|
|
Label218: TLabel;
|
|
|
Edit8: TEdit;
|
|
|
Label81: TLabel;
|
|
|
Edit2: TEdit;
|
|
|
wwDBLookupCombo21: TwwDBLookupCombo;
|
|
|
RxDBLookupCombo15: TRxDBLookupCombo;
|
|
|
wwDBLookupCombo20: TwwDBLookupCombo;
|
|
|
Label58: TLabel;
|
|
|
wwDBComboBoxOP: TwwDBComboBox;
|
|
|
bsSkinButton25: TbsSkinButton;
|
|
|
wwDBLookupCombo3: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo52: TwwDBLookupCombo;
|
|
|
wwDBLookupCombo17: TwwDBLookupCombo;
|
|
|
OpenDialog1: TOpenDialog;
|
|
|
Panel1: TPanel;
|
|
|
bsSkinGroupBox6: TbsSkinGroupBox;
|
|
|
wwDBGrid1: TwwDBGrid;
|
|
|
bsSkinPanel9: TbsSkinPanel;
|
|
|
bsSkinButton56: TbsSkinButton;
|
|
|
bsSkinButton57: TbsSkinButton;
|
|
|
bsSkinButton58: TbsSkinButton;
|
|
|
bsSkinButton59: TbsSkinButton;
|
|
|
btnMarks: TbsSkinButton;
|
|
|
btnDesc: TbsSkinButton;
|
|
|
btnSeal: TbsSkinButton;
|
|
|
bsSkinButton15: TbsSkinButton;
|
|
|
wwDBLookupCombo16: TwwDBLookupCombo;
|
|
|
wwDBLookupComboctn: TwwDBLookupCombo;
|
|
|
wwDBComboBoxOwner: TwwDBComboBox;
|
|
|
PopupMenu5: TPopupMenu;
|
|
|
ABC1: TMenuItem;
|
|
|
kbmMemTable1: TkbmMemTable;
|
|
|
kbmMemTable1StringField: TStringField;
|
|
|
kbmMemTable1StringField2: TStringField;
|
|
|
kbmMemTable1IntegerField: TIntegerField;
|
|
|
kbmMemTable1StringField3: TStringField;
|
|
|
kbmMemTable1FloatField: TFloatField;
|
|
|
kbmMemTable1FloatField2: TFloatField;
|
|
|
kbmMemTable1StringField4: TStringField;
|
|
|
kbmMemTable1StringField5: TStringField;
|
|
|
kbmMemTable1StringField6: TStringField;
|
|
|
Label36: TLabel;
|
|
|
Label37: TLabel;
|
|
|
Label44: TLabel;
|
|
|
DBEdit38: TDBEdit;
|
|
|
DBEdit39: TDBEdit;
|
|
|
wwDBDateTimePicker1: TwwDBDateTimePicker;
|
|
|
N24: TMenuItem;
|
|
|
N26: TMenuItem;
|
|
|
dxDBGrid1Column22: TdxDBGridColumn;
|
|
|
dxDBGrid1Column24: TdxDBGridColumn;
|
|
|
dxDBGrid1Column25: TdxDBGridColumn;
|
|
|
dxDBGrid1Column26: TdxDBGridColumn;
|
|
|
bsSkinButton34: TbsSkinButton;
|
|
|
dxDBGrid1Column28: TdxDBGridColumn;
|
|
|
Label14: TLabel;
|
|
|
Edit9: TEdit;
|
|
|
Label19: TLabel;
|
|
|
Edit11: TEdit;
|
|
|
bsSkinGroupBox9: TbsSkinGroupBox;
|
|
|
Label169: TLabel;
|
|
|
Label63: TLabel;
|
|
|
Label64: TLabel;
|
|
|
Label65: TLabel;
|
|
|
Label66: TLabel;
|
|
|
Label67: TLabel;
|
|
|
Label69: TLabel;
|
|
|
DBEdit81: TDBEdit;
|
|
|
wwDBLookupCombo61: TwwDBLookupCombo;
|
|
|
DBEdit82: TDBEdit;
|
|
|
DBEdit83: TDBEdit;
|
|
|
DBMemo38: TDBMemo;
|
|
|
DBMemo39: TDBMemo;
|
|
|
bsSkinButton47: TbsSkinButton;
|
|
|
bsSkinButton24: TbsSkinButton;
|
|
|
Label5: TLabel;
|
|
|
DBEdit8: TDBEdit;
|
|
|
Label11: TLabel;
|
|
|
DBEdit12: TDBEdit;
|
|
|
Label3: TLabel;
|
|
|
DBEdit1: TDBEdit;
|
|
|
Label21: TLabel;
|
|
|
wwDBComboBox1: TwwDBComboBox;
|
|
|
Label28: TLabel;
|
|
|
DBEdit26: TDBEdit;
|
|
|
Label31: TLabel;
|
|
|
DBEdit27: TDBEdit;
|
|
|
bsSkinGroupBox1: TbsSkinGroupBox;
|
|
|
DBMemo4: TDBMemo;
|
|
|
Label1: TLabel;
|
|
|
DBEdit2: TDBEdit;
|
|
|
DBMemo5: TDBMemo;
|
|
|
Label4: TLabel;
|
|
|
bsSkinButton1: TbsSkinButton;
|
|
|
Label6: TLabel;
|
|
|
bsSkinButton9: TbsSkinButton;
|
|
|
DBMemo6: TDBMemo;
|
|
|
Label7: TLabel;
|
|
|
DBEdit3: TDBEdit;
|
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
|
procedure Panel2Resize(Sender: TObject);
|
|
|
procedure bsSkinButton7Click(Sender: TObject);
|
|
|
procedure bsSkinButton6Click(Sender: TObject);
|
|
|
procedure bsSkinButton2Click(Sender: TObject);
|
|
|
procedure bsSkinButton11Click(Sender: TObject);
|
|
|
procedure bsSkinButton4Click(Sender: TObject);
|
|
|
procedure bsSkinButton3Click(Sender: TObject);
|
|
|
procedure bsSkinButton38Click(Sender: TObject);
|
|
|
procedure FormShow(Sender: TObject);
|
|
|
procedure N10Click(Sender: TObject);
|
|
|
procedure N14Click(Sender: TObject);
|
|
|
procedure N12Click(Sender: TObject);
|
|
|
procedure N16Click(Sender: TObject);
|
|
|
procedure bsSkinButton8Click(Sender: TObject);
|
|
|
procedure bsSkinButton12Click(Sender: TObject);
|
|
|
procedure bsSkinButton56Click(Sender: TObject);
|
|
|
procedure bsSkinButton57Click(Sender: TObject);
|
|
|
procedure bsSkinButton58Click(Sender: TObject);
|
|
|
procedure bsSkinButton59Click(Sender: TObject);
|
|
|
procedure wwDBLookupComboctnChange(Sender: TObject);
|
|
|
procedure btnMarksClick(Sender: TObject);
|
|
|
procedure btnDescClick(Sender: TObject);
|
|
|
procedure t_op_ctnAfterInsert(DataSet: TDataSet);
|
|
|
procedure wwDBGrid1ColEnter(Sender: TObject);
|
|
|
procedure t_op_ctn_detailBeforeInsert(DataSet: TDataSet);
|
|
|
procedure RxDBLookupCombo16Change(Sender: TObject);
|
|
|
procedure RxDBLookupCombo1Change(Sender: TObject);
|
|
|
procedure t_op_ctnBeforePost(DataSet: TDataSet);
|
|
|
procedure btnSealClick(Sender: TObject);
|
|
|
procedure wwDBComboBoxOPDropDown(Sender: TObject);
|
|
|
procedure bsSkinButton15Click(Sender: TObject);
|
|
|
procedure bsSkinButton47Click(Sender: TObject);
|
|
|
procedure bsSkinButton24Click(Sender: TObject);
|
|
|
procedure bsSkinButton25Click(Sender: TObject);
|
|
|
procedure bsSkinButton26Click(Sender: TObject);
|
|
|
procedure wwDBLookupCombo3Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo3Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo52Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo52Exit(Sender: TObject);
|
|
|
procedure wwDBLookupCombo17Change(Sender: TObject);
|
|
|
procedure wwDBLookupCombo17Exit(Sender: TObject);
|
|
|
procedure t_op_seaeBeforeEdit(DataSet: TDataSet);
|
|
|
procedure t_op_ctnBeforeEdit(DataSet: TDataSet);
|
|
|
procedure t_op_seaeBeforeDelete(DataSet: TDataSet);
|
|
|
procedure t_op_seaeAfterInsert(DataSet: TDataSet);
|
|
|
procedure t_op_ctnNewRecord(DataSet: TDataSet);
|
|
|
procedure dxDBGrid1CustomDraw(Sender: TObject; ACanvas: TCanvas;
|
|
|
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
|
|
|
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
|
|
|
AFocused: Boolean; var ADone: Boolean);
|
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
|
procedure t_op_ctnAfterPost(DataSet: TDataSet);
|
|
|
private
|
|
|
{ Private declarations }
|
|
|
AbortTransfer: Boolean;
|
|
|
TransferrignData: Boolean;
|
|
|
BytesToTransfer: LongWord;
|
|
|
STime: TDateTime;
|
|
|
mServiceSoap_Ds:DsWebServiceSoap;
|
|
|
mHttpRIO_ds:THTTPRIO;
|
|
|
|
|
|
mServiceSoap_dy:DyxtServiceSoap;
|
|
|
mServiceSoap_yzh:ServiceSoap;
|
|
|
mServiceSoap_zc:CaragtQuery_CxwlSoap;
|
|
|
mHttpRIO_dy,mHttpRIO_yzh,mHttpRIO_zc:THTTPRIO;
|
|
|
function DoPost(_URL:string;_Referer:string;_Order:TStringList):String; //<2F><><EFBFBD><EFBFBD>ҳ<EFBFBD><D2B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|
|
procedure SetState(response:string) ;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
procedure getwebservice_dy; //<2F><>ȡ
|
|
|
procedure getwebservice_yzh; //<2F><>ȡ
|
|
|
procedure getwebservice_zc; //<2F><>ȡ
|
|
|
procedure dewebservice; //<2F>ر<EFBFBD>
|
|
|
|
|
|
procedure GetdyczInfo_dy(s_caragt,s_key,s_billno,bsno:String);
|
|
|
procedure GetdyczInfo_yzh(s_caragt,s_key,s_billno,bsno:String);
|
|
|
procedure GetdyczInfo_jfcz(s_caragt,s_key,s_billno,bsno:String);
|
|
|
procedure GetdyczInfo_lhcz(s_caragt,s_key,s_billno,bsno:String);
|
|
|
procedure GetdyczInfo_zc(s_caragt,s_key,s_billno,bsno:String);
|
|
|
procedure getssczinfor(mblno:string);
|
|
|
|
|
|
|
|
|
procedure setconcolor; //<2F><><EFBFBD>ÿؼ<C3BF><D8BC><EFBFBD><EFBFBD><EFBFBD>ɫ
|
|
|
function getCtnAfr(code:string):string;
|
|
|
function getPkgAfr(code:string):string;
|
|
|
function formatAfrstr(str:string):string;
|
|
|
procedure PutToDebugLog(Operation, S1: String);
|
|
|
function isEditrue(DataSet:TDataSet): boolean;
|
|
|
|
|
|
public
|
|
|
{ Public declarations }
|
|
|
dbserver:string;
|
|
|
edi_addseai:boolean;
|
|
|
function GetStrChar(str:String):string;
|
|
|
function GetStrChar_1(str:String):string;
|
|
|
function GetpkgsEdi(pkgs: String): String;
|
|
|
procedure UpdateCTN(BSNO:STRING);
|
|
|
procedure getwebservice_ds;
|
|
|
function IsZhongwen(Str: String): Boolean;
|
|
|
function CreateSIEdiFile_XML:TStrings;
|
|
|
function GetCtnCode(ctnkind,ctnsize:String): String;
|
|
|
|
|
|
procedure UpdateInfor;
|
|
|
|
|
|
procedure SelectReciveData(bsno,mblno:string);
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
var
|
|
|
frm_op_seae_hbl: Tfrm_op_seae_hbl;
|
|
|
AverageSpeed: Double = 0;
|
|
|
STATE,EVENT,_S:String;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
uses u_main,u_data_share, my_sys_function, u_sys_progress;
|
|
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.SetState(response: string);
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_seae_hbl.DoPost(_URL:string;_Referer:string;_order:TStringList):String;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.getwebservice_dy;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.getwebservice_zc;
|
|
|
begin
|
|
|
try
|
|
|
mHttpRIO_zc:=THTTPRIO.Create(nil);
|
|
|
mHttpRIO_zc.WSDLLocation:='http://www.cmlog.com.cn:8003/cmlwebservice/CaragtQuery_Cxwl.asmx?WSDL';
|
|
|
mHttpRIO_zc.URL:='http://www.cmlog.com.cn:8003/cmlwebservice/CaragtQuery_Cxwl.asmx';
|
|
|
mHttpRIO_zc.Port:='CaragtQuery_CxwlSoap';
|
|
|
mHttpRIO_zc.Service:='CaragtQuery_Cxwl';
|
|
|
mHttpRIO_zc.HTTPWebNode.UseUTF8InHeader:=true;
|
|
|
mServiceSoap_zc:=mHttpRIO_zc as CaragtQuery_CxwlSoap;
|
|
|
InvRegistry.RegisterInvokeOptions(TypeInfo(CaragtQuery_CxwlSoap),ioDocument );//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>
|
|
|
except
|
|
|
on E:Exception do
|
|
|
begin
|
|
|
ShowMessage(e.Message);
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.getwebservice_yzh;
|
|
|
begin
|
|
|
try
|
|
|
mHttpRIO_yzh:=THTTPRIO.Create(nil);
|
|
|
mHttpRIO_yzh.WSDLLocation:='http://222.173.95.170:78/Service.asmx?WSDL';
|
|
|
mHttpRIO_yzh.URL:='http://222.173.95.170:78/Service.asmx';
|
|
|
mHttpRIO_yzh.Port:='ServiceSoap';
|
|
|
mHttpRIO_yzh.Service:='WebService';
|
|
|
mHttpRIO_yzh.HTTPWebNode.UseUTF8InHeader:=true;
|
|
|
mServiceSoap_yzh:=mHttpRIO_yzh as ServiceSoap;
|
|
|
InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap),ioDocument );//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>
|
|
|
|
|
|
|
|
|
{
|
|
|
mHttpRIO_yzh:=THTTPRIO.Create(nil);
|
|
|
mHttpRIO_yzh.WSDLLocation:='http://www.eimskipdepot.com:78/Service.asmx?WSDL';
|
|
|
mHttpRIO_yzh.URL:='http://www.eimskipdepot.com:78/Service.asmx';
|
|
|
mHttpRIO_yzh.Port:='ServiceSoap';
|
|
|
mHttpRIO_yzh.Service:='WebService';
|
|
|
mHttpRIO_yzh.HTTPWebNode.UseUTF8InHeader:=true;
|
|
|
mServiceSoap_yzh:=mHttpRIO_yzh as ServiceSoap;
|
|
|
InvRegistry.RegisterInvokeOptions(TypeInfo(ServiceSoap),ioDocument );//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>
|
|
|
}
|
|
|
except
|
|
|
on E:Exception do
|
|
|
begin
|
|
|
ShowMessage(e.Message);
|
|
|
exit;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.dewebservice;
|
|
|
begin
|
|
|
mHttpRIO_dy.Free;
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.GetdyczInfo_jfcz(s_caragt,s_key,s_billno,bsno:String);
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.GetdyczInfo_dy(s_caragt,s_key,s_billno,bsno:String);
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.getssczinfor(mblno:string);//qqctu<74><75>ȡ<EFBFBD>˵ֱ<CBB5><D6B1><EFBFBD><EFBFBD>ͱ<EFBFBD><CDB1><EFBFBD><EFBFBD><EFBFBD>Ϣ
|
|
|
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.GetdyczInfo_zc(s_caragt,s_key,s_billno,bsno:String);
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.GetdyczInfo_yzh(s_caragt,s_key,s_billno,bsno:String);
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.GetdyczInfo_lhcz(s_caragt,s_key,s_billno,bsno:String);
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.setconcolor;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.UpdateInfor;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
function Tfrm_op_seae_hbl.GetStrChar_1(str:String):string;
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
result:='';
|
|
|
if str='' then exit;
|
|
|
for i:=1 to length(Str) do begin
|
|
|
if str[i] in ['0','1','2','3','4','5','6','7','8','9','.']
|
|
|
then
|
|
|
else
|
|
|
result:=result+str[i];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_seae_hbl.GetStrChar(str:String):string;
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
result:='';
|
|
|
if str='' then exit;
|
|
|
for i:=1 to length(Str) do begin
|
|
|
if str[i] in ['0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z']
|
|
|
then
|
|
|
else
|
|
|
result:=result+str[i];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_seae_hbl.IsZhongwen(Str: String): Boolean;
|
|
|
var
|
|
|
i:Integer;
|
|
|
begin
|
|
|
Result:=false;
|
|
|
if Str='' then Exit;
|
|
|
for i:=1 to Length(Str) do begin
|
|
|
// if Str[i]>Chr(127) then begin
|
|
|
if bytetype(Str[i],1)<>mbsinglebyte then begin
|
|
|
Result:=True;
|
|
|
Exit;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_seae_hbl.GetCtnCode(ctnkind,ctnsize:String): String;
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
ctnsize:=StringReplace(ctnsize,'''','''''',[rfReplaceAll]);
|
|
|
|
|
|
try
|
|
|
with aQuery do
|
|
|
begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('Select <20><><EFBFBD><EFBFBD>EDI<44><49><EFBFBD><EFBFBD> EDI<44><49><EFBFBD><EFBFBD> from t_code_ctn where <20><><EFBFBD><EFBFBD>='''+ctnkind+''' and <20>ߴ<EFBFBD>='''+ctnsize+'''');
|
|
|
Open;
|
|
|
if not IsEmpty then
|
|
|
Result:=Trim(FieldByName('EDI<44><49><EFBFBD><EFBFBD>').asstring)
|
|
|
else
|
|
|
Result:='';
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_seae_hbl.GetpkgsEdi(pkgs: String): String;
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add('Select Edi<64><69><EFBFBD><EFBFBD> from t_code_package where <20><><EFBFBD><EFBFBD>='''+pkgs+'''');
|
|
|
Open;
|
|
|
if IsEmpty then
|
|
|
Result:=''
|
|
|
else
|
|
|
Result:=FieldByName('Edi<64><69><EFBFBD><EFBFBD>').AsString;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
function Tfrm_op_seae_hbl.isEditrue(DataSet:TDataSet): boolean;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_seae_hbl.CreateSIEdiFile_XML:TStrings;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.getwebservice_ds;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.UpdateCTN(BSNO:STRING);
|
|
|
var
|
|
|
aAdoQuery:TAdoQuery;
|
|
|
p:Integer;
|
|
|
w,c:Double;
|
|
|
begin
|
|
|
aAdoQuery:=CreateAdoQuery;
|
|
|
with aAdoQuery do
|
|
|
try
|
|
|
close;
|
|
|
sql.clear;
|
|
|
sql.add('select sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD>, sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD> from t_op_ctn_HBL');
|
|
|
sql.add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
|
|
|
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=BSNO;
|
|
|
open;First;
|
|
|
if not IsEmpty then
|
|
|
begin
|
|
|
t_op_seae.Edit;
|
|
|
p:=FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger;
|
|
|
w:=FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
|
|
|
c:=FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
|
|
|
t_op_seae.Post;
|
|
|
close; sql.clear;
|
|
|
sql.add('Update t_op_seae_hbl set <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
|
|
|
sql.add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
|
|
|
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=p;
|
|
|
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=w;
|
|
|
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=c;
|
|
|
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=BSNO;
|
|
|
ExecSQL;
|
|
|
end;
|
|
|
finally
|
|
|
Free;
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton5Click(Sender: TObject);
|
|
|
begin
|
|
|
close;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.FormClose(Sender: TObject;
|
|
|
var Action: TCloseAction);
|
|
|
begin
|
|
|
savereggrid(dxdbgrid1,caption);
|
|
|
frm_op_seae_hbl.Hide;
|
|
|
frm_op_seae_hbl.ManualFloat(frm_op_seae_hbl.BoundsRect );
|
|
|
frm_main.freeTabs('frm_op_seae_hbl');
|
|
|
action:=cafree;
|
|
|
frm_op_seae_hbl:=nil;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.Panel2Resize(Sender: TObject);
|
|
|
var
|
|
|
i:integer;
|
|
|
begin
|
|
|
i:=round(Panel2.Width/9);
|
|
|
bsSkinButton7.Width:=i;
|
|
|
bsSkinButton6.Width:=i;
|
|
|
bsSkinButton11.Width:=i;
|
|
|
bsSkinButton2.Width:=i;
|
|
|
bsSkinButton4.Width:=i;
|
|
|
bsSkinButton3.Width:=i;
|
|
|
bsSkinButton38.Width:=i;
|
|
|
bsSkinButton25.Width:=i;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton7Click(Sender: TObject);
|
|
|
begin
|
|
|
table_Prior(t_op_seae);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton6Click(Sender: TObject);
|
|
|
begin
|
|
|
table_next(t_op_seae);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton2Click(Sender: TObject);
|
|
|
begin
|
|
|
table_post(t_op_seae);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton11Click(Sender: TObject);
|
|
|
var
|
|
|
answer:TModalResult;
|
|
|
begin
|
|
|
if bsSkinButton11.Caption='<27>༭<EFBFBD><EFBFBD>' then
|
|
|
begin
|
|
|
Notebook1.PageIndex:=1;
|
|
|
bsSkinButton11.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>';
|
|
|
//DBEdit3.OnChange(Sender);
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
BEGIN
|
|
|
answer:=messagedlg( '<27><><EFBFBD><EFBFBD><EFBFBD>Ѿ<EFBFBD><D1BE>ģ<DEB8><C4A3>Ƿ棿',mtWarning,mbYesNoCancel,0);
|
|
|
if answer=mrYes then
|
|
|
begin
|
|
|
t_op_seae.post;
|
|
|
end;
|
|
|
if answer=mrNo then
|
|
|
begin
|
|
|
t_op_seae.cancel;
|
|
|
end;
|
|
|
if answer=mrCancel then
|
|
|
begin
|
|
|
exit;
|
|
|
end;
|
|
|
END;
|
|
|
Notebook1.PageIndex:=0;
|
|
|
bsSkinButton11.Caption:='<27>༭<EFBFBD><EFBFBD>';
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton4Click(Sender: TObject);
|
|
|
var
|
|
|
i,j:Integer;
|
|
|
strno:string;
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
if t_op_seae.FieldByName('EDI״̬').AsString='<27>ѷ<EFBFBD><D1B7><EFBFBD>' then begin
|
|
|
showmessage('<27>ѷ<EFBFBD><D1B7>Ͳ<EFBFBD><CDB2><EFBFBD><EFBFBD><EFBFBD>,ɾ<><C9BE><EFBFBD><EFBFBD>');
|
|
|
Exit;
|
|
|
end;
|
|
|
|
|
|
j:=dxDBGrid1.SelectedCount;
|
|
|
strno:=' where 1=2 ';
|
|
|
for i:=0 to j-1 do
|
|
|
begin
|
|
|
t_op_seae.GotoBookmark(pointer(dxDBGrid1.selectedrows[i]));
|
|
|
strno:=strno+' or <20><><EFBFBD><EFBFBD>='''+t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'''';
|
|
|
end;
|
|
|
|
|
|
|
|
|
if MessageDlg('ȷ<><C8B7>Ҫɾ<D2AA><C9BE>ѡ<EFBFBD>е<EFBFBD>'+inttostr(j)+'Ʊҵ<C6B1><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',mtWarning,[mbyes,mbno],0)=mryes then begin
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add(' delete from t_op_ctn_detail_edi where ctn_id in (select ctn_id from t_op_ctn_HBL '+strno+')');
|
|
|
ExecSQL;
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add(' delete from t_op_ctn_HBL '+strno);
|
|
|
ExecSQL;
|
|
|
|
|
|
Close;SQL.Clear;
|
|
|
SQL.Add(' delete from t_op_seae_hbl '+strno);
|
|
|
ExecSQL;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
t_op_seae.Refresh;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton3Click(Sender: TObject);
|
|
|
begin
|
|
|
table_cancel(t_op_seae);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton38Click(Sender: TObject);
|
|
|
var
|
|
|
book1:Tbookmark;
|
|
|
begin
|
|
|
book1:=t_op_seae.GetBookmark;
|
|
|
t_op_seae.Refresh;
|
|
|
t_op_seae.GotoBookmark(book1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.FormShow(Sender: TObject);
|
|
|
var
|
|
|
inifile1:Tinifile;
|
|
|
s:string;
|
|
|
FromFileName,ToFileName:string;
|
|
|
begin
|
|
|
Notebook1.PageIndex:=0;
|
|
|
|
|
|
|
|
|
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
|
|
|
s:=inifile1.ReadString('database','Data Source','');
|
|
|
|
|
|
if Pos('\',s)>0 then
|
|
|
begin
|
|
|
dbserver:=Copy(s,1,Pos('\',s)-1);
|
|
|
end
|
|
|
else
|
|
|
if Pos(';',s)>0 then
|
|
|
begin
|
|
|
dbserver:=Copy(s,1,Pos(';',s)-1);
|
|
|
end
|
|
|
else
|
|
|
dbserver:=s;
|
|
|
|
|
|
|
|
|
FromFileName:='\\'+dbserver+'\<5C>ൺ<EFBFBD><E0B5BA><EFBFBD><EFBFBD>\midas.dll';
|
|
|
ToFileName:=ExtractFilePath(application.ExeName)+'midas.dll';
|
|
|
|
|
|
if not FileExists(ExtractFilePath(application.ExeName)+'midas.dll') then
|
|
|
CopyFile(pChar(FromFileName),pChar(ToFileName),False);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if not ASSIGNED(frm_sys_progress) then
|
|
|
frm_sys_progress:=tfrm_sys_progress.Create(self);
|
|
|
frm_sys_progress.bsSkinGauge1.ProgressText:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ⱥ<C8BA><F2A1A3A1><EFBFBD>';
|
|
|
frm_sys_progress.Show;
|
|
|
frm_sys_progress.bsSkinGauge1.MaxValue:=28;
|
|
|
frm_sys_progress.bsSkinGauge1.MinValue:=0;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=0;
|
|
|
frm_sys_progress.Update;
|
|
|
|
|
|
|
|
|
|
|
|
//ί<>б<EFBFBD><D0B1>Ŵ<EFBFBD><C5B4><EFBFBD>
|
|
|
|
|
|
|
|
|
t_op_seae.Close;
|
|
|
t_op_seae.SQL.clear;
|
|
|
t_op_seae.SQL.Add('select top 100 * from t_op_seae_hbl where '
|
|
|
+'(¼<><C2BC><EFBFBD><EFBFBD>='+''''+employee+''''+') order by ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD> desc ');
|
|
|
t_op_seae.open;
|
|
|
t_op_ctn.Open;
|
|
|
frm_sys_progress.bsSkinGauge1.Value:=frm_sys_progress.bsSkinGauge1.Value+1;
|
|
|
loadreggrid(dxdbgrid1,false,caption);
|
|
|
|
|
|
frm_sys_progress.close;
|
|
|
frm_sys_progress:=nil;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.N10Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_no(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.N14Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid_view_all(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.N12Click(Sender: TObject);
|
|
|
begin
|
|
|
update_grid(dxdbgrid1,213);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.N16Click(Sender: TObject);
|
|
|
begin
|
|
|
grid_save_xls(dxdbgrid1);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton8Click(Sender: TObject);
|
|
|
VAR
|
|
|
str:widestring;
|
|
|
begin
|
|
|
str:='where '+open_data('0001','¼<><C2BC><EFBFBD><EFBFBD>','no','no','no','no');
|
|
|
|
|
|
|
|
|
|
|
|
if Edit3.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit3.text+'%'+'''';
|
|
|
if Edit1.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5> like '+''''+'%'+Edit1.text+'%'+'''';
|
|
|
|
|
|
if wwDBComboBox2.text<>''then
|
|
|
str:=str+' and EDI״̬ like '+''''+wwDBComboBox2.text+'''';
|
|
|
|
|
|
if wwDBDateTimePicker9.text<>''then
|
|
|
str:=str+' and ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker9.text+'''';
|
|
|
if wwDBDateTimePicker12.text<>''then
|
|
|
str:=str+' and ¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker12.text+'''';
|
|
|
if wwDBDateTimePicker11.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>='+''''+wwDBDateTimePicker11.text+'''';
|
|
|
if wwDBDateTimePicker13.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><='+''''+wwDBDateTimePicker13.text+'''';
|
|
|
|
|
|
if wwDBComboBoxOP.text<>''then
|
|
|
str:=str+' and ¼<><C2BC><EFBFBD><EFBFBD>='+''''+wwDBComboBoxOP.text+'''';
|
|
|
|
|
|
|
|
|
|
|
|
str:=query_tiaojian(1,str,'<27><><EFBFBD><EFBFBD>','ģ<><C4A3>',wwDBLookupCombo26.text);
|
|
|
|
|
|
str:=query_tiaojian(1,str,'<27><><EFBFBD><EFBFBD>','ģ<><C4A3>',Edit8.text);
|
|
|
|
|
|
str:=query_tiaojian(1,str,'<27><><EFBFBD><EFBFBD>˾','ģ<><C4A3>',Edit9.text);
|
|
|
str:=query_tiaojian(1,str,'ж<><D0B6><EFBFBD><EFBFBD>','ģ<><C4A3>',Edit11.text);
|
|
|
|
|
|
|
|
|
if Edit2.text<>''then
|
|
|
str:=str+' and <20><><EFBFBD><EFBFBD> in ( select <20><><EFBFBD><EFBFBD> from t_op_ctn_HBL where <20><><EFBFBD><EFBFBD> like '+''''+'%'+Edit2.text+'%'+''')';
|
|
|
|
|
|
t_op_seae.close;
|
|
|
t_op_seae.sql.clear;
|
|
|
t_op_seae.sql.add('select * from t_op_seae_hbl '+str+' order by <20><><EFBFBD>ᵥ<EFBFBD><E1B5A5>');
|
|
|
t_op_seae.open;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton12Click(Sender: TObject);
|
|
|
begin
|
|
|
Edit3.text:='';
|
|
|
Edit8.text:='';
|
|
|
Edit2.text:='';
|
|
|
Edit1.text:='';
|
|
|
wwDBDateTimePicker9.text:='';
|
|
|
wwDBDateTimePicker12.text:='';
|
|
|
wwDBDateTimePicker11.text:='';
|
|
|
wwDBDateTimePicker13.text:='';
|
|
|
wwDBComboBox2.Text:='';
|
|
|
wwDBLookupCombo26.Clear;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton56Click(Sender: TObject);
|
|
|
begin
|
|
|
t_op_ctn.insert;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton57Click(Sender: TObject);
|
|
|
begin
|
|
|
table_post(t_op_ctn);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton58Click(Sender: TObject);
|
|
|
begin
|
|
|
table_delete(t_op_ctn);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton59Click(Sender: TObject);
|
|
|
begin
|
|
|
table_cancel(t_op_ctn);
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.wwDBLookupComboctnChange(Sender: TObject);
|
|
|
begin
|
|
|
if (t_op_ctn.State=dsedit)or(t_op_ctn.State=dsinsert) then
|
|
|
begin
|
|
|
if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',wwDBLookupComboctn.text,[]) then
|
|
|
begin
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_ctn['<27>ߴ<EFBFBD>']:=frm_data_share.t_code_ctn['<27>ߴ<EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:='';
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
|
|
|
t_op_ctn['<27>ߴ<EFBFBD>']:='';
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.btnMarksClick(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_ctn1,'<27><>ͷ');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.btnDescClick(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_ctn1,'<27><><EFBFBD><EFBFBD>');
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.t_op_ctnAfterInsert(DataSet: TDataSet);
|
|
|
begin
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=t_op_seae1.DataSet['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=1;
|
|
|
t_op_ctn['TEU']:=0;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.wwDBGrid1ColEnter(Sender: TObject);
|
|
|
begin
|
|
|
if (wwDBGrid1.GetActiveField.FieldName='<27><>ͷ') then begin
|
|
|
// bsSkinPanel4.Visible:=true;
|
|
|
// Label62.Visible:=True;
|
|
|
// Label61.Visible:=false;
|
|
|
// DBMemo5.Visible:=true;
|
|
|
// DBMemo4.Visible:=false;
|
|
|
end else if (wwDBGrid1.GetActiveField.FieldName='<27><><EFBFBD><EFBFBD>') then begin
|
|
|
// bsSkinPanel4.Visible:=true;
|
|
|
// Label62.Visible:=false;
|
|
|
// Label61.Visible:=True;
|
|
|
// DBMemo5.Visible:=false;
|
|
|
// DBMemo4.Visible:=true;
|
|
|
end else begin
|
|
|
// bsSkinPanel4.Visible:=False;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
function Tfrm_op_seae_hbl.getCtnAfr(code: string): string;
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
result:='';
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;
|
|
|
SQL.Text:='select AFR<46><52><EFBFBD><EFBFBD> from t_code_ctn where <20><><EFBFBD><EFBFBD>='''+code+'''';
|
|
|
Open;
|
|
|
Result:=aQuery.fieldbyname('AFR<46><52><EFBFBD><EFBFBD>').AsString;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_seae_hbl.getPkgAfr(code: string): string;
|
|
|
var
|
|
|
aQuery:TADOQuery;
|
|
|
begin
|
|
|
result:='';
|
|
|
aQuery:=CreateAdoQuery;
|
|
|
try
|
|
|
with aQuery do begin
|
|
|
Close;
|
|
|
SQL.Text:='select AFR<46><52><EFBFBD><EFBFBD> from t_code_package where <20><><EFBFBD><EFBFBD>='''+code+'''';
|
|
|
Open;
|
|
|
if not IsEmpty then
|
|
|
Result:=aQuery.fieldbyname('AFR<46><52><EFBFBD><EFBFBD>').AsString;
|
|
|
end;
|
|
|
finally
|
|
|
FreeAndNil(aQuery);
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
function Tfrm_op_seae_hbl.formatAfrstr(str: string): string;
|
|
|
begin
|
|
|
|
|
|
Result:=Trim(str);
|
|
|
Result:=StringReplace(Result,'&','&',[rfReplaceAll]);
|
|
|
Result:=StringReplace(Result,'<','<',[rfReplaceAll]);
|
|
|
Result:=StringReplace(Result,'"','"',[rfReplaceAll]);
|
|
|
Result:=StringReplace(Result,'>','>',[rfReplaceAll]);
|
|
|
Result:=StringReplace(Result,'''',''',[rfReplaceAll]);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.t_op_ctn_detailBeforeInsert(DataSet: TDataSet);
|
|
|
begin
|
|
|
if t_op_ctn.State in [dsedit,dsinsert] then t_op_ctn.Post;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.RxDBLookupCombo16Change(Sender: TObject);
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit)then
|
|
|
begin
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.RxDBLookupCombo1Change(Sender: TObject);
|
|
|
begin
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit)then
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.PutToDebugLog(Operation, S1: String);
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.t_op_ctnBeforePost(DataSet: TDataSet);
|
|
|
begin
|
|
|
if frm_data_share.t_code_ctn.Locate('<27><><EFBFBD><EFBFBD>',t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring,[]) then
|
|
|
begin
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ'];
|
|
|
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:=frm_data_share.t_code_ctn['<27><><EFBFBD><EFBFBD>'];
|
|
|
t_op_ctn['<27>ߴ<EFBFBD>']:=frm_data_share.t_code_ctn['<27>ߴ<EFBFBD>'];
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ']:='';
|
|
|
t_op_ctn['<27><><EFBFBD><EFBFBD>']:='';
|
|
|
t_op_ctn['<27>ߴ<EFBFBD>']:='';
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.btnSealClick(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_ctn1,'<27><><EFBFBD><EFBFBD>');
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.wwDBComboBoxOPDropDown(Sender: TObject);
|
|
|
var AdoQuery1:TAdoQuery;
|
|
|
begin
|
|
|
wwDBComboBoxOP.items.clear;
|
|
|
AdoQuery1:=CreateAdoQuery;
|
|
|
with AdoQuery1 do
|
|
|
try
|
|
|
Close;sql.Clear;
|
|
|
SQL.Add('select * from t_sys_employee where ״̬=''<27><>ְ''');
|
|
|
SQL.Add('Order by <20><><EFBFBD><EFBFBD>');
|
|
|
Open;first;
|
|
|
while not Eof do
|
|
|
begin
|
|
|
wwDBComboBoxOP.Items.Add(AdoQuery1.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString);
|
|
|
Next;
|
|
|
end;
|
|
|
finally
|
|
|
Free;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton15Click(Sender: TObject);
|
|
|
var
|
|
|
aAdoQuery:TAdoQuery;
|
|
|
bok:Tbookmark;
|
|
|
if_first:boolean;
|
|
|
s1,s2,s3,s4,s:widestring;
|
|
|
|
|
|
|
|
|
begin
|
|
|
if (t_op_ctn.State=dsinsert)or(t_op_ctn.State=dsedit) then
|
|
|
t_op_ctn.post;
|
|
|
|
|
|
aAdoQuery:=CreateAdoQuery;
|
|
|
with aAdoQuery do
|
|
|
try
|
|
|
close;
|
|
|
sql.clear;
|
|
|
sql.add('select sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD>, sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD> from t_op_ctn_HBL');
|
|
|
sql.add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
|
|
|
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
open;First;
|
|
|
if not IsEmpty then
|
|
|
begin
|
|
|
if t_op_seae=nil then
|
|
|
exit;
|
|
|
if (t_op_seae.State=dsinsert)or(t_op_seae.State=dsedit) then
|
|
|
t_op_seae.post;
|
|
|
t_op_seae.Edit;
|
|
|
t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger:=FieldByName('<27><><EFBFBD><EFBFBD>').AsInteger;
|
|
|
t_op_seae['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']
|
|
|
:='SAY TOTAL '+ntoc(FieldByName('<27><><EFBFBD><EFBFBD>').asfloat,true)
|
|
|
+t_op_seae.FieldByName('<27><>װ').asstring+' ONLY.';
|
|
|
|
|
|
t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
|
|
|
t_op_seae.FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat:=FieldByName('<27><><EFBFBD><EFBFBD>').AsFloat;
|
|
|
t_op_seae.Post;
|
|
|
end;
|
|
|
|
|
|
Close;
|
|
|
sql.clear;
|
|
|
sql.add('select <20>ߴ<EFBFBD>,<2C><><EFBFBD><EFBFBD>,sum(<28><><EFBFBD><EFBFBD>) <20><><EFBFBD><EFBFBD> from t_op_ctn_hbl where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
|
|
|
sql.add(' group by <20><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>,<2C>ߴ<EFBFBD>');
|
|
|
Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=t_op_seae.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
|
|
|
Open;First;
|
|
|
while not Eof do
|
|
|
begin
|
|
|
if s='' then
|
|
|
s:=fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'*'+fieldbyname('<27>ߴ<EFBFBD>').asstring+''''+fieldbyname('<27><><EFBFBD><EFBFBD>').asstring
|
|
|
else
|
|
|
s:=s+' '+fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'*'+fieldbyname('<27>ߴ<EFBFBD>').asstring+''''+fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
Next;
|
|
|
end;
|
|
|
t_op_seae.Edit;
|
|
|
t_op_seae['<27><>װ<EFBFBD><D7B0>']:=s;
|
|
|
t_op_seae.Post;
|
|
|
finally
|
|
|
Free;
|
|
|
end;
|
|
|
|
|
|
bok:=t_op_ctn.GetBookmark;
|
|
|
try
|
|
|
t_op_ctn.DisableControls;
|
|
|
t_op_ctn.First;
|
|
|
while not t_op_ctn.Eof do
|
|
|
begin
|
|
|
if 1=1 then
|
|
|
begin
|
|
|
if if_first then
|
|
|
begin
|
|
|
if (Trim(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>'') then
|
|
|
s1:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring
|
|
|
+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring
|
|
|
+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS'
|
|
|
+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
|
|
|
if_first:=false;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if (Trim(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>'') then
|
|
|
s1:=s1+#13#10+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring
|
|
|
+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring
|
|
|
+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS'
|
|
|
+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
|
|
|
end;
|
|
|
end;
|
|
|
t_op_ctn.next;
|
|
|
end;
|
|
|
finally
|
|
|
t_op_seae1.DataSet.Edit;
|
|
|
t_op_seae1.DataSet.FieldByName('<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>').AsString:=s1;
|
|
|
t_op_ctn.EnableControls;
|
|
|
t_op_ctn.GotoBookmark(bok);
|
|
|
end;
|
|
|
if (t_op_seae1.DataSet.State=dsinsert)or(t_op_seae1.DataSet.State=dsedit) then
|
|
|
t_op_seae1.DataSet.post;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton47Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae1,'<27><>ͷ');
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton24Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae1,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton25Click(Sender: TObject);
|
|
|
var
|
|
|
bok:Tbookmark;
|
|
|
if_first:boolean;
|
|
|
s1,s2,s3,s4:string;
|
|
|
|
|
|
begin
|
|
|
if t_op_seae1.DataSet=nil then
|
|
|
exit;
|
|
|
|
|
|
bok:=t_op_ctn.GetBookmark;
|
|
|
try
|
|
|
t_op_ctn.DisableControls;
|
|
|
t_op_ctn.First;
|
|
|
while not t_op_ctn.Eof do
|
|
|
begin
|
|
|
if 1=1 then
|
|
|
begin
|
|
|
if if_first then
|
|
|
begin
|
|
|
if (Trim(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>'') then
|
|
|
s1:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
s2:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring;
|
|
|
s3:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS';
|
|
|
s4:=t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
|
|
|
if_first:=false;
|
|
|
end
|
|
|
else
|
|
|
begin
|
|
|
if (Trim(t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring)<>'') then
|
|
|
s1:=s1+#13#10+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'/'+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring;
|
|
|
s2:=s2+#13#10+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+t_op_ctn.fieldbyname('<27><>װ').asstring;
|
|
|
s3:=s3+#13#10+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'KGS';
|
|
|
s4:=s4+#13#10+t_op_ctn.fieldbyname('<27><><EFBFBD><EFBFBD>').asstring+'CBM';
|
|
|
end;
|
|
|
end;
|
|
|
t_op_ctn.next;
|
|
|
end;
|
|
|
finally
|
|
|
t_op_seae1.DataSet.Edit;
|
|
|
t_op_seae1.DataSet.FieldByName('EDI״̬').AsString:='<27>Ѵ<EFBFBD>ӡ';
|
|
|
t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ').AsString:=s2;
|
|
|
t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=s3;
|
|
|
t_op_seae1.DataSet.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=s4;
|
|
|
t_op_ctn.EnableControls;
|
|
|
t_op_ctn.GotoBookmark(bok);
|
|
|
end;
|
|
|
if (t_op_seae1.DataSet.State=dsinsert)or(t_op_seae1.DataSet.State=dsedit) then
|
|
|
t_op_seae1.DataSet.post;
|
|
|
|
|
|
sys_print('<27><>Ʊ<EFBFBD><C6B1><EFBFBD><EFBFBD>',2,t_op_seae1,t_op_ctn1,nil,nil,nil,nil,nil,nil,nil,nil,nil);
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton26Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae1,'<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>');
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.wwDBLookupCombo3Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae1.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae1.DataSet.state=dsedit)or(t_op_seae1.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
if frm_data_share.t_code_loaport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo3.text,[]) then
|
|
|
begin
|
|
|
t_op_seae1.DataSet['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=frm_data_share.t_code_loaport['EDI<44><49><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.wwDBLookupCombo3Exit(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae1.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae1.DataSet.state=dsedit)or(t_op_seae1.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
if frm_data_share.t_code_loaport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo3.text,[]) then
|
|
|
begin
|
|
|
t_op_seae1.DataSet['װ<>۴<EFBFBD><DBB4><EFBFBD>']:=frm_data_share.t_code_loaport['EDI<44><49><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.wwDBLookupCombo52Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae1.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae1.DataSet.state=dsedit)or(t_op_seae1.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
if frm_data_share.t_code_disport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo52.text,[]) then
|
|
|
begin
|
|
|
t_op_seae1.DataSet['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport['EDI<44><49><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.wwDBLookupCombo52Exit(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae1.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae1.DataSet.state=dsedit)or(t_op_seae1.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
if frm_data_share.t_code_disport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo52.text,[]) then
|
|
|
begin
|
|
|
t_op_seae1.DataSet['ж<><D0B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=frm_data_share.t_code_disport['EDI<44><49><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.wwDBLookupCombo17Change(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae1.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae1.DataSet.state=dsedit)or(t_op_seae1.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
if frm_data_share.t_code_disport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo17.text,[]) then
|
|
|
begin
|
|
|
t_op_seae1.DataSet['Ŀ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=frm_data_share.t_code_disport['EDI<44><49><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.wwDBLookupCombo17Exit(Sender: TObject);
|
|
|
begin
|
|
|
if t_op_seae1.DataSet=nil then
|
|
|
exit;
|
|
|
if (t_op_seae1.DataSet.state=dsedit)or(t_op_seae1.DataSet.state=dsinsert)then
|
|
|
begin
|
|
|
if frm_data_share.t_code_disport.Locate('Ӣ<><D3A2><EFBFBD><EFBFBD>',wwDBLookupCombo17.text,[]) then
|
|
|
begin
|
|
|
t_op_seae1.DataSet['Ŀ<>Ĵ<EFBFBD><C4B4><EFBFBD>']:=frm_data_share.t_code_disport['EDI<44><49><EFBFBD><EFBFBD>'];
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.SelectReciveData(bsno,mblno:string);
|
|
|
var xmldoc:IXMLDocument;
|
|
|
cds:TClientDataSet;
|
|
|
XMLTransformProvider1:TXMLTransformProvider;
|
|
|
s_web: WideString;
|
|
|
i :Integer;
|
|
|
aAdoQuery,bAdoQuery:TAdoQuery;
|
|
|
AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond:Word;
|
|
|
STATUS:string;
|
|
|
begin
|
|
|
cds:=TClientDataSet.Create(nil);
|
|
|
XMLTransformProvider1:=TXMLTransformProvider.Create(NIL);
|
|
|
aAdoQuery:=CreateAdoQuery;
|
|
|
with aAdoQuery do
|
|
|
begin
|
|
|
Close;Sql.Clear;
|
|
|
SQL.Add('Insert Into t_op_state (<28><><EFBFBD><EFBFBD> ,ҵ<><D2B5>״̬ ,<2C>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,¼<><C2BC><EFBFBD><EFBFBD> ,¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>,<2C><>ע)');
|
|
|
SQL.Add('values (:<3A><><EFBFBD><EFBFBD>,:ҵ<><D2B5>״̬ ,:<3A>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>,:<3A><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>,:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,:¼<><C2BC><EFBFBD><EFBFBD>,:¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,:ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>,:<3A><>ע)');
|
|
|
Close;
|
|
|
end;
|
|
|
|
|
|
bAdoQuery:=CreateAdoQuery;
|
|
|
with bAdoQuery do
|
|
|
begin
|
|
|
Close;Sql.Clear;
|
|
|
SQL.Add('select ҵ<><D2B5>״̬,<2C><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1> from t_op_state');
|
|
|
SQL.Add('where <20><><EFBFBD><EFBFBD>=:<3A><><EFBFBD><EFBFBD>');
|
|
|
SQL.Add('order by <20><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1> desc');
|
|
|
end;
|
|
|
|
|
|
|
|
|
try
|
|
|
cds.Active:=false;
|
|
|
xmldoc:=NewXMLDocument;
|
|
|
xmldoc.Encoding:='UTF-8';
|
|
|
xmldoc.Options:=[doNamespaceDecl];
|
|
|
s_web:=mServiceSoap_Ds.LoadCustomMainfastStatus(mblno);
|
|
|
xmldoc.LoadFromXML(s_web);
|
|
|
XMLTransformProvider1.TransformRead.TransformationFile:='\\'+dbserver+'\<5C>ൺ<EFBFBD><E0B5BA><EFBFBD><EFBFBD>\dscustom.xtr';
|
|
|
XMLTransformProvider1.TransformRead.SourceXmlDocument:=xmldoc.GetDOMDocument;
|
|
|
cds.Data:=XMLTransformProvider1.Data;
|
|
|
cds.Active:=true;
|
|
|
with cds do
|
|
|
begin
|
|
|
First;
|
|
|
while not Eof do
|
|
|
begin
|
|
|
aAdoQuery.Close;
|
|
|
aAdoQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=bsno;
|
|
|
if Copy(FieldByName('STATUS').AsString,1,5)='11104' then
|
|
|
STATUS:='<27>յ<EFBFBD><D5B5><EFBFBD><EFBFBD>乤<EFBFBD><E4B9A4><EFBFBD><EFBFBD>Ԥ<EFBFBD><D4A4><EFBFBD><EFBFBD>̬'
|
|
|
else
|
|
|
if Copy(FieldByName('STATUS').AsString,1,5)='11124' then
|
|
|
STATUS:='<27><><EFBFBD>ѷ<EFBFBD><D1B7>в<EFBFBD><D0B2><EFBFBD><EFBFBD><EFBFBD>ƴ<EFBFBD><C6B4>'
|
|
|
else
|
|
|
if Copy(FieldByName('STATUS').AsString,1,5)='15302' then
|
|
|
STATUS:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>洫<EFBFBD><E6B4AB><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>쳣'
|
|
|
else
|
|
|
if Copy(FieldByName('STATUS').AsString,1,5)='21102' then
|
|
|
STATUS:='<27>յ<EFBFBD><D5B5><EFBFBD><EFBFBD>乤<EFBFBD><E4B9A4>δ<EFBFBD><CEB4><EFBFBD><EFBFBD>'
|
|
|
else
|
|
|
if Copy(FieldByName('STATUS').AsString,1,5)='21106' then
|
|
|
STATUS:='<27>ᣨ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>'
|
|
|
else
|
|
|
if Copy(FieldByName('STATUS').AsString,1,5)='21107' then
|
|
|
STATUS:='<27><><EFBFBD>ᣨ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>δ<EFBFBD>ش<F2BAA3B9><D8B4><EFBFBD>'
|
|
|
else
|
|
|
if Copy(FieldByName('STATUS').AsString,1,5)='21301' then
|
|
|
STATUS:='Ԥ<><D4A4><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD><EFBFBD>ɹ<EFBFBD>'
|
|
|
else
|
|
|
if Copy(FieldByName('STATUS').AsString,1,5)='22103' then
|
|
|
STATUS:=' δ<>ҵ<EFBFBD><D2B5><EFBFBD>Ӧ<EFBFBD>ᣨ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD>'
|
|
|
else
|
|
|
if Copy(FieldByName('STATUS').AsString,1,5)='22201' then
|
|
|
STATUS:='Ԥ<><D4A4><EFBFBD>յ<EFBFBD><D5B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>걨<EFBFBD><EAB1A8><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'
|
|
|
else
|
|
|
if Copy(FieldByName('STATUS').AsString,1,5)='23105' then
|
|
|
STATUS:='<27><><EFBFBD>ᣨ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD><EFBFBD>Ѻ<EFBFBD>ע'
|
|
|
else
|
|
|
if Copy(FieldByName('STATUS').AsString,1,5)='23301' then
|
|
|
STATUS:='Ԥ<><D4A4><EFBFBD>յ<EFBFBD><D5B5><EFBFBD><DEB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'
|
|
|
else
|
|
|
if Copy(FieldByName('STATUS').AsString,1,5)='24103' then
|
|
|
STATUS:='<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD>ᣨ<EFBFBD>ˣ<EFBFBD><CBA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
|
|
else
|
|
|
if Copy(FieldByName('STATUS').AsString,1,5)='24301' then
|
|
|
STATUS:='Ԥ<><D4A4><EFBFBD>յ<EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'
|
|
|
else
|
|
|
if Copy(FieldByName('STATUS').AsString,1,5)='25201' then
|
|
|
STATUS:='<27><><EFBFBD><EFBFBD><EFBFBD>˵ֱ<CBB5><D6B1>洫<EFBFBD><E6B4AB><EFBFBD>ɹ<EFBFBD>'
|
|
|
else
|
|
|
if Copy(FieldByName('STATUS').AsString,1,5)='99001' then
|
|
|
STATUS:=' <20><><EFBFBD>IJ<EFBFBD><C4B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƹ淶'
|
|
|
else STATUS:=FieldByName('STATUS').AsString;
|
|
|
|
|
|
aAdoQuery.Parameters.ParamByName('ҵ<><D2B5>״̬').Value:=STATUS;
|
|
|
aAdoQuery.Parameters.ParamByName('<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>').Value:=true;
|
|
|
aAdoQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=employee;
|
|
|
AYear:=StrToInt(Copy(FieldByName('DATESTR').AsString,1,4));
|
|
|
AMonth:=StrToInt(Copy(FieldByName('DATESTR').AsString,5,2));
|
|
|
ADay:=StrToInt(Copy(FieldByName('DATESTR').AsString,7,2));
|
|
|
AHour:=StrToInt(Copy(FieldByName('DATESTR').AsString,9,2));
|
|
|
AMinute:=StrToInt(Copy(FieldByName('DATESTR').AsString,11,2));
|
|
|
aAdoQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>').Value:=EncodeDatetime(AYear,AMonth,ADay,AHour,AMinute,ASecond, AMilliSecond); //DATASTR
|
|
|
aAdoQuery.Parameters.ParamByName('¼<><C2BC><EFBFBD><EFBFBD>').Value:=employee;
|
|
|
aAdoQuery.Parameters.ParamByName('¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').Value:=FormatDateTime('YYYY-MM-DD',Now);
|
|
|
aAdoQuery.Parameters.ParamByName('ϵͳ<CFB5><CDB3><EFBFBD><EFBFBD>').Value:=True;
|
|
|
aAdoQuery.Parameters.ParamByName('<27><>ע').Value:=FieldByName('STATUS').AsString;
|
|
|
aAdoQuery.ExecSQL;
|
|
|
Next;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
finally
|
|
|
bAdoQuery.Close;
|
|
|
bAdoQuery.Parameters.ParamByName('<27><><EFBFBD><EFBFBD>').Value:=bsno;
|
|
|
bAdoQuery.Open;
|
|
|
bAdoQuery.First;
|
|
|
modify_all:=True;
|
|
|
t_op_seae.Edit;
|
|
|
if bAdoQuery.FieldByName('ҵ<><D2B5>״̬').AsString<>'' then
|
|
|
begin
|
|
|
if bAdoQuery.FieldByName('ҵ<><D2B5>״̬').AsString='Ԥ<><D4A4><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD><EFBFBD>ɹ<EFBFBD>' then
|
|
|
t_op_seae.FieldByName('<27><>ǰ״̬').AsString:='<27><>Ҫ<EFBFBD><D2AA><EFBFBD>ݴ<EFBFBD><DDB4><EFBFBD><EFBFBD>ɹ<EFBFBD>'
|
|
|
else
|
|
|
if bAdoQuery.FieldByName('ҵ<><D2B5>״̬').AsString='Ԥ<><D4A4><EFBFBD>յ<EFBFBD><D5B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>걨<EFBFBD><EAB1A8><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>' then
|
|
|
t_op_seae.FieldByName('<27><>ǰ״̬').AsString:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>'
|
|
|
else
|
|
|
if bAdoQuery.FieldByName('ҵ<><D2B5>״̬').AsString='<27>˵ֱȶԽ<C8B6><D4BD><EFBFBD>Ϊ<EFBFBD><CEAA><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
t_op_seae.FieldByName('<27><>ǰ״̬').AsString:='<27><><EFBFBD>˵<EFBFBD>'
|
|
|
else
|
|
|
if bAdoQuery.FieldByName('ҵ<><D2B5>״̬').AsString='<27><><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>' then
|
|
|
t_op_seae.FieldByName('<27><>ǰ״̬').AsString:='<27>ѷ<EFBFBD><D1B7><EFBFBD>'
|
|
|
else
|
|
|
if bAdoQuery.FieldByName('ҵ<><D2B5>״̬').AsString='Ԥ<><D4A4><EFBFBD>յ<EFBFBD><D5B5><EFBFBD><DEB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8>' then
|
|
|
t_op_seae.FieldByName('<27><>ǰ״̬').AsString:='<27><EFBFBD>ͨ<EFBFBD><CDA8>'
|
|
|
end;
|
|
|
t_op_seae.Post;
|
|
|
|
|
|
|
|
|
aAdoQuery.Free;
|
|
|
XMLTransformProvider1.Free;
|
|
|
cds.Free;
|
|
|
bAdoQuery.Free;
|
|
|
modify_all:=False;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.t_op_seaeBeforeEdit(DataSet: TDataSet);
|
|
|
begin
|
|
|
if not modify_all then begin
|
|
|
if t_op_seae.FieldByName('EDI״̬').AsString='<27>ѷ<EFBFBD><D1B7><EFBFBD>' then begin
|
|
|
showmessage('<27>ѷ<EFBFBD><D1B7>Ͳ<EFBFBD><CDB2><EFBFBD><EFBFBD><EFBFBD>,ɾ<><C9BE><EFBFBD><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.t_op_ctnBeforeEdit(DataSet: TDataSet);
|
|
|
begin
|
|
|
if not modify_all then begin
|
|
|
if t_op_seae.FieldByName('EDI״̬').AsString='<27>ѷ<EFBFBD><D1B7><EFBFBD>' then begin
|
|
|
showmessage('<27>ѷ<EFBFBD><D1B7>Ͳ<EFBFBD><CDB2><EFBFBD><EFBFBD>ģ<DEB8>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.t_op_seaeBeforeDelete(DataSet: TDataSet);
|
|
|
begin
|
|
|
if t_op_seae.FieldByName('EDI״̬').AsString='<27>ѷ<EFBFBD><D1B7><EFBFBD>' then begin
|
|
|
showmessage('<27>ѷ<EFBFBD><D1B7>Ͳ<EFBFBD><CDB2><EFBFBD><EFBFBD><EFBFBD>,ɾ<><C9BE><EFBFBD><EFBFBD>');
|
|
|
abort;
|
|
|
end;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.t_op_seaeAfterInsert(DataSet: TDataSet);
|
|
|
begin
|
|
|
t_op_seae.FieldByName('<27><>ǰ״̬').Asstring:='δ<><CEB4><EFBFBD><EFBFBD>';
|
|
|
t_op_seae.FieldByName('ǩ<><C7A9><EFBFBD>ص<EFBFBD>').Asstring:='QINGDAO,CHINA';
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.t_op_ctnNewRecord(DataSet: TDataSet);
|
|
|
begin
|
|
|
t_op_ctn['<27><>װ']:=t_op_seae.FieldByName('<27><>װ').AsString;
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.dxDBGrid1CustomDraw(Sender: TObject;
|
|
|
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
|
|
|
AColumn: TdxDBTreeListColumn; const AText: String; AFont: TFont;
|
|
|
var AColor: TColor; ASelected, AFocused: Boolean; var ADone: Boolean);
|
|
|
begin
|
|
|
if uppercase(ANode.Strings[dxDBGrid1Column28.Index])='TRUE' then begin
|
|
|
AColor:=clRed;
|
|
|
exit;
|
|
|
end;
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton1Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae1,'<27><>ע');
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.bsSkinButton9Click(Sender: TObject);
|
|
|
begin
|
|
|
frm_main.view_momo(t_op_seae1,'<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>');
|
|
|
|
|
|
end;
|
|
|
|
|
|
procedure Tfrm_op_seae_hbl.t_op_ctnAfterPost(DataSet: TDataSet);
|
|
|
begin
|
|
|
bsSkinButton15.OnClick(bsSkinButton15);
|
|
|
end;
|
|
|
|
|
|
end.
|