Gavoha

Deu certo! Só adaptei a realidade.. mas, perfeito! sSelect := 'SELECT * FROM t_escaladetalhe where IDCLiente_EscalaDetalhe = 66 '+ 'and idFUncao_EscalaDetalhe in ('+ sCodFuncao +') '+ 'and DtEvento_EscalaDetalhe between "'+ FormatDateTime('yyyy-mm-dd', dtInicio.Date ) +'" and " ' + FormatDateTime('yyyy-mm-dd', dtFim.Date )+'"'+ 'and HrEntrada_EscalaDetalhe between "'+ TimeToStr( edHrDe.Time )+ '" and "' +TimeToStr( edHrAte.Time )+'" '+ 'order by DtEvento_EscalaDetalhe,HrEntrada_EscalaDetalhe,IDCooperado_EscalaDetalhe'; Muito obrigado @Jhonas

Senhores, boa tarde.. esse é meu primeiro post Tenho o seguinte Select que me retornam 266 registros no Workbench Código 35 = 35 registros Código 8 = 231 registros SELECT * FROM t_escaladetalhe where IDCLiente_EscalaDetalhe = 66 and idFUncao_EscalaDetalhe in (8,35) and DtEvento_EscalaDetalhe between '2017-04-01' and '2017-04-30' and HrEntrada_EscalaDetalhe between '00:00:00' and '12:00:00' order by DtEvento_EscalaDetalhe,HrEntrada_EscalaDetalhe,IDCooperado_EscalaDetalhe Até aqui, perfeito! Quando faço o mesmo dentro do Delphi 7 só tenho retorno da função 35 e não da 8 , ou seja, não o retorno só acontece quando faço a busca individualmente. O que fiz de errado? (Segue código) DM.qryEscalaDetalhe.close; DM.qryEscalaDetalhe.sql.clear; DM.qryEscalaDetalhe.sql.Add('select * from t_escaladetalhe'); DM.qryEscalaDetalhe.sql.Add('where IDCLiente_EscalaDetalhe = :pID'); DM.qryEscalaDetalhe.sql.Add('and IDFuncao_EscalaDetalhe in (:pFuncao)'); DM.qryEscalaDetalhe.sql.Add('and (DtEvento_EscalaDetalhe between :pDI and :pDF)'); DM.qryEscalaDetalhe.sql.Add('and (HrEntrada_EscalaDetalhe between :pHrI and :pHrF)'); DM.qryEscalaDetalhe.sql.Add('order by DtEvento_EscalaDetalhe,HrEntrada_EscalaDetalhe,IDCooperado_EscalaDetalhe '); DM.qryEscalaDetalhe.ParamByName('pID').Value := edClienteDe.Text; DM.qryEscalaDetalhe.ParamByName('pFuncao').Value := sCodFuncao; DM.qryEscalaDetalhe.ParamByName('pDI').Value := FormatDateTime('yyyy-mm-dd', dtInicio.Date ); DM.qryEscalaDetalhe.ParamByName('pDF').Value := FormatDateTime('yyyy-mm-dd', dtFim.Date ); DM.qryEscalaDetalhe.ParamByName('pHrI').Value := TimeToStr( edHrDe.Time ) ; DM.qryEscalaDetalhe.ParamByName('pHrF').Value := TimeToStr( edHrAte.Time ) ; DM.qryEscalaDetalhe.open; O meu sCodFuncao é uma variável String que é alimentada através de um Loop de um ChekListBox (conferi e está com os 2 valores 8 e 35)

Jhonas, muito obrigado pela paciência. Aprendi mais um pouco! Abraço! [CONCLUÍDO]

Jhonas, tive alguns problemas com essa forma que você postou: Com o Texto: {"altitude":760.0,"bairro":"Ipiranga","cep":"04209000","latitude":"-23.2971699728","longitude":"-46.3623848631","logradouro":"Rua do Manifesto, até 1089/1090","cidade":"São Paulo","ddd":11,"ibge":"3550308","estado":"SP"} sAltitude ficou 760.0,"bairro":"I sBairro ficou "Ipiranga","cep":"0 sCEP ficou "04209000","lati sLatitude ficou "-23.2971699728","longitude sLongitude ficou "-46.3623848631","logradouro

