Code for eConnect

Private Function fncSettingCust(ByVal strNumber As String, ByVal
strName As String, ByVal strAddrCode As String, _
    ByVal strClass As String, ByVal strBTAddrCode As String, ByVal
strBTAddr1 As String, ByVal strBTAddr2 As String, _
    ByVal strBTCity As String, ByVal strBTState As String, ByVal
strBTPostalCode As String, ByVal strBTCountry As String, _
    ByVal strBTPhone1 As String, ByVal strBTPhone2 As String, ByVal
strBTPhone3 As String, ByVal strBTFax As String, _
    ByVal strSTAddrCode As String, ByVal strSTAddr1 As String, _
    ByVal strSTAddr2 As String, ByVal strSTCity As String, ByVal
strSTState As String, _
    ByVal strSTPostalCode As String, ByVal strSTCountry As String, _
    ByVal strSTPhone1 As String, ByVal strSTPhone2 As String, _
    ByVal strSTPhone3 As String, ByVal strSTFax As String) As Boolean
        Try
            ' ----------------------- Customer Section
---------------------------
            ' Create Customer Object
            objCustomer = objAdapter.Customer
            ' Setting Customer Properties
            'objCustomer.AddNew()
            objCustomer.Field("CustomerID") = strNumber
            objCustomer.Field("Name") = strName
            objCustomer.Field("Class") = strClass
            'objCustomer.Field("StatementName") = data.Current.row(17)
            'objCustomer.Field("ShortName") = "shortname"
            objCustomer.Field("Address/AddressID") = strAddrCode
'"BILLTO001" 'Required
            'objCustomer.Field("Address/Contact") = "Contact Person"
            'objCustomer.Field("Address/Address1") = "Address Line 1"
            'objCustomer.Field("Address/Address2") = "Address Line 2"
            'objCustomer.Field("Address/Address3") = "Address Line 3"
            'objCustomer.Field("Address/City") = "City"
            'objCustomer.Field("Address/State") = "State"
            'objCustomer.Field("Address/Zip") = "1234567890"
            'objCustomer.Field("Address/Country") = "USA"
            'objCustomer.Field("Address/PhoneNumber1") = "1234567890"
            'objCustomer.Field("Address/PhoneNumber2") = "1234567890"
            'objCustomer.Field("Address/PhoneNumber3") = "1234567890"
            'objCustomer.Field("Address/FaxNumber") = "1234567890"
            objCustomer.Field("BillingAddress/AddressID") =
strBTAddrCode
            'objCustomer.Field("BillingAddress/Contact") = ""
            objCustomer.Field("BillingAddress/Address1") = strBTAddr1
            objCustomer.Field("BillingAddress/Address2") = strBTAddr2
            'objCustomer.Field("BillingAddress/Address3") =
data.Current.row(25)
            objCustomer.Field("BillingAddress/Country") = strBTCountry
            objCustomer.Field("BillingAddress/City") = strBTCity
            objCustomer.Field("BillingAddress/State") = strSTState
            objCustomer.Field("BillingAddress/Zip") = strBTPostalCode
            objCustomer.Field("BillingAddress/PhoneNumber1") =
Replace(Replace(Replace(Replace(strBTPhone1, "(", ""), ")", ""),
Microsoft.VisualBasic.Chr(32), ""), "-", "")
            objCustomer.Field("BillingAddress/PhoneNumber2") =
Replace(Replace(Replace(Replace(strBTPhone2, "(", ""), ")", ""),
Microsoft.VisualBasic.Chr(32), ""), "-", "")
            objCustomer.Field("BillingAddress/PhoneNumber3") =
Replace(Replace(Replace(Replace(strBTPhone3, "(", ""), ")", ""),
Microsoft.VisualBasic.Chr(32), ""), "-", "")
            objCustomer.Field("BillingAddress/FaxNumber") =
Replace(Replace(Replace(Replace(strBTFax, "(", ""), ")", ""),
Microsoft.VisualBasic.Chr(32), ""), "-", "")
            objCustomer.Field("ShippingAddress/AddressID") =
