sambomb

Já consegui uma vaga, obrigado a todos que enviaram mensagens 

Olá meu povo, estou disponível para trabalhos, desejo recolocação no modelo home office ( possuo local e máquina adequada já )
Em anexo deixo meu cúrriculo vitae.

 

CV - Samir Sardinha.pdf

Você pode fazer uma função para mover os botões com base em um array, algo tipo isso:

 

Local aMesas := {}, nMargemHorizontal := 0, nMargemVertical := 0, nAltura := 0, nLargura := 0
Local nPosX := 0, nPosY := 0

aAdd(aMesas,{.T.,oBtn[1]})
aAdd(aMesas,{.T.,oBtn[2]})
aAdd(aMesas,{.F.,oBtn[3]})
aAdd(aMesas,{.T.,oBtn[4]})

nMargemHorizontal := 8
nMargemVertical := 8

nPosX := nMargemHorizontal
nPosY :=  nMargemVertical

nLargura := 60
nAltura := 60

For i := 1 to Len(aMesas)

   if (aMesas[i,MESA_ATIVA])

      aMesas[i,MESA_BOTAO]:Enable()
      aMesas[i,MESA_BOTAO]:Show()

      If ( nPosX + nLargura ) > oDlg:nWidth
         
         nPosY += nAltura + nMargemVertical
         nPosX := nMargemHorizontal
         
      end
      
      aMesas[i,MESA_BOTAO]:Move( nPosY, nPosX, nLargura, nAltura, .T. )
      nPosX += nLargura

   else

      aMesas[i,MESA_BOTAO]:Disable()
      aMesas[i,MESA_BOTAO]:Hide()

   end

   aMesas[i,MESA_BOTAO]:Refresh()

end

Crie todos os botões que precisar e vai exibindo/escondendo conforme precisar

 

Se vc nao usa SQLRDD a migração é tranquila, talvez seja necessário só compatibilizar algumas funcoes.... Agora se usa SQLRDD esqueça, pq essa RDD não tem para Harbour

Pior que um dos projetos utiliza....

Bom dia, fiz o sugerido de chamar o Garbage Colector antes do procedimento e não resolveu, alguém tem outra sugestão?

Sou o mais novinho pelo visto, programador desde 2008 

 

Aunque utilizo harbour, xHarbour ( solo para generar librerias compatibles ), habitualmente utilizo Harbour con Borland y VS 2015/2017

Mi programa FivEdit está construído con Harbour y VS sin problema

Me gusta utilizar Harbour con VS, es muy estable

Harbour com BCC? 
Já tem para o 18.1?

 

Se Vc não usar funções especificas do xHarbour não deve ter ter problema. Trabalho com MSVC 2017 e funciona perfeitamente.

Nem sei dizer quais são as especificas, tem alguns exemplos?

Estou pensando em migrar do fivewin 10.6 com xHarbour e BCC para Fivewin 18.1 com Harbour e MSVC.

Quais os principais empecilhos? Alguma dica para fazer esse processo?

Alguém já conseguiu compilar com o Visual Studio ?

 

Eu faria assim, só que não...

 

	
   HB_GCALL( .F. )
	   do while .t.
	       nTentativas++
	       nRet := ::oNFEUtil:PegaNomeCertificado( @Nome, @Mensagem ) //<<<-- Erro acontece nessa linha
	       if nRet <> 5402
	          if nTentativas >= 3
	             if pubLog; LogEvents( "PegaCertificado(): esgotadas as 3 tentativas para selecionar." ); end
	                ::GeraLog( Mensagem )
	                lRet := .f.
	                if ::lMensagem
	                   #IFDEF __DOS__
	                      Alert( hb_ansitooem(Mensagem+"-"+ProcName()) )
	                   #ELSE
	                      //MsgStop( Mensagem + CRLF + ProcName(), CAPTION_MSG )
                      MsgStop( Mensagem + CRLF + ProcName() + CRLF + CRLF + "Esgotadas as 3 tentativas para efetuar a selecionar.", CAPTION_MSG )
	                  #ENDIF
	             endif
	             exit
	          else
	             SYSREFRESH()
	             loop
	          endif
	       else
	          ::cCertificado := Nome
	          SYSREFRESH()
	          exit
	       endif
	   enddo
	

Vou tentar Kapiaba, valeu

 

