HMG 3.3.1 (Stable)

[Javier Tovar]

Hola EduardoLuis,

Si los datos los guardas en una DBF como Texto y no como número el resultado va a ser igual que el 20, pero no así cuando lo guardas como un campo numérico.

Saludos

[Pablo César]

I've modified h_controlmisc.prg to allow user to enter base filename for saving his prinouts:

Code: Select all

Function _HMG_PRINTER_SavePages()
Local c , i , f , t , d , e, x, h, a := {}
Local g := {"PDF", "BMP","JPG","GIF","TIF","PNG","EMF"}
Local nTypePicture := { Nil , BT_FILEFORMAT_BMP, BT_FILEFORMAT_JPG, BT_FILEFORMAT_GIF, BT_FILEFORMAT_TIF, BT_FILEFORMAT_PNG, Nil }
Local hBitmap, nType
Local flag_PDF := .F.
local nWidth, nHeight, nDPI, cDocName

x := _HMG_PRINTER_GetOutFileType ( g )   /*          Returns following Array:
                                               ( x[1]=>Folder_Name | x[2]=>File_Type | x[3]=>Base file name)  */

if HMG_LEN(x)=0
   Return Nil
endif

IF x[ 2 ] == 1
   flag_PDF := .T.
endif

cDocName := alltrim(x[ 3 ])
if empty(cDocName)
	cDocName := "HMG_PrintFile_"
else
	// avoid to use special chars in filename
	cDocName := charrepl(":/.,|\@#$%&^*+ ",_HMG_SYSDATA [ 358 ],"_") + "_"
endif
	
If HB_URIGHT(x[1],1) != '\'
   e := x[1] + '\'
Else
   e := x[1]
endif

h := g[x[2]] // File_Type extension

nType := nTypePicture[ x[2] ]

t := gettempfolder() 
//MsgStop(_HMG_SYSDATA [ 358 ])

c := adir ( t + _HMG_SYSDATA [ 379 ] + "_hmg_print_preview_*.Emf")

asize ( a , c )

adir ( t + _HMG_SYSDATA [ 379 ]  + "_hmg_print_preview_*.Emf" , a )


For i := 1 To c
    f := t + a [i]
    d := e + cDocName + StrZero ( i , 4 )
	//MsgStop("f->"+f+chr(10)+"t->"+t+chr(10)+"d->"+d+chr(10)+"cDocName->"+ cDocName+ "len(a)->"+str(len(a)))
    IF HMG_UPPER (h) == "EMF"
       COPY FILE (F) TO (D+"."+h)
    ELSE 
          

      // by Dr. Claudio Soto, April 2014
       hBitmap = BT_BitmapLoadEMF ( f, WHITE )
       
       IF hBitmap <> 0 .AND. flag_PDF == .F.
          BT_BitmapSaveFile (hBitmap, d+"."+h, nType)
          BT_BitmapRelease (hBitmap)
       ENDIF

       IF hBitmap <> 0 .AND. flag_PDF == .T.   // by Rathinagiri (May 2014)
         if i == 1 
            nDPI    := 300
            nWidth  := ( BT_BitmapWidth ( hBitmap ) / nDPI * 25.4 )  
            nHeight := ( BT_BitmapHeight( hBitmap ) / nDPI * 25.4 )
            _HMG_HPDF_INIT ( d+".pdf", 1, 256, nHeight, nWidth, .f. )
            _hmg_hpdf_startdoc()
            _HMG_HPDF_SetCompression( 'ALL' )
            h := "JPG"
         endif

         _hmg_hpdf_startpage()
         BT_BitmapSaveFile (hBitmap, d+"."+h, BT_FILEFORMAT_JPG)
         BT_BitmapRelease (hBitmap)
         _HMG_HPDF_IMAGE ( d+"."+h, 0, 0, nHeight, nWidth, .t. , h )
         _hmg_hpdf_endpage()
         FERASE( d+"."+h )

         if i == c
            _hmg_hpdf_enddoc()
         endif

       ENDIF

    ENDIF
Next i
Return Nil



Function _HMG_PRINTER_GetOutFileType (aFiletype)   // by Pablo César, April 2014
Local cFolder_aux,cFolder:=GetCurrentFolder(), aRet:={}

