Re: Automatic Add UDO Document header & Lines Fields

Hi Amit,

Please see the following,

SAPbobsCOM.CompanyService oCompanyService = null;

SAPbobsCOM.GeneralService oGeneralService = null;

SAPbobsCOM.GeneralData oGeneralData = null;

SAPbobsCOM.GeneralDataCollection oChildren = null;

SAPbobsCOM.GeneralData oChild = null;

oCompanyService = oCompany.GetCompanyService();

oGeneralService = oCompanyService.GetGeneralService("UDPOPDN");

oGeneralData = ((SAPbobsCOM.GeneralData)(oGeneralService.GetDataInterface(SAPbobsCOM.GeneralServiceDataInterfaces.gsGeneralData)));

oGeneralData.SetProperty("U_DocEntry", GRPO);//收货单号

oGeneralData.SetProperty("U_BaseEntry", dr["订单号"].ToString());//采购订单号

oGeneralData.SetProperty("U_BaseLine", dr["行号"].ToString());//采购订单行号

oGeneralData.SetProperty("U_CardCode", dr["客户编号"].ToString());//供应商编号

oGeneralData.SetProperty("U_CardName", dr["客户名称"].ToString());//供应商名称

                                   oGeneralData.SetProperty("U_ItemCode", dr["物料编码"].ToString());//物料编号

oGeneralData.SetProperty("U_CardCode", dr["物料描述"].ToString());//物料名称

oGeneralData.SetProperty("U_Quantity", Convert.ToDouble(dr["入库重量"].ToString()));//入库重量

oGeneralData.SetProperty("U_FreWeight", Convert.ToDouble(dr["免费重量"].ToString()));//免费重量

//oGeneralData.SetProperty("U_TolWeight", Convert.ToDouble(dr["称重单位毛重"].ToString()));//称重单位毛重

oGeneralData.SetProperty("U_TolWeight", Convert.ToDouble(dr["毛重"].ToString()));//毛重

oGeneralData.SetProperty("U_Unit", Convert.ToDouble(dr["系数"].ToString()));//系数

//oGeneralData.SetProperty("U_PurWeight", Convert.ToDouble(dr["采购单位毛重"].ToString()));//采购单位毛重

oGeneralData.SetProperty("U_PacWeight", Convert.ToDouble(dr["包装"].ToString()));//包装

oGeneralData.SetProperty("U_DedWeight", Convert.ToDouble(dr["扣重"].ToString()));//扣重

oGeneralData.SetProperty("U_ScaleCode", globals_Renamed.gScaleCode);//磅秤编号

oGeneralData.SetProperty("U_ScaleUser", globals_Renamed.gUserCode);//过磅员

oChildren = oGeneralData.Child("U_DPPDN1");

foreach (DataRow drLine inglobals_Renamed.gOrderInfo.Tables[dr["行号"].ToString()].Rows)

{

oChild = oChildren.Add();

oChild.SetProperty("U_LineNum", drLine["序号"].ToString());

oChild.SetProperty("U_Quantity", Convert.ToDouble(drLine["称重值"].ToString()));

oChild.SetProperty("U_Package", Convert.ToDouble(drLine["包装物"].ToString()));

oChild.SetProperty("U_ScaleTime", drLine["称重时间"].ToString());

}

SAPbobsCOM.GeneralDataParams oGeneralParams = null;

oGeneralParams = oGeneralService.Add(oGeneralData);

Best regards

Huan