tiaoFW

Li o artigo que você postou e parece ser problema nesse software da Gas Tecnologia. Nada indica que seja problema em nossos exes, ja que funciona normalmente em computadores sem esse aplicativo de segurança. Abraços.

Oi Everton. Bom dia. Creio que esse FastReport não é o que nós utilizamos e que foi adaptado para Fivewin/Xharbour. Att.

Bom dia. Mas uma questão, o problema esta no Programa da Gas Tecnologia ou em nossos sistemas? Porque se for no nosso temos que resolver, se for no deles eles tem que dar solução. Nâo acham? Abraços.

Boa tarde. Isso tem acontecido aqui comigo tambem, de repente os gets ficam em branco, os botôes somem, vou tentar reparar quando isso acontece. Att.

Por nada! Inté+

Bom dia! Segue exemplo: aIBPT := Directory(alltrim(v_dirserver)+"\IBPT\*.CSV" ) if len(aIBPT) > 0 SELE aibpt zap cArqIBPT := alltrim(v_dirserver)+"\IBPT\"+aIBPT[1,1] APPEND FROM &cArqIBPT DELIMITED WITH ( { '"', ";" } ) DELE ALL FOR "CODIGO"$UPPER(CODIGO) PACK ferase(cArqIBPT) endif Abraços.

Bom dia. Recompilei nosso sistema aqui nessa nova versão e aparentemente funcionou perfeitamente. Apenas reparei até o momento que a função abaixo foi corrigida e agora retorna o numero de linhas do arquivo de forma correta, veja: function leTXT() local cFile := localexe+"SALC.INI", aLines := {}, nLine := 0, nCount := 0, nFile := 0 nFile := HB_FUse( cFile, 2 ) nCount := HB_FLastRec() // + 1 // antes era necessário acrescentar uma linha. aLines := Array( nCount ) DO WHILE ++nLine <= nCount aLines[ nLine ] := HB_FReadAndSkip() sysrefresh() ENDDO HB_FUse() return(aLines)

Boa tarde Kleyber e a todos. Acho que o que temos é uma discrepância entre o que nós brasileiros queremos e o que os europeus, americanos e asiátícos querem em termos de soluções de software para a labuta diária. Você citou vários projetos que não foram pra frente, dentre eles alguns que aparentemente o Linhares estava correto em não investir, pois a realidade mostrou isso. Mas acho, como disse anteriormente, que devemos apostar em alguma solução que possa atender a necessidade da maioria, infelizmente não é possível atender a todos. Penso que ele (Linhares) deveria fazer uma pesquisa de mercado para ver o que a maioria necessita e ai sim seguir o caminho apontado. Será que ele esta pensando nessas soluções sem ouvir o mercado? Creio que seja improvável. Abraços.

Bom dia Kleyber, A questão é justamente essa, se nós que somos os principais interessados não acharmos vantagem em usar fica claro que o projeto estará fadado ao fracasso. A questão é, porque não usariámos? Acho que temos aqui um círculo contraproducente para nós mesmos que amamos o dialeto xBase. O Linhares tem a idéia, começa o projeto, espera o apoio dos usuários, usuários não apoiam, Linhares desiste e assim vamos. Acho que precisamos quebrar esse círculo vicioso. A mim parece que pelo menos na Europa, Asia e EUA os usuários FIVEWIN estão mais otimistas e apoiando as idéias do Linhares. É isso que penso. Abraços.

Bom dia. Antes de dar minha opinião peço que alguém que tenha melhor conhecimento possa nos dar uma idéia do que tal ferramenta (FIVETOUCH) poderia nos ajudar no nosso dia-a-dia. Tendo essa idéia formada poderíamos apoiar o Linhares em seu projeto e fazer com isso se torne realidade. Não temos nada a perder e muito a ganhar! Abraços a todos.

