FiveTech Software tech support forums

oLotto:= TDatabase():Open( , cDir+"Lotto", "DBFCDX", .T. )
oLotto:setorder(nOrder)
oLotto:gotop()
oLotto:lbuffer:=.f.

... the oPartres dbf is index on INDEX ON RESITEMS->INVNUM + STR( SERIAL, 3, 0 ) TAG invnum TO resitems oPartres:=TDatabase():Open( , cDir+"ResItems", "DBFCDX", .T. ) oPartres:setorder(1) oPartres:gotop() oPartRes:Gotop() Do While .not. oPartRes:eof() IF alltrim(oPartRes:InvNum) ...

Sorry Nages , I wish understand on Function BuilDbf(cDir) function I'mseeing this structure if ! File( cDir+"ResItems.dbf" )         aStructure = {{ "InvNum",      "C",   13, 0 }, ; //Invoice Num  ...

... a DATA oApp:cDbfPAth where I save the path od Dbf, sample "\2013\Data\" when I use on BuildDbf method (of the class SamplePlan) local cDir := oApp():cDbfPath ::oRooms := TDatabase():Open( nil, cDir+"ROOMS", "DBFCDX", .t. ) I have this error https://i.postimg.cc/3rzjfRsR/error-tdatabase.png ...

FWH function

cTempFile( cDir, cExt )

... me out with the syntax for the tUrl + tIPClientFtp classes. I would like to upload to a certain directory. How can I do that. oFtp:UploadFile( cdir + cfile ) How should the string look like: "\mydir\" + "myfile.zip" is not working. I also tried with slash but it is not working. ...

também uso mysqldump, ex: cComando := oApp:cDir_001+"mysqldump --host="+oApp:IpSQL+" --port="+oApp:SQLPort+" -u "+oApp:UID+" -p"+oApp:PWD+" --all-databases > "+oApp:BackupPath+"\backupD"+strtran(dtos(Date()), "/","")+...

En efecto tendría que ser oActiveX:DO( "Navigate2", cDir ) lo otro es un "defecto" al copiar y pegar el código en el mensaje . :D Como "Test" comenta el" on init" a ver si te da error o se queda en la ventana . ...

Amigo ya probé tu codigo. Primeramente me arrojó error de sintaxis en la línea ON INIT ( oActiveX:DO( "Navigate2", cDir ) y recordando lo que lei anoche, el amigo cristóbal navarro recomendaba sustituir ":" por ":" de manera que quedara oActiveX:DO( ...

no windows 2008 tambem? aqui acontece no winXP, para resolver faço: If IsWinXP() oApp:cDir_002 := StrTran(oApp:cDir_002, "\\", "\") oApp:cDir_001 := StrTran(oApp:cDir_001, "\\", "\") Endif No XP, não tive relatos de problemas, mesmo porque, pedimos aos client...

no windows 2008 tambem?

aqui acontece no winXP, para resolver faço:

If IsWinXP()
oApp:cDir_002 := StrTran(oApp:cDir_002, "\\", "\")
oApp:cDir_001 := StrTran(oApp:cDir_001, "\\", "\")
Endif

... has changed and the below program does not works ! Seems it uses other keys of windows Any help ? Tks Romeo/Zingoni ***** FUNCTION SETTAREG( cDir , cFile , cAutoSave ) LOCAL oReg oReg:=TReg32():New( HKEY_CURRENT_USER , "SOFTWARE\PDFCreator\Program" ) oReg:Set( "UseAutosave" ...

I tried from test cDir := "https://query.yahooapis.com/v1/public/yql?q=select * from weather.forecast where woeid in (select woeid from geo.places(1)" cDir:= cDir + " where text= '"+ cCity +"' and lang='"+cLanguage+"' ...

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=12307 I wish insert all Whats new of Fwh into a Dbf DbCreate(cDir+'FW', {{ "FWANYO" , "C", 4, 0 },; // sample 2014 { "FWNUMERO" , "C", 2, 0 },; // sample 09 { "FWWHATS", ...

Antonio, I wish insert all Whats new of Fwh into a Dbf DbCreate(cDir+'FW', {{ "FWANYO" , "C", 4, 0 },; // sample 2014 { "FWNUMERO" , "C", 2, 0 },; // sample 09 { "FWWHATS", "C", 250, 0 } } , 'DBFCDX') ...