Por que causa será que no me encuentra un archivocolocandole un camino determinado:
ejemplo:
If file( ! "\\Servidor\f\ADMINIST\PRESUPUESTOS A CLIENTES\Año 2009\nombreardhivo.pdf )saludos
david
argentina
If file( ! "\\Servidor\f\ADMINIST\PRESUPUESTOS A CLIENTES\Año 2009\nombreardhivo.pdf )If !File("\Servidor\f\ADMINIST\PRESUPUESTOS A CLIENTES\Año 2009\nombreardhivo.pdf ")
MsgInfo("Fichero no encontrado")
Endif
If File("\Servidor\f\ADMINIST\PRESUPUESTOS A CLIENTES\Año 2009\nombreardhivo.pdf ")
MsgInfo("Fichero encontrado")
Endif
Saludos
Amigo...
perdon... lo hago de esa forma y NO funciona...
david
David, he probado la siguiente instruccion y funciona correctamente.
if !File("\SERVIDOR\C\Documents and Settings\Admin\Mis documentos\Francisco\fap.jpg")
Asegúrate de tener los derechos correspondientes y que la ruta sea correcta.
Saludos
If file( ! // Así NOIf ! file( // Así SÍFunction Ver_PresupuPDF(nRecNo)
local PRESUPU , SEMIPRSE
local NomArc
SEMIPRSE := CDX_Abrir('SEMIPRSE',0,1)
PRESUPU := CDX_Abrir('PRESUPU',0,1,'PRESUPU')
(PRESUPU)->( dbgoto(nRecNo) )
NomArc := 'P-'+strzero((PRESUPU)->PRE_NRO,6)+' '+alltrim((PRESUPU)->NOMB)
If !FILE(alltrim((SEMIPRSE)->PATH_PDF)+NomArc+'.pdf')
Msgstop('Archivo '+NomArc+'.pdf INEXISTENTE' , 'Archivo PDF Inexistente')
Else
NomArc := alltrim((SEMIPRSE)->PATH_PDF)+NomArc+'.pdf'
SHELLEXECUTE( 0, 0, NomArc, 0, 0, 1 )
EndIf
ER_4(PRESUPU)
ER_4(SEMIPRSE)
RETURN .T.Francisco
en estos momentos la variable de la base de datos es asi:
\Servidor\f\ADMINIST\PRESUPUESTOS A CLIENTES\Año 2009 Nvo formato\
y no lo encuentra, podra ser que es muy largo la ubicacion?
te comento que si lo realizao sobre una carpeta del disco local C:\pdf\ funcion perfecto...
david
David, tenes que usar nombres cortos cuando tiene espacios
PRESUPUESTOS A CLIENTES sería PRESUP~1
Saludos
Adhemar
Disculpen mi insistencia...
gracias
david
David, probaste con nombre corto?
Saludos
Adhemar
y como abreviarias?
\Servidor\f\ADMINIST\PRESUPUESTOS A CLIENTES\Año 2009 Nvo formato\
David
Desde el Shell DOS CMD ejecuta el comando DIR \SERVIDOR /X/S/P
Te mostrará los nombres cortos
Saludos
Adhemar
Hola amigo,
Prueba con variables privadas y utilizando macros.
Es solo una sugerencia, quizá te ayude.
Saludos,
dob,
Lfn2Sfn( <cLongFileName> ) --> cshortFileName
Está función bien podría servirte.