LOCAL loCarpeta as String, loCrear as Boolean, loEjecutaCrear as String
DIMENSION GeneraTabla(1,1)
IF EMPTY(strTablaActiva)
MESSAGEBOX("No hay ninguna tabla activa.",64,"Generar Tabla")
ELSE
IF BOF() AND EOF()
MESSAGEBOX("No hay registros para crear la Tabla.",64,"Generar Tabla")
ELSE
loCarpeta = GETFILE('DBF','','Crear',1,'Crear tabla')
IF NOT EMPTY(loCarpeta)
loCrear = .T.
IF FILE(loCarpeta) = .T.
Result = MESSAGEBOX("¿Este archivo ya existe desea remplazarlo?",4 + 32)
IF Result = 6
loCrear = .T.
ELSE
loCrear = .F.
EndIf
EndIf
IF loCrear = .T.
PosicionB = RATC("\",loCarpeta) && Posicion del primer backslash de derecha a izquierda
Extencion = LEN(ALLTRIM(loCarpeta)) - (PosicionB + 4) && Para quitar la extencion con s
strEspacio = SUBSTR(loCarpeta,PosicionB + 1,Extencion)
IF AT(" ",strEspacio) > 0
MESSAGEBOX("El nombre de la Tabla no puede contener espacios.",64)
ELSE
DIMENSION GeneraTabla(RECCOUNT(),3) && Dimensiono el Vector para los Campos
Bmk = RECNO()
GO TOP
loEjecutaCrear = "Create Table " + loCarpeta + "("
I = 1
DO WHILE NOT EOF()
loEjecutaCrear = loEjecutaCrear + "'" + ALLTRIM(nomcampo) + "'";
+ SPACE(1) + ALLTRIM(tipocampo) + "(" + ALLTRIM(tamcampo) + ")"
IF I < RECCOUNT()
loEjecutaCrear = loEjecutaCrear + ", "
I = I + 1
EndIf
Skip
EndDo
loEjecutaCrear = loEjecutaCrear + ")"
&loEjecutaCrear
EndIf
EndIf
EndIf
EndIf
EndIf