Tentem novamente em 2018! Acho que quem esta comendo pela mão dos outros são aqueles que acreditam em tudo que a imprensa marrom pública. Cada um come pelas mãos de quem lhe é mais conveniente, não é mesmo? No meu caso como pelas minhas próprias mãos, com meu trabalho e minha capacidade, claro também com a ajuda de muitos aqui do forum e fora dele. Leia "As veias abertas da América Latina" de Eduardo Galeano e talvez você possa entender um pouco do nosso processo civilizatório. Ou Darci Ribeiro. Mas por favor não entre na onda de Golpistas, vimos o que deu o golpe de 64, muita gente morta, torturada, famílias destruídas, mas claro, para quem é de direita isso não tem a mínima importância, desde que se mantenha o STATUS QUO. Encerro aqui minha participação nesse infeliz tópico o qual não esperava ver num forum que tanto prezo. Abraços fraternos.

http://www.conversaafiada.com.br/tv-afiada/2014/10/23/jovens-da-bahia-cant%E2%80%8Bam%E2%80%8B-o-jingle-de-dilma-lindo/ Uma musica para relaxar os tucanos.

Não quero começar nenhuma treta sobre guerrinha política de novo, mas fala sério, isso aqui é muito engraçado! 59.689 Visualizações MUDA MAIS ES ELEITOR DE AÉCIO EXPLICANDO OS MOTIVOS PARA VOTAR EM AÉCIO Sensacional!!! Supera qualquer vídeo de comédia da "Porta dos Fundos". Realmente hilário ver um eleitor de Aécio em ação. Compartilhe sem moderação.

Vamos fazer um também pra eles? http://www.cartamaior.com.br/?%2FEditoria%2FPolitica%2F14-escandalos-de-corrupcao-envolvendo-Aecio-o-PSDB-e-aliados%2F4%2F32017 Att.

A raiva deles do nordeste vai durar até o carnaval!

http://charges.uol.com.br/

Claro que não sustentam Kabiaba, mas eles acham que sustentam esse páis! Na realidade quem sustenta esse país são os trabalhadores, com seu sangue, suor e lagrimas! Como disse acima, a elite branca, rica, racista e facista não aceita o contrário. Engraçado que eles falam em ditadura do PT mas não falam nada da ditadura dos Tucanos em SP. http://www.cartacapital.com.br/politica/bolsa-familia-11-anos-e-11-conquistas-4636.html?utm_content=buffer57d0a&utm_medium=social&utm_source=twitter.com&utm_campaign=buffer

Esse vídeo mostra bem o recalque esse povo sente em relação a vitória de Dilma:

Os reacionários estão soltos novamente, eles não admitem dividir o mesmo espaço com os pobres e desvalidos. DILMA NELES!

Vamos trabalhar tucanada, parem com a choradeira, vocês é que sustentam esse país!

É sempre triste perder um colega de profissão. Meus sentimentos aos familiares.

Otimo. Parabens!

