oribeiro

A função SetTaskManager(.F.) nativa do FHW não funciona no Windows Server 2008 64 bits.

Pessoal, Tem como bloquear o acesso do usuário de terminal server ao gerenciador de tarefas usando (Ctrl+Shift+Esc) ? Achei uma função para isso em Delphi: http://www.planetadelphi.com.br/dica/7145/-bloquear-o-gerenciador-de-tarefas-(ctrl+alt+del-e-ctrl+shift+esc)- Alguém consegue fazer isso dentro do xHarbour? function BlockInput(ABlockInput: boolean): Boolean; stdcall; external 'USER32.DLL'; procedure TravaGT(SimNao: boolean); var reg: TRegistry; begin try reg := TRegistry.Create; with reg do begin RootKey := HKEY_CURRENT_USER; OpenKey('SoftwareMicrosoftWindowsCurrentVersionPoliciesSystem',true); //se não existir, é criada case SimNao of true: WriteInteger('DisableTaskMgr',1); false: WriteInteger('DisableTaskMgr',0) ; end; closeKey; end; finally reg.free; end; end;

Entendi que as cores não funcionam no Windows 10. Ainda assim essa opção de cToolTip com Array é ótima. Obrigado por compartilhar.

Criei a função abaixo para facilitar a migração para o uso de Array em vez de texto: Com a função eu uso: oBmp:cToolTip = OAToolTip( "Mensagem para o Hint." ) Mas se eu mudo as cores do nClrFore e nClrBack as cores não modificam nos balões. ********************************************************************************************* Function OAToolTip(cToolTipText, cHeader, nIcon, nClrFore, nClrBack, nWidth, nDelayInSeconds) ********************************************************************************************* // cToolTip := { cToolTipText, [cHeader], [Icon], [nClrFore], [nClrBack], [nWidth], [nDelayInSeconds] } Default cToolTipText := "" Default cHeader := "(OASyS) Informação:" Default nIcon := 0 Default nClrFore := CLR_WHITE // Não funciona Default nClrBack := CLR_HBLUE // Não funciona Default nWidth := nil Default nDelayInSeconds := nil // Não funciona if Empty( nIcon ) if "FECHA"$Upper(cToolTipText).OR."CANCELA"$Upper(cToolTipText) nIcon = 6 elseif "APAGA"$Upper(cToolTipText).OR."EXCLUI"$Upper(cToolTipText) nIcon = 5 else nIcon = 4 endif endif Return {cToolTipText, cHeader, nIcon, nClrFore, nClrBack, nWidth, nDelayInSeconds}

Muito legal essa opção, eu não conhecia. Obrigado. Testei essa função e não funcionou os parâmetros: nClrFore nClrBack nDelayInSeconds Você conseguiu utilizá-los?

Isso é possível. 1) Faça um arquivo de lote ( Exemplo: sistema.bat ) e coloque nele a chamada do seu sistema começando a linha com Start e terminando o arquivo com Exit, assim: c: cd\sistema start sistema.exe exit 2) Na configuração do Usuário no TS, na aba ambiente, em Iniciar o seguinte programa durante o logon, inclua esse arquivo de lote que você criou ( Exemplo: sistema.bat ). Só isso.

Obrigado Ariston, Vou estudar o seu código e colocar dentro do meu sistema. Um grande abraço.

Se puder, além de nos dar o peixe, nos ensine também a pescar. oscar.oasys@gmail.com

Obrigado Ariston, segue: oscar.oasys@gmail.com

Pessoal, Um cliente meu tem uma conta na localweb que envia 100 emails e para de enviar até passar uns 5 minutos, depois deixa enviar novamente. Ele ligou na LocalWeb e contratou um pacote de emails para mala direta com a capacidade de 10.000 emails por mês. O problema é que eles passaram um SMTP diferente e um USUÁRIO e SENHA também diferente. No OutLook dá para configurar, mas não sei como fazer no sistema. Exemplo de Configuração: Dados: pEmail := "financeiro@empresa.com.br" pSenhMail := "empresa1234@$" pSMTP := "smtp.empresa.com.br" pPortMail := 587 Dados Adicionais informados pelo LocalWeb (No OutLook esses dados ficam na ABA "Servidor de saída requer autenticação"): xSmtp := "smtplw.com.br" xUser := "usuario" xSenha := "ZZMbXYPVD1234" Onde informo esses dados adicionais nos Schemas Microsoft que uso para envio de email?

Certo. Vou aguardar. Obrigado

Muito bom saber que esse assunto está andando. Vamos tentar montar exemplos de NFe com as libs.

O ACBr lançará oficialmente amanhã uma biblioteca que pode ser agregada ao sistema sem a necessidade do uso do monitor. Acredito que, com ela, será possível o próprio sistema configurar as pastas dos arquivos e certificado digital que será utilizado por cada empresa sem a necessidade de se instalar vários monitores ACBrs. Parece muito interessante! Se quiser ir se familiarizando, veja o link: https://acbr.sourceforge.io/ACBrLib/BemVindo.html Exemplos de programação de SAT usando a biblioteca: http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/Harbour/Sat/

Resolveu ADutheil. Era exatamente o que eu precisava. Muito obrigado.

Com When funciona bem essa sugestão, mas quando o botão está com oBtn:Disable() não consigo saber. João, meu interesse nessa função é em habilitar um segundo botão apenas se o primeiro estiver habilitado, por isso é que eu procurei uma função do próprio botão que indique a sua condição. Algo mais ou menos assim: If (oBtn1:Enable) // <- Procuro essa opção no ButtonBtn oBtn2:Enable() else oBtn2:Disable() endif

Pessoal, Congelo um botão ButtonBtn com duas opções: (1) oBtn:Disable() ou (2) usando o WHEN .F. Existe alguma forma de saber via programação se o botão está desabilitado?

Me cadastrei e dei uma olhada no site. O serviço me interessa. Você tem um exemplo de integração usando Fivewin + xHarbour?

Certo João, A função NFe_ChecaPortal( cChave, 2 ) deu certinho para a consulta. Obrigado.

João, Essa função está baixando o XML no seu sistema? Testei aqui e não consegui faze-la funcionar. As vezes dá um erro "Desctuctor disabled! Destrctor of class: TOLEAUTO can´t be executed." e daí fecha o programa.

E você tem as rotinas de Manifestação da NFe usando UNINFe ?

Obrigado pela dica.

João, Eu uso esse software somente para instalar os executáveis e as bibliotecas necessárias para rodar o sistema. O meu executável é que verifica se o banco de dados existe ou não, verifica se houve alteração no layout das tabelas, etc. Mas eu acho que o que você quer está na última aba do instalador chamada "Outros". Lá atem origem, destino e o que fazer se existir. Se não conseguir com essa versão, baixe a versão mais recente desse utilitário que ela está bem mais completa. Sucesso!

Ariston, Estou pensando em desenvolver esse módulo. Se desejar podemos trabalhar juntos nele. Acho que podemos começar pela rotina que você postou no tópico:

Ariston, Estou precisando dessa rotina para Manifestar e fazer o Donwload do XML dos fornecedores. Você pode me ajudar? Compilei o seu exemplo acima mas faltam quatro funções: R_CNPJLIENAR() ACBR_NFE_MODELO() ACBR_NFE_DOWNLOADNFE() ACBR_NFE_ENVIAEVENTO()

Uso a anos o CreateInstall que é leve, simples e eficiente. https://www.createinstall.com/