Pesquisar na Comunidade

Bom dia, estou com uma situação e não sei como arrumar. Tenho um anexo ao meu relatório principal, para isso criei um subreport. Esse relatório está agrupado por data, e toda vez em que chamo o anexo ele também agrupa por data, porem o seu valor é referente ao ultimo master mostrado. Ex: Mês de junho e julho, o relatório agrupo certinho e mostrou o anexo no final de cada mês, porem os valores desse anexos são referente ao mês de julho

Bom dia, estou com uma situação e não sei como arrumar. Tenho um anexo ao meu relatório principal, para isso criei um subreport. Esse relatório está agrupado por data, e toda vez em que chamo o anexo ele também agrupa por data, porem o seu valor é referente ao ultimo master mostrado. Ex: Mês de junho e julho, o relatório agrupo certinho e mostrou o anexo no final de cada mês, porem os valores desse anexos são referente ao mês de julho

Bom dia, preciso de uma força de você!! Seguinte, tenho um relatório de livros de serviços de entrada. Nele tenho GroupHeader para separação por mês e ano, um MasterData para trazer os resultados e um GroupFooter, onde ele soma os valores e me traz o resultado a cada final do Mês. Preciso que a cada x dias mostre o resultado total dos registro. Esse intervalo seria parametrizado pelo usuário. Minha estrutura cabeçalho (GroupHeader - filtrando por mês/ano) Registros (MasterData) Rodapé (GroupFooter - total dos valores do master) Preciso então do seguinte exemplo Data | Quantidade 1/09/2022 | 10 2/09/2022 | 20 3/09/2022 | 15 4/09/2022 | 10 5/09/2022 | 5 Total 1º a 5º... 60 6/09/2022 | 30 7/09/2022 | 40 8/09/2022 | 100 9/09/2022 | 12 10/09/2022 | 300 Total 6° a 10°... 482 Total Geral 542 Seria basicamente isso, mas não estou conseguindo realizar, tentei colocar um contador no onbeforeprint do masterdata, e a cada x dias mostra o total mas não deu certo.

Olá, estou com uma certa dificuldade para terminar o livro de registro que estou fazendo. Os dados e ordens estão corretos o que está dificultando é a aparição de alguns campos durante a formação do relatório. Começando pelo GroupHeader, ele precisa aparecer em todas as paginas do relatório MENOS nas paginas que anexo um resumo de Aliquota e na pagina que traz uma relação dos clientes. Segundo caso, precisei criar um transporte de valores, onde no rodapé de uma pagina pega a soma total de todos os valores da pagina e na próxima pagina aparece abaixo do GroupHeader os valores totais da pagina anterior e no rodapé a soma dos valores da pagina. Porem preciso que eles apareçam em todas as telas que existem valores MENOS nas paginas que anexo um resumo de Aliquota e na pagina que traz uma relação dos clientes. Alguém saberia como me auxiliar? Obrigado.

Olá, estou realizando uma integração API e recebo como retorno este Json: { "result": { "status": false, "msg": "Algumas empresas não foram inseridas", "empresasNotInserted": [ { "cpfcnpj": "1162268975441" } ] } } Tentei acessar da seguinte forma : JsonObject.GetValue<string>('result[0].msg') Porém não estou conseguindo, alguma outra ideia de como acessar o msg? Utilizo: Componente IdHttp Delphi Seattle

Olá pessoal, Eu estou tentando inicializar as variáveis de um Record antes mesmo de usar elas, ou seja, algo igual ao que o create faz na criação de uma classe porém gostaria de fazer no Record. Tentei algo com o class operator mas não consegui achar uma forma, até vi algo com initialize, mas não dá certo. Poderiam me ajudar? Desde já agradecido!

Bom dia, eu estou tentando imprimir informações de um registro com fortes retort! tenho que selecionar um no DbGrid e imprimir mais não estou conseguindo, Fortes esta imprimindo tudo que esta no dbgrid! não sei se coloco um dblookupcombobox para mostrar os registro que esta no banco e o que tiver no DbGrid será impresso ou tem outra forma de fazer? sou iniciante...

