Function at 0x4347f8
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 0x27
push 0
push 0
dec ecx
jne 0x434800
push ebx
push esi
push edi
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x435a48
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
mov edx, 0x435a64
mov ecx, dword [eax]
call dword [ecx + 0x198]
mov eax, dword [ebp - 4]
mov ebx, dword [eax + 0x718]
mov eax, ebx
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [0x4f8090]
mov eax, dword [eax]
mov eax, dword [eax + 0x31c]
mov edx, 0x435a7c
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x30]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov edx, dword [ebp - 0x30]
lea eax, [ebp - 0x2c]
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea eax, [ebp - 0x2c]
push eax
mov eax, ebx
call sub.adortl70.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 0x435a88
call sub.adortl70.bpl__Adodb_TParameters_ParamByName_qqrx17System_WideString
pop edx
call sub.adortl70.bpl__Adodb_TParameter_SetValue_qqrrx14System_Variant
mov eax, ebx
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 4]
xor edx, edx
mov dword [eax + 0x7ec], edx
mov eax, dword [ebp - 4]
call fcn.0042223c
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x764]
cmp dword [eax + 0x24c], 2
je 0x43594e
xor edx, edx
push ebp
push 0x4357d6
push dword fs:[edx]
mov dword fs:[edx], esp
mov eax, dword [0x4f8090]
mov eax, dword [eax]
mov eax, dword [eax + 0x300]
call sub.adortl70.bpl__Adodb_TADOConnection_GetInTransaction_qqrv
test al, al
je 0x4348ec
mov eax, dword [0x4f8090]
mov eax, dword [eax]
mov eax, dword [eax + 0x300]
call sub.adortl70.bpl__Adodb_TADOConnection_RollbackTrans_qqrv
mov eax, dword [0x4f8090]
mov eax, dword [eax]
mov eax, dword [eax + 0x300]
call sub.adortl70.bpl__Adodb_TADOConnection_BeginTrans_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x764]
mov eax, dword [eax + 0x22c]
mov edi, eax
sub eax, edi
jl 0x4357b7
inc eax
mov dword [ebp - 0x18], eax
lea eax, [ebp - 0x34]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x764]
mov ecx, edi
mov edx, 4
call sub.vcl70.bpl__Grids_TStringGrid_GetCells_qqrii
mov eax, dword [ebp - 0x34]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov ebx, eax
lea eax, [ebp - 0x38]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x764]
mov ecx, edi
mov edx, 5
call sub.vcl70.bpl__Grids_TStringGrid_GetCells_qqrii
mov eax, dword [ebp - 0x38]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
cmp ebx, eax
jle 0x43498f
push 0
lea ecx, [ebp - 0x3c]
mov eax, dword [0x4f80b0]
mov eax, dword [eax]
mov edx, 0x435a9c
mov ebx, dword [eax]
call dword [ebx + 0x44]
mov eax, dword [ebp - 0x3c]
mov cx, word [0x435adc]
mov dl, 2
call sub.vcl70.bpl__Dialogs_MessageDlg_qqrx17System_AnsiString19Dialogs_TMsgDlgType47System__Set_t18Dialogs_TMsgDlgBtn_iuc_0_iuc_10
jmp 0x4357ad
lea eax, [ebp - 0x40]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x764]
mov ecx, edi
mov edx, 4
call sub.vcl70.bpl__Grids_TStringGrid_GetCells_qqrii
mov eax, dword [ebp - 0x40]
call sub.rtl70.bpl__Sysutils_StrToFloat_qqrx17System_AnsiString
fcomp dword [0x435ae0]
fnstsw ax
sahf
jbe 0x4357ad
mov al, byte [0x435ae4]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x70c]
mov edx, 0x435af0
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
mov edx, eax
lea eax, [ebp - 0x50]
mov cl, 0xfc
call sub.rtl70.bpl__Variants__VarFromInt_qqrr8TVarDataxixzc
lea ecx, [ebp - 0x50]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x718]
mov edx, 0x435b00
mov ebx, dword [eax]
call dword [ebx + 0x244]
mov al, byte [0x435ae4]
push eax
lea eax, [ebp - 0x64]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x764]
mov ecx, edi
mov edx, 1
call sub.vcl70.bpl__Grids_TStringGrid_GetCells_qqrii
mov edx, dword [ebp - 0x64]
lea eax, [ebp - 0x60]
call sub.rtl70.bpl__Variants__VarFromLStr_qqrr8TVarDatax17System_AnsiString
lea ecx, [ebp - 0x60]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x70c]
mov edx, 0x435b14
mov ebx, dword [eax]
call dword [ebx + 0x244]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x70c]
mov edx, 0x435af0
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
mov edx, eax
lea eax, [ebp - 0x74]
mov cl, 0xfc
call sub.rtl70.bpl__Variants__VarFromInt_qqrr8TVarDataxixzc
lea eax, [ebp - 0x74]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
call sub.adortl70.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 0x435b2c
call sub.adortl70.bpl__Adodb_TParameters_ParamByName_qqrx17System_WideString
pop edx
call sub.adortl70.bpl__Adodb_TParameter_SetValue_qqrrx14System_Variant
mov eax, dword [0x4f8090]
mov eax, dword [eax]
mov eax, dword [eax + 0x31c]
mov edx, 0x435b44
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
mov edx, eax
lea eax, [ebp - 0x84]
mov cl, 0xfc
call sub.rtl70.bpl__Variants__VarFromInt_qqrr8TVarDataxixzc
lea eax, [ebp - 0x84]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
call sub.adortl70.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 0x435b50
call sub.adortl70.bpl__Adodb_TParameters_ParamByName_qqrx17System_WideString
pop edx
call sub.adortl70.bpl__Adodb_TParameter_SetValue_qqrrx14System_Variant
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
lea eax, [ebp - 0x88]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x764]
mov ecx, edi
mov edx, 2
call sub.vcl70.bpl__Grids_TStringGrid_GetCells_qqrii
mov eax, dword [ebp - 0x88]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov dword [ebp - 8], eax
lea eax, [ebp - 0x8c]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x764]
mov ecx, edi
mov edx, 3
call sub.vcl70.bpl__Grids_TStringGrid_GetCells_qqrii
mov eax, dword [ebp - 0x8c]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov dword [ebp - 0xc], eax
lea eax, [ebp - 0x90]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x764]
mov ecx, edi
mov edx, 4
call sub.vcl70.bpl__Grids_TStringGrid_GetCells_qqrii
mov eax, dword [ebp - 0x90]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov esi, eax
xor eax, eax
mov dword [ebp - 0x10], eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x77c]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x77c]
call sub.adortl70.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
mov edx, 0x435a88
call sub.adortl70.bpl__Adodb_TParameters_ParamByName_qqrx17System_WideString
push eax
lea eax, [ebp - 0xa0]
mov edx, 6
mov cl, 1
call sub.rtl70.bpl__Variants__VarFromInt_qqrr8TVarDataxixzc
lea edx, [ebp - 0xa0]
pop eax
call sub.adortl70.bpl__Adodb_TParameter_SetValue_qqrrx14System_Variant
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x77c]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
lea edx, [ebp - 0xa4]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x780]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xa4]
lea edx, [ebp - 0x14]
call sub.rtl70.bpl__Sysutils_Trim_qqrx17System_AnsiString
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x71c]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x71c]
call sub.adortl70.bpl__Adodb_TCustomADODataSet_GetParameters_qqrv
xor edx, edx
call sub.adortl70.bpl__Adodb_TParameters_GetItem_qqri
push eax
lea eax, [ebp - 0xb4]
call sub.rtl70.bpl__Variants_Null_qqrv
lea edx, [ebp - 0xb4]
pop eax
call sub.adortl70.bpl__Adodb_TParameter_SetValue_qqrrx14System_Variant
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x71c]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x71c]
call sub.dbrtl70.bpl__Db_TDataSet_Append_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x728]
mov edx, 4
mov ecx, dword [eax]
call dword [ecx + 0xa8]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x72c]
mov edx, 3
mov ecx, dword [eax]
call dword [ecx + 0xa8]
lea edx, [ebp - 0xb8]
mov eax, dword [0x4f8090]
mov eax, dword [eax]
mov eax, dword [eax + 0x304]
call sub.vcl70.bpl__Controls_TControl_GetText_qqrv
mov eax, dword [ebp - 0xb8]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov edx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x730]
mov ecx, dword [eax]
call dword [ecx + 0xa8]
lea ecx, [ebp - 0xc8]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x384]
mov edx, 0x435b68
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldValue_qqrx17System_AnsiString
lea eax, [ebp - 0xc8]
call sub.rtl70.bpl__Variants__VarToReal_qqrrx8TVarData
add esp, 0xfffffff8
fstp qword [esp]
wait
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x774]
mov edx, dword [eax]
call dword [edx + 0xa0]
lea edx, [ebp - 0xcc]
mov eax, dword [0x4f8090]
mov eax, dword [eax]
mov eax, dword [eax + 0x304]
call sub.vcl70.bpl__Controls_TControl_GetText_qqrv
mov eax, dword [ebp - 0xcc]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov edx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x770]
mov ecx, dword [eax]
call dword [ecx + 0xa8]
lea ecx, [ebp - 0xdc]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x384]
mov edx, 0x435b68
call sub.dbrtl70.bpl__Db_TDataSet_GetFieldValue_qqrx17System_AnsiString
lea eax, [ebp - 0xdc]
call sub.rtl70.bpl__Variants__VarToReal_qqrrx8TVarData
add esp, 0xfffffff8
fstp qword [esp]
wait
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x738]
mov edx, dword [eax]
call dword [edx + 0xa0]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x724]
mov edx, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0xb0]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x70c]
mov edx, 0x435af0
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
mov edx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x734]
mov ecx, dword [eax]
call dword [ecx + 0xa8]
mov eax, dword [0x4f8090]
mov eax, dword [eax]
mov eax, dword [eax + 0x31c]
mov edx, 0x435b44
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
mov edx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x788]
mov ecx, dword [eax]
call dword [ecx + 0xa8]
lea edx, [ebp - 0xe0]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x344]
call sub.vcl70.bpl__Controls_TControl_GetText_qqrv
mov eax, dword [ebp - 0xe0]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov edx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x73c]
mov ecx, dword [eax]
call dword [ecx + 0xa8]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x740]
mov edx, 0x435b74
mov ecx, dword [eax]
call dword [ecx + 0xb0]
mov eax, dword [0x4f8090]
mov eax, dword [eax]
mov eax, dword [eax + 0x31c]
mov edx, 0x435b90
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
mov edx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x758]
mov ecx, dword [eax]
call dword [ecx + 0xa8]
mov eax, dword [ebp - 4]
call fcn.00435da4
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x71c]
mov edx, dword [eax]
call dword [edx + 0x24c]
lea edx, [ebp - 0xe4]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x724]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov edx, dword [ebp - 0xe4]
mov eax, dword [ebp - 4]
call fcn.0043609c
mov eax, dword [0x4f8090]
mov eax, dword [eax]
mov eax, dword [eax + 0x370]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [0x4f8090]
mov eax, dword [eax]
mov eax, dword [eax + 0x370]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x44]
mov eax, dword [0x4f8090]
mov eax, dword [eax]
mov eax, dword [eax + 0x370]
call sub.adortl70.bpl__Adodb_TADOQuery_GetSQL_qqrv
mov edx, 0x435ba4
mov ecx, dword [eax]
call dword [ecx + 0x38]
mov eax, dword [0x4f8090]
mov eax, dword [eax]
mov eax, dword [eax + 0x370]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7a8]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7a8]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7a8]
call sub.dbrtl70.bpl__Db_TDataSet_Append_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x71c]
mov edx, 0x435af0
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7a8]
mov edx, 0x435be0
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xa8]
mov eax, dword [0x4f8090]
mov eax, dword [eax]
mov eax, dword [eax + 0x370]
mov edx, 0x435bf4
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7a8]
mov edx, 0x435bf4
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xa8]
mov eax, dword [0x4f8090]
mov eax, dword [eax]
mov eax, dword [eax + 0x370]
mov edx, 0x435c08
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7a8]
mov edx, 0x435c18
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xa8]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7a8]
mov edx, dword [eax]
call dword [edx + 0x24c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
call sub.dbrtl70.bpl__Db_TDataSet_First_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
mov dword [ebp - 0x1c], eax
jmp 0x435527
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
mov edx, 0x435c28
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x54]
mov dword [ebp - 0xe8], esi
fild dword [ebp - 0xe8]
fcompp
fnstsw ax
sahf
jb 0x43529f
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
mov edx, 0x435c28
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
add dword [ebp - 0x10], eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
mov edx, 0x435c28
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
add dword [ebp - 0xc], eax
mov esi, dword [ebp - 8]
sub esi, dword [ebp - 0xc]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
mov edx, dword [eax]
call dword [edx + 0x14c]
test eax, eax
jg 0x435126
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
call sub.dbrtl70.bpl__Db_TDataSet_Append_qqrv
mov eax, dword [0x4f8090]
mov eax, dword [eax]
mov eax, dword [eax + 0x31c]
mov edx, 0x435b44
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xec]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xec]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
mov edx, 0x435b44
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xb0]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x70c]
mov edx, 0x435af0
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xf0]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xf0]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
mov edx, 0x435c3c
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xb0]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x70c]
mov edx, 0x435c50
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xf4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xf4]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
mov edx, 0x435c60
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xb0]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
call sub.dbrtl70.bpl__Db_TDataSet_Edit_qqrv
fild dword [ebp - 8]
add esp, 0xfffffff8
fstp qword [esp]
wait
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
mov edx, 0x435c74
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0xa4]
fild dword [ebp - 0xc]
add esp, 0xfffffff8
fstp qword [esp]
wait
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
mov edx, 0x435c88
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0xa4]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
mov edx, dword [eax]
call dword [edx + 0x24c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x760]
call sub.dbrtl70.bpl__Db_TDataSet_Append_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x71c]
mov edx, 0x435af0
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x760]
mov edx, 0x435c9c
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xa8]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
mov edx, 0x435af0
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x760]
mov edx, 0x435cb0
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xa8]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
mov edx, 0x435c28
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x760]
mov edx, 0x435cc4
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xa8]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x760]
mov edx, 0x435cd8
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, 0x435b74
mov ecx, dword [eax]
call dword [ecx + 0xb0]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x760]
mov edx, dword [eax]
call dword [edx + 0x24c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
call sub.dbrtl70.bpl__Db_TDataSet_Edit_qqrv
push 0
push 0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
mov edx, 0x435c28
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0xa4]
jmp 0x43551f
add dword [ebp - 0x10], esi
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
mov edx, dword [eax]
call dword [edx + 0x14c]
test eax, eax
jg 0x435390
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
call sub.dbrtl70.bpl__Db_TDataSet_Append_qqrv
mov eax, dword [0x4f8090]
mov eax, dword [eax]
mov eax, dword [eax + 0x31c]
mov edx, 0x435b44
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xf8]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xf8]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
mov edx, 0x435b44
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xb0]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x70c]
mov edx, 0x435af0
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0xfc]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0xfc]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
mov edx, 0x435c3c
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xb0]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x70c]
mov edx, 0x435c50
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x100]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0x100]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
mov edx, 0x435c60
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xb0]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
call sub.dbrtl70.bpl__Db_TDataSet_Edit_qqrv
fild dword [ebp - 8]
add esp, 0xfffffff8
fstp qword [esp]
wait
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
mov edx, 0x435c74
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0xa4]
fild dword [ebp - 8]
add esp, 0xfffffff8
fstp qword [esp]
wait
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
mov edx, 0x435c88
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0xa4]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
mov edx, dword [eax]
call dword [edx + 0x24c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x760]
call sub.dbrtl70.bpl__Db_TDataSet_Append_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x71c]
mov edx, 0x435af0
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x760]
mov edx, 0x435c9c
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xa8]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
mov edx, 0x435af0
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x760]
mov edx, 0x435cb0
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xa8]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x760]
mov edx, 0x435cc4
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, esi
mov ecx, dword [eax]
call dword [ecx + 0xa8]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x760]
mov edx, 0x435cd8
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, 0x435b74
mov ecx, dword [eax]
call dword [ecx + 0xb0]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x760]
mov edx, dword [eax]
call dword [edx + 0x24c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
call sub.dbrtl70.bpl__Db_TDataSet_Edit_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
mov edx, 0x435c28
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x54]
mov dword [ebp - 0xe8], esi
fild dword [ebp - 0xe8]
fsubp st(1)
add esp, 0xfffffff8
fstp qword [esp]
wait
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
mov edx, 0x435cec
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0xa4]
mov eax, dword [ebp - 8]
mov dword [ebp - 0xc], eax
xor esi, esi
jmp 0x435537
mov eax, dword [ebp - 0x1c]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
mov eax, dword [ebp - 0x1c]
cmp byte [eax + 0xa1], 0
je 0x434fcd
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x718]
call sub.dbrtl70.bpl__Db_TDataSet_Edit_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
mov edx, 0x435c88
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x718]
mov edx, 0x435c88
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
pop edx
mov ecx, dword [eax]
call dword [ecx + 0xa8]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x718]
mov edx, 0x435c60
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
mov ebx, eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x718]
mov edx, 0x435c88
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
cmp ebx, eax
jg 0x4355d0
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x718]
mov edx, 0x435d00
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, 1
mov ecx, dword [eax]
call dword [ecx + 0xa8]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x718]
mov dl, 2
call sub.adortl70.bpl__Adodb_TCustomADODataSet_UpdateBatch_qqr20Adodb_TAffectRecords
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x71c]
call sub.dbrtl70.bpl__Db_TDataSet_Edit_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x73c]
mov edx, dword [ebp - 0x10]
mov ecx, dword [eax]
call dword [ecx + 0xa8]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x71c]
mov edx, dword [eax]
call dword [edx + 0x24c]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x760]
mov dl, 2
call sub.adortl70.bpl__Adodb_TCustomADODataSet_UpdateBatch_qqr20Adodb_TAffectRecords
fild dword [ebp - 0xc]
add esp, 0xfffffff4
fstp xword [esp]
wait
lea eax, [ebp - 0x104]
call sub.rtl70.bpl__Sysutils_FloatToStr_qqrg
mov eax, dword [ebp - 0x104]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x764]
mov ecx, edi
mov edx, 3
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
mov dword [ebp - 0xe8], esi
fild dword [ebp - 0xe8]
add esp, 0xfffffff4
fstp xword [esp]
wait
lea eax, [ebp - 0x108]
call sub.rtl70.bpl__Sysutils_FloatToStr_qqrg
mov eax, dword [ebp - 0x108]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x764]
mov ecx, edi
mov edx, 4
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
call sub.dbrtl70.bpl__Db_TDataSet_First_qqrv
mov eax, dword [ebp - 4]
mov ebx, dword [eax + 0x710]
jmp 0x43577d
mov al, byte [0x435ae4]
push eax
mov edx, 0x435af0
mov eax, ebx
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x58]
mov edx, eax
lea eax, [ebp - 0x118]
mov cl, 0xfc
call sub.rtl70.bpl__Variants__VarFromInt_qqrr8TVarDataxixzc
lea ecx, [ebp - 0x118]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7c8]
mov edx, 0x435af0
mov esi, dword [eax]
call dword [esi + 0x244]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7c8]
mov edx, 0x435c28
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x54]
fstp qword [ebp - 0x120]
wait
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
mov edx, 0x435c28
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x54]
fcomp qword [ebp - 0x120]
fnstsw ax
sahf
je 0x435776
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7c8]
call sub.dbrtl70.bpl__Db_TDataSet_Edit_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
mov edx, 0x435c28
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x54]
add esp, 0xfffffff8
fstp qword [esp]
wait
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7c8]
mov edx, 0x435c28
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0xa4]
mov eax, ebx
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
cmp byte [ebx + 0xa1], 0
je 0x4356aa
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x7c8]
mov dl, 2
call sub.adortl70.bpl__Adodb_TCustomADODataSet_UpdateBatch_qqr20Adodb_TAffectRecords
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
xor edx, edx
mov ecx, dword [eax]
call dword [ecx + 0x198]
inc edi
dec dword [ebp - 0x18]
jne 0x43491b
mov eax, dword [0x4f8090]
mov eax, dword [eax]
mov eax, dword [eax + 0x300]
call sub.adortl70.bpl__Adodb_TADOConnection_CommitTrans_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x43586b
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x764]
mov eax, dword [eax + 0x24c]
sub eax, 2
test eax, eax
jle 0x43592d
mov dword [ebp - 0x18], eax
mov edi, 1
lea eax, [ebp - 0x130]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x764]
mov ecx, edi
mov edx, 2
call sub.vcl70.bpl__Grids_TStringGrid_GetCells_qqrii
mov eax, dword [ebp - 0x130]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
mov ebx, eax
lea eax, [ebp - 0x134]
push eax
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x764]
mov ecx, edi
mov edx, 3
call sub.vcl70.bpl__Grids_TStringGrid_GetCells_qqrii
mov eax, dword [ebp - 0x134]
call sub.rtl70.bpl__Sysutils_StrToInt_qqrx17System_AnsiString
cmp ebx, eax
jle 0x435923
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
xor edx, edx
mov ecx, dword [eax]
call dword [ecx + 0x198]
push 0
lea ecx, [ebp - 0x138]
mov eax, dword [0x4f80b0]
mov eax, dword [eax]
mov edx, 0x435d50
mov ebx, dword [eax]
call dword [ebx + 0x44]
mov eax, dword [ebp - 0x138]
mov cx, word [0x435adc]
mov dl, 2
call sub.vcl70.bpl__Dialogs_MessageDlg_qqrx17System_AnsiString19Dialogs_TMsgDlgType47System__Set_t18Dialogs_TMsgDlgBtn_iuc_0_iuc_10
jmp 0x43594e
inc edi
dec dword [ebp - 0x18]
jne 0x43588d
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x710]
xor edx, edx
mov ecx, dword [eax]
call dword [ecx + 0x198]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x714]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x435a52
lea eax, [ebp - 0x138]
mov edx, 6
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x118]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x108]
mov edx, 8
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0xe4]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0xe0]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0xdc]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0xcc]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0xc8]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0xb8]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0xb4]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0xa4]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0xa0]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x90]
mov edx, 3
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x84]
mov edx, dword [sym.imp.rtl70.bpl___xp_14System_Variant]
mov ecx, 2
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x64]
call sub.rtl70.bpl__System__LStrClr_qqrpv
lea eax, [ebp - 0x60]
mov edx, dword [sym.imp.rtl70.bpl___xp_14System_Variant]
mov ecx, 2
call sub.rtl70.bpl__System__FinalizeArray_qqrpvt1ui
lea eax, [ebp - 0x40]
mov edx, 5
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 0x2c]
call sub.rtl70.bpl__Variants__VarClr_qqrr8TVarData
lea eax, [ebp - 0x14]
call sub.rtl70.bpl__System__LStrClr_qqrpv
ret