농부지기

☞   

합계칼럼을 일일이 손으로 만들고 있길래 ..

쉽게 합계 칼럼을 일괄 자동생성하는 법을 알려 줬지요..

(무지 좋아 하더군요...)

혹시 모르시는 분들을 위해.. 조금이라도 편하시라고.. 올려봅니다

1)dw의 숫자로 된 칼럼이 여러개 주욱 옆으로 있다면...

아래 그림과 같이 숫자칼럼들만 마우스로 멀티 선택합니다..

(과목수, 수강료총액, 차감총액, 실제 수강료합...)

2) 툴바에서 Sum을 선택하면 summary 칸에 합계 컴퓨티드 칼럼이 주르륵 자동 생성됩니다.

(리포트 만들거나 할때 숫자칼럼 많은데 합계 생성하려면 힘들고 귀찮죠... 이럴때 유용하겠죠..)

3) 그런데 summary 밴드가 아닌 footer 에 만들고 싶은데 거긴 자동 생성 안되네요..

tabular 나 freeform dw는 그냥 마우스로 드래그해서 밴드를 옮기면 되지만

그리드는 밴드 이동이 안되는 군요... 이론..

그럼 저장하고 나가서 해당 dw를 마우스 우클릭 한 다음.. Edit Source 를 선택합니다.

(파빌 7 이하는 edit source가 없군요.. 그럼 export, import 하면 되겠죠..)

4) source에서  band=summary 를  footer 로 바꾸고 저장합니다..

5) 아래 그림 처럼 summary 에서 footer로 합계칼럼이 생성되었습니다.... 파빌은 역시 짱입니다..

☞  

☞   현재Row와 이전row 값을 비교 후 sum

1. summary 에 computed field 를 만들고
2. sum( if ( pum[-1] = pum[0] , 0 , value ) for all )
 

☞   

순순하게 변경은 불가능
전부 visible = false하시고
순서대로 visible을 true 하시면됩니다.

☞   

1. BackGroundColor 변경  : dw_d1.Modify("컬럼명.Background.Color = '16777215'") //rgb(255,255,255)'")

2. lable 의   Text  변경 : dw_d1.Modify("title_game_header.Text = '원하는 값'")

3. 컬럼 type length 변경 : dw_d1.Modify("컬럼명.Edit.Limit = 5")

4. 컬럼 Visible     처리 : dw_d1.Modify("컬럼명.Visible = true")

5. 컬럼 bold 굵게 설정   : dw_d1.Modify ("컬럼명.font.Weight=700") ;   //700은 굵게,   400은 보통

6. 컬럼 Y 좌료    설정   : dw_d1.Modify("컬럼명.Ya = 500")

7. 컬럼 X 좌료    설정   : dw_d1.Modify("컬럼명.X = 500")

8. 컬럼 높이      설정   : dw_d1.Modify ("컬럼명.Height = 80")

