Posts: 392

Joined: Tue Jul 29, 2008 01:55 PM

grabar y leer un array multi dimensional
Posted: Mon Nov 11, 2013 06:29 PM

Hola Fivewinners.

Requiero guardar y leer en un campo memo, un arreglo multi dimensional, YA intente guardarlo con aSave y leerlo con aRead, pero me envia el siguiente error:

Time from start: 0 hours 1 mins 39 secs
Error occurred at: 11/11/2013, 12:24:18
Error description: Error BASE/1131 Bound error: array dimension
Args:
[ 1] = N -4799

Stack Calls

Called from: => ARRAY( 0 )
Called from: .\source\classes\WINDOW.PRG => AREAD( 1816 )
Called from: C:\Actividades\prg\actividadxml08.prg => AV_GENERA_R08( 874 )

Estoy utilizando Fw1308 y xHarbour 1.123

Alguien conoce el truco ?

Saludos

Visite Chiapas, el paraiso de México.

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: grabar y leer un array multi dimensional
Posted: Mon Nov 11, 2013 07:30 PM

FW_ValToExp

Code (fw): Select all Collapse

//      IF lNuevo
//         IF FLUJ->( DBAppendRec() )
//            FLUJ->PROCESADO := FALSE
//            FLUJ->NUM_CIUD  := nNumCiud
//            FLUJ->NUM_RUTA  := nNumRuta
//            FLUJ->FECHA     := dFecha
//            FLUJ->TOTAL     := aTotales[ K_TOTAL           ]
//            FLUJ->EFECTIVOS := aTotales[ K_TOTAL_COLUMNA   ]
//            FLUJ->DOLARES   := aTotales[ K_TOTAL_DOLARES   ]
//            FLUJ->DEPOSITOS := aTotales[ K_TOTAL_DEPOSITOS ]
//            FLUJ->GASTOS    := aTotales[ K_TOTAL_GASTOS    ]
//            FLUJ->DIFERIDOS := aTotales[ K_TOTAL_DIFERIDOS ]
//            FLUJ->NOTA      := cNota
//            FLUJ->DETALLE   := FW_ValToExp( { aDetalleC, aDetalleD, aDepositos, aGastos, aTotales } )
//            lGrabado := TRUE
//         ENDIF
//      ELSE

Code (fw): Select all Collapse

      TRY
         oQryTmp  := oServer:Query2( "SELECT * FROM vCATFLUJ_E WHERE MY_RECNO=%1 LIMIT 1", { nMy_RecNo } )
         nNumRuta    := oQryTmp:NUM_RUTA
         cNomRuta    := oQryTmp:RUTA
         nNumCobr    := oQryTmp:NUM_COBR
         cNomCobr    := oQryTmp:COBRADOR
         cNota       := oQryTmp:NOTA
         aDetalle    := StringToArray( oQryTmp:DETALLE )
         oQryTmp:END()
      CATCH oError
         ShowError( oError, { oQryTmp } )
         RETURN
      END

Code (fw): Select all Collapse

FUNCTION StringToArray( cString )
   LOCAL aArray := {}
   LOCAL oError := NIL

   IF !Empty( cString )
      cString := AllTrim( cString )
      TRY
         IF Left( cString, 1 ) == "{" .and. Right( cString, 1 ) == "}"
            aArray := &( cString )
            IF !HB_IsArray( aArray )
               aArray := {}
            ENDIF
         ENDIF
      CATCH oError
         aArray := {}
      END
   ENDIF

RETURN aArray

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

FiveTech Support Forums

Stack Calls

Continue the discussion