Hola a todos, es mi primera visita en este foro, y necesito una gran ayuda.
Estoy creando un programa externo en visual basic que enlaza informacíon desde SAP BO, y tengo que consultar las facturas impagas y cancelarlas con letras de cambio, para eso utilizo la DI API, al generar el pago con cualquier otro tipo de pago me resulta perfecto, pero el problema es al utilizar letras de cambio.
Para ello utilizo el objeto BillOfExchange, al momento de grabar, crea el pago en SAP BO, rebaja el saldo,pero con medio de pago en efectivo.
Este es el codigo que utlizo.
Dim vPay As SAPbobsCOM.Payments
Set vPay = oCompany.GetBusinessObject(oIncomingPayments)
vPay.BankAccount = "_SYS00000000001"
vPay.BankCode = 800
vPay.CardCode = "XXXXX"
vPay.CashSum = 123456
vPay.DocDate = Now
vPay.JournalRemarks = "Pago recibido - XXXXX"
vPay.Reference1 = "22949"
vPay.Invoices.DocEntry = 22949
vPay.Invoices.DocLine = 1
vPay.Invoices.InvoiceType = it_Invoice
vPay.Invoices.SumApplied = 1000
Call vPay.Invoices.Add
vPay.BillOfExchange.PaymentMethodCode = "BOE"
vPay.BillOfExchange.BPBankAct = "LETRA"
vPay.BillOfExchange.BPBankCode = 800
vPay.BillOfExchange.BPBankCountry = "CL"
vPay.BillOfExchange.BillOfExchangeDueDate = Now
vPay.BillOfExchange.BillOfExchangeNo = 92561
vPay.BillOfExchange.Details = "Letra 92561"
vPay.BillOfExchange.PaymentEngineStatus1 = "C"
vPay.BillOfExchange.ReferenceNo = "1/1"
vPay.BillOfExchange.Remarks = "aa"
vPay.BillOfExchange.StampTaxAmount = 1000
vPay.BillOfExchange.StampTaxCode = ""
If (vPay.Add() <> 0) Then
MsgBox "Error al agregar pago", vbExclamation, szTituloAplicacion
End If
'Check Error
Call oCompany.GetLastError(lErrCode, sErrMsg)
If (0 <> lErrCode) Then
MsgBox "Error encontrado:" + Str(lErrCode) + "," + sErrMsg
Else
MsgBox "Pago satisfactorio"
End If
Por favor si alguién ha trabajado con este tipo de objeto, le agradecería mucho la ayuda.
PD: esto es para SAP BO 2007A (Chile)