Forum d'entraide Acomba
Pourquoi ne pas devenir membre du forum ?

Identifiez-vous ou Inscrivez-vous afin d'accéder à l'inrégralité du forum:
Accès à toutes les catégories du forum,
Entraide entre les 6 500 membres, et ce nombre s'accroît quotidiennement!

Notez que ce forum est indépendant de la société Acceo Solutions, éditrice du logiciel Acomba.

Rejoignez le forum, c’est rapide et facile

Forum d'entraide Acomba
Pourquoi ne pas devenir membre du forum ?

Identifiez-vous ou Inscrivez-vous afin d'accéder à l'inrégralité du forum:
Accès à toutes les catégories du forum,
Entraide entre les 6 500 membres, et ce nombre s'accroît quotidiennement!

Notez que ce forum est indépendant de la société Acceo Solutions, éditrice du logiciel Acomba.
Forum d'entraide Acomba
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Connexion
Le Deal du moment : -20%
Ecran PC GIGABYTE 28″ LED M28U 4K ( IPS, 1 ms, ...
Voir le deal
399 €

Aller en bas
avatar
rommario
Nombre de messages : 2
Date d'inscription : 30/10/2012

Error creating an AR transaction. Filer error 41.  Empty Error creating an AR transaction. Filer error 41.

Mer 19 Déc 2012 - 11:05
Hi, everyone.

I am trying to create an AR transaction from Excel. It works fine on Acomba 9.57 local db.
I've updated the db to 9.65 and it worked as well.
But when I try to use it with Acomba 9.59 (another network db). I get this error:

Error: Filer error: 41
Procedure: 0
Sub proc: 3

Executing this line: Error = Acomba.ModifyCard(TransARData, TransARCardPos, FreeIt)
User is supervisor.

Please, help. Thank you.

Here is the code:

Code:

    TransactionData.XBlankCard
    Error = Acomba.GetCard(ControlCustomerData, 1)
    If Not Error = 0 Then
        MsgBox "Error: " & Acomba.GetErrorMessage(Error)
    Else
                TransARData.XBlankPrimaryKey
                TransARData.XBlankCard
                TransARData.InCustomerSupplierCP = GetCustomerCardPos("10")
                TransARData.InDate = TRansDate
                If TransARData.InCustomerSupplierCP > 0 Then
                    Error = Acomba.GetCard(CustomerData, TransARData.InCustomerSupplierCP)
                    If Error = 0 Then
                        TransARData.InInvoicedToCP = CustomerData.CuInvoicedToCP
                        TransARData.InSalesRepCP = CustomerData.CuSalesRepCP
                        TransARData.InTerritoryCP = CustomerData.CuTerritoryCP
                        TransARData.InReceivableOffset = CustomerData.CuReceivable
                        TransARData.PK_CustomerCP = TransARData.InCustomerSupplierCP
                        TransARData.PK_InvoicedToCP = TransARData.InInvoicedToCP
                        TransARData.PK_TransactionType = 3    'TA_Invoice
                        TransARData.PK_ReceivableOffset = TransARData.InReceivableOffset
                        Error = Acomba.ReserveCardNumber(TransARData)
                        If Error = 0 Then
                            TransARData.InInvoiceNumber = TransARData.PK_InvoiceNumber
                            TransARData.InTransactionType = TransARData.PK_TransactionType
                            TransARData.InReference = "Ref123"
                            TransARData.InDescription = "RefDescription"
                            TransARData.TANumPosts = 2

                            TransARData.PACharterCP(1) = GetCharterCardPos("1200")
                            TransARData.PAAmount(1) = -100

                            TransARData.PACharterCP(2) = GetCharterCardPos("4100")
                            TransARData.PAAmount(2) = 100

                            TransARCardPos = IsBeingCreated
                            FreeIt = 0

                            Error = Acomba.ModifyCard(TransARData, TransARCardPos, FreeIt)
                            If Error = 0 Then
                                MsgBox ("Accounts Receivable transaction successfully created.")
                            Else
                                MsgBox "Error: " & Acomba.GetErrorMessage(Error)
                                Error = Acomba.FreeCardNumber(TransARData)
                            End If
                        Else
                            MsgBox "Error: " & Acomba.GetErrorMessage(Error)
                        End If
                    Else
                        MsgBox "Error: " & Acomba.GetErrorMessage(Error)
                    End If
                Else
                    MsgBox ("Error : The customer does not exist in the open company.")
                End If
            Next
        End If
    End If

avatar
hench
Nombre de messages : 163
Date d'inscription : 30/12/2008

Fiche d'Entreprise
Nom de l'entreprise:

Error creating an AR transaction. Filer error 41.  Empty Re: Error creating an AR transaction. Filer error 41.

Lun 14 Jan 2013 - 22:03
This error code can mean 2 things:

1. The SDK version you're trying to use doesn't match Acomba version.

or

2. Company files have to be updated.
Revenir en haut
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum