K3老单开发-销售订单计算比例（实际价格反推）

update ictemplateentry set  FEnable=48 where FHeadCaption=‘实际含税单价‘ and FCtlOrder=27 and    FCtlIndex=18

--ictemplateentry 表示老单中所有表中分录体中的字段信息，FEnable控制字段的输入模式及类型（0-表示锁定，48表示可以输入）

 
‘定义插件对象接口. 必须具有的声明, 以此来获得事件
Private WithEvents m_BillTransfer   As k3BillTransfer.Bill
 
Public Sub Show(ByVal oBillTransfer As Object)
 
    ‘接口实现
    ‘注意: 此方法必须存在, 请勿修改
    Set m_BillTransfer = oBillTransfer
 
End Sub

Private Sub Class_Terminate()
 
    ‘释放接口对象
    ‘注意: 此方法必须存在, 请勿修改
    Set m_BillTransfer = Nothing

End Sub

Private Sub m_BillTransfer_GridChange(ByVal Col As Long, ByVal Row As Long, ByVal Value As Variant, ByVal bNewBill As Boolean, Cancel As Boolean)
 
    ‘TODO: 请在此处添加代码响应事件 GridChange
Dim Colu As Integer  ‘‘27
‘‘Colu = 27   ‘‘实际含税单价
Dim FColu As Integer   ‘‘21
‘‘FColu = 21   ‘‘ 含税单价
Dim TaxCol As Integer   ‘‘24
‘‘TaxCol = 24   ‘‘折扣率

Dim FmoCol As Integer ‘‘金额列数
Dim FunDcol As Integer  ‘‘单位折扣额列数
Dim FAcol As Integer  ‘‘折扣额列
Dim Famt As Integer  ‘‘项销金额列
Dim Fall As Integer ‘‘价税合计列
Dim FqCol As Integer  ‘‘数量列
Dim FceCol As Integer  ‘‘税率列



Dim Fauxqty As Integer  ‘‘数量
Dim FCess As Integer ‘‘税率


Dim FAuxTaxPrice As Double    ‘‘含税单价
Dim FTaxRate As Double      ‘‘折扣率
Dim FAuxPriceDiscount  As Double   ‘‘实际含税单价
Dim Famount As Double   ‘‘金额
Dim FUniDiscount As Double  ‘‘单位折扣额
Dim FTaxAmount As Double  ‘‘折扣额
Dim FTaxAmt As Double  ‘‘销项金额
Dim FAllAmount As Double  ‘‘价税合计
Dim FFAllAmount As Double  ‘‘总合计
Dim FFTaxAmount  As Double ‘‘折扣合计
Dim FFTaxAmt As Double        ‘‘项销合计
Dim i As Integer
Dim j As Integer

Dim Alter(2) As Variant
Dim TEntryCtl As Variant
Dim FBool As Boolean
 TEntryCtl = m_BillTransfer.EntryCtl

 
        For i = 1 To UBound(TEntryCtl)
            If UCase(TEntryCtl(i).FieldName) = UCase("FAuxPriceDiscount") Then
            Colu = i
            ElseIf UCase(TEntryCtl(i).FieldName) = UCase("FAuxTaxPrice") Then
            FColu = i
            ElseIf UCase(TEntryCtl(i).FieldName) = UCase("FTaxRate") Then
            TaxCol = i
              ElseIf UCase(TEntryCtl(i).FieldName) = UCase("Famount") Then
            FmoCol = i
              ElseIf UCase(TEntryCtl(i).FieldName) = UCase("FUniDiscount") Then
            FunDcol = i
              ElseIf UCase(TEntryCtl(i).FieldName) = UCase("FTaxAmount") Then
            FAcol = i
              ElseIf UCase(TEntryCtl(i).FieldName) = UCase("FTaxAmt") Then
            Famt = i
             ElseIf UCase(TEntryCtl(i).FieldName) = UCase("FAllAmount") Then
            Fall = i
            ElseIf UCase(TEntryCtl(i).FieldName) = UCase("Fauxqty") Then
            FqCol = i
            ElseIf UCase(TEntryCtl(i).FieldName) = UCase("FCess") Then
            FceCol = i
            End If
            Next
            
             If Col = Colu Then
             
             
             ‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘赋值过程
             FAuxPriceDiscount = m_BillTransfer.GetGridText(Row, Colu)  ‘‘实际含税单价
             FAuxTaxPrice = m_BillTransfer.GetGridText(Row, FColu)    ‘‘含税单价
             Fauxqty = m_BillTransfer.GetGridText(Row, FqCol)    ‘‘数量
             FCess = m_BillTransfer.GetGridText(Row, FceCol)    ‘‘税率
           
             ‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘计算过程
             FTaxRate = (1 - FAuxPriceDiscount / FAuxTaxPrice) * 100  ‘‘折扣率
             Famount = FAuxPriceDiscount * Fauxqty / (1 + FCess / 100) ‘‘金额=实际含税单价*数量/1.13
             FUniDiscount = FAuxTaxPrice * FTaxRate / 100 ‘‘单位折扣额=含税单价*下浮
             FTaxAmount = FUniDiscount * Fauxqty   ‘‘折扣总额=折扣额*数量
             FTaxAmt = Famount * FCess / 100   ‘‘销项税额=金额*税率
             FAllAmount = FAuxPriceDiscount * Fauxqty   ‘‘价税合计=实际含税单价*数量
             
             
            
             FBool = m_BillTransfer.SetGridText(Row, TaxCol, FTaxRate)
             FBool = m_BillTransfer.SetGridText(Row, FmoCol, Famount)
             FBool = m_BillTransfer.SetGridText(Row, FunDcol, FUniDiscount)
             FBool = m_BillTransfer.SetGridText(Row, FAcol, FTaxAmount)
             FBool = m_BillTransfer.SetGridText(Row, Famt, FTaxAmt)
             FBool = m_BillTransfer.SetGridText(Row, Fall, FAllAmount)
             
              
             For j = 1 To 100
            
             Alter(0) = m_BillTransfer.GetGridText(j, FAcol)
             If Alter(0) = "" Then
             FFAllAmount = FFAllAmount
             Exit For
             ElseIf Alter(0) > 0 Then
             FFAllAmount = FFAllAmount + Alter(0)
             End If
             Next
             
             FBool = m_BillTransfer.SetSumGridText(1, FAcol, FFAllAmount)
             
             
               For j = 1 To 100
             
             Alter(1) = m_BillTransfer.GetGridText(j, Fall)
             If Alter(1) = "" Then
             FFTaxAmount = FFTaxAmount
             Exit For
             ElseIf Alter(1) > 0 Then
             FFTaxAmount = FFTaxAmount + Alter(1)
             End If
             Next
             
             FBool = m_BillTransfer.SetSumGridText(1, Fall, FFTaxAmount)
             
               For j = 1 To 100
            
             Alter(2) = m_BillTransfer.GetGridText(j, Famt)
             If Alter(2) = "" Then
             FFTaxAmt = FFTaxAmt
             Exit For
             ElseIf Alter(2) > 0 Then
             FFTaxAmt = FFTaxAmt + Alter(2)
             End If
             Next
             
             FBool = m_BillTransfer.SetSumGridText(1, Famt, FFTaxAmt)
             
             End If
            
End Sub

 For i = 1 To UBound(TEntryCtl)
            If UCase(TEntryCtl(i).FieldName) = UCase("FAuxPriceDiscount") Then
            Colu = i
           
            ElseIf UCase(TEntryCtl(i).FieldName) = UCase("FCess") Then
            FceCol = i
            End If
            Next