Olá pessoal, Eu estou estudando o TBlobField com ClientDataSet, peguei um modelo da internet e eu estou tentando carregar um arquivo grande de em torno 35mb várias vezes, porém conforme eu vou dando o loop depois de carregar algumas vezes o ClientDataSet da erro de 'Insufficient memory for this operation.', eu já consegui verificar que é porque o arquivo é muito grande e provavelmente chega no limite do ClientDataSet. Mas gostaria de saber como posso contornar essas situações em vez de simplesmente trocar um arquivo por um pequeno, porque em cliente nem sempre vão ser arquivos pequenos. Existe alguma forma que eu possa fazer com que verifique o limite e pare o loop e emita uma mensagem? Ou melhor ainda existe alguma forma de carregar todos os arquivos e não dar erro de memória? De repente compactar o arquivo antes? Qual seria a melhor solução para esse caso? Poderiam me ajudar com alguma solução? procedure TEstudo.btnTesteClick(Sender: TObject); var cdsTemp: TClientDataset; i: Integer; begin cdsTemp:= TClientDataset.Create(nil); cdsTemp.FieldDefs.Add('arq', ftBlob); cdsTemp.CreateDataSet; try for i := 0 to 100 do begin cdsTemp.Append; TBlobField(cdsTemp.FieldByName('arq')).LoadFromFile(String(C:\PROJBLOB\arquivopdf.pdf)); cdsTemp.Post; end; finally FreeAndNil(cdsTemp); end; end;

Estou desenvolvendo um sistema onde realizo um cadastro Pedido e gravo no banco de dados.Tenho uma com um dbgrid para que eu posso puxar o numero do pedido(ID_PEDIDO) e no dbgrid ele me apresenta o id do pedido e o nome do cliente.Quero saber como eu posso selecionar a linha do meu dbgrid e abrir um outro formulário idêntico ao de cadastro só que para edição dos campos... esse novo formulário deve trazer os campos preenchidos já com os dados do banco que foram salvos quando foi efetuado o pedido.

boa noite, alguém já integrou delphi com writer do libre office, sei como carregar documento, mas o que preciso é : 1 - Carregar um documento ( que seria meu modelo ) ok 2 - Ler esse documento carregado e fazer vários replaces nele 3- Salvar como .doc ou docx

Olá amigos, tudo bom?Eu estou com uma dúvida em uma app que estou desenvolvendo, talvez vocês possa me ajudar.Trata-se de uma app de venda de passagens BP-e que rodará em um dispositivo móvel.Uma maquina de cartão de crédito da Cielo. A Cielo LIOEla tem uma impressora acoplada, mas é impossível acessa-la via Bluetooth ou USB ou COM.No site de suporte ao desenvolvedor da Cielo há a seguinte informação:1) Para realizar a integração é necessário definir um contrato de resposta com a LIO, no modelo abaixo:<activity android:name=".ResponseActivity"><intent-filter><action android:name="android.intent.action.VIEW" /><category android:name="android.intent.category.DEFAULT" /><dataandroid:host="response"android:scheme="order" /></intent-filter></activity>2) Para realizar a impressão, basta montar uma URL com o seguinte formato:lio://print?request=$base64&urlCallback=order://responseCom essas informações eu desenvolvi a minha aplicação enviando intents para LIO com os comandos e os textos a serem impressos.Estou consegundo imprimir, porém, quando eu imprimo, a aplicação da LIO que roda em segundo plano, responsável por receber os comandos e executar a impressão, abre e não fecha mais e sobrepõe a minha aplicação.Eu estou usando esta rotina para imprimir:Base64 := MinhaEncodeBase64(BytesOf(scheme));Uri := 'lio://print?request='+Base64+'&urlCallback=order://response';{$IFDEF ANDROID}Imprime1 := TJIntent.Create;Imprime1.setType(StringToJString('text/pas'));Imprime1.setAction(TJIntent.JavaClass.ACTION_VIEW);Imprime1 := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW,TJnet_Uri.JavaClass.parse(StringToJString(TIdURI.URLEncode(uri))));Imprime1.setData(StrToJURI(uri));SharedActivity.startActivity(Imprime1);{$ENDIF}Por acaso alguém saberia dizer o que está errado?Ficaria muito grato se alguém pudesse me dar uma ajuda.De qualquer forma,Desde já agradeço.Marcio Dias Ramos.

