FiveTech Software tech support forums

Code: Select all

RddRegister("ADS",1)
RddSetDefault("ADS")
SET SERVER LOCAL
SET FILETYPE TO NTX

Code: Select all

USE IVA INDEX IVA1,IVA2 NEW SHARED
DATABASE oDbfIvas
oDbfIvas:bEoF=nil
oDbfIvas:GoTop()

Code: Select all

FUNCTION Main()
   LOCAL aDbfs := DIRECTORY(".\*.dbf")
   LOCAL nDbfs
   LOCAL aEstructura
   LOCAL cNomAdt, cNomAdi, cNomAdm
   LOCAL nReng := 0
   REQUEST ADS,DBFNTX,DBFDBT
   RDDSETDEFAULT("ADS")
   AdsSetServerType(1)
   AdsSetFileType(3)
   CLS
   FOR nDbfs := 1 TO LEN(aDbfs)
      /* obtenemos el nombre del DBF y le agregamos la extension ADT */
      cNomAdt := LEFT(aDbfs[nDbfs,1],AT(".",aDbfs[nDbfs,1]))+"ADT"
      cNomAdi := LEFT(aDbfs[nDbfs,1],AT(".",aDbfs[nDbfs,1]))+"ADI"
      cNomAdm := LEFT(aDbfs[nDbfs,1],AT(".",aDbfs[nDbfs,1]))+"ADM"
      @ nReng, 1 SAY cNomAdt
      /* abrimos el DBF usando el RDD DBFNTX*/
      USE (aDbfs[nDbfs,1]) NEW ALIAS TempDbf VIA "DBFNTX"
      /* obternemos la estructura del DBF */
      aEstructura := TempDbf->(DBSTRUCT())
      /* verficamos si existe el archivo ADT, su indice ADI y su memo ADM, si existen los borramos*/
      IF FILE (".\"+cNomAdt)
         FERASE(".\"+cNomAdt)
      ENDIF
      IF FILE (cNomAdi)
         FERASE(".\"+cNomAdi)
      ENDIF
      IF FILE (cNomAdm)
         FERASE(".\"+cNomAdm)
      ENDIF

      /* creamos una nueva estructura ADT a partir de la estructura DBF previamente obtenida */
      /* abrimos la nueva estructura con el el alias "TempAdt" */
      DBCREATE(cNomAdt,aEstructura,"ADS",.T.,"TempAdt")

      /* al primer registro del DBF */
      TempDbf->(DBGOTOP())

      /* vamos a recorrer todo el DBF para cargar los datos al ADT */
      DO WHILE ! TempDbf->(EOF())
         /* añadimos un registro al ADT */
         TempADT->(DBAPPEND())
         /* agregamos la informacion de los _ por campo*/
         FOR nCampos := 1 TO TempDbf->(FCOUNT())
            TempAdt->(FIELDPUT(nCampos,TempDbf->(FIELDGET(nCampos))))
         NEXT
         TempDbf->(DBSKIP())
      ENDDO

      /*cerramos todo */
      DBCLOSEALL()
      nreng++
   NEXT
RETURN (.T.)

Code: Select all

USE Iva NEW
oDlg:cTitle("Procesando IVA.ADT")
oMeter:nTotal=RecCount()
PACK
ERASE Iva1.Cdx
ERASE Iva2.Cdx
oText:SetText("Creando IVA1.CDX")
INDEX ON CODIGO                                                  TO Iva1;
   EVAL(oMeter:Set(RecNo()),SysRefresh(),!lEnd )
oText:SetText("Creando IVA2.CDX")
INDEX ON DESCRIP                                                 TO Iva2;
   EVAL(oMeter:Set(RecNo()),SysRefresh(),!lEnd )
DBCLOSEALL()