ricardo80

Members
  • Content count

    25
  • Joined

  • Last visited

  • Days Won

    1

ricardo80 last won the day on October 4 2020

ricardo80 had the most liked content!

Community Reputation

2 Neutral

About ricardo80

  • Rank
    Member
  1. Opa, bom dia, alguns F sim, mas teriamos alguns que não são usados...
  2. No description do botão eu vi que tem hotkey, mas só me abre a opção de ALT + [alguma coisa]... Consigo usar os F[ALGUMA COISA] ali?
  3. já havia tentado isso e não deu certo....
  4. Bom dia, mais uma dúvida básica tenho uma variavel wCampos que tem o coneúdo tmp_repres.nome tmp_repres.ind_ganho tmp_repres.codrep tmp_repres.calc_comis Como faço pra que ela fique assim tmp_repres.nome + TAB + tmp_repres.ind_ganho + TAB + tmp_repres.codrep + TAB + tmp_repres.calc_comis Essa variável eu preencho ela com dados do banco de dados; IF executaSQL(tmp_repres,wComandoSQL,True) THEN FOR EACH tmp_repres IF HFound(tmp_repres) = True THEN TableAdd(rControle, wCampos) END END END O executa_SQL funciona bem, o código esta executando direitinho...pq fiz ele na mão e ele funcionou, agora to automatizando esses processos... ele esta trazendo os dados assim....só o nome do data dource.campo
  5. Bom dia, existe algum grupo de de WhatsApp do pessoal que windev, webdev e afins?
  6. Boa tarde, tenho o seguinte cenário, pego os dados do cliente em um servidor remoto, como ip da conexão, se esta em dia, e afins(aqui com SQLCONNECT), e depois vou conectar na base do cliente(aqui com HOpenConnection), consigo fazer com os dois métodos de conexão? Primeiro usar o SQLConnect, e depois fechar a conexão e só trabalhar com o HOpenConnection, é possivel isso?
  7. Bom dia Vilani, estou migrando para analysis, agora estou com um problema assim.... usando este código IF abreBanco() THEN wComandoSQL is string = "SELECT descricao,chave FROM GENIND WHERE trim(ALIAS1)='%1' order by ordem asc" wComandoSQL = StringBuild(wComandoSQL,NoSpace(rAlias)) rGenInd is Data Source IF executaSQL(wComandoSQL,rGenInd,False) THEN rControle.DeleteAll() rControle.Add("") // CRIA UM EM BRANCO HReadFirst(rGenInd) WHILE NOT HOut(rGenInd) ListAdd(rControle,NoSpace(rGenInd.descricao)+gLink((rGenInd.chave))) HReadNext(rGenInd) END ELSE Info(HErrorInfo()) HFreeQuery(rGenInd) HCloseConnection(Conexao) END HFreeQuery(rGenInd) HCloseConnection(Conexao) END ele preenche o combo sem problemas, agora eu quero fazer é preencher um table control, estou usando a mesma técnica, mas ele esta trazendo somente um registro... a minha função executaSQL; PROCEDURE executaSQL(rComandoSQL is string,rDataSource is Data Source,rSetPath is boolean = False):boolean IF rSetPath = True THEN executaSetSearch_path() END IF HExecuteSQLQuery(rDataSource,Conexao,hQueryWithoutCorrection,rComandoSQL) THEN RESULT True ELSE Info(HErrorInfo()) RESULT False END e a função executaSetSearch_path PROCEDURE executaSetSearch_path():boolean wComando is string = "SET search_path TO %1,public" wComando = StringBuild(wComando,PU_Schema) xxx is Data Source IF HExecuteSQLQuery(xxx, Conexao, hQueryWithoutCorrection, wComando) THEN HFreeQuery(xxx) RESULT True ELSE Info(ErrorInfo()) HFreeQuery(xxx) RESULT False END não sei o pq esta acontecendo isso de trazer apenas um registro, e eu executando o comando direto no banco, funciona normal....
  8. Pior que não... eu contornei essa situação fazendo assim... HExecuteSQLQuery(rDataSource,Conexao,hQueryWithoutCorrection,rComandoSQL) Mas não sei o pq deste erro
  9. Bom dia....la vem mais barbeiragens minhas... Fatal error caused by <native PostgreSQL> access. e esse é o código que eu estou executando no [ Initializing of PAGE_Vendedores (server) ] IF HOpenConnection(Conexao) THEN wComandoSQL is string = "SELECT descricao,chave FROM GENIND WHERE trim(ALIAS1)='rep' order by ordem asc" rGenInd is Data Source IF HExecuteSQLQuery(rGenInd, wComandoSQL) THEN Info(HErrorInfo()) HFreeQuery(rGenInd) HCloseConnection(Conexao) ELSE COMBO_Buscar_por.DeleteAll() COMBO_Buscar_por.Add("") // CRIA UM EM BRANCO HReadFirst(rGenInd) WHILE NOT HOut(rGenInd) ListAdd(COMBO_Buscar_por,NoSpace(rGenInd.descricao)+TAB+(rGenInd.chave)) HReadNext(rGenInd) END END HFreeQuery(rGenInd) HCloseConnection(Conexao) END não sei o que é isso que ta acontecendo...
  10. Boa tarde, eu to tentando só dar um set search path no banco(Postgres), e ele me retorna essa mensagem...não sei se estou fazendo do modo correto Error in the SQL code of <_SOURCE_xxx_3> query. Unable to initialize the query. Unexpected word: search_path Error detected row 1, column 5: SET >>>>search_path<<<< TO emp01,public e o código que eu to usando é isso wComando is string = "SET search_path TO %1,public" wComando = StringBuild(wComando,PU_Schema) xxx is Data Source IF HExecuteSQLQuery(xxx, wComando) THEN HFreeQuery(xxx) RESULT True ELSE Info(ErrorInfo()) HFreeQuery(xxx) RESULT False END como posso fazer isso?
  11. Bom dia, la eu com minhas dúvidas, mas não achei nada no site do webdev, qual a diferença de eu usar HFreeQuery([data_source]) e [data_source].FreeQuery Pergunto isso pq la no site deles diz que as duas funções fazem a mesma coisa, ou estou errado?
  12. Acho que era barberagem minha aqui...consegui criar a analisys....gracias pela força
  13. quanto a anasys estar mais atualizada que a base do cliente nós temos como arrumar...temos uma ferramenta pra atualizar e dai é tranquilo... meu skype: [email protected] Agora outro problema/dúvida/barbeiragem...hehehe Usamos o banco postgres aqui, e eu to tentando criar a analisys e do nada o nosso webdev se fecha...alguém já passou por isso?
  14. Isso mesmo, mas não deu certo, segue o meu código... TABLE_Vendedores.Grayed = True //DEIXA ZEBRADO TABLE_Vendedores.COL_Código.Width = 50 TABLE_Vendedores.COL_Nome.Width = 200 TABLE_Vendedores.COL_Comissão_AP.Width = 100 TABLE_Vendedores.COL_Comissão_AV.Width = 100 TableDeleteAll(TABLE_Vendedores) IF abreBanco() THEN wComando is string ="SELECT codrep,nome,per_comis,per_comisap FROM repres" // WHERE IF wCondicao<>"" AND EDT_TextoBusca<>"" THEN wComando = wComando + " WHERE TRIM(%1) ='%2'" wComando = StringBuild(wComando,wCondicao,NoSpace(EDT_TextoBusca)) END //ORDER BY IF Length(wOrdem)>0 THEN wComando = wComando + " ORDER BY " + wOrdem END IF executaSQL(wComando,"tmp",True) = False THEN SQLInfo() Error("CÓDIGO.:" + SQL.Error,"MENSAGEM.:"+SQL.MesError) ELSE SQLTable("tmp",TABLE_Vendedores) END fechaBanco("tmp") END