깨비네 마을 ~ 'ㅁ'/

Private Sub AdvBandedGridView1_InitNewRow(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.InitNewRowEventArgs) Handles xgSheetView.InitNewRow Dim drv As DataRowView = TryCast(Me.BaseBindingSource.Current, DataRowView) drv("OCCUR_DATE") = CMUX.CMShare.Fun.GetDateToStringYMD(CDate(dteSlipDate.EditValue)) drv("PART_DIV") = Func.NVL(ctePartDiv.CodeEditValue, "") drv("BRAND") = Func..

동시성 에러 : 계산해서 xgsheet에 보여준 데이타를 저장할 경우 데이타가 테이블에는 number(5,2)로 정의 되어 있고 실 데이타는 trunc or round처리 하지 않은 경우면 123.123242132323이렇게 값을 비교하므로 동시성 에러 발생 스크립트에서 truncate or round해 주어야 한다

sql에 작성한 select column중에서 update에 관련된 컬럼은 nvl같은 함수로 가공하지 않는다 => 가공하면 동시성 에러남..null인것을 찾아서 update하는데 0으로 인식하여 이미 값이 변경된것으로 인식하기 때문

ws의 return값은 native type만(string, int...) or dataset만 리턴 가능 object type, dbparametertype은 안됨..보낼려면 ws에서 string으로 리턴해서 proc에서 변환해야함

orelse If dr.RowState = DataRowState.Detached OrElse dr.RowState = DataRowState.Added Then e.Cancel = False Else e.Cancel = True End If => dr.RowState = DataRowState.Detached을 만족하면 dr.RowState = DataRowState.Added은 타지 않는다

제약조건을 활성화 하지 못했습니다. 하나 이상의 행에 NOT NULL,UNIQUE또는 외래키 제약 조건을 위반하는 값이 있습니다. => tds에 키로 잡힌 컬럼이 모두 존재 해야 한다 = select 문에도 동일하게 있어야함. = 화면 조회의 select문 update대상 컬럼은 모두 sql에 존재해야 한다(tds는 존재 하지 않아도 됨)

.SALE_AMT과(와) .SALE_AMT의 속성이 충돌합니다. DataType 속성이 일치하지 않습니다. => tds에서 만든 컬럼과 sql문의 컬럼 갯수가 틀림 or type확인

/* ********************************************************************************************************************* --------------------------------------------------------------------------------------------------------------------- ※※※ VB 에서 DataWindow Report 출력 방법 --------------------------------------------------------------------------------------------------------------------- *******..

Dim host As System.Net.IPHostEntry host = System.Net.Dns.GetHostEntry("") Dim myIP as String = host.AddressList(0).ToString()

Dim strSaleSp As String = "PA_S100.SP_TA_S100_INSERT" Dim parmsSale As New DBParameterCollection() Dim parms As New DBParameterCollection Dim intErrorCode As Integer = 0 Dim strErrorText As String = "" parmsSale.Clear() parms.Clear() parmsSale.Add("v_sale_date", dr("SALE_DATE")) parmsSale.Add("v_part_div", dr("PART_DIV")) parmsSale.Add("v_part_no", dr("PART_NO")) parmsSale.Add("v_part_type", dr(..