strSTAddrCode
            'objCustomer.Field("ShippingAddress/Contact") =
strSTContact
            objCustomer.Field("ShippingAddress/Address1") = strSTAddr1
            objCustomer.Field("ShippingAddress/Address2") = strSTAddr2
            'objCustomer.Field("ShippingAddress/Address3") =
data.Current.row(39)
            objCustomer.Field("ShippingAddress/Country") = strSTCountry
            objCustomer.Field("ShippingAddress/City") = strSTCity
            objCustomer.Field("ShippingAddress/State") = strSTState
            objCustomer.Field("ShippingAddress/Zip") = strSTPostalCode
            objCustomer.Field("ShippingAddress/PhoneNumber1") =
Replace(Replace(Replace(Replace(strSTPhone1, "(", ""), ")", ""),
Microsoft.VisualBasic.Chr(32), ""), "-", "")
            objCustomer.Field("ShippingAddress/PhoneNumber2") =
Replace(Replace(Replace(Replace(strSTPhone2, "(", ""), ")", ""),
Microsoft.VisualBasic.Chr(32), ""), "-", "")
            objCustomer.Field("ShippingAddress/PhoneNumber3") =
Replace(Replace(Replace(Replace(strSTPhone3, "(", ""), ")", ""),
Microsoft.VisualBasic.Chr(32), ""), "-", "")
            objCustomer.Field("ShippingAddress/FaxNumber") =
Replace(Replace(Replace(Replace(strSTFax, "(", ""), ")", ""),
Microsoft.VisualBasic.Chr(32), ""), "-", "")
            'objCustomer.Field("Comment1") = "comment 1"
            'objCustomer.Field("Comment2") = "comment 2"
            'objCustomer.Field("UserDefined1") = "user defined 1"
            'objCustomer.Field("UserDefined2") = "user defined 2"
            'objCustomer.Field("CreditType") = ""  'Credit limit type:
No Credit = 0, Unlimited = 1, Amount = 2
            'objCustomer.Field("CreditLimit") = ""  'Dependency:
CreditType must be 2
            objCustomer.Field("UpdateIfExists") = "0"
            'objCustomer.Field("") = ""
            'objCustomer.Post() 'This method creates or updates the
customer.  If the customer is added to the
            '[sales order, the customer info will also be
created/updated too.
            'objSalesOrder.AssignCustomer(objCustomer)

            ' End If
        Catch ex As Exception
            ' fncPostOrder = False
            MsgBox(ex.Message + ex.Source)
        End Try


' ------------------------- Sales Order Header Section
------------------------
            'Create Sales Order Object
            objSalesOrder = objAdapter.SalesOrder
            ' Sales Order Types: SalesOrderType_BackOrder,
SalesOrderType_Invoice, SalesOrderType_Order, SalesOrderType_Quote,
SalesOrderType_Return
            objSalesOrder.Field("Type") =
objSalesOrder.SalesOrderType_Invoice 'Required
            objSalesOrder.Field("TypeID") = "STDINV" 'If empty, will
get default from connection manager config
            objSalesOrder.Field("DocumentID") = strOrdNum
'"PART01234567" 'data.Current.row(4)  'If empty, will auto-generate
using prefix and lastOrder
            'number from connection manager config
            objSalesOrder.Field("Date") = CStr(Now)  'Required
            objSalesOrder.Field("TaxScheduleID") = "DEFAULT" 'Required
            'objSalesOrder.Field("TaxScheduleID") = "0650-010"
            objSalesOrder.Field("ShippingMethod") = strShipMthd
            objSalesOrder.Field("SiteID") = strSiteID '10 '"MAIN"If
empty, will get default from connection manager config
            objSalesOrder.Field("SalesTerritoryID") = "PARTS"
'SalesTerritory
            objSalesOrder.Field("SalesPersonID") = UCase(strRepID.Trim)
' SalesPersonID  "001" 'strRep 'data.Current.row(6) 'SalesPerson
            objSalesOrder.Field("ShipToName") = strShipTo
            objSalesOrder.Field("Subtotal") =
