FiveTech Software tech support forums

... nil Static Function Averba() LOCAL oUrl, oCli LOCAL hQUery := Hash() TRY oUrl = TUrl():New( 'https://apis.averbeporto.com.br/php/conn.php' ) CATCH CurSorArrow() MsgInfo('Conection Error','Erro') RETURN(.F.) END IF !EMPTY( oUrl ) oCli = TIPClientHttp():New( oUrl ) IF !EMPTY( oCli ) oCli:nConnTimeout ...

... nil Static Function Averba() LOCAL oUrl, oCli LOCAL hQUery := Hash() TRY oUrl = TUrl():New( 'https://apis.averbeporto.com.br/php/conn.php' ) CATCH CurSorArrow() MsgInfo('Conection Error','Erro') RETURN(.F.) END IF !EMPTY( oUrl ) oCli = TIPClientHttp():New( oUrl ) IF !EMPTY( oCli ) oCli:nConnTimeout ...

... a different new parameter to use https? Thank you again. Code below: TRY oUrl = TUrl():New( 'https://apis.averbeporto.com.br/php/conn.php' ) CATCH CurSorArrow() MsgInfo('Erro ao criar a conexão','Erro') RETURN(.F.) END IF !EMPTY( oUrl ) oCli = TIPClientHttp():New( oUrl ) IF !EMPTY( oCli ) oCli:nConnTimeout ...

... how to rewrite this routine using hbcurl? Thanks in advance. TRY oUrl = TUrl():New( 'https://www.averbeporto.com.br/websys/php/conn.php' ) CATCH CurSorArrow() MsgInfo('Erro ao criar a conexão','Erro') RETURN(.F.) END IF !EMPTY( oUrl ) oCli = TIPClientHttp():New( oUrl ) IF !EMPTY( oCli ) oCli:nConnTimeout ...

Hi, I have this code to conect: TRY oUrl = TUrl():New( 'http://www.averbeporto.com.br/websys/php/conn.php' ) CATCH CurSorArrow() MsgInfo('Erro ao criar a conexão','Erro') RETURN(.F.) END IF !EMPTY( oUrl ) oCli = TIPClientHttp():New( oUrl ) IF !EMPTY( oCli ) oCli:nConnTimeout = -1 ...

Buenas
Alguien tiene una lista ( o puede completar esta), de los tipos de cursores ?

CursorWait()
CursorArrow()
CursorHand()

.....


Gracias

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

... session not successfully initialized, aborting...") oOdbc:End() return nil Endif CursorWait() aFiles := oOdbc:GetTables("*", .F. ) CursorArrow() if len(aFiles) == 0 MsgAlert("There are not tables on that database, aborting...",; "ODBC Table selection") oOdbc:End() ...

James Bott wrote:2) Maybe try adding a sysrefresh() right after CursorWait()

James, if I'm not mistaken a sysrefresh() will cancel out CursorWait(). It would be like calling CursorArrow(). In fact any update to the screen will cancel out CursorWait()

Tim, 1) Step 3 is calling cursorArrow() somewhere, directly or indirectly. To confirm this try changing your cursorArrow() to cursorHand() and then see if it changes back to an arrow. If it does, then try searching your step 3 code, but ...

Tim: mi experiencia con cursorwait(), cursorarrow()... al utilizarlos como mencionas:    cursorwait()   oDbf  := oApp:oConnect:Query("SELECT LOTE,CSG,GPROD,ESPECIE,NOMESP,VARIEDAD,NOMVARI,SUM(BINS),SUM(TOTEMS),SUM(KNETOS) ...

... section in a separate function and use MessageWait( ) to show what is happening. I prefer not to do that if possible 2) Use CursorWait( ) and CursorArrow( ) in line to show that work is taking place. Unfortunately the CursorWait( ) function is not changing the cursor Here are the steps: 1) ...

... nEle ] )),; 'no será enviado, no existe'}) endif Next If ! Empty( cBCC ) :BCC := AllTrim( cBCC ) EndIf :Send() End With CATCH oError Eval(bMens) CursorArrow() MsgInfo ( "Error envio de EMail" + CRLF + ; "Remitente: " + AllTrim( cFrom ) + CRLF + ; "Destinatario: " ...

... 1 To Len( aAttach ) :AddAttachment := AllTrim( aAttach[ nEle ] ) Next If ! Empty( cBCC ) :BCC := Trim( cBCC ) EndIf :Send() End With Catch oError CursorArrow() Eval(bMens) MsgStop( "No se pudo enviar el e-mail") oCfg := Nil oMsg := Nil Return .t. End Try oCfg := Nil oMsg := Nil SndPlaySound( ...

... he modificado la clase TBITMAP para utilizarla como un botón sensible al ratón, es decir que cuando el cursor pasa por encima del control pasa de CursorArrow() a CursorHand() y cambio el bitmap, cuando dejo de estar sobre el control, el cursor vuelve a CursorArrow() y recupero el bitmap original. ...