RE: [delphi-br] Campo Agregado no CLientDataSet
No meu link de downloads gratuitos (HTTP://cc.embarcadero.com/author/795118), o vídeo do FDD mostra em um passo a passo como usar e configurar os campos aggregates e muitos outros recursos do clientdataset. Abs Bruno From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of Sérgio Sent: sexta-feira, 9 de abril de 2010 15:54 To: delphi-br@yahoogrupos.com.br Subject: RE: [delphi-br] Campo Agregado no CLientDataSet Obrigado pela informação. On Fri, 9 Apr 2010 18:38:09 +, Rubem Nascimento da Rocha wrote As expressões de um campo agregado não dão suporte algum para funções ou construções de expressões condicionais, apenas expressões que envolvem funções de agregação (SUM, AVG, COUNT, etc.). Sds. To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br From: henrique_fi...@yahoo.com.br mailto:henrique_filet%40yahoo.com.br Date: Thu, 8 Apr 2010 16:56:16 -0300 Subject: [delphi-br] Campo Agregado no CLientDataSet Pessoal, boa tarde. Alguem sabe me dizer se há como colocar condição na propriedade EXPRESSION de um campo agregado no clientDataSet ?? Tipo ao inves de fazer apenas um SUM(VALOR) fazer tipo um SUM(DECODE(ColunaX, 0, 0, VALOR)) Obrigado e fico aguardo. Sérgio __ Você sabia que seu navegador te ajuda a ficar longe de vírus? Leia mais sobre isso. http://www.microsoft.com/brasil/windows/internet-explorer/?WT.mc_id=1500 [As partes desta mensagem que não continham texto foram removidas] Sérgio Tecnologia da Informação - TI Tel.: 16 3810 1060 e-mail: ser...@altamogiana.com.br mailto:sergio%40altamogiana.com.br Usina Alta Mogiana S/A - Acucar e Alcool [As partes desta mensagem que não continham texto foram removidas] Click here https://www.mailcontroller.altohiway.com/sr/YaZXmMo2JN!TndxI!oX7UpL7FVZ9GYHYD7Uh9OYMjq56spTWVd5bn4gjQ7l4O0YajrhgDryOVO80OzGclh82!Q== to report this email as spam. This message has been scanned for viruses by MailController http://www.MailController.altohiway.com/ . [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] [MAF] Campo Calculado ClientDataSet
Pessoal, alguém por acaso teria algum tutorial de como fazer campo 'CALCULATED' no ClientDataSet. Quero fazer o seguinte, tenho os seguintes campos posicao, nome, tempo, voltas, diferenca. Quero inserir do campo posicao até voltas e ele fazer o diferenca automatico. Teria que pegar o cara da posicao anterior, ver se o numero de voltas é o mesmo e fazer a diferenca dos tempos e se as voltas forem diferentes, fazer a diferenca pelas voltas. Att, Marcos
RE: [delphi-br] [MAF] Campo Calculado ClientDataSet
No meu link de donwloads gratuitos tem isso no video do FDD 2008 e em vários outros exemplos: http://cc.embarcadero.com/author/795118 Abs Bruno From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of Marcos Abreu Ferreira Sent: sábado, 10 de abril de 2010 11:26 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] [MAF] Campo Calculado ClientDataSet Pessoal, alguém por acaso teria algum tutorial de como fazer campo 'CALCULATED' no ClientDataSet. Quero fazer o seguinte, tenho os seguintes campos posicao, nome, tempo, voltas, diferenca. Quero inserir do campo posicao até voltas e ele fazer o diferenca automatico. Teria que pegar o cara da posicao anterior, ver se o numero de voltas é o mesmo e fazer a diferenca dos tempos e se as voltas forem diferentes, fazer a diferenca pelas voltas. Att, Marcos Click here https://www.mailcontroller.altohiway.com/sr/YfnQ5la2OlbTndxI!oX7UlXrL06QsU8vFyHeYtTsyaJXWtIcPZKyWhXhcrpM9OKd6ddfo6acNCri5jK2rp2Ftw== to report this email as spam. This message has been scanned for viruses by MailController http://www.MailController.altohiway.com/ . [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] PIS e COFINS
Na verdade o produto é nacional, nao tem importacao e nem exportacao, ele trabalha com poupas da frutas e vende para empresas igual carrefour, svegnado, etc.., o imposto da empresa dele é 18%, e o seu contato tinha me passado os percentuais, mas esqueci de perguntar como fazer os calculos por itens vendidos, pois na NFE pede no final ex: VL BC COFINS ALIQ COFINS VALOR COFINS QTD VENDIDA ALIQ COFINS(reais) --- Em sáb, 10/4/10, Ricardo Augusto ricardo250...@yahoo.com.br escreveu: De: Ricardo Augusto ricardo250...@yahoo.com.br Assunto: Re: [delphi-br] PIS e COFINS Para: delphi-br@yahoogrupos.com.br Data: Sábado, 10 de Abril de 2010, 4:39 É que alguns anos trabalhei em um sistema financeiro onde a parte de cálculo da contribuição do PIS e COFINS caia sobre a receita geral da empresa e na importação de bens e serviços. Como o Heraldo mencionou um produto, achei se tratar da primeira forma, mas agora também fiquei na dúvida... =/ 2010/4/10 Andrei Luís compuvale.softw...@gmail.com Heraldo, quando li sua mensagem entendi que você quer saber como calcular o valor do PIS e COFINS baseado nas infos que você passou (10,00, 0,65 e 3,00). Mas aí o Ricardo falou em imposto sobre importação(?) e não entendi mais nada. Aqui pra mim não aparece nada sobre II. Afinal, o que você precisa? []s Andrei 2010/4/9 Heraldo Andrade heraldo_andr...@yahoo.com.brheraldo_andrade%40yahoo.com.br o produto custa 10,00, o pis 0,65 e o cofins 3,00, como eu calculo isto, o contador me passou os valores, mas esta fechado e volta na segunda, e segunda cedinho eu preciso entregar prontinho a NFE, so falta isto, alguem tem uma dica? [As partes desta mensagem que não continham texto foram removidas] -- _ Ricardo Augusto Muitos dos problemas do mundo devem-se ao fato de que os ignorantes estão completamente seguros e os inteligentes cheios de dúvidas (Bertrand Russel) [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Quick Report - Juntar 2 rela tórios
Já tentaram usar o componente QRCompositeReport1AddReports e no evento AddReports begin with QRCompositeReport1 do begin reports.Add(Relatorio1.QuickRep1); reports.Add(Relatorio2.QuickRep1); end; end; Pedro De: Gilberto gmbazi...@hotmail.com Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 9 de Abril de 2010 16:19:57 Assunto: Re: [delphi-br] Quick Report - Juntar 2 relatórios Alessandro, acho que você desenhou 2 quickRep e na hora de imprimir vc quer q na folha 1 sai o QuickRep1 e na Segunda Folha o QuickRep2? se for isso, também estou procurando como fazer, eu fiz com o composite, mas ele não cria na segunda pagina, ele continua de onde terminou a band da primeira. From: Alessandro Sent: Friday, April 09, 2010 8:23 AM To: delphi...@yahoogrup os.com.br Subject: [delphi-br] Quick Report - Juntar 2 relatórios Bom dia! Tenho 2 relatórios no meu sistema e gostaria de juntá-los em 1 único relatório. Tentei usar o componente QRComposite mas não deu certo. Alguém já fez isto? Poderiam me passar algumas dicas? Obrigado _ _ _ _ _ _ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbusca dos.yahoo. com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Draw - Page Control
Pessoal, boa noite. Alguém tem a fórmula para calcular o digito verificador da matrícula das novas certidões de nascimento, casamento e óbtio. Atenciosamente, Pedro [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] função findfirst
Na verdade, a API FindFirst não garante nem que os arquivos voltarão na ordem em que foram gravados, provavelmente pq a tabela de alocação de arquivos pode ter suas entradas alterada por vários fatores, como desfragmentações e otimizações de prefecth. Então, assim como uma consulta SQL sem ORDER BY, o melhor é não assumir ordem nenhuma. Em 9 de abril de 2010 15:57, Alexandre alexandre.pedr...@gmail.comescreveu: boa tarde, não sei se é isso que você quis dizer, mas... a ordem que o FindFirst tras os arquivos é a ordem em que foram gravados no diretório. Para ordenar, grave os arquivos num stringlist e use a propriedade de ordenação do mesmo. Depois faça o loop no StringList e obterá o resultado desejado. Alexandre Em 8 de abril de 2010 08:16, Ralp Alves Bezerra ral...@gmail.com escreveu: Bom dia nobres colegas. Estou utilizando esta rotina para pegar as imagens de uma pasta e salvar no banco firebird. if FindFirst('C:\G2DOC\G2Imagem\*.jpg', faAnyFile, Arq) = 0 then begin repeat DM.cds_TCM_A.Insert; dbiImagem.LoadFromFile('C:\G2DOC\G2Imagem\'+Arq.Name); //Incrementa número da página Inc(Pag); //Grava Número da página DM.cds_TCM_APAGINA.Text :=IntToStr(Pag); //Grava nome do arquivo DM.cds_TCM_ANOME_ARQUIVO.Text :=frmDigitalizaTCM.Label13.Caption+IntToStr(Pag)+'.jpg'; //Grava Caminho do Arquivo DM.cds_TCM_ACAMINHO.Text :=Dir; //Grava sigla do documento DM.cds_TCM_ASIGLA_DOCUMENTO.Text :=DM.cds_TCMSIGLA_DOCUMENTO.Text; //Grava Codigo entidade DM.cds_TCM_ACODIGO_ENTIDADE.Text :=DM.cds_TCMCODIGO_ENTIDADE.Text; //Grava Cod. Unid. Administrativa DM.cds_TCM_ACOD_UNID_ADMINISTRATIVA.Text:=DM.cds_TCMCOD_UNID_ADMINISTRATIVA. Text; //Grava Exercicio DM.cds_TCM_AEXERCICIO.Text :=DM.cds_TCMEXERCICIO.Text; //Grava Unidade Gestora DM.cds_TCM_AUNIDADE_GESTORA.Text :=DM.cds_TCMUNIDADE_GESTORA.Text; //Grava Nome Documento DM.cds_TCM_ANOME_DOCUMENTO.Text :=DM.cds_TCMNOME_DOCUMENTO.Text; //Informa se arquivo foi digitalizado DM.cds_TCM_ADIGITAL.Text :='1'; //Informa o anexo do demonstrativo DM.cds_TCM_AANEXOS.Text :=frmDigitalizaTCM.DBText5.Caption; DM.cds_TCM_A.Post; DM.cds_TCM_A.ApplyUpdates(0) until FindNext(Arq) 0; FindClose(Arq); end; Porém, quando vou verificar a seqüência da pasta com a importação dos arquivos no banco firebird, noto que alguns arquivos saem da ordem correta. Será que a rotina acima está correta? Alguém poderia me dar uma dica? Estou utilizando Firebird 2.1 e Delphi 7. Abraços. Ralp Alves [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- _ Ricardo Augusto Muitos dos problemas do mundo devem-se ao fato de que os ignorantes estão completamente seguros e os inteligentes cheios de dúvidas (Bertrand Russel) [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Paradox
Amigão: Vou falar de memória pois há vários anos que não uso piradox. basicamente: suaVariavel.text := suaTabela.seuCampo.value; simples assim. Abraços Nuno On Seg 5/04/10 20:53 , Adenes Junior ade...@ecoplanpb.com.br sent: Como faço para pegar o conteúdo de um campo memo (paradox) para uma variável? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Draw - Page Control
Acho que vc teria que ter aberto um outro tópico, já que no assunto não tem nada a ver com esse... O dígito verificador é formado por 2 dígitos onde o primeiro é o módulo 11 dos 32 algarismos da mátricula e o segundo é módulo 11 dos mesmos algarismos concatenado ao primeiro dígito. Supondo que no Edit1 está o número completo da matrícula (sem espaços) e no Edit2 sairá o DV: *function *calcularDX(Numero: *string*): integer; *var* i: integer; mult: integer; soma: integer; *begin* i := 1; mult := Length(Numero) + 1; soma := 0; *while *i = Length(Numero) do *begin* Inc(soma, ((Ord(Numero[i]) - 48) * mult) * 10); Inc(i); Dec(mult); *end*; Result := soma *mod *11; *if *Result = 10 *then *Result := 1; *end*; *procedure *TForm1.Button1Click(Sender: TObject); *var* D1, D2: Char; *begin* D1 := Chr(CalcularDX(Edit1.Text) + 48); D2 := Chr(CalcularDX(Edit1.Text + D1) + 48); Edit2.Text := D1 + D2; *end*; No provimento 2 da norma do CNJ está descrito a que se refere cada parte do número da matrícula. OBS.: Da próxima vez, abre outro tópico =) Em 9 de abril de 2010 21:49, Pedro Neves neve...@yahoo.com escreveu: Pessoal, boa noite. Alguém tem a fórmula para calcular o digito verificador da matrícula das novas certidões de nascimento, casamento e óbtio. Atenciosamente, Pedro [As partes desta mensagem que não continham texto foram removidas] -- _ Ricardo Augusto Muitos dos problemas do mundo devem-se ao fato de que os ignorantes estão completamente seguros e os inteligentes cheios de dúvidas (Bertrand Russel) [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html