HMG 3.3.1 (Stable)

[tonton2]

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
............................................. 
        FONTNAME "Arial"
        FONTSIZE 9
    END BUTTON

END WINDOW
CENTER WINDOW Out_File
ACTIVATE WINDOW Out_File
Return aRet

Bonsoir,
le problème persiste toujours, en mettant un autre nom pour le fichier(PDF), la sauvegarde se fait toujours avec le même nom:"HMG_Print_System_0001.pdf".
je ne peux pas changer le nom du fichier( pdf.)
merci a toute l'équipe
Google


good evening,
the problem still persists, when I put an another name for the file(PDF) , the backup always does the same name: "HMG_Print_System_0001.pdf."
I cannot change the name for the pdf file.
thank you to all the team

[Clip2Mania]

the problem still persists, when I put an another name for the file(PDF) , the backup always does the same name: "HMG_Print_System_0001.pdf."
I cannot change the name for the pdf file.

As mentioned before, change h_controlmisc.prg as proposed by Mol
Problem is that these modifications are not persistent. I've adapted the function _HMG_PRINTER_SavePages() as follows:

Code: Select all

if !empty(cDocName)
  _HMG_PRINTER_SETJOBNAME(cDocName)
endif
cDocName := charrepl(":/.,|\@#$%&^*+ ",_HMG_SYSDATA [ 358 ],"_") + "_"     

You can permanently change the function _HMG_PRINTER_SETJOBNAME where the default "HMG Print System" is set.

Hope this helps.

[tonton2]

Code: Select all

if !empty(cDocName)
  _HMG_PRINTER_SETJOBNAME(cDocName)
endif
cDocName := charrepl(":/.,|\@#$%&^*+ ",_HMG_SYSDATA [ 358 ],"_") + "_"     

You can permanently change the function _HMG_PRINTER_SETJOBNAME where the default "HMG Print System" is set.

Hope this helps.[/quote]
Bonjour,
Can you give me more explanation, please

[Clip2Mania]

You can permanently change the function _HMG_PRINTER_SETJOBNAME where the default "HMG Print System" is set.

In h_controlmisc.prg, search for the function _HMG_PRINTER_SETJOBNAME. Should be around line 6560 or so.

Code: Select all

Function _HMG_PRINTER_SETJOBNAME( cName )
if valtype ( cName ) = 'U'
    _HMG_SYSDATA [358] := 'HMG Print System'
else
    _HMG_SYSDATA [358] := cName
endif
Return Nil

Change the if-condition with whatever you want / rebuild

[esgici]

Hi All

IMO modifying system file is not a good way

I hope this change will be applied in the next release,
because this is an important and general need.

Happy HMG

[Clip2Mania]

+1

[tonton2]

Hi All

IMO modifying system file is not a good way

I hope this change will be applied in the next release,
because this is an important and general need.

Happy HMG

+1
Merci a tous et pour Tout

[tonton2]

Hola Tonton2,

-Solo ve a donde esta ese linea en el archivo C: \ HMG \ include \ i_tree.ch en la linea 233, y pones doble diagonal al inicio:

Code: Select all

//_HMG_THIS_TREEITEM_VALUE

-Ejecutas el BuildAllLib.Bat
-Listo

Saludos

bonsoir
When we use this

Code: Select all

//_HMG_THIS_TREEITEM_VALUE

we get that error

[Agil Abdullah]

Hallo Mr.Roberto López and friends,

I need some enhancements to EXTENDED-EDIT to make it more applicable and safer to manage data in offices. What I need are :

1) add an option [FIELDLOCK [n]] to EDIT EXTENDED command, to make sure that user cannot modify the designated field when in modify-operation. But always open when in append-operation.

2) Function "Find" is subject to case-sensitive, so it always fails to find record under name "Ray" if the key is "r" ; key must be "R". Pls make it NOT case-sensitive.

3) I think more interesting to move Edit-window to the right side, instead of left side because it hides the most important info which usually put in the left (except for Arabic who reads right-to-left style).

Attacched is my test *.prg


Thanks for kind attention.

[esgici]

...When we use this

Code: Select all

//_HMG_THIS_TREEITEM_VALUE

we get that error...

IMO modifying system file is not a good way