Re: HMG 3.4.4
Posted: Fri Jun 23, 2017 3:26 pm
I only had error in 3.2.1 not 3.4.4
Franco
Franco
Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://hmgforum.com/
Code: Select all
#include "hmg.ch"
Function Main
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 800 ;
HEIGHT 600 ;
TITLE 'Hello World!' ;
MAIN
DEFINE BUTTON BUTTON_1
ROW 10
COL 151
CAPTION "Click for Grid 3"
ACTION GT()
WIDTH 141
HEIGHT 20
END BUTTON
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return
FUNCTION GT()
FILS()
set century on
set deleted on
IF .NOT. ISWINDOWACTIVE(FORM_2)
DEFINE WINDOW Form_2 ;
AT 110, 10 ;
WIDTH 1250 ;
HEIGHT 700 ;
TITLE 'Sales Report Screen' ;
MODAL ;
NOSIZE ;
ON RELEASE {||{Closer2fils()}}
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", "Date" ,"Sellprice"}
WIDTHS {80, 95, 100 }
JUSTIFY {0,0,1,}
COLUMNWHEN { { || .F. },{ || .F. }, { || .F. }}
ROWSOURCE 'temp5' //"pinv_it"
COLUMNFIELDS { 'inv_NO' , 'SAL_DAT','UNIT_PRICE'}
VALUE {1,1}
TABSTOP .F.
****************************************************************************
END GRID
DEFINE BUTTON Button_1
ROW 110
COL 135
WIDTH 100
HEIGHT 25
CAPTION 'No Crash'
*ACTION Form_2.RELEASE}}
END BUTTON
DEFINE Label Label_1
ROW 80
COL 135
WIDTH 600
HEIGHT 25
VALUE 'When grid has focus on X out Crash ** When Button has focus NO CRASH'
END Label
END WINDOW
Form_2.Activate
ELSE
MSGINFO('ALREADY IN USE')
ENDIF
RETURN //NIL
*********************************************************
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,{'QTY', 'N' , 7, 2})
Aadd(CF1,{'COST' , 'N' , 11,2})
Aadd(CF1,{'UNIT_PRICE', 'N' , 11,2})
Aadd(CF1,{'CORE' , 'N' , 8,2})
Aadd(CF1,{'LIST', 'N' , 11,2})
Aadd(CF1,{'TAX1' , 'N' , 8,2})
Aadd(CF1,{'TAX2', 'N' , 8,2})
Aadd(CF1,{'GROUP' , 'C' , 15,0})
Aadd(CF1,{'PRODUCT', 'C' , 7,0})
Aadd(CF1,{'ITEM' , 'C' , 15,0})
Aadd(CF1,{'NAME' , 'C' , 25,0})
Aadd(CF1,{'PO_NUM', 'C' , 140,0})
AADD(CF1,{'ATTN2', 'C' , 20,0})
Aadd(CF1,{'SAL_PER', 'C' , 7,0})
Aadd(CF1,{'TX1', 'N' , 8,2})
Aadd(CF1,{'TX2', 'N' , 8,2})
Aadd(CF1,{'PAYMENT' , 'C' , 30,0})
Aadd(CF1,{'CUSTID' , 'C' , 7,0})
Aadd(CF1,{'SAL_DAT', 'D' , 8,0})
Aadd(CF1, {'TOTAL', 'N', 12,2})
Aadd(CF1, {'PROFIT', 'N', 12,2})
Aadd(CF1, {'PROFIT1', 'C', 12,0})
Aadd(CF1, {'Tax1Total', 'N', 10,2})
Aadd(CF1, {'Tax2Total', 'N', 10,2})
Aadd(CF1, {'POSTING' , 'C' , 6,0})
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
temp:=temp+1
loop
enddo
return
Function CloseR2fils
close temp5
release temp5
return
Is it possible that you forgot to put the unit?