깨비네 마을 ~ 'ㅁ'/

[ 프린트 스크립트 ] Protected Overrides Sub DoPrintEvent() WinMethod.WaitMessage("조회중.....프린트") Dim parmDw As New SiS.Framework.Data.DBParameterCollection() parmDw.Add("P_EXPENSE_DATE_F", CDate(Me.dfteTerm.FromDate.Date).ToString("yyyyMMdd")) parmDw.Add("P_EXPENSE_DATE_T", CDate(Me.dfteTerm.ToDate.Date).ToString("yyyyMMdd")) parmDw.Add("P_CUST_CODE", Func.NVL(cteCust.CodeEditValue, "")) parmDw.Add("P_S..

' 조회 Protected Overrides Function ExecuteRetrieve() As Integer ' 조회 조건 check If Me.KeyCheck() = False Then Return -1 End If Dim ret_cnt As Integer = MyBase.ExecuteRetrieve() ' 조회(프로시저에서 생성된 temp table내역) ' 이관/이관취소 선택에 따른 add/delete/선택/선택취소 제어 If rgDiv.EditValue = "1" Then ' 이관 cnbSheet.EnableAppend = True cnbSheet.EnableRemove = True bteExec.Visible = True ' 실행버튼 Me.xgSheetView.BeginSort() Try x..

"빌드"는 이전 빌드 이후 변경된 소스파일만 컴파일하고 링크하는 반면, "다시 빌드"는 모든 소스파일을 컴파일하고 링크하는 것. 버전 싱크가 깨진 경우 "다시 빌드"를 통해 오류를 해결할 수 있다. 다시빌드 할때는 [프로젝트속성]- [빌드탭]- [출력경로] 에 기존 dll, pdb ,기타파일등을 지우고 나서 컴파일 완료후 출력경로에 새로운 dll, pdb, 기타파일을 생성합니다. 빌드는 소스변경이 없거나 기존의 dll과 pdb 파일이있으면 빌드만하고, 아닌경우에 컴파일 완료후 dll, pdb, 기타파일을 생성합니다.

첨부파일 참조~

프로젝트 참조 BZ

Private Sub xgTA_EE030_VView_CustomSummaryCalculate(ByVal sender As Object, ByVal e As DevExpress.Data.CustomSummaryEventArgs) Handles xgTA_EE030_VView.CustomSummaryCalculate If e.SummaryProcess = DevExpress.Data.CustomSummaryProcess.Finalize Then ' 달성율, 신장율 계산 ' 1) 목표 달성율 Dim douSale_amt As Double = CType(Func.NVL(colSALE_AMT.SummaryText, "0"), Double) Dim douPlan_amt As Double = CType(Func.NVL..

Footer 3D효과 주기 Imports System.Drawing.Drawing2D 'Footer 3D효과 Private Sub xgSheetView_CustomDrawFooterCell(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.FooterCellCustomDrawEventArgs) Handles xgSheetView.CustomDrawFooterCell Dim dx As Integer = e.Bounds.Height Dim brush As Brush = e.Cache.GetGradientBrush(e.Bounds, Color.Wheat, Color.FloralWhite, _ LinearGradientMode.Vertical)..

총합계 재계산 하기(2) : 이벤트 써서 Private Sub xgSheetView_CustomSummaryCalculate(ByVal sender As Object, ByVal e As DevExpress.Data.CustomSummaryEventArgs) Handles xgSheetView.CustomSummaryCalculate If e.SummaryProcess = DevExpress.Data.CustomSummaryProcess.Finalize Then 'If e.Item.ToString() = "FAIL_COUNT" Then Try e.TotalValue = colSUCC_COUNT.SummaryItem.SummaryValue * 15 e.TotalValue = "과금액 =" & e.Total..

총합계 재계산 하기(1) : 조회 후 재계산 1) 목표 달성율 Dim douSale_amt As Double = Func.NVL(CType(colSALE_AMT.SummaryText, Double), 0) Dim douPlan_amt As Double = Func.NVL(CType(colPLAN_AMT.SummaryText, Double), 0) If douPlan_amt = 0 Then colCURR_GOAL_RATE.SummaryItem.DisplayFormat = 0 & "%" Else colCURR_GOAL_RATE.SummaryItem.DisplayFormat = Func.Round((douSale_amt / douPlan_amt) * 100, 1) & "%" End If

그룹별 스크립트로 합계 계산하기 Private _value As String = "" '그룹별로 금액 구하기 Private Sub xgSheetView_CustomSummaryCalculate(ByVal sender As Object, ByVal e As DevExpress.Data.CustomSummaryEventArgs) Handles xgSheetView.CustomSummaryCalculate Dim summaryID As Integer = Convert.ToInt32(CType(e.Item, DevExpress.XtraGrid.GridSummaryItem).Tag) Dim View As DevExpress.XtraGrid.Views.Grid.GridView = CType(sender, DevEx..