HMG 3.4.3

HMG Unicode versions 3.1.x related

Moderator: Rathinagiri

chrisjx2002
Posts: 173
Joined: Wed Jan 06, 2010 5:39 pm
Been thanked: 2 times

Re: HMG 3.4.3

Post by chrisjx2002 »

Thanks for this new version

User avatar
andyglezl
Posts: 1248
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 38 times
Been thanked: 107 times
Contact:

Post by andyglezl »

Hola
Haciendo una prueba de compilacion rapida, esto es lo me sale a mi...
(Programa trabajando en version 3.4)

MyBuild.bat
Process started >>>

D:\RespaldosPCs\DiscoC\Trabajo\MnuVertWPanel>ECHO OFF
Harbour 3.2.0dev (r1601151502)
Copyright (c) 1999-2015, http://harbour-project.org/
In file included from D:/HMG/3.4.3/harbour/include/hbvmpub.h:50:0,
from C:/Users/AGL/AppData/Local/Temp/hbmk_lzswxq.dir/MnuVert.c:7:
D:/HMG/3.4.3/harbour/include/hbdefs.h:1613:20: error: expected identifier or '(' before 'void'
#define HARBOUR void
^
D:/HMG/3.4.3/harbour/include/hbdefs.h:1600:59: note: in expansion of macro 'HARBOUR'
#define HB_FUNC( funcname ) HB_EXTERN_C_ HB_EXPORT HARBOUR HB_FUN_##funcname ( void )
^
MnuVert.PRG:3179:3: note: in expansion of macro 'HB_FUNC'
D:/HMG/3.4.3/harbour/include/hbdefs.h:1613:20: error: expected identifier or '(' before 'void'
#define HARBOUR void
^
D:/HMG/3.4.3/harbour/include/hbdefs.h:1600:59: note: in expansion of macro 'HARBOUR'
#define HB_FUNC( funcname ) HB_EXTERN_C_ HB_EXPORT HARBOUR HB_FUN_##funcname ( void )
^
MnuVert.PRG:3252:1: note: in expansion of macro 'HB_FUNC'
hbmk2[MnuVert]: Error: Ejecutando compilador C/C++. 1
gcc.exe -c -O3 -march=i586 -mtune=pentiumpro -fomit-frame-pointer -W -Wall -pipe -ID:/HMG/3.4.3/harbour/include -ID:/RespaldosPCs/DiscoC/Trabajo/MnuVertWPanel -ID:/HMG/3.4.3/include C:/Users/AGL/AppData/Local/Temp/hbmk_lzswxq.dir/MnuVert.c C:/Users/AGL/AppData/Local/Temp/hbmk_m3ws31.c
<<< Process finished. (Exit code 0)
================ READY ================
Andrés González López
Desde Guadalajara, Jalisco. México.

User avatar
srvet_claudio
Posts: 2055
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Has thanked: 40 times
Been thanked: 160 times
Contact:

Post by srvet_claudio »

andyglezl wrote:Hola
Haciendo una prueba de compilacion rapida, esto es lo me sale a mi...
(Programa trabajando en version 3.4)

MyBuild.bat
Process started >>>

D:\RespaldosPCs\DiscoC\Trabajo\MnuVertWPanel>ECHO OFF
Harbour 3.2.0dev (r1601151502)
Copyright (c) 1999-2015, http://harbour-project.org/
In file included from D:/HMG/3.4.3/harbour/include/hbvmpub.h:50:0,
from C:/Users/AGL/AppData/Local/Temp/hbmk_lzswxq.dir/MnuVert.c:7:
D:/HMG/3.4.3/harbour/include/hbdefs.h:1613:20: error: expected identifier or '(' before 'void'
#define HARBOUR void
^
D:/HMG/3.4.3/harbour/include/hbdefs.h:1600:59: note: in expansion of macro 'HARBOUR'
#define HB_FUNC( funcname ) HB_EXTERN_C_ HB_EXPORT HARBOUR HB_FUN_##funcname ( void )
^
MnuVert.PRG:3179:3: note: in expansion of macro 'HB_FUNC'
D:/HMG/3.4.3/harbour/include/hbdefs.h:1613:20: error: expected identifier or '(' before 'void'
#define HARBOUR void
^
D:/HMG/3.4.3/harbour/include/hbdefs.h:1600:59: note: in expansion of macro 'HARBOUR'
#define HB_FUNC( funcname ) HB_EXTERN_C_ HB_EXPORT HARBOUR HB_FUN_##funcname ( void )
^
MnuVert.PRG:3252:1: note: in expansion of macro 'HB_FUNC'
hbmk2[MnuVert]: Error: Ejecutando compilador C/C++. 1
gcc.exe -c -O3 -march=i586 -mtune=pentiumpro -fomit-frame-pointer -W -Wall -pipe -ID:/HMG/3.4.3/harbour/include -ID:/RespaldosPCs/DiscoC/Trabajo/MnuVertWPanel -ID:/HMG/3.4.3/include C:/Users/AGL/AppData/Local/Temp/hbmk_lzswxq.dir/MnuVert.c C:/Users/AGL/AppData/Local/Temp/hbmk_m3ws31.c
<<< Process finished. (Exit code 0)
================ READY ================
Estas utilizando compilacion incremental?
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com

User avatar
mol
Posts: 3359
Joined: Thu Sep 11, 2008 5:31 am
Location: Myszków, Poland
Has thanked: 256 times
Been thanked: 163 times
Contact:

Post by mol »

srvet_claudio wrote: Marek,
Please show me your code in the line:

ZDEFINIUJMENUGLOWNE(2118)

and the function:

ODBIORTOWAROWZKASY
As you wish, but there is nothing special in these functions:

Code: Select all

