Crear contratos de servicio mediante macro en B1

SAP Business One
1

Hola buenas.
Solicitando ideas o ayuda para el siguiente objetivo. Desde Excel con una macro poder crear contratos de servicio en el módulo de Servicios de Business One.

Estaba intentando crear contratos de servicio desd excel con la siguiente macro, pero no lo logro.
Me da un error de el objeto no admite esta propieda o metodo
imagen
Modifico para que los valores sean otros o menos para ir puliendo de donde puede venir el problema
pero no logro crearlos.
Mediante este médoto creo, clientes, artículos, ofertas de ventas, pedidos de cliente, pedidos a proveedor sin problema, pero se me resisten los contratos de servicio.

Public Sub Imp_OC()
        
        Dim Retval As Long
        Dim vDoc As SAPbobsCOM.Documents
        
        Set vDoc = oCompany.GetBusinessObject(oServiceContracts)
        
        RowC = 2
        RowD = 5
        
        If ActiveSheet.Cells(RowC, 1) <> "" Then
        
            
            vDoc.CustomerCode = ActiveSheet.Cells(RowC, 1)
            vDoc.CustomerName = ActiveSheet.Cells(RowC, 2)
            vDoc.StartDate = ActiveSheet.Cells(RowC, 3)
            vDoc.ContractType = ct_ItemGroup
            
                       
                                 
            vDoc.Lines.ItemGroup = ActiveSheet.Cells(RowD, 1)
                       
            
            RowD = RowD + 1
 
            Do While ActiveSheet.Cells(RowD, 1) <> ""
            
                vDoc.Lines.Add
                                
                vDoc.Lines.ItemGroup = ActiveSheet.Cells(RowD, 1)
                
                RowD = RowD + 1
                
            Loop
            
            Retval = vDoc.Add
            If Retval <> 0 Then
                MsgBox (oCompany.GetLastErrorDescription())
            Else
                MsgBox ("OK")
            End If
        Else
            MsgBox ("Nada que cargar")
        End If
        
        oCompany.Disconnect
End Sub

Los contratos que quiero crear son de tipo grupo de artículos y en la línea solo se ha de pasar el código de grupo de artículos o el nombre, he intentado con ambos sin lograrlo.

2

Nose si te entendi muy bien, pero creo el objeto que necesitas usar es:

SAPbobsCOM.BoObjectTypes.oServiceContracts
1 me gusta
3

@juliancab perdón, si.

Algo no estaba haciendo bien, que no se que era.
Comparto el código correcto.

Public Sub Imp_OC()
        
        Dim Retval As Long
        Dim vDoc As SAPbobsCOM.ServiceContracts
                
        Set vDoc = oCompany.GetBusinessObject(oServiceContracts)
        
        RowC = 2
        RowD = 5
        
        If ActiveSheet.Cells(RowC, 1) <> "" Then
        
            
            vDoc.CustomerCode = ActiveSheet.Cells(RowC, 1)
            vDoc.CustomerName = ActiveSheet.Cells(RowC, 2)
            vDoc.StartDate = ActiveSheet.Cells(RowC, 3)
            vDoc.EndDate = ActiveSheet.Cells(RowC, 4)
            vDoc.ContractType = ct_ItemGroup
            vDoc.Status = scs_Approved
            vDoc.UserFields.Fields.Item("U_cod_comercial").Value = ActiveSheet.Cells(RowC, 5).Value
            vDoc.UserFields.Fields.Item("U_Tipologia").Value = "Producción"
            'vDoc.ContractTemplate = ActiveSheet.Cells(RowC, 6).Value
                        
                       
                                 
            vDoc.Lines.ItemGroup = ActiveSheet.Cells(RowD, 1)
                       
            
            RowD = RowD + 1
 
            Do While ActiveSheet.Cells(RowD, 1) <> ""
            
                vDoc.Lines.Add
                                
                vDoc.Lines.ItemGroup = ActiveSheet.Cells(RowD, 1)
                
                RowD = RowD + 1
                
            Loop
            
            Retval = vDoc.Add
            If Retval <> 0 Then
                MsgBox (oCompany.GetLastErrorDescription())
            Else
                MsgBox ("OK")
            End If
        Else
            MsgBox ("Nada que cargar")
        End If
        
        oCompany.Disconnect
End Sub