关于一些插件开发的参考代码
- 格式:doc
- 大小:76.50 KB
- 文档页数:23
使用VSCode进行React开发的技巧和建议React是一种流行的JavaScript库,用于构建用户界面。
而VSCode是一款功能强大的代码编辑器,提供了许多方便的功能和插件,使得React开发变得更加高效和愉快。
本文将介绍一些使用VSCode进行React开发的技巧和建议,帮助开发者提高开发效率和代码质量。
一、安装相关插件在开始React开发之前,首先要安装一些VSCode插件以提供更好的开发环境。
以下是推荐的插件:1. ESLint:用于检测和纠正JavaScript代码错误和风格问题。
2. Prettier:用于自动格式化代码,使其符合统一的代码风格。
3. Reactjs code snippets:提供了一些常用的React代码片段,可以快速生成基本的React组件和代码结构。
4. Bracket Pair Colorizer:帮助您更好地理解代码中的括号匹配情况。
5. GitLens:显示代码中每一行的Git提交信息,帮助开发者更好地理解代码变更历史。
二、使用自动完成和代码片段VSCode提供了强大的自动完成功能,帮助开发者更快速地编写代码。
对于React开发来说,可以使用代码片段生成常用的代码模板。
例如,输入"imrc"将会生成一个包含React导入语句的代码块,输入"imrn"将会生成一个包含React Native导入语句的代码块。
这些代码片段可以大大减少键入的工作量,提高开发效率。
三、使用调试功能调试是开发过程中非常重要的环节,VSCode支持React应用程序的调试。
您可以设置断点并逐步执行代码,以便更好地理解代码的执行过程和跟踪错误。
在VSCode中,您可以通过配置"launch.json"文件来设置调试环境。
确保您已经正确地设置了调试器选项,并且可以启动一个本地开发服务器。
四、利用插件进行应用程序状态管理开发大型的React应用程序时,管理应用程序的状态变得非常重要。
代码ovrplugin缺少引用在编程中,我们经常会使用各种插件或库来扩展我们的代码功能。
这些插件或库往往需要通过引用来在我们的代码中进行调用和使用。
然而,有时候我们可能会遇到一些问题,比如在使用ovrplugin时出现了缺少引用的错误。
那么,当我们遇到ovrplugin缺少引用的情况时,应该如何解决呢?下面是一些可能的解决方案供参考。
我们可以检查一下我们的代码中是否正确地引用了ovrplugin。
在C#中,我们可以使用using语句来引用一个命名空间,或者使用关键字import来引用一个模块。
确保我们在代码中正确地引用了ovrplugin所在的命名空间或模块。
如果我们已经正确地引用了ovrplugin,但仍然出现缺少引用的错误,那么可能是因为我们的开发环境没有正确地配置。
在这种情况下,我们可以尝试重新安装ovrplugin,并确保在安装过程中选择了正确的配置选项。
我们还可以检查一下我们的开发环境是否已经安装了ovrplugin的依赖项。
有时候,一个插件可能会依赖于其他的库或模块,我们需要确保这些依赖项已经正确地安装并配置。
我们还可以尝试更新ovrplugin到最新版本。
有时候,一个插件的旧版本可能存在一些已知的问题或缺陷,更新到最新版本可能会解决一些问题。
如果我们尝试了以上的解决方案,仍然无法解决ovrplugin缺少引用的问题,那么我们可以考虑向ovrplugin的开发者或社区寻求帮助。
他们可能会了解更多关于这个问题的信息,并给出一些建议或解决方案。
总结一下,当我们遇到ovrplugin缺少引用的问题时,我们可以先检查一下代码中是否正确地引用了ovrplugin,然后检查开发环境的配置和依赖项,尝试更新插件到最新版本,并寻求开发者或社区的帮助。
希望以上的解决方案能够帮助到遇到类似问题的开发者们。
lombok-maven-plugin 用法-概述说明以及解释1.引言1.1 概述Lombok是一个Java库,通过自动生成Java代码中常见的样板代码,提供了更简洁、更易读的代码编写风格。
然而,在使用Lombok之前,我们需要在项目中集成Lombok库并进行相应的配置。
Lombok-maven-plugin就是一个能够与Maven构建工具集成的插件,它简化了Lombok库的引入和配置过程。
通过将Lombok-maven-plugin添加到项目的pom.xml文件中,我们可以轻松地通过Maven来管理和使用Lombok。
本文将介绍Lombok-maven-plugin的使用方法,并探讨其在开发中的优势和应用场景。
在深入了解Lombok-maven-plugin之前,让我们先来了解一下文章的结构和目的。
1.2 文章结构文章结构部分的内容如下:文章结构部分旨在介绍本文的整体结构和内容安排,帮助读者更好地理解和阅读本文。
本文按照以下结构进行组织:1. 引言:本部分介绍了本文的背景和目的,概述了lombok-maven-plugin的用途和重要性。
2. 正文:本部分是本文的主要内容,分为两个子节。
2.1 lombok-maven-plugin的介绍:本节详细介绍了lombok-maven-plugin的功能和特点,包括它的主要作用、所解决的问题、优势和局限性等方面。
2.2 lombok-maven-plugin的配置和使用方法:本节重点讲解了如何在Maven项目中配置和使用lombok-maven-plugin,包括安装和配置插件的步骤、常见的插件配置选项和使用示例等内容。
3. 结论:本部分对lombok-maven-plugin进行总结和展望。
3.1 总结lombok-maven-plugin的优势和应用场景:本节总结了lombok-maven-plugin的主要优点和适用场景,帮助读者了解为什么要选择使用该插件,并介绍了它的一些成功应用案例。
BOS插件开发入门教程本文主要针对初学者,介绍BOS插件开发与制作的基本流程与步骤,为入门所用。
以一个简单的插件开发需求为例:比如想在新开发的BOS单据上,增加一个自定义菜单按钮,按钮标题为“My BOS MenuBarButton”,位置放在编辑菜单下的驳回审核按钮之后,在工具栏上的退出按钮之前;当点击该自定义按钮时弹出提示框“Hello,This Is My First BOS Bill InterFace!”。
针对此需求,让我们一起看看如何一步一步通过BOS插件来实现:【第一步】:由于插件是基于VB语言开发,首先需要在装有金蝶K3的环境下安装Microsoft Visual Basic 6.0(简称VB6.0)开发工具。
【第二步】:安装好VB6.0之后,在开始菜单中找到VB6.0的快捷方式,打开VB之后将出现以下界面(如图1):图1在此界面一定要选择“ActiveX DLL”,再点击“打开”按钮,然后会进入以下工作界面(如图2):图2注意界面右上方的“插件开发向导”按钮。
有的环境可能会出现打开VB6.0后并没有“金蝶k/3-BOS”菜单的问题,解决方法如下:找到K3安装目录下的ADDIN文件夹,将此文件夹下的两个DLL文件(K3BOSPLUGINSADDIN.dll 和K3GLParaConsolePlugin.dll),在CMD命令行中用RegSvr32命令进行注册。
例如:K3安装目录为C:\Program Files\Kingdee\K3ERP,那么在cmd中输入命令就为:regsvr32 "C:\Program Files\Kingdee\K3ERP\ADDIN\K3BOSPLUGINSADDIN.dll"regsvr32 "C:\Program Files\Kingdee\K3ERP\ADDIN\K3GLParaConsolePlugin.dll"回车提示注册成功之后,再重新打开VB就会出现“金蝶k/3-BOS”菜单,如果还没出现需要再重启下电脑解决。
网页前端开发必备的15个火狐插件Firefox是一款越来越热的Web浏览器,多种多样的扩展,主题,插件,是它快速流行的重要原因。
Mozilla的网站上提供了许多扩展和插件的下载,由于众多开发者的支持,这些扩展和插件的数量也在随着需求日益增长,下面列举15款比较优秀的插件,仅供大家参考。
以下是15款火狐的插件,可以使得Web开发人员的开发工作更加容易:1、 Aardvark:Aardvark可以让你从网页中选择元素,并对它们进行操作。
Web 开发人员可以利用Aardvark对网页的构架进行分析,同时还可以利用Aardvark 去移除和隔离元素或者生成DOM代码,这个是笔者强烈推荐的一款Firefox插件。
2、 CSS Validator(CSS验证器):CSS验证器可以在您的浏览器中添加一个右击选项,将CSS传送至W3C CSS验证。
它可以再一个新的标签中打开答案,笔者认为,CSS Validator将会是一款引导潮流的开发工具。
3、 CSSViewer:CSSViewer是一款小巧的CSS属性查看器,随着鼠标的移动显示当前所指示元素的CSS样式信息,其中包括了所有从父级元素继承而来,用户自定义以及浏览器自定义的样式信息。
同时。
您也可以通过在工具栏添加该扩展的图标按钮来激活/禁用该扩展。
4、 FireBug:Firebug是测试前端代码和CSS的最好的调试软件。
如果出现任何不符合格式的图像或类型,最好的解决办法就是用Firebug检查出来。
甚至可以在里面改变样式来检查网站是如何在浏览器中的渲染效果。
5、 FirePHP:FireBug是针对CSS、HTML和JavaScript的一款很好的开发工具,但是FirePHP只有在用户安装了FireBug之后才可用,可以为PHP开发者所用,便于他们管理PHP函数。
6、 Font Finder:Font Finder使得开发者可以在网站上突出一些文字的字体,右击选择后,选择“查找字体”,查看选定文字的全部的CSS文字样式,然后将这些文字粘贴到您自己的网页中。
原创通过插件优化ida反编译出的delphi代码下面的内容严格来说不算什么原创,就是本人使用IDA 分析Delphi后的总结而已,因为我刚开始用IDA分析Delphi 的时候遇到很多问题,所以写下来,刚接触这部分的人可能有点用,如果您对这块很熟悉了,就可以关闭该网页了大家都知道,IDA对Delphi支持的不是很好,用IDA打开Delphi 程序后,反汇编代码的可读性比较差,一些Delphi的类、以及一些字符串常量等解析不出来,从而给解读Delphi代码造成了很大的困扰。
因此用IDA打开Delphi程序后,需要用一些插件来辅助解析Delphi程序。
下面是解析Delphi时用到的插件以及步骤:IDA反编译Delphi程序步骤:1. IDA打开需要反编译的Delphi程序2. 载入对应的library modules.(可选,如果IDA已经载入了合适的library modules,则不需要此步骤)3. 载入Delphi.IDC.(需要插件Delphi.IDC,载入时光标停留在反编译窗口头部)(作用:会把一些字符串解析出来)4. 在IDA中同时按Ctrl+Alt+P,(需要插件AutoDelphiString.plw)(作用:和步骤3作用一样,没有步骤3中的Delphi.IDC 插件的效果好,此步骤可以省略)5. 在IDA中同时按Ctrl+Alt+H,(需要插件hInstStrs.plw)(作用:载入资源文件中的字符串)6. 载入DarkDe4导出的map文件.(需要插件LoadMap.IDC)(作用:自动解析Delphi类)7. 在IDA中同时按Ctrl+Alt+F,在弹出的对话框中输入0,在EXE同级目录下生成XXX__classes.log文件.(需要插件FindDelphiClass.plw)(作用:保存Delphi类对应的地址)8. 打开该文件,找到主要的类对应的地址,在IDA中找到该地址Ctrl+Alt+S重新解析代码.(需要插件DecodeDelphiClass.plw)(作用:根据7步骤产生的Log文件,手动解析Delphi 类,备注:部分类的名字在步骤3已经解析出来,但名字不是很友好,此时可以还原类名字,然后再对类名进行手动解析)备注:上面提到的插件可以在附件中下载,所有的插件都是在本论坛或者别的网站找到的,本人目前也在研究准备开发一些实用的IDA插件,到时候一定会放到本论坛,还请大家多多指教!上传的附件:IDA 插件(Delphi).zip (65.98kb,8次下载)。
IE的ActiveX控件的开发(一)(2006-09-06 19:00:50)分类:工作需要,突然要开发一个IE的ActiveX控件。
由于以前没有接触过这方面的东西,因此走了一些弯路。
网上搜了一大堆资料,又多又杂,东一块西一块的,关于第一次接触者和快速开发很不利,在此特意整理出来,以备忘,作参考。
ActiveX简介ActiveX是一个可能念,也微软进军网络应用的一个王牌武器之一。
我自己开发的ActiveX插件其实只是一个OCX控件,嵌入html代码中去应用。
因此这篇文章更多的涉及了OCX的东西。
OCX文件:OCX文件的全称是Object Linking and Embedding (OLE) Control Extension,中文名字叫做“嵌入式对象控件”,它的作用其实和适才谈到的DLL文件专门相像,其实所谓的OLE咱们平常已经超级熟悉了,简单地说就像在Word中能够利用Excel数据,写字板中能够嵌入图片文件等等这些功能。
打个例如的话,剪贴板就像是个简单的数据共享,而OLE那么是一种“对象共享”。
一、OCX组件的来历是如何的?一样的开发工具都会提供一些标准控件,但不管标准控件何等壮大、何等完善,都不能完全知足用户的需要。
因此易语言就提供一个接口,许诺用户编写自己的控件插入到易语言中利用。
用户编写自己的控件在利用方式上同标准控件是相同。
依照易语言的接口标准编写的控件确实是OCX。
由于利用OCX能够节省开发软件的时刻,因此此刻几乎所有开发工具都许诺用户利用OCX来增强其功能。
后来随着Internet的流行,微软又让网页中能够嵌入OCX,并称其为 ActiveX 控件。
目前能够编写OCX的工具包括VB、VC、Delphi。
易语言也即将支持OCX。
二、OLE和OCX的关系是什么?OLE和OCX通称对象链接与嵌入。
易语言已通过超级链接框等实现很多对象的链接功能,对象的嵌入易语言也即将支持。
OLE 与OCX 的应用主若是源于将多个应用信息源组合到一路的目标,OCX即将在易语言中取得普遍的应用,因为它能更好的与易语言的应用程序相结合,从而实现易语言不行实现或是很难实现的功能。
使用VSCode进行Ruby开发的最佳实践一、简介在当今软件开发领域,选择一款适合自己开发需求的集成开发环境(IDE)是非常重要的。
VSCode作为一款轻量级、强大并且可高度定制的编辑器,已经成为许多Ruby开发者的首选。
本文将介绍一些使用VSCode进行Ruby开发的最佳实践,助您提高开发效率和代码质量。
二、插件推荐VSCode通过丰富的插件生态系统,可以为Ruby开发者提供强大的功能扩展和工具支持。
以下是一些值得推荐的插件:1. Ruby插件Ruby插件是VSCode的官方插件,它提供了Ruby语言的语法高亮、代码片段、智能代码完成等功能。
另外,它还支持调试Ruby程序,方便开发者进行代码调试和错误排查。
2. Ruby SolargraphRuby Solargraph是一款强大的Ruby语言服务器插件,它为VSCode 提供了丰富的Ruby代码智能补全、类型检查等功能。
通过安装Ruby Solargraph,您可以大大提高编写Ruby代码的效率和准确性。
3. Ruby RubocopRuby Rubocop是一款代码检查工具,它基于Ruby社区的最佳实践和代码规范,可以帮助您保持一致的代码风格,并发现潜在的代码问题。
通过在VSCode中安装并配置Ruby Rubocop插件,您可以实时检查代码并得到相应的警告提示。
4. Ruby Test ExplorerRuby Test Explorer是一款用于运行和调试Ruby测试的插件。
它可以方便地列出项目中的测试用例,并支持单个、多个或全部运行测试。
通过与其他测试框架的整合,Ruby Test Explorer为测试驱动开发(TDD)提供了良好的支持。
三、基本配置1. 设置Indentation在VSCode的设置选项中,将Indentation设置为2个空格是一种广泛采用的Ruby代码缩进风格。
通过设置这个选项,您可以保持一致的代码风格,并且利于多人协作。
一、概述在使用Idea进行Lua开发时,需要进行环境变量配置。
正确配置环境变量可以让Idea识别Lua,并能够正常的编译和运行Lua程序。
本文将详细介绍如何在Idea中配置Lua环境变量的步骤。
二、准备工作在进行环境变量配置之前,需要确保以下工作已经完成:1.安装Lua环境在进行Lua环境变量配置之前,首先需要安装Lua环境。
可以从冠方全球信息站下载最新版本的Lua,并按照冠方指南进行安装。
2.安装Idea确保已经安装了Idea开发工具,可以从冠方全球信息站下载最新版本的Idea,并按照冠方指南进行安装。
三、编辑环境变量1.打开Idea首先打开Idea开发工具,确保已经创建了一个Lua项目。
2.选择“Edit Configurations”点击菜单栏中的“Run” -> “Edit Configurations”,在弹出的窗口中选择“Lua”。
3.配置Lua解释器在“Lua”配置界面中,点击“...”按钮选择Lua解释器,在弹出的窗口中点击“+”按钮添加一个新的解释器。
4.配置Lua解释器路径在弹出的窗口中,选择“Custom”,然后在“Interpreter path”中输入Lua解释器的路径。
5.配置Lua源码路径(可选)如果需要调试Lua源码,可以在“Source code path”中配置Lua源码的路径。
6.保存配置完成以上配置后,点击“OK”按钮保存配置。
四、测试环境配置1.创建Lua程序在Idea中创建一个新的Lua程序,编写一段简单的Lua代码。
2.运行Lua程序点击菜单栏中的“Run” -> “Run”,查看程序是否能够正常运行。
3.调试Lua程序(可选)如果需要调试Lua程序,可以点击菜单栏中的“Run” -> “Debug”进行调试程序。
五、总结通过以上步骤,我们成功的在Idea中配置了Lua环境变量,并且能够正常的编译和运行Lua程序。
正确的环境变量配置可以提高开发效率,让我们更方便的进行Lua开发工作。
Linux下使⽤iVerilog进⾏Verilog开发⼀、iVerilog的安装⾸先要在Linux中安装iVerilog这⾥提供两种⽅式:⽅法⼀:sudo apt-get install iverilog⽅法⼆:1. 下载iVerilog源码git clone git:///steveicarus/iverilog.git2. 切换到v11分⽀git checkout v11-branch3. 安装依赖sudo apt-get install autoconf gperf flex bison build-essential4. 编译、安装iVerilog和vvpsh autoconf.sh./configuremakemake install⼆、使⽤VSCode插件WaveTrace(个⼈认为好⽤且美观)ps:VSCode使⽤教程请百度到这⼀步其实就已经可以编写Verilog程序并且仿真了,但是不够⽅便。
所以接下来介绍⼀些VSCode上的插件,来帮助开发。
三、插件安装Ⅰ. Verilog代码⾼亮与⾃动检错在VSCode中下载安装完成后,代码就可以⾼亮显⽰了同时,我们可以利⽤这个插件进⾏⾃动检错在Linux中下载ctagssudo apt install universal-ctags然后找到ctags的安装位置:使⽤命令⾏whereis ctags再在VSCode中的Verilog-HDL/SystemVerilog/Bluespec SystemVerilog这个插件中进⾏设置(点击⼩齿轮,再点击扩展设置)找到Ctags的安装路径的填写位置。
将框内填写为你的Ctags安装⽬录,这样此插件就能找到你的Ctags。
接下来,我们需要在设置⾥⾯选择⼀个合适的Linter,通常选择免费开源的iverilog,它的作⽤是编译⽂件,有了它才能实现⾃动检错。
继续在刚才的设置页⾯找到:将选项框的none改为iverilog,即此插件使⽤Verilog对你编写的程序进⾏语法检测。
K/3 BOS开发百问百答 应用集成部 客户化管理部 2005年12月 目录 一,插件开发篇 【问题1】在插件中以新增,修改和查看方式打开另一单据 【解答】 使用代码调用序时簿 '******************************************** '功能:显示BOS单据,显示的方式为新增,修改和浏览 '参数:lClassTypeID—显示BOS单据的ID '******************************************** Private Sub ShowBill(ByVal lClassTypeID As Long)
Dim oDataSrv As Object Dim oBill As Object
On Error GoTo err_ctr Set oDataSrv = m_BillInterface.K3Lib.CreateK3Object("K3ClassTpl.DataSrv") oDataSrv.ClassTypeID = lClassTypeID Set oBill = CreateObject("K3SingleClassBill.ClassInfoManager") With oBill .DataSrv = oDataSrv .ISNetControl = True .ISCheckRight = True .Show '********************** 'Show 参数类型 '第一个参数 Optional ByVal lID As Long = 0 ;描述修改或查看的单据ID '第二个参数 Optional ByVal bShowGroup As Boolean = False ;如是基础资料时,是否显示分组 '第三个参数 Optional ByVal BillStatus As Long = Enu_BillStatus_New ;显示方式 0—查看;1—新增;2—修改 '第四个参数 Optional ByVal dctData As KFO.Dictionary '单据初始值 '********************** End With
Set oDataSrv = Nothing Set oBill = Nothing
Exit Sub err_ctr: Set oDataSrv = Nothing Set oBill = Nothing End Sub 【问题2】我想在投料变更单的菜单上加入一个菜单项,需要插入一个插件,但投料变更单上已经有一个插件了,我想了解一下怎样才可以再插入一个插件呢 【解答】 点插件管理中的按钮,可以通过浏览来选择自定义插件,并选择多个插件对象,BOS允许多个插件同时存在. 【问题3】如何通过插件代码动态设置基础资料或业务单据序时薄过滤条件 【解答】 业务场景: 在开发BOS单据时,经常需要根据前面录入的字段值来过滤选择 的基础资料.例如录入客户后,在选择客户对应客户地址基础资料时,在基础资料F7查询界面只显示当前单据上客户对应地址.根据当前物料,在选择物料对应批次. 我们下面就以批次为例说明实现方法: 需求:在选择批次前要求必须录入物料,批次查询界面只显示物料对应的批次 开发步骤: 假设:物料对应FKey="FItemID",批次对应FKey="FBatchNo" 单据类型 200000001 只需更新对应元数据即可实现: update ICClassTableinfo set FFilter='(FItemID=GetFldValue(FItemID,1))' where FKey="FBatchNo" and FClassTypeID=200000001 如果不要求先录入物料 update ICClassTableinfo set FFilter='(FItemID=GetFldValue(FItemID,0))' where FKey="FBatchNo" and FClassTypeID=200000001 再举个例子 根据工艺路线过滤工序名称 假设:工艺路线FKey="FNewRoutingID",工序名称FKey="FOperID" 单据类型 200000001 update ICClassTableinfo set FFilter='FInterID In (Select FOperID from t_routingoper where FinterID=GetFldValue(FNewRoutingID,1))' where FKey='FOperID' and FClassTypeID=200000001 其中GetFldValue为BOS内部函数,取单据上指定字段值, 第一个参数为字段对应FKey,第二个参数为是否要求该字段先录入,1 要求 0 不要求 此方法虽能实现,但不是最好方法.希望能在插件接口中提供在函数. 【问题4】在插件中调用序时簿并返回选中的数据 【回答】 请参考下面代码 '******************************************** '功能:显示BOS序时簿并返回选中的值 '参数:lClassTypeID—显示BOS单据的ID '******************************************** Private Function ShowListByReturn(ByVal lClassTypeID As Long) As Object Dim oDataSrv As Object Dim objLookup As Object
On Error GoTo err_ctr Set oDataSrv = m_BillInterface.K3Lib.CreateK3Object("K3ClassTpl.DataSrv") oDataSrv.ClassTypeID = lClassTypeID If oDataSrv.showfilter Then Set objLookup = CreateObject("K3ClassLookUp.BillLookUp") objLookup.ClassTypeID = lClassTypeID Set objLookup.DataSrv = oDataSrv
objLookup.Lookup Set ShowListByReturn = objLookup.VectReturn End If Set oDataSrv = Nothing Set objLookup = Nothing
Exit Function err_ctr: Set oDataSrv = Nothing Set objLookup = Nothing End Function 【问题5】在自定义的BOS单据上,通过插件作生成凭证的功能,但是在调用凭证的组件时,需要一个二次登录后才能使用相应的模块.请问:如何处理隐身的二次登录,或者其他的变通处理. 【解答】 凭证组件的调用是不需要二次登录的,可能你是在VB调试状态下运行,编译后就没事了. 请参考下面代码 Private Sub m_BillInterface_MenuBarClick(ByVal BOSTool As K3ClassEvents.BOSTool, Cancel As Boolean) Dim glvch As Object '中间层凭证对象 Dim mvch As KFO.Dictionary '待保存凭证头 Dim mvchentry As KFO.Vector '待保存凭证分录集 Dim entry As KFO.Dictionary '待保存凭证分录 Dim mvchdetail As KFO.Vector '核算项目明细集 Dim detail As KFO.Dictionary '核算项目明细 Dim i, iCount As Long Dim vValue As Variant
'TODO: 请在此处添加代码响应事件 MenuBarClick Select Case BOSTool.ToolName Case "生成凭证" vValue = m_BillInterface.GetFieldValue("FUser1")
If Not (CStr(vValue) = "" Or CLng(vValue = 0)) Then MsgBox "当前合同已经生成凭证!", vbExclamation, "金蝶提示" Exit Sub End If
'此处添加处理 生成凭证 菜单对象的 Click 事件 Set mvch = New KFO.Dictionary mvch("FDate") = Now mvch("FGroup") = "金华泰项目" mvch("FReference") = m_BillInterface.GetFieldValue("FID") Set mvchentry = New KFO.Vector
vValue = m_BillInterface.GetFieldValue("FInteger") '合同金额 '创建凭证分录 Set entry = New KFO.Dictionary entry("FExplanation") = m_BillInterface.GetFieldValue("FNote") entry("FAccountID") = m_BillInterface.GetFieldValue("FBase") entry("FDC") = 1 entry("FAmount") = vValue '数量&单价 entry("FQuantity") = 0 entry("FUnitPrice") = 0 entry("FMeasureUnitID") = 0 '创建核算项目明细 Set mvchdetail = New KFO.Vector Set detail = New KFO.Dictionary detail("FItemClassNumber") = "002" detail("FItemNumber") = "02" mvchdetail.Add detail Set entry("_Details") = mvchdetail mvchentry.Add entry Set mvch("_Entries") = mvchentry Set entry = New KFO.Dictionary entry("FExplanation") = m_BillInterface.GetFieldValue("FNote") entry("FAccountID") = m_BillInterface.GetFieldValue("FBase1") entry("FDC") = 0 entry("FAmount") = vValue '数量&单价 entry("FQuantity") = 0