FiveTech Software tech support forums

Olá Karinha,

Tenho um gif que não roda de jeito nenhum com a TGif. Ao executar, ele sai do sistema sem gerar nenhuma mensagem. Vou verificar com quem fez o gif se ele atende as especificações citadas pelo Antônio Linhares acima.

Obrigado pela atenção.

Oliveiros Junior

... CurSorArrow() oCli:Close() MsgBeep() MsgAlert("Não foi possível conectar ao site de averbação!","Atenção") Return .f. Endif // Faz o upload do xml para averbação oCli:Close() oCli = TIPClientHttp():New( oUrl ) IF !EMPTY( oCli ) oCli:nConnTimeout ...

... "c:\windows\system32", 0) catch end if nRetorno <= 32 MsgStop('Não foi possível desativar o firewall, retorno: '+HB_NToS(nRetorno), 'Atenção!') endif Bira bom dia, me explique, motivo, razão ou causa, para o FireWall bloquear o envio de um simples e singelo email? E por qual motivo, ...

... "c:\windows\system32", 0) catch end if nRetorno <= 32 MsgStop('Não foi possível desativar o firewall, retorno: '+HB_NToS(nRetorno), 'Atenção!') endif

... o que fazer, nesse final de semana vou ver se refaço os passos porque posso ter errado em alguma coisa. Mas acho que não foi isso. Obrigado pela atenção. :)

Estou precisando abrir arquivos de imagem DICOM, são imagens utilizadas na medicina : tomografia/RaioX/Resonancia,
Alguem com experiencia no assunto ??

Obrigado pela atenção e colaboração de todos

... User cUsrAdm PassWord cPasAdm DB cDtaBas If oDba == Nil oDba:ShowError() MsgAlert("Não foi possível acessar o BD da aplicação","Atenção") Return(.f.) EndIf oDba:SelectDB(cDtaBas) oDba:lShowErrors(.t.) oDba:SetAutoCommit(.t.) ... ... // criar sql oPes := oDba:RowSet( "select ...

... ExecutaComando( cArquivoBAT, cComando ) /* */ if !CriaArquivoBatLocal( cArquivoBAT, cComando ) MsgStop('Não foi possível criar o arquivo !', 'Atenção!') else WaitRun(cArquivoBAT,.f.) endif Ferase(cArquivoBAT) return /******************************************************************************/ ...

... endif return endif if !Empty(cPlanilha) .and. !File(cPlanilha) MsgStop('Planilha informada não foi localizada. Verifique!', 'Atenção!') return endif TRY oExcel := CreateObject( "Excel.Application" ) CATCH oError RetornaErrorTryCatch( oError, 'PLANILHA EXCEL' ) Return ...

... 0 ) nId:= GrIdentify( Personal->Huella, @nIdScore , 0 ) ? nId é sempre 0 Zero IF nId = 1 // Ok msgwait("Digltal encontrada!","Atenção",1) ELSE msgwait("Digital não encontrado!","Atenção",1) ENDIF ** oU nId:= GrVerify( cTemplate , Personal->Huella, ...

... endif return endif if !Empty(cPlanilha) .and. !File(cPlanilha) MsgStop('Planilha informada não foi localizada. Verifique!', 'Atenção!') return endif TRY oExcel := CreateObject( "Excel.Application" ) CATCH oError RetornaErrorTryCatch( oError, 'PLANILHA EXCEL' ) Return ...

... +CRLF+ ; "SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ; "Mensaje: " + oError:Description, "Atenção" ) lRet := .f. END if lRet lRet := Envia_Mail(oCfg,cRemt,cDest, cCC, cCCO, cTxt, cSubject, cAttach) endif Return lRet ******************************************************************************** ...

... +CRLF+ ; "SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ; "Mensaje: " + oError:Description, "Atenção" ) END //////////////////////// cTo := Destinatarios( cTo ) //--> PARA cCC := Destinatarios( cCC ) //--> COM COPIA cBCC := Destinatarios( ...

... compilado com o RMake e Borland? 3) No pacote vem exemplos como no FWH? 4) Qual biblioteca MySQL pode ser usada com o FIVEMAC? Desde já agradeço a atenção de vocês e de outros que puderem ajudar. Att., Oliveiros Junior

sorry I found the error ::aStrings := { ; { "Attention" , "Atención" ,"Attention" ,"Atenção" ,"Achtung" , "Attenzione" },; { "Language" , "Lenguaje" ,"Language" ,"Language" ,"Language" ...