Olá estou tentando fazer uma procedure para restaurar o banco de dados a partir de um arquivo .sql gerado em um backup feito com mysqldump, mais não estou sabendo usar o mysqlimport, estou deixando o trecho do fonte aqui,se alguém souber agradeço, a primeira procedure é a do backup está funcionando normal, é a segunda que não funciona eu fiz ela baseada na procedure do backup eu sou meio novato com programação. // procedure TFrmMenu.BackupdeDados1Click(Sender: TObject); var caminhoBD, caminhoDUMP, nome : string; begin nome := FormatDateTime('dd-mm-yyyy', now); caminhoBD := GetCurrentDir + '\BD\'; caminhoBD := caminhoBD + nome +'.sql'; caminhoDUMP := GetCurrentDir + '\BD\mysqldump.exe'; ShellExecute(handle,'open', 'cmd.exe',Pchar('/c ' + caminhoDUMP + ' pdv -u root -hlocalhost -p --opt -v>' + caminhoBD),nil, SW_SHOW ); backupDados := true; end; PROCEDURE DE RESTAURAÇÃO DE DADOS procedure TFrmMenu.RestaurarBackup1Click(Sender: TObject); var caminhoBD, caminhoIMPORT, nome : string; begin nome := FormatDateTime('dd-mm-yyyy', now); caminhoBD := GetCurrentDir + '\BD\'; caminhoBD := caminhoBD + nome +'.sql'; caminhoIMPORT := GetCurrentDir + '\BD\mysqlimport.exe'; ShellExecute(handle,'open', 'cmd.exe',Pchar('/c ' + caminhoIMPORT + ' -u root -p --hlocalhost pdv ' + caminhoBD),nil, SW_SHOW );

Fala galera beleza!? Estou estudando o termo API, já sei o que significa bla,bla,bla,bla!!!! Já vi muitos vídeos na internet sobre!! Quero aprender na prática... Para que uma Api funcione precisa de isso é isso é isso!!! Entenderam a cereja do bolo! Quero desenvolver se possível utilizando DELPHI! Mais quero aprender os componentes que são usados, e entender principalmente o código fonte! o que cada coisa faz!!!!

Veio aqui pedir a ajuda de vocês.. Estou fazendo um projeto que funciona assim: 5.. Shapes... 5... Timers 1.. SpeedButton Resolução: Código dentro do Speedbutton!! timer1.Enabled:=true; Shape1.Brush.Color:=clgreen; Código dentro do Timer Shape1.Brush.Color:=clred; Funciona tipo semáforo! Progresso ligado = Verde e Depois Desligado = Vermelho... Isso tudo no tempo que eu determinar no Timer. A minha dificuldade e porque Coloquei um progressBar e quero que apareça no componente. de 1 a 100%.. Conforme eu determinar no timer. Espero ter sido claro!

🙂 Bom Dia Se copio cada caractere individualmente do edit e dando uma quebra de linha com #13#10, uso um código como esse, só que dependendo do programa fica muito cheio de variveis procedure TForm1.Button1Click(Sender: TObject); var a,b,c,d,e:string; begin a:=copy(Edit1.Text,1,1)+ #13#10; b:=copy(Edit1.Text,2,1)+ #13#10; c:=copy(Edit1.Text,3,1)+ #13#10; d:=copy(Edit1.Text,4,1)+ #13#10; e:=copy(Edit1.Text,5,1)+ #13#10; memo1.Lines.Add(concat (a + B + C + d )); end; Não teria um jeito mais simples de se fazer mesmo enxugando o código acima usando um laço for, while ou de outra maneira, para usar apenas uma variável? tipo assim: procedure TForm1.Button1Click(Sender: TObject); var a:string; i:integer ; begin for i:=1 to Length(Edit1.text) do a:=(copy(Edit1.Text,i,1)+ #13#10); memo1.Lines.Add(a + IntToStr(i)); end;

Olá pessoal, saudações é possivel transformar uma palavra string de tamanho desconhecido , separada pelo separador ; em celulas separadas ,no stringrid em uma única linha? variável := t;e;x;t;o nas células do StringGrid ficaria asssim [ t ] [ e ] [ x ] [ t ] [ o ]

olá a todos Tem como jogar todos os itens tabulados do ListBox para o StrinGrid em sequência, cada item numa célula separada na mesma linha? procedure TForm1.Button1Click(Sender: TObject); begin ListBox1.Items.Add('PrimeiraColuna'^I'Segunda'^I'Terceira') ; end;

Instalei recentemente o Delphi Tokio 10.2, mais não veio com componentes para relatório. não encontro link para download desses componentes! alguém me ajuda ai?

