Jump to content
Fivewin Brasil

evandro

Membros
  • Posts

    2,514
  • Joined

  • Last visited

  • Days Won

    19

Reputation Activity

  1. Like
    evandro got a reaction from aferra in Processamento do banco MySq"   
    Olá,
    Pô, elogio o cara dizendo que ele sabe tudo e só agora vou discordar e ele vem com "Ola, Bom dia Velinho".  Nem vou falar nada!  Hehehehe
    Mas dependendo dos joins e falta de índices aliados a um subselect, já vi muito servidor parar. Tiveram de reiniciar o serviço. 
  2. Like
    evandro got a reaction from aferra in Visual Studio 2017   
    Olá,
    Vou pedir ao Filipe para passar essas informações pois foi ele que me configurou para mim. E tem recurso pra bater de pau!
  3. Like
    evandro got a reaction from alex2002 in Visual Studio 2017   
    Olá,
    Uso, há pouco tempo, o VS Code e é muito bom, mas não tenho um tutorial. Teria de fazer um. Pelo menos com o básico ( extensões necessárias, como compilar, etc. ).
  4. Like
    evandro got a reaction from aferra in O que é melhor?   
    Olá,
    No MySql cria-se tabela temporária também e é o que recomendo pois o ideal é caminhar para não ter nada escrito em forma de DBF. Aí pode-se parar de utilizar qualquer lib externa.
  5. Like
    evandro got a reaction from Luiz Fernando in Five Win + sql sem as rdds   
    Olá,
    não entendi a falta do USE TABELA no que dificulta Dificulta a migração. O sistema está todo com USE TABELA pois está em DBF. Mesmo meus sistemas que não têm mais nada migrado do DBF, ainda uso o USE TABELA no FastReport. É mais prático. Como estou migrando para Harbour e deixando de usar a SqlLib, tenho de modificar quase todos os relatórios.
     
    Só uma opinião, se você vai migrar de DBF para SGDB, muda para o PostGres, além do mesmo está sempre em evolução, é 100% FREE, diferente do MySql que esta parado no TEMPO e não é 100% Free. Grande Jackson! Nesta aqui você está equivocado. A questão do MySql não ser 100% free é coisa muito, muito antiga. Ele é 100% free, está em evolução, e tem ainda o MariaDB - que eu uso - que é uma evolução do MySql, de código aberto e em evolução constante. 
  6. Like
    evandro got a reaction from Luiz Fernando in Five Win + sql sem as rdds   
    Olá,
    Tanto o FW quanto o Harbour já têm este recurso. Estou migrando o sistema com a opção de um ou outro e, pelo menos nos testes, está tudo muito bom. Criei algumas funções para compatibilizar com a SqlLib. Algumas coisas ficam até melhores ( o retorno da SqlArray() da SqlLib é sempre string e os outros respeitam a origem ). Outras, como não poderia deixar de ser, dificultam, como o uso do USE TABELA e outros recursos como um 
    DBF, pode esquecer. Não tem.
  7. Like
    evandro got a reaction from kleyber in Five Win + sql sem as rdds   
    Olá,
    Tanto o FW quanto o Harbour já têm este recurso. Estou migrando o sistema com a opção de um ou outro e, pelo menos nos testes, está tudo muito bom. Criei algumas funções para compatibilizar com a SqlLib. Algumas coisas ficam até melhores ( o retorno da SqlArray() da SqlLib é sempre string e os outros respeitam a origem ). Outras, como não poderia deixar de ser, dificultam, como o uso do USE TABELA e outros recursos como um 
    DBF, pode esquecer. Não tem.
  8. Like
    evandro got a reaction from kapiaba in programa externo   
    Olá,
    Não sou nenhum "jênio", nem conheço metade do que o João postou ( GetInstance()? ). De toda forma, segue uma alternativa:
     
    cComando:="javaws.exe d:\progs\esocial\EsocialSign.jar" MyRun( cComando ) return nil /////////////////////////////////////////////////////////////////////////////////////// function MyRun( cComando ) local oShell, oRet oShell := CreateObject( "WScript.Shell" ) oRet := oShell:Run( "%comspec% /c " + cComando, 0, .T. ) oShell := NIL return iif( oRet = 0, .t., .f. ) ///////////////////////////////////////////////////////////////////////////////////////  
  9. Like
    evandro got a reaction from kapiaba in Editor Modo Console   
    Olá,
    Quando você seleciona várias linhas e faz alterações, inserções, etc. em todas elas de uma vez, ou quando insere uma TAG ( to do ) em uma linha e busca pela tag em todo o projeto, ou ainda quando o editor autocompleta, ainda mais na quantidade ilimitada e facilidade de uso de "templates" entre inúmeros outros recursos, verá que vale muito a pena este princípio pouco amistoso. Além do mais, quando se usa mais de uma linguagem ( sei que você não dá conta disso hehehehehe ) ele atende perfeitamente.
  10. Like
    evandro got a reaction from kapiaba in Editor Modo Console   
    Olá,
    É que passei o link para Windows 64. Segue o link para 32 bits
  11. Like
    evandro got a reaction from kapiaba in Editor Modo Console   
    Olá
    Sublime Text 3
    Dicas para o Sublime Text
    Mais dicas
    Linguagem Harbour para o Sublime
    É um editor cheio de recursos e pacotes (packages) adicionais que o tornam mais poderoso ainda.
  12. Like
    evandro got a reaction from kapiaba in Editor Modo Console   
    Olá,
    Agora não mostra mais nada, o que pode estar errado? O uso de um editor modo console. Simples assim. 
  13. Like
    evandro got a reaction from kapiaba in Envio de SMS   
    olá,
    Evandro meu rei, sem querer abusar, cadê a tela(.RC) de INPUTS desta rotina? Não tem tela para a rotina. Passo os parâmetros. Estas informações vão depender da rotina de origem.  
  14. Like
    evandro got a reaction from microfly in Do While com macro   
    Olá,
    Evite o uso de macro SEMPRE. Tem outra forma de fazer isto. Pode ter certeza.
  15. Like
    evandro got a reaction from kapiaba in Venda de sistema com fontes   
    Olá,
    Para se fazer o depósito se faz necessário:
    Banco:
    Agência:
    Conta:
    Nome:
    CPF:
  16. Like
    evandro got a reaction from microfly in Venda de sistema com fontes   
    Olá,
    Para se fazer o depósito se faz necessário:
    Banco:
    Agência:
    Conta:
    Nome:
    CPF:
  17. Like
    evandro got a reaction from aferra in CURSO DE MYSQL   
    Olá,
    Para não usar DBF nem em temporários, basta criar uma tabela temporária ( create temporary table ). Esta tabela só é visível para a conexão que a criou e se apaga ao final da conexão. Não constatamos nenhum problema em produção, mesmo com muitos usuários na rede.
  18. Like
    evandro got a reaction from Theotokos in SOCORRO EM SQL   
    Olá,
    O primeiro passo para migrar é "brincar" bastante com o Mysql. Se inteirar o máximo possível do SQL. Recomendo o MariaDB. Não por causa de licença, pois a necessidade dela é coisa antiga, não existe mais. O Maria é mais rápido e é Open. O MySql é da Oracle. Pode mudar a forma de licença a hora que quiser. Os outros bancos, Firebird inclusive, haverá uma maior dificuldade de tudo. RDD, solução nativa, outros usuários, etc. 
    Para uma migração gradativa, ou seja, mesclar partes em DBF e partes em MySql, tem de ser com uma RDD. Neste caso recomendo a SqlLib. Usei as duas ( SqlLib e SqlRdd ) e, na época, optei largamente pela SqlLib. Se for radical e migrar tudo, tanto o Harbour, quanto o FW mais recente, têm solução nativa. Estou fazendo minhas rotinas com opção para as duas alternativas para poder comparar o desempenho. O que for melhor no cliente, basta alterar uma pequena configuração. Claro que usar a opção nativa é muito melhor, só que não dá para aproveitar nenhum tipo de acesso aos dados ( use, seek, etc. ).
  19. Like
    evandro got a reaction from Theotokos in Validar um Texto Digitado pelo Usuário   
    Olá,
    eu criei um função, que separa as palavras de uma frase, e depois faz uma separação silábica de cada palavra, agora estou inserindo uma analise que cada silaba, para ver se tem ou faz algum sentido em português. A sugestão que fiz foi por este caminho, fazendo esta separação via REGExp. O corretor do Word não vai barrar vai apontar que tem algum erro.
  20. Like
    evandro got a reaction from kapiaba in Enviar SMS via Fivewin Grátis Tem?   
    Olá,
    Faça contato com a Zenvia. Eles liberam uma conta com algumas mensagens grátis para teste.
  21. Like
    evandro got a reaction from kapiaba in TRANSPORTAR UM ARQ EXCELL PARA DBF   
    Olá,
    Isto é que é clareza na resposta! 
  22. Like
    evandro got a reaction from Luiz Fernando in TRANSPORTAR UM ARQ EXCELL PARA DBF   
    Olá,
    Isto é que é clareza na resposta! 
  23. Like
    evandro reacted to Rogerio Figueira in Leitura de email   
    Evandro,  a patir dos exemplos do FW eu criei minhas rotinas, funciona tudo bem, mas só habilito para clientes que usam hospedagem no meu servidor para evitar problemas com os gratuitos.
    Usa a classe Tpop3 do fw.
    Segue o código:
     
    //=======================================================================================================

    Function PegaoMail( )

       local oOutMail, oIP, mailport := 587,  mailauth
    LOCAL host, usuario, senha, pasta
     
           mailport := 587
           mailauth := .T.
    if ! pegaconf(@host, @usuario, @senha )  // le os dados no arquivo de configuração
        msgstop("Dados insuficientes para transmissão!","Falha fatal!")
        return .f.
    end

    WsaStartUp()
        oIP :=GETHOSTBYNAME("mail.representantes.info")  // aqui entra o servidor de email
        //msginfo(oIP,"oIP")
        If oIP = "0.0.0.0"
            DelLog:=.f.
            WsaCleanUp()
            msgAlert("E-mail não pode ser lido neste instante.","Atenção!")
            return .f.
        End
    GetMail(host, usuario, senha)
    sysrefresh()
    return nil
    //----------------------------------------------------------------------------//
    function GetMail(host, usuario, senha)
       local oInMail, oIP :=GETHOSTBYNAME(host)
       oInMail = TPop3():New( oIP,, usuario, senha )  // mail server IP
       oInMail:lDelMsgs  := .t.
       oInMail:lHeaderOnly     := .f.
       
       oInMail:bConnecting = { || Monitor( "Conectando em "+oIP ) }
       oInMail:bConnected  = { || Monitor( "Conectado" ) }
       oInMail:bDone       = { || ReadEmails( oInMail ) }
       oInMail:GetMail()
    return nil
    //----------------------------------------------------------------------------//
    function ReadEmails( oInMail )
       local n
     
       for n = 1 to Len( oInMail:aMsgs )
          salvamail( oInMail:aMsgs[ n ] )
       next
    return nil
    //------------------------------------------------------------
    function salvamail(mensagem)
     
    LOCAL cFrom := cSubject := cDate := "" , y := mlcount(mensagem)

    if y>0
        for i = 1 to y
            if subs(memoline(mensagem,100,i),1,5) = "From:"
                cFrom := alltrim(subs(memoline(mensagem,100,i),6) )
            elseif subs(memoline(mensagem,100,i),1,8) = "Subject:"
                cSubject := alltrim(subs(memoline(mensagem,100,i),26) )
            elseif subs(memoline(mensagem,100,i),1,5) = "Date:"
                cDate := alltrim(subs(memoline(mensagem,100,i),12) )
            end
            if !empty(cFrom) .and. !empty(cSubject) .and. !empty(cDate)
                exit
            end
        next
        SELE CPRINBOX  //dbf onde salva as msgs
            if Appb_dbf (0)  // faz um append blank
                Replace  CPRINBOX->datamsg with cDate,;
                        CPRINBOX->remetente with cFrom,;
                        CPRINBOX->assunto with cSubject,;
                        CPRINBOX->data with date(),;
                        CPRINBOX->texto with mensagem
                 Lock_dbf (DB_FREE_TMP)
             else
                     SndPlaySound( "OPS.wav",1 )
     
            end
     
    end
    return nil
     
  24. Like
    evandro reacted to kapiaba in FWH MySQL/MariaDB soporte nativo docs   
    http://forums.fivetechsupport.com/viewtopic.php?f=6&t=33304
  25. Like
    evandro got a reaction from Theotokos in Visualizar/imprimir PDF   
    Olá,
    Com o FastReport é mole, mole. Tanto de uma forma quanto de outra.
×
×
  • Create New...