FiveTech Software tech support forums

... AFields([<aFieldsnames>],[<aTypes>],[<aWidths>],[<aDecimals>])->nFields AFill(<aTarget>,<expValue>,[<nStart>],[<nCounts>])->aTarget AfterAtNum(<cSearch>,<cString>,[<nCount>],[<nSkipChars>])->cResult ...

... oDevMode MEMBER cDevName AS STRING LEN 32 MEMBER nSpecVer AS WORD MEMBER nDrvVer AS WORD MEMBER nSize AS WORD MEMBER nDrvExtra AS WORD MEMBER nFields AS DWORD MEMBER nOrientat AS WORD MEMBER nPaperSiz AS WORD MEMBER nPaperLen AS WORD MEMBER nPaperWid AS WORD MEMBER nScale AS WORD MEMBER nCopies ...

... [<nStart>], [<nCount>]) -> aArray AFields([<aFieldsnames>], [<aTypes>], [<aWidths>], [<aDecimals>]) -> nFields AFill(<aTarget>, <expValue>, [<nStart>], [<nCounts>]) -> aTarget AfterAtNum( <cSearch>,<cString>, [<nCount>], ...

... oDevMode MEMBER cDevName AS STRING LEN 32 MEMBER nSpecVer AS WORD MEMBER nDrvVer AS WORD MEMBER nSize AS WORD MEMBER nDrvExtra AS WORD MEMBER nFields AS DWORD MEMBER nOrientat AS WORD MEMBER nPaperSiz AS WORD MEMBER nPaperLen AS WORD MEMBER nPaperWid AS WORD MEMBER nScale AS WORD MEMBER nCopies ...

... oDevMode Member cDevName AS STRING LEN 32 Member nSpecVer AS WORD Member nDrvVer AS WORD Member nSize AS WORD Member nDrvExtra AS WORD Member nFields AS DWORD Member nOrientat AS WORD Member nPaperSiz AS WORD Member nPaperLen AS WORD Member nPaperWid AS WORD Member nScale AS WORD Member nCopies ...

... oDevMode Member cDevName AS STRING LEN 32 Member nSpecVer AS WORD Member nDrvVer AS WORD Member nSize AS WORD Member nDrvExtra AS WORD Member nFields AS DWORD Member nOrientat AS WORD Member nPaperSiz AS WORD Member nPaperLen AS WORD Member nPaperWid AS WORD Member nScale AS WORD Member nCopies ...

... es debido a que en tu bucle "for" creas los objetos gets, pero la ejecución del programa continua y la variable n cuando sale del bucle es igual a nfields + 1, entonces cuando se activa el dialogo y se ven los gets intenta asignarles el valor avarget[nfields+1], que está fuera del rango de avarget. ...

... > aTmp:={} > return Static Function fillCol( aLbx, I ) Return FieldWBlock( aTmp[2][i], Select( lbxtmp ) ) Function Dbf2Arr( cAlias ) Local nFields := (cAlias)->( FieldCount( ) ) Local aData := {} Local aFields := {} Local n := 0 (cAlias)->( DbGotop( ) ) While !(cAlias)->( Eof( ...

... {} ? A ver que te parecen estas sencillas modificaciones: /* ******************** */ METHOD New( oConnect, cTable, cSelect ) CLASS TAdoBase ... ::nFields:=oRs:Fields:Count ::aBuffer := Array( ::nFields ) ::Load() ... return Self /* ******************** */ METHOD Load() CLASS TAdoBase local n:=0 ...

... oDevMode MEMBER cDevName AS STRING LEN 32 MEMBER nSpecVer AS WORD MEMBER nDrvVer AS WORD MEMBER nSize AS WORD MEMBER nDrvExtra AS WORD MEMBER nFields AS DWORD MEMBER nOrientat AS WORD MEMBER nPaperSiz AS WORD MEMBER nPaperLen AS WORD MEMBER nPaperWid AS WORD MEMBER nScale AS WORD MEMBER nCopies ...

... MEMBER cDevName AS STRING LEN CCDEVICENAME MEMBER nSpecVer AS _INT MEMBER nDrvVer AS _INT MEMBER nSize AS _INT MEMBER nDrvExtra AS _INT MEMBER nFields AS DWORD MEMBER nOrientat AS _INT MEMBER nPaperSiz AS _INT MEMBER nPaperLen AS _INT MEMBER nPaperWid AS _INT MEMBER nScale AS _INT MEMBER nCopies ...

... METHOD SetRDD( lAddColumns ) CLASS TXBrowse local oCol local cAlias, cAdsKeyNo, cAdsKeyCount local nFields, nFor DEFAULT lAddColumns := .T. if Empty( ::cAlias ) ::cAlias := Alias() if Empty( ::cAlias ) return nil endif endif cAlias := ::cAlias DEFAULT ...

... TXBrowse LOCAL oExcel, oHoja LOCAL nRow := 1, nCol,i,i2,nchoice:=1,lok:=.f. LOCAL cBuffer local cDBF LOCAL cValue LOCAL cTable LOCAL nHandle LOCAL nFields LOCAL nField LOCAL nPos ,ofont14,odlg2,cvaltype LOCAL aarray1 local Arry1:={},arry2:={},cfile1:="d:\aaa.dbf"+SPACE(15),arry3,cAlias1,utmpvar,utmpvar1 ...

... */ LOCAL oExcel, oHoja LOCAL nRow := 1, nCol,i,i2,nchoice:=1,lok:=.f. LOCAL cBuffer local cDBF LOCAL cValue LOCAL cTable LOCAL nHandle LOCAL nFields LOCAL nField LOCAL nPos ,ofont14,odlg2,cvaltype LOCAL aarray1 local Arry1:={},arry2:={},cfile1:="d:\aaa.dbf"+SPACE(15),arry3,cAlias1,utmpvar,utmpvar1 ...

... simplemente los grabo con el Update(). ----------------------------------------- METHOD Save() CLASS tAdoRs LOCAL oError LOCAL lResult LOCAL n, nFields LOCAL lChange := .F. LOCAL uBkMrk LOCAL cType lResult := .T. TRY if ::lNeedUpd if ::lBuffer for n := 1 to len( ::aBuffer ) if ::oRs:Fields(n-1):value ...