******************************
Thanks God, I solve it.
The Problem is with loading the uniDBGrid, I enable the BufferedStore, and it solve the problem
******************************
Hi All,
I am trying to insert a new customer by fireDAC query and mysql database,
The Problem is When I Refresh the query, it gives me no errors but the application is freezing.
I put the insert query in UNIDatamodule and the CustomersQuery in the customers form and also I move it to the datamodule, but it is the same.
I enabled the screen mask and disable it and it is the same problem
I didn't face any problems with the other forms, only this form.
Only I open the web from another pc and re open it from my pc, and it was solved directly for only 2 inserting
I am working on this problem for 2 days 🥵🥵
I used this sentences:
Function TdmMySQL.AddCustomer(CustomersQuery, TagsQuery: TFDQuery; CustomerTags : TStrings) : Integer;
var
NewID,
I: Integer;
c_Tag : String;
begin
With qryInsertCustomer Do
Begin
Close;
if dmMainModule.recCustomer.CustomerNo = 0 then
dmMainModule.recCustomer.CustomerNo := dmMainModule.CompanyConnection.ExecSQLScalar('Select IfNull(Max(CustomerNo),0) + 1 From customers');
ParamByName('CustomerNo').Value := dmMainModule.recCustomer.CustomerNo;
ParamByName('CustomerName').Value := dmMainModule.recCustomer.CustomerName;
ParamByName('CustomerType').Value := dmMainModule.recCustomer.CustomerTypeID;
ParamByName('LinkedWithSalesMan').Value := dmMainModule.recCustomer.LinkedWithSalesMan;
ParamByName('SalesManID').Value := dmMainModule.recCustomer.SalesManID;
ParamByName('SalesTaxType').Value := dmMainModule.recCustomer.SalesTaxType;
ParamByName('SalesTaxNumber').Value := dmMainModule.recCustomer.SalesTaxNumber;
ParamByName('IsBlackListed').Value := dmMainModule.recCustomer.IsBlackListed;
ParamByName('AllowCredit').Value := dmMainModule.recCustomer.AllowCredit;
ParamByName('HasDebtLimit').Value := dmMainModule.recCustomer.HasDebtLimit;
ParamByName('DebtLimit').Value := dmMainModule.recCustomer.DebtLimit;
ParamByName('AllowCheques').Value := dmMainModule.recCustomer.AllowCheques;
ParamByName('HasChequesValuesLimit').Value := dmMainModule.recCustomer.HasChequesValuesLimit;
ParamByName('ChequesValuesLimit').Value := dmMainModule.recCustomer.ChequesValuesLimit;
ParamByName('BankName').Value := dmMainModule.recCustomer.BankName;
ParamByName('BankBranch').Value := dmMainModule.recCustomer.BankBranch;
ParamByName('BankAccountNumber').Value := dmMainModule.recCustomer.BankAccountNumber;
ParamByName('BankSwiftCode').Value := dmMainModule.recCustomer.BankSwiftCode;
ParamByName('BankAddress').Value := dmMainModule.recCustomer.BankAddress;
ParamByName('IBANNumber').Value := dmMainModule.recCustomer.IBANNumber;
End;
With qrySaveCustomerInfo Do
Begin
ParamByName('Phone1').Value := dmMainModule.recCustomer.Phone1;
ParamByName('Phone2').Value := dmMainModule.recCustomer.Phone2;
ParamByName('Fax').Value := dmMainModule.recCustomer.Fax;
ParamByName('Section1ExtName').Value := dmMainModule.recCustomer.Section1ExtName;
ParamByName('Section1Ext').Value := dmMainModule.recCustomer.Section1Ext;
ParamByName('Section2ExtName').Value := dmMainModule.recCustomer.Section2ExtName;
ParamByName('Section2Ext').Value := dmMainModule.recCustomer.Section2Ext;
ParamByName('ContactPerson1Name').Value := dmMainModule.recCustomer.ContactPerson1Name;
ParamByName('ContactPerson1Mobile').Value := dmMainModule.recCustomer.ContactPerson1Mobile;
ParamByName('ContactPerson2Name').Value := dmMainModule.recCustomer.ContactPerson2Name;
ParamByName('ContactPerson2Mobile').Value := dmMainModule.recCustomer.ContactPerson2Mobile;
ParamByName('EMail1').Value := dmMainModule.recCustomer.EMail1;
ParamByName('EMail2').Value := dmMainModule.recCustomer.EMail2;
ParamByName('Website').Value := dmMainModule.recCustomer.Website;
ParamByName('City').Value := dmMainModule.recCustomer.City;
ParamByName('Area').Value := dmMainModule.recCustomer.Area;
ParamByName('Street').Value := dmMainModule.recCustomer.Street;
ParamByName('BuildingNo').Value := dmMainModule.recCustomer.BuildingNo;
ParamByName('BuildingSubNo').Value := dmMainModule.recCustomer.BuildingSubNo;
ParamByName('Floor').Value := dmMainModule.recCustomer.Floor;
ParamByName('OfficeNo').Value := dmMainModule.recCustomer.OfficeNo;
ParamByName('POBOX').Value := dmMainModule.recCustomer.POBOX;
ParamByName('POBoxCity').Value := dmMainModule.recCustomer.POBoxCity;
ParamByName('ZipCode').Value := dmMainModule.recCustomer.ZipCode;
ParamByName('POBoxState').Value := dmMainModule.recCustomer.POBoxState;
ParamByName('Remarks').Value := dmMainModule.recCustomer.Remarks;
End;
With qrySaveCustomerOpenBalances Do
Begin
ParamByName('PeriodID').Value := dmMainModule.LoginInfo.PeriodID;
ParamByName('Debit').Value := dmMainModule.recCustomer.OpeningDebit;
ParamByName('Credit').Value := dmMainModule.recCustomer.OpeningCredit;
End;
dmMainModule.CompanyConnection.StartTransaction;
Try
qryInsertCustomer.OpenOrExecute; // I tried this and also open to take a newid result
NewID := qryInsertCustomer.FieldByName('NewID').Value;
dmMainModule.recCustomer.CustomerID := NewID;
qrySaveCustomerInfo.ParamByName('CustomerID').Value := NewID;
qrySaveCustomerInfo.ExecSQL;
qrySaveCustomerOpenBalances.ParamByName('CustomerID').Value := NewID;
qrySaveCustomerOpenBalances.ExecSQL;
qrySaveCustomerTags.Params.ArraySize := CustomerTags.Count;
for I := 0 to CustomerTags.Count - 1 do
Begin
c_Tag := CustomerTags[i];
if TagsQuery.Locate('Tag',c_Tag,[]) then
Begin
qrySaveCustomerTags.ParamByName('CustomerID').Values[i] := NewID;
qrySaveCustomerTags.ParamByName('TagID').Values[i] := TagsQuery.FieldByName('TagID').AsInteger;
End;
End;
qrySaveCustomerTags.Execute(qrySaveCustomerTags.Params.ArraySize);
dmMainModule.CompanyConnection.Commit;
qryInsertCustomer.Close;
CustomersQuery.Refresh; // ***** here is the problem and I tried to close it and reopen it also ********///
CustomersQuery.Locate('CustomerID', dmMainModule.recCustomer.CustomerID, []);
Result := NewID;
Except
On E : Exception Do
Begin
dmMainModule.CompanyConnection.Rollback;
ShowMessage(E.Message);
Result := -1;
raise;
End;
End;
end;
the CustomersQuery.text is :
Select c.CustomerID, c.CustomerNo, c.CustomerName, Cast(c.CustomerType as signed integer) as CustomerTypeID, ct.TypeName as CustomerType,
c.LinkedWithSalesMan, c.SalesManID, sm.SalesManName,
c.SalesTaxType, c.SalesTaxNumber, c.IsBlackListed, c.AllowCredit, c.HasDebtLimit
, c.DebtLimit,
c.AllowCheques, c.HasChequesValuesLimit, c.ChequesValuesLimit
, c.BankName, c.BankBranch,
c.BankAccountNumber, c.BankSwiftCode
, c.BankAddress, c.IBANNumber, ci.Phone1, ci.Phone2, ci.Fax,
ci.Section1ExtName
, ci.Section1Ext, ci.Section2ExtName, ci.Section2Ext,
ci.ContactPerson1Name, ci.ContactPerson1Mobile, ci.ContactPerson2Name,
ci.ContactPerson2Mobile
, ci.EMail1, ci.EMail2
,
ci.Website, ci.City, ci.Area
, ci.Street, ci.BuildingNo, ci.BuildingSubNo, ci.Floor
,
ci.OfficeNo, ci.POBOX, ci.POBoxCity, ci.ZipCode
, ci.POBoxState, ci.Remarks
From customers c
Left Outer Join customersinfo ci on c.CustomerID = ci.CustomerID
Left Outer Join customertypes ct on c.CustomerType = ct.TypeID
Left Outer Join SalesMen sm on sm.SalesManID = c.SalesManID
Where Upper(c.CustomerName) Like Upper(:CustomerName)
AND Upper(sm.SalesManName) Like Upper(:SalesManName)
