Buen dia
Tengo una consulta estoy tratando de hacer un desarollo que implica mandar polizas de excel mediante una diapi. vi una informacion en la red que me funciono, solo que nomas me afecta codigos contables por ejemplo cuentas de mayor, pero lo que quiero hacer es hacer que tambien afecte socios de negocios en este caso mis BusinessPartners por ejemplo el codigo de operador OP0050 ( asi es como tengo registrado en mi sap)
anexo codigo que me funciono si hay que hacerle alguna modificacion favor de comentarmelo
CitaPublic Sub Imp_OC()
Dim Retval As Long
Dim vDoc As SAPbobsCOM.JournalEntries
Set vDoc = oCompany.GetBusinessObject(oJournalEntries)
RowC = 2
RowD = 5
If ActiveSheet.Cells(RowC, 1) <> “” Then
vDoc.ReferenceDate = ActiveSheet.Cells(RowC, 1)
vDoc.Memo = ActiveSheet.Cells(RowC, 3)
vDoc.Lines.AccountCode = ActiveSheet.Cells(RowD, 1)
vDoc.Lines.Debit = ActiveSheet.Cells(RowD, 2)
vDoc.Lines.Credit = ActiveSheet.Cells(RowD, 3)
RowD = RowD + 1
Do While ActiveSheet.Cells(RowD, 1) <> “”
vDoc.Lines.Add
vDoc.Lines.AccountCode = ActiveSheet.Cells(RowD, 1)
vDoc.Lines.Debit = ActiveSheet.Cells(RowD, 2)
vDoc.Lines.Credit = ActiveSheet.Cells(RowD, 3)
RowD = RowD + 1
Loop
Retval = vDoc.Add
If Retval <> 0 Then
MsgBox (oCompany.GetLastErrorDescription())
Else
MsgBox ("Asiento Contable Cargado con Exito")
End If
Else
MsgBox ("Nada que cargar")
End If
oCompany.Disconnect
End Sub