Page 8 of 21

Re: HMG 3.4.4

Posted: Fri Jun 23, 2017 3:26 pm
by franco
I only had error in 3.2.1 not 3.4.4
Franco ;)

Re: HMG 3.4.4

Posted: Sun Jul 02, 2017 10:24 pm
by franco
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

Re: HMG 3.4.4

Posted: Mon Jul 03, 2017 2:43 am
by Rathinagiri
Franco,

Please give a small sample.

Re: HMG 3.4.4

Posted: Mon Jul 03, 2017 4:26 pm
by franco
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.

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
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 ;)

Re: HMG 3.4.4

Posted: Wed Aug 30, 2017 2:37 pm
by Shyam
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

Re: HMG 3.4.4

Posted: Wed Aug 30, 2017 3:42 pm
by Rathinagiri
Welcome Shyam

Re: HMG 3.4.4

Posted: Thu Aug 31, 2017 1:04 pm
by Shyam
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.

Re: HMG 3.4.4

Posted: Thu Aug 31, 2017 2:52 pm
by apais
harbour has its on webserver
study: httpd in harbour distribution

Re: HMG 3.4.4

Posted: Mon Sep 18, 2017 5:13 pm
by Shyam
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...

Re: HMG 3.4.4

Posted: Mon Sep 18, 2017 7:00 pm
by BeGeS
Shyam wrote: Mon Sep 18, 2017 5:13 pm 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...
Is it possible that you forgot to put the unit?

SET DEFAULT TO C:\ACCOUNT\SD-2017