RES: [delphi-br] [OFF-TOPIC] NFe: Como conseguiram esta nfe ???
Albuquerque, Já pode ser um pouco tarde para a resposta, mas o R$ 3,50 a mais no Total da NFe é o Valor do Frete e não o ICMS como o Samuca disse. E a Base do ICMS é o mesmo valor de 3,50, pois incide ICMS sobre o Frete. Espero ter ajudado. Abraços Rogério De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Samuca ( Yahoo ) Enviada em: quinta-feira, 20 de maio de 2010 15:15 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] [OFF-TOPIC] NFe: Como conseguiram esta nfe ??? Albuquerque, Boa Tarde, Se você notar, verá que o Total da Nota é exatamente o Total dos Produtos somado à base de cálculo do ICMS. ( 139.82 = 136.32 + 3.50 ) Se você observar nos tributos do produto está lá : Tributação do ICMS : 60 - ICMS cobrado anteriormente por substituição tributária; isto significa que o Emissor dessa NF já pagou o ICMS deste produto quando o comprou, ou seja, quando ele efetuou uma operação de venda pra revenda, O que ele está fazendo agora é cobrando este imposto ( ou a diferença ) dele do seu cliente. Entendeu!?!?!? Abraço, Samuca - Original Message - From: Albuquerque To: lista-del...@yahoogrupos.com.br mailto:lista-delphi%40yahoogrupos.com.br ; delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br ; automacaoto...@yahoogrupos.com.br mailto:AutomacaoTotal%40yahoogrupos.com.br ; projeto_cooperar_...@yahoogrupos.com.br mailto:projeto_cooperar_nfe%40yahoogrupos.com.br Sent: Wednesday, May 19, 2010 4:30 PM Subject: [delphi-br] [OFF-TOPIC] NFe: Como conseguiram esta nfe ??? Estou com um DANFE em mãos. Pertence a um fornecedor de um cliente meu. Meu cliente permitiu a publicação da chave de acesso da nfe (está no final deste) para esclarecer a seguinte dúvida: -A soma dos produtos não confere com o valor total da nota. Por quê ? -Simples: a nfe tem desconto ! Porém -No DANFE não tem desconto algum impresso, seja nos totais (Valor Desconto) ou por produto. Como ? -Desconfiei que o desconto foi enviado via XML, porém o sistema do fornecedor não imprime o desconto no DANFE dele. Só que -Acessando a nfe através de sua chave nota-se que não tem desconto algum enviado/citado/impresso !!! Portanto pergunto: O sistema da Receita não faz a conferência da soma dos produtos com o valor total da nota ? (se fizesse jamais permitiria que a nfe aqui em questão fosse liberada) Pra quem quiser acessar a nfe para conferir, segue a chave (com autorização EXPRESSA do meu cliente) 3510057285550500138255055838436208280945 Desde já agradeço a atenção dispensada. Att. Albuquerque [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] _ E-mail verificado pelo Terra Anti-Spam. Para classificar esta mensagem como spam ou não spam, clique http://ecp.terra.com.br/cgi-bin/reportspam.cgi?+_d=SCY4NTcyNzcjcGVybSF0ZXJy YSYxLDEyNzQ0MDQ3NzQuNTM3MTM3LjMwNjI4LnF1ZXNuZWwudGVycmEuY29tLDI2NDg5TerraMai l aqui. Verifique periodicamente a pasta Spam para garantir que apenas mensagens indesejadas sejam classificadas como Spam. _ Esta mensagem foi verificada pelo E-mail Protegido Terra. Atualizado em 20/05/2010 Nenhum vírus encontrado nessa mensagem recebida. Verificado por AVG - www.avgbrasil.com.br Versão: 9.0.819 / Banco de dados de vírus: 271.1.1/2896 - Data de Lançamento: 05/25/10 15:26:00 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Ajuda com CurrencyEdit
Albuquerque, Tente o seguinte: Edit1.Value := Edit2.Value; Obrigado. MuriloCunha On 26/05/2010 15:25, Albuquerque wrote: Tenho vários CurrencyEdits em 2 Panels distintos. Quando estou num Panel os CurrencyEdits do outro Panel não são atualizados. Exemplo: No Panel1 digito 10 no Edit1. No Panel2 digito 30 do Edit2. No OnClick de um botão faço: Panel1.Edit1.Value := Panel2.Edit2.Value; Ao debugar notei que os valores permanecem cf. foram digitados, isto é, Panel1.Edit1.Value = 10 e Panel2.Edit2.Value = 30. Porque o Edit1 do Panel1 não assumiu o valor 30 que foi passado pelo Panel2.Edit2 ? Desde já agradeço a atenção dispensada. Att. Albuquerque [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] FireBird Developers Day 2010
Estarei lá Bruno... Abraços De: Bruno Lichot bruno.lic...@microfocus.com Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 25 de Maio de 2010 18:38:25 Assunto: [delphi-br] FireBird Developers Day 2010 Galera! Está valendo agora, o FDD (http://tinyurl.com/2dbyb7r) deste ano é para mim um dos mais esperados, pois tem grandes mudanças na parte de segurança e é o aniversario do FB com muito sucesso na bagagem. O evento realmente está prometendo muito! Estamos com uma versão nova as portas e muito boa alem de n outros motivos como o suporte nativo ao FireBird pelo Delphi. Sem falar na oportunidade impar de poder rever os amigos e trocar experiências e conseguir várias consultorias na faixa com os melhores especialistas da área. Sem falar que o lugar do evento é incrível! Eu estarei lá com certeza, quem aqui da lista for para o evento, manda um sinal de fumaça que nos encontramos lá! Grande abraço! Bruno [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 do autor de um arquivo
Edelson,
Tente o seguinte:
~
{
Usage:
VersionInformation(ListBox1)
}
{Pads or truncates a String and
Justifies Left if StrJustify=True}
Function StringPad(
InputStr,
FillChar: String;
StrLen: Integer;
StrJustify: Boolean): String;
Var
TempFill: String;
Counter : Integer;
Begin
If Not (Length(InputStr) = StrLen) Then
Begin
If Length(InputStr) StrLen Then
Begin
InputStr := Copy(InputStr,1,StrLen) ;
End
Else
Begin
TempFill := '';
For Counter := 1 To StrLen-Length(InputStr) Do
Begin
TempFill := TempFill + FillChar;
End;
If StrJustify Then
Begin
{Left Justified}
InputStr := InputStr + TempFill;
End
Else
Begin
{Right Justified}
InputStr := TempFill + InputStr ;
End;
End;
End;
Result := InputStr;
End;
Function VersionInformation(
ListBox : TListBox): Boolean;
const
InfoNum = 11;
InfoStr : array [1..InfoNum] of String =
('CompanyName', 'FileDescription', 'FileVersion',
'InternalName', 'LegalCopyright', 'LegalTradeMarks',
'OriginalFilename', 'ProductName', 'ProductVersion',
'Comments', 'Author') ;
LabelStr : array [1..InfoNum] of String =
('Company Name', 'Description', 'File Version',
'Internal Name', 'Copyright', 'TradeMarks',
'Original File Name', 'Product Name',
'Product Version', 'Comments', 'Author') ;
var
S : String;
n, Len, j : Integer;
Buf : PChar;
Value : PChar;
begin
Try
S := Application.ExeName;
ListBox.Items.Clear;
ListBox.Sorted := True;
ListBox.Font.Name := 'Courier New';
n := GetFileVersionInfoSize(PChar(S),n) ;
If n 0 Then Begin
Buf := AllocMem(n) ;
ListBox.Items.Add
(StringPad('Size',' ',20,True)+' = '+IntToStr(n)) ;
GetFileVersionInfo(PChar(S),0,n,Buf) ;
For j:=1 To InfoNum Do Begin
If VerQueryValue(Buf,PChar('StringFileInfo\040904E4\'+
InfoStr[j]),Pointer(Value),Len) Then
Begin
Value := PChar(Trim(Value)) ;
If Length(Value) 0 Then
Begin
ListBox.Items.Add
(StringPad(labelStr,' ',20,True)+' = '+Value) ;
End;
End;
End;
FreeMem(Buf,n) ;
End
Else Begin
ListBox.Items.Add
('No FileVersionInfo found') ;
End;
Result := True;
Except
Result := False;
End;
End;
~
Obrigado.
MuriloCunha
On 26/05/2010 14:43, Edelson Regis de Lima wrote:
Boa tarde pessoal!
Já dei uma pesquisada nas mensagens antigas do forum, mas não encontrei...
Alguém sabe se dá para criar um arquivo, e no momento da sua criação
informar o nome do Autor? (Aquela propriedade que o windows mostra quando
vemos as propriedades do arquivo)
E também como extrair de um arquivo o nome do Autor.
A data e hora de criação eu já consegui extrair da seguinte maneira:
FileDateToDateTime(FileAge('Nome_Do_Arquivo'))
Mas preciso extrair também o nome do Autor.
Obrigado!
Edelson.
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Ajuda com CurrencyEdit
Estou fazendo exatamente isso: Edit1.Value := Edit2.Value; Coloquei o Panel1/Panel2 na frente apenas para exemplificar que cada Edit está dentro de um Panel, só isso. Mas mesmo fazendo Edit1.Value := Edit2.Value o Edit1 não assume o valor do Edit2 Desde já agradeço a atenção dispensada. Att. Albuquerque De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Murilo Cunha Enviada em: quinta-feira, 27 de maio de 2010 08:06 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Ajuda com CurrencyEdit Albuquerque, Tente o seguinte: Edit1.Value := Edit2.Value; Obrigado. MuriloCunha On 26/05/2010 15:25, Albuquerque wrote: Tenho vários CurrencyEdits em 2 Panels distintos. Quando estou num Panel os CurrencyEdits do outro Panel não são atualizados. Exemplo: No Panel1 digito 10 no Edit1. No Panel2 digito 30 do Edit2. No OnClick de um botão faço: Panel1.Edit1.Value := Panel2.Edit2.Value; Ao debugar notei que os valores permanecem cf. foram digitados, isto é, Panel1.Edit1.Value = 10 e Panel2.Edit2.Value = 30. Porque o Edit1 do Panel1 não assumiu o valor 30 que foi passado pelo Panel2.Edit2 ? Desde já agradeço a atenção dispensada. Att. Albuquerque [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: Ajuda com CurrencyEdit
Esses seu Edits são TDBEdit? Se sim, você precisa alterar o conteúdo do field relacionado e não do Edit. Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, Albuquerque sys.e...@... escreveu Estou fazendo exatamente isso: Edit1.Value := Edit2.Value; Coloquei o Pane
Re: [delphi-br] Nome do autor de um arquivo
Edelson,
Funcionou a dica do Murilo? Muito legal hein Murilo?
Adriano Santos
Vendo Sony Vaio http://bit.ly/aWrKyW
http://twitter.com/asrsantos
http://delphitodelphi.blogspot.com
Em Thu, May 27, 2010 at 8:10 AM, Murilo Cunha mcscu...@yahoo.com.brescreveu:
Edelson,
Tente o seguinte:
~
{
Usage:
VersionInformation(ListBox1)
}
{Pads or truncates a String and
Justifies Left if StrJustify=True}
Function StringPad(
InputStr,
FillChar: String;
StrLen: Integer;
StrJustify: Boolean): String;
Var
TempFill: String;
Counter : Integer;
Begin
If Not (Length(InputStr) = StrLen) Then
Begin
If Length(InputStr) StrLen Then
Begin
InputStr := Copy(InputStr,1,StrLen) ;
End
Else
Begin
TempFill := '';
For Counter := 1 To StrLen-Length(InputStr) Do
Begin
TempFill := TempFill + FillChar;
End;
If StrJustify Then
Begin
{Left Justified}
InputStr := InputStr + TempFill;
End
Else
Begin
{Right Justified}
InputStr := TempFill + InputStr ;
End;
End;
End;
Result := InputStr;
End;
Function VersionInformation(
ListBox : TListBox): Boolean;
const
InfoNum = 11;
InfoStr : array [1..InfoNum] of String =
('CompanyName', 'FileDescription', 'FileVersion',
'InternalName', 'LegalCopyright', 'LegalTradeMarks',
'OriginalFilename', 'ProductName', 'ProductVersion',
'Comments', 'Author') ;
LabelStr : array [1..InfoNum] of String =
('Company Name', 'Description', 'File Version',
'Internal Name', 'Copyright', 'TradeMarks',
'Original File Name', 'Product Name',
'Product Version', 'Comments', 'Author') ;
var
S : String;
n, Len, j : Integer;
Buf : PChar;
Value : PChar;
begin
Try
S := Application.ExeName;
ListBox.Items.Clear;
ListBox.Sorted := True;
ListBox.Font.Name := 'Courier New';
n := GetFileVersionInfoSize(PChar(S),n) ;
If n 0 Then Begin
Buf := AllocMem(n) ;
ListBox.Items.Add
(StringPad('Size',' ',20,True)+' = '+IntToStr(n)) ;
GetFileVersionInfo(PChar(S),0,n,Buf) ;
For j:=1 To InfoNum Do Begin
If VerQueryValue(Buf,PChar('StringFileInfo\040904E4\'+
InfoStr[j]),Pointer(Value),Len) Then
Begin
Value := PChar(Trim(Value)) ;
If Length(Value) 0 Then
Begin
ListBox.Items.Add
(StringPad(labelStr,' ',20,True)+' = '+Value) ;
End;
End;
End;
FreeMem(Buf,n) ;
End
Else Begin
ListBox.Items.Add
('No FileVersionInfo found') ;
End;
Result := True;
Except
Result := False;
End;
End;
~
Obrigado.
MuriloCunha
On 26/05/2010 14:43, Edelson Regis de Lima wrote:
Boa tarde pessoal!
Já dei uma pesquisada nas mensagens antigas do forum, mas não
encontrei...
Alguém sabe se dá para criar um arquivo, e no momento da sua criação
informar o nome do Autor? (Aquela propriedade que o windows mostra quando
vemos as propriedades do arquivo)
E também como extrair de um arquivo o nome do Autor.
A data e hora de criação eu já consegui extrair da seguinte maneira:
FileDateToDateTime(FileAge('Nome_Do_Arquivo'))
Mas preciso extrair também o nome do Autor.
Obrigado!
Edelson.
[As partes desta mensagem que não continham texto foram removidas]
--
Adriano Santos
http://twitter.com/asrsantos
www.delphitodelphi.blogspot.com
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
* Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
* Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] FireBird Developers Day 2010
Bruno, Pode crer, a parte de rever os amigos e trocar experiências é um dos motivos pra estar no evento. Estarei lá também, nos vemos no FDD. Abs Adriano Santos Vendo Sony Vaio http://bit.ly/aWrKyW http://twitter.com/asrsantos http://delphitodelphi.blogspot.com Em Thu, May 27, 2010 at 8:03 AM, Joao Denois joaoden...@yahoo.com.brescreveu: Estarei lá Bruno... Abraços De: Bruno Lichot bruno.lic...@microfocus.combruno.lichot%40microfocus.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 25 de Maio de 2010 18:38:25 Assunto: [delphi-br] FireBird Developers Day 2010 Galera! Está valendo agora, o FDD (http://tinyurl.com/2dbyb7r) deste ano é para mim um dos mais esperados, pois tem grandes mudanças na parte de segurança e é o aniversario do FB com muito sucesso na bagagem. O evento realmente está prometendo muito! Estamos com uma versão nova as portas e muito boa alem de n outros motivos como o suporte nativo ao FireBird pelo Delphi. Sem falar na oportunidade impar de poder rever os amigos e trocar experiências e conseguir várias consultorias na faixa com os melhores especialistas da área. Sem falar que o lugar do evento é incrível! Eu estarei lá com certeza, quem aqui da lista for para o evento, manda um sinal de fumaça que nos encontramos lá! Grande abraço! Bruno [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] FireBird Developers Day 2010
O pessoal pode aproveitar também que a Azul tá voando pra Campinas quase qeu de graça. Chegando lá no Aeroporto é só pegar um onibus pra cidade que não demora nem 30 minutos e outro pra Piracicaba que também leva na média de uns 30 a 40 minutos. É tranquilésimo. []s Walter Alves Chagas Junior Belo Horizonte - MG - Brazil wchag...@bol.com.br http://delphitocorporerm.blogspot.com/ http://twitter.com/wchagas MSN: whitesock...@hotmail.com SKYPE: WalterChagasJr - Original Message - From: Adriano Santos asrsan...@gmail.com To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 27, 2010 10:08 AM Subject: Re: [delphi-br] FireBird Developers Day 2010 Bruno, Pode crer, a parte de rever os amigos e trocar experiências é um dos motivos pra estar no evento. Estarei lá também, nos vemos no FDD. Abs Adriano Santos Vendo Sony Vaio http://bit.ly/aWrKyW http://twitter.com/asrsantos http://delphitodelphi.blogspot.com Em Thu, May 27, 2010 at 8:03 AM, Joao Denois joaoden...@yahoo.com.brescreveu: Estarei lá Bruno... Abraços De: Bruno Lichot bruno.lic...@microfocus.combruno.lichot%40microfocus.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Terça-feira, 25 de Maio de 2010 18:38:25 Assunto: [delphi-br] FireBird Developers Day 2010 Galera! Está valendo agora, o FDD (http://tinyurl.com/2dbyb7r) deste ano é para mim um dos mais esperados, pois tem grandes mudanças na parte de segurança e é o aniversario do FB com muito sucesso na bagagem. O evento realmente está prometendo muito! Estamos com uma versão nova as portas e muito boa alem de n outros motivos como o suporte nativo ao FireBird pelo Delphi. Sem falar na oportunidade impar de poder rever os amigos e trocar experiências e conseguir várias consultorias na faixa com os melhores especialistas da área. Sem falar que o lugar do evento é incrível! Eu estarei lá com certeza, quem aqui da lista for para o evento, manda um sinal de fumaça que nos encontramos lá! Grande abraço! Bruno [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] [Off-Topic] Alguém que utiliza notebook p/ programa r e comprou SSD..
Amigos, alguém utiliza o notebook para programar e comprou o SSD trocando o HD normal por ele, sentiu alguma diferença? Vale a pena? Vale o investimento no SSD? Obrigado. -- _ T.·.F.·.A.·. Fellipe Henrique http://blogs.digitumsoft.com.br/fellipeh --- [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 7 x Windows 7 x 64 bits
Boa Tarde, instalei o delphi 7 num notebook que acabei de comprar, fui rodar e me fala que não consegue achar uma tal pasta ou arquivo x86; o que terei que fazer para que o Delphi funciona nesta máquina que é 64 bits grato Stainle
Re: [delphi-br] Delphi 7 x Windows 7 x 64 bits
Posso estar errado, mas até onde sei não roda o D7 em 64 Bits Adriano Santos Vendo Sony Vaio http://bit.ly/aWrKyW http://twitter.com/asrsantos http://delphitodelphi.blogspot.com 2010/5/27 stainle2003 stainle2...@yahoo.com.br Boa Tarde, instalei o delphi 7 num notebook que acabei de comprar, fui rodar e me fala que não consegue achar uma tal pasta ou arquivo x86; o que terei que fazer para que o Delphi funciona nesta máquina que é 64 bits grato Stainle -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
RES: [delphi-br] Delphi 7 x Windows 7 x 64 bits
Olha estou usando o Windows 7 64 Bits com Delphi 7 e tudo roda aqui perfeitamente. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Adriano Santos Enviada em: quinta-feira, 27 de maio de 2010 13:31 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi 7 x Windows 7 x 64 bits Posso estar errado, mas até onde sei não roda o D7 em 64 Bits Adriano Santos Vendo Sony Vaio http://bit.ly/aWrKyW http://twitter.com/asrsantos http://delphitodelphi.blogspot.com 2010/5/27 stainle2003 stainle2...@yahoo.com.br Boa Tarde, instalei o delphi 7 num notebook que acabei de comprar, fui rodar e me fala que não consegue achar uma tal pasta ou arquivo x86; o que terei que fazer para que o Delphi funciona nesta máquina que é 64 bits grato Stainle -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] Delphi 7 x Windows 7 x 64 bits
Pera ai, da a mensagem correta, uma tal pasta ou arquivo x86 ??? []s Luiz Escobar From: stainle2003 Sent: Thursday, May 27, 2010 12:34 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Delphi 7 x Windows 7 x 64 bits Boa Tarde, instalei o delphi 7 num notebook que acabei de comprar, fui rodar e me fala que não consegue achar uma tal pasta ou arquivo x86; o que terei que fazer para que o Delphi funciona nesta máquina que é 64 bits grato Stainle [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Delphi 7 x Windows 7 x 64 bits
Quando eu postei a mensagem já tinha fechado o Delphi e não me recordava exatamente da mensagem, mas o Erick Sasse me deu a resposta, valeu pela ajuda. Stainle --- Em qui, 27/5/10, Luiz Escobar esco...@megasistema.com.br escreveu: De: Luiz Escobar esco...@megasistema.com.br Assunto: Re: [delphi-br] Delphi 7 x Windows 7 x 64 bits Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 27 de Maio de 2010, 13:35 Pera ai, da a mensagem correta, uma tal pasta ou arquivo x86 ??? []s Luiz Escobar From: stainle2003 Sent: Thursday, May 27, 2010 12:34 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Delphi 7 x Windows 7 x 64 bits Boa Tarde, instalei o delphi 7 num notebook que acabei de comprar, fui rodar e me fala que não consegue achar uma tal pasta ou arquivo x86; o que terei que fazer para que o Delphi funciona nesta máquina que é 64 bits grato Stainle [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] Delphi 7 x Windows 7 x 64 bits
Consegui rodar, segui as orientações do Erick Sasse, atribuí a propriedade MODIFY - Segurança (para quem loga ao ligar o computador) na pasta Delphi7(onde foi instalado) e começou a funcionar, só estou tendo problema com o Antivirus que está entendendo o .EXE como cavalo de tróia e está apagando o executável, mas corrigindo isto acho que funcionará perfeitamente. abraços. Stainle --- Em qui, 27/5/10, Adriano Santos asrsan...@gmail.com escreveu: De: Adriano Santos asrsan...@gmail.com Assunto: Re: [delphi-br] Delphi 7 x Windows 7 x 64 bits Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 27 de Maio de 2010, 13:31 Posso estar errado, mas até onde sei não roda o D7 em 64 Bits Adriano Santos Vendo Sony Vaio http://bit.ly/aWrKyW http://twitter.com/asrsantos http://delphitodelphi.blogspot.com 2010/5/27 stainle2003 stainle2...@yahoo.com.br Boa Tarde, instalei o delphi 7 num notebook que acabei de comprar, fui rodar e me fala que não consegue achar uma tal pasta ou arquivo x86; o que terei que fazer para que o Delphi funciona nesta máquina que é 64 bits grato Stainle -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Delphi 7 x Windows 7 x 64 bits
também estou conseguindo, só estou tendo problema com o antivirus, só falta acertar isto Stainle --- Em qui, 27/5/10, Renato Spiandorello da Cunha spiandore...@gmail.com escreveu: De: Renato Spiandorello da Cunha spiandore...@gmail.com Assunto: RES: [delphi-br] Delphi 7 x Windows 7 x 64 bits Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 27 de Maio de 2010, 13:31 Olha estou usando o Windows 7 64 Bits com Delphi 7 e tudo roda aqui perfeitamente. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Adriano Santos Enviada em: quinta-feira, 27 de maio de 2010 13:31 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi 7 x Windows 7 x 64 bits Posso estar errado, mas até onde sei não roda o D7 em 64 Bits Adriano Santos Vendo Sony Vaio http://bit.ly/aWrKyW http://twitter.com/asrsantos http://delphitodelphi.blogspot.com 2010/5/27 stainle2003 stainle2...@yahoo.com.br Boa Tarde, instalei o delphi 7 num notebook que acabei de comprar, fui rodar e me fala que não consegue achar uma tal pasta ou arquivo x86; o que terei que fazer para que o Delphi funciona nesta máquina que é 64 bits grato Stainle -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Delphi 7 x Windows 7 x 64 bits
Fala para o AV ignorar a pasta do DELPHI, se tiver a opção Eu parei de usar AV á muitos anos...´da mais problemas que solução. hehehehe []s Luiz Escobar From: Nivaldo Stainle Sent: Thursday, May 27, 2010 1:54 PM To: delphi-br@yahoogrupos.com.br Subject: Re: RES: [delphi-br] Delphi 7 x Windows 7 x 64 bits também estou conseguindo, só estou tendo problema com o antivirus, só falta acertar isto Stainle --- Em qui, 27/5/10, Renato Spiandorello da Cunha spiandore...@gmail.com escreveu: De: Renato Spiandorello da Cunha spiandore...@gmail.com Assunto: RES: [delphi-br] Delphi 7 x Windows 7 x 64 bits Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 27 de Maio de 2010, 13:31 Olha estou usando o Windows 7 64 Bits com Delphi 7 e tudo roda aqui perfeitamente. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Adriano Santos Enviada em: quinta-feira, 27 de maio de 2010 13:31 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi 7 x Windows 7 x 64 bits Posso estar errado, mas até onde sei não roda o D7 em 64 Bits Adriano Santos Vendo Sony Vaio http://bit.ly/aWrKyW http://twitter.com/asrsantos http://delphitodelphi.blogspot.com 2010/5/27 stainle2003 stainle2...@yahoo.com.br Boa Tarde, instalei o delphi 7 num notebook que acabei de comprar, fui rodar e me fala que não consegue achar uma tal pasta ou arquivo x86; o que terei que fazer para que o Delphi funciona nesta máquina que é 64 bits grato Stainle -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [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] Delphi 7 x Windows 7 x 64 bits
ok, grato pela atenção. Stainle --- Em qui, 27/5/10, Luiz Escobar esco...@megasistema.com.br escreveu: De: Luiz Escobar esco...@megasistema.com.br Assunto: Re: RES: [delphi-br] Delphi 7 x Windows 7 x 64 bits Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 27 de Maio de 2010, 13:57 Fala para o AV ignorar a pasta do DELPHI, se tiver a opção Eu parei de usar AV á muitos anos...´da mais problemas que solução. hehehehe []s Luiz Escobar From: Nivaldo Stainle Sent: Thursday, May 27, 2010 1:54 PM To: delphi-br@yahoogrupos.com.br Subject: Re: RES: [delphi-br] Delphi 7 x Windows 7 x 64 bits também estou conseguindo, só estou tendo problema com o antivirus, só falta acertar isto Stainle --- Em qui, 27/5/10, Renato Spiandorello da Cunha spiandore...@gmail.com escreveu: De: Renato Spiandorello da Cunha spiandore...@gmail.com Assunto: RES: [delphi-br] Delphi 7 x Windows 7 x 64 bits Para: delphi-br@yahoogrupos.com.br Data: Quinta-feira, 27 de Maio de 2010, 13:31 Olha estou usando o Windows 7 64 Bits com Delphi 7 e tudo roda aqui perfeitamente. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Adriano Santos Enviada em: quinta-feira, 27 de maio de 2010 13:31 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi 7 x Windows 7 x 64 bits Posso estar errado, mas até onde sei não roda o D7 em 64 Bits Adriano Santos Vendo Sony Vaio http://bit.ly/aWrKyW http://twitter.com/asrsantos http://delphitodelphi.blogspot.com 2010/5/27 stainle2003 stainle2...@yahoo.com.br Boa Tarde, instalei o delphi 7 num notebook que acabei de comprar, fui rodar e me fala que não consegue achar uma tal pasta ou arquivo x86; o que terei que fazer para que o Delphi funciona nesta máquina que é 64 bits grato Stainle -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [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] NF-e + SecureBlackBox
Foi um caminho que pensei trilhar mas acabei abandonando por causa do ACBR. Em qual fase vc está? Paulo Aquino Em 13 de maio de 2010 14:02, Fellipe Henrique felli...@gmail.com escreveu: Alguém, desenvolveu algo para NF-e + a suite SecureBlackBox? Se sim, por favor, entre em contato em PVT. Preciso tirar algumas dúvidas Att -- _ T.·.F.·.A.·. Fellipe Henrique -- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] NF-e + SecureBlackBox
O meu já terminou.. :D porém usando MSXML5 e CAPICOM... não queria usar essas DLLs.. aí pensei no SecureBlackBox.. []s Em 27 de maio de 2010 14:27, Paulo Aquino pauloaquin...@gmail.comescreveu: Foi um caminho que pensei trilhar mas acabei abandonando por causa do ACBR. Em qual fase vc está? Paulo Aquino Em 13 de maio de 2010 14:02, Fellipe Henrique felli...@gmail.com escreveu: Alguém, desenvolveu algo para NF-e + a suite SecureBlackBox? Se sim, por favor, entre em contato em PVT. Preciso tirar algumas dúvidas Att -- _ T.·.F.·.A.·. Fellipe Henrique -- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- _ T.·.F.·.A.·. Fellipe Henrique http://blogs.digitumsoft.com.br/fellipeh --- [As partes desta mensagem que não continham texto foram removidas]
Re: RES: [delphi-br] Delphi 7 x Windows 7 x 64 bits
Oloko, show de bola. Podia afirmar de pé junto que não funcionaria. Vlw Adriano Santos Vendo Sony Vaio http://bit.ly/aWrKyW http://twitter.com/asrsantos http://delphitodelphi.blogspot.com 2010/5/27 Nivaldo Stainle stainle2...@yahoo.com.br ok, grato pela atenção. Stainle --- Em qui, 27/5/10, Luiz Escobar esco...@megasistema.com.brescobar%40megasistema.com.br escreveu: De: Luiz Escobar esco...@megasistema.com.brescobar%40megasistema.com.br Assunto: Re: RES: [delphi-br] Delphi 7 x Windows 7 x 64 bits Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Quinta-feira, 27 de Maio de 2010, 13:57 Fala para o AV ignorar a pasta do DELPHI, se tiver a opção Eu parei de usar AV á muitos anos...´da mais problemas que solução. hehehehe []s Luiz Escobar From: Nivaldo Stainle Sent: Thursday, May 27, 2010 1:54 PM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: RES: [delphi-br] Delphi 7 x Windows 7 x 64 bits também estou conseguindo, só estou tendo problema com o antivirus, só falta acertar isto Stainle --- Em qui, 27/5/10, Renato Spiandorello da Cunha spiandore...@gmail.comSpiandorello%40gmail.com escreveu: De: Renato Spiandorello da Cunha spiandore...@gmail.comSpiandorello%40gmail.com Assunto: RES: [delphi-br] Delphi 7 x Windows 7 x 64 bits Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Quinta-feira, 27 de Maio de 2010, 13:31 Olha estou usando o Windows 7 64 Bits com Delphi 7 e tudo roda aqui perfeitamente. -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 Adriano Santos Enviada em: quinta-feira, 27 de maio de 2010 13:31 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi 7 x Windows 7 x 64 bits Posso estar errado, mas até onde sei não roda o D7 em 64 Bits Adriano Santos Vendo Sony Vaio http://bit.ly/aWrKyW http://twitter.com/asrsantos http://delphitodelphi.blogspot.com 2010/5/27 stainle2003 stainle2...@yahoo.com.brstainle2003%40yahoo.com.br Boa Tarde, instalei o delphi 7 num notebook que acabei de comprar, fui rodar e me fala que não consegue achar uma tal pasta ou arquivo x86; o que terei que fazer para que o Delphi funciona nesta máquina que é 64 bits grato Stainle -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [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] -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Delphi 7 x Windows 7 x 64 bits
Usando alguma atualização? Instalou na boa? Em 27 de maio de 2010 13:31, Renato Spiandorello da Cunha spiandore...@gmail.com escreveu: Olha estou usando o Windows 7 64 Bits com Delphi 7 e tudo roda aqui perfeitamente. -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 Adriano Santos Enviada em: quinta-feira, 27 de maio de 2010 13:31 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi 7 x Windows 7 x 64 bits Posso estar errado, mas até onde sei não roda o D7 em 64 Bits Adriano Santos Vendo Sony Vaio http://bit.ly/aWrKyW http://twitter.com/asrsantos http://delphitodelphi.blogspot.com 2010/5/27 stainle2003 stainle2...@yahoo.com.brstainle2003%40yahoo.com.br Boa Tarde, instalei o delphi 7 num notebook que acabei de comprar, fui rodar e me fala que não consegue achar uma tal pasta ou arquivo x86; o que terei que fazer para que o Delphi funciona nesta máquina que é 64 bits grato Stainle -- Adriano Santos http://twitter.com/asrsantos www.delphitodelphi.blogspot.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM -- Att, Domingos J. M. de Souza GTalk / MSN: domingosp...@gmail.com [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Delphi 7 + Odontograma = Socorro
Bom dia amigos. Estou praticamente desesperado K .. Alguem ai ja montou um Odontograma em Delphi ? estou usando a versão 7 e banco Postgres, mas o trem é dificil demais.. fiquei muito tempo sem programar e agora ta dificil. Se alguem puder me dar uma ideia, agradeço Flw Richardson Marcelo Freddo. msn: freddodp...@hotmail.com Skype: r.freddo Rondonópolis/MT [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Nome do autor de um arquivo
Olá Pessoal!
Murilo, obrigado pela ajuda!
Respondendo à pergunta do Adriano, ainda não funcionou...
Não sei se esse código foi feito numa versão mais antiga do delphi (estou
usando Delphi 2007), mas só preenche o ListBox com o Size do aqruivo.
Vou tentar fazer algumas modificações na rotina, para ver se obtenho algum
resultado.
Abraços,
Edelson.
Em 27 de maio de 2010 10:06, Adriano Santos asrsan...@gmail.com escreveu:
Edelson,
Funcionou a dica do Murilo? Muito legal hein Murilo?
Adriano Santos
Vendo Sony Vaio http://bit.ly/aWrKyW
http://twitter.com/asrsantos
http://delphitodelphi.blogspot.com
Em Thu, May 27, 2010 at 8:10 AM, Murilo Cunha mcscu...@yahoo.com.br
escreveu:
Edelson,
Tente o seguinte:
~
{
Usage:
VersionInformation(ListBox1)
}
{Pads or truncates a String and
Justifies Left if StrJustify=True}
Function StringPad(
InputStr,
FillChar: String;
StrLen: Integer;
StrJustify: Boolean): String;
Var
TempFill: String;
Counter : Integer;
Begin
If Not (Length(InputStr) = StrLen) Then
Begin
If Length(InputStr) StrLen Then
Begin
InputStr := Copy(InputStr,1,StrLen) ;
End
Else
Begin
TempFill := '';
For Counter := 1 To StrLen-Length(InputStr) Do
Begin
TempFill := TempFill + FillChar;
End;
If StrJustify Then
Begin
{Left Justified}
InputStr := InputStr + TempFill;
End
Else
Begin
{Right Justified}
InputStr := TempFill + InputStr ;
End;
End;
End;
Result := InputStr;
End;
Function VersionInformation(
ListBox : TListBox): Boolean;
const
InfoNum = 11;
InfoStr : array [1..InfoNum] of String =
('CompanyName', 'FileDescription', 'FileVersion',
'InternalName', 'LegalCopyright', 'LegalTradeMarks',
'OriginalFilename', 'ProductName', 'ProductVersion',
'Comments', 'Author') ;
LabelStr : array [1..InfoNum] of String =
('Company Name', 'Description', 'File Version',
'Internal Name', 'Copyright', 'TradeMarks',
'Original File Name', 'Product Name',
'Product Version', 'Comments', 'Author') ;
var
S : String;
n, Len, j : Integer;
Buf : PChar;
Value : PChar;
begin
Try
S := Application.ExeName;
ListBox.Items.Clear;
ListBox.Sorted := True;
ListBox.Font.Name := 'Courier New';
n := GetFileVersionInfoSize(PChar(S),n) ;
If n 0 Then Begin
Buf := AllocMem(n) ;
ListBox.Items.Add
(StringPad('Size',' ',20,True)+' = '+IntToStr(n)) ;
GetFileVersionInfo(PChar(S),0,n,Buf) ;
For j:=1 To InfoNum Do Begin
If VerQueryValue(Buf,PChar('StringFileInfo\040904E4\'+
InfoStr[j]),Pointer(Value),Len) Then
Begin
Value := PChar(Trim(Value)) ;
If Length(Value) 0 Then
Begin
ListBox.Items.Add
(StringPad(labelStr,' ',20,True)+' = '+Value) ;
End;
End;
End;
FreeMem(Buf,n) ;
End
Else Begin
ListBox.Items.Add
('No FileVersionInfo found') ;
End;
Result := True;
Except
Result := False;
End;
End;
~
Obrigado.
MuriloCunha
On 26/05/2010 14:43, Edelson Regis de Lima wrote:
Boa tarde pessoal!
Já dei uma pesquisada nas mensagens antigas do forum, mas não
encontrei...
Alguém sabe se dá para criar um arquivo, e no momento da sua criação
informar o nome do Autor? (Aquela propriedade que o windows mostra
quando
vemos as propriedades do arquivo)
E também como extrair de um arquivo o nome do Autor.
A data e hora de criação eu já consegui extrair da seguinte maneira:
FileDateToDateTime(FileAge('Nome_Do_Arquivo'))
Mas preciso extrair também o nome do Autor.
Obrigado!
Edelson.
[As partes desta mensagem que não continham texto foram removidas]
--
Adriano Santos
http://twitter.com/asrsantos
www.delphitodelphi.blogspot.com
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] NF-e + SecureBlackBox
Existe um aplicativo que gera NFe através de arquivo texto. O teu ERP gera um arquivo texto e esse aplicativo converte o arquivo texto para XML O aplicativo pode ser visto aqui: http://www.tecnospeed.com.br/index2.php?pg=produtosid=48 -- Charlestown Em 13 de maio de 2010 14:02, Fellipe Henrique felli...@gmail.com escreveu: Alguém, desenvolveu algo para NF-e + a suite SecureBlackBox? Se sim, por favor, entre em contato em PVT. Preciso tirar algumas dúvidas Att -- _ T.·.F.·.A.·. Fellipe Henrique -- CAMPANHA POR UMA INTERNET SEGURA Proteja o endereço de seus amigos como estou protegendo o seu. Ao enviar mensagens use SEMPRE o Cco (cópia oculta). Assim TODOS os endereços estarão preservados. E, claro, antes de encaminhar um e-mail, delete todas as informações que apareçam no corpo do e-mail e que possam ser usadas por hackers. ### [As partes desta mensagem que não continham texto foram removidas] -- Charlestown [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] [OFF-TOPIC] NFe: Como conseguiram esta nfe ???
Essa nota foi fácil de descobrir, agora quem pode explicar essa outra com totais diferentes? Seria algo relativo ao CFOP dos produtos? A chave abaixo foi postada em outro grupo de discusão. 431004087698060001505500100838008388 -- Charlestown Em 19 de maio de 2010 16:30, Albuquerque sys.e...@yahoo.com escreveu: Estou com um DANFE em mãos. Pertence a um fornecedor de um cliente meu. Meu cliente permitiu a publicação da chave de acesso da nfe (está no final deste) para esclarecer a seguinte dúvida: -A soma dos produtos não confere com o valor total da nota. Por quê ? -Simples: a nfe tem desconto ! Porém -No DANFE não tem desconto algum impresso, seja nos totais (Valor Desconto) ou por produto. Como ? -Desconfiei que o desconto foi enviado via XML, porém o sistema do fornecedor não imprime o desconto no DANFE dele. Só que -Acessando a nfe através de sua chave nota-se que não tem desconto algum enviado/citado/impresso !!! Portanto pergunto: O sistema da Receita não faz a conferência da soma dos produtos com o valor total da nota ? (se fizesse jamais permitiria que a nfe aqui em questão fosse liberada) Pra quem quiser acessar a nfe para conferir, segue a chave (com autorização EXPRESSA do meu cliente) 3510057285550500138255055838436208280945 Desde já agradeço a atenção dispensada. Att. Albuquerque [As partes desta mensagem que não continham texto foram removidas] -- Charlestown [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ClientDataSet - Delete em registro com referência d e FK
Boa tarde pessoal. Usando DBX e Firebird, quero que ao tentar deletar um registro, caso retornado um erro por relacionamento de chave estrangeira, alterar o valor do campo VISIVEL para 'F', sem incrementar o retorno do ApplyUpdates. Tentei verificar a mensagem da exceção do OnReconcileError e repassar mas não deu. Algém pode sugerir uma solução? [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Tem algum segredo pra fazer o DBExpress funcionar no Win7 + D7 ?
Alguém da lista utiliza DBexpress no Windows 7 (32bits) + Delphi7 + SQLServer2000 ? Na compilação com DBExpress não dá erro algum, na na execução qualquer transação que eu faça é retornado o erro list index out of bounds. Pra testar peguei uma unit do projeto e troquei os componentes dela para ADO e...funcionou ! DETALHE IMPORTANTE : Não alterei NADA no projeto. Apenas abri, compilei (ok) no Win7 e rodei a aplicação. Está exatamente do mesmo jeito que estava (e rodava !) no XP. Por acaso tem algum segredo pra fazer o DBExpress funcionar no Win7 + D7 ? Desde já agradeço a atenção dispensada. Att. Albuquerque [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] ERRO: Zeos online
Ok Eduardo deu certinho!!! Valeu mesmo, muito obrigado!!! Tbm fiz pelo o zeos 7 mas mudando a opção e tabm funcionou a opção é cachedupdates do zquery para true e funfo!!! -- From: Eduardo Silva dos Santos eduardo@gmail.com Sent: Wednesday, May 26, 2010 8:47 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] ERRO: Zeos online Olá Hudson, O Mydac tem um recurso que o faz reconectar de forma silenciona caso o erro ocorra, faça o seguinte: Configure o TMyConnection em Options.LocalFailOver = true no Evento OnConnectionLost coloque o código: *** RetryMode := rmReconnectExecute; *** adicione a Unit MemData ao form onde está o connection. Com isso você ativou o recurso localFailOver.. e sempre que houver perda de conexão o mydac vai reconectar e executar as queries pendentes. É interessante você procurar no Help do MyDAC pela tecnologia DisconnectedModel.. é bem interessante. Lembrando que esses recursos estão presente na versão 5 do Mydac. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... Em 25 de maio de 2010 22:22, Hudson BHTE hudson_tor...@yahoo.com.brescreveu: Olá Eduardo. Tentei fazer a conexão com o mydac, ai me apresentou outro erro lost connection to mysql server during query mas os dados são alterados -- From: Eduardo Silva dos Santos eduardo@gmail.comeduardo.drd%40gmail.com Sent: Monday, May 24, 2010 3:35 PM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] ERRO: Zeos online O MySQL é bem exigente com a conexão, qualquer anormalidade no pacote ele derruba a conexão. Você deve usar uma versão mais nova do Zeos que tem a capacidade de reconectar quando isso ocorra. Caso não consiga com Zeos, tente o Mydac da DevArt, www.devart.com/mydac Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... Em 24 de maio de 2010 06:13, Hudson BHTE hudson_tor...@yahoo.com.br hudson_torion%40yahoo.com.brescreveu: Ola a todos. gente estou com um probleminha ao tentar conectar a um DB MySQL online em uma hospedagem pelo zeos 6.6.1. Consigo fazer a conexao, mas apos 5 segundos qualquer tarefa da um erro SQL Error: MySQL server has gone away. Alguem sabe resolver isso... Ha ja tentei usar o Munitor!!! grato [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Re: [delphi-br] Tem algum segredo pra fazer o DBExpress funcionar no Win7 + D7 ?
não tem algum evento acessando algum item de alguma lista? tentou remover o componente e adicionar de novo? o/ Em 27/05/2010 17:52, Albuquerque escreveu: Alguém da lista utiliza DBexpress no Windows 7 (32bits) + Delphi7 + SQLServer2000 ? Na compilação com DBExpress não dá erro algum, na na execução qualquer transação que eu faça é retornado o erro “list index out of bounds”. Pra testar peguei uma unit do projeto e troquei os componentes dela para ADO e...funcionou ! DETALHE IMPORTANTE : Não alterei NADA no projeto. Apenas abri, compilei (ok) no Win7 e rodei a aplicação. Está exatamente do mesmo jeito que estava (e rodava !) no XP. Por acaso tem algum segredo pra fazer o DBExpress funcionar no Win7 + D7 ? Desde já agradeço a atenção dispensada. Att. Albuquerque -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
