Washington Soledade

Members
  • Content count

    11
  • Joined

  • Last visited

  • Days Won

    3

Washington Soledade last won the day on June 7

Washington Soledade had the most liked content!

Community Reputation

8 Neutral

About Washington Soledade

  • Rank
    Member
  1. Bom eu uso de forma diferente para ficar mais próximo de como trabalhava no Fivewin. Eu declaro no projeto uma variável como global (mas isso pode ser também no global apenas do Form que for trabalhar) // Array para Carnê arrMyCarne is associative array of array <growth> of strings // Criei uma linha em branco no array Insert(arrMyCarne, "A1") // Célula 1 Insert(arrMyCarne, "A2") // Célula 2.... como se fossem colunas do excel // Populando o array arrMyCarne["A1"][arrMyCarne["A1"]..Occurrence] = DateSys() arrMyCarne["A1"][arrMyCarne["A2"]..Occurrence] = "QUALQUER DADO" // Saber o total de linhas do array Info(arrMyCarne["A1"]..Occurrence) // Limpar o array no final ArrayDeleteAll(arrMyCarne)
  2. 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)
  3. 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.
  4. 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.
  5. Tenta assim: select sat, numero from TEMP awhere not exists (select distinct numero from NOMEDESUATABELA b where a.numero=b.numero)
  6. Belíssimo trabalho, parabéns.
  7. 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
  8. Pra HFSQL eu uso o próprio agendamento disponível no HFSQL Control Center, mais prático e funciona 100%
  9. 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
  10. Obrigado, resolvido.
  11. 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.