Funcion para un archivo temporal o nombre

Posts: 418

Joined: Wed Nov 26, 2008 06:33 PM

Funcion para un archivo temporal o nombre
Posted: Thu May 09, 2019 08:32 PM

Saludos

Estimados del foro, habia visto antes una funcion que me creaba un nombre de archivo temporal y asi usarlo para crear temporales dbf o cdx pero no recuerdo
y he buscado sin resultados.

Alguna sugerencia?

Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Funcion para un archivo temporal o nombre
Posted: Thu May 09, 2019 11:13 PM

Code (fw): Select all Collapse

** Uso
AADD(aTabla,{"codigo","N",13,0})
AADD(aTabla,{"nombre","C",30,0})
AADD(aTabla,{"cantid","N",10,0})
AADD(aTabla,{"total" ,"N",10,0})
marchi := crear_temp(aTabla)
**************************
** Crear temporarios
FUNCTION crear_temp(atabla)
LOCAL i
mnom_arc = "TEMP"
i = 0
DO WHILE FILE("TEMP"+STRTRAN(STR(i,4)," ","0")+".DBF")
   i++
ENDDO
DBCREATE("TEMP"+STRTRAN(STR(i,4)," ","0")+".DBF",atabla)
RETURN "TEMP"+STRTRAN(STR(i,4)," ","0")+".DBF"

Hasta 9999 temporarios simultaneos. Tienes que borrarlo despues de usarlo. Le pasas la estructura como una arreglo

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Funcion para un archivo temporal o nombre
Posted: Fri May 10, 2019 10:04 AM

Noe,

function cTempFile( cPath, cExtension )

regards, saludos

Antonio Linares
www.fivetechsoft.com

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: Funcion para un archivo temporal o nombre
Posted: Fri May 10, 2019 03:59 PM

Gracias, Cesar Gomez.

Code (fw): Select all Collapse

#include "fivewin.ch"

FUNCTION Main()

   LOCAL Marchi, aTabla := {}

   // Uso
   AADD( aTabla, { "codigo", "N", 13, 0 } )
   AADD( aTabla, { "nombre", "C", 30, 0 } )
   AADD( aTabla, { "cantid", "N", 10, 0 } )
   AADD( aTabla, { "total" , "N", 10, 0 } )

   marchi := crear_temp( aTabla )

RETURN NIL
//* Crear temporarios
FUNCTION crear_temp( atabla )

   LOCAL i, MNOM_ARC

   mnom_arc := "TEMP"

   i = 0

   DO WHILE FILE( "TEMP" + STRTRAN( STR(i,4 )," ","0" ) + ".DBF" )

      SYSREFRESH()

      i++

   ENDDO

   DBCREATE( "TEMP" + STRTRAN( STR(i,4 )," ","0" ) + ".DBF", atabla )

RETURN "TEMP" + STRTRAN( STR( i,4 ), " ", "0" ) + ".DBF"

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion