Washington Soledade

Members
  • Content count

    10
  • Joined

  • Last visited

  • Days Won

    2

Washington Soledade last won the day on May 17

Washington Soledade had the most liked content!

Community Reputation

7 Neutral

About Washington Soledade

  • Rank
    Member
  1. CntxBase is Connection HDescribeConnection(CntxBase,"","",EDT_CAMIMPORTA,"",hNativeAccessXBase,hOReadWrite,"OEMTOANSE=WINDOWS") HChangeConnection("*",CntxBase) // Renomenado arquivos para operar importação sem problemas com outro sistema em uso IF fFileExist(EDT_CAMIMPORTA+"\CLIENTES.DBF") THEN fRename(EDT_CAMIMPORTA+"\CLIENTES.DBF", EDT_CAMIMPORTA+"\CLIENTES2.DBF") END // Preparando um Select para uso com o DBF dsDDbfReq is Data Source sMyQryCli is string = [ Select CLICONTR, CLINOME, CLIAPEL, CLICAD, CLINASC, CLIEND, CLINUM, CLIBAI, CLICID, CLIUF, CLICEP, CLITEL1, CLITEL2, CLICEL, CLIPAI, CLIMAE, CLICIVIL, CLIRESID, CLIPROFI, CLIPESCA, CLICPF, CLIRG, CLICTRAB, CLISERIE, CLIPIS, CLIRESER, CLITITUL, CLIZONA, CLISECAO, CLINIT, CLIRGPSE, CLIDTRSE, CLIINSC, CLITEST1, CLITEST2, CLITEST3, CLISITU, CLIFOTO, CLIEMAIL, CLIOBS, CLIQTDPA, CLIDIABA, CLIDTBOL, CLIFIXAR, CLIREGI, CLINTDEP, CLIQTEMI FROM CLIENTES2 ] sMyQryCli = StringBuild(sMyQryCli) HDBOpen("CLIENTES2","",EDT_CAMIMPORTA+"\CLIENTES2.DBF") //OpenSister(IW_Aguarde) IF HExecuteSQLQuery(dsDDbfReq,CntxBase, sMyQryCli) THEN FOR EACH dsDDbfReq // Aqui você trata e salva os dados no seu banco HFSQL Next END // Fechando conexão DBF HCloseConnection(CntxBase)
  2. VAL() = Mesmo em Windev Ex: Val("143") // Returns 143 Val("1.67") // Returns 1.67 Site: https://help.windev.com/?3024037&lang=en-US&productversion=xxA250083n STR() e STRZERO() use NumToString Ex: NumToString(123) // Returns "123" NumToString(1.23) // Returns "1.23" NumToString(1,"03,0f") // Return 001 Site: https://help.windev.com/?3024024&lang=en-US&productversion=xxA250083n SUBSTR() use Middle // Extract characters Middle("Eponine", 2, 3) // Returns "pon" Middle("Eponine", 2) // Returns "ponine" Site: https://help.windev.com/en-US/?3024023&name=Middle CTOD() e DTOC() use StringToDate StringToDate("01-02-2020", "DD/MM/YYYY") // Returns na tela = "01/02/2020" no padrão no banco de dados fica 20200201 StringToDate("25/12/2001") // Returns = "20011225" Site: https://help.windev.com/?3027013&lang=en-US&productversion=xxA250083n ALLTRIM(), LTRIM (), RTRIM (), TRIM () use NoCharacter sTexto is string = " estou mostrando como ficaria " NoCharacter(sTexto," ", sscAll) = "estoumostrandocomoficaria" NoCharacter(sTexto," ", sscRight) = " estou mostrando como ficaria" NoCharacter(sTexto," ", sscLeft) = "estou mostrando como ficaria " NoCharacter(sTexto," ", sscInside) = " estoumostrandocomoficaria " NoCharacter(sTexto," ", sscOutside) = "estou mostrando como ficaria" Site: https://help.windev.com/?1000019391&lang=en-US&productversion=xxA250083n Caso os colegas precisem de mais só ir me passando que vou tentando ajudar.
  3. Nesse tópico vamos tratar de dúvidas pertinentes a migração de comandos / sintaxe de comandos existentes nas ferramentas Fivewin/xHarbour/Harbour e seus correlacionados no Windev, assim vamos tentar tratar as dúvidas mais comuns na migração da linguagem.
  4. Tenta assim: select sat, numero from TEMP awhere not exists (select distinct numero from NOMEDESUATABELA b where a.numero=b.numero)
  5. Belíssimo trabalho, parabéns.
  6. conexaohf is Connection conexaohf..Access = hOReadWrite conexaohf..Provider = hNativeAccessMySQL conexaohf..Server = "192.168.0.200:3340" // Troquei a porta do MySql por segurança aqui conexaohf..Database = "fisio" conexaohf..User = "wmsoft" conexaohf..Password = "suasenha" IF NOT HOpenConnection(conexaohf) THEN Error(HErrorInfo()) EndProgram() END
  7. Pra HFSQL eu uso o próprio agendamento disponível no HFSQL Control Center, mais prático e funciona 100%
  8. sSQLConsulta = "DELETE FROM pedido1 WHERE pedido IN ("+ sPedis +")" sSQLConsulta = StringBuild(sSQLConsulta) // testa usando um Trace(sSQLConsulta) // pega o resultado e use diretamente no gerenciador do banco de dados pra ver o que está com erro
  9. Obrigado, resolvido.
  10. Boa noite, Sempre que emito um relatório que tem muitos dados a cada 500 páginas ele pede uma confirmação, tem como inibir isso? Imagem em anexo.