等级:新手上路 财产: 经验: 魅力: 注册:2005-6-29 文章:4 鉴定:保密
| |
| //oleobject excelapp,myworkbook //long ret,i=2,j,row,ll_Find,ll_Count //string docname,named,ls_number,ls_table,ls_col,ls_id,ls_customer_id,ls_zjm //any la_data //string ls_line_no,ls_UnitId,ls_Unit //pointer oldpointer ////往来户不能为空 // //ret=GetFileOpenName("选择要导入报价单的文件",docname, named, "xls", & // + "Microsoft Excel 文件 (*.xls),*.xls,") //if ret<>1 then return //ChangeDirectory ( gs_apppath ) //oldpointer = SetPointer(HourGlass!) //excelapp=create oleobject //ret=excelapp.connecttonewobject("excel.application") //if ret<>0 then // destroy excelapp // f_msg('连接excel失败,请确认已经安装EXCEL') // return //end if //excelapp.workbooks.Open(docname)//打开Excel文档 //myworkbook=excelapp.ActiveWorkBook ////excelapp.visible=true ////导入 // ////检索单位列表 //ds_Unit.SetTransObject(SQLCA) //ds_Unit.Retrieve() //ll_Count=ds_Unit.RowCount() // //do while true // la_data=myworkbook.ActiveSheet.Cells[i,2].Value//名称 // if isnull(la_data) then //退出 // MyWorkBook.saved = true // MyWorkBook.close // ExcelApp.Quit // Excelapp.DisconnectObject() // destroy excelapp // SetPointer(oldpointer) // return // end if // if dw_Master.rowcount() <= 0 then // dw_Master.Object.DataWindow.ReadOnly=false // dw_Master.insertrow(0) // ls_customer_id = dw_Master.object.customer_id[1] // if isnull(ls_customer_id) or ls_customer_id = '' then // messagebox(gs_SoftName,"请填写客户信息!") // return // else // select zjm // into :ls_zjm // from sal_client // where id = :ls_customer_id; // end if // ls_table = 'sal_bj_m' // ls_col = 'id' // f_createmaxid(ls_table,ls_col,ls_id) // dw_Master.object.id[dw_Master.getrow()] = ls_zjm + '_' + ls_id // dw_Master.object.corp_id[dw_Master.getrow()] = '001' // dw_Master.object.xj_date[dw_Master.getrow()] = today() //end if // //string ls_name11 ,ls_model11,ls_spec11 // ls_name11 =trim(dw_1.object.name[1]) // if isnull(ls_name11) then ls_name11 ='' // ls_model11 =trim(dw_1.object.model[1]) // if isnull(ls_model11) then ls_model11 ='' // ls_spec11 =trim(dw_1.object.spec[1]) // if isnull(ls_spec11) then ls_spec11 ='' // //f_msg(ls_name11 + 'asdf' + ls_model11 + 'asdf' + ls_spec11) // if len(ls_name11)= 0 and len(ls_model11) = 0 and len(ls_spec11) =0 then // dw_1.deleterow(1) // end if // // row=dw_1.insertrow(0) // ls_line_no = string(myworkbook.ActiveSheet.Cells[i,1].Value) // if isnumber(ls_line_no) and not isnull(ls_line_no) and & // integer(ls_line_no)> 0 then dw_1.object.line_no[row] = integer(ls_line_no) //行号 // dw_1.object.name[row]=string(myworkbook.ActiveSheet.Cells[i,4].Value)//名称 // dw_1.object.model[row]=string(myworkbook.ActiveSheet.Cells[i,5].Value)//型号 // dw_1.object.spec[row]=Trim(string(myworkbook.ActiveSheet.Cells[i,6].Value))//规格 // // //单位 // ls_Unit=string(myworkbook.ActiveSheet.Cells[i,7].Value) // ll_Find=ds_Unit.Find("name='"+ls_Unit+"'",1,ll_Count) // If IsNull(ll_Find) Or ll_Find<=0 Then // SetNull(ls_UnitId) // Else // ls_UnitId=ds_Unit.GetItemString(ll_Find,"id") // End If // dw_1.object.unit_id[row]=ls_UnitId // // // dw_1.object.project_no[row]=string(myworkbook.ActiveSheet.Cells[i,2].Value)//工程编号 // dw_1.object.place[row]=string(myworkbook.ActiveSheet.Cells[i,3].Value)//位号 // ls_number=string(myworkbook.ActiveSheet.Cells[i,8].Value)//数量 // if isnumber(ls_number) and not isnull(ls_number) and & // dec(ls_number)>0 then dw_1.object.goods_num[row]=dec(ls_number) // dw_1.object.mlj[row]=dec(string(myworkbook.ActiveSheet.Cells[i,9].Value))//目录价 // ls_number=string(myworkbook.ActiveSheet.Cells[i,10].Value) // //f_msg(ls_number) // dw_1.object.xj_price[row]=dec(ls_number)//单价 // dw_1.object.remark[row]=string(myworkbook.ActiveSheet.Cells[i,20].Value)//备注 // dw_1.object.fd_fx[row]=string(myworkbook.ActiveSheet.Cells[i,11].Value) // dw_1.object.sfl[row]=dec(myworkbook.ActiveSheet.Cells[i,12].Value) // dw_1.object.current_price[row]=dec(myworkbook.ActiveSheet.Cells[i,13].Value) // dw_1.object.money[row]=dec(myworkbook.ActiveSheet.Cells[i,14].Value) // // wf_sum(row) // i++ //loop // | |
|