buenas tardes como hacer esto, gracias

[Jose Mario]

primera="30072025"

dd1=LEFT(primera,2)
mm1=SUBSTR(primera,3,2)
aa1=RIGHT(primera,4)
prime="pplanilla&aa1&mm1&dd1"

este archivo lo genero quincenalmente

quiero validar si existe

if not file('&prime')  if ! file('prime')  if ! file('&prime'+'.dbf')

    archivo no existe

endif

USE &prime IN 0 AGAIN ALIAS prime

no me funciona, de ninguna forma

gracias

[Jose Mario]

de todo solo esto no me funciona lo demas todo funciona

if not file('&prime')  if ! file('prime')  if ! file('&prime'+'.dbf')

    archivo no existe

endif

[Octavio Rodriguez]

y si lo usas de la siguiente forma:

if file(lc)

    use &lc

else

    mensaje " archivo no existe  "

endif

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/bac661b5-5a92-418e-8427-3fe2c658c4ddn%40googlegroups.com.

[Gerardo Cagnola]

revisaste la ayuda de macrosustitución al menos una vez???

no llego a entender porque complicas lo fácil

primera="30072025"

prime='pplanilla' + RIGHT(primera,4) + SUBSTR(primera,3,2) + LEFT(primera,2) + '.dbf'

if file(prime)

   use (prime) in 0 alias prime

endif

falta lectura de la ayuda...

--

[Edwin Duran]

Una duda, donde colocas la ruta del archivo

[Zarlu]

Buenas tardes José!

Qué es lo que no funciona?...la sintáxis?..no encuentra el archivo?

Aquí hay que revisar como pasas la variable y falta "AND" para los "IF"

" if not file('&prime')  if ! file('prime')  if ! file('&prime'+'.dbf')"

Sugerencia:

prime="c:\tempo\pplanilla&aa1&mm1&dd1.dbf"
if !file(prime)
    ? "archivo no existe"
endif

Suerte

zarlu

Chetumal, Quintana Roo, México

[Victor Espina]

Eso pasa cuando no entiendes bien los conceptos.   Tu codigo es el correcto; el original era una abominacion (solo estoy bromeando, por si acaso) :D 

Victor Espina

[Jose Mario]

tenes razon

yo me incluyo no entender la ayuda

lo que pasa que como me habria el archivo 

pero ya para evaluar si existe o no existe

no pude hacerlo

prime="pplanilla&aa1&mm1&dd1"

if  not file('prime')

    archivo no existe

endif

prime='pplanilla' + RIGHT(primera,4) + SUBSTR(primera,3,2) + LEFT(primera,2) + '.dbf'

if ! file(prime)

  archivo no existe

   else

use (prime) in 0 alias prime

endif

buenos gracias y disculpa

me sirvió muchisimo

[Jose Mario]

es un gusto saludarte victor

[Alex Correa]

primera = "30072025"

dd1 = LEFT(primera, 2)

mm1 = SUBSTR(primera, 3, 2)

aa1 = RIGHT(primera, 4)

prime = "pplanilla" + aa1 + mm1 + dd1 && genera: pplanilla20250730

IF NOT FILE(prime + ".dbf")

    ? "Archivo no existe"

    RETURN

ENDIF

USE (prime + ".dbf") IN 0 ALIAS prime

Alex Correa

--

Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/21643781-4a5e-4260-b010-c793a59a1729n%40googlegroups.com.

[Victor Espina]

Ahora , solo por diversion:

SET DATE ITALIAN
SET CENTURY ON
primera = "30072025"
file = STRT("pplanilla{0}.dbf", "{0}", DTOC(CTOD(TRANSFORM(primera, "@R 99-99-9999")),1))
IF NOT FILE(file)
  ? "Archivo no existe". 
  RETURN
ENDIF
USE (file) IN 0 ALIAS prime

Paso a paso seria:
1) TRANSFORM(primera, "@R 99-99-9999")   && "30072025" -> "30-07-2025"
2) CTOD(...)   &&  "30-07-2025" -> {30-07-2025}
3) DTOC(...,1). && {30-07-2025}  -> "20250730"
4) STRT("pplanilla{0}.dbf","{0}",...).  -> "planilla{0}.dbf". -> "pplanilla20250730.dbf"


Victor Espina

[Victor Espina]

Igual Jose!.  Un abrazo :)

Victor Espina

[Zarlu]

Buenos días!

Saludos maestro Víctor!

Divirtámonos!...aunque ya no sea viernes

Las 1001 maneras del zorro....

CLEAR
primera="30072025"
primera=STUFF(STUFF(primera,3,0,"/"),6,0,"/")
primera=GETWORDNUM(primera,3,"/")+GETWORDNUM(primera,2,"/")+GETWORDNUM(primera,1,"/")
lcFile= "pplanilla"+primera+".dbf"
? lcFile

Suerte

zarlu

Chetumal, Quintana Roo, México

[Jose Mario]

EN ESTE CASO EL ARCHIVO ESTA EN LA MISMA CARPETA

COMO ESTO SE COLOCA EN UN APLIICACION

AHI DEPENDE DE LA RUTA DE TUS DATOS 

[Zarlu]

Buenos días José!

Puedes usar esto para obtener el directorio del ejecutable y de ahí partir a las subcarpetas.

lcPathExe=LEFT(sys(16,1),RAT("\",sys(16,1))-1)&&directorio del ejecutable

lcDirDatos=ADDBS(lcPathExe)+"Data"

lcFile= ADDBS(lcDirDatos)+"elarchivo.dbf"

Suerte

zarlu

Chetumal, Quintana Roo, México

[Victor Espina]

LEFT(sys(16,1),RAT("\",sys(16,1))-1) = JUSTPATH(SYS(16))

Victor Espina

[Walter Salcedo]

Estimados Les agradeceré su ayuda por favor,

Soy programador empírico, siempre he trabajado con tablas .dbf, se me ha presentado la oportunidad de trabajar con un cliente que tiene su sistema en tablas de access *.mdb.

Necesito me ayuden a accesar a la base de datos, abrir una tabla y agregar registros y/o modificar datos en ella desde visualfoxpro 9 usando ODCBC, o si fuera posible me indiquesn si existe algún manual para hacer esto. 

Atte,

Walter Salcedo

[Sergio Rojas]

Hola Walter, acá te paso un extracto de lectura de MDB y copia a DBF, solo para que te sirva de guía.

lnConnHandle = SQLSTRINGCONNECT('DRIVER=MICROSOFT ACCESS DRIVER (*.MDB);DBQ=' + lcMyFile +';uid='+i_usu+';pwd='+i_pas)

lnResult = SQLTABLES(lnConnHandle, 'TABLE')

lcSQLCommand = "SELECT * FROM [checkinout]"
lnGetData = SQLEXEC(lnConnHandle, lcSQLCommand, 'newdata')

COPY TO (lcNewName) FOR LEFT(DTOS(TTOD(checktime)),8) >= DTOS(i_fec)

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/BN8PR12MB289843C7AA4A87DA50049049D42CA%40BN8PR12MB2898.namprd12.prod.outlook.com.