[delphi-br] ACBR para Impressora Elgin Erro Pagamento
Bom dia pessoal, estou tento problemas para finalizar um cupom fiscal com o pagamento o resto está tudo certo. Alguém de vcs já teve esse problema também? Estou usando o ACBR envianto o arquivo ENT.TXT a mascara está aparentemente tudo certo.. Gostaria de saber se alguém passou pelo mesmo problema. Att. Cristiano. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida Delphi com Postgre s
edersonecris wrote: Instalei o pg com o formato de data em ymd, só que agora com todo o bd pronto, tenho que fazer umas consultas de contas a pagar. E no delphi estou tendo que escrever as datas nesse formato para filtrar e para montar as sqls. Tem como eu mudar o formato de data no pg instalado no windows de forma definitiva (incluindo alterando os registros gravados) para o formato dmy, de forma que possa utilizar as datas no formato DMY dentro do delphi? Ao invés de ficar limitado a configuração de data do servidor, procure montar suas queries desta forma: select cod from tab where data = :data1 e então informe o valor de data1 através do Delphi. Muito mais prático do que adivinhar o formato que o banco aceita. -- Joao Morais
Re: [delphi-br] Usuário do UserControl
OI Júnior, Para retornar o nome do usuário que logou no use control eu uso por exemplo: vUsuario := UserControl.CurrentUser.UserName; statusbar.Panels[0].Text := ' Usuário: ' + qUsuario; ou buscando direto na tabela que armazena os dados do usuário da seguinte forma: vCodUsuario := UserControl.TableUsers.FieldUserID; Se vc pressionar após o ponto (Exe: UserControl.TableUsers. ) o delphi te retornar todos os campos que possui a tabela Users para que que vc atribua da melhor forma possivel. Espero não ter complicado muito, mais simplifiquei ao máximo... Em 24/01/08, Junior [EMAIL PROTECTED] escreveu: Como faço pra descobrir qual o usuário que logou no sistema, já que o controle é feito pelo User Control ? Alguém aí que usa o UC exibe em algum lugar (form/statusbar/etc) o nome do usuário ? Obrigado Junior [As partes desta mensagem que não continham texto foram removidas] -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Usuário do UserControl
Ops, falha minha ... É o sono. Esqueci de mencionar que vc deve pressionar o CTRL + Barra de Espaço depois do ponto... rsrsrsrs Em 24/01/08, Jorge Ericsson [EMAIL PROTECTED] escreveu: OI Júnior, Para retornar o nome do usuário que logou no use control eu uso por exemplo: vUsuario := UserControl.CurrentUser.UserName; statusbar.Panels[0].Text := ' Usuário: ' + qUsuario; ou buscando direto na tabela que armazena os dados do usuário da seguinte forma: vCodUsuario := UserControl.TableUsers.FieldUserID; Se vc pressionar após o ponto (Exe: UserControl.TableUsers. ) o delphi te retornar todos os campos que possui a tabela Users para que que vc atribua da melhor forma possivel. Espero não ter complicado muito, mais simplifiquei ao máximo... Em 24/01/08, Junior [EMAIL PROTECTED] escreveu: Como faço pra descobrir qual o usuário que logou no sistema, já que o controle é feito pelo User Control ? Alguém aí que usa o UC exibe em algum lugar (form/statusbar/etc) o nome do usuário ? Obrigado Junior [As partes desta mensagem que não continham texto foram removidas] -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida Delphi com Postgre s
Um membro do grupo do postgres disse que pode ser buf do zeoslib. Alguém daqui usa delphi 2007 com postgres 8.1.9 ou superior com o zeos 6.6.2? As datas aparecem corretamente? Consegue consultar corretamente? Grato Éderson José Mário Silva Guedes escreveu: Olá, No postgresql.conf mude a entrada datestyle para datestyle = 'sql, european' Aqui resolveu... [As partes desta mensagem que não continham texto foram removidas] -- Éderson Cassiano Bologna [EMAIL PROTECTED] sKYPE: edersoncassiano MSN: [EMAIL PROTECTED] www.microtechshop.com
Re: [delphi-br] Delphi 2007 x Qtek 9100
Não. Só pra plataforma Windows + Processador com arquitetura x86 []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil [EMAIL PROTECTED] http://www.geocities.com/SiliconValley/Bay/1058 MSN: [EMAIL PROTECTED] SKYPE: WalterChagasJr - Original Message - From: Renato Bermudo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 23, 2008 2:08 PM Subject: [delphi-br] Delphi 2007 x Qtek 9100 Olá pessoal! Alguém poderia informar se é possível utilizar o Delphi 2007 para desenvolver aplicativos (tipo Pedidos de vendas) para o Qtek 9100? Obrigado! [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2817 (20080123) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida Delphi com Postgres
Bom dia! Esse é um BUG do Zeos mesmo... Também estou procurando uma alternativa... Infelizmente, enquanto não vem a solução em definitivo, na consulta eu uso um cast, como por exemplo: ... CAST(DATA AS VARCHAR(10)) AS DATA, ... É triste, mas dá para conviver... [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Rotina genérica para ordenação
O procedimento abaixo, ordena qualquer conjunto de ClientDataSet, DBGrid e Coluna, chamado a partir do evento ontitleclick de qualquer dbgrid. Ele coloca bold no tituo da coluna clicada, e ordena no primeiro clique crescente e no segundo decrescente e assim vai alternando a cada clique na mesma coluna. Este procedimento é o que uso em minhas aplicações comerciais, e pode ser encontrado implementado e funcionando em quase todos os meus exemplos, especialmente o ultimo que postei (primeiro da lista) no meu link de downloads gratuitos (http://cc.codegear.com/Author/795118) que possui uma aplicação só para explicar sobre os recursos do ClientDataSet. procedure TDM.OrdenaCDSGrid(var CDS: TClientDataSet; var DBG: TDBgrid; Column: TColumn); const idxDefault = 'DEFAULT_ORDER'; var strColumn : string; i : integer; bolUsed : boolean; idOptions : TIndexOptions; begin strColumn := idxDefault; if Column.Field.FieldKind in [fkCalculated, fkLookup, fkAggregate] then Exit; if Column.Field.DataType in [ftBlob, ftMemo] then Exit; for i := 0 to DBG.Columns.Count - 1 do begin DBG.Columns[i].Title.Font.Style := []; end; DBG.Columns[Column.Index].Title.Font.Style := [fsBold]; bolUsed := (Column.Field.FieldName = CDS.IndexName); CDS.IndexDefs.Update; for i := 0 to CDS.IndexDefs.Count - 1 do begin if CDS.IndexDefs.Items[i].Name = Column.Field.FieldName then begin strColumn := Column.Field.FieldName; case (CDS.IndexDefs.Items[i].Options = [ixDescending]) of True : idOptions := []; False : idOptions := [ixDescending]; end; end; end; if (strColumn = idxDefault) or (bolUsed) then begin if bolUsed then CDS.DeleteIndex(Column.Field.FieldName); try CDS.AddIndex(Column.Field.FieldName, Column.Field.FieldName, idOptions, '', '', 0); strColumn := Column.Field.FieldName; except if bolUsed then strColumn := idxDefault; end; end; try CDS.IndexName := strColumn; except CDS.IndexName := idxDefault; end; end; abs BL De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rubem Nascimento da Rocha Enviada em: quinta-feira, 24 de janeiro de 2008 01:40 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] Rotina genérica para ordenação Prioridade: Alta O DBGrid está ligado a um DataSource, que por sua vez está ligado a um ClientDataSet. Levando em conta este fato, e tb que a classe TColumn possui uma propriedade chamada Grid, da classe TCustomDBGrid, que representa o DBGrid a qual mesma pertence, tem como achar o ClientDataSet usado pelo DBGrid sem precisar fazer essa lambança de criar um novo ClientDataSet. Desse jeito, vais acabar tendo um consumo de memória desnecessário. Exemplo: procedure TfrmBasico_ComGrid.DBGrid1TitleClick(Column: TColumn); var lCds: TClientDataSet; begin if Column.Grid.DataSource.DataSet is TClientDataSet then begin lCds := TClientDataSet(Column.Grid.DataSource.DataSet); if FOldColumn Column then begin FOldColumn := Column; lCds.IndexFieldName := Column.FieldName; end; end; end; Basicamente, é isso. No código acima, assume-se que FOldColumn é um campo privado que guarda a coluna pela qual o dataset do grid (e não o próprio grid) era anteriormente ordenado. Como sugestão de melhoria (aí é por sua conta!), poderíamos acrescentar a alternância da ordenação para ascendente ou decrescente caso a coluna clicada seja a mesma que a anteriormente selecionada. Sds. To: [EMAIL PROTECTED] mailto:NDDV%40yahoogrupos.com.br From: [EMAIL PROTECTED] mailto:papaia.forum%40gmail.com Date: Thu, 24 Jan 2008 00:13:44 -0200 Subject: [delphi-br] Rotina genérica para ordenação Tenho o form genérico (frmBasico_ComGrid) para pesquisa, com um DBGrid, obviamente ligado à um DataSource, que por sua vez está ligado à um ClientDataSet (mas que muda em cada formulário filho: cdsclientes, cdsparcelas, cdscidades, cdsprofissoes, etc). Estou tentando manipular o evento DBGrid1TitleClick, no formulário básico para ordenação pelas colunas, mas preciso saber o nome do CDS que está sendo manipulado no momento da ordenação, então fiz de acordo com o código abaixo. Compila normalmente, mas dá erro em tempo de execução, dizendo que o nome do cds não é válido, e a mensagem de erro mostra o nome do CDS de forma correta, só que entre aspas duplas. OBS: 'dm.' - é o nome do datamodule. Se alguem puder me orientar onde estou errando, ou apontar outro caminho, antecipadamente meus agradecimentos. procedure TfrmBasico_ComGrid.DBGrid1TitleClick(Column: TColumn); Var cds:TClientDataSet; str:TComponentName; begin CDS := TClientDataSet.Create(Self); str:=DBGrid1.DataSource.DataSet.Name; cds.Name:= 'dm.' + str; if Assigned(OldColumn) then
[delphi-br] Criar nós no xml
Bom dia galera! Seguinte estou precisando, gerar um arquivo xml para o suframa, alguem ja fez isso, tem ideia de como fazer? Tenho o layout do xml, mas nunca mexi com isso tenho q fazer os nós no delphi, e não sei como faço! (Segue abaixo o xml que o cliente me passou) ?xml version=1.0 encoding=utf-8 ? lote nro='12008' versao_sw='6.0' dtEmissao='10/01/2008' xmlns='http://www.portal.fucapi.br' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xsi:schemaLocation='http://www.portal.fucapi.br http://alvaraes.suframa.gov.br:7778/PMNRecEViewController/jsp/importardados/NF.xsd' cnpjDestinatario05300542000101/cnpjDestinatario cnpjTransp28647613000134/cnpjTransp inscSufDestinatario107376016/inscSufDestinatario ufDestinoAM/ufDestino ufOrigemSP/ufOrigem qtdeNF1/qtdeNF notasFiscais notaFiscal nro='1324657' dtEmissao='10/01/2008' txZero='false' incent='0' cnpjRemetente98486434000148/cnpjRemetente CFOP6102/CFOP modelo02/modelo serie/serie inscEstDestinatario/inscEstDestinatario dtSaidaNF/dtSaidaNF hrSaidaNF/hrSaidaNF optDebito2/optDebito ddAdicionaisICMS/ddAdicionais valoresbaseCalcICMS/baseCalcICMSvalICMS/valICMSvalFT/valFTvalSeguro/valSegurovalTotIPI/valTotIPIvalOutrasDesp/valOutrasDespvalTotItens1000/valTotItensvalTotNF930/valTotNFvalPIS/valPISvalCOFINS/valCOFINSvalAbatICMS/valAbatICMS/valores transportadorcnpjTransp28647613000134/cnpjTranspftConta/ftContaplacaVeic/placaVeicufPlacaVeic/ufPlacaVeicinscEstTransp/inscEstTranspqtdeVol/qtdeVolespecie/especiemarca/marcanumero/numeropesoBruto/pesoBrutopesoLiq/pesoLiq/transportador gnrevalGNRE/valGNREdtVencGNRE/dtVencGNREperRefGNRE/perRefGNRE/gnre refaturamentoNFRefat/NFRefatdtEmissaoRefat/dtEmissaoRefatinscSufRefat/inscSufRefat/refaturamento substTributariabaseCalcICMSSubTrib/baseCalcICMSSubTribvalICMSSub/valICMSSubinscEstSubTrib/inscEstSubTrib/substTributaria itens item codProd12454654/codProd descItemTESTE/descItem codNCM90189099/codNCM unidMedcx/unidMed valUnit1/valUnit qtde1000/qtde valTot1000.00/valTot classFiscal/classFiscal sitTribut/sitTribut alICMS/alICMS alIPI/alIPI valIPI/valIPI /item /itens /notaFiscal /notasFiscais /lote ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
[delphi-br] Multiplicando colunas no Rave Reports
Amigos seguinte, tenho uma band de detalhe no Rave e nessa band tenho dois DataText o primeiro DataText tem a propriedade DATAFIELD lincado ao campo QUANTIDADE de minha tabela e o outro está lincado ao campo PRECOUNITARIO, gostaria de saber como faço para que logo ao lado do campo PRECOUNITARIO eu crio um TOTALITEM por exemplo, ou seja, preciso multiplicar a quantidade * precounitario e mostrar o resultado em uma nova coluna. Mais uma vez, valeu pela atenção. Att, Angelo Louzada Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Usuário do UserControl
Olá,
Hehehe, está correto estimado. Indo um pouco mais além, pode usar alguns
eventos do componente.
// Mostrando quando o usuário se logou pela última vez:
procedure TForm1.UserControlLoginSucess(Sender: TObject; IdUser: Integer;
Usuario, Nome, Senha, Email: String;
Privilegiado: Boolean);
var
LastLogin : TDateTime;
StrData : String;
begin
//Pesquisar ultimo login do usuario
qryPesquisa.Close;
qryPesquisa.SQL.Text := 'Select Max(Data) as Data from ' +
UserControl.LogControl.TableLog +
' where IdUser = ' + IntToStr(IdUser) +
' and MSG like ' + QuotedStr('Entrada no sistema%');
qryPesquisa.Open;
StrData := qryPesquisa.FieldByName('data').asString;
if StrData '' then begin
LastLogin := EncodeDate( StrToInt(Copy(StrData,1,4)),
StrToInt(Copy(StrData,5,2)), StrToInt(Copy(StrData,7,2)) ) +
EncodeTime( StrToInt(Copy(StrData,9,2)),
StrToInt(Copy(StrData,11,2)), StrToInt(Copy(StrData,13,2)),0);
MessageDlg('Seu último Login foi em '+ FormatDateTime('DD/MM/',
LastLogin)+' '+ FormatDateTime('hh:mm', LastLogin), mtInformation, [mbOK],
0);
end else MessageDlg('Bem vindo!'+#13+#10+'Este é seu primeiro Login no
sistema.', mtInformation, [mbOK], 0);
qryPesquisa.Close;
// Logar este login do usuario
UserControl.Log(Format('Entrada no sistema usuário: %s nome:
%s',[Usuario, Nome]),0);
end;
// Simplesmente pegando os dados do usuário logado
procedure TForm1.UserControlLoginSucess(Sender: TObject; IdUser: Integer;
Usuario, Nome, Senha, Email: String;
Privilegiado: Boolean);
begin
globalIdUser := IdUser;
globalNameUser := Nome;
// Logar este login do usuario
UserControl.Log(Format('Ultimo login do usuário: %s nome:
%s',[Usuario, Nome]),0);
end;
// Logando usuário que fica errando senha, pode controlar pela propriedade
MaxLoginAttemps
// no create do form cria iTentativas := 1 e no loginsucess volta
iTentativas pra 1;
procedure TForm1.UserControlLoginError(Sender: TObject; Usuario, Senha:
String);
var
sTentativas : String;
begin
sTentativas := Trim(IntToStr(iTentativas)) + '/' +
IntToStr(UserControl.Login.MaxLoginAttempts);
UserControl.Log(Format('Erro de login do usuário: %s senha: %s
tentativa : %s',[Usuario, Senha, sTentativas]),0);
end;
Saudações.
Alexandre.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Jorge Ericsson
Enviada em: quinta-feira, 24 de janeiro de 2008 03:00
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Usuário do UserControl
OI Júnior,
Para retornar o nome do usuário que logou no use control eu uso por exemplo:
vUsuario := UserControl.CurrentUser.UserName; statusbar.Panels[0].Text := '
Usuário: ' + qUsuario;
ou buscando direto na tabela que armazena os dados do usuário da seguinte
forma:
vCodUsuario := UserControl.TableUsers.FieldUserID;
Se vc pressionar após o ponto (Exe: UserControl.TableUsers. ) o delphi te
retornar todos os campos que possui a tabela Users para que que vc atribua
da melhor forma possivel.
Espero não ter complicado muito, mais simplifiquei ao máximo...
Em 24/01/08, Junior [EMAIL PROTECTED] escreveu:
Como faço pra descobrir qual o usuário que logou no sistema, já que
o controle é feito pelo User Control ?
Alguém aí que usa o UC exibe em algum lugar (form/statusbar/etc) o
nome do usuário ?
Obrigado
Junior
[As partes desta mensagem que não continham texto foram removidas]
--
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3965.2992 / 3039.1768
Brasília - DF
Re: [delphi-br] ACBR para Impressora Elgin Erro Pagamento
Que erro está acontecendo? Se possível mande o log do ACBrMonitor para analisarmos. - Original Message - From: Cristiano Rodrigo Gomes [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 24, 2008 7:57 AM Subject: [delphi-br] ACBR para Impressora Elgin Erro Pagamento Bom dia pessoal, estou tento problemas para finalizar um cupom fiscal com o pagamento o resto está tudo certo. Alguém de vcs já teve esse problema também? Estou usando o ACBR envianto o arquivo ENT.TXT a mascara está aparentemente tudo certo.. Gostaria de saber se alguém passou pelo mesmo problema. Att. Cristiano. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos
Re: RES: [delphi-br] Listar Dispositivos de Audio
Bom dia, Conforme a idéia do Euardo Borges, consegui o seguinte código: var Index: Integer; Caps: TMixerCaps; begin Result := 0; for Index := 0 to mixerGetNumDevs - 1 do begin mixerGetDevCaps(Index, @Caps, SizeOf(Caps)); Names.Append(Caps.szPname); Inc(Result); end; end; Apenas adaptei as minhas necessidades. Preciso ai identificar as formas de entrada de audio disponíveis na placa. Alguma ajuda? Obrigado, Ilton Vieira Junior Davi Eduardo Borges Wall escreveu: pegar os dados de um componente seria meio gambiarra. Essa é uma perola! Por que então você não pega o código fonte do componente? Daí não seria a tal gambiarra. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Ilton Vieira Junior Enviada em: quarta-feira, 23 de janeiro de 2008 16:31 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Listar Dispositivos de Audio Boa tarde Rubem, Na realidade não encontrei nada que me informasse quais dispositivos estão instalados. Apenas checam se tem um dispositivos instalado, informando a quantidade encontrada. Tem componentes que informam os dipositivos na propriedade deles, mas pegar os dados de um componente seria meio gambiarra. Obrigado, Ilton
[delphi-br] re Criar nós no xml
Oi pessoal tambem estou com o mesmo problema esta semana ... Gerar o arquivo xml para o SUFRAMA . se alguem souber tem algumas dicas ... ouvi dizer que o clientDataset gera ... mas como configuro ele para usar uma tabela e filha ??? alguem tem algum material de exemplo ??? att. Marcio Luis Brignoli Blumenau -SC At 08:27 24/01/2008 -0300, you wrote: Bom dia galera! Seguinte estou precisando, gerar um arquivo xml para o suframa, alguem ja fez isso, tem ideia de como fazer? Tenho o layout do xml, mas nunca mexi com isso tenho q fazer os nós no delphi, e não sei como faço! (Segue abaixo o xml que o cliente me passou) ?xml version=1.0 encoding=utf-8 ? lote nro='12008' versao_sw='6.0' dtEmissao='10/01/2008' xmlns='http://www.portal.fucapi.brhttp://www.portal.fucapi.br' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instancehttp://www.w3.org/2001/XMLSchema-instance' xsi:schemaLocation='http://www.portal.fucapi.brhttp://www.portal.fucapi.br http://alvaraes.suframa.gov.br:7778/PMNRecEViewController/jsp/importardados/NF.xsdhttp://alvaraes.suframa.gov.br:7778/PMNRecEViewController/jsp/importardados/NF.xsd' cnpjDestinatario05300542000101/cnpjDestinatario cnpjTransp28647613000134/cnpjTransp inscSufDestinatario107376016/inscSufDestinatario ufDestinoAM/ufDestino ufOrigemSP/ufOrigem qtdeNF1/qtdeNF notasFiscais notaFiscal nro='1324657' dtEmissao='10/01/2008' txZero='false' incent='0' cnpjRemetente98486434000148/cnpjRemetente CFOP6102/CFOP modelo02/modelo serie/serie inscEstDestinatario/inscEstDestinatario dtSaidaNF/dtSaidaNF hrSaidaNF/hrSaidaNF optDebito2/optDebito ddAdicionaisICMS/ddAdicionais valoresbaseCalcICMS/baseCalcICMSvalICMS/valICMSvalFT/valFTvalSeguro/valSegurovalTotIPI/valTotIPIvalOutrasDesp/valOutrasDespvalTotItens1000/valTotItensvalTotNF930/valTotNFvalPIS/valPISvalCOFINS/valCOFINSvalAbatICMS/valAbatICMS/valores transportadorcnpjTransp28647613000134/cnpjTranspftConta/ftContaplacaVeic/placaVeicufPlacaVeic/ufPlacaVeicinscEstTransp/inscEstTranspqtdeVol/qtdeVolespecie/especiemarca/marcanumero/numeropesoBruto/pesoBrutopesoLiq/pesoLiq/transportador gnrevalGNRE/valGNREdtVencGNRE/dtVencGNREperRefGNRE/perRefGNRE/gnre refaturamentoNFRefat/NFRefatdtEmissaoRefat/dtEmissaoRefatinscSufRefat/inscSufRefat/refaturamento substTributariabaseCalcICMSSubTrib/baseCalcICMSSubTribvalICMSSub/valICMSSubinscEstSubTrib/inscEstSubTrib/substTributaria itens item codProd12454654/codProd descItemTESTE/descItem codNCM90189099/codNCM unidMedcx/unidMed valUnit1/valUnit qtde1000/qtde valTot1000.00/valTot classFiscal/classFiscal sitTribut/sitTribut alICMS/alICMS alIPI/alIPI valIPI/valIPI /item /itens /notaFiscal /notasFiscais /lote ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/http://br.yahoo.com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] re Criar nós no xml
Fala blumenauense O CDS usa um formato xml específico para a persistência dos dados. O XML é padrão, mas os nós e valores são diferentes da estrutura que vc mandou abaixo. Para isso, vc vai usar TXMLDocument. Não é difícil, no help tem bastante coisa. E nesses links tem mais informações: http://www.guiadodelphi.com.br/ler.php?codigo=1152 http://delphi.about.com/od/adptips2004/a/bltip1004_4.htm Certo? Aquele abraço. PS: Sou daqui também. 2008/1/24, Marcio [EMAIL PROTECTED]: Oi pessoal tambem estou com o mesmo problema esta semana ... Gerar o arquivo xml para o SUFRAMA . se alguem souber tem algumas dicas ... ouvi dizer que o clientDataset gera ... mas como configuro ele para usar uma tabela e filha ??? alguem tem algum material de exemplo ??? att. Marcio Luis Brignoli Blumenau -SC At 08:27 24/01/2008 -0300, you wrote: Bom dia galera! Seguinte estou precisando, gerar um arquivo xml para o suframa, alguem ja fez isso, tem ideia de como fazer? Tenho o layout do xml, mas nunca mexi com isso tenho q fazer os nós no delphi, e não sei como faço! (Segue abaixo o xml que o cliente me passou) ?xml version=1.0 encoding=utf-8 ? lote nro='12008' versao_sw='6.0' dtEmissao='10/01/2008' xmlns='http://www.portal.fucapi.brhttp://www.portal.fucapi.br' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instancehttp://www.w3.org/2001/XMLSchema-instance' xsi:schemaLocation='http://www.portal.fucapi.brhttp://www.portal.fucapi.br http://alvaraes.suframa.gov.br:7778/PMNRecEViewController/jsp/importardados/NF.xsdhttp://alvaraes.suframa.gov.br:7778/PMNRecEViewController/jsp/importardados/NF.xsd' cnpjDestinatario05300542000101/cnpjDestinatario cnpjTransp28647613000134/cnpjTransp inscSufDestinatario107376016/inscSufDestinatario ufDestinoAM/ufDestino ufOrigemSP/ufOrigem -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
RES: RES: [delphi-br] Listar Dispositivos de Audio
Cara, acho que o Rubem deve ter idéia. Já procurou alguma API sobre isso ? Acho que você só terá acesso a essas informações após instalado o driver da placa! De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Ilton Vieira Junior Enviada em: quinta-feira, 24 de janeiro de 2008 08:43 Para: delphi-br@yahoogrupos.com.br Assunto: Re: RES: [delphi-br] Listar Dispositivos de Audio Bom dia, Conforme a idéia do Euardo Borges, consegui o seguinte código: var Index: Integer; Caps: TMixerCaps; begin Result := 0; for Index := 0 to mixerGetNumDevs - 1 do begin mixerGetDevCaps(Index, @Caps, SizeOf(Caps)); Names.Append(Caps.szPname); Inc(Result); end; end; Apenas adaptei as minhas necessidades. Preciso ai identificar as formas de entrada de audio disponíveis na placa. Alguma ajuda? Obrigado, Ilton Vieira Junior Davi Eduardo Borges Wall escreveu: pegar os dados de um componente seria meio gambiarra. Essa é uma perola! Por que então você não pega o código fonte do componente? Daí não seria a tal gambiarra. De: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br [mailto:delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br] Em nome de Ilton Vieira Junior Enviada em: quarta-feira, 23 de janeiro de 2008 16:31 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Listar Dispositivos de Audio Boa tarde Rubem, Na realidade não encontrei nada que me informasse quais dispositivos estão instalados. Apenas checam se tem um dispositivos instalado, informando a quantidade encontrada. Tem componentes que informam os dipositivos na propriedade deles, mas pegar os dados de um componente seria meio gambiarra. Obrigado, Ilton [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] re Criar nós no xml
Ah ta que maravilha! Blumenauenses dominando! Costelão na sexta feira ? alguém ?? risos... PS: sou de Blu tb ! De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Guionardo Furlan Enviada em: quinta-feira, 24 de janeiro de 2008 08:58 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] re Criar nós no xml Fala blumenauense O CDS usa um formato xml específico para a persistência dos dados. O XML é padrão, mas os nós e valores são diferentes da estrutura que vc mandou abaixo. Para isso, vc vai usar TXMLDocument. Não é difícil, no help tem bastante coisa. E nesses links tem mais informações: http://www.guiadodelphi.com.br/ler.php?codigo=1152 http://delphi.about.com/od/adptips2004/a/bltip1004_4.htm Certo? Aquele abraço. PS: Sou daqui também. 2008/1/24, Marcio [EMAIL PROTECTED] mailto:marcio%40sulfabril.com.br : Oi pessoal tambem estou com o mesmo problema esta semana ... Gerar o arquivo xml para o SUFRAMA . se alguem souber tem algumas dicas ... ouvi dizer que o clientDataset gera ... mas como configuro ele para usar uma tabela e filha ??? alguem tem algum material de exemplo ??? att. Marcio Luis Brignoli Blumenau -SC At 08:27 24/01/2008 -0300, you wrote: Bom dia galera! Seguinte estou precisando, gerar um arquivo xml para o suframa, alguem ja fez isso, tem ideia de como fazer? Tenho o layout do xml, mas nunca mexi com isso tenho q fazer os nós no delphi, e não sei como faço! (Segue abaixo o xml que o cliente me passou) ?xml version=1.0 encoding=utf-8 ? lote nro='12008' versao_sw='6.0' dtEmissao='10/01/2008' xmlns='http://www.portal.fucapi.brhttp://www.portal.fucapi.br' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instancehttp://www.w3.org/2001/XMLSchema-instance' xsi:schemaLocation='http://www.portal.fucapi.brhttp://www.portal.fucapi.br http://alvaraes.suframa.gov.br:7778/PMNRecEViewController/jsp/importardados/NF.xsdhttp://alvaraes.suframa.gov.br:7778/PMNRecEViewController/jsp/importardados/NF.xsd' cnpjDestinatario05300542000101/cnpjDestinatario cnpjTransp28647613000134/cnpjTransp inscSufDestinatario107376016/inscSufDestinatario ufDestinoAM/ufDestino ufOrigemSP/ufOrigem -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Novo arquivo carregado em delphi-br
Olá, Esta mensagem é uma notificação para informá-lo que um novo arquivo foi adicionado no grupo delphi-br. Arquivo : /Componentes com fontes/fortesreport.zip Carregado por : minutacio [EMAIL PROTECTED] Descrição : O FortesReport® é um poderoso gerador de relatórios desenvolvido para as plataformas Windows/Delphi32/C++Builder e Linux/Kylix. Assemelha-se conceitualmente ao já consagrado QuickReport. Utiliza Bands, Groups e SubDetails, além de uma gama de outros componentes acessórios. Seu editor é bastante intuitivo e fácil de usar. Versão 3.24b13 . com fontes. Você pode acessar o arquivo pela URL: http://br.groups.yahoo.com/group/delphi-br/files/Componentes%20com%20fontes/fortesreport.zip Para saber mais sobre compartilhamento de arquivos no grupo, leia: http://help.yahoo.com/help/br/groups/files Atenciosamente, minutacio [EMAIL PROTECTED]
[delphi-br] Pegar Ano ORacle
Ola pessoal, estou precisando concatenar uma string, eu preciso saber como faço pra pegar o ano no oracle. por exemplo: tenho a que fazer assim between'01/01/' + ano and '01/12/' + ano(ano do banco) no oracle tem alguma função que eu consigo fazer isso...so retornar o ano obrigado Atenciosamente, http://www.vienasistemas.com.br/assinatura.png Felipe Nunes Analista T.I. - Atacado/Distribuidor - Bacharel em Ciências da Computação * MG: (37) 3213-4855 DF: (61) 3561-1188 BA: (71) 3341-8714 * [EMAIL PROTECTED] * http://www.vilesoft.com.br/ www.vilesoft.com.br O emitente desta mensagem é responsável por seu conteúdo e endereçamento. Cabe ao destinatário cuidar quanto ao tratamento adequado. Sem a devida autorização, a divulgação, a reprodução, a distribuição ou qualquer outra ação em desconformidade com as normas internas da Vilesoft são proibidas e passíveis de sanção disciplinar, cível e criminal. The sender of this message is responsible for its content and addressing. The receiver shall take proper care of it. Without due authorization, the publication, reproduction, distribution or the performance of any other action not conforming to Vilesoft internal policies and procedures is forbidden and liable to disciplinary, civil or criminal sanctions. El emisor de este mensaje es responsable por su contenido y direccionamiento. Cabe al destinatario darle el tratamiento adecuado. Sin la debida autorización, su divulgación, reproducción, distribución o cualquier otra acción no conforme a las normas internas de Vilesoft están prohibidas y serán pasibles de sanción disciplinaria, civil y penal. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] TWebBrowser - Abrir link em uma nova janela
Bom dia a todos, Fiz uma pagina com uma imagem, uma especie de banner e quando clicada, ela abre outra pagina com uns dados dobre meu sistema. Nos navegadores tudo OK, funciona normalmente. Entao coloquei um TWebBrowser no meu form, carregando esta pagina, porem ao clicar nela, nao acontece nada. A segunda pagina nao é carregada e nem abre um novo IE com ela. Se eu tirar o camando de ... target ... do codigo do html, ao clicar nele, ele carrega a pagina no Webrowser do Form msm, e se eu segurar o Shift ele abre em outra janela. Como eu faço pra quando for clicado no WebBroser, abrir a pagina em uma nova instancia do Navegador? Obrigado. _ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true
Re: [delphi-br] Pegar Ano ORacle
To_Char(Sysdate,'') On Thu, 24 Jan 2008 09:47:44 -0300, Felipe Nunes wrote Ola pessoal, estou precisando concatenar uma string, eu preciso saber como faço pra pegar o ano no oracle. por exemplo: tenho a que fazer assim between'01/01/' + ano and '01/12/' + ano(ano do banco) no oracle tem alguma função que eu consigo fazer isso...so retornar o ano obrigado Atenciosamente, http://www.vienasistemas.com.br/assinatura.png Felipe Nunes Analista T.I. - Atacado/Distribuidor - Bacharel em Ciências da Computação * MG: (37) 3213-4855 DF: (61) 3561-1188 BA: (71) 3341-8714 * [EMAIL PROTECTED] * http://www.vilesoft.com.br/ www.vilesoft.com.br O emitente desta mensagem é responsável por seu conteúdo e endereçamento. Cabe ao destinatário cuidar quanto ao tratamento adequado. Sem a devida autorização, a divulgação, a reprodução, a distribuição ou qualquer outra ação em desconformidade com as normas internas da Vilesoft são proibidas e passíveis de sanção disciplinar, cível e criminal. The sender of this message is responsible for its content and addressing. The receiver shall take proper care of it. Without due authorization, the publication, reproduction, distribution or the performance of any other action not conforming to Vilesoft internal policies and procedures is forbidden and liable to disciplinary, civil or criminal sanctions. El emisor de este mensaje es responsable por su contenido y direccionamiento. Cabe al destinatario darle el tratamiento adecuado. Sin la debida autorización, su divulgación, reproducción, distribución o cualquier otra acción no conforme a las normas internas de Vilesoft están prohibidas y serán pasibles de sanción disciplinaria, civil y penal. [As partes desta mensagem que não continham texto foram removidas] Sérgio Tecnologia da Informação - TI Tel.: 16 3810 1060 e-mail: [EMAIL PROTECTED] Usina Alta Mogiana S/A - Acucar e Alcool [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Pegar Ano ORacle
O que éANO DO BANCO ??? De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Felipe Nunes Enviada em: quinta-feira, 24 de janeiro de 2008 10:48 Cc: delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED] Assunto: [delphi-br] Pegar Ano ORacle Ola pessoal, estou precisando concatenar uma string, eu preciso saber como faço pra pegar o ano no oracle. por exemplo: tenho a que fazer assim between'01/01/' + ano and '01/12/' + ano(ano do banco) no oracle tem alguma função que eu consigo fazer isso...so retornar o ano obrigado Atenciosamente, http://www.vienasistemas.com.br/assinatura.png Felipe Nunes Analista T.I. - Atacado/Distribuidor - Bacharel em Ciências da Computação * MG: (37) 3213-4855 DF: (61) 3561-1188 BA: (71) 3341-8714 * [EMAIL PROTECTED] mailto:felipe%40vilesoft.com.br * http://www.vilesoft.com.br/ www.vilesoft.com.br O emitente desta mensagem é responsável por seu conteúdo e endereçamento. Cabe ao destinatário cuidar quanto ao tratamento adequado. Sem a devida autorização, a divulgação, a reprodução, a distribuição ou qualquer outra ação em desconformidade com as normas internas da Vilesoft são proibidas e passíveis de sanção disciplinar, cível e criminal. The sender of this message is responsible for its content and addressing. The receiver shall take proper care of it. Without due authorization, the publication, reproduction, distribution or the performance of any other action not conforming to Vilesoft internal policies and procedures is forbidden and liable to disciplinary, civil or criminal sanctions. El emisor de este mensaje es responsable por su contenido y direccionamiento. Cabe al destinatario darle el tratamiento adecuado. Sin la debida autorización, su divulgación, reproducción, distribución o cualquier otra acción no conforme a las normas internas de Vilesoft están prohibidas y serán pasibles de sanción disciplinaria, civil y penal. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Pegar Ano ORacle
cara valew agora preciso fazer uma comparação no select pra mim separar os meses estou usando um fazer uma análise anuale precisa comparar os meses pra separar em colunas, como faço para comparar CASE WHEN DATA between TO_CHAR(DATA,'MM') = 'JAN' THEN DATA END JANEIRO, CASE WHEN DATA between TO_CHAR(DATA,'MM') = 'FEV' THEN DATA END FEVEREIRO, CASE WHEN DATA between TO_CHAR(DATA,'MM') = 'MAR' THEN DATA END MARÇO OS CAMPOS ESTÃO RETORNANDO VAZIO Atenciosamente, http://www.vienasistemas.com.br/assinatura.png Felipe Nunes Analista T.I. - Atacado/Distribuidor - Bacharel em Ciências da Computação * MG: (37) 3213-4855 DF: (61) 3561-1188 BA: (71) 3341-8714 * [EMAIL PROTECTED] * http://www.vilesoft.com.br/ www.vilesoft.com.br O emitente desta mensagem é responsável por seu conteúdo e endereçamento. Cabe ao destinatário cuidar quanto ao tratamento adequado. Sem a devida autorização, a divulgação, a reprodução, a distribuição ou qualquer outra ação em desconformidade com as normas internas da Vilesoft são proibidas e passíveis de sanção disciplinar, cível e criminal. The sender of this message is responsible for its content and addressing. The receiver shall take proper care of it. Without due authorization, the publication, reproduction, distribution or the performance of any other action not conforming to Vilesoft internal policies and procedures is forbidden and liable to disciplinary, civil or criminal sanctions. El emisor de este mensaje es responsable por su contenido y direccionamiento. Cabe al destinatario darle el tratamiento adecuado. Sin la debida autorización, su divulgación, reproducción, distribución o cualquier otra acción no conforme a las normas internas de Vilesoft están prohibidas y serán pasibles de sanción disciplinaria, civil y penal. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Sérgio Enviada em: quinta-feira, 24 de janeiro de 2008 09:07 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Pegar Ano ORacle To_Char(Sysdate,'') On Thu, 24 Jan 2008 09:47:44 -0300, Felipe Nunes wrote Ola pessoal, estou precisando concatenar uma string, eu preciso saber como faço pra pegar o ano no oracle. por exemplo: tenho a que fazer assim between'01/01/' + ano and '01/12/' + ano(ano do banco) no oracle tem alguma função que eu consigo fazer isso...so retornar o ano obrigado Atenciosamente, http://www.vienasis http://www.vienasistemas.com.br/assinatura.png temas.com.br/assinatura.png Felipe Nunes Analista T.I. - Atacado/Distribuidor - Bacharel em Ciências da Computação * MG: (37) 3213-4855 DF: (61) 3561-1188 BA: (71) 3341-8714 * [EMAIL PROTECTED] mailto:felipe%40vilesoft.com.br com.br * http://www.vilesoft http://www.vilesoft.com.br/ .com.br/ www.vilesoft.com.br O emitente desta mensagem é responsável por seu conteúdo e endereçamento. Cabe ao destinatário cuidar quanto ao tratamento adequado. Sem a devida autorização, a divulgação, a reprodução, a distribuição ou qualquer outra ação em desconformidade com as normas internas da Vilesoft são proibidas e passíveis de sanção disciplinar, cível e criminal. The sender of this message is responsible for its content and addressing. The receiver shall take proper care of it. Without due authorization, the publication, reproduction, distribution or the performance of any other action not conforming to Vilesoft internal policies and procedures is forbidden and liable to disciplinary, civil or criminal sanctions. El emisor de este mensaje es responsable por su contenido y direccionamiento. Cabe al destinatario darle el tratamiento adecuado. Sin la debida autorización, su divulgación, reproducción, distribución o cualquier otra acción no conforme a las normas internas de Vilesoft están prohibidas y serán pasibles de sanción disciplinaria, civil y penal. [As partes desta mensagem que não continham texto foram removidas] Sérgio Tecnologia da Informação - TI Tel.: 16 3810 1060 e-mail: [EMAIL PROTECTED] mailto:sergio%40altamogiana.com.br com.br Usina Alta Mogiana S/A - Acucar e Alcool [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: RES: RES: [delphi-br] Listar Dispositivos de Audio
Pelo que encontrei até o momento, a unit MMSystem dá suporte a isso. Peguei as placa com auxilio dela, agora resta saber como pegar os controle de entrada. Ilton Davi Eduardo Borges Wall escreveu: Cara, acho que o Rubem deve ter idéia. Já procurou alguma API sobre isso ? Acho que você só terá acesso a essas informações após instalado o driver da placa!
Res: [delphi-br] Multiplicando colunas no Rave Reports
Achei algo que possa me ajudar, caso alguém precise estou postando os passos: a) declare as variaveis usadas no relatorio, no treeview do lado direito, mainpage, na propriedade: parameters. Coloque Total e Sub_Total b) coloque o componente CalcOp no DataView.DataBand. Este componente soma dois campos ou duas variaves e guarda o resultado em uma variavel daquelas que foram declaradas no item a. Na propriedade DestParam coloque Sub_Total. Para Multiplicar assinale a propriedade coMul do componente. c) coloque um componente DataText no DataView.DataBand. Assinale a propriedade Data Field Param.Sub_Total Este componente vai mostrar a variavel que foi multiplicada pelo componente CalcOp, item B. d) coloque um componente CalcTotal no DataView.DataBand. Assinale as propriedades CalcVar para CalcOp e Controller para o DataView.DataBand, assinale tambem a propriedade DestParam para Total (variavel declarada no item a) Assinale a propriedade RunningTotal para True. Este componente ira somar os resultados calculados pelo componente CalcOp e ira armazenar na variavel Total. e) Coloque um Band para sumarizar e neste band coloque um componente DataText e assinale a propriedade DataField Param.Total - Mensagem original De: Angelo Louzada [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 24 de Janeiro de 2008 7:30:20 Assunto: [delphi-br] Multiplicando colunas no Rave Reports Amigos seguinte, tenho uma band de detalhe no Rave e nessa band tenho dois DataText o primeiro DataText tem a propriedade DATAFIELD lincado ao campo QUANTIDADE de minha tabela e o outro está lincado ao campo PRECOUNITARIO, gostaria de saber como faço para que logo ao lado do campo PRECOUNITARIO eu crio um TOTALITEM por exemplo, ou seja, preciso multiplicar a quantidade * precounitario e mostrar o resultado em uma nova coluna. Mais uma vez, valeu pela atenção. Att, Angelo Louzada Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail. yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] URGENCIA - PROBLEMA EXTRANHO NO DELPHI 7
Bom dia, Trabalhamos aki na empresa comDelphi 7, temos 2 ambientes de desenvolvimento e produção, a 15 dias que começou a apresentar alguns problemas extranhos, como por exemplo: tenho um processo onde o usuario tem incluir algumas informações e depois ele visualiza na tela com report builder até ai sem problema, como o documento é grande ele faz N alterações. ai é começa o problema sai do programa sem dar qualquer mensagem de erro. Obs: Já verifiquei a destruição dos objetos quando são criados. Andre nunes Manaus-AM Tudo posso naquele que me fortalece [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Pegar Ano ORacle
Não entendi mto bem sua duvida agora... como vc quer comparar? o que vc precisa fazer? On Wed, 24 Jan 2007 10:27:08 -0300, Felipe Nunes wrote cara valew agora preciso fazer uma comparação no select pra mim separar os meses estou usando um fazer uma análise anuale precisa comparar os meses pra separar em colunas, como faço para comparar CASE WHEN DATA between TO_CHAR(DATA,'MM') = 'JAN' THEN DATA END JANEIRO, CASE WHEN DATA between TO_CHAR(DATA,'MM') = 'FEV' THEN DATA END FEVEREIRO, CASE WHEN DATA between TO_CHAR(DATA,'MM') = 'MAR' THEN DATA END MARÇO OS CAMPOS ESTÃO RETORNANDO VAZIO Atenciosamente, http://www.vienasistemas.com.br/assinatura.png Felipe Nunes Analista T.I. - Atacado/Distribuidor - Bacharel em Ciências da Computação * MG: (37) 3213-4855 DF: (61) 3561-1188 BA: (71) 3341-8714 * [EMAIL PROTECTED] * http://www.vilesoft.com.br/ www.vilesoft.com.br O emitente desta mensagem é responsável por seu conteúdo e endereçamento. Cabe ao destinatário cuidar quanto ao tratamento adequado. Sem a devida autorização, a divulgação, a reprodução, a distribuição ou qualquer outra ação em desconformidade com as normas internas da Vilesoft são proibidas e passíveis de sanção disciplinar, cível e criminal. The sender of this message is responsible for its content and addressing. The receiver shall take proper care of it. Without due authorization, the publication, reproduction, distribution or the performance of any other action not conforming to Vilesoft internal policies and procedures is forbidden and liable to disciplinary, civil or criminal sanctions. El emisor de este mensaje es responsable por su contenido y direccionamiento. Cabe al destinatario darle el tratamiento adecuado. Sin la debida autorización, su divulgación, reproducción, distribución o cualquier otra acción no conforme a las normas internas de Vilesoft están prohibidas y serán pasibles de sanción disciplinaria, civil y penal. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Sérgio Enviada em: quinta-feira, 24 de janeiro de 2008 09:07 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Pegar Ano ORacle To_Char(Sysdate,'') On Thu, 24 Jan 2008 09:47:44 -0300, Felipe Nunes wrote Ola pessoal, estou precisando concatenar uma string, eu preciso saber como faço pra pegar o ano no oracle. por exemplo: tenho a que fazer assim between'01/01/' + ano and '01/12/' + ano(ano do banco) no oracle tem alguma função que eu consigo fazer isso...so retornar o ano obrigado Atenciosamente, http://www.vienasis http://www.vienasistemas.com.br/assinatura.png temas.com.br/assinatura.png Felipe Nunes Analista T.I. - Atacado/Distribuidor - Bacharel em Ciências da Computação * MG: (37) 3213-4855 DF: (61) 3561-1188 BA: (71) 3341-8714 * [EMAIL PROTECTED] mailto:felipe%40vilesoft.com.br com.br * http://www.vilesoft http://www.vilesoft.com.br/ .com.br/ www.vilesoft.com.br O emitente desta mensagem é responsável por seu conteúdo e endereçamento. Cabe ao destinatário cuidar quanto ao tratamento adequado. Sem a devida autorização, a divulgação, a reprodução, a distribuição ou qualquer outra ação em desconformidade com as normas internas da Vilesoft são proibidas e passíveis de sanção disciplinar, cível e criminal. The sender of this message is responsible for its content and addressing. The receiver shall take proper care of it. Without due authorization, the publication, reproduction, distribution or the performance of any other action not conforming to Vilesoft internal policies and procedures is forbidden and liable to disciplinary, civil or criminal sanctions. El emisor de este mensaje es responsable por su contenido y direccionamiento. Cabe al destinatario darle el tratamiento adecuado. Sin la debida autorización, su divulgación, reproducción, distribución o cualquier otra acción no conforme a las normas internas de Vilesoft están prohibidas y serán pasibles de sanción disciplinaria, civil y penal. [As partes desta mensagem que não continham texto foram removidas] Sérgio Tecnologia da Informação - TI Tel.: 16 3810 1060 e-mail: [EMAIL PROTECTED] mailto:sergio%40altamogiana.com.br com.br Usina Alta Mogiana S/A - Acucar e Alcool [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Sérgio Tecnologia da Informação - TI Tel.: 16 3810 1060 e-mail: [EMAIL PROTECTED] Usina Alta Mogiana S/A - Acucar e Alcool [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Pegar Ano ORacle
select to_char(sysdate,'') from dual _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Sérgio Enviada em: quinta-feira, 24 de janeiro de 2008 08:07 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Pegar Ano ORacle To_Char(Sysdate,'') On Thu, 24 Jan 2008 09:47:44 -0300, Felipe Nunes wrote Ola pessoal, estou precisando concatenar uma string, eu preciso saber como faço pra pegar o ano no oracle. por exemplo: tenho a que fazer assim between'01/01/' + ano and '01/12/' + ano(ano do banco) no oracle tem alguma função que eu consigo fazer isso...so retornar o ano obrigado Atenciosamente, http://www.vienasis http://www.vienasistemas.com.br/assinatura.png temas.com.br/assinatura.png Felipe Nunes Analista T.I. - Atacado/Distribuidor - Bacharel em Ciências da Computação * MG: (37) 3213-4855 DF: (61) 3561-1188 BA: (71) 3341-8714 * [EMAIL PROTECTED] mailto:felipe%40vilesoft.com.br com.br * http://www.vilesoft http://www.vilesoft.com.br/ .com.br/ www.vilesoft.com.br O emitente desta mensagem é responsável por seu conteúdo e endereçamento. Cabe ao destinatário cuidar quanto ao tratamento adequado. Sem a devida autorização, a divulgação, a reprodução, a distribuição ou qualquer outra ação em desconformidade com as normas internas da Vilesoft são proibidas e passíveis de sanção disciplinar, cível e criminal. The sender of this message is responsible for its content and addressing. The receiver shall take proper care of it. Without due authorization, the publication, reproduction, distribution or the performance of any other action not conforming to Vilesoft internal policies and procedures is forbidden and liable to disciplinary, civil or criminal sanctions. El emisor de este mensaje es responsable por su contenido y direccionamiento. Cabe al destinatario darle el tratamiento adecuado. Sin la debida autorización, su divulgación, reproducción, distribución o cualquier otra acción no conforme a las normas internas de Vilesoft están prohibidas y serán pasibles de sanción disciplinaria, civil y penal. [As partes desta mensagem que não continham texto foram removidas] Sérgio Tecnologia da Informação - TI Tel.: 16 3810 1060 e-mail: [EMAIL PROTECTED] mailto:sergio%40altamogiana.com.br com.br Usina Alta Mogiana S/A - Acucar e Alcool [As partes desta mensagem que não continham texto foram removidas] !DSPAM:47987eb9190071804284693! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] URGENCIA - PROBLEMA EXTRANHO NO DELPHI 7
Acho que vc esqueceu de falar o Problema. ;D Marcelo - Original Message - From: Andre Nunes To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 24, 2008 10:37 AM Subject: [delphi-br] URGENCIA - PROBLEMA EXTRANHO NO DELPHI 7 Bom dia, Trabalhamos aki na empresa comDelphi 7, temos 2 ambientes de desenvolvimento e produção, a 15 dias que começou a apresentar alguns problemas extranhos, como por exemplo: tenho um processo onde o usuario tem incluir algumas informações e depois ele visualiza na tela com report builder até ai sem problema, como o documento é grande ele faz N alterações. ai é começa o problema sai do programa sem dar qualquer mensagem de erro. Obs: Já verifiquei a destruição dos objetos quando são criados. Andre nunes Manaus-AM Tudo posso naquele que me fortalece [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Pegando o foco!!
Eu tenho uma aplicação que roda escondida com o form no hide! E com timer, que de tanto em tanto segundos ele atualiza uma coisa. Só que quando ele atualiza, o que eu esteja mexendo no pc (internet, programa, etc) perde o foco, eu to digitando alguma coisa, e do nada perde o foco! Alguém sabe o que pode estar causando isso?
Re: [delphi-br] Pegando o foco!!
Fica dificil sem saber oq exatamente o Timer faz no momento da atualização... de mais detalhes ou mostra o código ae.. Em 24/01/08, caionmoreno [EMAIL PROTECTED] escreveu: Eu tenho uma aplicação que roda escondida com o form no hide! E com timer, que de tanto em tanto segundos ele atualiza uma coisa. Só que quando ele atualiza, o que eu esteja mexendo no pc (internet, programa, etc) perde o foco, eu to digitando alguma coisa, e do nada perde o foco! Alguém sabe o que pode estar causando isso? -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Case When no Delphi
Olá amigos da lista
Preciso de uma ajuda meio urgente..
Não sei o que eu estou fazendo de errado.
Preciso utilizar o case when na minha consulta pelo seguinte:
Quando vier no conteúdo do campo (varchar) o número 1, então que me retorna a
palavra CRIANÇA, quando vier o número 2, que me retorna a palavra ADULTO e
quando vier o número 3, que me retorna a palavra IDOSO.
sql.add('select flag AS idade');
sql.add('case vci.flag');
sql.add('when 1 then CRIANÇA');
sql.add('when 2 then ADULTO');
sql.add('when 3 then IDOSO end as idade');
sql.add('from');
sql.add('tabela');
O que tem de errado aqui?
no aguardo de uma ajuda..
valeu, carlos
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] URGENCIA - PROBLEMA EXTRANHO NO DELPHI 7
Bom, primeiramente peço desculpa pelo erro grosseiro no português extranho, fala serio digo ESTRANHO. Sobre o erro: meu usuário faz varias alterações e imprimi no report builder para visualizar as alterações. por se tratar de um cadastro grande ele faz varias vezes. e de repente o programa ABORTA é não da erro de nada. Nota: já verifiquei o codigo e onde poderia destruir os objetos que poderia consumir memoria eu fiz. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Darkzad Enviada em: quinta-feira, 24 de janeiro de 2008 09:42 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] URGENCIA - PROBLEMA EXTRANHO NO DELPHI 7 Acho que vc esqueceu de falar o Problema. ;D Marcelo - Original Message - From: Andre Nunes To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Thursday, January 24, 2008 10:37 AM Subject: [delphi-br] URGENCIA - PROBLEMA EXTRANHO NO DELPHI 7 Bom dia, Trabalhamos aki na empresa comDelphi 7, temos 2 ambientes de desenvolvimento e produção, a 15 dias que começou a apresentar alguns problemas extranhos, como por exemplo: tenho um processo onde o usuario tem incluir algumas informações e depois ele visualiza na tela com report builder até ai sem problema, como o documento é grande ele faz N alterações. ai é começa o problema sai do programa sem dar qualquer mensagem de erro. Obs: Já verifiquei a destruição dos objetos quando são criados. Andre nunes Manaus-AM Tudo posso naquele que me fortalece [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] !DSPAM:47989552108951235816653! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Case When no Delphi
Qual o BD? Qual a versão do BD? Parece que o problema está na falta de plic´s
antes da descrição. Experimente assim:
(...)
sql.add(' when 1 then ' + + 'CRIANÇA' + );
sql.add(' when 2 then ' + + 'ADULTO' + ); sql.add(' when 3 then
' + + 'IDOSO' + );
(...)
Espero ter ajudado.
ca_programador007 [EMAIL PROTECTED] escreveu:
Olá amigos da lista
Preciso de uma ajuda meio urgente..
Não sei o que eu estou fazendo de errado.
Preciso utilizar o case when na minha consulta pelo seguinte:
Quando vier no conteúdo do campo (varchar) o número 1, então que me retorna a
palavra CRIANÇA, quando vier o número 2, que me retorna a palavra ADULTO e
quando vier o número 3, que me retorna a palavra IDOSO.
sql.add('select flag AS idade');
sql.add('case vci.flag');
sql.add('when 1 then CRIANÇA');
sql.add('when 2 then ADULTO');
sql.add('when 3 then IDOSO end as idade');
sql.add('from');
sql.add('tabela');
O que tem de errado aqui?
no aguardo de uma ajuda..
valeu, carlos
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Case When no Delphi
Não sei se estou sendo ingêunuo, mas na primeira linha, sql.add('select flag
AS idade');, falta uma vírgula no final... :)
Até mais!
2008/1/24 ca_programador007 [EMAIL PROTECTED]:
Olá amigos da lista
Preciso de uma ajuda meio urgente..
Não sei o que eu estou fazendo de errado.
Preciso utilizar o case when na minha consulta pelo seguinte:
Quando vier no conteúdo do campo (varchar) o número 1, então que me
retorna a palavra CRIANÇA, quando vier o número 2, que me retorna a palavra
ADULTO e quando vier o número 3, que me retorna a palavra IDOSO.
sql.add('select flag AS idade');
sql.add('case vci.flag');
sql.add('when 1 then CRIANÇA');
sql.add('when 2 then ADULTO');
sql.add('when 3 then IDOSO end as idade');
sql.add('from');
sql.add('tabela');
O que tem de errado aqui?
no aguardo de uma ajuda..
valeu, carlos
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[As partes desta mensagem que não continham texto foram removidas]
--
TFA,
Leslyn Fernandes
55-11-9159-3837
Computer Engineer
Integra Solutions
Imagination is more important than knowledge.
- Albert Einstein
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Case When no Delphi
Foge um pouco ao objetivo do tópico mas sugiro que use Format e QuotedStr
para o seu código ficar legível, em especial para outros programadores.
Exemplo:
SQL.Add(Format('WHEN 1 THEN %s',[QuotedStr('CRIANÇA')]));
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Case When no Delphi
Seu select está errado, strings devem ser passadas entre aspas:
Ex: .Add( WHEN 1 THEN + QuotedStr( CRIANÇA )
A primeira linha do seu seu select não está terminando em
vírgula.
Teste o select antes de coloca-lo no delphi, vai economizar
bastante tempo.
Vitor.
_
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de ca_programador007
Enviada em: quinta-feira, 24 de janeiro de 2008 09:29
Para: delphi-total delphi-total; delphi-br
Assunto: [delphi-br] Case When no Delphi
Olá amigos da lista
Preciso de uma ajuda meio urgente..
Não sei o que eu estou fazendo de errado.
Preciso utilizar o case when na minha consulta pelo seguinte:
Quando vier no conteúdo do campo (varchar) o número 1, então que me retorna
a palavra CRIANÇA, quando vier o número 2, que me retorna a palavra ADULTO e
quando vier o número 3, que me retorna a palavra IDOSO.
sql.add('select flag AS idade');
sql.add('case vci.flag');
sql.add('when 1 then CRIANÇA');
sql.add('when 2 then ADULTO');
sql.add('when 3 then IDOSO end as idade');
sql.add('from');
sql.add('tabela');
O que tem de errado aqui?
no aguardo de uma ajuda..
valeu, carlos
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
[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] Case When no Delphi
Tenho um exemplo que uso no meu sistema (É C++ Builder, mas é igual no Delphi, basta trocar os - por . ): Estou usando Banco de Dados MySQL. adoqryFrmLancamento-SQL-Clear(); sql = SELECT ; /* Caso o Tipo de Lançamento for = 'D' então pega o próprio valor, SENÂO multiplca o Valor por -1) */ sql += SUM(CASE WHEN TipoLancamento = 'D' THEN ValorLancamento ELSE ValorLancamento*-1 END) as ValorSaldo ; sql += FROM tbllancamento ; sql += WHERE EXTRACT(MONTH FROM DataLancamento) = '12' AND EXTRACT(YEAR FROM DataLancamento) = '12' ; sql += AND CodigoCliente = '18' ; adoqryFrmLancamento-SQL-Add(sql); adoqryFrmLancamento-Open(); Valeu Wanderlei [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Copiar/Recortar Imagem
Prezados amigos Estou desenvolvendo uma aplicação para estacionamento. O usuário irá tirar uma foto das vagas. Depois no sistema ele irá marcar as vagas nesta foto, ou seja, fazer um retangulo em cima de cada vaga nesta hora eu vou ter as coordenadas x e y iniciais e finais. Como faço para pegar através desta coordenadas a vaga que ele desenhou e jogar para outro image ? Veja ele pode ter 5 vagas em uma imagem e o sistema deverá gerar cinco imagens (cada uma das vagas) da imagem original. Grato [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Converter Centimetros em Inteiro
Pessoal alguem sabe como faço para converter um valor em centimetros em inteiro?? Alex [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Pegando o foco!!
O timer de 7 em 7 segundos executa o código: Webbrowser1.Refresh; E tem um timer de 1 em 1 segundo que verifica se a pessoa aperto a sequencia de teclas para mostrar o prog. Mas jah tentei desativar esse timer de 1 segundo e continuo perdendo foco! --- Em delphi-br@yahoogrupos.com.br, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu Fica dificil sem saber oq exatamente o Timer faz no momento da atualização... de mais detalhes ou mostra o código ae.. Em 24/01/08, caionmoreno [EMAIL PROTECTED] escreveu: Eu tenho uma aplicação que roda escondida com o form no hide! E com timer, que de tanto em tanto segundos ele atualiza uma coisa. Só que quando ele atualiza, o que eu esteja mexendo no pc (internet, programa, etc) perde o foco, eu to digitando alguma coisa, e do nada perde o foco! Alguém sabe o que pode estar causando isso? -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Converter Centimetros em Inteiro
onde esta esse valor? q formato? explica melhor ae pois ta brabo a pergunta ... - Original Message - From: Alexandre To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 24, 2008 1:57 PM Subject: [delphi-br] Converter Centimetros em Inteiro Pessoal alguem sabe como faço para converter um valor em centimetros em inteiro?? Alex [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] COMO INSTALAR A APLICAÇÃO NO CLIENTE???
Amigos, desenvolvir uma aplicação utilizando Delphi 7 + Interbase 6.5 + Rave Reports 5.0 Gostaria de saber como faço para instalar a aplicação no cliente, alguém saberia me dizer um passo à passo? Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] COMO INSTALAR A APLICAÇÃO NO CLIENTE???
Não trabalho nem com IB6.5 nem com RR5.0 mas posso te dar o básico do básico: * Se sua aplicação usa alguma DLL, mande as DLLs (óbvio, mas necessário lembrar) * Se vc modularizou, mande todos os arquivos BPL gerados. * No caso do IB, se não me engano vai precisar mandar o arquivo 'DBEXPINT.DLL' se usou DBExpress para se conectar ao IB. * Se usou ClientDataSet, mande a MIDAS.DLL ou declare a unit MidasLib no seu projeto. * Alguns casos vc precisa do arquivo QTINFO70.dll Até onde sei, para acessar o BD vc vai precisar no mínimo desses arquivos. Para o Rave, acho que não precisa de nada, a não ser dos arquivos .RPT q o rave gera Sds, Ricardo. Angelo Louzada [EMAIL PROTECTED] escreveu: Amigos, desenvolvir uma aplicação utilizando Delphi 7 + Interbase 6.5 + Rave Reports 5.0 Gostaria de saber como faço para instalar a aplicação no cliente, alguém saberia me dizer um passo à passo? Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] - Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Formato de data no sistema
Boa tarde, eu gostaria de saber se existe alguma forma de deixar padrão o formato de data do sistema, por padrão o windows xp trás o formato 1/1/2008, atualmente eu preciso entrar nas opções regionais do windows e alterar manualmente para o formato que eu trabalho, no caso seria 01/01/2008. []´s José Ricardo Avilés. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Formato de data no sistema
Boa tarde As variáveis abaixo servem para configuração! Ex: ShortDateFormat := 'dd/MM/'; var CurrencyString: string; var CurrencyFormat: Byte; var NegCurrFormat: Byte; var ThousandSeparator: Char; var DecimalSeparator: Char; var CurrencyDecimals: Byte; var DateSeparator: Char; var ShortDateFormat: string; var LongDateFormat: string; var TimeSeparator: Char; var TimeAMString: string; var TimePMString: string; var ShortTimeFormat: string; var LongTimeFormat: string; var ShortMonthNames: array[1..12] of string; var LongMonthNames: array[1..12] of string; var ShortDayNames: array[1..7] of string; var LongDayNames: array[1..7] of string; var SysLocale: TSysLocale; var EraNames: array[1..7] of string; var EraYearOffsets: array[1..7] of Integer; var TwoDigitYearCenturyWindow: Word = 50; var TListSeparator: Char; Boa tarde, eu gostaria de saber se existe alguma forma de deixar padrão o formato de data do sistema, por padrão o windows xp trás o formato 1/1/2008, atualmente eu preciso entrar nas opções regionais do windows e alterar manualmente para o formato que eu trabalho, no caso seria 01/01/2008. -- www.cincobytes.net
Re: [delphi-br] Converter Centimetros em Inteiro
Cara, tu tá trocando as bolas, vamos voltar a 4º serie Centímetro é uma unidade de medidas, temos quilômetros, metros, centímetros e milímetros, etc. 1 metro tem 100 centímetros e 1 centímetro tem 10 milímetros. Agora converter Centímetro para inteiro é impossível, inteiro não uma unidade de medida. Agora digamos que tu tenhas 1,50 centímetros que um valor fracionário e você deseje retirar as duas casas decimais transformando esse valor em um numero inteiro, você pode multiplicar ele por 10 e teria 15, porém já não seriam mais centímetros e sim 15 milímetros. Entendeu? Alexandre escreveu: Pessoal alguem sabe como faço para converter um valor em centimetros em inteiro?? Alex [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
Re: [delphi-br] Converter Centimetros em Inteiro
Deixa eu explicar melhor, fiz uma opção no meu sistema, para o usuário fazer a impressão da nota fiscal, ele define a margem superior e margem lateral de cada campo na impressão, estou usando o QuickReport, quero pegar o que o usuário colocou no programa em centimetros e passar para a propriedade TOP e LEFT do componente da impressão, entenderam?Só que a propriedade Top e Left do componente do QuickReport recebe um valor inteiro, e é óbvio que se o usuário colocar 4,5 cms vai dar pau na conversão, entendeu? Alex - Original Message - From: Alexandre Rodrigues To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 24, 2008 4:00 PM Subject: Re: [delphi-br] Converter Centimetros em Inteiro Cara, tu tá trocando as bolas, vamos voltar a 4º serie Centímetro é uma unidade de medidas, temos quilômetros, metros, centímetros e milímetros, etc. 1 metro tem 100 centímetros e 1 centímetro tem 10 milímetros. Agora converter Centímetro para inteiro é impossível, inteiro não uma unidade de medida. Agora digamos que tu tenhas 1,50 centímetros que um valor fracionário e você deseje retirar as duas casas decimais transformando esse valor em um numero inteiro, você pode multiplicar ele por 10 e teria 15, porém já não seriam mais centímetros e sim 15 milímetros. Entendeu? Alexandre escreveu: Pessoal alguem sabe como faço para converter um valor em centimetros em inteiro?? Alex [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ __ Information from ESET NOD32 Antivirus, version of virus signature database 2786 (20080112) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Converter Centimetros em Inteiro
Então, na realidade, o que vc quer é converter centímetros em pixels, meu caro. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 24 Jan 2008 16:14:44 -0200 Subject: Re: [delphi-br] Converter Centimetros em Inteiro Deixa eu explicar melhor, fiz uma opção no meu sistema, para o usuário fazer a impressão da nota fiscal, ele define a margem superior e margem lateral de cada campo na impressão, estou usando o QuickReport, quero pegar o que o usuário colocou no programa em centimetros e passar para a propriedade TOP e LEFT do componente da impressão, entenderam?Só que a propriedade Top e Left do componente do QuickReport recebe um valor inteiro, e é óbvio que se o usuário colocar 4,5 cms vai dar pau na conversão, entendeu? Alex - Original Message - From: Alexandre Rodrigues To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 24, 2008 4:00 PM Subject: Re: [delphi-br] Converter Centimetros em Inteiro Cara, tu tá trocando as bolas, vamos voltar a 4º serie Centímetro é uma unidade de medidas, temos quilômetros, metros, centímetros e milímetros, etc. 1 metro tem 100 centímetros e 1 centímetro tem 10 milímetros. Agora converter Centímetro para inteiro é impossível, inteiro não uma unidade de medida. Agora digamos que tu tenhas 1,50 centímetros que um valor fracionário e você deseje retirar as duas casas decimais transformando esse valor em um numero inteiro, você pode multiplicar ele por 10 e teria 15, porém já não seriam mais centímetros e sim 15 milímetros. Entendeu? Alexandre escreveu: Pessoal alguem sabe como faço para converter um valor em centimetros em inteiro?? Alex [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ __ Information from ESET NOD32 Antivirus, version of virus signature database 2786 (20080112) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] _ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/
Re: [delphi-br] Converter Centimetros em Inteiro
certo mas a propriedade top,left esta em inteiro mas left = 10 não é igual a 10 cm eu faço isso aqui tb mas deixo em inteiro pro usuario . acho besteira vc ficar tranformando em cm aquilo que deve ser inteiro ! isso é minha opinião ... - Original Message - From: Alexandre To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 24, 2008 4:14 PM Subject: Re: [delphi-br] Converter Centimetros em Inteiro Deixa eu explicar melhor, fiz uma opção no meu sistema, para o usuário fazer a impressão da nota fiscal, ele define a margem superior e margem lateral de cada campo na impressão, estou usando o QuickReport, quero pegar o que o usuário colocou no programa em centimetros e passar para a propriedade TOP e LEFT do componente da impressão, entenderam?Só que a propriedade Top e Left do componente do QuickReport recebe um valor inteiro, e é óbvio que se o usuário colocar 4,5 cms vai dar pau na conversão, entendeu? Alex - Original Message - From: Alexandre Rodrigues To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 24, 2008 4:00 PM Subject: Re: [delphi-br] Converter Centimetros em Inteiro Cara, tu tá trocando as bolas, vamos voltar a 4º serie Centímetro é uma unidade de medidas, temos quilômetros, metros, centímetros e milímetros, etc. 1 metro tem 100 centímetros e 1 centímetro tem 10 milímetros. Agora converter Centímetro para inteiro é impossível, inteiro não uma unidade de medida. Agora digamos que tu tenhas 1,50 centímetros que um valor fracionário e você deseje retirar as duas casas decimais transformando esse valor em um numero inteiro, você pode multiplicar ele por 10 e teria 15, porém já não seriam mais centímetros e sim 15 milímetros. Entendeu? Alexandre escreveu: Pessoal alguem sabe como faço para converter um valor em centimetros em inteiro?? Alex [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ __ Information from ESET NOD32 Antivirus, version of virus signature database 2786 (20080112) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Dúvida em Casas Decimais
Boa tarde pessoal Preciso de uma função para limitar casas decimais em um Edit. Achei uma função onde digito por exemplo o valor: 123456, e o sistema coloca a vírgula automaticamente, ficando 1234,56. Mas vi um programa da prefeitura da minha cidade, onde só é possível digitar 2 casas após a vírgula. Alguém tem algum exemplo?? Se alguém tiver agradeço. Muito Obrigado Wanderlei
RE: [delphi-br] Dúvida em Casas Decimais
Ora, é só usar um TMaskEdit e colocar a máscara de edição com a quantidade de casas decimais que pode entrar. MaskEdit1.EditMask := '###,###,##9.99'; Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 24 Jan 2008 16:27:03 -0200 Subject: [delphi-br] Dúvida em Casas Decimais Boa tarde pessoal Preciso de uma função para limitar casas decimais em um Edit. Achei uma função onde digito por exemplo o valor: 123456, e o sistema coloca a vírgula automaticamente, ficando 1234,56. Mas vi um programa da prefeitura da minha cidade, onde só é possível digitar 2 casas após a vírgula. Alguém tem algum exemplo?? Se alguém tiver agradeço. Muito Obrigado Wanderlei _ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br
Re: [delphi-br] Dúvida em Casas Decimais
bem lembrado , o jedi eo rxlib tem tb um componente currencyedit muito bom - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 24, 2008 4:36 PM Subject: RE: [delphi-br] Dúvida em Casas Decimais Ora, é só usar um TMaskEdit e colocar a máscara de edição com a quantidade de casas decimais que pode entrar. MaskEdit1.EditMask := '###,###,##9.99'; Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 24 Jan 2008 16:27:03 -0200 Subject: [delphi-br] Dúvida em Casas Decimais Boa tarde pessoal Preciso de uma função para limitar casas decimais em um Edit. Achei uma função onde digito por exemplo o valor: 123456, e o sistema coloca a vírgula automaticamente, ficando 1234,56. Mas vi um programa da prefeitura da minha cidade, onde só é possível digitar 2 casas após a vírgula. Alguém tem algum exemplo?? Se alguém tiver agradeço. Muito Obrigado Wanderlei __ Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos com até 6,000 fotos! http://www.amigosdomessenger.com.br [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Converter Centimetros em Inteiro
No link http://www.devmedia.com.br/articles/viewcomp.asp?comp=2677hl=delphi tem uma dica muito boa de uma função para converter milímetros para pixels. Se usada adequadamente, pode ser usada para converter centímetros em pixels. Mais moleza do que isso, só pudim! E, pra não perder o costume, quem procura acha! Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 24 Jan 2008 16:30:40 -0200 Subject: Re: [delphi-br] Converter Centimetros em Inteiro certo mas a propriedade top,left esta em inteiro mas left = 10 não é igual a 10 cm eu faço isso aqui tb mas deixo em inteiro pro usuario . acho besteira vc ficar tranformando em cm aquilo que deve ser inteiro ! isso é minha opinião ... - Original Message - From: Alexandre To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 24, 2008 4:14 PM Subject: Re: [delphi-br] Converter Centimetros em Inteiro Deixa eu explicar melhor, fiz uma opção no meu sistema, para o usuário fazer a impressão da nota fiscal, ele define a margem superior e margem lateral de cada campo na impressão, estou usando o QuickReport, quero pegar o que o usuário colocou no programa em centimetros e passar para a propriedade TOP e LEFT do componente da impressão, entenderam?Só que a propriedade Top e Left do componente do QuickReport recebe um valor inteiro, e é óbvio que se o usuário colocar 4,5 cms vai dar pau na conversão, entendeu? Alex - Original Message - From: Alexandre Rodrigues To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 24, 2008 4:00 PM Subject: Re: [delphi-br] Converter Centimetros em Inteiro Cara, tu tá trocando as bolas, vamos voltar a 4º serie Centímetro é uma unidade de medidas, temos quilômetros, metros, centímetros e milímetros, etc. 1 metro tem 100 centímetros e 1 centímetro tem 10 milímetros. Agora converter Centímetro para inteiro é impossível, inteiro não uma unidade de medida. Agora digamos que tu tenhas 1,50 centímetros que um valor fracionário e você deseje retirar as duas casas decimais transformando esse valor em um numero inteiro, você pode multiplicar ele por 10 e teria 15, porém já não seriam mais centímetros e sim 15 milímetros. Entendeu? Alexandre escreveu: Pessoal alguem sabe como faço para converter um valor em centimetros em inteiro?? Alex [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ __ Information from ESET NOD32 Antivirus, version of virus signature database 2786 (20080112) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] _ Receba GRÁTIS as mensagens do Messenger no seu celular quando você estiver offline. Conheça o MSN Mobile! http://mobile.live.com/signup/signup2.aspx?lc=pt-br
RES: [delphi-br] Converter Centimetros em Inteiro
Pessoal !! Top e Left = valores em pixel! Cm é uma coisa! Inteiro é outra! Não se transforma CM em inteiro, mas sim um arredondamento de float, ou mesmo a parte inteira de um float. Onde Float corresponde a um valor em CM. De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Apoio Enviada em: quinta-feira, 24 de janeiro de 2008 16:31 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Converter Centimetros em Inteiro certo mas a propriedade top,left esta em inteiro mas left = 10 não é igual a 10 cm eu faço isso aqui tb mas deixo em inteiro pro usuario . acho besteira vc ficar tranformando em cm aquilo que deve ser inteiro ! isso é minha opinião ... - Original Message - From: Alexandre To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Thursday, January 24, 2008 4:14 PM Subject: Re: [delphi-br] Converter Centimetros em Inteiro Deixa eu explicar melhor, fiz uma opção no meu sistema, para o usuário fazer a impressão da nota fiscal, ele define a margem superior e margem lateral de cada campo na impressão, estou usando o QuickReport, quero pegar o que o usuário colocou no programa em centimetros e passar para a propriedade TOP e LEFT do componente da impressão, entenderam?Só que a propriedade Top e Left do componente do QuickReport recebe um valor inteiro, e é óbvio que se o usuário colocar 4,5 cms vai dar pau na conversão, entendeu? Alex - Original Message - From: Alexandre Rodrigues To: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br Sent: Thursday, January 24, 2008 4:00 PM Subject: Re: [delphi-br] Converter Centimetros em Inteiro Cara, tu tá trocando as bolas, vamos voltar a 4º serie Centímetro é uma unidade de medidas, temos quilômetros, metros, centímetros e milímetros, etc. 1 metro tem 100 centímetros e 1 centímetro tem 10 milímetros. Agora converter Centímetro para inteiro é impossível, inteiro não uma unidade de medida. Agora digamos que tu tenhas 1,50 centímetros que um valor fracionário e você deseje retirar as duas casas decimais transformando esse valor em um numero inteiro, você pode multiplicar ele por 10 e teria 15, porém já não seriam mais centímetros e sim 15 milímetros. Entendeu? Alexandre escreveu: Pessoal alguem sabe como faço para converter um valor em centimetros em inteiro?? Alex [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ __ Information from ESET NOD32 Antivirus, version of virus signature database 2786 (20080112) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] [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] Converter Centimetros em Inteiro
Isso mesmo!, desculpem, acho que me expressei mal - Original Message - From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 24, 2008 4:30 PM Subject: RE: [delphi-br] Converter Centimetros em Inteiro Então, na realidade, o que vc quer é converter centímetros em pixels, meu caro. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Thu, 24 Jan 2008 16:14:44 -0200 Subject: Re: [delphi-br] Converter Centimetros em Inteiro Deixa eu explicar melhor, fiz uma opção no meu sistema, para o usuário fazer a impressão da nota fiscal, ele define a margem superior e margem lateral de cada campo na impressão, estou usando o QuickReport, quero pegar o que o usuário colocou no programa em centimetros e passar para a propriedade TOP e LEFT do componente da impressão, entenderam?Só que a propriedade Top e Left do componente do QuickReport recebe um valor inteiro, e é óbvio que se o usuário colocar 4,5 cms vai dar pau na conversão, entendeu? Alex - Original Message - From: Alexandre Rodrigues To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 24, 2008 4:00 PM Subject: Re: [delphi-br] Converter Centimetros em Inteiro Cara, tu tá trocando as bolas, vamos voltar a 4º serie Centímetro é uma unidade de medidas, temos quilômetros, metros, centímetros e milímetros, etc. 1 metro tem 100 centímetros e 1 centímetro tem 10 milímetros. Agora converter Centímetro para inteiro é impossível, inteiro não uma unidade de medida. Agora digamos que tu tenhas 1,50 centímetros que um valor fracionário e você deseje retirar as duas casas decimais transformando esse valor em um numero inteiro, você pode multiplicar ele por 10 e teria 15, porém já não seriam mais centímetros e sim 15 milímetros. Entendeu? Alexandre escreveu: Pessoal alguem sabe como faço para converter um valor em centimetros em inteiro?? Alex [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ __ Information from ESET NOD32 Antivirus, version of virus signature database 2786 (20080112) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas] __ Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger! http://www.amigosdomessenger.com.br/ __ Information from ESET NOD32 Antivirus, version of virus signature database 2786 (20080112) __ The message was checked by ESET NOD32 Antivirus. http://www.eset.com [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Converter Centimetros em Inteiro
Você está indo pelo caminho errado, se eu entendi o que você quer fazer. Você deve usar as margens de impressão do componente, e não as propriedades left e top, que são para posicionamento no formulário. No QuickReport as propriedades de Margem ficam em Page, experimente fazer um teste com elas. Mas outra dica, se for para impressão de notas fiscais, utilize componentes que imprimam em matriciais, como o RDPrint, conhecidos de todos aqui, que é pago, ou o VDOPrint... Vitor. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alexandre Enviada em: quinta-feira, 24 de janeiro de 2008 15:15 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Converter Centimetros em Inteiro Deixa eu explicar melhor, fiz uma opção no meu sistema, para o usuário fazer a impressão da nota fiscal, ele define a margem superior e margem lateral de cada campo na impressão, estou usando o QuickReport, quero pegar o que o usuário colocou no programa em centimetros e passar para a propriedade TOP e LEFT do componente da impressão, entenderam?Só que a propriedade Top e Left do componente do QuickReport recebe um valor inteiro, e é óbvio que se o usuário colocar 4,5 cms vai dar pau na conversão, entendeu? Alex - Original Message - From: Alexandre Rodrigues To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Thursday, January 24, 2008 4:00 PM Subject: Re: [delphi-br] Converter Centimetros em Inteiro Cara, tu tá trocando as bolas, vamos voltar a 4º serie Centímetro é uma unidade de medidas, temos quilômetros, metros, centímetros e milímetros, etc. 1 metro tem 100 centímetros e 1 centímetro tem 10 milímetros. Agora converter Centímetro para inteiro é impossível, inteiro não uma unidade de medida. Agora digamos que tu tenhas 1,50 centímetros que um valor fracionário e você deseje retirar as duas casas decimais transformando esse valor em um numero inteiro, você pode multiplicar ele por 10 e teria 15, porém já não seriam mais centímetros e sim 15 milímetros. Entendeu? Alexandre escreveu: Pessoal alguem sabe como faço para converter um valor em centimetros em inteiro?? Alex [As partes desta mensagem que não continham texto foram removidas] ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo. http://br.yahoo.com/mailbeta/tudonovo/ com/mailbeta/tudonovo/ __ Information from ESET NOD32 Antivirus, version of virus signature database 2786 (20080112) __ The message was checked by ESET NOD32 Antivirus. http://www.eset. http://www.eset.com com [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] Usuário do UserControl
Alguem já conseguiu atualizar o D2007 com o update 3, e utilizar o UserControl ? João Paulo Pyl EsPyl Sistemas e Assessoria Pública Fone (45) 3038-7328 From: Junior Sent: Thursday, January 24, 2008 2:42 AM To: [EMAIL PROTECTED] ; delphi-br@yahoogrupos.com.br Subject: [delphi-br] Usuário do UserControl Como faço pra descobrir qual o usuário que logou no sistema, já que o controle é feito pelo User Control ? Alguém aí que usa o UC exibe em algum lugar (form/statusbar/etc) o nome do usuário ? Obrigado Junior [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] Usuário do UserControl
Legal Alexandre muito boa diga, vou implementar em meu sistema a dia de
gavação de LOG...
Vivendo e apredendo...
Em 24/01/08, Alexandre [EMAIL PROTECTED] escreveu:
Olá,
Hehehe, está correto estimado. Indo um pouco mais além, pode usar alguns
eventos do componente.
// Mostrando quando o usuário se logou pela última vez:
procedure TForm1.UserControlLoginSucess(Sender: TObject; IdUser: Integer;
Usuario, Nome, Senha, Email: String;
Privilegiado: Boolean);
var
LastLogin : TDateTime;
StrData : String;
begin
//Pesquisar ultimo login do usuario
qryPesquisa.Close;
qryPesquisa.SQL.Text := 'Select Max(Data) as Data from ' +
UserControl.LogControl.TableLog +
' where IdUser = ' + IntToStr(IdUser) +
' and MSG like ' + QuotedStr('Entrada no sistema%');
qryPesquisa.Open;
StrData := qryPesquisa.FieldByName('data').asString;
if StrData '' then begin
LastLogin := EncodeDate( StrToInt(Copy(StrData,1,4)),
StrToInt(Copy(StrData,5,2)), StrToInt(Copy(StrData,7,2)) ) +
EncodeTime( StrToInt(Copy(StrData,9,2)),
StrToInt(Copy(StrData,11,2)), StrToInt(Copy(StrData,13,2)),0);
MessageDlg('Seu último Login foi em '+ FormatDateTime('DD/MM/',
LastLogin)+' '+ FormatDateTime('hh:mm', LastLogin), mtInformation, [mbOK],
0);
end else MessageDlg('Bem vindo!'+#13+#10+'Este é seu primeiro Login no
sistema.', mtInformation, [mbOK], 0);
qryPesquisa.Close;
// Logar este login do usuario
UserControl.Log(Format('Entrada no sistema usuário: %s nome:
%s',[Usuario, Nome]),0);
end;
// Simplesmente pegando os dados do usuário logado
procedure TForm1.UserControlLoginSucess(Sender: TObject; IdUser: Integer;
Usuario, Nome, Senha, Email: String;
Privilegiado: Boolean);
begin
globalIdUser := IdUser;
globalNameUser := Nome;
// Logar este login do usuario
UserControl.Log(Format('Ultimo login do usuário: %s nome:
%s',[Usuario, Nome]),0);
end;
// Logando usuário que fica errando senha, pode controlar pela propriedade
MaxLoginAttemps
// no create do form cria iTentativas := 1 e no loginsucess volta
iTentativas pra 1;
procedure TForm1.UserControlLoginError(Sender: TObject; Usuario, Senha:
String);
var
sTentativas : String;
begin
sTentativas := Trim(IntToStr(iTentativas)) + '/' +
IntToStr(UserControl.Login.MaxLoginAttempts);
UserControl.Log(Format('Erro de login do usuário: %s senha: %s
tentativa : %s',[Usuario, Senha, sTentativas]),0);
end;
Saudações.
Alexandre.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto:
delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em
nome de Jorge Ericsson
Enviada em: quinta-feira, 24 de janeiro de 2008 03:00
Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
Assunto: Re: [delphi-br] Usuário do UserControl
OI Júnior,
Para retornar o nome do usuário que logou no use control eu uso por
exemplo:
vUsuario := UserControl.CurrentUser.UserName; statusbar.Panels[0].Text :=
'
Usuário: ' + qUsuario;
ou buscando direto na tabela que armazena os dados do usuário da seguinte
forma:
vCodUsuario := UserControl.TableUsers.FieldUserID;
Se vc pressionar após o ponto (Exe: UserControl.TableUsers. ) o delphi te
retornar todos os campos que possui a tabela Users para que que vc atribua
da melhor forma possivel.
Espero não ter complicado muito, mais simplifiquei ao máximo...
Em 24/01/08, Junior [EMAIL PROTECTED] red.mosquito%40uol.com.br
escreveu:
Como faço pra descobrir qual o usuário que logou no sistema, já que
o controle é feito pelo User Control ?
Alguém aí que usa o UC exibe em algum lugar (form/statusbar/etc) o
nome do usuário ?
Obrigado
Junior
[As partes desta mensagem que não continham texto foram removidas]
--
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3965.2992 / 3039.1768
Brasília - DF
--
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3965.2992 / 3039.1768
Brasília - DF
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] URGENTE!!! Problemas com bloqueio de escrita na registry
Olá amigos, Eu tenho um sistema instalado em um cliente a muito muito tempo que vinha funcionando corretamente, mas o administrador da empresa resolveu adotada uma politica de segurança devido a quantidade de vírus que esta infestando a rede. Uma dessas medidas foi a proibição da escrita na registry e retirando todos os usuários da rede como administrador da máquina. Bom eu avisei a ele que o meu programa precisa escrever na registry o IP local dá máquina, pois utilizo mysql e como a rede sempre gera IP dinâmico eu tinha problemas na permissão de usuário no banco. Bom eu gostaria de saber se alguém já passou por isso ou tem uma sujestão para que eu possa continua gravando na registry do windows sem que os usuários não precisem de administração total na máquina. Espero ter sido claro no meu problema. Obs: Não gostaria de usar arquivo INI pois já tive sério problemas de exclusão de arquivos. Valew !!! -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Alguém conhece de DCOM
- Forwarded Message From: Ivan Vieira [EMAIL PROTECTED] To: Lista Delphi [EMAIL PROTECTED] Sent: Thursday, January 24, 2008 3:24:37 PM Subject: Alguém conhece de DCOM Caros, estou querendo especificar via código o usuário que o dcom irá rodar. Vcs sabem como posso fazer isso??? Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now. Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now. http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Serviços do Windows
Boa tarde, gostaria de saber se tem como iniciar/parar/reiniciar um serviço do windows. Como por exemplo o serviço de Temas, Serviços de Criptografia, Agendador de tarefas. ou mesmo listar esse serviço. tem como finalizar alguns serviço atravez dos processos do windows, mas não é exatamente o que estou precisando. sem mais agradeço, Ricardo Lino Gonzalez [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Serviços do Windows
Via comando DOS isso é possível: NET Start Nome do serviço NET Stop Nome do serviço [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Serviços do Windows
Essa maneira eu já conheço... Utilizo para parar e iniciar o MSSQLServer No Delphi tem como criar um serviço... Mas não vi nada que fosse mais amigável como o próprio programa do Windows que lista os processos e te dá varias opções... Mas de qualquer forma muito obrigado... De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de José Mário Silva Guedes Enviada em: quinta-feira, 24 de janeiro de 2008 18:21 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Serviços do Windows Via comando DOS isso é possível: NET Start Nome do serviço NET Stop Nome do serviço [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] Nome de variaveis.
Andei pesquisando ... acho q va iser ele mesmo .. Obrigado. Guionardo Furlan escreveu: ModelMaker? Grep/Search do GExperts ou cnPack? Em 20/01/08, Anderson F. de Rossi [EMAIL PROTECTED] mailto:grupo.anderson.rossi%40gmail.com escreveu: Pessoal bom dia. Olha só , estou tendo que padronizar as variaveis e funções usadas em um projeto em Delphi 7 ... porém ele já está rodando , e é meio grande alguem conhece alguma ferramenta que faça isso ... ? -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com http://guionardo.blogspot.com
RES: [delphi-br] URGENTE!!! Problemas com bloqueio de escrita na registry
Não conheço MySQL tão bem assim, mas presumo que o IP do cliente não tenha nada a ver com a conexão estabelecida, se tivesse, nenhum site usaria, certo? É esse mesmo o problema? Os outros bancos de dados, com os quais já tive experiência, não dependiam do IP do cliente, pelo menos... Mas se o Registry está bloqueado, escreva o arquivo necessário em alguma pasta escondida... é um solução mais simples do que passar pelo bloqueio do windows. Vitor. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Jorge Ericsson Enviada em: quinta-feira, 24 de janeiro de 2008 14:39 Assunto: [delphi-br] URGENTE!!! Problemas com bloqueio de escrita na registry Olá amigos, Eu tenho um sistema instalado em um cliente a muito muito tempo que vinha funcionando corretamente, mas o administrador da empresa resolveu adotada uma politica de segurança devido a quantidade de vírus que esta infestando a rede. Uma dessas medidas foi a proibição da escrita na registry e retirando todos os usuários da rede como administrador da máquina. Bom eu avisei a ele que o meu programa precisa escrever na registry o IP local dá máquina, pois utilizo mysql e como a rede sempre gera IP dinâmico eu tinha problemas na permissão de usuário no banco. Bom eu gostaria de saber se alguém já passou por isso ou tem uma sujestão para que eu possa continua gravando na registry do windows sem que os usuários não precisem de administração total na máquina. Espero ter sido claro no meu problema. Obs: Não gostaria de usar arquivo INI pois já tive sério problemas de exclusão de arquivos. Valew !!! -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsso http://www.jericsson.com.br n.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [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] URGENTE!!! Problemas com bloqueio de escrita na registry
Vitor, no Mysql ao criar um usuário vc pode determinar uma faixa de IP que o servidor vai aceitar;;; tipo se vc definir no campo host o valor 192.168.%.% o mysql so vai deixar o cliente conectar caso o IP dele seja 192.168.X.X para permitir que qualquer IP conecte ao servidor basta colocar % no campo Host.. Em 24/01/08, Vitor Redes [EMAIL PROTECTED] escreveu: Não conheço MySQL tão bem assim, mas presumo que o IP do cliente não tenha nada a ver com a conexão estabelecida, se tivesse, nenhum site usaria, certo? É esse mesmo o problema? Os outros bancos de dados, com os quais já tive experiência, não dependiam do IP do cliente, pelo menos... Mas se o Registry está bloqueado, escreva o arquivo necessário em alguma pasta escondida... é um solução mais simples do que passar pelo bloqueio do windows. Vitor. _ De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Jorge Ericsson Enviada em: quinta-feira, 24 de janeiro de 2008 14:39 Assunto: [delphi-br] URGENTE!!! Problemas com bloqueio de escrita na registry Olá amigos, Eu tenho um sistema instalado em um cliente a muito muito tempo que vinha funcionando corretamente, mas o administrador da empresa resolveu adotada uma politica de segurança devido a quantidade de vírus que esta infestando a rede. Uma dessas medidas foi a proibição da escrita na registry e retirando todos os usuários da rede como administrador da máquina. Bom eu avisei a ele que o meu programa precisa escrever na registry o IP local dá máquina, pois utilizo mysql e como a rede sempre gera IP dinâmico eu tinha problemas na permissão de usuário no banco. Bom eu gostaria de saber se alguém já passou por isso ou tem uma sujestão para que eu possa continua gravando na registry do windows sem que os usuários não precisem de administração total na máquina. Espero ter sido claro no meu problema. Obs: Não gostaria de usar arquivo INI pois já tive sério problemas de exclusão de arquivos. Valew !!! -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsso http://www.jericsson.com.br n.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] URGENTE!!! Problemas com bloqueio de escrita na registry
Certo, legal. Então acho que a resposta do nosso amigo esta aí. Vitor. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: quinta-feira, 24 de janeiro de 2008 20:37 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] URGENTE!!! Problemas com bloqueio de escrita na registry Vitor, no Mysql ao criar um usuário vc pode determinar uma faixa de IP que o servidor vai aceitar;;; tipo se vc definir no campo host o valor 192.168.%.% o mysql so vai deixar o cliente conectar caso o IP dele seja 192.168.X.X para permitir que qualquer IP conecte ao servidor basta colocar % no campo Host.. Em 24/01/08, Vitor Redes vredesredsystem@ mailto:vredesredsystem%40yahoo.com.br yahoo.com.br escreveu: Não conheço MySQL tão bem assim, mas presumo que o IP do cliente não tenha nada a ver com a conexão estabelecida, se tivesse, nenhum site usaria, certo? É esse mesmo o problema? Os outros bancos de dados, com os quais já tive experiência, não dependiam do IP do cliente, pelo menos... Mas se o Registry está bloqueado, escreva o arquivo necessário em alguma pasta escondida... é um solução mais simples do que passar pelo bloqueio do windows. Vitor. _ De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.br [mailto: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.br] Em nome de Jorge Ericsson Enviada em: quinta-feira, 24 de janeiro de 2008 14:39 Assunto: [delphi-br] URGENTE!!! Problemas com bloqueio de escrita na registry Olá amigos, Eu tenho um sistema instalado em um cliente a muito muito tempo que vinha funcionando corretamente, mas o administrador da empresa resolveu adotada uma politica de segurança devido a quantidade de vírus que esta infestando a rede. Uma dessas medidas foi a proibição da escrita na registry e retirando todos os usuários da rede como administrador da máquina. Bom eu avisei a ele que o meu programa precisa escrever na registry o IP local dá máquina, pois utilizo mysql e como a rede sempre gera IP dinâmico eu tinha problemas na permissão de usuário no banco. Bom eu gostaria de saber se alguém já passou por isso ou tem uma sujestão para que eu possa continua gravando na registry do windows sem que os usuários não precisem de administração total na máquina. Espero ter sido claro no meu problema. Obs: Não gostaria de usar arquivo INI pois já tive sério problemas de exclusão de arquivos. Valew !!! -- Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsso http://www.jericsso http://www.jericsson.com.br n.com.br n.com.br 61 9227.4785 / 3965.2992 / 3039.1768 Brasília - DF [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: eduardo.drd@ mailto:eduardo.drd%40gmail.com gmail.com Site: http://www.drdsiste http://www.drdsistemas.com/ mas.com/ ... [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] [OFF] Churrascada
Davi Eduardo Borges Wall wrote: Ah ta que maravilha! Blumenauenses dominando! Costelão na sexta feira ? alguém ?? risos... PS: sou de Blu tb ! Se sair uma churrascada cêis me avisa. Eu não sou de Blumenau mas chego em meia hora. -- Joao Morais
Re: [delphi-br] URGENTE!!! Problemas com bloqueio de escrita na registry
Jorge Ericsson wrote: Bom eu avisei a ele que o meu programa precisa escrever na registry o IP local dá máquina, pois utilizo mysql e como a rede sempre gera IP dinâmico eu tinha problemas na permissão de usuário no banco. Bom eu gostaria de saber se alguém já passou por isso ou tem uma sujestão para que eu possa continua gravando na registry do windows sem que os usuários não precisem de administração total na máquina. Não é todo o registro que fica bloqueado, as chaves de usuário são leitura e escrita. Mas o melhor mesmo é permitir que o banco receba conexão de toda sua rede local, tal qual foi recomendado. O que eu fiquei sem entender é em que gravar no registro vai te ajudar. -- Joao Morais
Re: [delphi-br] Re: Pegando o foco!!
olha uma dica ahahah para fazer um spy de teclado:) Em 24/01/08, caionmoreno [EMAIL PROTECTED] escreveu: O timer de 7 em 7 segundos executa o código: Webbrowser1.Refresh; E tem um timer de 1 em 1 segundo que verifica se a pessoa aperto a sequencia de teclas para mostrar o prog. Mas jah tentei desativar esse timer de 1 segundo e continuo perdendo foco! --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu Fica dificil sem saber oq exatamente o Timer faz no momento da atualização... de mais detalhes ou mostra o código ae.. Em 24/01/08, caionmoreno [EMAIL PROTECTED] escreveu: Eu tenho uma aplicação que roda escondida com o form no hide! E com timer, que de tanto em tanto segundos ele atualiza uma coisa. Só que quando ele atualiza, o que eu esteja mexendo no pc (internet, programa, etc) perde o foco, eu to digitando alguma coisa, e do nada perde o foco! Alguém sabe o que pode estar causando isso? -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Quinino [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Re: Pegando o foco!!
Crie um serviço... veja se resolve, se precisar chamar a aplicação, o serviço faz isso quando necessário, se não ele fica só na escuta Vitor. _ De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Leonardo Quinino Enviada em: quinta-feira, 24 de janeiro de 2008 20:30 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Pegando o foco!! olha uma dica ahahah para fazer um spy de teclado:) Em 24/01/08, caionmoreno caionmoreno@ mailto:caionmoreno%40yahoo.com.br yahoo.com.br escreveu: O timer de 7 em 7 segundos executa o código: Webbrowser1.Refresh; E tem um timer de 1 em 1 segundo que verifica se a pessoa aperto a sequencia de teclas para mostrar o prog. Mas jah tentei desativar esse timer de 1 segundo e continuo perdendo foco! --- Em [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br delphi-br%40yahoogrupos.com.br, Eduardo Silva dos Santos [EMAIL PROTECTED] escreveu Fica dificil sem saber oq exatamente o Timer faz no momento da atualização... de mais detalhes ou mostra o código ae.. Em 24/01/08, caionmoreno [EMAIL PROTECTED] escreveu: Eu tenho uma aplicação que roda escondida com o form no hide! E com timer, que de tanto em tanto segundos ele atualiza uma coisa. Só que quando ele atualiza, o que eu esteja mexendo no pc (internet, programa, etc) perde o foco, eu to digitando alguma coisa, e do nada perde o foco! Alguém sabe o que pode estar causando isso? -- ... Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsiste http://www.drdsistemas.com/ mas.com/ ... [As partes desta mensagem que não continham texto foram removidas] -- Leonardo Quinino [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] URGENCIA - PROBLEMA EXTRANHO NO DELPHI 7
Andre, Voce testou em maquinas diferentes? Qual a configuracao? SO, Memoria, Antivirus... Se voce ainda nao implementou, de uma olhada na FastMM, que (se nao me engano) é utilizado pela CodeGear a partir do delphi 2006. O caminho é: http://sourceforge.net/projects/fastmm/ Abraco, Sergio Eurico. Em 24/01/08, Andre Nunes [EMAIL PROTECTED] escreveu: Bom, primeiramente peço desculpa pelo erro grosseiro no português extranho, fala serio digo ESTRANHO. Sobre o erro: meu usuário faz varias alterações e imprimi no report builder para visualizar as alterações. por se tratar de um cadastro grande ele faz varias vezes. e de repente o programa ABORTA é não da erro de nada. Nota: já verifiquei o codigo e onde poderia destruir os objetos que poderia consumir memoria eu fiz. _ De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br [mailto: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br] Em nome de Darkzad Enviada em: quinta-feira, 24 de janeiro de 2008 09:42 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] URGENCIA - PROBLEMA EXTRANHO NO DELPHI 7 Acho que vc esqueceu de falar o Problema. ;D Marcelo - Original Message - From: Andre Nunes To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Thursday, January 24, 2008 10:37 AM Subject: [delphi-br] URGENCIA - PROBLEMA EXTRANHO NO DELPHI 7 Bom dia, Trabalhamos aki na empresa comDelphi 7, temos 2 ambientes de desenvolvimento e produção, a 15 dias que começou a apresentar alguns problemas extranhos, como por exemplo: tenho um processo onde o usuario tem incluir algumas informações e depois ele visualiza na tela com report builder até ai sem problema, como o documento é grande ele faz N alterações. ai é começa o problema sai do programa sem dar qualquer mensagem de erro. Obs: Já verifiquei a destruição dos objetos quando são criados. Andre nunes Manaus-AM Tudo posso naquele que me fortalece [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] !DSPAM:47989552108951235816653! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
