FiveTech Software tech support forums

ARREGLADO FALTABA lSAved:=.T. Function cGetFile32( cFileMask, cTitle, nDefaultMask, cInitDir, lSave, nFlags, cIniFile ) local cSection, cFile local nRet DEFAULT lSave := .f. CursorWait() // On cGetFile() that parameter is a boolean for long filenames if nFlags != Nil .and. ValType( ...

here there is the test.prg #include "fivewin.ch"Function test()   local cIniFile  :=  cFilePath( GetModuleFileName( GetInstance() ) ) + "test.ini"   local cSection:="COLORI"local oCheckSerie:= array(5)local ...

Now I'm trying to make cString_TH:= GetIni( cInifile, cSection,"TH", "" ) IF ! empty(cString_TH) cToken := StrToken(cString_TH,1,";") acSizes[1] := StrToken(cToken,1,"|") acEstilo[1] := StrToken(cToken,2,"|") ...

Fernando,

Por favor prueba a llamar la función del API de Windows directamente:

MsgInfo( GetPvProfString( cSection, cEntry, cValToChar( uDefault ), cIniFile ) )

y comprueba si sucede lo mismo. gracias

... local cGiorno := GetPvProfString(cSection, "Giorni","1111111", cIniFile) For k=1 to 6 //len(aGiorni) LMMGVS aadd(aCountGiorni,IIF(SubStr(cGiorno, k, 1)= "1",.t.,.f.)) next  oConteggio:=TDatabase():Open( ...

... if you continue to use the DESKTOP program, INI files online. You are used to so many entries. /* GetDBProfString( cSection, cEntry, uDefault, cIniFile ) - Syntax similar to GetPvProfString() function - If file extention of cIniFile is "ini", then the call is forwarded to GetPvProgString(). ...

/ ??? Para que sirve, Silvio?
cIniFile := cFilePath( GetModuleFileName( GetInstance() ) ) + "tabledb.ini"

for save the state and other things

... is pattino.png I wish save on record (dbf) only bitmaps\servizi\pattino.png I saw also filename.prg and not found a solution Function test() Local cIniFile := cFilePath( GetModuleFileName( GetInstance() ) ) + "Test.ini" Local cExePath := cFilePath( GetModuleFileName( GetInstance() ) ) ...

... of {^ 2019/06/15 }, {^ 2019/09/20 } I wish insert my dates min and Max ( because I cannot Know them) I have these date on a ini file :      Local cIniFile  := TakeOffExt( GetModuleFileName( GetInstance() ) ) + ".ini"     Local dBassa1   := GetPvProfString("Stagioni", ...

Nages, on Method New I add these lines local cInifile := TakeOffExt( GetModuleFileName( GetInstance() ) ) + ".ini" ::cDbfPath := GetIni( cIniFile, "Config", "DbfPath") this is the Main.ini [Config]YearPath=2013PdfPath=.\2013\Pdf\DbfPath=.\2013\Data\ZipPath=.\2013\Zip\DocPath=.\2013\Doc\XLsPath=.\2013\Xls\ImgPath=.\images\TempImg=.\temp\ ...

Now I insert on Method New ::cDbfPath := GetIni( oApp():cIniFile, "Config", "DbfPath") and seem to Found the dbfs when I compile the source on my application Before it show the plan then why I try to move or resize a bar I have the ...

... "adsdbe.ch" #include "ads.ch" #include "\CLIPWEB\INCLUDE\CLIPWEB.H" #include "cdm.h" FUNCTION MAIN( cIniFile ) _TrackUpdate( cIniFile ) RETURN Void FUNCTION _TrackUpdate( cIniFile ) LOCAL oSession , ; nCnt := 0 , ; lPass := .F. , ; cUID := '' , ; cPID ...

... ; // On Top defined in INI ... ... add in Function GET_INI() nOntop := Val(GetPvProfString( "RGB", "On top", "1" , cIniFile ) ) and in function SAVE_INI() WritePProString( "RGB", "On top", ALLTRIM(STR(nOntop)), cIniFile ) don't forget to add the ...

... hago así >>>> Local cPrinter:=GetPvProfString("Facturacion","IMPRESORA","Microsoft XPS Document Writer", cIniFile) SetPrintDefault(cPrinter) PrnSetPage(9) ///a4 PrnPortrait() ///vertical // PrnLandScape() ///horizontal TPreview():lListViewHide := .T. //PRINT ...

... ) Local oEmailCfg,oEmailMsg,oError,cHtml Local cServer:= GetPvProfString("Enviador","SERVERSTP" ,"", cIniFile) Local nPortEmail:=VAL(GetPvProfString("Enviador","EMAILPUERTO","25", cIniFile)) Local cEmailFrom:=GetPvProfString("Enviador","EMAILFROM" ...