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?
** 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"
#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"
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 95 guests