I have A5V9, Qbks 2013 Pre. the newest QODBC (trial version) Windows 7 64 bit
Last week I created an import from Qbks into A5 using QODBC. It was from Salesorderline in Qbks.
Everything worked as expected.
Today when I try to run the import, I get an error message stating that I am trying to open 2 copies of Qbks. I go to the Task Manager and there is 2 instances of QB32.exe
Then A5 is locked and I have to shut it down form Task Manager, then I shut down Qbks normally, then in Task Manage shut down the extra program QB32.exe.
Then when I try again, the xtra program of Qbks doesn't show up until I try to run the import again. If I try to do this with Qbks not running, I get an error message, see attached pic.
I thought when I set this up that it would access the Qbks file that is already open. Something has changed and I don't know what happen
I did not write the code and don't understand it but this is what is used:
Last week I created an import from Qbks into A5 using QODBC. It was from Salesorderline in Qbks.
Everything worked as expected.
Today when I try to run the import, I get an error message stating that I am trying to open 2 copies of Qbks. I go to the Task Manager and there is 2 instances of QB32.exe
Then A5 is locked and I have to shut it down form Task Manager, then I shut down Qbks normally, then in Task Manage shut down the extra program QB32.exe.
Then when I try again, the xtra program of Qbks doesn't show up until I try to run the import again. If I try to do this with Qbks not running, I get an error message, see attached pic.
I thought when I set this up that it would access the Qbks file that is already open. Something has changed and I don't know what happen
I did not write the code and don't understand it but this is what is used:
Code:
dim connectionString as c connectionString = "::Name::Qbks1" delete options dim options as p options.ConsolidateArguments= .t. options.AddTablesToDatabase= .t. options.ShowProgress= .t. options.AllowCancel= .t. delete a_import dim a_import[0] as p a_import[].ObjectName = "SalesOrderLine" a_import[..].SQLSelectStatement = "SELECT CustomerRefFullName, TxnDate, RefNumber, PONumber, IsManuallyClosed, IsFullyInvoiced, Memo, SalesOrderLineSeqNo, SalesOrderLineGroupDesc, SalesOrderLineGroupQuantity, SalesOrderLineGroupSeqNo, SalesOrderLineTxnLineID, SalesOrderLineItemRefListID, SalesOrderLineDesc, SalesOrderLineInvoiced, SalesOrderLineIsManuallyClosed, CustFldSalesOrderLnBaseColor, CustomFieldSalesOrderLineHOOK, CustFldSalesOrderLnPriority, CustFldSalesOrderLnGrpBaseColor, CustFldSalesOrderLnGrpHOOK, CustFldSalesOrderLnGrpPriority, CustFldSalesOrderLnGrpShippingWt, CustFldSalesOrderLnGrpWire, CustFldSalesOrderLnGrpLnBaseColo, CustFldSalesOrderLnGrpLnHOOK, CustFldSalesOrderLnGrpLnPriority, CustFldSalesOrderLnGrpLnShipping, CustFldSalesOrderLnGrpLnWire, SalesOrderLineItemRefFullName, SalesOrderLineQuantity FROM SalesOrderLine WHERE (IsManuallyClosed = 0) AND (IsFullyInvoiced = 0)" a_import[..].SQLType = "Portable" a_import[..].Arguments = "" a_import[..].ImportType = "Create table" a_import[..].LocalTableName = a5.get_path() + chr(92) + "SalesOrderLine"+".dbf" a_import[..].LocalTableFieldDef = "" a_import[..].OverwriteOption = "Prompt before overwriting" dim flagSilent as l delete args dim args as sql::arguments flagSilent = .f. delete p dim p as p p = a5_AlphaDAO_Import(connectionString,a_import,options,flagSilent,args) 'p has an .hasError and .errorText property 'a_import[] has the following properties for each item: .countRecordsImported, .hasError, .errorText, .userCancelled
Comment