Luiz FERNANDO

Members
  • Content count

    98
  • Joined

  • Last visited

  • Days Won

    25

Everything posted by Luiz FERNANDO

  1. Pessoal obg pelas respostas, a string da instrução sempre qdo tenho problema uso ToClipboard(sSQLConsulta) e analiso se tem erro, neste caso estava tudo ok, o problema estava na seguinte situação, um pedido de venda com 100 itens por exemplo, eu tinha que pegar o numero do pedido uma unica vez, e não 100 vezes, realmente passou despercebido, com volume pequeno até passava, mais qdo puxava um período maior ocorria isto, mais uma vez vlw pela força de todos, e desculpa de usar o forum por algo que não era sintaxe, e sim logica errada minha. Abs
  2. Jackson em windev se comporta da mesma forma. arrprodutos is array of 1 by 4 ArrayAddLine(arrprodutos, space(6), 0 , "", ctod("") ) Obs: agora se vc não souber o numero de colunas na hora de declarar ela, vc utiliza depois o Dimension(arrprodutos, i, 10) Abs
  3. Colegas como posso ter controle da opção return que já tem nos aparelho android, estou com o seguinte problema, se o vendedor esta digitando um pedido, e sem querer ele aperta o return que fica no aparelho la em baixo, simplesmente fecha a janela do pedido, burlando meus controle de abandonar a tela. Obg:
  4. Nossa que dica maravilhosa, deu certinho, obg Vilani por ter compartilhado. Abs
  5. Pessoal estou tentando copiar uma query de um projeto para outro, tentei copiar eles manual da de um projeto para outro, mais este projeto não enxerga ele, qual seria o procedimento correto. Obg
  6. Obg nathanreys, sua dica sera muito útil aqui no dia a dia
  7. Pessoal alguém saberia me dizer pq a opção REVERSE AND\OR fica desabilitada.
  8. Pessoal sobre a questão acima, para habilitar o REVERSE AND\OR, é necessário se criar duas condições(new condition) para o mesmo campo, depois disto ele habilita normal para se escolher a opção OR, somente para deixar registrado caso alguém venha a ter a mesma dificuldade que minha. Abs.
  9. Boa tarde, pessoal veja se alguém já passou por isto, estava com um note aqui provisório aonde foi feita varias mudanças num projeto, agora na hora de passar o projeto para meu noite de trabalho da varias bug de tela, tipo se olha na imagem vcs vai ver uns x em vermelho. pick a number between 1 and 5
  10. Obrigado Vilani pela resposta, realmente tenho o hábito de copiar estilo de uma projeto para outro, com certeza deve ter sido isto, como não consegui solucionar, acabei refazendo todo projeto novamente , 2 dias de serviço, mais serviu de lição rsrsrs Obg
  11. Colega eu odeio este editor de query, faço tudo manual, é que este projeto é antigo, tenho funcionario que mexe nele, não queria perder o descreption dele, isto sempre deu certo, é algum detalhe bobo, mais fiquei hoje mais de 1 hora sem conseguir fazer isto funcionar.
  12. tudo default 1) tinha um projeto apenas com layout tablet 7.0 2) devido a mudança de note de serviço, passei o projeto para um outro note provisório, la foi criado um layout novo lg9, gerando o apk la tudo funciona correto 3) conforme a note novo de serviço chegou, copie a pasta inteira do provisório para este, dai peguei este pau. 4) se eu pegar um backup antigo antes de ter passado por este note provisório , e colocar no meu note de serviço, tudo ok, sendo assim o problema não esta na configuração do meu note.
  13. William eu copiei a pasta inteira as duas maquina são a mesma versão 21 59n
  14. Pessoal só detalhando melhor, ao criar este apk no meu note de trabalho, os campos EDT como os TAB(abas) fica com um efeito sem cor, agora se eu fazer essas correções e voltar o projeto para o note provisório, gera o apk certinho, e durante a edição do projeto não tenho esses risco(x) em vermelho nos campo edt e tb Obs: uma maneira de ver se conseguia contornar o problema copie a pasta androidsdk do note que da acerto para o outro, mais sem sucesso.
  15. Veja se alguém pode me ajudar nisso, ao criar o seguinte arquivo no android 030|002065|01|04|24/10/2019 030|000627|01|01|24/10/2019 030|001535|01|01|24/10/2019 não consigo ler ele usando a windev desktop, aparece uns caracter estranhos mais se eu criar o mesmo arquivo usando o bloco de notas, ele le certinho. obg Luiz Fernando
  16. Bom dia, pessoal queria agradecer as dicas acima, realmente alguns detalhe que não sabia, e vou adotar aqui, sem fazer nenhuma mudança criando os arquivo direto nos aparelho android e enviando para o ftp, o problema não ocorreu, deu tudo certo, somente usando o emulador mesmo que dava o erro, grato a ajuda de todos.
  17. Janio usando seu código da o mesmo problema, agora se eu editar o arquivo no bloco de nota e salvar com ANSI da certo, da sua forma e da minha forma, estou usando o emulador do android para criar o arquivo, vou fazer um teste direto no aparelho e ver se dá certo, retorno aqui avisando Obs: sobre usar o fWriteLine a cada linha, vou adotar este procedimento. obg
  18. Acho que o detalhe não esta na criação do android, e sim na forma que estou fazendo a leitura na windev\desktop, pq usando outra linguagem estou conseguindo ler o arquivo normal, veja meu código em windev para leitura s_arquivos_todos is string = fListFile(gsRetorno_local+"c*.rem",frNotRecursive) s_arquivo_individual is string //info(s_arquivos_todos) sf_vendedor is string sf_cliente is string sf_tipo is string sf_conteudo is string sf_data is string ToastDisplay("Aguarde gravando dados.",toastShort,vaTop) FOR EACH STRING s_arquivo_individual OF s_arquivos_todos SEPARATED BY CR sNome_do_arquivo is string=fExtractPath(s_arquivo_individual,fFileName+fExtension) IF fFileExist(gsRetorno_local+sNome_do_arquivo) THEN sArquivo = fLoadText(gsRetorno_local+sNome_do_arquivo) Info(sArquivo) ELSE Info("Arquivo não localizado...") RETURN END StringToArray(sArquivo,arrRegistros,CRLF) FOR EACH sRegistro OF arrRegistros IF sRegistro <> "" THEN StringToArray(sRegistro,arrCampos,"|") Info(arrCampos[1]) //Info(arrCampos[2]) //Info(arrCampos[3]) sf_vendedor = arrCampos[1] sf_cliente = arrCampos[2] sf_tipo = arrCampos[3] sf_conteudo = NoSpace(arrCampos[4]) sf_data = StringToDate(arrCampos[5]) sS_CmdSQL = [ INSERT INTO forca_1 ( vendedor,cliente,tipo,conteudo,data,tratamento ) values( %1, %2, %3, %4, %5, %6 ) ] sS_CmdSQL = StringBuild(sS_CmdSQL, gSqlChar(sf_vendedor), gSqlChar(sf_cliente),gSqlChar(sf_tipo)... ,gSqlChar(sf_conteudo), sf_data, gSqlChar("P") ) ToClipboardRTF(sS_CmdSQL) IF SQLExec(sS_CmdSQL,"aSQL")=False THEN SQLInfo("aSQL") sS_Mensagem=SQL.MesErreur Info(sS_Mensagem) SQLClose("aSQL") RETURN END SQLClose("aSQL") END END fDelete(gsRetorno_local+sNome_do_arquivo) END
  19. desculpa faltou esta parte do código, já faço dessa forma ResWrite = fWriteLine(nARQuIvO,strLinha) IF ResWrite=-1 THEN Error(ErrorInfo(errMessage)) ELSE HExecuteQuery(QRY_update_sincroniza_cad_cliente) END obg
  20.  veja como estou criando este arquivo sBusca is string strLinha is string sBusca = HFilter(atualiza_cadastro, "sincronizado<>'" + "S" + "'") HReadFirst(atualiza_cadastro, sBusca) WHILE HOut() = False strLinha=strLinha+atualiza_cadastro.vendedor+"|"+atualiza_cadastro.cliente+"|"+atualiza_cadastro.campo+"|"+NoSpace(atualiza_cadastro.conteudo)+... "|"+DateToString(atualiza_cadastro.data)+CR HReadNext(atualiza_cadastro, sBusca) END HDeactivateFilter(atualiza_cadastro) obg