Com base na minha pouca experiência eu fiz algo que resolveu: mResultado.Text := StringReplace(mResultado.Text , '"','',[rfReplaceAll, rfIgnoreCase]); mResultado.Text := StringReplace(mResultado.Text , '{','',[rfReplaceAll, rfIgnoreCase]); mResultado.Text := StringReplace(mResultado.Text , '}','',[rfReplaceAll, rfIgnoreCase]); mResultado.Text := StringReplace(mResultado.Text , ':',',',[rfReplaceAll, rfIgnoreCase]); listCordenadas.Items.Clear; listCordenadas.Items.Delimiter := ','; listCordenadas.items.DelimitedText := mResultado.Text; edAltitude.Text := listCordenadas.items[1]; edBairro.Text := listCordenadas.Items[3]; edCEP.Text := listCordenadas.Items[5]; edLatitude.Text := listCordenadas.Items[7]; edLongitude.Text := listCordenadas.Items[9]; 1-Removi os Caracteres Aspas, Chave Aberta, Chave Fechada e Dois pontos 2- Coloquei a Virgula como Delimitador 3- Preenchi os Edits com as Linhas do ListBox Havia maneira mais simples ou mais segura?

Confesso está acima do meu conhecimento... mas é assim que agente aprende. vou tentar fazer

Senhores, tenho a seguinte string que recebo dentro de um TMemo {"altitude":533.2,"bairro":null,"cep":"17290000","latitude":"-22.504198","longitude":"-48.71221","logradouro":"Macatuba","cidade":"Macatuba","ddd":14,"ibge":"3528007","estado":"SP"} Preciso separar essa string em variáveissAltitude sBairro, sCEP, sLatitude, sLongitude, sLogradouro, sCidade, sDDD, sIBGE, sEstado

POST CONCLUÍDO !!!!

Muito obrigado pelas mensagens! Com suas mensagens eu consegui usar o celular como emulador também. O mesmo Fonte que roda no PC deu tela ´preta no android.. vou descobrir o que há!

Meu amigo Aparentemente sucesso! Como teria que reinstalar o Delphi optei em uma versão mais recente e instalei o Berlin 10.1 Nos teste no PC funcionou perfeitamente, mas não consigo usar meu celular como Emulador como vinha usando nas outras versões. Também não consegui usar o Emulador instalado. [Exec Error] The command "PATH C:\Program Files\Java\jdk1.7.0_25\bin;C:\Program Files (x86)\Embarcadero\Studio\18.0\bin;C:\Users\Public\Documents\Embarcadero\Studio\18.0\Bpl;C:\Program Files (x86)\Embarcadero\Studio\18.0\bin64;C:\Users\Public\Documents\Embarcadero\Studio\18.0\Bpl\Win64;C:\Program Files (x86)\Embarcadero\Studio\16.0\bin;C:\Users\Public\Documents\Embarcadero\Studio\16.0\Bpl;C:\Program Files (x86)\Embarcadero\Studio\16.0\bin64;C:\Users\Public\Documents\Embarcadero\Studio\16.0\Bpl\Win64;C:\ProgramData\Oracle\Java\javapath;C:\Program Files (x86)\Embarcadero\Studio\15.0\bin;C:\Users\Public\Documents\Embarcadero\Studio\15.0\Bpl;C:\Program Files (x86)\Embarcadero\Studio\15.0\bin64;C:\Users\Public\Documents\Embarcadero\Studio\15.0\Bpl\Win64;C:\Program Files (x86)\Embarcadero\Studio\14.0\bin;C:\Users\Public\Documents\Embarcadero\Studio\14.0\Bpl;C:\Program Files (x86)\Embarcadero\Studio\14.0\bin64;C:\Users\Public\Documents\Embarcadero\Studio\14.0\Bpl\Win64;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin;C:\Users\Public\Documents\RAD Studio\9.0\Bpl;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin64;C:\Users\Public\Documents\RAD Studio\9.0\Bpl\Win64;C:\Program Files\Common Files\Microsoft Shared\Windows Live;C:\Program Files (x86)\Common Files\Microsoft Shared\Windows Live;C:\Program Files (x86)\Borland\Delphi7\Bin;C:\Program Files (x86)\Borland\Delphi7\Projects\Bpl\;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\WINDOWS\System32\WindowsPowerShell\v1.0\;C:\Program Files (x86)\Windows Live\Shared;C:\Program Files (x86)\RemObjects Software\Oxygene\bin;C:\Program Files (x86)\K-Lite Codec Pack\QuickTime\QTSystem\;C:\Program Files (x86)\Java\jdk1.8.0_60\bin;C:\Program Files (x86)\Skype\Phone\;C:\Program Files\TortoiseSVN\bin;C:\Program Files (x86)\Windows Kits\10\Windows Performance Toolkit\;C:\Users\Michel\AppData\Local\Microsoft\WindowsApps;C:\Program Files\Java\jdk1.7.0_25\bin & "C:\Users\Public\Documents\Embarcadero\Studio\18.0\PlatformSDKs\android-sdk-windows\build-tools\22.0.1\dx.bat" --dex --output="C:\Gavoha\Clientes\03-DigiCartApp\DigiCartApp8\Android\Debug\classes.dex" "c:\program files (x86)\embarcadero\studio\18.0\lib\Android\Debug\android-support-v4.dex.jar" "c:\program files (x86)\embarcadero\studio\18.0\lib\Android\Debug\cloud-messaging.dex.jar" "c:\program files (x86)\embarcadero\studio\18.0\lib\Android\Debug\fmx.dex.jar" "c:\program files (x86)\embarcadero\studio\18.0\lib\Android\Debug\google-analytics-v2.dex.jar" "c:\program files (x86)\embarcadero\studio\18.0\lib\Android\Debug\google-play-billing.dex.jar" "c:\program files (x86)\embarcadero\studio\18.0\lib\Android\Debug\google-play-licensing.dex.jar" "c:\program files (x86)\embarcadero\studio\18.0\lib\Android\Debug\google-play-services.dex.jar" " exited with code 3.