Uso o xharbour que vem com o fivewin, atualmente uso o FWH 13.12. No caso: xHarbour 1.2.3 Intl. (SimpLex) (Build 20130903) Copyright 1999-2013, http://www.xharbour.org http://www.harbour-project.org/ Como testo a função a cada nova versão que lanço creio que esta funcionando perfeitamente. Sim, minha função creio não ter mudado, vou postar aqui novamente para vc comparar: PegaPeso(@vpeso_balanca) Static Function PegaPeso(vpeso_balanca) LOCAL Warea := select(), retorno := .t., vpeso := 0 private nMarca, nComm := 0, cPorta, vlc, ret := .f. private prtvlc, cParid, nBdado, nBpara, nTamStrP, nTamRet sele abalanca nMarca := MARCA cPorta := "COM"+str(PORTA_SER,1) vlc := VELOCIDADE cParid := PARIDADE nBdado := BITS_DADOS nBpara := STOP_BITS nTamStrP := TAM_STRING nTamRet := TAM_RETORN cstring_p := STRING_P select (Warea) sysrefresh() Do While .t. vpeso := 0 if !Ativar_Porta(cPorta, vlc, nBdado, cParid, nBpara) retorno := .f. exit endif BytesAtPort( nComm, @vpeso ) Fecha_Porta(nComm) IF ret vpeso_balanca := vpeso Exit ELSE erro("A Balança não está emitindo sinal de retorno!") Exit ENDIF sysrefresh() ENDDO return(retorno) static Function Ativar_Porta(vPor_,vVel_,vBit_,vPar_,vSto_) Local vRetApc := .F. Fecha_Porta(nComm) // Fecha a porta caso esteja aberta nComm := Init_Port(vPor_, vVel_, vBit_, vPar_, vSto_, if(nMarca == 3, 46, 20)) If nComm > 0 .and. IsWorking(nComm) vRetApc:=.T. Else erro("Porta Desconectada!"+CRLF+"Erro ao Abrir a Porta Serial "+vPor_) EndIf Return(vRetApc) //---------------------------------------------------------// static function BytesAtPort( nStatus, vpeso ) local cBuffer := space(20), cvar := "", vTenCom := 0, vbytes := 0 IF nStatus = 0 erro( "Nao Existe Comunicação com a balança!") ENDIF //InBufClr(nComm) // Limpa Buffer Entrada OutBufClr(nComm) // Limpa Buffer Saida sysrefresh() cBuffer := if(nTamRet == 1 .or. nTamRet == 0, space(20), space(nTamRet)) cvar := "" do while empty(cbuffer) //InBufClr(nComm) // Limpa Buffer Entrada OutBufClr(nComm) // Limpa Buffer Saida // OutChr(nComm, if(nMarca == 3, chr(04), Chr(05))) // Envia Dados sysrefresh() do While .t. cBuffer := if(nTamRet == 1 .or. nTamRet == 0, space(20), space(nTamRet)) //InBufClr(nComm) // Limpa Buffer Entrada OutBufClr(nComm) // Limpa Buffer Saida OutChr(nComm, if(nMarca == 3, chr(04), Chr(05))) // Envia Dados sysrefresh() syswait(.3) sysrefresh() If (vbytes := InbufSize(nComm)) > 0 // Ler o Buffer da Serial InChr(nComm, vBytes , @cbuffer) // Recebe Dados EndIf sysrefresh() If vTenCom > 3 cbuffer := "ER" Exit EndIf vTenCom++ if len(alltrim(cbuffer)) # 0 exit endif sysrefresh() enddo sysrefresh() //InBufClr(nComm) // Limpa Buffer Entrada OutBufClr(nComm) // Limpa Buffer Saida sysrefresh() if cbuffer == "ER" ret := .t. erro("Tempo máximo para captura do peso atingido!"+CRLF+ ; "Retire e Coloque o produto na balança!") exit endif cbuffer := strtran(cbuffer, chr(02), "") cbuffer := strtran(cbuffer, chr(03), "") cbuffer := strtran(cbuffer, chr(27), "") if nMarca # 3 if !empty(cstring_p) cbuffer := substr(cbuffer, at(alltrim(cstring_p), cbuffer)+len(alltrim(cstring_p))+1, nTamStrP) else cbuffer := substr(cbuffer,1,nTamStrP) endif else if !empty(cstring_p) cbuffer := substr(cbuffer, at(alltrim(cstring_p), cbuffer)+len(alltrim(cstring_p))+1, nTamStrP) else cbuffer := substr(cbuffer,42,nTamStrP) endif endif cbuffer := alltrim(cbuffer) cvar := cBuffer if empty(cvar) loop endif if at(".", cvar) # 0 .or. at(",", cvar) # 0 if at(",", cvar) # 0 cvar := strtran(cvar, ",",".") endif vpeso := VAL(cVar) else vpeso := VAL(cVar) / 1000 endif IF vpeso > .002 ret:=.t. exit ENDIF cBuffer := if(nTamRet == 1 .or. nTamRet == 0, space(20), space(nTamRet)) sysrefresh() enddo return nil Function Fecha_Porta(nComm_) If !Empty(nComm_) UnInt_Port(nComm_) // Fecha a Porta EndIf sysrefresh() Return(.T.)

Bom dia. Tente essa: http://www.salc.com.br/atual/hbcomm.lib Att.

Bom dia. Tente essa: http://www.salc.com.br/atual/hbcomm.lib Att.