FiveTech Software tech support forums

... por defecto, ya busque el código fuente, pero no logro encontrarlo.

https://hymplus.com/forofw/ajuste_tareas.png


cRutaLgo := CurDrive()+":\"+CurDir()+"\loguito.bmp"
Toast( "CONFIRMACION DE PROCESO", "Documento nomina radicado correctamente DIAN","HymLyma | Digital Products ",cRutaLgo )


De ...

... DEL SISTEMA ***************************
Function Main()
Local oDbf,Vec1,Q,Titulo,MsgFooter,IPCem
Private DBF1,CDX1

DBF1:=CurDrive()+":\"+Curdir()+"\CONFPIPE.DBF"

USE &DBF1 NEW
DATABASE oDbf
oDbf:bEoF=nil
oDbf:bBoF=nil
oDbf:GoTop()
RutaDat :=ALLTRIM(oDbf:RUTADATOS)
SerRemoto:=oDbf:REMOTO ...

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, devol from detlici where codigo = '00024' order by descrip" // and licita ...

... 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 para el usuario final
Cualquier ...

... 0 }, ;
{ "ReqNorma " , "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 cliente = 5 order by numero "
oRSa := FW ...

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

... for the party.

With everything in order, Mary packed up her computer and headed out the door. As she drove to her family's house, she used the CURDIR keyword to make sure she was headed in the right direction.

Upon arriving at the party, Mary was greeted with joy and excitement by her family ...

... FWSavePreviewToPDF( oPreview, cPDF, lOpen )
local cOrient, oPDF
local n

cPdf:= oApp:cPdfTemp

if LoadFreeImage() <= 32
MsgAlert( "Freeimage.dll non trovata" )
return nil
endif

DEFAULT cPDF := cGetFile( "PDF File (*.pdf)|*.pdf|", "Seleziona il File PDF da Save", ;
CurDir(), .t. )

....

... service is started, it knows the location of that file, and works correctly.

I need to write to a log file, so I set a path. I use. curdrv() and curdir() plus "\data\" to create the path.
So it should come back with F:\MLS12\Data\
However, with the service executing, it uses the following path ...

... 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 "hash" where you don't need a class:

local hSystem := {=>}

hSystem[ "date" ] = Date()
hSystem[ "path" ] = hb ...

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; OPTION ...

Is that what you mean ?

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

... cmd.exe
Arguments => /C R:\Temp\s5bwew.bat
----------------------------------------------------------------------------------------------------
CurDir() => Users\a\Desktop Starting in => E:\harbour\CAL\

E:\harbour\CAL>C:\harbour\bin\hbmk2.exe E:\harbour\CAL\HbXbase.hbp -q -trace -info -lang=en ...