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?