The DESC text box updates in 3.2 but does not in 3.4.4 on save and refresh in CH Function.
Also I can not remember how to set the curser back to the grid column I left.
Code: Select all
#include "hmg.ch"
Function Main
FILS()
set century on
*IF .NOT. ISWINDOWACTIVE(FORM_2)
DEFINE WINDOW Form_2 ;
AT 110, 10 ;
WIDTH 1250 ;
HEIGHT 700 ;
TITLE 'Sales Report Screen' ;
MAIN ;
NOSIZE ;
ON RELEASE {||{Closer2fils()}}
DEFINE TEXTBOX TEXT_1
ROW 150
COL 280
WIDTH 200
HEIGHT 20
UPPERCASE .T.
FIELD TEMP5->DESC
END TEXTBOX
DEFINE GRID Grid_2
ROW 200
COL 30 //140
WIDTH 1190 //1100
HEIGHT 200 //370
BACKCOLOR { 180, 180, 200}
FONTCOLOR { 0, 0, 0 }
HEADERS {"Invoice", "Item" ,"Sellprice","Desc"}
COLUMNCONTROLS { {'TEXTBOX','CHARACTER',"!!!!!!!!"},{'TEXTBOX','CHARACTER',"!!!!!!!!!!!!!!!"},;
{'TEXTBOX','NUMERIC','9999999.99'},{'TEXTBOX','CHARACTER',"!!!!!!!!!!!!!!!!!!!!!!!!!!"}}
WIDTHS {80, 95, 100 ,150}
JUSTIFY {0,0,1,0}
COLUMNWHEN { { || .T. },{ || .T. }, { || .T. }, { || .T. }}
ROWSOURCE 'temp5'
COLUMNFIELDS { 'INV_NO' , 'ITEM_NO','UNIT_PRICE','DESC'}
VALUE {1,1}
ALLOWEDIT .T.
TABSTOP .F.
ON CHANGE CH()
END GRID
END WINDOW
Form_2.Activate
RETURN //NIL
*********************************************************
Function CH
local wh := Form_2.Grid_2.value
Form_2.Grid_2.save
FORM_2.Text_1.refresh
form_2.Grid_2.value := wh
return
Function Fils
Local CF1 := {}
CF1 := {}
aADD(CF1,{'INV_no' , 'C' , 8,0})
AADD(CF1,{'ITEM_NO', 'C' , 15,0})
Aadd(CF1,{'DESC', 'C', 26,0})
Aadd(CF1,{'UNIT_PRICE', 'N' , 10,2})
if ! hb_dbcreatetemp("temp5", cf1)
msgbox("Cannot create temporary table: Item")
RELEASE WINDOW ALL
return nil
endif
if select("temp5") = 0
use temp5 new
endif
select temp5
index on inv_no to temp5
temp := 1
do while temp < 51
append blank
replace inv_no with 'IN'+alltrim(str(temp+1000))
replace item_no with 'IT'+alltrim(str(temp+100))
replace unit_price with temp*100
replace desc with 'DESC '+STR(TEMP)
temp:=temp+1
loop
enddo
return
Function CloseR2fils
close temp5
release temp5
return