Buenas gente , estoy desarrollando un proyecto en vb.net en el que debo crear un Pago recibido mediante una transferencia , cheque o efectivo
actualmente logro crear los 3 documentos pero el recibo que creo con el pago por transferencia me pone el monto que estoy pagando como si fuera el total a pagar y el saldo que queda me lo pone en negativo . no se si sea errores la versión 8.82 de SAP con el API o SDK que uso si alguien tiene alguna solución se los agradecería
Uso el siguiente codigo
----------------------------------------------------------------------------------------------------------------------
FUNCIÓN INSERTAR PAGOS RECIBOS DESDE .NET
'INSERTAR PAGO RECIBIDO EJEMPLO DE http://scn.sap.com/thread/1642944
Public Sub cmdTest_Click()
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 = "USER"
vCompany.Password = "CLAVE"
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