HMG 3.4.4
Moderator: Rathinagiri
Re: HMG 3.4.4
I think I found my problem in 3.2 only
window is model
on relase close files ******** somehow release grid or grid rowsource := " " then close files
grid has focus using a table
if grid has focus and I exit with X ************ the grid now has no table to link to.
I think I have to set the grids row source to nothing or release the grid somehow before closing files
any thoughts ................. Franco
window is model
on relase close files ******** somehow release grid or grid rowsource := " " then close files
grid has focus using a table
if grid has focus and I exit with X ************ the grid now has no table to link to.
I think I have to set the grids row source to nothing or release the grid somehow before closing files
any thoughts ................. Franco
All The Best,
Franco
Canada
Franco
Canada
- Rathinagiri
- Posts: 5471
- Joined: Tue Jul 29, 2008 6:30 pm
- DBs Used: MariaDB, SQLite, SQLCipher and MySQL
- Location: Sivakasi, India
- Contact:
Re: HMG 3.4.4
Franco,
Please give a small sample.
Please give a small sample.
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.
South or North HMG is worth.
...the possibilities are endless.
Re: HMG 3.4.4
Thank you Rathi,
This only happens in 3.2
this sample was in my previous grid problem. I seem it only happens with a modal window. I think if grid has focus when I X out,and am closing files the grid still needs a table to have source to.
Maybe I should not have an X on a modal window with a grid.
This does not happen in 3.4.4, but I am running into other small issues in 3.4.4.
Thanks again, ....Franco
This only happens in 3.2
this sample was in my previous grid problem. I seem it only happens with a modal window. I think if grid has focus when I X out,and am closing files the grid still needs a table to have source to.
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
This does not happen in 3.4.4, but I am running into other small issues in 3.4.4.
Thanks again, ....Franco
All The Best,
Franco
Canada
Franco
Canada
-
- Posts: 12
- Joined: Thu Jul 27, 2017 7:04 am
- DBs Used: DBF, MySql, SQlite
- Location: Ahmedabad, Gujarat, India
- Contact:
Re: HMG 3.4.4
Hello! Rathi Sir,
and my all friends
I recently well experience with opening large .DBF file which one not
opened with Clipper 5.2 and other application.
Thanks HMG and HBMK2 to solve my problem
thanks to giving new release Sir,
Thanks all Friends to connected with HMG and all.
well, Happy Harbouring
Shyam
shyamlimbachia@gmail.com
and my all friends
I recently well experience with opening large .DBF file which one not
opened with Clipper 5.2 and other application.
Thanks HMG and HBMK2 to solve my problem
thanks to giving new release Sir,
Thanks all Friends to connected with HMG and all.
well, Happy Harbouring
Shyam
shyamlimbachia@gmail.com
- Rathinagiri
- Posts: 5471
- Joined: Tue Jul 29, 2008 6:30 pm
- DBs Used: MariaDB, SQLite, SQLCipher and MySQL
- Location: Sivakasi, India
- Contact:
Re: HMG 3.4.4
Welcome Shyam
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.
South or North HMG is worth.
...the possibilities are endless.
-
- Posts: 12
- Joined: Thu Jul 27, 2017 7:04 am
- DBs Used: DBF, MySql, SQlite
- Location: Ahmedabad, Gujarat, India
- Contact:
Re: HMG 3.4.4
To,
Rathi Sir all my friends which connected with HMG,
Can we delevelop webbase application like .NET concept.
and upload files to our DOMAIN AND WEB SPACE OR ON Web Server,
or we can have IDE like WEBSERVER localhost concept?
If it possible with this logic, it will give good advantages,
beacase some one we can not develope forms or validation
in HTML based concept or it is hard to control each and every screen in HTML
based program.
Rathi Sir all my friends which connected with HMG,
Can we delevelop webbase application like .NET concept.
and upload files to our DOMAIN AND WEB SPACE OR ON Web Server,
or we can have IDE like WEBSERVER localhost concept?
If it possible with this logic, it will give good advantages,
beacase some one we can not develope forms or validation
in HTML based concept or it is hard to control each and every screen in HTML
based program.
Re: HMG 3.4.4
harbour has its on webserver
study: httpd in harbour distribution
study: httpd in harbour distribution
Angel Pais
Web Apps consultant/architect/developer.
Web Apps consultant/architect/developer.
-
- Posts: 12
- Joined: Thu Jul 27, 2017 7:04 am
- DBs Used: DBF, MySql, SQlite
- Location: Ahmedabad, Gujarat, India
- Contact:
Re: HMG 3.4.4
IN ANY VERSION , INSTEAD CONSOLE,HBMK2 , THERE IS PROBLEM IN SET PATH OR SET DEFAULT TO COMMAND NOT
WORKING... HOW TO SOLVE IT...
SET DEFAULT TO \ACCOUNT\SD-2017 , NOT WORKING ANY WAY...
WORKING... HOW TO SOLVE IT...
SET DEFAULT TO \ACCOUNT\SD-2017 , NOT WORKING ANY WAY...
Re: HMG 3.4.4
Is it possible that you forgot to put the unit?
SET DEFAULT TO C:\ACCOUNT\SD-2017
I get by with a little help from my friends