strSubTotal.ToString("f2") 'Required, Must match item extended price
totals
            objSalesOrder.Field("TaxAmount") =
strTaxAmount.ToString("f2") '"0" 'data.Current.row(59) 'Required, Total
Tax Amount
            ''''''''''Recv'''''''''''''''''''''''
            objSalesOrder.Field("Total") = strTotal.ToString("f2")
'Required, Must match subtotal + tax + freight + misc - discounts
            objSalesOrder.Field("Distributions/Dist1/DistType") = "2"
            objSalesOrder.Field("Distributions/Dist1/AccountNumber") =
"0110-009"
            objSalesOrder.Field("Distributions/Dist1/CreditAmount") =
"0.00"
            objSalesOrder.Field("Distributions/Dist1/DebitAmount") =
strTotal.ToString("f2")
            ''''''''''''''Sales'''''''''''''''
            objSalesOrder.Field("Distributions/Dist2/DistType") = "1"
            objSalesOrder.Field("Distributions/Dist2/AccountNumber") =
strGLAcctNoSalesMark
            objSalesOrder.Field("Distributions/Dist2/CreditAmount") =
strSumItemPrice
            objSalesOrder.Field("Distributions/Dist2/DebitAmount") =
"0.00"
            '''''''''''''''''''''Mark Down''''''''''''''''''
            If strTotDisAmt = 0 Then
            Else
                objSalesOrder.Field("MarkdownTotal") = strTotDisAmt
'.ToString("f2") 'Must equal sum of MarkDown's for all items
                objSalesOrder.Field("Distributions/Dist3/DistType") =
"10"

objSalesOrder.Field("Distributions/Dist3/AccountNumber") =
strGLAcctNoSalesMark
                objSalesOrder.Field("Distributions/Dist3/CreditAmount")
= "0.00"
                objSalesOrder.Field("Distributions/Dist3/DebitAmount")
