SDK Outgoing Payment o Pagos efectuados

[Former Member]

Buenas, Necesito ayuda para saber cual es el Objeto para manejar los Outgoin Payment o Pagos efectuados con el SDK, tengo para trabajar con los Incoming Payment o Pagos Recibidos, pero no logro conseguir o ver el de los Outgoing Payment.

El codigo para el incoming o pagos recibidos es :

oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oIncomingPayments)

necesito este misma linea de codigo para el outgoinpayment pero no lo consigo, si alguien me ayuda y me dice que poner se lo agradeceria muchisimo

oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.????????????)

[Former Member · Accepted solution]

Es SAPbobsCOM.BoObjectTypes.oVendorPayments

Gracias

Gordon

[Former Member · Accepted solution]

Muchas Gracias

[former_member211748]

Buenas necesito una ayuda en este tema de pagos recibidos, use el ejemplo expuesto pero no tengo claro que campos son realmente necesarios y el orden , por ejemplo como indico cual es la factura a la cual estoy haciendo el pago?

tendran algun codigo para efecturar pagos recibidos?

el codigo de mi funcion es este pero aun no logro ingresar el pago recibido y no se aun como indicar la factura que sera afectada por este pago

On Error GoTo ErrorHandler

        Dim vCompany As SAPbobsCOM.Company

        'create company object

        vCompany = New SAPbobsCOM.Company

       'PARAMETROS DE CONEXION A SAP

        vCompany = New SAPbobsCOM.Company

        vCompany.DbServerType = SAPbobsCOM.BoDataServerTypes.dst_MSSQL2008

        vCompany.DbUserName = "user"

        vCompany.DbPassword = "clave"

        vCompany.Server = "SAP"

        vCompany.CompanyDB = "Pruebas"

        vCompany.UserName = "manager"

        vCompany.Password = "clavemanager"

        vCompany.UseTrusted = False

        'connect to database server

        If (0 <> vCompany.Connect()) Then

            MsgBox("Failed to connect")

            Exit Sub

        End If

        Dim nErr As Long

        Dim errMsg As String

        'ENCABEZADP DE´PAGO RECIBODO

        Dim vPay As SAPbobsCOM.Payments

        vPay = vCompany.GetBusinessObject(BoObjectTypes.oIncomingPayments)

        vPay.DocNum = 19015000

        vPay.Address = "622-7"

        vPay.ApplyVAT = 1

        vPay.CardCode = "C502-1003"

        vPay.CardName = "ABASTECEDOR EL HIGUERON   ((LAS JUNTAS))"

        vPay.CashAccount = "10100101001"

        vPay.CashSum = 0

        'vPay.CheckAccount = "280001"

        vPay.ContactPersonCode = 1

        vPay.DocCurrency = "COL"

        vPay.DocDate = Now

        vPay.DocRate = 0

        vPay.DocTypte = 0

        vPay.HandWritten = 0

        vPay.JournalRemarks = "Incoming - D10004"

        vPay.LocalCurrency = BoYesNoEnum.tYES

        'vPay.Printed = 0

        vPay.Reference1 = 8

        vPay.Series = 0

        'vPay.SplitTransaction = 0

        vPay.TaxDate = Now

        vPay.DocNum = 1

        'TRANSFEREMCOA INFO

        vPay.TransferAccount = "10100101001"

        vPay.TransferDate = Now

        vPay.TransferSum = 5031.2

        vPay.TransferReference = "Refenecia de transferencia"

        'CHEQUE1 INFO

        vPay.Checks.CheckNumber = 1

        vPay.CheckAccount = "10100101002"

        vPay.Checks.CheckSum = 23.2

        vPay.Checks.CountryCode = "CR"

        vPay.Checks.Details = "Detalle del cheque"

        vPay.Checks.DueDate = Now

        'vPay.Checks.LineNum = CInt(0)

        vPay.Checks.BankCode = "BCR"

        vPay.Checks.Add()

        'CHEQUE 2 INFO

        vPay.Checks.CheckNumber = 1

        vPay.CheckAccount = "3343"

        vPay.Checks.CheckSum = 23.2

        vPay.Checks.CountryCode = "CR"

        vPay.Checks.Details = "Detalle del cheque"

        vPay.Checks.DueDate = Now

        'vPay.Checks.LineNum = CInt(0)

        vPay.Checks.BankCode = "BCR"

        If (vPay.Add() <> 0) Then

            MsgBox("Failed to add a payment")

        End If

        'Check Error

        Call vCompany.GetLastError(nErr, errMsg)

        If (0 <> nErr) Then

            MsgBox("Found error:" + Str(nErr) + "," + errMsg)

        Else

            MsgBox("Succeed in payment.add")

        End If

        'disconnect the company object, and release resource

        Call vCompany.Disconnect()

        vCompany = Nothing

        Exit Sub

ErrorHandler:

        MsgBox("Exception:" + Err.Description)

    End Sub