希望之星的BLOG

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[CheckStockQty]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[CheckStockQty]
GO

CREATE TRIGGER [CheckStockQty] ON [dbo].[SEOutStockEntry]
FOR INSERT,update,  DELETE
AS
declare
@FStockID int ,
@FDCSPID int,
@FItemID int ,
@fnumber varchar(100),
@fname varchar(100),
@fstockname varchar(100),
@fDcspName varchar(50),
@FQty numeric(28,6),
@fKcQty numeric(28,6),
@fKcqty1 varchar(30),
@FBatchNo varchar(30),
@fInterid int,
@fentryid int

   set @fstockid=-1
   set @FDCSPID=-1
   set @fbatchno=''

if not update( FCommitQty) and not update(fseccommitqty)
begin
Declare mycursor  cursor for
            SELECT FStockID,FEntrySelfS0235,FItemID, FQty,

1、KIS商贸版下，安装BOS需安装如下：

  kis bos2.0  \KISbos支持商贸版 套补丁

2、登录KISBOS,在版本选择处选择KIS商贸版

  会出现如下所示为正常
2、

  如不能正常登录，

   事件跟踪，发现Kisadmin用户 登录失败，KISBOS2.0登

  K3发货通知单，无法通过单据自定义功能添加表体仓位字段，变通处理方法：

  1、自定义一项目名字为仓位，取基础资料－供应商

  2、查询分析器，将自定义字段字段属性设置为其他仓位相同属性。
SELECT *
FROM ICTemplateEntry
WHERE (FHeadCaption = '仓位')

 3、打开发货通知单，进行测试 ，，

4、发货通知下推销售出库

SELECT *
FROM ICSelbills
WHERE (FID = 'B01') AND (FFieldName = 'FSCBillInterID') AND (FSelType <> 1) AND
      (FDK NOT IN (1, 2)) AND (FDstCtlField <> '')
ORDER BY FTableAlias, FDstCtlField

 B01 FSCBillInterID FDCSPID 0 0 FEntrySelfS0235 FEntrySelfS0235 SEOutStockEntry u1  0 0

Private WithEvents m_BillTransfer As KISBillTransfer.Bill

Public Sub Show(ByVal oBillTransfer As Object)

'BillEvent 接口实现
'注意: 此方法必须存在, 请勿修改
Set m_BillTransfer = oBillTransfer

End Sub

Private Sub Class_Terminate()

'释放接口对象
'注意: 此方法必须存在, 请勿修改
Set m_BillTransfer = Nothing

End Sub

Private Function getheadIndex(FieldName As String) As Integer
Dim i As Integer
For i = 1 To UBound(m_BillTransfer.HeadCtl)
If UCase(m_BillTransfer.HeadCtl(i).FieldName) = UCase(FieldName) Then
getheadIndex = i
Exit For

End If
Next
Exit Function
End Function

Private Sub m_BillTransfer_BeforeSave(ByVal bNew As Boolean, ReturnCode As Long)
    '单据保存前触发该事件
  Dim Cn As ADODB.Connection
  Dim RS As ADODB.Recordset
  Dim FkhyeIndex As Integer
  Dim Fkhye As Double
 

竹之精品-河北天纶竹道服饰金牌旗舰店-淘宝网

  感觉用图的形式比文字描述要清晰与准确的多.

    BOS单据定义完后,需要在单据头添加凭证字号字段

编辑-凭证数据来源设置

　　难道腾讯的WebQQ、百度的WebHI都走错了方向?还是微软当初自己大张旗鼓造势的WEB SERVER出现了问题?综合微软在服务品牌方面的状况看来，选择关闭只是微软服务品牌混乱后遗症的一个体现，也侧面印证了MSN不久的将来会从中国消失。

　　MSN已不再适合印在名片上

　　微软在9X时代，以其统治地位和国际性，占领了中国IM市场，尤其是空前成功的Hotmail服务、和MSN绑定Hotmail帐号服务，几乎是上个世纪的中国白领必备。但是现在，MSN正逐渐从国人的意识里消失，尤其是在Hotmail邮箱，已经从当年的唯一，落到可以没有。

　　自从MSN改名叫Windows Live Messenger后，MSN已经注定在中国要退出历史舞台。不再吸引新用户和不再被老用户选择的原因也很简单，已经不在是那个“摸死你”了。一长串的高帽，既不方便书写，也不方便语言表达，而老用户绑定的Hotmail邮箱也不再常用，所以MSN在中国真的已经不再适合印在商务名片上，取而代之的是谁?中国IM品牌众多，用户可以自由选择

Kisbos2.0默认不支持kis商贸版，需打KISBOS支持商贸版帐套补丁

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP, IdIOHandler, IdIOHandlerStream, IdIOHandlerSocket,
  IdSSLOpenSSL, ComCtrls, IdAntiFreezeBase, IdAntiFreeze, jpeg, ExtCtrls,
  ImgList, XPMenu,activex, dxCntner, dxEditor, dxExEdtr, dxEdLib;

type
  TDatabaseThread = class(TThread)
  private
    FForm:tform;
    idhttp1:tidhttp;
    IdSSL1:tIdSSLIOHandlerSocket;
     protected
    procedure Execute; override;
  public
      idx1,total1:integer;
    constructor Create(idx,total:integer); overload;
end;

type
  TForm1 = class(TForm)