= strTotDisAmt
            End If
            ''''''''''''Freight'''''''''''''''''''''
            If strFreAmt = 0 Then
            Else
                objSalesOrder.Field("FreightAmount") =
strFreAmt.ToString("f2")
                objSalesOrder.Field("Distributions/Dist4/DistType") =
"7"

objSalesOrder.Field("Distributions/Dist4/AccountNumber") =
strGLAcctNoFreight
                objSalesOrder.Field("Distributions/Dist4/CreditAmount")
= strFreAmt.ToString("f2")
                objSalesOrder.Field("Distributions/Dist4/DebitAmount")
= "0.00"
            End If
            ''''''''''''''''''''Cash''''''''''''''''''''''''''
            'If strFreAmt = 0 Then
            'Else

            'objSalesOrder.Field("Distributions/Dist5/DistType") = "3"
            'objSalesOrder.Field("Distributions/Dist5/AccountNumber") =
"0103-000" 'strGLAcctNoSalesMark 'strGLAcctNoFreight
            'objSalesOrder.Field("Distributions/Dist5/CreditAmount") =
"0.00" 'strFreAmt.ToString("f2")
            'objSalesOrder.Field("Distributions/Dist5/DebitAmount") =
"10.00" '"0.00"
            'End If
            objSalesOrder.Field("BatchID") = fncBatchID(strSiteID.Trim)
'"PARTS-" & strSiteID & "-" & Date.Today.Month & Date.Today.Day &
Date.Today.Year 'fncBatchID(strSiteID)
            objSalesOrder.Field("FreightTaxAmount") = "0"
            objSalesOrder.Field("MiscAmount") = "0"
            objSalesOrder.Field("MiscTaxAmount") = "0"
'data.Current.row(59)
            objSalesOrder.Field("TradeDiscount") = "0"
'data.Current.row(47)
            objSalesOrder.Field("CommentID") = ""
            objSalesOrder.Field("Comment1") = "PartsApp"
            objSalesOrder.Field("Comment2") = ""
            objSalesOrder.Field("PONumber") = strPoNum
            objSalesOrder.Field("CurrencyID") = "Z-US$"
            'objSalesOrder.Field("CurrencyID") = ""
            ' For Line Item level taxes
            objSalesOrder.Field("UsingHeaderLevelTaxes") = "1"
'Required.  1 = header level taxes, 0 = line item level taxes
            '' For Header Level Taxes
            ''objSalesOrder.Field("UsingHeaderLevelTaxes") = "1"
'Required.  1 = header level taxes, 0 = line item level taxes
            '' Tax Amounts for each Tax Detail you wish to apply need
to be specified
            '' 1st Tax Detail
            objSalesOrder.Field("Taxes/Tax_1/TaxAmount") =
strTaxAmount.ToString("f2")
            objSalesOrder.Field("Taxes/Tax_1/TaxDetailID") = "CCS"   '
"32101"this will change with the live code
            objSalesOrder.Field("Taxes/Tax_1/TaxType") = "0" '0 =
Regular, 1 = Freight, 2 = Misc          2nd Tax Detail
            'objSalesOrder.Field("Taxes/Tax_2/TaxAmount") = "0.00"
            'objSalesOrder.Field("Taxes/Tax_2/TaxDetailID") = "32101"
            'objSalesOrder.Field("Taxes/Tax_2/TaxType") = "1" '0 =
Regular, 1 = Freight, 2 = Misc          2nd Tax Detail
            'objSalesOrder.Field("Taxes/Tax_3/TaxAmount") = "0.00"
            'objSalesOrder.Field("Taxes/Tax_3/TaxDetailID") = "32101"
            'objSalesOrder.Field("Taxes/Tax_3/TaxType") = "2" '0 =
Regular, 1 = Freight, 2 = Misc          2nd Tax Detail
            ' -------------------------- Line Item Section
--------------------------
            ' Creating Item Object

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            'objSalesOrder.Field("UpdateExisting") = "1"

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            objSalesOrder.AssignCustomer(objCustomer)
        Catch ex As Exception
            ' fncPostOrder = False
            MsgBox(ex.Message)
        End Try
        Return True




 objItem = objAdapter.LineItem
        objItem.AddNew()   'Adding first item
        ' Setting Item Properties
        objItem.Field("ItemCode") = strItemNum '"02UE0424"  'Requireda
        objItem.Field("ItemClass") = strClassID 'Recommended
        'objItem.Field("StandardCost") = "322.2"
        'objItem.Field("CurrentCost") = "6.31"
        'objItem.Field("UnitCost") = ""Replace(strUnitCost, "00", "")
     'Only used if Return type document
        objItem.Field("UnitPrice") = strUnitCost.ToString("f2")
'Replace(strUnitCost, "00", "") 'strUnitCost  '"322.2"  'Required
        objItem.Field("ExtendedPrice") = ExtdAmount.ToString("f2")
'ExtdAmount 'Replace(ExtdAmount, "00", "") 'ExtdAmount '"322.2"
'Required
        objItem.Field("Quantity") = strQty  'Required
        'objItem.Field("SubTotal") =
Me.dsBatch.PartsOrderDet(intCount).ExtdAmt '"322.2"
'data.Current.row(58)
        objItem.Field("InventoryAccount") = ""
        objItem.Field("CostOfGoodsAccount") = ""
        'objItem.Field("SalesAccount") = "" ' strGLAcctNo
        'objItem.Field("MarkdownsAccount") = "" 'strGLAcctNo
        objItem.Field("ReturnsAccount") = ""
        objItem.Field("InUseAccount") = ""
        objItem.Field("InServiceAccount") = ""
        objItem.Field("DamagedAccount") = ""
        objItem.Field("CurrencyID") = "Z-US$"
        'objItem.Field("CurrencyID") = ""
        objItem.Field("Name") = "Parts App"
        objItem.Field("Description") = Trim(strDesc)
        objItem.Field("MarkDown") = strMarkDown 'Format(dblDisAmt,
"0.00")
        'Replace(strDisAmt, "00", "")  'Sum of MarkDown amounts per
item must equal total in header
        objItem.Field("Category") = ""
        objItem.Field("UnitOfMeasure") = strUOM  'Required
        objItem.Field("TaxAmount") = "0"  'Total tax for each line
item, Required for Line Item Taxes
        objItem.Field("NonInventory") = "0"  '1 = Yes, 0 = No
        objItem.Field("Taxable") = "0"   '1 = Yes, 0 = No
        objItem.Field("Comment") = ""
        ' Must have an incremented Line Item Sequence number for each
line item
        ' Increments by multiples of 16384 (Great Plains Requirement)
        objItem.Field("Sequence") = intLineItemTax     'Required for
Line Item Taxes
        ' The following 3 lines are required for posting an item.
        objItem.Field("SiteID") = strSiteID 'ask bruce what locationg
set to
        objItem.Field("UofMSchedule") = "Ea"
        objItem.Field("UofMPercent") = "100"
        objItem.Field("PriceLevel") = "DEFAULT"
        ' Mark item as non-inventory
        'objItem.Field("NonInventory") = "1"
        objSalesOrder.AddLineItem(objItem)
        intLineItemTax += intLineItemTax

0
1/20/2006 7:26:52 PM
greatplains 29623 articles. 6 followers. Follow

0 Replies
1014 Views

Similar Articles

[PageSpeed] 5

Reply:

Similar Artilces:

VBA code to run macro in certain file based on name of file in cel
I am trying to come up with code that will run a macro in a workbook where the path and name of the workbook are in a cell reference. I have tried the following with no luck. The path to the file is located in cell F36 of worksheet, "Customize" and the name of the file is located in cell F42. The name of the macro is "ClearTotalSavings". Any help from one of you gurus would sure be appreciated. Application.Run "'" & Workbooks(Sheets("Customize").Range("F36").Value) & "\" & Sheets("Customize").R...

Outlook error codes
This is wierd.. The error I'm trying to trap is when the start date for an appointment is later than it's end date. Doing this line of code: mobjAppointmentItem.Save Will throw a different error number every time it is execute, making it impossible for me to trap in the event associated with my custom functionality. However, if i simply press 'save and close' on the appointment dialogue, Outlook correctly traps this error and shows a sensible error msgbox. How does Outlook that? and how can I? Thanks, Mark ...

how can I disable TouchPad scrolling is a access form with VB code
...

Coding Problem
i have been tying to modify the sample databse for my business needs but a few things aren't going right like the codes. i have this code that let the invoice report show up in the sample databse and i want to stop it from showing how can i doi it. thanks Private Sub cmdCreateInvoice_Click() Dim OrderID As Long Dim InvoiceID As Long OrderID = Nz(Me![Order ID], 0) ' Gracefully exit if invoice already created If CustomerOrders.IsInvoiced(OrderID) Then If MsgBoxYesNo(OrderAlreadyInvoiced) Then CustomerOrders.PrintInvoice...

Excel error codes translations
hi, Does anybody know where I can find a kind of dictionary for Exce errors? The problem is sometimes I get an error message that is not in Englis and without error code and then looking for the solution I must kno its equivalent in English. Regards, Micha -- Message posted from http://www.ExcelForum.com ...

error code 80070663
I have tried my windows update and keep getting the same error code 80070663 and dont know why please help my computer is windows vista When posting to a Newsgяoup or Forum it is requested that you at least provide us with details of the operating system you are using including Service Pack level. <http://support.microsoft.com/kb/555375> -=- See if anything here helps. <http://support.microsoft.com/?kbid=913754> OR I'd recommend resubmitting your post here: Start a help ticket. Help and Support <http://support.microsoft.com/common/in...

about code Access security(CAS)
Hi! I'm reading a book from Microsoft Press (exam 70-536) and it says something that you might have an answer to. It says " CAS can be used either declaratively, in which case the compiler perform security check prior to running code, or imperatively, in which case the code itself perform security checks and controls what happens if the checks fails." I mean it must be the runtime that perform the security check before actually having started the application ? //Tony "Tony Johansson" <johansson.andersson@telia.com> wrote in message new...

Help to add Format to VBA Code!
-- After searching Google.groups.com and finding no answer, Bob Vance asked: Can "CopyFormat" be added to this code Sub MonthPlus() With ActiveSheet.Buttons(Application.Caller).TopLeftCell If .Column > 8 Then Cells(.Row - 43, .Column - 8).Select ActiveCell.FormulaR1C1 = "=R[-2]C+30" End With End Sub Thanks in advance.........Bob Vance Activecell.numberformat = "mm/dd/yyyy" (use the format of your choice) Bob wrote: > > -- > After searching Google.groups.com and finding no answer, Bob Vance asked: > Can "CopyFormat" be added to t...

Tech assignment in service call by problem code only
Currently in Service Call Management the tech assignement filter is based on item number and problem code. It would be quite helpful if we could filter by problem code only, item number only and a combination of both. ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. ht...

eConnect error -
I want to use eConnect for the purpose of inserting Orders into Great Plains via a storefront application, but I am running into a couple of issues. I am new to eConnect and had some difficulties installing the eConnect .Net Incoming Service, but was finally able to install it. I tried using the "CSharp eConnect Sales Order Example" article from MSDN to see if I could properly insert a simple order into the TWO database. I read and looked through several of the posts, but I can't find a solution to the error that I am receiving. When ever I call eConnect_EntryPoint in the ...

Validation code
I am trying to verify an odometer entry. If this entry is less than a previous, I want to be able to accept or redo the entry. I am trying to combine two sets of code to accomplish this but I am having problems getting it to work. The problem is in the strMessage. Here is my code: Private Sub ValidateOdometer() 'verify that odometer entry is correct Dim varPrevOdometer As Variant Dim varPrevDate As Variant varPrevOdometer = DLookup("MaxOfOdometer", "qryLastService") varPrevDate = DLookup("ServiceDate", "qryLastService"...

writing code to auto save a spreadsheet
I want to write a code to automatically save an excel spreadsheet but stop when it gets to the "filename". I want to enter the filename and then proceed. Application.Dialogs(xlDialogSaveAs).Show -- Jim Rech Excel MVP "sk" <sk@discussions.microsoft.com> wrote in message news:E0441800-05CB-4D2C-AE5E-1EC031457731@microsoft.com... |I want to write a code to automatically save an excel spreadsheet but stop | when it gets to the "filename". I want to enter the filename and then | proceed. ...

ecommerce to econnect
Has anyone had any experience migrating their online storefront from eCommerce to eConnect? We're running into difficulties getting the initial momentum going in understanding how to go about dropping ecommerce and moving forward into econnect, and are finding that there's very little if any guidance, documentation, sample code on the topic. In the same vein, has anyone here worked with Nodus eStore Advantage to rebuild or replace their existing eCommerce site with an eConnect site? Are there any other products? Any forums on the topic? According to this post we should be able to ...

QueryTable Refresh Event Code
I created a external data table on a separate tab in the same workbook as the source data. I want the external data table to refresh whenever the source data is changed. The workbook event "Workbook_SheetChange" runs a procedure whenever any cells in the sheet is changed. So, I want to run a query table refresh method inside this event. Do I put the SheetChange event code in the source data object's class or in the query tables object class? Also, VBA help says that you have to initialize the query table as an object WithEvents first. This is confusing to me. Where...

error code 939523078
My exchange server has crashed and i am unable to restore (PANIC) what do error codes 939523078 and 3355444218 denote and how do i go about solving this problem ? John, The errors appear to be coming from the backup program. If I am correct you will need to talk to your backup program vendor to help troubleshoot these errors. From the disaster recovery aspect there are many different disaster recovery options for you even if you do not have a restored database. You did not specify which version of Exchange you are using, but here are some articles to get you started: Exchange 5.5: 185...

Code to look at range and extract data.
If the column of data has the text "Back On" I want to copy the adjacent columns to another sheet for each instance. This will be a loop since this text occurs more than once. If I understand you correct ? Start here http://www.rondebruin.nl/copy5.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "JDJacobs" <JDJacobs@discussions.microsoft.com> wrote in message news:5B3B0D6A-CE19-426B-BBB6-F68B9AD6C2DB@microsoft.com... > If the column of data has the text "Back On" I want to copy the adjacent > columns to a...

Help with econnect trying to create a contract for GP
Hi all, I am trying to use the serializer and create a contract/project and budget line items, i was wondering if anyone has some examples. When i use the serializer with contract, it drops off the pstat value in the xml document and then recive the error that a variable is empty. Thanks all ...

Activation Code won't "fit"
I bought Money Plus Deluxe today. This is my 4th copy since I started using it years ago. While the Product Activation Code is generally DJ- XXXXX-XXXXX-etc, the window only allows 4 characters where the code has give. So instead of seeing DJ-12345-67890-etc, I can only enter DJ-1234-6789. I can't enter the 5th character in each series. I uninstalled, and tried repurchasing via download. I got a second registration, but the same thing happened. Help? In microsoft.public.money, jtskiles@gmail.com wrote: >I bought Money Plus Deluxe today. This is my 4th copy since I started >...

how get the user for econnect installed
hi, i want to know how can i get the userid who is logged in for eConnect and/that user is authenticated or not?in GP8.0 Regards, Nilotpal ...

how do I get a php code
I have Data in Zip files which I need to get up and running as drop down menus for locating which part is compatible etc. I was sent the data by my main supplier howver they have told me to get it all working I need a php code/ what is it? where do I get it? and then what do I do with it? Thanks Jim ...

Convert to VBA code?
I originally had a button that, when clicked, would run a macro. I now need to write the VBA code for that instead, and need help. Here's what I am trying to accomplish: My form contains a field called TimeStop which contains Date/Time in the format of 3/22/10 10:05:06 AM I need to populate a field called DateStop and the value of that field will depend on the TIME portion of TimeStop. If TimeStop is between 12:00:00 AM (midnight) and 5:00:00 AM, then I need DateStop to be the current date - 1. Otherwise, I need it to be the current date. Here's my stab at it, but I ...

Code for selecting worksheets
Hi I have a workbook with 70 sheets named Sheet1 to Sheet70, and I am trying to write some code into a macro to allow me to select (say) only Sheets 15 to 40. I am trying to write code in the following format, but struggling: Sheets ("Sheet15" to "Sheet40").Select Or in another case: Sheets("Sheet15 to "last sheet").Select - where last sheet could be any sheet depending on how many I add or delete in the middle. If I try to record a macro by selecting the sheets it uses the array command, but lists each sheet in the range by name. This is no goo...

Matrix Items/Lookup Codes
I'm somewhat new to RMS and have a question about matrix items and lookup codes. We are a clothing/footwear store. When I want to input one style of jeans in 10 different sizes, I believe I should use "Matrix Item". It appears that there is only one "lookup code" for the entire style. Does this mean that when my cashier goes to checkout the customer who buys size 30, they have to scan the barcode/lookup code and then find the size 30? Shouldn't each size have its own lookup code to save time and to avoid the possibility of the cashier making a mistake o...

eConnect / Web Services Slow?
We are using webservices to replace integration manager which will run as windows service, however we also want to pull some customer info out of GP onto our web based customer portal. I have noticed that connecting to GP is very slow (~30 seconds). Is this normal? Is this going to be the same when I use ASP.NET, 30 seconds is unacceptable. - Tim tboland@gmail.com ...

0x80040119 error code
Hello, We cannot have the Offline adresse book. I reinstalled Exchange Server 2003. No *.ost or *.pst problem. I rebuild several time the offline address book Thanks for your help, Cyril "Cyril Vannier" <cyrilvannier@hotmail.com> wrote in news:eyIsCcj#FHA.1032 @TK2MSFTNGP11.phx.gbl: > We cannot have the Offline adresse book. > I reinstalled Exchange Server 2003. > No *.ost or *.pst problem. > I rebuild several time the offline address book What is the specific problem you are encountering? What service pack are you using? Regards, -- Arlo Clizer FAQ: htt...