SDK Outgoing Payment o Pagos efectuados

Question

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.????????????)

Answer 1

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