9. This.SelectText(1, len(GetText() )

☞  

1. dw안에 컬럼 개수          : ll_col_cnt = Integer(dw_d1.Describe("datawindow.column.count"))

2. 컬럼 index 로 컬럼명 찾기 : ls_col_name = Upper(dw_d1.Describe ( "#"+String ( li_index ) + ".Name" ))

3. 컬럼 type 알아내기        : ls_type = dw_d1.Describe("컬럼명.ColType");

4. 컬럼 tag 값 얻기          : ls_tag  = dw_d1.Describe ( "#컬럼명.Tag" )

5. 컬럼 X 좌표 값 얻기       : X = Integer(dw_d1.Describe ( "컬럼명.X" ))

6. 컬럼 Y 좌표 값 얻기       : Y = Integer(dw_d1.Describe ( "컬럼명.Y" ))

☞  

컬럼 순서 알아 내기 : dw_d1.Object.DataWindows.Table.GridColumns

1. text lable에 값을 두 줄로 만들 기 : 한글~r한글 : 즉 ~r  를 삽입
2. 두 번째 방법으로 : text입력란에서 Ctrl + Enter를 치면 밑으로 내려감

1. EditMast.Mask 변경하기
   dw_d1.Object.part_rope_cnt.EditMask.Mask = "###";
   dw_d1.Object.part_rope_cnt.EditMask.Mask = "##.000";

2. Format 변경하기
   dw_d1.Object.part_rope_cnt_1.format = '##.000'
   dw_d1.Modify("part_rope_cnt_.format='##.000'");   //문자값은  Modify내부에  single quote 를 찍어야 됨
 
3. 컬럼 height 변경하기
   dw_d1.Modify ("part_cd.Height         = 80")

1. tabOrder 속성 변경
   dw_d1.SetTabOrder("part_rope_cnt", 20)

1. Detail band Height 조정하기
   dw_d1.SetDetailHeight (1, 99, 102)

해당 데이터윈도우의 Scrollvertical() 이벤트에 아래와 같이 스크립트를 기술해 주시면 됩니다.

===================================================================================

String ls_first, ls_last

String ls_page, ls_pagecount

// 각 화면의 첫번째 Row의 번호를 얻는다.

ls_first = dw_1.Object.Datawindow.FirstRowOnPage

// 각 화면의 마지막 Row의 번호를 얻는다.

ls_last  = dw_1.Object.Datawindow.LastRowOnPage

dw_1.Title = "Rows " + ls_first + " To " + ls_last

ls_page = dw_1.Describe("Evaluate('Page()'," + ls_last + ")")

// 전체 Page수를 얻는다.

ls_pagecount = dw_1.Describe("Evaluate('PageCount()'," + ls_last + ")")

st_page.text = "총 " + ls_pagecount + " 페이지중 " + ls_page + " 페이지"

dw_1.object.Data[row, 컬럼번호]

dw_1.object.컬럼.Primary.Current[row]

dw_1.object.컬럼.Primary[row]

그외....

해당 데이터윈도우 버퍼의 데이터를 모두 받는 건?

dw_1.object.data

두번째 행의 모든 값을 받는 건?

dw_1.object.data[2]

1행의 첫컬럼부터 2행의 두번째 컬럼까지 받는 건?

dw_1.object.data[1,1, 2, 2]

selectrow()함수를 이용해서 선택된 행을 모두 갖고 오는 건?

dw_1.object.Data.Selected

모든 행의 특정컬럼 값만 갖고 오는 거?

dw_1.object.컬럼
http://cafe.naver.com/pentaeduclub.cafe

DataWindow에서 값을 입력하다보면 'DataWinodw Error'라는 Title의 Message Box가 나타남
영어로 쓰여져있고 일반 End User들에게는 생소한 영문이라서 눈에 거슬렸는데
이 title을 원하시는 내용으로 변경하는 방법이 있다.
DataWindow attribute에는 Message.Title이란 것이 있다.
이부분을 수정하면 된다.
  dw_1.Modify("DataWindow.Mesage.Title = '입력오류'")
 

- Original : 초기 조회 값
IF ( column_name <> column_name.Original, RGB(255, 0, 0), RGB(0, 0, 0))

☞   

☞   

☞   

안녕하십니까?

엑셀 저장할 때 저장하고자 하는 파일이 열려있을 경우 저장이 안되거나 오류나서 죽는 현상이 있습니다.

그럴때 아래 스크립트를 추가하여 체크해 보십시오.

String  Ls_DocName, Ls_Named, Ls_FileFormat
Integer Li_Value, Li_FileNo

Ls_DocName=''
Ls_FileFormat='MS-Excel File Format (*.xls),*.xls'          // MS-Excel 저장

Li_Value = GetFileSaveName('Save File Name', Ls_DocName, Ls_Named, 'xls', Ls_FileFormat)

If Li_Value<>1 Then
 Return -1
End If

// 이부분에서 선택한 파일을 그냥 FileOpen()으로 열어봅니다.

// 현재 열려있다면

If FileExists(Ls_DocName) Then

Li_FileNo = FileOpen(Ls_DocName, StreamMode!, Write!, LockReadWrite!, Append!)
If Li_FileNo = -1 Or IsNull(Li_FileNo) Then
 MessageBox('확인', '선택하신 파일이 현재 열려있습니다. 열려진 파일을 닫고 작업하십시오.')
 Return -1
End If
FileClose(Li_FileNo)

End If

....(계속)

이것저것 많이 찾아보다(오후내내 헤멨다는..ㅋㅋ)가 발견했네요 ㅎㅎㅎ

더 좋은 방법이나 이 방법에 버그가 있다면 알려주세요~~제발~~~~ ^^

=============

2010-12-21

FileOpen()을 사용하면 파일이 없을 때 해당 파일을 생성시켜주는 작용을 합니다.

따라서 FileOpen()체크시 새로운 이름의 파일일경우 해당 파일이 생성되버리는 버그가 됩니다.

그게 빨간색 부분을 추가합니다.

☞   

☞  

☞   

어느사이트인지는 모르겠는데.. 암튼   zingga1@netian.com 이분이 올려주신 내용이었습니다.

이분의 노고에 정말  감사드립니다.

------------------
* Global Externa Function 선언

FUNCTION UInt FindWindowA( Ulong className, string winName )  LIBRARY "user32.dll"
FUNCTION UInt SetFocus( int winHand )  LIBRARY "user32.dll"
FUNCTION boolean DeleteFileA(ref string filename) LIBRARY "Kernel32.dll"
------------------------------------------------------------------------------
//변수 선언
int object_count, object_index, object_max
string objects, object_name, object_list[], object_select, object_band, object_type
string detail_object_spec, detail_objects[], detail_object_labels, s_header, header_text[]
string s_trailer1, s_trailer1_object[], s_footer, s_footer_object[], s_footer_data
boolean object_visible, b_detail = false, b_trailer1= false, b_summury = false, b_footer = false
int i_trailer1_count = 0, i_detail_count = 0, i_footer_count = 0

//데이터윈도우의 모든 오브젝트를 읽어온다.
objects = dw_1.describe("Datawindow.Objects" )

int i_pos, i, i_target, j, i_target_row, i_row = 1

object_max = 1
i_pos = 1

//오브젝트들을 탭을 구분으로 하나씩 분리해 저장한다.
do while(true)
  i_target = pos(objects, '~t', i_pos)
if i_target = 0 then
 object_list[object_max] = mid(objects, i_pos, len(objects))
 exit
end if
  object_list[object_max] = mid(objects, i_pos, i_target - i_pos)
i_pos = i_target + 1
object_max++
loop

//각 오브젝트들이 속해 있는 밴드와 타입, visible여부를 알아내어서
//오브젝트의 갯수와 각 변수들에 저장을 한다.
for object_index = 1 to object_max
object_name = trim(object_list[object_index])
object_band = upper(dw_1.describe( object_name + ".band" ))
object_type = upper(dw_1.describe( object_name + ".type" ))
object_visible = dw_1.describe( object_name + ".visible" ) = "1"
  if object_visible then //보이는 오브젝트만 처리
 choose case object_band
  case "TRAILER.1" //그룹밴드
   b_trailer1 = true
   if (object_type = "COLUMN" or object_type = "COMPUTE" or object_type = "TEXT") then
          i_trailer1_count++
              s_trailer1_object[i_trailer1_count] = object_name
   end if
  case "DETAIL" //Detail 밴드
           if (object_type = "COLUMN" or object_type = "COMPUTE") then
              object_select = object_select + "/" + object_name
      i_detail_count++        
         end if
  case "FOOTER" //Footer 밴드
   b_footer = true
   if (object_type = "COLUMN" or object_type = "COMPUTE" or object_type = "TEXT") then
          i_footer_count++
              s_footer_object[i_footer_count] = object_name
   end if
   end choose
  end if
next

i_target = 0 ; i_pos = 1 ; object_max = 1

dw_1.SetRedraw(false)
//컬럼의 순서를 알아내기 위한 작업을 한다.
object_select = '1/1' + object_select
dw_1.modify("datawindow.selected= '" + object_select + "'")

object_select = dw_1.describe("datawindow.selected")

detail_object_spec = right(object_select, len(object_select) - 4)

detail_object_spec = detail_object_spec + '/'
dw_1.modify(" datawindow.selected=''")
dw_1.SetRedraw(true)

i_pos = 1
object_max = 1

//각 컬럼의 이름을 배치된 순서대로 다시 저장한다.
do while(true)
  i_target = pos(detail_object_spec, '/', i_pos)
if i_target = 0 then
 detail_objects[object_max] = mid(detail_object_spec,i_pos, len(detail_object_spec))
 exit
end if
  detail_objects[object_max] = mid(detail_object_spec,i_pos, i_target - i_pos)
i_pos = i_target + 1
object_max++
loop

//헤드에 있는 텍스트들의 text값을 저장한다.
for object_index = 1 to object_max
object_name = detail_objects[object_index]
if detail_object_labels <> '' then detail_object_labels = detail_object_labels + '~t'
 if dw_1.describe( object_name + "_t.visible" ) <> '!' then
  detail_object_labels = detail_object_labels + dw_1.describe(object_name + "_t.text")
 else
    detail_object_labels = detail_object_labels + "?"
 end if
next
//요기까지 detail 밴드의 화면상에 보이는 컬럼들만 detail_objects에 담는다.

detail_object_labels = detail_object_labels + "~r~n"

//엑셀과 연결 시작
oleobject export_object
uint excel_handle, excel_state
string excel_title

export_object = create oleobject

export_object.connecttonewobject("excel.application")

excel_title = export_object.Application.Caption

export_object.Application.Visible = True
excel_handle = FindWindowA( 0, excel_title )
SetFocus( excel_handle )

//파일작성
long row_count, start_row
string data_buffer, s_select, filename, s_syn, s_trailer1_data
int file_num, ii

filename = "c:\export.txt"
start_row = 1

row_count = dw_1.rowcount()
if row_count = 0 then Return

if fileexists(filename) then
DeleteFileA(filename)
end if

file_num = fileopen(filename, streammode!, write!, lockreadwrite!, append!)

//각 로우별로 데이터를 읽어서 파일에 기록한다.
for start_row = 1 to row_count
  s_select = string(start_row) + "/" + string(start_row) + "/" +detail_object_spec
 dw_1.modify(" Datawindow.selected = '" + s_select + "'")
   data_buffer = dw_1.describe("datawindow.selected.data") + "~r~n"
 if start_row = 1 then data_buffer = detail_object_labels + data_buffer
   if b_trailer1 then //그룹이 존재한다면
  i_target_row = dw_1.FindGroupChange(start_row, 1) - 1
    if i_target_row = start_row then
   for i = 1 to i_trailer1_count
     if upper(dw_1.describe( s_trailer1_object[i] + ".type" )) = "COMPUTE" then
      s_syn = dw_1.describe(s_trailer1_object[i] + ".expression")
              s_syn = dw_1.Describe("Evaluate('" + s_syn + "',"  + string(start_row) + ")")
              if i = 1 then
      for ii = 1 to i_detail_count - i_trailer1_count - 1
       s_trailer1_data = s_trailer1_data + '~t'
        next
      end if
      s_trailer1_data = s_trailer1_data + '~t' + s_syn 
      elseif upper(dw_1.describe( s_trailer1_object[i] + ".type" )) = "COLUMN" then
      s_syn = dw_1.Describe("Evaluate('LookUpDisplay(" + s_trailer1_object[i] + ") '," + &
                          string(start_row) + ")")
              if i = 1 then
       for ii = 1 to i_detail_count - i_trailer1_count - 1
        s_trailer1_data = s_trailer1_data + '~t'
       next
      end if
      s_trailer1_data = s_trailer1_data + '~t' + s_syn          
      elseif upper(dw_1.describe( s_trailer1_object[i] + ".type" )) = "TEXT" then
      s_syn = dw_1.Describe(s_trailer1_object[i] + ".text")
              if i = 1 then
       for ii = 1 to i_detail_count - i_trailer1_count - 1
        s_trailer1_data = s_trailer1_data + '~t'
       next
      end if
      s_trailer1_data = s_trailer1_data + '~t' + s_syn                 
      end if
     next
   data_buffer = data_buffer + "~r~n" + s_trailer1_data + "~r~n"
   end if
end if
filewrite(file_num, data_buffer)
setnull(data_buffer)
s_trailer1_data = ''
next

//Footer 밴드를 마지막으로 파일에 덧붙힌다.
if b_footer then
  for i = 1 to i_footer_count
    if upper(dw_1.describe( s_footer_object[i] + ".type" )) = "COMPUTE" then
     s_syn = dw_1.describe(s_footer_object[i] + ".expression")
       s_syn = dw_1.Describe("Evaluate('" + s_syn + "',"  + string(row_count) + ")")
         if i = 1 then
    for ii = 1 to i_detail_count - i_footer_count - 1
      s_footer_data = s_footer_data + '~t'
      next
     end if
   s_footer_data = s_footer_data + '~t' + s_syn 
    elseif upper(dw_1.describe( s_footer_object[i] + ".type" )) = "COLUMN" then
   s_syn = dw_1.Describe("Evaluate('LookUpDisplay(" + s_footer_object[i] + ") '," + &
                         string(row_count) + ")")
         if i = 1 then
    for ii = 1 to i_detail_count - i_footer_count - 1
      s_footer_data = s_footer_data + '~t'
      next
     end if         
     s_footer_data = s_footer_data + '~t' + s_syn          
    elseif upper(dw_1.describe( s_footer_object[i] + ".type" )) = "TEXT" then
   s_syn = dw_1.Describe(s_footer_object[i] + ".text")
         if i = 1 then
    for ii = 1 to i_detail_count - i_footer_count - 1
      s_footer_data = s_footer_data + '~t'
      next
     end if   
       s_footer_data = s_footer_data + '~t' + s_syn                 
    end if
  next
data_buffer = "~r~n" + s_footer_data
filewrite(file_num, data_buffer)
end if

fileclose(file_num)

export_object.statusbar = "Importing data...."
export_object.workbooks.opentext(filename)
export_object.windows("export.txt").caption = "Export Workbook"

//엑셀파일의 포맷을 실시한다.

//자동 칸맞춤을 적용한다.
export_object.Worksheets[1].Columns.AutoFit

//헤드 줄은 bold로 지정한다.
export_object.rows("1:1").select
export_object.selection.font.bold = true
export_object.selection.font.italic = false

export_object.statusbar = " Formatting labels....."
export_object.rows("1:1").select
//셀들의 줄맞춤을 실시한다.
export_object.selection.wraptext  = true
export_object.selection.horizontalalignment = true
export_object.selection.verticalalignment = true

//미리보기에서 헤드셀들은 반복되어 나타나게 한다.
export_object.Activesheet.PageSetup.PrintTitleRows = "$1:$1"

export_object.DisConnectObject() //연결종료
Destroy export_object //오브젝트 제거