FiveTech Software tech support forums

... .T. oTagActual = oXmlIter:Next() If oTagActual != nil cTagName:= oTagActual:cName cTagData:= oTagActual:cData HEval( oTagActual:aAttributes, { | cKey, cValue | Guarda_XML_Valores( oDatos, cKey, cValue, oTagActual:cName ) } ) Else * Exit ///AQUI SE SALE Y YA NO CONTINUA ANALIZANDO Endif ENDDO ...

... oXmlDoc:oRoot ) oDatos:Blank() aDatos := {} DO WHILE .T. oTagActual = oXmlIter:Next() If oTagActual != nil HEval( oTagActual:aAttributes, { | cKey, cValue | Guarda_XML_Valores( oDatos, cKey, cValue,oTagActual:cName ) } ) Else Exit Endif ENDDO Pasa lo siguiente: Si el XML inicia como a continuacion, ...

... following way (also with relations). It works just like dbfs any changes needed in app code. See the code We will have another function adoseek(cKey) to build a recordset with the ckey expresssion as where clause and adoseek() to revert to the previous recordset. Its faster than the ado_seek() ...

... oRecordSet:Find( "NAME = 'whatever' ", , adSearchBackward) oRecordSet:Move(1) == lSoftSeek The remaining problem is when the cKey in dbseek corresponds to multiple fields but we dont have this case in our app :D

... ) __dbtotal(cFile,"DIA",aCampos ) __dbtotal(cFile,"FIELDNAME->DIA",aCampos ) __dbtotal(cFile,FIELDNAME->DIA,aCampos ) cKey:="DIA" __dbtotal(cFile,cKey,aCampos ) __dbtotal(cFile,&cKey,aCampos ) __dbtotal(cFile,&cKey.,aCampos ) y me da un resultado inesperado, ...

... a file, I get an error. I use: oDB:createIndex( "erfcit", "city",,, .t., 10 ) Which is a call to: METHOD createIndex( cTag, cKey, lUnique, lAscending, lMeter, nInterval, cMessage, cFor, cFor2 ) DEFAULT lUnique := .f., ; lAscending := .f., ; lMeter := .t., ; nInterval := MAX( ...

... lines of ini file. aIni := hb_IniRead( inifilename ) FOR EACH cSection IN aIni:Keys ? ? "Section [" + cSection + "]" FOR EACH cKey IN aSect:Keys ? cKey + " = " + aSect[ cKey ] NEXT NEXT Regards Dagia Yunus.

...     If oTagActual != nil         *MsgInfo( oTagActual:cName, oTagActual:cData )         HEval( oTagActual:aAttributes, { | cKey, cValue | MsgInfo( cKey, cValue ) } )      Else         Exit      Endif   End   FClose( hFile )return nil y este otro ...

... while .T. oTagActual = oXmlIter:Next() If oTagActual != nil MsgInfo( oTagActual:cName, oTagActual:cData ) HEval( oTagActual:aAttributes, { | cKey, cValue | MsgInfo( cKey, cValue ) } ) // AQUI POR EJEMPLO como haria para grabar un nuevo valor en oTagActual:cData ?? Else Exit Endif End FClose( ...

Con eagle1... lo hago así : Crea_Temporal_SSl(cCaPem+"\",@cKey,@cCert,@cCa) cKey := cCaPem+"\"+cKey cCert := cCaPem+"\"+cCert cCa := cCaPem+"\"+cCa TRY M->oServe1 := TMSConnect():New() M->oServe1:SetAutoError( ...

... oDlg se supone que debe en cada teclazo ir a la funcion "BuscaDato" para buscar y nada. Gracias. static function BuscaDato(oBUSCAR,aVent,cKey) local nSeekRec:=recno(),lDesp:=.t.,nSeekNvo,nOrdAnt MsgAlert(nKey) if GetAsyncKey(VK_BACK) cKey:=substr(cKey,1,len(cKey)-1) endif cKey:=left(cKey,len(cKey)-1) ...

... // Define the complete Array ( aTable2 ) from 3 Groups GET_KEYS(aArray1, aArray2, aArray3) IF ( nAt := AScan( aTable2, { | a | ALLTRIM(cKey) == SUBSTR( ALLTRIM( a[ 1 ] ), 1, nLen ) } ) ) != 0 nKey := ALLTRIM( STR( aTable2[nAt][2] ) ) ENDIF // Jump to the xBrowse Column and Row IF nAt ...

... > nDepth if oTagActual:Depth() == nDepth + 1 // MsgInfo( oTagActual:cName ) // Try this way too // HEval( oTagActual:aAttributes, { | cKey, cValue | _XmlParse( cKey, cValue, oTagActual:cName, @lPass, cSOurce+cFileName, @cEdiLog ) } ) _XmlParse( oTagActual:cName, oTagActual:cData, "", ...

... != nil _XmlParse( oTagActual:cName, oTagActual:cData, "", @lPass, cSource+cFileName, @cEdiLog ) HEval( oTagActual:aAttributes, { | cKey, cValue | _XmlParse( cKey, cValue, oTagActual:cName, @lPass, cSOurce+cFileName, @cEdiLog ) } ) ELSE EXIT ENDIF END FClose( hFile )

... != nil _XmlParse( oTagActual:cName, oTagActual:cData, "", @lPass, cSource+cFileName, @cEdiLog ) HEval( oTagActual:aAttributes, { | cKey, cValue | _XmlParse( cKey, cValue, oTagActual:cName, @lPass, cSOurce+cFileName, @cEdiLog ) } ) ELSE EXIT ENDIF END FClose( hFile )