Luiz FERNANDO

Members
  • Content count

    98
  • Joined

  • Last visited

  • Days Won

    25

Posts posted by Luiz FERNANDO


  1. Colegas estou com um problema aqui, ao qual não consigo resolver

    	sPedis = ""
    
    	FOR EACH sRegistro OF arrRegistros 
    
    		IF sRegistro <> "" THEN
    
    			StringToArray(sRegistro,arrCampos,"|")    	
    
    		END
    
    		sPedis = sPedis+"'"+arrCampos[1]+"',"
    
    	END
    
    	sPedis = Left(sPedis,Length(sPedis)-1) 
    
    	
    
    	sSQLConsulta = "DELETE FROM pedido1 WHERE pedido IN ("+ sPedis +")"
    
        <Info("ATÉ AQUI NORMAL")>
    
    	HExecuteSQLQuery(dsLimparTabela,hQueryDefault,sSQLConsulta)    // <NA HORA DE EXCUTAR AQUI SAI DO APK SEM MENSAGEM ALGUMA>
    
        <Info("NÃO CHEGA AQUI")> 

    Obg


  2. 6 horas atrás, Jackson Douglas disse:

    isso em HARBOUR é transparente, ele não se preocupa.... só que quando EU colocar as dimensões, todas as linhas deverão ter as mesmas dimessões

    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

    2 people like this

  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: 

    1 person likes this

  4. 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.

    2 people like this

  5. 1 hora atrás, Janio Aguiar disse:

    Luiz Fernando,

    1. Se vc ja tem a sentença SQL funcionando, não precisa usar o editor de Query. Ao chamar o editor basta ir em SQL CODE... e colar o seu codigo la

    2. Essa sua query ja está funcionando a contento? Se não, poderia colar o codigo dela aqui pra q a gente possa entender?

     

    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.


  6. 57 minutos atrás, Janio Aguiar disse:

    Mesmo assim nao deu?

    Os paths de instalação do windev sao os mesmos nos 2 computadores?

    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.

     

     


  7. 43 minutos atrás, Janio Aguiar disse:

    Boa tarde,

    Vc fez o backup num computador e restaurou no outro? Falo isso pq na hora de fazer o backup ha varias opcoes la

    Isso ta parecendo problema com skin, as imagens que compoem o skin que vc ta usando não constam nesse outro computador

    William eu copiei a pasta inteira

    as duas maquina são a mesma versão 21 59n


  8. 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.

     

     


  9. 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.

    2 people like this

  10. 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


  11. 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

     


  12. 3 minutos atrás, admin disse:

    Cria com FWriteLine e testa

    passei por algo semelhante ao criar CSV e o Pedroso passou a dica q estava no manual, quem sabe sirva pro teu caso tb.

    Link do manual

    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


  13.  

    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


  14. 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