function OdbiorTowarowZKasy

	static cNaglowek1
	static cNaglowek2
	static cNaglowek3
	static cNaglowek4
	static cNaglowek5
	static cNaglowek6
	static cNaglowek7
	static cNIP
	
	default	cNaglowek1 to '' ,;
			cNaglowek2 to '' ,;
			cNaglowek3 to '' ,;
			cNaglowek4 to '' ,;
			cNaglowek5 to '' ,;
			cNaglowek6 to '' ,;
			cNaglowek7 to '' ,;
			cNIP to ''
	
	private cNaglowek11
	private cNaglowek21
	private cNaglowek31
	private cNaglowek41
	private cNaglowek51
	private cNaglowek61
	private cNaglowek71
	private cNIP1
	private lZamykamOknoKomunikacji := .f.
	private aFieldsKasy, aHeadersKasy, aJustKasy, aControlsKasy, aWidthsKasy, aWhenKasy
	private aFieldsTowary, aHeadersTowary, aJustTowary, aControlsTowary, aWidthsTowary, aWhenTowary, aOnHeadClick
	private TabPlikow, TabOb := {}
	private lTrwaKomunikacja := .f., lWcisnietoESC := .f.
	private nPrecyzja := 3
	private nDzial	:= 1
	private lCenaOtwarta := .t.
	private lCenaZaprogramowana := .f.
	private lPowtarzanie := .f.
	private lOpakowanie := .f.
	private lSprzedazPojedyncza := .f.
	private cStawkaVAT := "A"
	private aDlugoscNaglowkaTekst := {"20 - Mała","48 - Mała E, Nano E","18 - Bravo, Frigo","44 - PS 3000+"}
	private aDlugoscNaglowka := {20, 48,18,44}
	private nWyszukajEvent := 0
	PRIVATE nOdszukanyIndeks := 0
	
	private lAktywnyZakresKodow := .f.
	private cFiltrZakresuKodow := ""
	
	aFieldsTowary := { 'kod_plu','nazwa_plu','vat_plu','precyzja','flagi', 'dzial', 'cena', 'pominiety','kodbledu','OpisBledu'}
	aHeadersTowary:= { 'KOD PLU','Nazwa','St.VAT','Precyzja','Flagi','Dz', 'Cena Sp.','Pominięty','Kod Bł.','Opis Błędu'}
	aJustTowary := {0, 0, 0, 0, 0, 0, 1,2,2,0}
	aWidthsTowary := {100, 130,50,40,50,30,50,70,80,200}
	aKolorTowary	:= array(len(aFieldsTowary))
	aControlsTowary:= { ;
				{ 'TEXTBOX' , 'CHARACTER',18} ,;
				{ 'TEXTBOX' , 'CHARACTER',40},;
				{ "COMBOBOX" ,{"A","B","C","D","E","F","G"},{"A","B","C","D","E","F","G"} },;
				{ 'TEXTBOX' , 'NUMERIC','9'},;
				{ 'TEXTBOX' , 'CHARACTER',5},;
				{ 'TEXTBOX' , 'NUMERIC','99'},;
				{ 'TEXTBOX' , 'NUMERIC','999999.99'},;
				{ 'CHECKBOX' , 'Tak' , 'Nie' } ,;
				{ 'TEXTBOX', 'NUMERIC', '9999'} ,;
				{ 'TEXTBOX' , 'CHARACTER'} ;
				}
	aOnHeadClick := array(len(aFieldsTowary))
	aFill(aOnHeadClick,NIL)
	aOnHeadClick[1] := {|| plu->(DBSetOrder(1)), DoMethod("OknoOdbiorTowarow","B_Towary","Refresh"),DoMethod("OknoOdbiorTowarow","B_Towary","Save")}
	aOnHeadClick[2] := {|| plu->(DBSetOrder(2)), DoMethod("OknoOdbiorTowarow","B_Towary","Refresh"),DoMethod("OknoOdbiorTowarow","B_Towary","Save")}
	aOnHeadClick[3] := {|| plu->(DBSetOrder(3)), DoMethod("OknoOdbiorTowarow","B_Towary","Refresh"),DoMethod("OknoOdbiorTowarow","B_Towary","Save")}
	
	aFill(aKolorTowary, {|| {0,150,0} } )
	aDisplayItemsTowary :=  array(len(aFieldsTowary))
	aFill(aDisplayItemsTowary, nil)
	aDisplayItemsTowary[8] := {{"TAK",.t.}, {"NIE",.f.}}
	aWhenTowary :=  array(len(aFieldsTowary))
	aFill(aWhenTowary, {   || .t.} )
	
	TabPlikow := {	{"pomoce\kasy",, 1, .f.}, {"ecr\defplu","plu",3,.t.} }
	if !UstawBazy(TabPlikow,0,TabOb)
		return
	endif
	
	if kasy->(eof())
		// brak kas do zaprogramowania
		MsgBox("Zdefiniuj kasy w systemie!!!")
		RejestrKasFiskalnych()
	endif
	
	select("plu")
	//zap
	
	aFieldsKasy	:= { "Zaznaczony","NrKasy", "NazwaKasy", "WgGrup", "Com_PORT", "Com_BAUD"}
	aHeadersKasy	:= { "Wybór","Nr" , "Nazwa kasy", "Wg grup tow.", "Nr portu", "Prędkość" } 
	aJustKasy	:= {0,1,0,2,1,1}
	aControlsKasy	:= {{ "CHECKBOX" , "Tak" , "Nie" } ,;
				{  "TEXTBOX" , "CHARACTER"} ,;
				{ "TEXTBOX" , "CHARACTER"},;
				{ "CHECKBOX" , "Tak" , "Nie" } ,;
				{ "TEXTBOX","NUMERIC", "99"} ,;
				{ "TEXTBOX","NUMERIC", "999 999"} }
				
	aWidthsKasy	:= { 50,30, 180, 80, 70, 80}
	aFieldsGrupy := { "NrKasy", "Grupa", "Grupy->Nazwa" }
	aHeadersGrupy := { "Nr Kasy", "Grupa", "Nazwa grupy" }
	aDynDisplayKasy := {	{ || if(This.CellValue, "TAK","NIE")},;
							{ || this.CellValue},;
							{ || this.CellValue},;
							{ || if(This.CellValue, "TAK","NIE")},;
							{ || str(this.CellValue)},;
							{ || str(this.CellValue)} ;
						}
	aWhenKasy := { { || .t.}, {|| .f.}, {||.f.}, {||.f.} , {||.f.} , {||.f.} }

	select("kasy")
	do while !eof()
		Reclock(0)
		replace;
			zaznaczony with .t.
		unlock
		skip
	enddo
	
	load window OknoOdbiorTowarow
	center window OknoOdbiorTowarow
	
	
	if !plu->(eof())
		OknoOdbiorTowarow.Zakladki1.Value := 2
	endif
	
	if GetDeskTopHeight() < OknoOdbiorTowarow.Height
		AutoAdjust("OknoOdbiorTowarow")
	endif
	kasy->(DBGoTop())
	OknoOdbiorTowarow.G_Kasy.Value := kasy->(RecNo())
	OknoOdbiorTowarow.T_ComPort.Value := kasy->COM_Port
	OknoOdbiorTowarow.T_PredkoscTransmisji.Value := kasy->COM_Baud
	OknoOdbiorTowarow.CH_PLURozszerzony.Value := kasy->PLU_Rozsz
	OknoOdbiorTowarow.T_DlugoscNazwy.Value := kasy->MaxDlNazwy
	
	OknoOdbiorTowarow.T_Naglowek1.Value := cNaglowek1 
	OknoOdbiorTowarow.T_Naglowek2.Value := cNaglowek2 
	OknoOdbiorTowarow.T_Naglowek3.Value := cNaglowek3 
	OknoOdbiorTowarow.T_Naglowek4.Value := cNaglowek4 
	OknoOdbiorTowarow.T_Naglowek5.Value := cNaglowek5 
	OknoOdbiorTowarow.T_Naglowek6.Value := cNaglowek6 
	OknoOdbiorTowarow.T_Naglowek7.Value := cNaglowek7
	OknoOdbiorTowarow.T_NIP.Value := cNIP
	
	CREATE EVENT PROCNAME WyszukiwanieWTabeli('OknoOdbiorTowarow', 'B_Towary','T_Wyszukaj', 'OknoOdbiorTowarow_WyszukajTowar()') HWND OknoOdbiorTowarow.B_Towary.HANDLE MSG WM_CHAR STOREINDEX nWyszukajEvent

	ON KEY F12 OF OknoOdbiorTowarow ACTION { || if(OknoOdbiorTowarow.Zakladki1.Value = 1, OdbierzDefinicjePLU(), NIL) }
	ON KEY F10 OF OknoOdbiorTowarow ACTION ProgramujKasyNiezalezne()
	ON KEY F2 OF OknoOdbiorTowarow ACTION ZamknijOknoKomunikacji("OknoOdbiorTowarow")
	ON KEY F4 of OknoOdbiorTowarow ACTION  { || if(OknoOdbiorTowarow.Zakladki1.Value = 2, OknoOdbiorTowarow.T_Wyszukaj.SetFocus,NIL) }
	ON KEY F7 of OknoOdbiorTowarow ACTION  { || if(OknoOdbiorTowarow.Zakladki1.Value = 2,OknoOdbiorTowarow_SzukajNastepnegoTowaru(),NIL) }
	ON KEY F5 OF OknoOdbiorTowarow ACTION OknoOdbiorTowarowPoprawTowar()
	ON KEY F6 OF OknoOdbiorTowarow ACTION OknoOdbiorTowarowDodajNoweTowary()
	//ON KEY ESCAPE OF OknoOdbiorTowarow ACTION ZamknijOknoKomunikacji("OknoOdbiorTowarow")

	activate window OknoOdbiorTowarow
	if nWyszukajEvent > 0
		EventRemove( nWyszukajEvent)
	endif
	
	ZamknijBazy(TabOb)
	cNaglowek1 := cNaglowek11
	cNaglowek2 := cNaglowek21
	cNaglowek3 := cNaglowek31
	cNaglowek4 := cNaglowek41
	cNaglowek5 := cNaglowek51
	cNaglowek6 := cNaglowek61
	cNaglowek7 := cNaglowek71
	cNIP := cNIP1
 return

