D7myChuangpin/YSYF/U_CWZK_CX.pas

1434 lines
56 KiB
ObjectPascal
Raw Permalink Normal View History

2024-07-23 20:18:14 +08:00
unit U_CWZK_CX;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmCWZK_CX=class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
ToolButton2: TToolButton;
ADOQueryMain: TADOQuery;
ToolButton1: TToolButton;
RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
Label2: TLabel;
Label6: TLabel;
begdate: TDateTimePicker;
Enddate: TDateTimePicker;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
v2YSMoney: TcxGridDBColumn;
v2YFMoney: TcxGridDBColumn;
v2DQLIRun: TcxGridDBColumn;
v2FKMoney: TcxGridDBColumn;
Label1: TLabel;
ComTaiTou: TEdit;
Label4: TLabel;
FHAddress: TEdit;
Label5: TLabel;
FHdq: TEdit;
v2SKMoney: TcxGridDBColumn;
v2WSKMoney: TcxGridDBColumn;
v2WFKMoney: TcxGridDBColumn;
v2SXMoney: TcxGridDBColumn;
v2TSMoney: TcxGridDBColumn;
v2FYZCMoney: TcxGridDBColumn;
procedure FormDestroy(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure TBCloseClick(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure TBRafreshClick(Sender : TObject);
procedure ToolButton2Click(Sender : TObject);
procedure FactoryNameChange(Sender : TObject);
procedure ToolButton1Click(Sender : TObject);
procedure _PROC_00880FB1(Sender : TObject);
procedure _PROC_00880FE0(Sender : TObject);
procedure _PROC_00880FE8(Sender : TObject);
procedure _PROC_0088104E(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmCWZK_CX: TfrmCWZK_CX;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmCWZK_CX.FormDestroy(Sender : TObject);
begin
(*
00880CD0 33C0 xor eax, eax
* Reference to GlobalVar_00895AD4
|
00880CD2 A3D45A8900 mov dword ptr [$00895AD4], eax
00880CD7 C3 ret
*)
end;
procedure TfrmCWZK_CX.FormClose(Sender : TObject);
begin
(*
00880CD8 C60102 mov byte ptr [ecx], $02
00880CDB C3 ret
*)
end;
procedure TfrmCWZK_CX.TBCloseClick(Sender : TObject);
begin
(*
00880CDC 53 push ebx
00880CDD 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
00880CDF B9080D8800 mov ecx, $00880D08
* Reference to control TfrmCWZK_CX.Tv2 : TcxGridDBTableView
|
00880CE4 8B9328030000 mov edx, [ebx+$0328]
* Possible String Reference to: <><D3A6><EFBFBD>տ<EFBFBD>ͳ<EFBFBD><CDB3>45'
|
00880CEA B81C0D8800 mov eax, $00880D1C
|
00880CEF E8AC6EF3FF call 007B7BA0
00880CF4 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00880CF6 E89D52C2FF call 004A5F98
00880CFB 5B pop ebx
00880CFC C3 ret
*)
end;
procedure TfrmCWZK_CX.FormShow(Sender : TObject);
begin
(*
00880D2C 55 push ebp
00880D2D 8BEC mov ebp, esp
00880D2F 6A00 push $00
00880D31 6A00 push $00
00880D33 6A00 push $00
00880D35 53 push ebx
00880D36 8BD8 mov ebx, eax
00880D38 33C0 xor eax, eax
00880D3A 55 push ebp
* Possible String Reference to: '<27><><<3C><><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
00880D3B 68F30D8800 push $00880DF3
***** TRY
|
00880D40 64FF30 push dword ptr fs:[eax]
00880D43 648920 mov fs:[eax], esp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
00880D46 B9080E8800 mov ecx, $00880E08
* Reference to control TfrmCWZK_CX.Tv2 : TcxGridDBTableView
|
00880D4B 8B9328030000 mov edx, [ebx+$0328]
* Possible String Reference to: <><D3A6><EFBFBD>տ<EFBFBD>ͳ<EFBFBD><CDB3>45'
|
00880D51 B81C0E8800 mov eax, $00880E1C
|
00880D56 E8496CF3FF call 007B79A4
* Reference to control TfrmCWZK_CX.ADOQueryTemp : TADOQuery
|
00880D5B 8B8304030000 mov eax, [ebx+$0304]
|
00880D61 E8223CF3FF call 007B4988
00880D66 83C4F8 add esp, -$08
00880D69 DD1C24 fstp qword ptr [esp]
00880D6C 9B wait
* Reference to control TfrmCWZK_CX.Enddate : TDateTimePicker
|
00880D6D 8B833C030000 mov eax, [ebx+$033C]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
00880D73 E8B414BFFF call 0047222C
* Reference to control TfrmCWZK_CX.Enddate : TDateTimePicker
|
00880D78 8B833C030000 mov eax, [ebx+$033C]
00880D7E FFB014020000 push dword ptr [eax+$0214]
00880D84 FFB010020000 push dword ptr [eax+$0210]
00880D8A 8D55F4 lea edx, [ebp-$0C]
* Possible String Reference to: 'YYYY'
|
00880D8D B8340E8800 mov eax, $00880E34
|
00880D92 E825DEB8FF call 0040EBBC
00880D97 FF75F4 push dword ptr [ebp-$0C]
* Possible String Reference to: '-01'
|
00880D9A 68440E8800 push $00880E44
* Possible String Reference to: '-01'
|
00880D9F 68440E8800 push $00880E44
00880DA4 8D45F8 lea eax, [ebp-$08]
00880DA7 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00880DAC E80349B8FF call 004056B4
00880DB1 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToDate(AnsiString):TDateTime;overload;
| or: SysUtils.StrToTime(AnsiString):TDateTime;overload;
| or: SysUtils.StrToDateTime(AnsiString):TDateTime;overload;
|
00880DB4 E80FE6B8FF call 0040F3C8
00880DB9 83C4F8 add esp, -$08
00880DBC DD1C24 fstp qword ptr [esp]
00880DBF 9B wait
* Reference to control TfrmCWZK_CX.begdate : TDateTimePicker
|
00880DC0 8B8338030000 mov eax, [ebx+$0338]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
00880DC6 E86114BFFF call 0047222C
00880DCB 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: 'select distinct (A.FactoryName) nam
| e from YF_Money_CR A where A.CRType
| =<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>' '
|
00880DCE BA500E8800 mov edx, $00880E50
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00880DD3 E8E445B8FF call 004053BC
00880DD8 33C0 xor eax, eax
00880DDA 5A pop edx
00880DDB 59 pop ecx
00880DDC 59 pop ecx
00880DDD 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
00880DE0 68FA0D8800 push $00880DFA
00880DE5 8D45F4 lea eax, [ebp-$0C]
00880DE8 BA03000000 mov edx, $00000003
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00880DED E85645B8FF call 00405348
00880DF2 C3 ret
* Reference to: System.@HandleFinally;
|
00880DF3 E9FC3CB8FF jmp 00404AF4
00880DF8 EBEB jmp 00880DE5
****** END
|
00880DFA 5B pop ebx
00880DFB 8BE5 mov esp, ebp
00880DFD 5D pop ebp
00880DFE C3 ret
*)
end;
procedure TfrmCWZK_CX.TBRafreshClick(Sender : TObject);
begin
(*
|
00880EA8 E8E3FBFFFF call 00880A90
00880EAD C3 ret
*)
end;
procedure TfrmCWZK_CX.ToolButton2Click(Sender : TObject);
begin
(*
00880EB0 55 push ebp
00880EB1 8BEC mov ebp, esp
00880EB3 6A00 push $00
00880EB5 6A00 push $00
00880EB7 53 push ebx
00880EB8 8BD8 mov ebx, eax
00880EBA 33C0 xor eax, eax
00880EBC 55 push ebp
00880EBD 68460F8800 push $00880F46
***** TRY
|
00880EC2 64FF30 push dword ptr fs:[eax]
00880EC5 648920 mov fs:[eax], esp
* Reference to control TfrmCWZK_CX.ADOQueryMain : TADOQuery
|
00880EC8 8B8314030000 mov eax, [ebx+$0314]
* Reference to: DB.TDataSet.GetActive(TDataSet):Boolean;
|
00880ECE E8414BC4FF call 004C5A14
00880ED3 84C0 test al, al
00880ED5 7454 jz 00880F2B
00880ED7 8D45F8 lea eax, [ebp-$08]
00880EDA 50 push eax
00880EDB B902000000 mov ecx, $00000002
00880EE0 BA01000000 mov edx, $00000001
* Reference to control TfrmCWZK_CX.Panel1 : TPanel
|
00880EE5 8B830C030000 mov eax, [ebx+$030C]
|
00880EEB E8C051F3FF call 007B60B0
00880EF0 8B45F8 mov eax, [ebp-$08]
00880EF3 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00880EF6 E8F199B8FF call 0040A8EC
00880EFB 8B55FC mov edx, [ebp-$04]
* Reference to control TfrmCWZK_CX.ADOQueryMain : TADOQuery
|
00880EFE 8B8314030000 mov eax, [ebx+$0314]
|
00880F04 E8BF5DF3FF call 007B6CC8
* Reference to control TfrmCWZK_CX.CDS_HZ : TClientDataSet
|
00880F09 8B9348030000 mov edx, [ebx+$0348]
* Reference to control TfrmCWZK_CX.ADOQueryMain : TADOQuery
|
00880F0F 8B8314030000 mov eax, [ebx+$0314]
|
00880F15 E8765FF3FF call 007B6E90
* Reference to control TfrmCWZK_CX.CDS_HZ : TClientDataSet
|
00880F1A 8B9348030000 mov edx, [ebx+$0348]
* Reference to control TfrmCWZK_CX.ADOQueryMain : TADOQuery
|
00880F20 8B8314030000 mov eax, [ebx+$0314]
|
00880F26 E8ED60F3FF call 007B7018
00880F2B 33C0 xor eax, eax
00880F2D 5A pop edx
00880F2E 59 pop ecx
00880F2F 59 pop ecx
00880F30 648910 mov fs:[eax], edx
****** FINALLY
|
00880F33 684D0F8800 push $00880F4D
00880F38 8D45F8 lea eax, [ebp-$08]
00880F3B BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00880F40 E80344B8FF call 00405348
00880F45 C3 ret
* Reference to: System.@HandleFinally;
|
00880F46 E9A93BB8FF jmp 00404AF4
00880F4B EBEB jmp 00880F38
****** END
|
00880F4D 5B pop ebx
00880F4E 59 pop ecx
00880F4F 59 pop ecx
00880F50 5D pop ebp
00880F51 C3 ret
*)
end;
procedure TfrmCWZK_CX.FactoryNameChange(Sender : TObject);
begin
(*
00880F54 56 push esi
* Reference to control TfrmCWZK_CX.ToolButton2 : TToolButton
|
00880F55 8B8010030000 mov eax, [eax+$0310]
00880F5B 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
00880F5F E8F035B8FF call 00404554
00880F64 5E pop esi
00880F65 C3 ret
*)
end;
procedure TfrmCWZK_CX.ToolButton1Click(Sender : TObject);
begin
(*
00880F68 53 push ebx
00880F69 8BD8 mov ebx, eax
* Reference to control TfrmCWZK_CX.ADOQueryMain : TADOQuery
|
00880F6B 8B8314030000 mov eax, [ebx+$0314]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00880F71 E84A6FC4FF call 004C7EC0
00880F76 84C0 test al, al
00880F78 7516 jnz 00880F90
* Possible String Reference to: <><D3A6><EFBFBD>տ<EFBFBD>ͳ<EFBFBD><CDB3><EFBFBD>б<EFBFBD>'
|
00880F7A B99C0F8800 mov ecx, $00880F9C
* Reference to control TfrmCWZK_CX.ADOQueryMain : TADOQuery
|
00880F7F 8B9314030000 mov edx, [ebx+$0314]
* Reference to control TfrmCWZK_CX.Tv2 : TcxGridDBTableView
|
00880F85 8B8328030000 mov eax, [ebx+$0328]
|
00880F8B E8A072F3FF call 007B8230
00880F90 5B pop ebx
00880F91 C3 ret
*)
end;
procedure TfrmCWZK_CX._PROC_00880FB1(Sender : TObject);
begin
(*
00880FB1 8BEC mov ebp, esp
00880FB3 33C0 xor eax, eax
00880FB5 55 push ebp
00880FB6 68D50F8800 push $00880FD5
***** TRY
|
00880FBB 64FF30 push dword ptr fs:[eax]
00880FBE 648920 mov fs:[eax], esp
00880FC1 FF05D85A8900 inc dword ptr [$00895AD8]
00880FC7 33C0 xor eax, eax
00880FC9 5A pop edx
00880FCA 59 pop ecx
00880FCB 59 pop ecx
00880FCC 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D>Z<EFBFBD>'
|
00880FCF 68DC0F8800 push $00880FDC
00880FD4 C3 ret
* Reference to: System.@HandleFinally;
|
00880FD5 E91A3BB8FF jmp 00404AF4
00880FDA EBF8 jmp 00880FD4
****** END
|
00880FDC 5D pop ebp
00880FDD C3 ret
*)
end;
procedure TfrmCWZK_CX._PROC_00880FE0(Sender : TObject);
begin
(*
00880FE0 832DD85A890001 sub dword ptr [$00895AD8], +$01
00880FE7 C3 ret
*)
end;
procedure TfrmCWZK_CX._PROC_00880FE8(Sender : TObject);
begin
(*
00880FE8 3410 xor al, $10
00880FEA 8800 mov [eax], al
00880FEC 0000 add [eax], al
*)
end;
procedure TfrmCWZK_CX._PROC_0088104E(Sender : TObject);
begin
(*
0088104E 48 dec eax
0088104F 0050D4 add [eax-$2C], dl
00881052 42 inc edx
00881053 0008 add [eax], cl
00881055 2D4A007CD0 sub eax, $D07C004A
0088105A 42 inc edx
0088105B 00F4 add ah, dh
0088105D 6B4A00D0 imul ecx, [edx+$00], $D0
00881061 1D4A0030F6 sbb eax, $F630004A
00881066 48 dec eax
00881067 004CFB48 add [ebx+edi*8+$48], cl
0088106B 0098FA48000C add [eax+$C0048FA], bl
00881071 7948 jns 008810BB
00881073 00ACF04800E829 add [eax+esi*8+$29E80048], ch
0088107A 4A dec edx
0088107B 00E4 add ah, ah
0088107D ED in eax, dx
0088107E 48 dec eax
0088107F 00547848 add [eax+edi*2+$48], dl
00881083 005878 add [eax+$78], bl
00881086 48 dec eax
00881087 00DC add ah, bl
00881089 2A4A00 sub cl, byte ptr [edx+$00]
0088108C 3CA9 cmp al, $A9
0088108E 48 dec eax
0088108F 00C0 add al, al
00881091 834800D0 or dword ptr [eax+$00], -$30
00881095 7948 jns 008810DF
00881097 004C8548 add [ebp+eax*4+$48], cl
0088109B 00D0 add al, dl
0088109D 2C4A sub al, $4A
0088109F 009C2B4A008486 add [ebx+ebp+$8684004A], bl
008810A6 48 dec eax
008810A7 00482D add [eax+$2D], cl
008810AA 4A dec edx
008810AB 00C0 add al, al
008810AD A9480038EE test eax, $EE380048
008810B2 48 dec eax
008810B3 00F4 add ah, dh
008810B5 EE out dx, al
008810B6 48 dec eax
008810B7 00F0 add al, dh
008810B9 E94800D8EE jmp EF601106
008810BE 48 dec eax
008810BF 00D8 add al, bl
008810C1 1B4A00 sbb ecx, [edx+$00]
008810C4 EC in al, dx
008810C5 334A00 xor ecx, [edx+$00]
008810C8 20C4 and ah, al
008810CA 48 dec eax
008810CB 00B0404A0010 add [eax+$10004A40], dh
008810D1 44 inc esp
008810D2 4A dec edx
008810D3 00CC add ah, cl
008810D5 42 inc edx
008810D6 4A dec edx
008810D7 00B8C44800BC add [eax+$BC0048C4], bh
008810DD C44800 les ecx, [eax+$00]
008810E0 48 dec eax
008810E1 45 inc ebp
008810E2 4A dec edx
008810E3 001CC3 add [ebx+eax*8], bl
008810E6 48 dec eax
008810E7 0018 add [eax], bl
008810E9 F0 lock
008810EA 48 dec eax
008810EB 00444C4A add [esp+ecx*2+$4A], al
008810EF 000C02 add [edx+eax], cl
008810F2 49 dec ecx
008810F3 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
008810FA 4A dec edx
008810FB 008C154A003C18 add [ebp+edx+$183C004A], cl
00881102 4A dec edx
00881103 0038 add [eax], bh
00881105 52 push edx
00881106 4A dec edx
00881107 005C224A add [edx+$4A], bl
0088110B 00D8 add al, bl
0088110D 224A00 and cl, byte ptr [edx+$00]
00881110 7C68 jl 0088117A
00881112 4A dec edx
00881113 00941F4A003C60 add [edi+ebx+$603C004A], dl
0088111A 4A dec edx
0088111B 001447 add [edi+eax*2], dl
0088111E 4A dec edx
0088111F 0034654A00CC2C add [$2CCC004A], dh
00881126 4A dec edx
00881127 000E add [esi], cl
00881129 0000 add [eax], al
0088112B 0000 add [eax], al
0088112D 0003 add [ebx], al
0088112F 0000 add [eax], al
00881131 0020 add [eax], ah
00881133 114000 adc [eax+$00], eax
00881136 D003 rol byte ptr [ebx], 1
00881138 0000 add [eax], al
0088113A 2011 and [ecx], dl
0088113C 40 inc eax
0088113D 00D4 add ah, dl
0088113F 0300 add eax, [eax]
00881141 0020 add [eax], ah
00881143 114000 adc [eax+$00], eax
00881146 D803 fadd dword ptr [ebx]
00881148 0000 add [eax], al
0088114A 3500B91588 xor eax, $8815B900
0088114F 00F8 add al, bh
00881151 0200 add al, byte ptr [eax]
00881153 0000 add [eax], al
00881155 0008 add [eax], cl
00881157 54 push esp
00881158 6F outsd
00881159 6F outsd
0088115A 6C insb
0088115B 42 inc edx
0088115C 61 popa
0088115D 7231 jb 00881190
0088115F FC cld
00881160 0200 add al, byte ptr [eax]
00881162 0001 add [ecx], al
00881164 0009 add [ecx], cl
00881166 54 push esp
00881167 42 inc edx
00881168 52 push edx
00881169 61 popa
0088116A 667265 jb 008811D2
0088116D 7368 jnb 008811D7
0088116F 0003 add [ebx], al
00881171 0000 add [eax], al
00881173 0100 add [eax], eax
00881175 07 pop es
00881176 54 push esp
00881177 42 inc edx
00881178 43 inc ebx
00881179 6C insb
0088117A 6F outsd
0088117B 7365 jnb 008811E2
0088117D 0403 add al, +$03
0088117F 0000 add [eax], al
00881181 0200 add al, byte ptr [eax]
00881183 0C41 or al, $41
00881185 44 inc esp
00881186 4F dec edi
00881187 51 push ecx
00881188 7565 jnz 008811EF
0088118A 7279 jb 00881205
0088118C 54 push esp
0088118D 656D insd
0088118F 7008 jo 00881199
00881191 0300 add eax, [eax]
00881193 0002 add [edx], al
00881195 000B add [ebx], cl
00881197 41 inc ecx
00881198 44 inc esp
00881199 4F dec edi
0088119A 51 push ecx
0088119B 7565 jnz 00881202
0088119D 7279 jb 00881218
0088119F 43 inc ebx
008811A0 6D insd
008811A1 640C03 or al, $03
008811A4 0000 add [eax], al
008811A6 0300 add eax, [eax]
008811A8 06 push es
008811A9 50 push eax
008811AA 61 popa
008811AB 6E outsb
008811AC 656C insb
008811AE 3110 xor [eax], edx
008811B0 0300 add eax, [eax]
008811B2 0001 add [ecx], al
008811B4 000B add [ebx], cl
008811B6 54 push esp
008811B7 6F outsd
008811B8 6F outsd
008811B9 6C insb
008811BA 42 inc edx
008811BB 7574 jnz 00881231
008811BD 746F jz 0088122E
008811BF 6E outsb
008811C0 321403 xor dl, byte ptr [ebx+eax]
008811C3 0000 add [eax], al
008811C5 0200 add al, byte ptr [eax]
008811C7 0C41 or al, $41
008811C9 44 inc esp
008811CA 4F dec edi
008811CB 51 push ecx
008811CC 7565 jnz 00881233
008811CE 7279 jb 00881249
008811D0 4D dec ebp
008811D1 61 popa
008811D2 696E1803000001 imul ebp, [esi+$18], $01000003
008811D9 000B add [ebx], cl
008811DB 54 push esp
008811DC 6F outsd
008811DD 6F outsd
008811DE 6C insb
008811DF 42 inc edx
008811E0 7574 jnz 00881256
008811E2 746F jz 00881253
008811E4 6E outsb
008811E5 311C03 xor [ebx+eax], ebx
008811E8 0000 add [eax], al
008811EA 0400 add al, +$00
008811EC 03524D add edx, [edx+$4D]
008811EF 3120 xor [eax], esp
008811F1 0300 add eax, [eax]
008811F3 00050009524D add [$4D520900], al
008811F9 44 inc esp
008811FA 42 inc edx
008811FB 5F pop edi
008811FC 4D dec ebp
008811FD 61 popa
008811FE 696E2403000006 imul ebp, [esi+$24], $06000003
00881205 0006 add [esi], al
00881207 4C dec esp
00881208 61 popa
00881209 62656C bound esp, qword ptr [ebp+$6C]
0088120C 3328 xor ebp, [eax]
0088120E 0300 add eax, [eax]
00881210 0007 add [edi], al
00881212 000D546F4661 add [$61466F54], cl
00881218 63746F72 arpl [edi+ebp*2+$72], si
0088121C 794E jns 0088126C
0088121E 61 popa
0088121F 6D insd
00881220 652C03 sub al, $03
00881223 0000 add [eax], al
00881225 0800 or [eax], al
00881227 07 pop es
00881228 637847 arpl [eax+$47], di
0088122B 7269 jb 00881296
0088122D 643230 xor dh, byte ptr fs:[eax]
00881230 0300 add eax, [eax]
00881232 0009 add [ecx], cl
00881234 0003 add [ebx], al
00881236 54 push esp
00881237 7632 jbe 0088126B
00881239 3403 xor al, $03
0088123B 0000 add [eax], al
0088123D 0A00 or al, byte ptr [eax]
0088123F 0C63 or al, $63
00881241 7847 js 0088128A
00881243 7269 jb 008812AE
00881245 644C dec esp
00881247 657665 jbe 008812AF
0088124A 6C insb
0088124B 3138 xor [eax], edi
0088124D 0300 add eax, [eax]
0088124F 0006 add [esi], al
00881251 0006 add [esi], al
00881253 4C dec esp
00881254 61 popa
00881255 62656C bound esp, qword ptr [ebp+$6C]
00881258 323C03 xor bh, byte ptr [ebx+eax]
0088125B 0000 add [eax], al
0088125D 06 push es
0088125E 0006 add [esi], al
00881260 4C dec esp
00881261 61 popa
00881262 62656C bound esp, qword ptr [ebp+$6C]
00881265 3640 inc eax
00881267 0300 add eax, [eax]
00881269 000B add [ebx], cl
0088126B 0007 add [edi], al
0088126D 626567 bound esp, qword ptr [ebp+$67]
00881270 6461 popa
00881272 7465 jz 008812D9
00881274 44 inc esp
00881275 0300 add eax, [eax]
00881277 000B add [ebx], cl
00881279 0007 add [edi], al
0088127B 45 inc ebp
0088127C 6E outsb
0088127D 646461 popa
00881280 7465 jz 008812E7
00881282 48 dec eax
00881283 0300 add eax, [eax]
00881285 000C00 add [eax+eax], cl
00881288 106378 adc [ebx+$78], ah
0088128B 47 inc edi
0088128C 7269 jb 008812F7
0088128E 6450 push eax
00881290 6F outsd
00881291 7075 jo 00881308
00881293 704D jo 008812E2
00881295 656E outsb
00881297 7532 jnz 008812CB
00881299 4C dec esp
0088129A 0300 add eax, [eax]
0088129C 000D00054453 add [$53440500], cl
008812A2 5F pop edi
008812A3 48 dec eax
008812A4 5A pop edx
008812A5 50 push eax
008812A6 0300 add eax, [eax]
008812A8 000E add [esi], cl
008812AA 0006 add [esi], al
008812AC 43 inc ebx
008812AD 44 inc esp
008812AE 53 push ebx
008812AF 5F pop edi
008812B0 48 dec eax
008812B1 5A pop edx
008812B2 54 push esp
008812B3 0300 add eax, [eax]
008812B5 000F add [edi], cl
008812B7 0008 add [eax], cl
008812B9 56 push esi
008812BA 42 inc edx
008812BB 42 inc edx
008812BC 4D dec ebp
008812BD 6F outsd
008812BE 6E outsb
008812BF 657958 jns 0088131A
008812C2 0300 add eax, [eax]
008812C4 000F add [edi], cl
008812C6 0009 add [ecx], cl
008812C8 7632 jbe 008812FC
008812CA 46 inc esi
008812CB 50 push eax
008812CC 4D dec ebp
008812CD 6F outsd
008812CE 6E outsb
008812CF 65795C jns 0088132E
008812D2 0300 add eax, [eax]
008812D4 000F add [edi], cl
008812D6 000A add [edx], cl
008812D8 7632 jbe 0088130C
008812DA 57 push edi
008812DB 46 inc esi
008812DC 50 push eax
008812DD 4D dec ebp
008812DE 6F outsd
008812DF 6E outsb
008812E0 657960 jns 00881343
008812E3 0300 add eax, [eax]
008812E5 0010 add [eax], dl
008812E7 0012 add [edx], dl
008812E9 637853 arpl [eax+$53], di
008812EC 7479 jz 00881367
008812EE 6C insb
008812EF 6552 push edx
008812F1 65706F jo 00881363
008812F4 7369 jnb 0088135F
008812F6 746F jz 00881367
008812F8 7279 jb 00881373
008812FA 31640300 xor [ebx+eax+$00], esp
008812FE 0011 add [ecx], dl
00881300 0008 add [eax], cl
00881302 637853 arpl [eax+$53], di
00881305 7479 jz 00881380
00881307 6C insb
00881308 65316803 xor gs:[eax+$03], ebp
0088130C 0000 add [eax], al
0088130E 1100 adc [eax], eax
00881310 086378 or [ebx+$78], ah
00881313 53 push ebx
00881314 7479 jz 0088138F
00881316 6C insb
00881317 65326C0300 xor ch, byte ptr gs:[ebx+eax+$00]
0088131C 0011 add [ecx], dl
0088131E 000F add [edi], cl
00881320 637853 arpl [eax+$53], di
00881323 7479 jz 0088139E
00881325 6C insb
00881326 655F pop edi
00881328 677269 jb 00881394
0088132B 6452 push edx
0088132D 6F outsd
0088132E 7770 jnbe 008813A0
00881330 0300 add eax, [eax]
00881332 0011 add [ecx], dl
00881334 0010 add [eax], dl
00881336 637853 arpl [eax+$53], di
00881339 7479 jz 008813B4
0088133B 6C insb
0088133C 655F pop edi
0088133E 677269 jb 008813AA
00881341 6446 inc esi
00881343 6F outsd
00881344 6F outsd
00881345 7474 jz 008813BB
00881347 0300 add eax, [eax]
00881349 0011 add [ecx], dl
0088134B 0010 add [eax], dl
0088134D 637853 arpl [eax+$53], di
00881350 7479 jz 008813CB
00881352 6C insb
00881353 655F pop edi
00881355 677269 jb 008813C1
00881358 6448 dec eax
0088135A 6561 popa
0088135C 647803 js 00881362
0088135F 0000 add [eax], al
00881361 1100 adc [eax], eax
00881363 1463 adc al, $63
00881365 7853 js 008813BA
00881367 7479 jz 008813E2
00881369 6C insb
0088136A 655F pop edi
0088136C 677269 jb 008813D8
0088136F 6447 inc edi
00881371 726F jb 008813E2
00881373 7570 jnz 008813E5
00881375 42 inc edx
00881376 6F outsd
00881377 787C js 008813F5
00881379 0300 add eax, [eax]
0088137B 0011 add [ecx], dl
0088137D 000E add [esi], cl
0088137F 637853 arpl [eax+$53], di
00881382 7479 jz 008813FD
00881384 6C insb
00881385 655F pop edi
00881387 7965 jns 008813EE
00881389 6C insb
0088138A 6C insb
0088138B 6F outsd
0088138C 7780 jnbe 0088130E
0088138E 0300 add eax, [eax]
00881390 0011 add [ecx], dl
00881392 000B add [ebx], cl
00881394 637853 arpl [eax+$53], di
00881397 7479 jz 00881412
00881399 6C insb
0088139A 655F pop edi
0088139C 52 push edx
0088139D 65648403 test fs:[ebx], al
008813A1 0000 add [eax], al
008813A3 1100 adc [eax], eax
008813A5 116378 adc [ebx+$78], esp
008813A8 53 push ebx
008813A9 7479 jz 00881424
008813AB 6C insb
008813AC 655F pop edi
008813AE 666F outsw
008813B0 6E outsb
008813B1 7442 jz 008813F5
008813B3 6C insb
008813B4 61 popa
008813B5 636B88 arpl [ebx-$78], bp
008813B8 0300 add eax, [eax]
008813BA 0011 add [ecx], dl
008813BC 001563785374 add [$74537863], dl
008813C2 796C jns 00881430
008813C4 655F pop edi
008813C6 666F outsw
008813C8 6E outsb
008813C9 7463 jz 0088142E
008813CB 6C insb
008813CC 46 inc esi
008813CD 7563 jnz 00881432
008813CF 687369618C push $8C616973
008813D4 0300 add eax, [eax]
008813D6 0011 add [ecx], dl
008813D8 001463 add [ebx], dl
008813DB 7853 js 00881430
008813DD 7479 jz 00881458
008813DF 6C insb
008813E0 655F pop edi
008813E2 666F outsw
008813E4 6E outsb
008813E5 7463 jz 0088144A
008813E7 6C insb
008813E8 50 push eax
008813E9 7572 jnz 0088145D
008813EB 706C jo 00881459
008813ED 6590 nop
008813EF 0300 add eax, [eax]
008813F1 0011 add [ecx], dl
008813F3 0013 add [ebx], dl
008813F5 637853 arpl [eax+$53], di
008813F8 7479 jz 00881473
008813FA 6C insb
008813FB 655F pop edi
008813FD 666F outsw
008813FF 6E outsb
00881400 7463 jz 00881465
00881402 6C insb
00881403 47 inc edi
00881404 7265 jb 0088146B
00881406 656E outsb
00881408 94 xchg eax, esp
00881409 0300 add eax, [eax]
0088140B 0011 add [ecx], dl
0088140D 0012 add [edx], dl
0088140F 637853 arpl [eax+$53], di
00881412 7479 jz 0088148D
00881414 6C insb
00881415 655F pop edi
00881417 666F outsw
00881419 6E outsb
0088141A 7463 jz 0088147F
0088141C 6C insb
0088141D 42 inc edx
0088141E 6C insb
0088141F 7565 jnz 00881486
00881421 98 cwde
00881422 0300 add eax, [eax]
00881424 0011 add [ecx], dl
00881426 0012 add [edx], dl
00881428 637853 arpl [eax+$53], di
0088142B 7479 jz 008814A6
0088142D 6C insb
0088142E 655F pop edi
00881430 666F outsw
00881432 6E outsb
00881433 7463 jz 00881498
00881435 6C insb
00881436 54 push esp
00881437 6561 popa
00881439 6C insb
0088143A 9C pushf
0088143B 0300 add eax, [eax]
0088143D 0011 add [ecx], dl
0088143F 0013 add [ebx], dl
00881441 637853 arpl [eax+$53], di
00881444 7479 jz 008814BF
00881446 6C insb
00881447 655F pop edi
00881449 666F outsw
0088144B 6E outsb
0088144C 7463 jz 008814B1
0088144E 6C insb
0088144F 4F dec edi
00881450 6C insb
00881451 697665A0030000 imul esi, [esi+$65], $000003A0
00881458 06 push es
00881459 0006 add [esi], al
0088145B 4C dec esp
0088145C 61 popa
0088145D 62656C bound esp, qword ptr [ebp+$6C]
00881460 35A4030000 xor eax, $000003A4
00881465 07 pop es
00881466 0007 add [edi], al
00881468 42 inc edx
00881469 42 inc edx
0088146A 4D dec ebp
0088146B 6F outsd
0088146C 6E outsb
0088146D 6579A8 jns 00881418
00881470 0300 add eax, [eax]
00881472 0006 add [esi], al
00881474 0006 add [esi], al
00881476 4C dec esp
00881477 61 popa
00881478 62656C bound esp, qword ptr [ebp+$6C]
0088147B 37 aaa
0088147C AC lodsb
0088147D 0300 add eax, [eax]
0088147F 000F add [edi], cl
00881481 000D76324661 add [$61463276], cl
00881487 63746F72 arpl [edi+ebp*2+$72], si
0088148B 794E jns 008814DB
0088148D 61 popa
0088148E 6D insd
0088148F 65B003 mov al, $03
00881492 0000 add [eax], al
00881494 07 pop es
00881495 000B add [ebx], cl
00881497 46 inc esi
00881498 61 popa
00881499 63746F72 arpl [edi+ebp*2+$72], si
0088149D 794E jns 008814ED
0088149F 61 popa
008814A0 6D insd
008814A1 65B403 mov ah, $03
008814A4 0000 add [eax], al
008814A6 07 pop es
008814A7 000D46616374 add [$74636146], cl
008814AD 6F outsd
008814AE 7279 jb 00881529
008814B0 4E dec esi
008814B1 61 popa
008814B2 6D insd
008814B3 6554 push esp
008814B5 4A dec edx
008814B6 B803000006 mov eax, $06000003
008814BB 0006 add [esi], al
008814BD 4C dec esp
008814BE 61 popa
008814BF 62656C bound esp, qword ptr [ebp+$6C]
008814C2 31BC0300000600 xor [ebx+eax+$60000], edi
008814C9 06 push es
008814CA 4C dec esp
008814CB 61 popa
008814CC 62656C bound esp, qword ptr [ebp+$6C]
008814CF 34C0 xor al, $C0
008814D1 0300 add eax, [eax]
008814D3 0007 add [edi], al
008814D5 000F add [edi], cl
008814D7 54 push esp
008814D8 6F outsd
008814D9 46 inc esi
008814DA 61 popa
008814DB 63746F72 arpl [edi+ebp*2+$72], si
008814DF 794E jns 0088152F
008814E1 61 popa
008814E2 6D insd
008814E3 6554 push esp
008814E5 4A dec edx
008814E6 C403 les eax, [ebx]
008814E8 0000 add [eax], al
008814EA 0F0009 str word ptr [ecx]
008814ED 7632 jbe 00881521
008814EF 43 inc ebx
008814F0 6F outsd
008814F1 6C insb
008814F2 756D jnz 00881561
008814F4 6E outsb
008814F5 33C8 xor ecx, eax
008814F7 0300 add eax, [eax]
008814F9 0006 add [esi], al
008814FB 0006 add [esi], al
008814FD 4C dec esp
008814FE 61 popa
008814FF 62656C bound esp, qword ptr [ebp+$6C]
00881502 3808 cmp [eax], cl
00881504 0012 add [edx], dl
00881506 003417 add [edi+edx], dh
00881509 8800 mov [eax], al
0088150B 0B466F or eax, [esi+$6F]
0088150E 726D jb 0088157D
00881510 44 inc esp
00881511 657374 jnb 00881588
00881514 726F jb 00881585
00881516 7910 jns 00881528
00881518 003C17 add [edi+edx], bh
0088151B 8800 mov [eax], al
0088151D 09466F or [esi+$6F], eax
00881520 726D jb 0088158F
00881522 43 inc ebx
00881523 6C insb
00881524 6F outsd
00881525 7365 jnb 0088158C
00881527 1300 adc eax, [eax]
00881529 40 inc eax
0088152A 17 pop ss
0088152B 8800 mov [eax], al
0088152D 0C54 or al, $54
0088152F 42 inc edx
00881530 43 inc ebx
00881531 6C insb
00881532 6F outsd
00881533 7365 jnb 0088159A
00881535 43 inc ebx
00881536 6C insb
00881537 69636B0F00B017 imul esp, [ebx+$6B], $17B0000F
0088153E 8800 mov [eax], al
00881540 08466F or [esi+$6F], al
00881543 726D jb 008815B2
00881545 53 push ebx
00881546 686F771500 push $0015776F
0088154B 2018 and [eax], bl
0088154D 8800 mov [eax], al
0088154F 0E push cs
00881550 54 push esp
00881551 42 inc edx
00881552 52 push edx
00881553 61 popa
00881554 667265 jb 008815BC
00881557 7368 jnb 008815C1
00881559 43 inc ebx
0088155A 6C insb
0088155B 69636B17002818 imul esp, [ebx+$6B], $18280017
00881562 8800 mov [eax], al
00881564 10546F6F adc [edi+ebp*2+$6F], dl
00881568 6C insb
00881569 42 inc edx
0088156A 7574 jnz 008815E0
0088156C 746F jz 008815DD
0088156E 6E outsb
0088156F 32436C xor al, byte ptr [ebx+$6C]
00881572 69636B1A00B818 imul esp, [ebx+$6B], $18B8001A
00881579 8800 mov [eax], al
0088157B 13546F46 adc edx, [edi+ebp*2+$46]
0088157F 61 popa
00881580 63746F72 arpl [edi+ebp*2+$72], si
00881584 794E jns 008815D4
00881586 61 popa
00881587 6D insd
00881588 6543 inc ebx
0088158A 68616E6765 push $65676E61
0088158F 17 pop ss
00881590 00CC add ah, cl
00881592 18880010546F sbb [eax+$6F541000], cl
00881598 6F outsd
00881599 6C insb
0088159A 42 inc edx
0088159B 7574 jnz 00881611
0088159D 746F jz 0088160E
0088159F 6E outsb
008815A0 31436C xor [ebx+$6C], eax
008815A3 69636B12546672 imul esp, [ebx+$6B], $72665412
008815AA 6D insd
008815AB 58 pop eax
008815AC 58 pop eax
008815AD 46 inc esi
008815AE 50 push eax
008815AF 49 dec ecx
008815B0 6E outsb
008815B1 766F jbe 00881622
008815B3 6963655F544A12 imul esp, [ebx+$65], $124A545F
008815BA 0028 add [eax], ch
008815BC 94 xchg eax, esp
008815BD 45 inc ebp
008815BE 00648A45 add [edx+ecx*4+$45], ah
008815C2 00B8124D0020 add [eax+$20004D12], bh
008815C8 42 inc edx
008815C9 44 inc esp
008815CA 0064D378 add [ebx+edx*8+$78], ah
008815CE 00A80A78001C add [eax+$1C00780A], ch
008815D4 5F pop edi
008815D5 47 inc edi
008815D6 00B867470000 add [eax+$4767], bh
008815DC 16 push ss
008815DD 6300 arpl [eax], ax
008815DF F4 hlt
008815E0 B466 mov ah, $66
008815E2 00A40E6400E0A5 add [esi+ecx+$A5E00064], ah
008815E9 45 inc ebp
008815EA 005876 add [eax+$76], bl
008815ED 7C00 jl 008815EF
008815EF 087F4B or [edi+$4B], bh
008815F2 0088996A0034 add [eax+$34006A99], cl
008815F8 B166 mov cl, $66
008815FA 009C6D4F005070 add [ebp+ebp*2+$7050004F], bl
00881601 4F dec edi
00881602 009008168800 add [eax+$881608], dl
00881608 07 pop es
00881609 12546672 adc dl, byte ptr [esi+$72]
0088160D 6D insd
0088160E 58 pop eax
0088160F 58 pop eax
00881610 46 inc esi
00881611 50 push eax
00881612 49 dec ecx
00881613 6E outsb
00881614 766F jbe 00881685
00881616 6963655F544A34 imul esp, [ebx+$65], $344A545F
0088161D 108800D0F249 adc [eax+$49F2D000], cl
00881623 005E00 add [esi+$00], bl
00881626 10555F adc [ebp+$5F], dl
00881629 58 pop eax
0088162A 58 pop eax
0088162B 46 inc esi
0088162C 50 push eax
0088162D 49 dec ecx
0088162E 4E dec esi
0088162F 56 push esi
00881630 4F dec edi
00881631 49 dec ecx
00881632 43 inc ebx
00881633 45 inc ebp
00881634 5F pop edi
00881635 54 push esp
00881636 4A dec edx
00881637 0000 add [eax], al
00881639 8D4000 lea eax, [eax+$00]
0088163C 55 push ebp
0088163D 8BEC mov ebp, esp
0088163F 51 push ecx
00881640 53 push ebx
00881641 8945FC mov [ebp-$04], eax
00881644 33C0 xor eax, eax
00881646 55 push ebp
00881647 68EF168800 push $008816EF
***** TRY
|
0088164C 64FF30 push dword ptr fs:[eax]
0088164F 648920 mov fs:[eax], esp
00881652 8B45FC mov eax, [ebp-$04]
* Reference to control DlyDate : N.A.
|
00881655 8B8014030000 mov eax, [eax+$0314]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
0088165B E8F45EC4FF call 004C7554
00881660 8B45FC mov eax, [ebp-$04]
* Reference to control DlyDate : N.A.
|
00881663 8B9814030000 mov ebx, [eax+$0314]
00881669 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0088166B E86442C4FF call 004C58D4
00881670 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
00881672 E835C9C5FF call 004DDFAC
00881677 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
00881679 FF5244 call dword ptr [edx+$44]
0088167C 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
0088167E E829C9C5FF call 004DDFAC
* Possible String Reference to: 'exec P_get_invoice '
|
00881683 BA04178800 mov edx, $00881704
00881688 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
0088168A FF5138 call dword ptr [ecx+$38]
0088168D 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
0088168F E818C9C5FF call 004DDFAC
* Possible String Reference to: '@InvoiceFlag='1''
|
00881694 BA20178800 mov edx, $00881720
00881699 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
0088169B FF5138 call dword ptr [ecx+$38]
0088169E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
008816A0 E82342C4FF call 004C58C8
008816A5 8B45FC mov eax, [ebp-$04]
* Reference to control v1PRTOrderQty : N.A.
|
008816A8 8B9050030000 mov edx, [eax+$0350]
008816AE 8B45FC mov eax, [ebp-$04]
* Reference to control DlyDate : N.A.
|
008816B1 8B8014030000 mov eax, [eax+$0314]
|
008816B7 E8DCADF4FF call 007CC498
008816BC 8B45FC mov eax, [ebp-$04]
* Reference to control v1PRTOrderQty : N.A.
|
008816BF 8B9050030000 mov edx, [eax+$0350]
008816C5 8B45FC mov eax, [ebp-$04]
* Reference to control DlyDate : N.A.
|
008816C8 8B8014030000 mov eax, [eax+$0314]
|
008816CE E84DAFF4FF call 007CC620
008816D3 33C0 xor eax, eax
008816D5 5A pop edx
008816D6 59 pop ecx
008816D7 59 pop ecx
008816D8 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]<5D>'
|
008816DB 68F6168800 push $008816F6
008816E0 8B45FC mov eax, [ebp-$04]
* Reference to control DlyDate : N.A.
|
008816E3 8B8014030000 mov eax, [eax+$0314]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
008816E9 E8865EC4FF call 004C7574
008816EE C3 ret
*)
end;
end.