Attribute VB_Name = "XtsyModule"
 '系統私有模塊用來放置一些子系統獨有的過程與函數
 Public str_Code As String                               '存儲列內容參數

 Public Xt_XtJc As Boolean            '系統集成
 Public StartMon As Integer           '開帳月份
 Public LastMon As Integer            '當前年度最后一個月份
 Public Qmclcy As Boolean             '期末是否處理差異
 Public ClrkdKfsc As Boolean          '材料入庫單庫存管理系統生成
 Public Xtclzg As Boolean             '系統是否處理暫估
 Public Cylzg As Boolean              '差異率計算是否包括本期暫估
 Public LcbckFs As Integer            '零成本出庫方式
 Public EvalFs As Integer             '暫估方式
 Public SFjezt As Boolean             '系統處理實發金額自填
 
 '生成憑證的信息
 Public vouchdata() As Variant
 Public vouchz As String
 Public PzRecordCount As Integer
 Public PzDataRow As Integer
 
 Public Price_Flag As Boolean         '單價標記
 Public Edit_Flag As Boolean          '編輯標志
 
 Dim Tsxx As String
 

Public Sub Drxtztcs()                                   '讀入系統帳套參數
   
    Dim Ztcsbrec As New ADODB.Recordset
    Dim Rectemp As New ADODB.Recordset
    Dim SqlStr As String
  
    '讀入本位幣
    SqlStr = "Select ForeignCurrCode,ForeignCurrName from Gy_ForeignCurrency where StandardFlag=1"
    Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
    XtSCurrCode = Trim(Rectemp.Fields("ForeignCurrCode"))
    XtSCurrName = Trim(Rectemp.Fields("ForeignCurrName"))
    
    With Ztcsbrec
        '金額總位數
        .Open "Select * From Gy_AccInformation Where SystemCode='Cwzz'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
        .MoveFirst
        .Find "itemcode='cwjezws'"
        If Not Ztcsbrec.EOF Then
            Xtjezws = Val(Trim(Ztcsbrec.Fields("itemvalue")))
        End If
        
        '數量總位數
        .MoveFirst
        .Find "itemcode='cwslzws'"
        If Not Ztcsbrec.EOF Then
            Xtslzws = Val(Trim(Ztcsbrec.Fields("itemvalue")))
        End If
   
        '單價總位數
        .MoveFirst
        .Find "itemcode='cwdjzws'"
        If Not Ztcsbrec.EOF Then
            Xtdjzws = Val(Trim(Ztcsbrec.Fields("itemvalue")))
        End If
        
        '金額小數位數
        .MoveFirst
        .Find "itemcode='cwjexsws'"
        If Not Ztcsbrec.EOF Then
            Xtjexsws = Val(Trim(Ztcsbrec.Fields("itemvalue")))
        End If
   
        '數量小數位數
        .MoveFirst
        .Find "itemcode='cwslxsws'"
        If Not Ztcsbrec.EOF Then
            Xtslxsws = Val(Trim(Ztcsbrec.Fields("itemvalue")))
        End If
        
        '單價小數位數
        .MoveFirst
        .Find "itemcode='cwdjxsws'"
        If Not Ztcsbrec.EOF Then
            Xtdjxsws = Val(Trim(Ztcsbrec.Fields("itemvalue")))
        End If
        .Close
    End With
    
   With Rectemp
        If .State = 1 Then .Close
        .Open "Select * From Gy_AccInformation Where SystemCode='chhs'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic

        '期末是否處理差異
        .MoveFirst
        .Find "itemcode='Chhs_Qmclcy'"
        If Not .EOF Then
           If .Fields("itemvalue") = 1 Then
              Qmclcy = True
           Else
              Qmclcy = False
           End If
        End If
        
        '系統是否處理暫估
        .MoveFirst
        .Find "itemcode='Chhs_Xtclzg'"
        If Not .EOF Then
           If .Fields("itemvalue") = 1 Then
              Xtclzg = True
           Else
              Xtclzg = False
           End If
        End If
        
        '差異率計算是否包括暫估
        .MoveFirst
        .Find "itemcode='Chhs_Cylzg'"
        If Not .EOF Then
           If .Fields("itemvalue") = 1 Then
              Cylzg = True
           Else
              Cylzg = False
           End If
        End If
        
        '材料入庫單是否是庫房系統生成
        .MoveFirst
        .Find "itemcode='Chhs_ClrkdKfsc'"
        If Not .EOF Then
           If .Fields("itemvalue") = 1 Then
              ClrkdKfsc = True
           Else
              ClrkdKfsc = False
           End If
        End If
        
         '系統集成
        .MoveFirst
        .Find "itemcode='chhs_xtjc'"
        If Not .EOF Then
           If .Fields("itemvalue") = 1 Then
              Xt_XtJc = True
           Else
              Xt_XtJc = False
           End If
        End If
         
         '暫估方式
        .MoveFirst
        .Find "itemcode='Chhs_Eval1'"
        If Not .EOF Then
           If .Fields("itemvalue") = 1 Then
              EvalFs = 1
           End If
        End If
        .MoveFirst
        .Find "itemcode='Chhs_Eval2'"
        If Not .EOF Then
           If .Fields("itemvalue") = 1 Then
              EvalFs = 3
           End If
        End If
        .MoveFirst
        .Find "itemcode='Chhs_Eval3'"
        If Not .EOF Then
           If .Fields("itemvalue") = 1 Then
              EvalFs = 3
           End If
        End If
         
         '零成本出庫方式
        .MoveFirst
        .Find "itemcode='Chhs_Lcbck1'"
        If Not .EOF Then
           If .Fields("itemvalue") = 1 Then
              LcbckFs = 1
           End If
        End If
        .MoveFirst
        .Find "itemcode='Chhs_Lcbck2'"
        If Not .EOF Then
           If .Fields("itemvalue") = 1 Then
              LcbckFs = 2
           End If
        End If
        .MoveFirst
        .Find "itemcode='Chhs_Lcbck3'"
        If Not .EOF Then
           If .Fields("itemvalue") = 1 Then
              LcbckFs = 3
           End If
        End If
        .MoveFirst
        .Find "itemcode='Chhs_Lcbck4'"
        If Not .EOF Then
           If .Fields("itemvalue") = 1 Then
              LcbckFs = 4
           End If
        End If
        .MoveFirst
        .Find "itemcode='Chhs_Lcbck5'"
        If Not .EOF Then
           If .Fields("itemvalue") = 1 Then
              LcbckFs = 5
           End If
        End If
        
        '系統處理實發金額自填
        .MoveFirst
        .Find "itemcode='Chhs_SFjezt'"
        If Not .EOF Then
           If .Fields("itemvalue") = 1 Then
              SFjezt = True
           Else
              SFjezt = False
           End If
        End If
    End With
  
    '開帳月份
    Set Rectemp = Cw_DataEnvi.DataConnect.Execute("select * from gy_kjrlb where kjyear=" & Xtyear & " and beginflag=1")
    If Not Rectemp.EOF Then
        StartMon = Rectemp.Fields("period")
        Cw_DataEnvi.DataConnect.Execute ("update gy_kjrlb set chhsjzbz=1 where period<" & StartMon & " and kjyear=" & Xtyear)
    Else
        StartMon = 1
    End If
    
    '終止月份
    Set Rectemp = Cw_DataEnvi.DataConnect.Execute("select * from gy_kjrlb where kjyear=" & Xtyear & " order by period desc ")
    If Not Rectemp.EOF Then
        LastMon = Rectemp.Fields("period")
    End If
    
End Sub

Public Function KjMonth(Datestr As Date) As Integer              '當前會計月份  bfy

    Dim Rectemp As Recordset
   
    Set Rectemp = Cw_DataEnvi.DataConnect.Execute("select * from gy_kjrlb where kjyear=" & PGKjYear & " and '" & Format(Datestr, "yyyy-mm-dd") & "' between qsrq and zzrq ")
   
    If Not Rectemp.EOF Then
        KjMonth = Rectemp.Fields("period")
    Else
        Tsxx = "此會計月份不存在!"
        Call Xtxxts(Tsxx, 0, 1)
    End If
   
End Function

Public Function PGKjYear() As Integer              '當前會計年度
    Dim Rectemp As Recordset
   
    Set Rectemp = Cw_DataEnvi.DataConnect.Execute("select * from gy_kjrlb where chhsjzbz=0 order by kjyear,period")