DEFINE WINDOW Out_File AT 171 , 285 WIDTH 468 HEIGHT 179 ;
    TITLE "Output type file" MODAL NOSIZE NOSYSMENU
    
    ON KEY ESCAPE ACTION ThisWindow.Release()

    DEFINE LABEL Label_1
        ROW    22
        COL    20
        WIDTH  60
        HEIGHT 20
        VALUE "Folder:"
        FONTNAME "Arial"
        FONTSIZE 9
    END LABEL

    DEFINE TEXTBOX Text_1
        ROW    18
        COL    90
        WIDTH  320
        HEIGHT 22
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        READONLY .T.
        VALUE cFolder
    END TEXTBOX
    
    DEFINE BUTTON Button_1
        ROW    17
        COL    412
        WIDTH  30
        HEIGHT 24
        ACTION (cFolder_aux:=GetFolder(),cFolder := IIF (EMPTY(cFolder_aux),cFolder,cFolder_aux), SetProperty("Out_File","Text_1","Value",cFolder))
        FONTNAME "Arial"
        FONTSIZE 9
        PICTURE "HP_FOLDER"
        PICTALIGNMENT TOP
    END BUTTON

	DEFINE LABEL Label_OutFileName
        ROW    50
        COL    10
        WIDTH  79
        HEIGHT 40
        VALUE "Base filename:"
        FONTNAME "Arial"
        FONTSIZE 9
    END LABEL

    DEFINE TEXTBOX Text_OutFileName
        ROW    50
        COL    90
        WIDTH  320
        HEIGHT 22
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        READONLY .F.
        VALUE charrepl(":/.,|\@#$%&^*+ ",_HMG_SYSDATA [ 358 ],"_")
    END TEXTBOX
	
    DEFINE LABEL Label_2
        ROW    90
        COL    20
        WIDTH  60
        HEIGHT 20
        VALUE "File type:"
        FONTNAME "Arial"
        FONTSIZE 9
    END LABEL

    DEFINE COMBOBOX Combo_1
        ROW      86
        COL      90
        WIDTH    100
        HEIGHT   126
        ITEMS    aFiletype
        VALUE    1
        FONTNAME "Arial"
        FONTSIZE 9
    END COMBOBOX

    DEFINE BUTTON Button_2
        ROW    110
        COL    270
        WIDTH  80
        HEIGHT 24
        ACTION (aRet:={GetProperty("Out_File","Text_1","Value"),GetProperty("Out_File","Combo_1","Value"),GetProperty("Out_File","Text_OutFileName","Value")},ThisWindow.Release())
        CAPTION _HMG_SYSDATA [ 371 ] [11]
        FONTNAME "Arial"
        FONTSIZE 9
    END BUTTON

    DEFINE BUTTON Button_3
        ROW    110
        COL    360
        WIDTH  80
        HEIGHT 24
        ACTION ThisWindow.Release()
        CAPTION _HMG_SYSDATA [ 371 ] [12] 
        FONTNAME "Arial"
        FONTSIZE 9
    END BUTTON

END WINDOW
CENTER WINDOW Out_File
ACTIVATE WINDOW Out_File
Return aRet

Thank you Marek. Will use it.

---

Hi Rathi and Claudio, I would like to make additional requests in this matter.

1. The enlarged option "Save as" in preview brought an inconvenient for those clients/companies do not wish to able users for saving reports. I suggest to let programmer let setted if this option could be used or not for any user. IMHO we could arrange to disable save button at preview, as Daniel Maximiliano indicated. See picture below:

Screen.PNG

With previously setting trhu a CONSTANT (for example) we probably can let it disabled this option of "save as" by the button. Here in this topic the user demand.

2. With PREVIEW option, _HMG_PRINTER_STARTPAGE_PREVIEW creates metafiles in tempory folder using TempFolder() function. I would like this option also be settable path previously by the programmer. By this, we would have all the metafiles already created in the settable path without to be saved again and in duplicity. But also will need to let it optional for deleting metafiles when is _HMG_PRINTER_ENDPAGE_PREVIEW is actioned.

3. Our friend Marek presented a solution for mask name (wildcard, template names) to use for "Save as" option in preview. I would like to make it this mask names previously, probably by setting mask priviously thru a CONSTANT before executing the preview.

Briefly:

Shall it be created 3 CONSTANTs to attend these 3 optional cases. When not used, will be acted as always came up working. Not changing. That is, while maintaining backward compatibility.

SAVE_AS := .T. or .F. (default is .T., when variable is Nil)
MASK_FILE := <Template name> (default is "HMG_MiniPrint_", when variable is Nil)
EMF_PATH := <Full path> (default is obtained by GetTempFolder()+ _HMG_SYSDATA [ 379 ], when variable is Nil)

What do you think about these indications ? Can it be implemented at HMG lib ? Do you need to I present my source codes ?

Good idea Pablo.