Você acessou o ecac da receita federal, para ver se o certificado está funcionando?

Se não estiver, o problema é do certificado.

E quando acontece isso comigo, eu peço pro pessoal da empresa que vendeu o certificado, pois eles acessam online e verificam o que está acontecendo.

 

Eu consigo fazer algumas vendas, o erro é esporádico.
Acredito que um erro no certificado iria impedir todas as vendas

 

Com você está fazendo a chamada? Tem WHILE... ENDDO? Já tentou com um MSGRUN(...) Sem ver o código, fica dificil. Talvez, falte um HB_GCALL(  .F.  ) ou um SYSREFRESH() no local.  Tem algo errado na função ou a máquina tem pouca memórai. Em rWindows 10 de 64 Bits, o minimo é: 8 GBs de RAM ou mais.... Abs.

do while .t.
	nTentativas++	
   nRet := ::oNFEUtil:PegaNomeCertificado( @Nome, @Mensagem )//<<<-- Erro acontece nessa linha

	if nRet <> 5402
		if nTentativas >= 3
			if pubLog; LogEvents( "PegaCertificado(): esgotadas as 3 tentativas para selecionar." ); end
			::GeraLog( Mensagem )
			lRet := .f.
			if ::lMensagem
				#IFDEF __DOS__
					Alert( hb_ansitooem(Mensagem+"-"+ProcName()) )
				#ELSE
					//MsgStop( Mensagem + CRLF + ProcName(), CAPTION_MSG )
					MsgStop( Mensagem + CRLF + ProcName() + CRLF + CRLF + "Esgotadas as 3 tentativas para efetuar a selecionar.", CAPTION_MSG )
				#ENDIF
			endif
			exit
		else
			loop	
		endif
	else
		::cCertificado := Nome
		exit	
	endif
enddo	

https://uploaddeimagens.com.br/imagens/paroudefuncionar-png

Print do erro.

Windows, postei um print, não apareceu ae no post não?

Obrigado pela resposta.
Acredito que o problema que está se referindo é um pouco diferente do meu, o erro no meu caso é esporádico, não cessou totalmente de funcionar o certificado.
Algumas vezes ao dia, a abertura do certificado causa o problema de "sistema parou de funcionar".

Boa tarde a todos.
Estou com um problema muito difícil de identificar.
A aplicação em alguns clientes windows 10, no momento de obter a lista de certificados digitais presentes na máquina exibe a mensagem que o aplicativo parou de funcionar.

O erro é esporádico, não ocorre todas as vezes.
Já validei antivirus, warsaw, gas, DEP do windows, permissão de administrador.
Reinstalei toda a cadeia de certificados.

O erro ocorre 1 ou 2 vezes por dia.

Consegui já, muito obrigado a todos.

 

10.6, seria junho de 2010? Se for, vai ser dificil.

Sim, sei que é difícil... Nem o Gilmer tem

Alguém possui o instalador da versão 10.6 ainda?

Eu já tenho essa versão e conferi com o Gilmer, mas ele não tem mais.

Preciso para poder verificar os ajustes que eu fiz nos meus arquivos para replicar na versão mais nova

Pode pegar a posição e tamanho da janela principal e as dimensões da janela filha para poder calcular.

 

Jesus, desanimei na hora:

 

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=29861&p=169813&hilit=VisualStudio+con+MSVC#p169813

Eu tinha visto mas ta muito bagunçado e queria uma opinião dos demais.

 

Las ultimas versiones, entre ellas la versión que está a punto de salir, está construida también con VSC 2017

Mi programa FivEdit, utiliza Visual Studio para construirse

Siempre ha sido mi recomendación utilizar VS, y más ahora que las versiones Community son gratuitas

 

Gracias por la respuesta, podría publicar un ejemplo?

Bom dia a todos!
Estou pretendendo atualizar para a versão mais recente do fivewin
Alguém compila usando o VisualStudio com MSVC? 

 

 deixar as recomendações das competências pertinentes  

???? O que queres dizer com isto? Não entendi Samir.  Abs.

No perfil do LinkedIn tem uma área referente as competências, que devem ser indicadas por terceiros.

Quem aqui usa LinkedIn?
Segue meu perfil https://www.linkedin.com/in/samir-sardinha-53b0a7130
Agradeceria aos colegas do fórum que possam deixar as recomendações das competências pertinentes.

Deixem seus perfis aqui também