Code: Select all


function ZdefiniujMenuGlowne
	param lProjektowanie
	local r,c, cNazwaPrzycisku
	local nLiczbaPlikow, aPliki := {}
	private i
	
	#ifdef HMG312
		if IsMainMenuDefined("OknoGlowne")
			RELEASE MAIN MENU OF OknoGlowne
		//else
			//debugmsg("brak main menu")
		endif
	#endif
	if lProjektowanie

		DEFINE MAIN MENU OF OknoGlowne
			DEFINE POPUP "Projektant przycisków"
				MENUITEM "Zapisz definicję przycisków" ACTION ZapiszDefinicjePrzyciskow()
				MENUITEM "Porzuć projektowanie" ACTION PorzucDefiniowaniePrzyciskow()
				MENUITEM "Przywróć domyślne definicje przycisków" ACTION DomyslnaDefinicjaPrzyciskowOknaGlownego()
			END POPUP
		END MENU
		for r := 1 to nMaxWiersz
			for c := 1 to nMaxKolumna
				cNazwaPrzycisku := "Przycisk_"+alltrim(str(r))+"_"+alltrim(str(c))
				SetProperty("OknoGlowne", ;
					 cNazwaPrzycisku,;
					 "VISIBLE",.T.)
				SetProperty("OknoGlowne", ;
					 cNazwaPrzycisku,;
					 "FONTSTRIKEOUT", !aDefinicjaPrzyciskow[r,c,3])
				if empty(GetProperty("OknoGlowne", ;
					 cNazwaPrzycisku,;
					 "CAPTION"))
					SetProperty("OknoGlowne", ;
						cNazwaPrzycisku,;
						"CAPTION", "NIEZDEFINIOWANY")
					SetProperty("OknoGlowne", ;
						cNazwaPrzycisku,;
						"FONTSTRIKEOUT", .T.)
				endif

			next c
		next r
		//OknoGlowne.Refresh
		lProjektowaniePrzyciskowOknaGlownego := .t.
		//MsgInfo("Po wybraniu przycisku, możesz przedefiniować jego funkcję...")
		// tutaj przygotujemy tabelę z ikonami

		aIkony := { 'PUSTY','FV' ,'PA' , 'WZ' , 'FZT' , 'FZE' ,'PZT', 'KLIENT','TOWAR','TRYBKO','REJESTR','RAPORTKASOWY40','POWEROFF'}
		aItems := ARRAY(13)
		afill(aItems, {0,''})
		aItems[1] := { 1, "Brak ikony"}
		aItems[2] := { 2, "Faktura VAT"}
		aItems[3] := { 3, "Paragon"}
		aItems[4] := { 4, "Dokument WZ"}
		aItems[5] := { 5, "FAKTURA ZAKUPU TOWARÓW"}
		aItems[6] := { 6, "FAKTURA ZAKUPÓW EKSPL."}
		aItems[7] := { 7, "Przyjęcie Zewn. Towarów"}
		aItems[8] := { 8, "KLIENCI"}
		aItems[9] := { 9, "TOWAR"}
		aItems[10] := { 10, "USTAWIENIA"}
		aItems[11] := { 11, "REJESTR"}
		aItems[12] := { 12, "RAPORT KASOWY"}
		aItems[13] := { 13, "ZAKOŃCZ"}
		nLiczbaPlikow := aDir(sciezka+"ikony\*.bmp")
		aPliki := array(nLiczbaPlikow)
		aDir(sciezka+"ikony\*.bmp", aPliki)
		i := len(aIkony)
		aEval(aPliki, { |cPlik| aadd(aIkony, upper(sciezka+"ikony\"+cPlik)),;
						aadd(aItems,{++i, upper(cPlik)})} )
	else
		lProjektowaniePrzyciskowOknaGlownego := .F.
		// ###MENUGLOWNE
		DEFINE MAIN MENU OF OknoGlowne
			DEFINE POPUP "Sprzedaż" NAME Sprzedaz
				MENUITEM "Faktura VAT" ACTION FakturaVAT(1,0,.f.,.f.) NAME FakturaVAT
				MENUITEM "Paragon" ACTION fakturaVAT(2,0,.f.,.f.) NAME Paragon
				MENUITEM "Sprzedaż komb. towarowych" ACTION ZdejmijKombinacjeTowaru(.t.) NAME ZdejmijKombinacjeTowaru
				MENUITEM "Faktura VAT do paragonu fiskalnego" ACTION fakturaVAT(1,0,.f.,.t.) NAME Faktura_VAT_PF
				MENUITEM "Wydanie Zewnętrzne" ACTION FakturaVAT(3,0,.f.,.f.) NAME WZ
				MENUITEM "Faktura VAT Export" ACTION fakturaVAT(1,0,.t.,.F.) NAME Faktura_VAT_Export
				//MENUITEM "Faktura VAT Odwrócone Obciążenie" ACTION FakturaVAT(1,0,.f.,.f.,.f.,,,,,,,,,,,,.T.) NAME Faktura_VAT_Odwrocone_Obciazenie
				SEPARATOR
				MENUITEM "Faktura VAT Zaliczkowa" ACTION fakturaVAT(1,0,.f.,.f.,,,,,,,.f.,.f.,.t.,.f.,) NAME Faktura_VAT_Zaliczka
				MENUITEM "Rozlicz faktury zaliczkowe" ACTION RozliczFakturyZaliczkowe()
				SEPARATOR
				MENUITEM "Faktura VAT Pro Forma" ACTION fakturaVAT(1,0,.f.,.f.,,,,,,,.t.) NAME Faktura_VAT_ProForma
				MENUITEM "Rejestr faktur Pro Forma" ACTION RejestrFaktur(1,.f.,.t.) NAME RejestrFakturProForma
				SEPARATOR
				MENUITEM "Rejestr faktur" ACTION RejestrFaktur(1) NAME RejestrFaktur
				MENUITEM "Rejestr paragonów" ACTION RejestrFaktur(2) NAME Rejestr_paragonow
				
				MENUITEM "Rejestr WZ" ACTION RejestrFaktur(3) NAME Rejestr_WZ
				MENUITEM "Rejestr zwrotów z WZT" ACTION RejestrFaktur(ZwrotWZT,.f.,.f.,.t.) NAME RejestrZwrotowWZT
				
				MENUITEM "Rejestr faktur korygujących" ACTION RejestrFaktur(1,.t.) NAME RejestrFakturKorygujacychSP
				MENUITEM "Rejestr zwrotów z paragonów" ACTION RejestrFaktur(7,.f.,.f.,.t.) NAME RejestrZwrotowParagonow
				MENUITEM "Rejestr koszyków paragonowych" ACTION RejestrKoszykowParagonowych() NAME RejestrKoszykowParagonowych
				SEPARATOR
				MENUITEM "WZ na fakturę" ACTION WZnaFakture() NAME WZnaFakture
	
				MENUITEM "Rozliczenie kontrahenta" ACTION RozliczenieKontrahenta() NAME RozliczenieKontrahenta
				
				if lObslugaAkcyzy
					SEPARATOR
					MENUITEM "Ręczny Dowód dostawy wyr.węglowych" ACTION FakturaVAT(6,0,.f.,.f.) NAME Reczny_DWWW
					MENUITEM "Rejestr dowodów dostawy wyrobów węglowych" ACTION RejestrDDWW() NAME Rejestr_DWWW
				endif
				
				SEPARATOR
				
				MENUITEM "Kursy walut" ACTION KursyWalut() NAME KursyWalut
				MENUITEM "Definicje specyfikacji sprzedaży" ACTION DefinicjeSpecyfikacjiSprzedazy() NAME DefinicjeSpecyfikacjiSprzedazy
				MENUITEM "Definicje wzorców dokumentów sprzedaży" ACTION WzorceFakturSprzedazy() NAME DefinicjeSpecyfikacjiSprzedazy
				
				SEPARATOR
				
				MENUITEM "Obsługa abonamentów" ACTION ObslugaAbonamentow() NAME ObslugaAbonamentow
				SEPARATOR
				MENUITEM "Obsługa Allegro" ACTION PobierzTransakcjeAllegro() NAME Allegro
				
			END POPUP
			DEFINE POPUP "Zakupy" NAME Zakupy
				MENUITEM "Faktura zakupu" ACTION ZakupTowarow("FZT",.F.,.F.) NAME ZakupTowarow
				MENUITEM "Przyjęcie zewnętrzne" ACTION ZakupTowarow("PZT",.F.,.F.)
				MENUITEM "Pozostałe zakupy ekspl." ACTION ZakupMatEksploat("FZE",.F.,.F.)
				MENUITEM "Zamówienie" ACTION ZamowienieTowarow("ZT",.F.,.F.) NAME ZamowienieTowarow
				separator
				MENUITEM "Rejestr faktur zakupu" ACTION RejestrFZT() NAME RejestrFZT
				MENUITEM "Rejestr faktur korygujących zakupu" ACTION RejestrFKZT() NAME RejestrFKZT
				separator
				MENUITEM "Rejestr zamówień" ACTION RejestrZamowien() NAME RejestrZamowien
				separator
				DEFINE POPUP "Przyjęcia Odpadów"
					MENUITEM "Przyjęcie odpadów metali" ACTION PZZlom("PZO",.f.) NAME PZZlom
					MENUITEM "Rejestr przyjęć odpadów" ACTION RejestrPZZlom()
				END POPUP

				MENUITEM "Import faktury zakupu z systemu TRADIS" ACTION Import_FZT_Tradis()

			END POPUP
			DEFINE POPUP "Magazyn" NAME Magazyn
				MENUITEM "Tabela Towarów" ACTION TabelaTowarow(.f.) NAME TabelaTowarow
				
				MENUITEM "Uproszczona Tabela Towarów" ACTION SzybkaTabelaTowarow(.f.) NAME SzybkaTabelaTowarow
				MENUITEM "Uproszczona Tabela Towarów wg grup" ACTION SzybkaTabelaTowarow(.f.,,,,,.t.) NAME SzybkaTabelaTowarow
				
				#ifdef URUCHOMIENIE
				MENUITEM "Uproszczona-Wirtualna Tabela Towarów" ACTION WirtualnaTabelaTowarow(.f., GetProperty("OknoGlowne","C_AktywnyMagazyn","Value")-1, -1, .t.,,.t. )
	

				#ENDIF
				
				separator
				
				MENUITEM "Grupy towarowe" ACTION GrupyTowarowe() NAME GrupyTowarowe
				
				DEFINE POPUP "Dokumenty magazynowe"
					MENUITEM "Dokument &RW" ACTION DokumentRW("RW", 0) NAME DokumentRW
					MENUITEM "Rejestr RW" ACTION RejestrRWPW("RW") NAME RejestrRW
					MENUITEM "Protokół &Strat RWS" ACTION DokumentRW("RWS", 0) NAME DokumentRWS
					MENUITEM "Rejestr RWS" ACTION RejestrRWPW("RWS") NAME RejestrRWS
					MENUITEM "Dokument &PW" ACTION DokumentRW("PW",0) NAME DokumentPW
					MENUITEM "Rejestr PW" ACTION RejestrRWPW("PW") NAME RejestrPW
					MENUITEM "Dokument PM" ACTION DokumentRW("PM",0) NAME DokumentPM
					MENUITEM "Rejestr PM" ACTION RejestrRWPW("PM") NAME RejestrPM
				END POPUP
				
				MENUITEM "Zwrot do Dostawcy" ACTION DokumentRW("ZD",0) NAME DokumentZD
				MENUITEM "Rejestr Zwrotów" ACTION RejestrRWPW("ZD") NAME RejestrZD
				MENUITEM "Raport stanu magazynu towarów" ACTION WydrukRaportu(0) NAME WydrukRaportu
				DEFINE POPUP "Inwentaryzacja"
					MENUITEM "Formularz Spisu z Natury" ACTION WydrukRaportu(2) NAME RaportTowarow
					MENUITEM "Wprowadzanie intentaryzacji" ACTION  TabelaRemanent(.f.) NAME TabelaRemanent
					MENUITEM "Wykonanie wprowadzonej inwentaryzacji" ACTION ZatwierdzRemanent() NAME ZatwierdzRemanent
					MENUITEM "Wydruk spisu z natury" ACTION WydrukRaportu(22) NAME WydrukRemanentu
					SEPARATOR
					MENUITEM "Usuń wcześniej przygotowane dane remanentowe" ACTION UsunDaneRemanentowe() NAME UsunDaneRemanentowe					
					SEPARATOR
					MENUITEM "Utworzenie Bilansu Otwarcia Stanów Towarów" ACTION UtworzBilansOtwarciaStanuMagazynowego() NAME UtworzBilansOtwarciaStanuMagazynowego					
					MENUITEM "Przegląd Bilansów Otwarcia Stanów Towarów" ACTION PrzegladBilansowOtwarcia() NAME PrzegladBilansowOtwarcia
				END POPUP
				SEPARATOR
				MENUITEM "Kontrola spójności szczeg. stanu magazynu" ACTION KontrolaSzczegolowegoStanuMagazynu(.f.) NAME KontrolaspojnosciSzczegStanuMagazynu
				SEPARATOR
				MENUITEM "Definicje statusów stanów magazynowych" Action Ustawienia_DefinicjeStatusowStanowMagazynowych()
				
				SEPARATOR
				MENUITEM "Promocje" ACTION ZdefiniowanePromocje()
				SEPARATOR
				MENUITEM  "Import Towarów z programu PCMarket" Action Import_Towarow_PCMarket()
				SEPARATOR
				MENUITEM  "Obsługa Kolektora Danych" Action ObslugaKolektora()
				SEPARATOR
				MENUITEM "Test komunikacji z wagą" ACTION Waga_test()
			END POPUP
			
			DEFINE POPUP "Kontrahenci"
				MENUITEM "Tabela Kontrahentów" ACTION TabelaKlientow(.f.) NAME TabelaKlientow
			END POPUP
			DEFINE POPUP "Kasa i Rejestry"
				MENUITEM "Rejestr płatności" ACTION RejestrPlatnosci()
				MENUITEM "Wydruk rejestru płatności" ACTION WydrukRejestruPlatnosci(.t.)
				separator
				MENUITEM "Wypłata z kasy" ACTION ZarejestrujOperacjeKasowa(.f.)
				MENUITEM "Wpłata do kasy" ACTION ZarejestrujOperacjeKasowa(.t.)
			END POPUP
			
			DEFINE POPUP "Rozrachunki"
				MENUITEM "Rozliczenie kontrahenta" ACTION RozliczenieKontrahenta() NAME RozliczenieKontrahenta
				MENUITEM "Rejestr not odsetkowych" ACTION RejestrNotOdsetkowych(1)
				MENUITEM "Rejestr wezwań do zapłaty" ACTION RejestrNotOdsetkowych(2)
				MENUITEM "Wystaw noty odsetkowe/wezwania do zapłaty" ACTION ObslugaNotOdsetkowych()
				MENUITEM "Tabela wysokości odsetek" ACTION TabelaOdsetekKarnych()
				MENUITEM "Kalkulator odsetek" ACTION KalkulatorOdsetek("przykładowe obliczenia", date(), 0)
			END POPUP
			
			DEFINE POPUP "Raporty i Wydruki" NAME RaportyWydruki
				MENUITEM "Wydruk oczekujących etykiet" ACTION WydrukOczekujacychEtykiet(.t.) NAME WydrukOczekujacychEtykiet
				MENUITEM "Przegląd oczekujących etykiet" ACTION PrzegladEtykietDoDruku() NAME PrzegladEtykietDoDruku

				separator

				MENUITEM "Podliczenie dokumentów sprzedaży" ACTION DrukujRejestrVATSprzedazy(4)
				
				separator
				MENUITEM "Rejestr Faktur VAT Sprzedaży" ACTION DrukujRejestrVATSprzedazy(1) NAME DrukujRejestrVATSprzedazy
				MENUITEM "Rejestr sprzedaży z wyliczoną marżą" ACTION DrukujRejestrVATSprzedazy(3)
				MENUITEM "Rejestr Faktur Korygujących VAT Sprzedaży" ACTION DrukujRejestrVATSprzedazy(2) NAME DrukujRejestrKorektVATSprzedazy
				MENUITEM "Rejestr Zwrotów z Paragonów" ACTION DrukujRejestrVATSprzedazy(5) NAME DrukujRejestrKorektVATSprzedazy

				separator

				MENUITEM "Rejestr Zakupów" ACTION RaportZakupow(1) NAME RaportZakupow
				MENUITEM "Rejestr Korekt Zakupów" ACTION RaportZakupow(2) NAME RaportZakupowKor

				separator

				MENUITEM "Formularz Spisu z Natury" ACTION WydrukRaportu(2) NAME RaportTowarow
				MENUITEM "Raport stanu magazynu towarów" ACTION WydrukRaportu(0)
				MENUITEM "Raport stanu magazynu towarów na wskazany dzień" ACTION StanMagazynuNaWskazanyDzien()
				MENUITEM "Podgląd stanu magazynu" ACTION SumaMagazynu(.f.) NAME SumaMagazynu
				MENUITEM "Stan magazynów towarów - magazyny i statusy magazynowe" ACTION RaportMagazynStatusStan()
				MENUITEM "Wydruk rejestru dokumentów magazynowych" ACTION RaportDokumentowMagazynowych()

				separator

				MENUITEM "Raport obrotu towarów" ACTION RaportObrotuTowarow(0) NAME RaportObrotuTowarow
				MENUITEM "Raport obrotu towarów - kasy fisk." ACTION RaportObrotuTowarow(55) NAME RaportObrotuTowarow
				MENUITEM "Kontrola obrotu towarów" ACTION KontrolaObrotuTowarow() NAME RaportKontrolaObrotuTowarow
				separator
				MENUITEM "Bilans VAT" ACTION BilansVAT() NAME BilansVAT
				separator
				MENUITEM "Komunikacja Insert GT" ACTION EksportEDI() NAME EksportEDI
				MENUITEM "Komunikacja KP CDN" ACTION EksportCDN() NAME EksportCDN
				MENUITEM "Komunikacja CDN Optima" ACTION EksportEDIOptima() NAME EksportEDIOptima
				MENUITEM "Komunikacja Lewiatan" ACTION EksportLewiatan()
				separator
				MENUITEM "Raport Akcyzy na Wyroby Węglowe" ACTION RaportAkcyzyWW() NAME RaportAkcyzyWW
			END POPUP
			
			
			DEFINE POPUP "Ustawienia"
				MENUITEM "Ustawienia systemu" ACTION UstawieniaSystemu() NAME UstawieniaSystemu
				MENUITEM "Pracownicy" ACTION RejestrPersonelu(.f.) NAME Personel
				
				SEPARATOR
				MENUITEM "Definicje statusów stanów magazynowych" Action Ustawienia_DefinicjeStatusowStanowMagazynowych()
				SEPARATOR
				
				MENUITEM "Awaryjne indeksowanie" ACTION AwaryjneIndeksowanie() NAME AwaryjneIndeksowanie
				MENUITEM "Awaryjne usunięcie plików roboczych" ACTION AwaryjneUsunieciePlikowRoboczych(.f.) NAME AwaryjneUsunieciePlikowRoboczych
				
				SEPARATOR
				MENUITEM "Definicje Etykiet" ACTION ZarzadzanieEtykietami() NAME DefinicjaEtykiety
				
				SEPARATOR
				
				MENUITEM "Definicje przycisków - skrótów" ACTION ZdefiniujMenuGlowne(.t.)
				
				SEPARATOR
				
				MENUITEM "Definicje wzorców wydruków" ACTION WzorceWydruku()
				
				SEPARATOR
				
				MENUITEM "Definicje specyfikacji sprzedaży" ACTION DefinicjeSpecyfikacjiSprzedazy() NAME DefinicjeSpecyfikacjiSprzedazy
				
				SEPARATOR
				
				MENUITEM "Definicje kalendarza" ACTION Kalendarz() NAME DefinicjeKalendarza
				MENUITEM "Przypomnienia kalendarza" ACTION KalendarzPrzypomnienia() NAME KalendarzPrzypomnienia
				MENUITEM "Definicje abonamentów" ACTION DefinicjeAbonamentow() NAME DefinicjeAbonamentow
				
				SEPARATOR
				MenuItem "Akcyza WW - podstawy zwolnienia" Action AkcyzaWW_PodstawyZwolnienia()
			END POPUP
			DEFINE POPUP "Fiskalne"
				MENUITEM "Odbiór sprzedaży z kasy fiskalnej" ACTION OdbiorSprzedazy() NAME OdbiorSprzedazyZKas
				MENUITEM "Programowanie kasy fiskalnej" ACTION ProgramowanieKasy() NAME ProgramowanieKasy
				MENUITEM "Kartoteka kas fiskalnych" ACTION RejestrKasFiskalnych() NAME RejestrKasFiskalnych
				MENUITEM "Funkcje obsługi DF" ACTION ObslugaDrukarkiFiskalnej() NAME ObslugaDrukarkiFiskalnej
				MENUITEM "Odbiór definicji PLU z kasy" ACTION OdbiorTowarowZKasy() NAME OdbiorTowarowZKasy
			END POPUP

			DEFINE POPUP "Serwis" NAME Serwis
				MENUITEM "Rejestr urządzeń serwisowanych" ACTION	Serwis_RejestrUrzadzen()
				MENUITEM "Rejestr czynności serwisowych" ACTION		Serwis_RejestrCzynnosciSerwisowych()
				SEPARATOR
				MENUITEM "Czynności serwisowe" ACTION Serwis_SlownikCzynnosciSerwisowych(.f.)
				MENUITEM "Typy urządzeń" ACTION Serwis_TypyUrzadzen(.f.)
				MENUITEM "Producenci urządzeń" ACTION Serwis_ProducenciUrzadzen(.f.)
			END POPUP

			DEFINE POPUP "Akcyza WW" NAME AkcyzaWW
				MENUITEM "Ewidencja sprzedaży WW o kodzie CN2701 - węgiel kamienny" ACTION EwidencjaSprzedazyDDWW('2701')
				MENUITEM "Ewidencja sprzedaży WW o kodzie CN2702 - węgiel brunatny" ACTION EwidencjaSprzedazyDDWW('2702')
				MENUITEM "Ewidencja sprzedaży WW o kodzie CN2704 - koks" ACTION EwidencjaSprzedazyDDWW('2704')
				separator
				MENUITEM "Archiwizacja ewidencji sprzedaży WW" ACTION ArchiwizacjaEwidencjiCN()
				separator
				MENUITEM "Roczne zamknięcie ewidencji sprzedaży WW" ACTION RoczneZamkniecieEwidencjiCN()
				separator
				MENUITEM "Raport Akcyzy na Wyroby Węglowe" ACTION RaportAkcyzyWW() NAME RaportAkcyzyWW
				separator
				MenuItem "Akcyza WW - podstawy zwolnienia" Action AkcyzaWW_PodstawyZwolnienia()
				separator
				MENUITEM "Odbudowa ewidencji CN na Wyroby Węglowe" ACTION OdbudowaEwidencjiCN()
				
			END POPUP	
			
		if aDostepneModuly[MODUL_POZYCZKI] 
			DEFINE POPUP "Pożyczki" NAME pomoc
				MENUITEM "Rejestr Pożyczek" ACTION RejestrPozyczek()
			END POPUP	
		endif

			DEFINE POPUP "Pomoc" NAME pomoc
				MENUITEM "O programie" ACTION InfoProgram() NAME oprogramie
				
				SEPARATOR
				
				MENUITEM "Sprawdź uprawnienia do modułów programu" ACTION SprawdzUprawnieniaDoModulow()
				
				SEPARATOR
				
				MENUITEM "Archiwizacja danych" ACTION ArchiwizacjaDanych() NAME ArchiwizacjaDanych
				MENUITEM "Sprawdź dostępność nowej wersji" ACTION NowaWersja() NAME NowaWersja
				SEPARATOR
				MENUITEM "Instrukcja obsługi akcyzy na wyroby węglowe" ACTION ObslugaInstrukcji(1) NAME ObslugaInstrukcji1
				MENUITEM "Instrukcja obsługi inwentaryzacji" ACTION ObslugaInstrukcji(2) NAME ObslugaInstrukcji2
				MENUITEM "Instrukcja obsługi wzorców wydruku faktur" ACTION ObslugaInstrukcji(3) NAME ObslugaInstrukcji3
				MENUITEM "Instrukcja obsługi wezwań do zapłaty oraz not odsetkowych" ACTION ObslugaInstrukcji(4) NAME ObslugaInstrukcji4
				SEPARATOR
				MENUITEM "Sprawdź ustawienia rejestru Windows do pracy w sieci" ACTION SprawdzUstawieniaSiecioweWindows()
				SEPARATOR
				MENUITEM "Wyślij wiadomość do autora" ACTION WiadomoscDoAutora()
				MENUITEM "Sprawdź wiadomości do autora" ACTION SprawdzWiadomosciTweet(.f.)
			END POPUP


			//#define URUCHOMIENIE
			#ifdef URUCHOMIENIE
			//###TEST
					DEFINE POPUP "Testy" NAME testy
					MenuItem "Test desktop width and height" action DebugMsg("GetDesktopWidth()",GetDesktopWidth(),"GetDesktopHeight()",GetDesktopHeight())
					MENUITEM "Historia korespondencji" ACTION HistoriaKorespondencji("")
					MENUITEM "MAGAZYN GINTER" ACTION StanMagazynuGinter()
					MENUITEM "Test komunikacji z wagą" ACTION Waga_test()
					
					MENUITEM "Czy jest unicode" ACTION debugmsg(HMG_IsUnicode())
					
					MENUITEM "Rejestr Pożyczek" ACTION RejestrPozyczek()
					MENUITEM "Nowa Pożyczka" ACTION ObslugaPozyczek(.t.,.f.)
					MENUITEM "Kolektor" ACTION ObslugaKolektora()
					MENUITEM "Uruchom PRG" ACTION Test_UruchomPRG()
					MENUITEM "Rejestr" ACTION TestOdczytzRejestru()
					MENUITEM "COM'y z rejestru" ACTION debugmsg(GetCOMportsFromRegistry())
					MENUITEM "Debugger" ACTION altd()
					MENUITEM "ECR_TestCom" ACTION ECR_TestCom()
					MENUITEM "Jednostka miary lewiatan" ACTION msgbox(LewiatanJednostkaMiary(InputWindow ( "Podaj jednostkę do testowania" , {"Jednostka"} , {space(5)}, {4})[1]))
					MENUITEM "WindowsVersion" ACTION debugmsg(WindowsVersion())
					MENUITEM "Test maila" ACTION SendMail("Test wysyłania maila: "+WersjaProgramu, "NIP: ", .f.,.t.)
					menuitem "Test BarCode" action debugmsg (PrintEAN13('5907674354260'))
					menuitem "Test Dialera" action debugmsg (DialNumber())
					menuitem "Test SQLite" action TestSQLite()
					menuitem "Birthday" action Birthday()
					menuitem "Lista tabel kursów walut NBP" action KursyWalutNBP()
					menuitem "Kanał RSS" action KanalRSS()
					menuitem "Import &Allegro" action PobierzTransakcjeAllegro()
					menuitem "Testuj Info ActiveX" action NowaWersja(.t.,.t.)
					
					END POPUP
			#endif
			
		END MENU
	endif
 return
 

User avatar
mol
Posts: 3359
Joined: Thu Sep 11, 2008 5:31 am
Location: Myszków, Poland
Has thanked: 256 times
Been thanked: 163 times
Contact:

Post by mol »

The same error caused by Dynamic Display solution is generated by samples: grid\grid_26, grid\grid_29, grid\grid_30.

User avatar
serge_girard
Posts: 2505
Joined: Sun Nov 25, 2012 2:44 pm
DBs Used: 1 MySQL - MariaDB
2 DBF
Location: Belgium
Has thanked: 799 times
Been thanked: 153 times
Contact:

Post by serge_girard »

Claudio,

I use it as following:

Code: Select all

FOR A = 1 TO LEN(acTitles)
	GRID_SetColumnControl ("Grid_Materiaal", "Form_PR004A", _GRID_COLUMNCAPTION_, A, acTitles [A])
NEXT A
Then I get this error:

C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/pr004.o:pr004.c:(.data+0x598): undefined reference to `HB_FUN_GRID_SETCOLUMNCONTROL'

collect2.exe: error: ld returned 1 exit status

hbmk2[sporserv]: Error: Running linker. 1
gcc.exe C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/ss000.o C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/pr004.o C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/ss001.o C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/ss002.o C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/ss00716.o C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/ss015.o C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/ss020.o C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/ss022.o C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/ss025.o C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/ss030.o C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/ss040.o C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/ss050.o C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/ss050p.o C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/ss055.o C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/ss100.o C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/ss150.o C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/ss200.o C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/ss900.o C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/ss_help.o C:/Users/GEBRUI~1/AppData/Local/Temp/hbmk_0c2ksu.dir/hbmk_mcj70k.o P:/hmg.3.0.44/SPORSERV/_temp.o -mwindows -Wl,--start-group -lhmg -lcrypt -ledit -leditex -lgraph -lini -lreport -lhfcl -lmsvfw32 -lvfw32 -lhbct -lhbwin -lhbmzip -lminizip -lhbmemio -lhbmisc -lhbmysql -lmysql -lhbtip -lsqlite3 -lhbsqlit3 -lsddodbc -lrddsql -lsddmy -lhbodbc -lodbc32 -lhbhpdf -lhbfimage -lhbpgsql -lhbnetio -lxhb -lpng -llibhpdf -lhbvpdf -lhbzebra -lhbextern -lhbdebug -lhbvmmt -lhbrtl -lhblang -lhbcpage -lgtcgi -lgtpca -lgtstd -lgtwin -lgtwvt -lgtgui -lhbrdd -lhbuddall -lhbusrrdd -lrddntx -lrddcdx -lrddnsx -lrddfpt -lhbrdd -lhbhsx -lhbsix -lhbmacro -lhbcplr -lhbpp -lhbcommon -lhbmainwin -lkernel32 -luser32 -lgdi32 -ladvapi32 -lws2_32 -liphlpapi -lwinspool -lcomctl32 -lcomdlg32 -lshell32 -luuid -lole32 -loleaut32 -lmpr -lwinmm -lmapi32 -limm32 -lmsimg32 -lwininet -lhbpcre -lhbzlib -Wl,--end-group -osporserv.exe -LP:/hmg.3.4.2/harbour/lib/win/mingw -LP:/hmg.3.4.2/lib

hbmk2: Error: Referenced, missing, but unknown function(s):
GRID_SETCOLUMNCONTROL()

Serge

User avatar
mol
Posts: 3359
Joined: Thu Sep 11, 2008 5:31 am
Location: Myszków, Poland
Has thanked: 256 times
Been thanked: 163 times
Contact:

Post by mol »

What happened with debugger in this new version?
Image

User avatar
andyglezl
Posts: 1248
Joined: Fri Oct 26, 2012 7:58 pm
Location: Guadalajara Jalisco, MX
Has thanked: 38 times
Been thanked: 107 times
Contact:

Post by andyglezl »

Estas utilizando compilacion incremental?
Perdón, la primera compilacion me dio esto:
MyBuild.bat
Process started >>>

D:\RespaldosPCs\DiscoC\Trabajo\MnuVertWPanel>ECHO OFF
Harbour 3.2.0dev (r1601151502)
Copyright (c) 1999-2015, http://harbour-project.org/
D:/HMG/3.4.3/lib/libhmg.a(c_BosTaurus.o):c_BosTaurus.c:(.text+0x2ee0): multiple definition of `HB_FUN_BT_DRAW_HDC_DRAWTEXT'
C:/Users/AGL/AppData/Local/Temp/hbmk_07vyq9.dir/MnuVert.o:MnuVert.c:(.text+0x1940): first defined here
collect2.exe: error: ld returned 1 exit status
hbmk2[MnuVert]: Error: Ejecutando enlazador. 1
gcc.exe C:/Users/AGL/AppData/Local/Temp/hbmk_07vyq9.dir/MnuVert.o C:/Users/AGL/AppData/Local/Temp/hbmk_07vyq9.dir/hbmk_sl9347.o D:/RespaldosPCs/DiscoC/Trabajo/MnuVertWPanel/_temp.o -mwindows -Wl,--start-group -lhmg -lcrypt -ledit -leditex -lgraph -lini -lreport -lhfcl -lmsvfw32 -lvfw32 -lhbct -lhbwin -lhbmzip -lminizip -lhbmemio -lhbmisc -lhbmysql -lmysql -lhbtip -lsqlite3 -lhbsqlit3 -lsddodbc -lrddsql -lsddmy -lhbodbc -lodbc32 -lhbhpdf -lhbfimage -lhbpgsql -lhbnetio -lxhb -lpng -llibhpdf -lhbvpdf -lhbzebra -lhbextern -lhbdebug -lhbvmmt -lhbrtl -lhblang -lhbcpage -lgtcgi -lgtpca -lgtstd -lgtwin -lgtwvt -lgtgui -lhbrdd -lhbuddall -lhbusrrdd -lrddntx -lrddcdx -lrddnsx -lrddfpt -lhbrdd -lhbhsx -lhbsix -lhbmacro -lhbcplr -lhbpp -lhbcommon -lhbmainwin -lkernel32 -luser32 -lgdi32 -ladvapi32 -lws2_32 -liphlpapi -lwinspool -lcomctl32 -lcomdlg32 -lshell32 -luuid -lole32 -loleaut32 -lmpr -lwinmm -lmapi32 -limm32 -lmsimg32 -lwininet -lhbpcre -lhbzlib -Wl,--end-group -oMnuVert.exe -LD:/HMG/3.4.3/harbour/lib/win/mingw -LD:/HMG/3.4.3/lib

Luego puse como comentarios la rutina que tengo:
// HB_FUNC (BT_DRAW_HDC_DRAWTEXT)
// {
// ........................
para que no estuviera repetida y compile de nuevo.


Solo utilizo el Build.bat dentro de otro .bat


*** MyBuild.bat
ECHO OFF
rem D:\HMG\3.0.46\build.bat MnuVert.hbp
rem D:\HMG\3.1.5\build.bat MnuVert.hbp
rem D:\HMG\3.4\build.bat MnuVert.hbp
D:\HMG\3.4.3\build.bat MnuVert.hbp
-----------------------------------------------

**** MnuVert.hbp
MnuVert.PRG
-----------------------------------------------


Vuelvo a compilar con la 3.4 y compila bien...

--------------------------------------------------------------------------------------------------------------------------------------

Compile varios ejemplos desde "D:\HMG\3.4.3\SAMPLES\Miscellaneous" y todos funcionan bien....
Tal vez los cambios (si los hubo) en BUILD.BAT con respecto al anterior ?
Andrés González López
Desde Guadalajara, Jalisco. México.

User avatar
srvet_claudio
Posts: 2055
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Has thanked: 40 times
Been thanked: 160 times
Contact:

Post by srvet_claudio »

mol wrote:What happened with debugger in this new version?
Image
It is a problem of repainting the main debugger window when it appears for the first time, if you maximizes or minimizes the debugger window redisplay ok.

Change line 1494 of file source\debugger\dbgGUI.prg
#if 1

for this
#if 0

and rebuild HMG lib.
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com

User avatar
srvet_claudio
Posts: 2055
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Has thanked: 40 times
Been thanked: 160 times
Contact:

Post by srvet_claudio »

andyglezl wrote:
Estas utilizando compilacion incremental?
Perdón, la primera compilacion me dio esto:
MyBuild.bat
Process started >>>

D:\RespaldosPCs\DiscoC\Trabajo\MnuVertWPanel>ECHO OFF
Harbour 3.2.0dev (r1601151502)
Copyright (c) 1999-2015, http://harbour-project.org/
D:/HMG/3.4.3/lib/libhmg.a(c_BosTaurus.o):c_BosTaurus.c:(.text+0x2ee0): multiple definition of `HB_FUN_BT_DRAW_HDC_DRAWTEXT'
C:/Users/AGL/AppData/Local/Temp/hbmk_07vyq9.dir/MnuVert.o:MnuVert.c:(.text+0x1940): first defined here
collect2.exe: error: ld returned 1 exit status
hbmk2[MnuVert]: Error: Ejecutando enlazador. 1
gcc.exe C:/Users/AGL/AppData/Local/Temp/hbmk_07vyq9.dir/MnuVert.o C:/Users/AGL/AppData/Local/Temp/hbmk_07vyq9.dir/hbmk_sl9347.o D:/RespaldosPCs/DiscoC/Trabajo/MnuVertWPanel/_temp.o -mwindows -Wl,--start-group -lhmg -lcrypt -ledit -leditex -lgraph -lini -lreport -lhfcl -lmsvfw32 -lvfw32 -lhbct -lhbwin -lhbmzip -lminizip -lhbmemio -lhbmisc -lhbmysql -lmysql -lhbtip -lsqlite3 -lhbsqlit3 -lsddodbc -lrddsql -lsddmy -lhbodbc -lodbc32 -lhbhpdf -lhbfimage -lhbpgsql -lhbnetio -lxhb -lpng -llibhpdf -lhbvpdf -lhbzebra -lhbextern -lhbdebug -lhbvmmt -lhbrtl -lhblang -lhbcpage -lgtcgi -lgtpca -lgtstd -lgtwin -lgtwvt -lgtgui -lhbrdd -lhbuddall -lhbusrrdd -lrddntx -lrddcdx -lrddnsx -lrddfpt -lhbrdd -lhbhsx -lhbsix -lhbmacro -lhbcplr -lhbpp -lhbcommon -lhbmainwin -lkernel32 -luser32 -lgdi32 -ladvapi32 -lws2_32 -liphlpapi -lwinspool -lcomctl32 -lcomdlg32 -lshell32 -luuid -lole32 -loleaut32 -lmpr -lwinmm -lmapi32 -limm32 -lmsimg32 -lwininet -lhbpcre -lhbzlib -Wl,--end-group -oMnuVert.exe -LD:/HMG/3.4.3/harbour/lib/win/mingw -LD:/HMG/3.4.3/lib

Luego puse como comentarios la rutina que tengo:
// HB_FUNC (BT_DRAW_HDC_DRAWTEXT)
// {
// ........................
para que no estuviera repetida y compile de nuevo.


Solo utilizo el Build.bat dentro de otro .bat


*** MyBuild.bat
ECHO OFF
rem D:\HMG\3.0.46\build.bat MnuVert.hbp
rem D:\HMG\3.1.5\build.bat MnuVert.hbp
rem D:\HMG\3.4\build.bat MnuVert.hbp
D:\HMG\3.4.3\build.bat MnuVert.hbp
-----------------------------------------------

**** MnuVert.hbp
MnuVert.PRG
-----------------------------------------------


Vuelvo a compilar con la 3.4 y compila bien...

--------------------------------------------------------------------------------------------------------------------------------------

Compile varios ejemplos desde "D:\HMG\3.4.3\SAMPLES\Miscellaneous" y todos funcionan bien....
Tal vez los cambios (si los hubo) en BUILD.BAT con respecto al anterior ?
ok. no hay problema.
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com

Post Reply