Thank you Rathi for your answer and agree.

Do you need to I present my source codes ? Or yourself will do it ?

[EduardoLuis]

Hola Javier:

Me disculpo contigo en no haberte contestado antes, pero no tengo servicio de Internet en casa.-
Los métodos para lograr lo que busco pueden ser varios, el que descubri como mas efectivo es crear un array e incorporarle los datos de la tabla que quiero se vean con las puntuaciones de miles y decimales.-
El contenido del array se mentiene numérico ( como podés apreciar en el GRID_20), por lo que estimo que el bugg está en el tratamiento de los datos segun sea el origen de los mismos.-
De todos modos la solución que encontré - construir el arrar y cargarle los datos del dbfr - cumplió su propósito.-
No quise formular una crítica al los métodos del Grid, simplemente compartir con los restantes miembros del foro la experiencia y buscar la forma mas adecuada para resolverlo.-
Desde ya te quedo infinitamente agradecido, me ayudó a pensar.-
Un abrazo Javier.
Eduardo

[Javier Tovar]

Hola EduardoLuis,

Que bien que encontraste una buena solución a tu inquietud!

Saludos

[jorge.posadas]

HMGForum,

He bajao la version 3.3.1 y he querico compilar el demo que está en "C:\hmg.3.3.1\SAMPLES\HFCL\SQL\SQLITE", pero al hacerlo me manda estos errores:


Harbour 3.2.0dev (r1407111333)
Copyright (c) 1999-2014, http://harbour-project.org/
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0xb5): undefined reference to `sqlite3_close'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x193): undefined reference to `sqlite3_user_data'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x202): undefined reference to `sqlite3_value_type'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x27e): undefined reference to `sqlite3_result_error_code'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x297): undefined reference to `sqlite3_value_bytes'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x2a8): undefined reference to `sqlite3_value_blob'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x2c8): undefined reference to `sqlite3_value_text'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x2f7): undefined reference to `sqlite3_value_double'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x318): undefined reference to `sqlite3_value_int64'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x354): undefined reference to `sqlite3_result_int64'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x364): undefined reference to `sqlite3_result_null'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x39e): undefined reference to `sqlite3_result_text'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x3c3): undefined reference to `sqlite3_result_double'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x8d4): undefined reference to `sqlite3_libversion'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x8f4): undefined reference to `sqlite3_libversion_number'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x914): undefined reference to `sqlite3_sourceid'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x934): undefined reference to `sqlite3_initialize'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x954): undefined reference to `sqlite3_shutdown'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0xa48): undefined reference to `sqlite3_extended_result_codes'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0xb2a): undefined reference to `sqlite3_errcode'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0xc0a): undefined reference to `sqlite3_extended_errcode'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0xcea): undefined reference to `sqlite3_errmsg'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0xd23): undefined reference to `sqlite3_errstr'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0xd53): undefined reference to `sqlite3_sleep'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0xe2a): undefined reference to `sqlite3_last_insert_rowid'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0xebf): undefined reference to `sqlite3_open'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0xfa8): undefined reference to `sqlite3_close'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1075): undefined reference to `sqlite3_open_v2'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1149): undefined reference to `sqlite3_close'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1355): undefined reference to `sqlite3_exec'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1367): undefined reference to `sqlite3_free'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x14e0): undefined reference to `sqlite3_prepare_v2'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x14f0): undefined reference to `sqlite3_finalize'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1541): undefined reference to `sqlite3_complete'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1577): undefined reference to `sqlite3_sql'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1613): undefined reference to `sqlite3_stmt_status'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1697): undefined reference to `sqlite3_stmt_readonly'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1707): undefined reference to `sqlite3_step'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1777): undefined reference to `sqlite3_clear_bindings'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x17e7): undefined reference to `sqlite3_reset'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1857): undefined reference to `sqlite3_finalize'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1913): undefined reference to `sqlite3_bind_blob'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x19c2): undefined reference to `sqlite3_bind_double'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1a63): undefined reference to `sqlite3_bind_int'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1b1d): undefined reference to `sqlite3_bind_int64'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1bba): undefined reference to `sqlite3_bind_null'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1c78): undefined reference to `sqlite3_bind_text'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1d33): undefined reference to `sqlite3_bind_zeroblob'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1db7): undefined reference to `sqlite3_bind_parameter_count'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1e48): undefined reference to `sqlite3_bind_parameter_index'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1eda): undefined reference to `sqlite3_bind_parameter_name'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x1fea): undefined reference to `sqlite3_changes'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x20ca): undefined reference to `sqlite3_total_changes'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x2107): undefined reference to `sqlite3_column_count'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x218b): undefined reference to `sqlite3_column_type'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x220b): undefined reference to `sqlite3_column_decltype'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x228b): undefined reference to `sqlite3_column_name'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x230b): undefined reference to `sqlite3_column_bytes'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x2398): undefined reference to `sqlite3_column_bytes'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x23a6): undefined reference to `sqlite3_column_blob'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x244b): undefined reference to `sqlite3_column_double'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x24cb): undefined reference to `sqlite3_column_int'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x254b): undefined reference to `sqlite3_column_int64'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x25d8): undefined reference to `sqlite3_column_bytes'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x25e6): undefined reference to `sqlite3_column_text'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x2738): undefined reference to `sqlite3_enable_load_extension'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x2848): undefined reference to `sqlite3_busy_timeout'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x2988): undefined reference to `sqlite3_get_table'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x2a30): undefined reference to `sqlite3_free_table'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x2a5c): undefined reference to `sqlite3_free'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x2c1c): undefined reference to `sqlite3_blob_open'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x2cae): undefined reference to `sqlite3_blob_reopen'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x2d17): undefined reference to `sqlite3_blob_close'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x2d87): undefined reference to `sqlite3_blob_bytes'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x2e40): undefined reference to `sqlite3_blob_read'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x2e84): undefined reference to `sqlite3_blob_bytes'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x2f4c): undefined reference to `sqlite3_blob_write'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x307a): undefined reference to `sqlite3_get_autocommit'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x30b3): undefined reference to `sqlite3_enable_shared_cache'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x31e0): undefined reference to `sqlite3_profile'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x3310): undefined reference to `sqlite3_trace'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x3506): undefined reference to `sqlite3_interrupt'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x360f): undefined reference to `sqlite3_busy_handler'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x364b): undefined reference to `sqlite3_busy_handler'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x3778): undefined reference to `sqlite3_progress_handler'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x379a): undefined reference to `sqlite3_progress_handler'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x389f): undefined reference to `sqlite3_commit_hook'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x38db): undefined reference to `sqlite3_commit_hook'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x39df): undefined reference to `sqlite3_rollback_hook'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x3a1b): undefined reference to `sqlite3_rollback_hook'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x3b1f): undefined reference to `sqlite3_set_authorizer'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x3cc8): undefined reference to `sqlite3_backup_init'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x3d6a): undefined reference to `sqlite3_backup_step'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x3db7): undefined reference to `sqlite3_backup_finish'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x3df7): undefined reference to `sqlite3_backup_remaining'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x3e37): undefined reference to `sqlite3_backup_pagecount'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x3e64): undefined reference to `sqlite3_memory_used'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x3e93): undefined reference to `sqlite3_memory_highwater'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x3eb4): undefined reference to `sqlite3_threadsafe'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x3f81): undefined reference to `sqlite3_status'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x40ec): undefined reference to `sqlite3_db_status'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x4236): undefined reference to `sqlite3_limit'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x4273): undefined reference to `sqlite3_compileoption_used'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x42a3): undefined reference to `sqlite3_compileoption_get'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x4430): undefined reference to `sqlite3_create_function'
C:/hmg.3.3.1/harbour/lib/win/mingw/libhbsqlit3.a(core.o):core.c:(.text+0x2761): undefined reference to `sqlite3_reset_auto_extension'
collect2: ld returned 1 exit status
hbmk2[sqlite]: Error: Ejecutando enlazador. 1
gcc.exe C:/Users/Jopoch/AppData/Local/Temp/hbmk_gebfp8.dir/demo.o C:/Users/Jopoch/AppData/Local/Temp/hbmk_gebfp8.dir/sql1.o C:/Users/Jopoch/AppData/Local/Temp/hbmk_gebfp8.dir/hbmk_20aq44.o C:/hmg.3.3.1/SAMPLES/HFCL/SQL/SQLITE/_temp.o -Wl,--nxcompat -Wl,--dynamicbase -mwindows -Wl,--start-group -lhmg -lcrypt -ledit -leditex -lgraph -lini -lreport -lhfcl -lmsvfw32 -lvfw32 -lhbct -lhbwin -lhbmzip -lminizip -lhbmemio -lhbmisc -lhbmysql -lmysql -lhbtip -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 -osqlite.exe -LC:/hmg.3.3.1/harbour/lib/win/mingw -LC:/hmg.3.3.1/lib

[Javier Tovar]

Hola Pablo César, Sr. Rathinagiri y Dr. Claudio Soto,

Quisiera que para la próximo versión de HMG hagan los siguientes cambios en el archivo C:\hmg.3.3.1\SOURCE\Graph\h_Graph.prg en la linea 238 cambiar DEFAULT cPicture := "999,999.99" por DEFAULT cPicture := "99,999,999.99" y en la linea 429-449 cambiar por esto.

Code: Select all

   // xLabels
   nRPos := nRNeg := nZero - nDeep
   FOR nI := 0 TO nXRanges
      IF lxVal
         IF nRange*nI <= nXMax
            cName := "xPVal_Name_"+LTRIM(STR(nI))
            @ nRPos, nLeft-nDeep-70-100 LABEL &cName OF &parent ;
			VALUE Transform(nRange*nI, cPicture) ;
			WIDTH 150 ;
			HEIGHT 14 ;
			FONTCOLOR BLUE FONT "Arial" SIZE 8 TRANSPARENT RIGHTALIGN
         ENDIF
         IF nRange*(-nI) >= nXMin*(-1)
            cName := "xNVal_Name_"+LTRIM(STR(nI))
            @ nRNeg, nLeft-nDeep-70-100 LABEL &cName OF &parent ;
			VALUE Transform(nRange*-nI, cPicture) ;
			WIDTH 150 ;
			HEIGHT 14 ;
			FONTCOLOR BLUE FONT "Arial" SIZE 8 TRANSPARENT RIGHTALIGN
         ENDIF
      ENDIF

Esto con el fin de que se incluyan valores en las gráficas mayores a 999,999.99 espero que sea atendida la solicitud, ya que varias gráficas tienen valores mayores a esa cantidad.

Por su atención muchas gracias!

////////////////////////////////////////////////////////////////////////////////////
Hi Pablo Cesar and Mr. Rathinagiri,

I wish for the next version of HMG make the following changes in the C: \ hmg.3.3.1 \ SOURCE \ Graph \ h_Graph.prg [/ b] on line 238 cPicture change DEFAULT: = "999,999.99" by DEFAULT cPicture: = "99,999,999.99" [/ b] and in line 429-449 changed by this.

Code: Select all

   // xLabels
   nRPos := nRNeg := nZero - nDeep
   FOR nI := 0 TO nXRanges
      IF lxVal
         IF nRange*nI <= nXMax
            cName := "xPVal_Name_"+LTRIM(STR(nI))
            @ nRPos, nLeft-nDeep-70-100 LABEL &cName OF &parent ;
			VALUE Transform(nRange*nI, cPicture) ;
			WIDTH 150 ;
			HEIGHT 14 ;
			FONTCOLOR BLUE FONT "Arial" SIZE 8 TRANSPARENT RIGHTALIGN
         ENDIF
         IF nRange*(-nI) >= nXMin*(-1)
            cName := "xNVal_Name_"+LTRIM(STR(nI))
            @ nRNeg, nLeft-nDeep-70-100 LABEL &cName OF &parent ;
			VALUE Transform(nRange*-nI, cPicture) ;
			WIDTH 150 ;
			HEIGHT 14 ;
			FONTCOLOR BLUE FONT "Arial" SIZE 8 TRANSPARENT RIGHTALIGN
         ENDIF
      ENDIF

This in order that values ​​are included in the graphs larger than 999,999.99 I hope the request is treated as several graphs are in excess of that amount.

Thank you very much for your attention!

[srvet_claudio]

Hi Friends,
please test this patch 3

PS: this patch include previous patches

Code: Select all

SELECT PRINTER <cPrinter> ;
...
[ PREVIEW ] ;
[ NOSAVEBUTTON ] ;
[ DIALOGFILENAME <DialogFileName> ] ;
[ SAVEAS <FullFileName> ]

- New DIALOGFILENAME [ cPath\ ] cFileName
- New SAVEAS [ cPath\ ] cFileName + cExt --> ".PDF" | ".BMP" | ".JPG" | ".GIF" | ".TIF" |".PNG" | ".EMF"
- New property ANGLE <nAngle> in PRINT DATA (nAngle: are in degrees and counterclockwise)


- RichEdit Control: Fixed bug in Justify text and in ParaNumberingStyle constants (contrib by Kevin Carmody)

- Grid Control : Fixed bug HeaderDymamicFont with HeaderImages

HMG.3.3.1_patch3.rar

(799.04 KiB) Downloaded 507 times

[bpd2000]

Thank you Mr. Claudio for patch

[esgici]

Thanks a lot Doc

[Agil Abdullah]

Thanks a lot to Dr.Claudio Soto for the 3rd Patch.