Attribute VB_Name = "ModConst" Public o_BalSlipNo As String Global g_PosId As String Global g_OperCode As String Global g_OperName As String Global g_Port As Integer Global g_OperKind As String Global g_OperCat As String Global gLog_OperCode As String Global gLog_OperName As String Global gSprGettext As String Global gLLastDB As String Global gLastDB As String Global g_발권일자 As String '발권일자 Global g_기준시간 As String '기준시간 Type Type_GrpOutSkip LiftEach As Integer LiftSum As Currency SRentEach As Integer SRentSum As Currency BRentEach As Integer BRentSum As Currency SStudyEach As Integer SStudySum As Currency BStudyEach As Integer BStudySum As Currency FoodEach As Integer FoodSum As Currency TravelEach As Integer TravelSum As Currency RoomEach As Integer RoomSum As Currency ManFeeEach As Integer ManFeeSum As Currency End Type '****** 사용자 Global Const c_OperMan As String = "C99999" Global Const c_KindCom As String = "0" '전산관리자 Global Const c_KindMan As String = "1" '관리자 Global Const c_KindCas As String = "2" 'Cashier Global Const c_KindBus As String = "3" '사무 Global Const c_KindYun As String = "4" '영업담당 '**** m_InCode 함수에 사용사용되는 인자 Global Const g_MemCode = 0 '** 회원코드 검색 상수 Global Const g_MemKindCode = 1 '** 회원권코드 검색 상수 Global Const g_TicketNo = 2 '** 티켓번호 검색 상수 Global Const g_OperCode1 = 3 '** 담당자코드 검색 상수 Global Const g_PartCode = 4 '** 부서코드 검색 상수 Global Const g_BusiCode = 5 '** 업종코드 검색 상수 Global Const g_GrpKindCode = 6 '** 단체구분마스터 Global Const g_GrpName = 7 '** 단체 마스터 Global Const g_CCardCode = 8 '** 신용카드 마스터 Global Const g_ItemCode = 9 '** 매출항목코드 Global Const g_JTimeNo = 10 '** 종권번호 Global Const g_FJTimeNo = 11 '** 식대구분 Public R_Value As Integer Public Const c_GotFocus = &HA4FDF7 '연노랑 Public Const c_LostFocus = &H80000005 '흰색 Public Const c_KeyLabel = &HFF0000 '파랑 Public Const c_OptGotFocus = &HC0& '빨강 Public Const c_OptLostFocus = &H80000012 '검정 Public Const c_Gray = &HE0E0E0 '회색 Public Const c_ServerName As String = "hjh" 'Public Const c_ServerName As String = "dbsvr" Public Const c_ServerName1 As String = "hjh"