FiveTech Software tech support forums

Hola gente, me pueden decir que estoy haciendo mal: xdrive := curdrive() + ":\" + curdir()+"\esp" oCn := FW_OpenAdoConnection( { "FOXPRO", xdrive}, .T.) cSQL := "select top 10 Cliente, Fecha, licita, descrip, cantidad, ...

... tabla, pero al momento de pegar la imagen me guarda la imagen en blanco. Me esta faltando algo? agregue esto antes de guardar la imagen cArchivo:=curdrive()+":\"+curdir()+"\imagenes\foto.jpg" oSelf:oImg:Save(.F.,cArchivo, 100) lo guarda pero me da un alert de here P y es molesto ...

... " , "m", 10, 0 }, ; { "Finalizada " , "D", 8, 0 } ; } ) clos data cuando intento leerla : xdrive := curdrive() + ":\" + curdir() oCnM := FW_OpenAdoConnection( { "FOXPRO", xdrive }, .T.) cSQLa := "SELECT * FROM Auditado where ...

Enrico Maria Giordano wrote:

nageswaragunupudi wrote:OFT.
Just a casual discussion.
I think it should be CURDRIVE() + ":\" + CURDIR() but not CURDRIVE() + "\" + CURDIR().

Yes, sorry.

My sincere apologies.
My intention was only to consider the merits of using the alternative function TrueName(".\")

nageswaragunupudi wrote:OFT.
Just a casual discussion.
I think it should be CURDRIVE() + ":\" + CURDIR() but not CURDRIVE() + "\" + CURDIR().

Yes, sorry.

Mi estimado,prueba con la ruta completa del .INI


cRutaIni := CurDrive() + ":\" + Curdir() + "\connect.ini"
If File(cRutaINi)
..
..
..
endif

... Error: Unresolved external '_HB_FUN_GDIP_FILLRECT' referenced from C:\XBASE\HARBOUR32\LIB\FIVEH.LIB|BAR Error: Unresolved external '_HB_FUN_CURDRIVE' referenced from C:\USERS\JOSE ALBERTO ALVAREZ\APPDATA\LOCAL\TEMP\HBMK_45QL34.DIR\LIBS_JA.OBJ Error: Unresolved external '_HB_FUN_PRINTERPORTTONAME' ...

... https://i.postimg.cc/N0pc6013/buttonsownd.jpg Sé que para poner un logo se usa la función: [code]@ 4, 16 BITMAP oBmp FILENAME CURDRIVE() +":"+"\COMPARTIDO\REGSAT\WINSAT\BITMAPS\LOGOGVA.png" NOBORDER OF oWnd ; ON CLICK( oBmp:lStretch := ! oBmp:lStretch, oBmp:Refresh( ...

Marc, To use oSystem:Date and oSystem:Path, you need to use an object of a class like this: #include "hbclass.ch" CLASS System DATA date DATA path ENDCLASS oSystem = System() oSystem:date = Date() oSystem:path = hb_CurDrive() + ":\" + CurDir() another alternative is to use a &quo...

... SET CENTURY ON SET DATE TO FRENCH //----------------Si no existe, se crea carpeta de la SAT------------------ if ! HB_DirExists( Curdrive()+":\"+cRaiz+"\"+CarpetaSAT ) if lMkDir( Curdrive()+":\"+cRaiz+"\"+CarpetaSAT ) MsgInfo( "La carpeta ...

... cGetfile, pero la ventana ocupa toda la pantalla y no da opción a minimizarla ni a reducir el tamaño. El código es el siguiente: if HB_DirExists( Curdrive()+":\"+cRaiz+"\"+CarpetaSAT ) if HB_DirExists( Curdrive()+":\"+cRaiz+"\"+CarpetaSAT+"\"+apunte) ...

No me funciona, #include "fivewin.ch" #include "ado.ch" FUNCTION MAIN() LOCAL cPath := CURDRIVE() + ':\\' + CURDIR()+";" LOCAL lConnect := .f. LOCAL cDriSql := "" cDriSql := "DRIVER={MySQL ODBC 8.0 Unicode Driver};UID=root;PASSWORD=xxxx;PORT=3306;SERVER=localhost;DATABASE=restaurate; ...

Is that what you mean ?

cPt:=CurDrive()+':\'+CurDir()
SHELLEXECUTE( 0, 0, cPt+"\"+MyFile, 0, 0, 1)

Antonio. cOrigen  := hb_CurDrive()+":\"+curdir()+"\Examenes\Doc_Bases\"   cFile := "AlturaBase9.docx"     If lDocAbierto(cOrigen + cFile)     [b] //variable que contiene path , nombre, y ext. del fichero modelo o plantilla[/b]          MsgStop("...

Eccolo ! Fatto le prove e con ARUBA che ha il TLS 1.2 funziona, magari è compatibile con le precedenti versioni Con LEGALMAIL invece non va ! Quindi l'esempio in calce funziona con ARUBA PEC, mentre non va con LEGALMAIL PEC. Suggerimenti ? Grazie Romeo NB: userid e password sono fittizie, il cliente...