FiveTech Software tech support forums

... aFStruct to {} ::aRow := aRow ::aFieldStruct := aFStruct ::cTable := cTableName ::aDirty := Array(Len(::aRow)) ::aOldValue := Array(Len(::aRow)) AFill(::aDirty, .F.) // inserting these lines fixed the bug! for nI := 1 to Len(::aRow) __ObjAddData(Self,::aFieldStruct[nI][MYSQL_FS_NAME]) next return ...

... or as oTabel[1,1] or both mixed A better aproach would be : oTabel := Hash() FOR i := 1 TO 6 oTabel[CHR(64+i)] := Array(6) aFill(oTabel[CHR(64+i)],0) //FOR j := 1 TO 6 // oTabel[CHR(64+i),j] := 0 //NEXT NEXT Elements can only be retrieved as oTabel["A",1] Note ...

afill(aHelpIDs,NIL)

Even this statement is not needed.

... ), ; lSeguir := iif( !( ( nMargen + nWidth ) < ( oPrn:nHorzRes() -nMargend ) ), .f., lSeguir ) ; } ) } aVar := Array( Len( oLine:aText ) ) aFill( aVar, 1 ) aL := Array( Len( oLine:aText ) ) ; aFill( aL, 0 ) aLen := {} //nIni := Len( cLineText ) - Len( Ltrim( cLineText ) ) // si hay espacios ...

... } // Mejor así ???? 25-08-2009 nItem := nPar lChange := .f. nVez := 1 cText := " " //Memoread( aFiles[ nItem ] ) cFile := " " AFill( aItems, Space( 10 ) ) AFill( aFiles, Space( 10 ) ) // adaptar a llamada de no ayuda sino los SV.. /historias if (lFile) aFiles := {} aadd( aFiles, ...

... "return nil" "endclass" /C1 .and. .not. .or. .t. .f. #include #define #ifdef #endif #else aadd abs aclone acopy adel aeval afill ains alert alias alltrim as asc array activate action append asize ascan begin button buttonbar brush break case class classdata close color colors ...

... "endwhile" "end" "next" "return nil" "endclass" /C1 .and. .not. .or. .t. .f. #include #define #ifdef #endif #else aadd abs aclone acopy adel aeval afill ains alert alias alltrim as asc array activate action append asize ascan begin button buttonbar brush break case class classdata close color colors ...

... "endwhile" "end" "next" "return nil" "endclass" /C1 .and. .not. .or. .t. .f. #include #define #ifdef #endif #else aadd abs aclone acopy adel aeval afill ains alert alias alltrim as asc array activate action append asize ascan begin button buttonbar brush break case class classdata close color colors ...

... ::LoadFields() EndIf EndIf ::lFirstPaint := .F. If ::bLine != Nil .and. Empty(::aColumns) Default nElements := Len( Eval(::bLine) ) aJustify := Afill( Array( nElements ), 0 ) aJustify := Afill( Array( nElements ), 0 ) If Len( ::aHeaders ) < nElements If ::oTree == Nil ::aHeaders := Array( ...

... i'm missing... 'variable (array equal the the lenght of table) that will replace the field in xBrowse column... ... aNums := Array( LastRec() ) AFill( aNums, 1 ) ... Clever idea. I never thought of that :roll: Will let you know after dinner (i'm on the other side of the world ) :D

Hola Loren,

AFill( aDto,0 )

... IF nCantidad > 9999999999999.99 MsgStop("Número muy grande para convertir en letras",; "Mensaje de la Función Num2Txt") Return nCantidad EndIf AFill(aTexto, "") nCantidad:= Round(nCantidad, 2) //Redondea a 2 los decimales nEntero := Int(nCantidad) cCents := StrTran(Str(nCantidad - nEntero), ...

... nI, nJ, nNumero, nEntero, nCents, nPunto Local cCadena, cDigitos, cTerminador, cCents Local aTexto[5], acMoneda:= {" bolivar ", " bolivares "} AFill(aTexto, "") nCantidad:= Round(nCantidad, 2) nEntero := Int(nCantidad) nCents := nCantidad - nEntero cCents := Str(nCents) nPunto := At(".", cCents) ...

... /Function String 3 = "%*^{Procedure^}*" /C1 .and. .not. .or. .t. .f. #include #define #ifdef #endif #else aadd abs aclone acopy adel aeval afill ains alert alias alltrim as asc array activate action append asize ascan begin button buttonbar brush break case class classdata close color colors ...

... /Function String 3 = "%*^{Procedure^}*" /C1 .and. .not. .or. .t. .f. #include #define #ifdef #endif #else aadd abs aclone acopy adel aeval afill ains alert alias alltrim as asc array activate action append asize ascan begin button buttonbar brush break case class classdata close color colors ...