HMG 3.4.3
Moderator: Rathinagiri
-
- Posts: 190
- Joined: Wed Jan 06, 2010 5:39 pm
Re: HMG 3.4.3
Thanks for this new version
Re: HMG 3.4.3
Hola
Haciendo una prueba de compilacion rapida, esto es lo me sale a mi...
(Programa trabajando en version 3.4)
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.
Desde Guadalajara, Jalisco. México.
- srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Contact:
Re: HMG 3.4.3
Estas utilizando compilacion incremental?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 ================
Re: HMG 3.4.3
As you wish, but there is nothing special in these functions:srvet_claudio wrote: Marek,
Please show me your code in the line:
ZDEFINIUJMENUGLOWNE(2118)
and the function:
ODBIORTOWAROWZKASY
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
Re: HMG 3.4.3
The same error caused by Dynamic Display solution is generated by samples: grid\grid_26, grid\grid_29, grid\grid_30.
- serge_girard
- Posts: 3167
- Joined: Sun Nov 25, 2012 2:44 pm
- DBs Used: 1 MySQL - MariaDB
2 DBF - Location: Belgium
- Contact:
Re: HMG 3.4.3
Claudio,
I use it as following:
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
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
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
There's nothing you can do that can't be done...
Re: HMG 3.4.3
What happened with debugger in this new version?
Re: HMG 3.4.3
Perdón, la primera compilacion me dio esto:Estas utilizando compilacion incremental?
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:
para que no estuviera repetida y compile de nuevo.// HB_FUNC (BT_DRAW_HDC_DRAWTEXT)
// {
// ........................
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.
Desde Guadalajara, Jalisco. México.
- srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Contact:
Re: HMG 3.4.3
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.mol wrote:What happened with debugger in this new version?
Change line 1494 of file source\debugger\dbgGUI.prg
#if 1
for this
#if 0
and rebuild HMG lib.
- srvet_claudio
- Posts: 2193
- Joined: Thu Feb 25, 2010 8:43 pm
- Location: Uruguay
- Contact:
Re: HMG 3.4.3
ok. no hay problema.andyglezl wrote:Perdón, la primera compilacion me dio esto:Estas utilizando compilacion incremental?
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:para que no estuviera repetida y compile de nuevo.// HB_FUNC (BT_DRAW_HDC_DRAWTEXT)
// {
// ........................
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 ?