Estamos usando el SDK para aplicar un pago anticipado a una factura usando el objeto Incoming Payments
como se muestra, lo que encontramos es la forma de pasar al objeto paymente la clave(DocNum,DocEntry) para que lo tome como referencia
ocompany.GetNewObjectCode(CStr(jeno))
oPmt = ocompany.GetBusinessObject(SAPbobsCOM.BoObjectType s.oIncomingPayments)
oPmt.DocType = SAPbobsCOM.BoRcptTypes.rCustomer
oPmt.CardCode = 'CARDCODE'
oPmt.Invoices.InvoiceType = SAPbobsCOM.BoRcptInvTypes.SAPbobsCOM.BoRcptInvType s.it_Invoice
oPmt.Invoices.DocEntry = 'DOCENTRY'
oPmt.DocDate = docdate.Date
oPmt.DocTypte = SAPbobsCOM.BoRcptTypes.rCustomer
If oPmt.Add() 0 Then
MessageBox.Show(ocompany.GetLastErrorDescription)
SBO_Application.MessageBox("Problem in Payment for Invoice no: " & crno & " Problem found is - " & ocompany.GetLastErrorDescription)
Else
End If
No logramos que que el pago se aplique a la factura.
Agradeceré si alguien tiene resuelto este caso y que nos puedan compartir la solución.
Muchas gracias.
como se muestra, lo que encontramos es la forma de pasar al objeto paymente la clave(DocNum,DocEntry) para que lo tome como referencia
ocompany.GetNewObjectCode(CStr(jeno))
oPmt = ocompany.GetBusinessObject(SAPbobsCOM.BoObjectType s.oIncomingPayments)
oPmt.DocType = SAPbobsCOM.BoRcptTypes.rCustomer
oPmt.CardCode = 'CARDCODE'
oPmt.Invoices.InvoiceType = SAPbobsCOM.BoRcptInvTypes.SAPbobsCOM.BoRcptInvType s.it_Invoice
oPmt.Invoices.DocEntry = 'DOCENTRY'
oPmt.DocDate = docdate.Date
oPmt.DocTypte = SAPbobsCOM.BoRcptTypes.rCustomer
If oPmt.Add() 0 Then
MessageBox.Show(ocompany.GetLastErrorDescription)
SBO_Application.MessageBox("Problem in Payment for Invoice no: " & crno & " Problem found is - " & ocompany.GetLastErrorDescription)
Else
End If
No logramos que que el pago se aplique a la factura.
Agradeceré si alguien tiene resuelto este caso y que nos puedan compartir la solución.
Muchas gracias.
Comentario