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

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

Harbour com BCC? Já tem para o 18.1?

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 consigo fazer algumas vendas, o erro é esporádico. Acredito que um erro no certificado iria impedir todas as vendas

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.

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.

Eu tinha visto mas ta muito bagunçado e queria uma opinião dos demais. 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?

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