Bom dia, por acaso alguém já desenvolveu ou conhece alguém que tenha desenvolvido multipag bradesco 240 ? estou montado ta indo bem mas o manual deles não esclarece procedimento para pagamento de IPTU/IPVA/LICENCIAMENTO E DPVAT estou procurando alguém que já tenha desenvolvido pra ver se conseguiu esses procedimentos

Olá amigos Preciso de uma ajuda e quem poder dar uma força agradeço, como que posso fazer através do código uma variável A que cubra uma faixa de valores que vai 1 até 29,59 , que a variável B cubra uma faixa de valores que vai 30 até 59,59 assim por diante 1..29,59 := (A); 30..59,59 := (B); 60.. 89,59 := (C); 90..119,59 := (D); 120..149,59 := (E); 150..179,59 := (F);

é possivel girar uma Timagem por grau sem ser apenas em 45° ou 90 ° , mas conforme o valor de uma variável agradeçido quem poder dar ajuda

tem alguma função ou dica que pode ser usada para separar silabas de qualquer palavra ou frase no idioma português em um texto qualquer ca-sa ca-sa-men-to car-tó-rio A-les-san-dra

Olá a todos amigos, no Mask Edit coloco uma data dd/mm/aaaa e consigo jogar essa data, mais um texto correspondente dependendo do seu valor que vem de uma variável, para um Memo ficando assim no Memo, se a data for essa do Maskedit for 01/01/2019. 01/01/2019 texto1 tem jeito de incrementar o numero de meses através de uma variável, pegando aquela data do Mask Edit, e jogar para o mesmo Memo por exemplo ,se a variavel for 3 ele incrementa tres meses, se for 12 joga doze meses, tipo essas previsões mensais? 01/01/2019 texto1 01/02/2019 texto2 01/03/2019 texto3 01/04/2019 texto4 .............. fiz um um rascunho Obrigado a todos amigos aqui do fórum e a quem poder me dar auxilio

Código Fontes Delphi Berlin Firebird - Retaguarda+Frente de Caixa - NFe 4.00+NFCe 4.00+TEF De R$ 1.300 por apenas R$ 550! Somente neste fim de semana!!! Com garantia de compilação e funcionamento no Delphi Berlin ou seu dinheiro de volta!!! Frente de Caixa (NFC-e 4.00) TEF Integrado com Retaguarda (NF-e 4.00) (mesmo banco de dados) em Firebird 2.5 + TEF Dedicado ou Discado no Delphi Berlin. (Não possui SAT). Pra comprovar, entre no ambiente de homologação do Rio Grande do Sul e consulte as chaves abaixo: NFC-e: 43180409369680000190650010000004651000004650 NF-e: 43180409369680000190550050000205011000205017 Ambiente de Homologação do Rio Grande do Sul NF-e = https://www.sefaz.rs.gov.br/NFE/NFE-COM.aspx NFC-e = https://www.sefaz.rs.gov.br/NFE/NFE-NFC.aspx Baixe o Demo com todas as funcionalidades em Modo Homologação https://drive.google.com/open?id=10Wy6oFS3D5Jhwq3V--l03BCc7IajeWnh Pagamento seguro pelo Mercado Pago!!! https://www.mercadopago.com/mlb/checkout/start?pref_id=317168099-0a18c403-823b-448a-a6d3-8543eb42d742 Obs.: Fornecemos o arquivo zipado em até 24 horas com tudo que é necessário para configurar o ambiente no Delphi Berlin. A configuração do ambiente é por sua conta, caso queira suporte cobramos R$ 300,00 para realizar a configuração do ambiente (Delphi Berlin já deve estar instalado). Caiman ERP PDV NF-e / NFC-e 4.00 caimanerp@gmail.com WhatsApp: +1 (850) 604-0528 https://www.facebook.com/caiman.retaguarda/ Não é pra curioso, apenas pra quem desenvolve em Delphi Berlin!!! Promoção válida até 10/12/2018 06:00.

Como fazer que um programa detecte alterações por exemplo em um arquivo TXT qualquer? Exemplo: Fiz um trabalho, e salvai na data de hoje 27/11/2018. Vamos supor que fiz alteração no Dia 28/11/2018. Quero que o programa tipo Bloqueie o acesso, a algo importante no sistema, porque ele salvou dia 27, mais o arquivo foi alterado de algum modo, e não pode ser alterado esse arquivo impotetico .