FiveTech Software tech support forums

Code: Select all | Expand

Local  aTSecre:= {}

     Sele b
     Go top
     i=1
     Do While  !Eof()
            nSec:= aScan(aTSecre,   { | array | array[1] == b->Cod_Dig} )
            If nSec=0
                 i:=i+1
             AADD( aTSecre,{ b->Cod_Dig})    // Aqui cargo en Array con una dato como "JAME","TAMA"
            Endif
        b->(DbSkip())
     Enddo

     // Aqui debo crear la Estructura de la DBF
        If !file("EstaHora.DBF")
            aStru :={{"Med_Tra" , "C",4,0 },;  // Campo fijo
                                // Aqui debo agregar campos de acuerdo a la cantidad que contiene en Array, Nombres Tales como "JANE","TAMA"
                                For i=1 to len(aTSecre)
                                    cam:=aTSecre[nSec][1]
                     {"&cam" , "N",10,0 },;
                                Next i
                     {"Ter_Arc" , "c",01,0 }}     // Hora_Dig
            Dbcreate("EstaHora.dbf",aStru)
        Endif
 

Code: Select all | Expand

********************************************************************************
**                   Crear TECNICOS.DBF  Logicamente                            **
********************************************************************************

cFile         :=".\Datos\Tecnicos.DBF"
aFileStructure:={{'nombre'    ,'c',25,0},;
                 {'cedula'    ,'c',10,0},;
                 {'telefonos' ,'c',30,0},;
                 {'direccio1' ,'c',40,0},;
                 {'direccio2' ,'c',40,0},;
                 {'email'     ,'c',40,0},;
                 {'notas'     ,'m',10,0}}

if !File( cFile )
  dbcreate( cFile, aFileStructure )
endif
 

Code: Select all | Expand

// Aqui debo crear la Estructura de la DBF
   If !file("EstaHora.DBF")
      aStru :={{"Med_Tra" , "C",4,0 }}  // Campo fijo

      // Aqui debo agregar campos de acuerdo a la cantidad que contiene en Array, Nombres Tales como "JANE","TAMA"
      For i=1 to len(aTSecre)
          cam:=aTSecre[nSec][1]
          aadd( aStru, {cam , "N",10,0} )   <<-------
      Next i

      aadd( aStru, {"Ter_Arc" ,"C",01,0} )   // Hora_Dig

      Dbcreate("EstaHora.dbf",aStru)
   Endif
 

Code: Select all | Expand

DBSELECTAREA("CTASXCOB")
INDEX ON substr(FIELD->CONCEPTO,1,22) TO CXC UNIQUE TEMPORARY
DBGOTOP()
n:=0
While !eof() //para tit cols de report
   aadd(aTitCols, substr(field->concepto,1,22))

  //CREANDO STRUCT DE DBF TEMPORAL CONFORME _ NECESARIOS SEGUN ATITCOLS
   n+=1
   cCampo := "CAMPO" + Alltrim(Str(n))
   aadd( aStruct, {cCampo, "N", 10,2 } )
  //FIN CREANDO STRUCT DE DBF TEMPORAL CONFORME _ NECESARIOS SEGUN ATITCOLS

   dbskip()
Enddo