HMGforum.com

Code: Select all

   SELECT 1
   USE XYZ
   aStruc := DBSTRUCT()
   nLen :? LEN(aStruc)
   nPosi := ASCAN(aStruct,{ |e| e[1] = "AAA" } )
   sStruct[nPosi][1) := "BBB"

   SELECT 2
   DbCreate( "NEWDBF", aStruct, "DBFNTX" )
   USE "NEWDBF"
   SELECT 1  
   DO WHILE !EOF
      NEWDBF->( DbAppend() )
      i := 1
      FOR i := 1 TO nLen
         xValue := XYZ->( FieldGet( i )		
         NEWDBF->(FieldPut(i),xValue) 
      NEXT
      SELECT 1
      SKIP
   ENDDO
   CLOSE ALL
   
   FERASE("XYZ.DBF")
   RENAME "NEWDBF.DBF" TO "XYZ.DBF"
   
   

Code: Select all

/************************************************************************************************/
FUNCTION CG_MODIFICA_DBF(cNDBF,aStruc)   //FUNCION PARA MODIFICAR TAMAÑO CAMPOS O AÑADIR CAMPOS
/************************************************************************************************/

         // --------------------------------------------------------------------------
         //                   !!! ATENCION !!! - LIMITACIONES !!
         // --------------------------------------------------------------------------
         // - SOLO SE PUEDE:
         //   Añadir nuevos campos, (se pueden añadir en el orden que se quiera).
         //   Modificar el tamaño de los campos.
         //   Se pueden reordenar los campos.
         //
         // - EN CAMPOS QUE CONTENGAN REGISTROS NO SE PUEDE:
         //   Modificar el tipo de datos.
         //   Modificar nombre de los campos ya existentes.
         // --------------------------------------------------------------------------
         //          !! SI NO SE CUMPLEN ESTAS NORMAS SE PERDERAN DATOS !!
         // --------------------------------------------------------------------------

         //Creo temporal
         cCopiSegu:="Segu_" + cNDBF + "_F" + StrTran(DToC(Date()),"/") + "_H" + StrTran(TIME(),":")
         cBdTemp  :="TEMP" + AllTrim(Str(RANDOM()))
         DBCreate( (cBdTemp) , aStruc )
         USE (cBdTemp) EXCLUSIVE NEW
         StruNueva:=DBSTRUCT()
         CLOSE (cBdTemp)

         //En red si algun usuario esta usando la base de datos se sale ya
         //que si comparamos una bd miestras esta siendo usada siempre daria
         //valores diferentes y provocaria una falsa actualizacion
         USE (cNDBF) EXCLUSIVE NEW
         IF NETERR()
            CLOSE (cNDBF)
            ERASE ( (cBdTemp) + ".DBF" )
            ERASE ( (cBdTemp) + ".DBT")
            RETURN Nil
         ENDIF
         
         StruVieja:=DBSTRUCT()

         cCOM1:=HB_ValToExp(StruVieja) //Convierte a cadena
         cCOM2:=HB_ValToExp(StruNueva)

         //SI SE A MODIFICADO O AÑADIDO ALGUN CAMPO PROCEDE
         IF cCOM1<>cCOM2
            IF !MsgYesNo("SE A DETECTADO ACTUALIZACION DE LA BASE DE DATOS: " + AllTrim(cNDBF) +".DBF" + CHR(13) + CHR(10) + ;
                CHR(13) + CHR(10) + "EN EL DIRECTORIO: " + GETCURRENTFOLDER() + CHR(13) + CHR(10) + ;
                + CHR(13) + CHR(10) + "DESEA ACTUALIZAR AHORA ?","AVISO - ACTUALIZACION DETECTADA")
            ELSE
               COPY TO (cCopiSegu) //& Crea precopia de seguridad
               Inkey(1)
               USE (cBdTemp)
               APPEND FROM (cNDBF)          //& Importa registros del dbf viejo
               COPY TO (cNDBF)              //& Aplica los cambios en el dbf
               Inkey(1)
               CLOSE (cBdTemp)
               MsgInfo("ESTRUCTURA BASE DATOS: -> " + cNDBF + ".DBF -> HA SIDO MODIFICADA","AVISO")
            ENDIF
         ENDIF

         CLOSE (cNDBF)

         //Observacion: Erase solo funciona en el directorio actual del dos
         ERASE ( (cBdTemp) + ".DBF" ) //Borra tmp DBF
         ERASE ( (cBdTemp) + ".DBT" ) //Borra tmp DBT, si los hubiera

RETURN Nil