vbscript 插入一个tabla con hijos

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了vbscript 插入一个tabla con hijos相关的知识,希望对你有一定的参考价值。

Dim oServiceOrigen As SAPbobsCOM.GeneralService
Dim oGeneralDataOrigen As SAPbobsCOM.GeneralData
Dim sCmp As SAPbobsCOM.CompanyService

Dim oChild As SAPbobsCOM.GeneralData
Dim ChildrenDetalleMezcla As SAPbobsCOM.GeneralDataCollection 'Nodo hijo 1'
Dim ChildrenDetalleAgente As SAPbobsCOM.GeneralDataCollection 'Nodo hijo 2'


sCmp = SBOLDObjeto.Company.GetCompanyService
'instancia padre'
oServiceOrigen = sCmp.GetGeneralService("LDT_UST_COM_METAS")
'carga de datos a objeto padre'
oGeneralDataOrigen = oServiceOrigen.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData)
oGeneralDataOrigen.SetProperty("U_LDT_UDF_Descrip", Descripcion 'datos a asignar')
oGeneralDataOrigen.SetProperty("U_LDT_UDF_NomPeriodo", PeriodoNombre)
oGeneralDataOrigen.SetProperty("U_LDT_UDF_PerInicio", FechaIni)
oGeneralDataOrigen.SetProperty("U_LDT_UDF_PerFinal", FechaFin)

ChildrenDetalleMezcla = oGeneralDataOrigen.Child("LDT_UST_COM_MEZCLA")
ChildrenDetalleAgente = oGeneralDataOrigen.Child("LDT_UST_COM_MT_AG")

'Carga de datos objeto hijo'
oChild = ChildrenDetalleAgente.Add()
oChild.SetProperty("U_LDT_UDF_Cod_Agente", CodAgente)

 'Add the new row, including children, to database
oServiceOrigen.Add(oGeneralDataOrigen)

System.Runtime.InteropServices.Marshal.ReleaseComObject(oServiceOrigen)
System.Runtime.InteropServices.Marshal.ReleaseComObject(oGeneralDataOrigen)
oGeneralDataOrigen = Nothing
oServiceOrigen = Nothing
GC.Collect()



以上是关于vbscript 插入一个tabla con hijos的主要内容,如果未能解决你的问题,请参考以下文章

PHP Colorear filas de una tabla par / impar con PHP

插入bloqueando la tabla

vbscript Hora con文化信息

删除/插入/更新Access数据库中的表

vbscript Comparar campos de dos documentos de Gestar con el mismo form logicamente

vbscript 获取ID插入