OK Vou refazer a instalação e posto o resultado

Vou fazer isso sim Jhonas... mas estou tentando esgotar as possibilidades primeiro pois tenho muitos componentes e a reinstalação seria um grande transtorno devido a falta de tempo. Pensei em uma solução mas que não sei ao certo como fazer: Como a perda do foco não é no componente mas sim na linha do TMemo, pensei em colocar no OnChange algo que mantenha o foco naquela linha enquanto o usuário digitar. (se fosse foco no componente seria memo1.setfocus ... mas seria na posição atual do cursor.

Após sua mensagem fui fazer o "Update 1" disponível (Longo e demorado por sinal) mas o problema continua. Quanto a pergunta se o programa executado no Micro também apresenta o problema "SIM" **Tentei fazer pelo RichEditor e me foi apresentado o mesmo problema. Não faço ideia de como resolver ou contornar esse problema.

Após sua mensagem fui fazer o "Update 1" disponível (Longo e demorado por sinal) mas o problema continua. Quanto a pergunta se o programa executado no Micro também apresenta o problema "SIM" Não faço ideia de como resolver ou contornar esse problema.

Sim... e como estou complicando também para Windows, acontece também no Windows.

O problema acontece apenas quando o texto ultrapassou limite da ultima linha do Memo. Antes disso não acontece. Exemplo: ------------ Primeira linha do TMemo Ultima Linha do TMemo ------------ A partir desse ponto será necessário o ScrollBar trabalhar. Em tempo de preenchimento está tudo ok. Ele muda de linha, o foco de tela acompanha e o Scroll vai para o a próxima linha. Caso eu vá para outra linha superior e depois queira voltar a última linha novamente para corrigir ou dar continuidade no texto ele é que esse erro acontece.

Sim!

Segue link do Youtube com o erro que está acontecendo

Jhonas, mesmo colocando no OnKeyUp eu perco o foco da linha (não entendo o porque) Enquanto o texto não atingiu o final da linha, consigo salvar e abrir novamente para editar sem problemas. Quando o texto ultrapassou o espaço visual (Scroll interno do Tmemo), basta eu pressionar a qualquer tecla duas vezes que o foco da linha se perde e vai para primeira posição, mas mantendo o cursor na ultima linha. (Se tivesse como, eu postaria um vídeo do fato)

...No atual desespero me que me encontro, eu nem tenho mais preferencia... Funcionando é o que me importa... O problema é que o cursor vai até a ultima linha... o que não consigo é que ele fique visível. (como na imagem anexo).

Jhonatas, não tenho a "SendMessage" quando coloco para compilar para Android.... e não tem a propriedade Sroollbars no RichEditor. Já estou pensando em usar TMemo e não mais TRichEditor... O problema é que no TMemo, além do texto ir para baixo do componente (como na imagem) a o foco vai para primeira linha do texto.

Ok... consegui dessa forma: mCarta.SelectAll; mcarta.SetSelectionFontSize(iZoom +1); mCarta.ClearSelection; Agora estou precisando apenas a barra de rolagem do Richeditor. Gostaria de pode arrastar a rolagem para baixo... mas quando eu toco no texto ele seleciona

Existe alguma forma de dar Zoom no texto ou apenas aumentar a letra na exibição? Eu tentei fazer Richeditor.font.size := Richeditor.font.size +5; mas não deu certo porque tenho que selecionar antes todo o texto (quero aplicar em todo o texto) Mesmo colocando o SelectAll antes eu não consegui... o "SelAttributes" não parece pra mim.

Não consegui salvar a carta e depois abrir, mantendo os "Quebra-Linha"... como solução eu usei mesmo o TMSFMXRichEditor salvando a carta no Celular/PC e depois abrindo. Não era exatamente o que eu queria mas deu certo.... obrigado!

Tentei com o TMSFMXMemo - não consegui quebrar a Linha TMSFMXRichEditor - Não armazena as quebradas de linha, ou seja, quando abro um texto salvo ele faz uma bagunça. É isso mesmo ou estou fazendo algo errado?