Jump to content
Fivewin Brasil

aferra

Membros
  • Posts

    3,691
  • Joined

  • Last visited

  • Days Won

    79

Everything posted by aferra

  1. segue a instrução http://www.flexdocs.com.br/guiaNFe/instala.registro.html
  2. boas pra todos, que tenham uma grande confraternização.
  3. kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk haja ciúmes, tem pros dois benhêêê kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk
  4. bem edu, acho que vc pode usar o valid para ajustar a mascara ou o on change , crie sua função da forma que desejar retorne a mascar o objeto do get para alterar a mascara em tempo de execução é esse <objeto>:oGet:Picture := "@R (99) 9999-9999" <objeto>:oGet:Picture := "@R (99) 99999-9999" <objeto>:oGet:Picture := "@R (99)99999-9999" <objeto>:oGet:Picture := "@R 99-99999.9999" espero ter ajudado.
  5. Bom, peguei o que aokisantos postou e está perfeito para o harbour, para xharbour precisa alterar essas duas linhas local oDialog, oIcone, oFonte, hInput := HB_Hash() para local oDialog, oIcone, oFonte, hInput := Hash() e na static procedure AtualizaImagem( hInput ) oServer:= win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0") para oServer:= CreateObject( "MSXML2.ServerXMLHTTP.6.0" ) e como já está postado basta copiar e alterar e que vai funcionar, inclusive já está com a ultima alteração feita da pctoledo.
  6. irei adaptar para o five, assim que pronto, posto novamente.
  7. Queeeriiiido!, tem que colocar uma função para verificar as "frases" de retorno. irei fazer uns testes e te falo. bjs na nuca do jorge tb. rsrsrsrsrs senão dá pity. kkkkkkk
  8. quer entrar mona. kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk
  9. em algumas situações o windows 8 / 8.1 / 10 não funciona oServer:= CreateObject( "MSXML2.ServerXMLHTTP.5.0" ) sujestão passar para: oServer:= CreateObject( "MSXML2.ServerXMLHTTP.6.0" )
  10. qual a sequencia que vc usou?
  11. o que vc procura é resizebmp(), não sei se tem na sua versão, mas é por ai. agora tem esse no forum http://forums.fivetechsupport.com/viewtopic.php?f=6&t=13822
  12. bem não testei mas a ideia é +- assim oKey:bPostKey := {|| IF( oKey:nLastKey == VK_CONTROL + oKey:nLastKey == "P", sua_funcao(), ) }
  13. Bom dia. alguém possui e quer fazer negócio?
  14. começo a pensar que a MS vai travar todos os gratuitos, comigo começou hoje o mesmo problema....ou seja, vamos entupir o bol, kkkkkkkkkkkkkkkkk
  15. Na mão como chamar LOCAL cTitulo := "Nome do Seu Aplicativo" CriarIconeDesktop( cTitulo ) // Criar Icone de Atalho no Desktop ******************************************** FUNCTION CriarIconeDesktop( cTitulo ) LOCAL aShortCut, oWSHShell, strDesktop := "" oReg := TReg32():New( HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders" ) strDesktop := oReg:Get("Desktop") oReg:Close() IF LEFT(strDesktop,1) == "%" strDesktop := GETENV('USERPROFILE') + "\Desktop\" ENDIF IF FILE( strDesktop + "\" + cTitulo + ".lnk" ) RETURN NIL ENDIF IF !MsgYesNo( "Não foi localizado o Ícone do Sistema no DeskTop !" + CRLF + CRLF + "Deseja Criar Agora ?", "Aviso do Sistema" ) RETURN NIL ENDIF TRY oWSHShell := CreateObject( "WScript.Shell" ) CATCH error MsgStop( "Não foi possível criar o Ícone do Sistema no DeskTop !" + CRLF + CRLF + "Entre em Contato com o Administrador do Sistema.", "Erro de Criação" ) RETURN .F. END TRY aShortCut := oWSHShell:CreateShortcut( strDesktop + "\" + cTitulo + ".lnk" ) aShortCut:TargetPath := CaminhoExecutavel() + "\" + NomeExecutavel() aShortCut:WorkingDirectory := CaminhoExecutavel() + "\" aShortCut:Description := "Aplicativo para Gerenciamento Administrativo" aShortCut:WindowStyle := 1 aShortCut:Save() RELEASE oWSHShell RELEASE aShortCut RETURN .T.
  16. vlw pela informação/explicação, não acho coisa de burro, eu vejo ganho de tempo... esses dois que passou são pagos?
  17. mas por qual motivo mudar para esses Marcio? funciona muito bem a flexdocs
  18. eitcha vida de programador, bom de mais né mesmo?! hahahahahaahahahaah
  19. tá vendo esse eu não conhecia. kkkkkkkk ctrl + C, crtl + V rsrsrsrsrs
  20. de dentro do fivewin? ou no icone do windows? as vezes a pergunta parece obvia mas fica suspenso no ar. kkkkkk bem de dentro do fivewin seria cGetFile( "ZipFile | *.zip", "Nome do Arquivo na Unidade de Disco Fixo ", 1, "c:\", .T., .T. ) ou cGetFile( "ZipFile | *.zip", "Nome do Arquivo na Unidade de Disco Fixo ", 1, "c:\suapasta\subpasta\", .T., .T. ) no icone do windows poder usar desta maneira Clique com o botão direito do mouse sobre o ícone do Windows Explorer na Barra de tarefas; Clique com o botão direito do mouse no ícone do Explorer do submenu exibido; Selecione a opção “Propriedade”; Na área “Destino”, acrescente o endereço da pasta que você deseja definir como página inicial após o comando “%windir%\explorer.exe”, deixando um espaço entre os trechos textuais. Para abrir localizações específicas do Windows os comandos são outros: Meus Documentos: %windir%\explorer.exe ::{450D8FBA-AD25-11D0-98A8-0800361B1103} Computador: %windir%\explorer.exe ::{20D04FE0-3AEA-1069-A2D8-08002B30309D} Rede: %windir%\explorer.exe ::{208D2C60-3AEA-1069-A2D7-08002B30309D} Painel de Controle: %windir%\explorer.exe ::{21EC2020-3AEA-1069-A2DD-08002B30309D} Internet Explorer: %windir%\explorer.exe ::{871C5380-42A0-1069-A2EA-08002B30309D}
  21. acesse o seu e-mail do gmail pelo google.Abra esse endereço https://www.google.com/settings/security/lesssecureappse clique em ativar... "Permitir que aplicativos menos seguros acessem sua conta".. acho que vc já deve ter tentando isso porem.....depois irei fazer mais testes...
  22. com certeza. rsrsrsrsrsrsrsrsrsrsrsrsrsrsrsrs, por isso perguntei da versão, talvez não faça ou faça, vai saber kkkkk
  23. olha que interessante http://forums.fivetechsupport.com/viewtopic.php?f=3&t=33091
×
×
  • Create New...