FiveTech Software tech support forums

... un el registro Regresa: .t. si se pudo bloquear el registro .f. no se logro el bloque o cancelacion de la operacion */ LOCAL lVret := .F.,; lError := .T.,; nTimer DEFAULT nSecs := 5 DEFAULT lEspera := .T. nTimer := SECONDS() + nSecs DO WHILE lError (cAlias)->(DBAPPEND()) lError := NETERR() ...

Dear All, I use TMySql() and ::Query() will return ::lError when internet has down. The error message is "MySql server has gone away". When the Internet connection has recovery, the ::Query() always return ::lError ("MySql server has ...

... stored Recordset. Used with Recordset.Open or Requery only. #define adCmdTableDirect 512 class tSQLite data oConn // Conexion con la BBDD data lError init .f. data nError init 0 method new(cDatabase) constructor method Query(cSQL) method Execute(cSQL) method GetValue(oRs,cItem) method end() ...

I think you cannot avoid them. The compiler is warning you that you are assigning

lError = ...

while it thinks that you did mean

lError == ...

but it's not what you want to do as you're intentionally doing an assignment.

EMG

... ISADMIN ){  HANDLE hToken;  PTOKEN_GROUPS pGroupInfo;  DWORD dwSize = 0, dwResult;  DWORD nError = 0, i;  BOOL lError, lAdMin = FALSE;  LPSTR cFunc = "";  PSID   psidAdmin;  CHAR cMess[200];  SID_IDENTIFIER_AUTHORITY ...

... v != odb1:centerid,; (if(odb1:EOF(),; (odb1:centerid:=v,odb1:enddate:=CTOD("2999.12.31"),odb1:APPEND(),obrow1:refresh(),if(!oserver:lerror,obrow1:SEEK(v),msgstop("编码重复！","停止"))),; (centerid1:=odb1:centerid,odb1:centerid:=v,odb1:save(),obrow1:refresh(),if(oserver:lerror,(msgstop("编码重复或者单据已经使用而不能更改！","停止"),obrow1:SEEK(centerid1)),obrow1:SEEK(v)) ...

... LOCAL nLin := oQuery:lin oServer:Query("INSERT INTO gopmult (lin) VALUES ('"+cValToChar(nLin)+"')") if oServer:lError MsgInfo(oServer:Error) endif oQuery:Refresh() oLbx:Refresh() //Cuando se insertan reg se duplica el no. de lin para que el indice lo coloque ...

... NO EXISTE LA COLUMNA cCta. Estoy de acuerdo, MySql asi lo toma. //Entonces, ¿ como puedo ejecutar la sentencia utilizando una variable? if oServer:lError msginfo(oServer:Error) endif NEXT Agradezco de antemano.

Uso Esta Sintaxis pero no me genera el numero error y se bloquea. xTRY RETRY INI TO oTry Codigo Uso Ado xTRY RETRY END IF oTry:lError() oTry:SaveError() oTry:MsgErrorUsuario("Fichero no pudo ser copiado !") ENDIF Con esta sintaxis no se bloquea. pero no me muestra la linea del ...

... TRY END para proteger los CATCH; es decir: Modo normal es TRY x:= y CATCH TRY x:= z END END Modo nuevo es xTRY INI TO oTry x:= y xTRY END IF oTry:lError() XTRY INI TO oTry x:= z XTRY END ENDIF ////////////////////////////////////////// xTry.Prg              eXtended Try//////// NOTA:// ===========================================================// ...

... oADOCatalog:= TOLEAUTO():New("ADOX.Catalog") oConexion:ConnectionString := xConnStr TRY oConexion:Open() lError:=.T. CATCH oError lRet:=.f. lError:=.f. MsgStop("No Hay Conexion Con El Servidor","Operación Cancelada") END RETURN lRet ...

... adjunto el codigo Utilizo xHarbour 10.4 y Fwh de abril del 2010 Gracias de antemano #include "fiveWin.ch" function fReadPort local cDcb, lError, nError local numero := space(8) cErrCode := space( 15 ) if !( gnCom := OpenComm( 'COM3', 1024, 256 ) ) == 0 *IF ! SetCommState( gnCom, cDcb ...

... NIL //----------------------------------------------------------------------------// METHOD EndPage() CLASS TDosPrn LOCAL nFor, nLen, nSec LOCAL lError ::Command(::cFormFeed) ::LastError := 0 IF fWrite(::hDC, ::cBuffer) < len(::cBuffer) ::LastError := fError() ENDIF ::cBuffer := "" ...

... NIL //----------------------------------------------------------------------------// METHOD EndPage() CLASS TDosPrn LOCAL nFor, nLen, nSec LOCAL lError * ::Command(::cFormFeed) ::LastError := 0 IF fWrite(::hDC, ::cBuffer) < len(::cBuffer) ::LastError := fError() ENDIF ::cBuffer := "" ...

Muy buenas foro, he realizado una pequeña funcion para que nos diga si es una DBF o no. function IsDBF(cFile) local xAlias,lError:=.f. try use &(cFile) alias xAlias lError:=.f. catch lError:=.t. end catch if !lError xAlias->(dbclosearea()) end if return !lError Un Saludo.