unit U_FPINVOICE_TJ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmFPInvoice_TJ=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;
    Label3: TLabel;
    ToFactoryName: TEdit;
    cxGrid2: TcxGrid;
    Tv2: TcxGridDBTableView;
    cxGridLevel1: TcxGridLevel;
    Label2: TLabel;
    Label6: TLabel;
    begdate: TDateTimePicker;
    Enddate: TDateTimePicker;
    cxGridPopupMenu2: TcxGridPopupMenu;
    DS_HZ: TDataSource;
    CDS_HZ: TClientDataSet;
    VBBMoney: TcxGridDBColumn;
    v2FPMoney: TcxGridDBColumn;
    v2WFPMoney: TcxGridDBColumn;
    cxStyleRepository1: TcxStyleRepository;
    cxStyle1: TcxStyle;
    cxStyle2: TcxStyle;
    cxStyle_gridRow: TcxStyle;
    cxStyle_gridFoot: TcxStyle;
    cxStyle_gridHead: TcxStyle;
    cxStyle_gridGroupBox: TcxStyle;
    cxStyle_yellow: TcxStyle;
    cxStyle_Red: TcxStyle;
    cxStyle_fontBlack: TcxStyle;
    cxStyle_fontclFuchsia: TcxStyle;
    cxStyle_fontclPurple: TcxStyle;
    cxStyle_fontclGreen: TcxStyle;
    cxStyle_fontclBlue: TcxStyle;
    cxStyle_fontclTeal: TcxStyle;
    cxStyle_fontclOlive: TcxStyle;
    Label5: TLabel;
    BBMoney: TEdit;
    Label7: TLabel;
    v2FactoryName: TcxGridDBColumn;
    FactoryName: TEdit;
    FactoryNameTJ: TEdit;
    Label1: TLabel;
    Label4: TLabel;
    ToFactoryNameTJ: TEdit;
    v2Column3: TcxGridDBColumn;
    Label8: TLabel;
    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 ToFactoryNameChange(Sender : TObject);
    procedure ToolButton1Click(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmFPInvoice_TJ: TfrmFPInvoice_TJ;

{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TfrmFPInvoice_TJ.FormDestroy(Sender : TObject);
begin
(*
008820AC   33C0                   xor     eax, eax

* Reference to GlobalVar_00895AE4
|
008820AE   A3E45A8900             mov     dword ptr [$00895AE4], eax
008820B3   C3                     ret

*)
end;

procedure TfrmFPInvoice_TJ.FormClose(Sender : TObject);
begin
(*
008820B4   C60102                 mov     byte ptr [ecx], $02
008820B7   C3                     ret

*)
end;

procedure TfrmFPInvoice_TJ.TBCloseClick(Sender : TObject);
begin
(*
008820B8   55                     push    ebp
008820B9   8BEC                   mov     ebp, esp
008820BB   6A00                   push    $00
008820BD   53                     push    ebx
008820BE   8BD8                   mov     ebx, eax
008820C0   33C0                   xor     eax, eax
008820C2   55                     push    ebp

* Possible String Reference to: 'éç)¸ÿëð[Y]Ã'
|
008820C3   6808218800             push    $00882108

***** TRY
|
008820C8   64FF30                 push    dword ptr fs:[eax]
008820CB   648920                 mov     fs:[eax], esp
008820CE   8D55FC                 lea     edx, [ebp-$04]
008820D1   8BC3                   mov     eax, ebx

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
008820D3   E81865C0FF             call    004885F0
008820D8   8B45FC                 mov     eax, [ebp-$04]

* Possible String Reference to: '²ÆÎñ¹ÜÀí'
|
008820DB   B91C218800             mov     ecx, $0088211C

* Reference to control TfrmFPInvoice_TJ.Tv2 : TcxGridDBTableView
|
008820E0   8B9330030000           mov     edx, [ebx+$0330]

|
008820E6   E8E9AAF4FF             call    007CCBD4
008820EB   8BC3                   mov     eax, ebx

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
008820ED   E8A63EC2FF             call    004A5F98
008820F2   33C0                   xor     eax, eax
008820F4   5A                     pop     edx
008820F5   59                     pop     ecx
008820F6   59                     pop     ecx
008820F7   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '[Y]Ã'
|
008820FA   680F218800             push    $0088210F
008820FF   8D45FC                 lea     eax, [ebp-$04]

* Reference to: System.@LStrClr(void;void);
|
00882102   E81D32B8FF             call    00405324
00882107   C3                     ret


* Reference to: System.@HandleFinally;
|
00882108   E9E729B8FF             jmp     00404AF4
0088210D   EBF0                   jmp     008820FF

****** END
|
0088210F   5B                     pop     ebx
00882110   59                     pop     ecx
00882111   5D                     pop     ebp
00882112   C3                     ret

*)
end;

procedure TfrmFPInvoice_TJ.FormShow(Sender : TObject);
begin
(*
00882128   55                     push    ebp
00882129   8BEC                   mov     ebp, esp
0088212B   6A00                   push    $00
0088212D   53                     push    ebx
0088212E   8BD8                   mov     ebx, eax
00882130   33C0                   xor     eax, eax
00882132   55                     push    ebp

* Possible String Reference to: 'éw)¸ÿëð[Y]Ã'
|
00882133   6878218800             push    $00882178

***** TRY
|
00882138   64FF30                 push    dword ptr fs:[eax]
0088213B   648920                 mov     fs:[eax], esp
0088213E   8D55FC                 lea     edx, [ebp-$04]
00882141   8BC3                   mov     eax, ebx

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00882143   E8A864C0FF             call    004885F0
00882148   8B45FC                 mov     eax, [ebp-$04]

* Possible String Reference to: '²ÆÎñ¹ÜÀí'
|
0088214B   B98C218800             mov     ecx, $0088218C

* Reference to control TfrmFPInvoice_TJ.Tv2 : TcxGridDBTableView
|
00882150   8B9330030000           mov     edx, [ebx+$0330]

|
00882156   E879A9F4FF             call    007CCAD4
0088215B   8BC3                   mov     eax, ebx

|
0088215D   E852FEFFFF             call    00881FB4
00882162   33C0                   xor     eax, eax
00882164   5A                     pop     edx
00882165   59                     pop     ecx
00882166   59                     pop     ecx
00882167   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '[Y]Ã'
|
0088216A   687F218800             push    $0088217F
0088216F   8D45FC                 lea     eax, [ebp-$04]

* Reference to: System.@LStrClr(void;void);
|
00882172   E8AD31B8FF             call    00405324
00882177   C3                     ret


* Reference to: System.@HandleFinally;
|
00882178   E97729B8FF             jmp     00404AF4
0088217D   EBF0                   jmp     0088216F

****** END
|
0088217F   5B                     pop     ebx
00882180   59                     pop     ecx
00882181   5D                     pop     ebp
00882182   C3                     ret

*)
end;

procedure TfrmFPInvoice_TJ.TBRafreshClick(Sender : TObject);
begin
(*

|
00882198   E817FEFFFF             call    00881FB4
0088219D   C3                     ret

*)
end;

procedure TfrmFPInvoice_TJ.ToolButton2Click(Sender : TObject);
begin
(*
008821A0   55                     push    ebp
008821A1   8BEC                   mov     ebp, esp
008821A3   6A00                   push    $00
008821A5   53                     push    ebx
008821A6   8BD8                   mov     ebx, eax
008821A8   33C0                   xor     eax, eax
008821AA   55                     push    ebp
008821AB   6824228800             push    $00882224

***** TRY
|
008821B0   64FF30                 push    dword ptr fs:[eax]
008821B3   648920                 mov     fs:[eax], esp

* Reference to control TfrmFPInvoice_TJ.ADOQueryMain : TADOQuery
|
008821B6   8B8314030000           mov     eax, [ebx+$0314]

* Reference to: DB.TDataSet.GetActive(TDataSet):Boolean;
|
008821BC   E85338C4FF             call    004C5A14
008821C1   84C0                   test    al, al
008821C3   7449                   jz      0088220E
008821C5   8D45FC                 lea     eax, [ebp-$04]
008821C8   50                     push    eax
008821C9   B902000000             mov     ecx, $00000002
008821CE   BA01000000             mov     edx, $00000001

* Reference to control TfrmFPInvoice_TJ.Panel1 : TPanel
|
008821D3   8B830C030000           mov     eax, [ebx+$030C]

|
008821D9   E8A295F4FF             call    007CB780
008821DE   8B55FC                 mov     edx, [ebp-$04]

* Reference to control TfrmFPInvoice_TJ.ADOQueryMain : TADOQuery
|
008821E1   8B8314030000           mov     eax, [ebx+$0314]

|
008821E7   E8E4A1F4FF             call    007CC3D0

* Reference to control TfrmFPInvoice_TJ.CDS_HZ : TClientDataSet
|
008821EC   8B9350030000           mov     edx, [ebx+$0350]

* Reference to control TfrmFPInvoice_TJ.ADOQueryMain : TADOQuery
|
008821F2   8B8314030000           mov     eax, [ebx+$0314]

|
008821F8   E89BA2F4FF             call    007CC498

* Reference to control TfrmFPInvoice_TJ.CDS_HZ : TClientDataSet
|
008821FD   8B9350030000           mov     edx, [ebx+$0350]

* Reference to control TfrmFPInvoice_TJ.ADOQueryMain : TADOQuery
|
00882203   8B8314030000           mov     eax, [ebx+$0314]

|
00882209   E812A4F4FF             call    007CC620
0088220E   33C0                   xor     eax, eax
00882210   5A                     pop     edx
00882211   59                     pop     ecx
00882212   59                     pop     ecx
00882213   648910                 mov     fs:[eax], edx

****** FINALLY
|
00882216   682B228800             push    $0088222B
0088221B   8D45FC                 lea     eax, [ebp-$04]

* Reference to: System.@LStrClr(void;void);
|
0088221E   E80131B8FF             call    00405324
00882223   C3                     ret


* Reference to: System.@HandleFinally;
|
00882224   E9CB28B8FF             jmp     00404AF4
00882229   EBF0                   jmp     0088221B

****** END
|
0088222B   5B                     pop     ebx
0088222C   59                     pop     ecx
0088222D   5D                     pop     ebp
0088222E   C3                     ret

*)
end;

procedure TfrmFPInvoice_TJ.ToFactoryNameChange(Sender : TObject);
begin
(*
00882230   56                     push    esi

* Reference to control TfrmFPInvoice_TJ.ToolButton2 : TToolButton
|
00882231   8B8010030000           mov     eax, [eax+$0310]
00882237   66BEEBFF               mov     si, $FFEB

* Reference to: System.@CallDynaInst;
|
0088223B   E81423B8FF             call    00404554
00882240   5E                     pop     esi
00882241   C3                     ret

*)
end;

procedure TfrmFPInvoice_TJ.ToolButton1Click(Sender : TObject);
begin
(*
00882244   55                     push    ebp
00882245   8BEC                   mov     ebp, esp
00882247   6A00                   push    $00
00882249   53                     push    ebx
0088224A   8BD8                   mov     ebx, eax
0088224C   33C0                   xor     eax, eax
0088224E   55                     push    ebp

* Possible String Reference to: 'éX(¸ÿëð[Y]Ã‹ÀU‹ì3ÀUhÉ"ˆ'
|
0088224F   6897228800             push    $00882297

***** TRY
|
00882254   64FF30                 push    dword ptr fs:[eax]
00882257   648920                 mov     fs:[eax], esp

* Reference to control TfrmFPInvoice_TJ.ADOQueryMain : TADOQuery
|
0088225A   8B8314030000           mov     eax, [ebx+$0314]

* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00882260   E85B5CC4FF             call    004C7EC0
00882265   84C0                   test    al, al
00882267   7518                   jnz     00882281
00882269   8D55FC                 lea     edx, [ebp-$04]
0088226C   8BC3                   mov     eax, ebx

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0088226E   E87D63C0FF             call    004885F0
00882273   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TfrmFPInvoice_TJ.cxGrid2 : TcxGrid
|
00882276   8B932C030000           mov     edx, [ebx+$032C]

|
0088227C   E8DBACF4FF             call    007CCF5C
00882281   33C0                   xor     eax, eax
00882283   5A                     pop     edx
00882284   59                     pop     ecx
00882285   59                     pop     ecx
00882286   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '[Y]Ã‹ÀU‹ì3ÀUhÉ"ˆ'
|
00882289   689E228800             push    $0088229E
0088228E   8D45FC                 lea     eax, [ebp-$04]

* Reference to: System.@LStrClr(void;void);
|
00882291   E88E30B8FF             call    00405324
00882296   C3                     ret


* Reference to: System.@HandleFinally;
|
00882297   E95828B8FF             jmp     00404AF4
0088229C   EBF0                   jmp     0088228E

****** END
|
0088229E   5B                     pop     ebx
0088229F   59                     pop     ecx
008822A0   5D                     pop     ebp
008822A1   C3                     ret

*)
end;

end.