bb.donnay-software.com

Code: Select all

        SELECT Abs
        DBGOTOP()
        DO WHILE .NOT. EOF()
           Ar := {}
           FOR j=1 TO FCOUNT()
               AADD(Ar, FIELDGET(j))
           NEXT
           SELECT InfVisio
           APPEND BLANK
           FOR j=1 TO LEN(Ar)
               FIELDPUT(j,Ar[j])
           NEXT
           SELECT Abs
           DBSKIP(1)
        ENDDO

Code: Select all

        Abs->(DBGOTOP())
        DO WHILE Abs->(.NOT. EOF())
           FOR j=1 TO Abs->(FCOUNT())
               InfVisio->(FIELDPUT(j,Abs->FIELDGET(j)))
           NEXT
           Abs->(DBSKIP(1))
        ENDDO

Code: Select all

*+±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
*+
*+    Function LB_CopyRecord(cSource,cTarget)      
*+
*+      // Copy record to another DBF using Scatter/Gather 
*+
*+±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
*+ 
FUNCTION LB_CopyRecord(cSource,cTarget)      
  LOCAL i
  LOCAL aRpl := {}
  
  SELECT (cSource)      
      
  FOR i := 1 TO (cSource)->(fcount())
     aadd(aRpl,(cSource)->(fieldget(i)))                                        // load array (scatter) with field data
  NEXT

  SELECT (cTarget)
  (cTarget)->(dbappend())
  aeval(aRpl,{|j,i| (cTarget)->(fieldput(i,j)) })                               // put data in new record (gather)
  
  RETURN .T.      

Code: Select all

Absx->(DBGOTOP())
nFields := absx->(fcount())    // fcount() is a slow function
DO WHILE !Absx->(EOF())
      FOR j=1 TO nFields   // this way the fcount isn't executed each time.
          infvisio->(dbappend())     // you need to append a record
          InfVisio->(FIELDPUT(j,Absx->FIELDGET(j)))
      NEXT
      Absx->(DBSKIP(1))
ENDDO