Re: [Bulk] Re: [delphi-br] NF-e Status com ACBrNFe

2009-08-06 Por tôpico Samuel M. Basso 
Realmente não sei o que esta acontecendo, tem mais gente que tem o mesmo
problema, eu ainda nao descobri. Tenho o ACBrNFeMonitor na verssão 0.5.0a
PCN, e não tem jeito, uma coisa que vi que nele foi tirado é a opcao de
configurar proxy, mas como fiz testes sem proxy em casa esse nao deve ser o
problema. Certificado ta ok conferi com o Serasa, instalei tambem cadeia de
certificados do sefaz RS (no meu caso) e do Serasa como alguns me falaram
que precisava e mesmo assim o problema perciste.

Qdo descobri posto aqui a solução. Obrigado.

2009/8/6 Nicolas 

>
>
> Samuel,
>
> como eu relatei, comigo estava acontecendo a mesma coisa,
>
> hoje instalei o certificado A1 de um cliente e configurei no monitor o
> numero de série dele e funcionou corretamente,
> conectou e testou positivamente.
>
>
> []s
>
> alexandre
>
> - Original Message -
> From: Samuel M. Basso
> To: delphi-br@yahoogrupos.com.br 
> Sent: Wednesday, August 05, 2009 8:09 AM
> Subject: Re: [delphi-br] NF-e Status com ACBrNFe
>
> Ok obrigado, é que estou tentando faz uns dois dias, e ja começo a
> desconfiar que existe um outro problema , mas vou aguardar entao mais um
> pouco.
>
> 2009/8/5 Dimas Bolognani 
> 
> >
>
> >
> >
> > Bom dia,
> >
> > Isto apenas quer dizer que o serviço do estado que vc verificou não esta
> > funcionado no momento. Vai tentando que já vc recebe um OK.
> >
> > Atte.
> >
> > Dimas
> >
> > De: delphi-br@yahoogrupos.com.br  40yahoogrupos.com.br> [mailto:
> > delphi-br@yahoogrupos.com.br  40yahoogrupos.com.br>] Em
> > nome de Samuel M. Basso
> > Enviada em: terça-feira, 4 de agosto de 2009 13:36
> > Para: delphi-br@yahoogrupos.com.br 
> >  40yahoogrupos.com.br>
> > Assunto: [delphi-br] NF-e Status com ACBrNFe
> >
> >
> > Olá pessoal!
> >
> > Estou testando o envio de nota fiscal eletronica com o componente
> > ACBrMonitorNFe e estou tendo um problema ao verificar o status ele me
> > mostra
> > o seguinte erro:
> >
> > WebService Consulta Status serviço:
> > - Inativo ou Inoperante tente novamente.
> > - A autoridade de certificação não é válida ou está incorreta - URL:
> >
> >
> https://homologacao.nfe.sefaz.rs.gov.br/ws/nfestatusservico/NfeStatusServico
> > .asmx-
> > SOAPAction:
> >
> http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico/nfeStatusServicoNF
> >
> > Verifiquei em diversos sites e me falaram sobre a cadeia de certificados
> > etc, já fiz tudo isso e ainda persiste o erro. Se alguem poder me ajudar
> > agradeço.
> >
> > --
> > Atenciosamente,
> >
> > Samuel M. Basso
> > Tel: (54) 3463-9114
> > Cel: (54) 8135-3723
> > E-mail/MSN: samuelba...@gmail.com  40gmail.com>  > samuelbasso%40gmail.com >
> > Web site: www.samuelbasso.com
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> > Verificado por AVG - www.avgbrasil.com.br
> > Versão: 8.5.375 / Banco de dados de vírus: 270.13.42/2279 - Data de
> > Lançamento: 08/05/09 05:57:00
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
> --
> Atenciosamente,
>
> Samuel M. Basso
> Tel: (54) 3463-9114
> Cel: (54) 8135-3723
> E-mail/MSN: samuelba...@gmail.com 
> Web site: www.samuelbasso.com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
Atenciosamente,

Samuel M. Basso
Tel: (54) 3463-9114
Cel: (54) 8135-3723
E-mail/MSN: samuelba...@gmail.com
Web site: www.samuelbasso.com


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] DbCtrlGrid

2009-08-06 Por tôpico Thales (Shubacca) - Tebo Software 
Tem duas propriedades

AllowInsert,
AllowDelete,

seta elas para false

espero ter ajudado

falow

2009/8/6 Arrobba Sistemas 

>
>
> Boa noite, como faço para o DbCtrlGrid não permitir Incluir/Apagar
>
> Antonio C. de M. Pires
>
> Arrobba Sistemas
>
>  >
> desenvolvime...@arrobbasistemas.com.br
>
> Telefones: (42) 8402-8549
>
> (42) 9105-5120
>
> [As partes desta mensagem que não continham texto foram removidas]
>
> 
>



-- 
Thales Eduardo Barros de Oliveira
Desenvolvedor Delphi / Firebird / Java
Emails:
tebosoftw...@gmail.com (GoogleTalk)
thales_...@hotmail.com (MSN)
Blog:
http://tebosoftware.blogspot.com/
Twitter:
http://twitter.com/tebosoftware

"Tente ser uma pessoa de valor, não de sucesso"
Albert Einstein


[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] DbCtrlGrid

2009-08-06 Por tôpico Arrobba Sistemas 
Boa noite, como faço para o DbCtrlGrid não permitir Incluir/Apagar

 

Antonio C. de M. Pires

Arrobba Sistemas

 
desenvolvime...@arrobbasistemas.com.br

Telefones: (42) 8402-8549

  (42) 9105-5120

 



[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Descobrir a versão do MS Office qu e está instalada na máquina

2009-08-06 Por tôpico Rodinei 
Eu entendi que ele queria saber qual a versão para poder localizar o diretório 
e depois executar a partir deste.

rsrs...

Rodinei Amorim 
Programador Delphi
(11) 8208-9503
rodinei_amo...@hotmail.com rodinei.amo...@terra.com.br



From: Walter Chagas (Bol) 
Sent: Wednesday, August 05, 2009 10:40 AM
To: delphi-br@yahoogrupos.com.br 
Subject: Re: [delphi-br] Descobrir a versão do MS Office que está instalada na 
máquina


  Ele quer saber qual a versão do Excel está instalado no computador e não como 
instanciá-lo, via código, não??

[]s


Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://www.geocities.com/SiliconValley/Bay/1058
http://delphitocorporerm.blogspot.com/
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr

- Original Message - 
From: Rodinei 
To: delphi-br@yahoogrupos.com.br 
Sent: Wednesday, August 05, 2009 8:31 AM
Subject: Re: [delphi-br] Descobrir a versão do MS Office que está instalada na 
máquina

var
Excel : Variant;
Begin
Excel:=CreateOleObject('Excel.Application');
Excel.Workbooks.Add(1);
Excel.Visible := True;
End;

Não esqueça de colocar na "uses" a unit COMBOJ. Espero ter ajuda, abraços. 
Detalhe, há muito material na internet a respeito disto.

Rodinei Amorim 
Programador Delphi
(11) 8208-9503
rodinei_amo...@hotmail.com rodinei.amo...@terra.com.br

From: Carlos 
Sent: Wednesday, August 05, 2009 8:16 AM
To: delphi-br@yahoogrupos.com.br 
Subject: [delphi-br] Descobrir a versão do MS Office que está instalada na 
máquina

Senhores, bom dia!

Solicito a quem possa me auxiliar, como que faço para saber qual a versão do 
Office da MS que está instalada. Para descobrir a versão do Windows jé 
consegui, mas o Office está mais complicado.
Pra que que eu quero esta informação?(É bom explicar né, quem sabe alguém tem 
uma solução mais prática...)
Estou desenvolvendo uma aplicação, e coloquei uns atalhos para chamar 
aplicativos do office(Excel, Word, Access e etc..)e dependendo da versão o nome 
da pasta onde está o executável muda, então preciso saber qual versão, mas se 
alguém souber uma outra forma, não fique acanhado de me informar e me mostrar 
minha ingenuidade no assunto...ficarei imensamente grato.

Agradeço antecipadamente.

Fraterno abraço a todos,

Carlos

[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 Status com ACBrNFe

2009-08-06 Por tôpico Nicolas 
Samuel,

como eu relatei, comigo estava acontecendo a mesma coisa,

hoje instalei o certificado A1 de um cliente e configurei no monitor o numero 
de série dele e funcionou corretamente,
conectou e testou positivamente.

[]s

alexandre

  - Original Message - 
  From: Samuel M. Basso 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, August 05, 2009 8:09 AM
  Subject: Re: [delphi-br] NF-e Status com ACBrNFe


Ok obrigado, é que estou tentando faz uns dois dias, e ja começo a
  desconfiar que existe um outro problema , mas vou aguardar entao mais um
  pouco.

  2009/8/5 Dimas Bolognani 

  >
  >
  > Bom dia,
  >
  > Isto apenas quer dizer que o serviço do estado que vc verificou não esta
  > funcionado no momento. Vai tentando que já vc recebe um OK.
  >
  > Atte.
  >
  > Dimas
  >
  > De: delphi-br@yahoogrupos.com.br  [mailto:
  > delphi-br@yahoogrupos.com.br ] Em
  > nome de Samuel M. Basso
  > Enviada em: terça-feira, 4 de agosto de 2009 13:36
  > Para: delphi-br@yahoogrupos.com.br 
  > Assunto: [delphi-br] NF-e Status com ACBrNFe
  >
  >
  > Olá pessoal!
  >
  > Estou testando o envio de nota fiscal eletronica com o componente
  > ACBrMonitorNFe e estou tendo um problema ao verificar o status ele me
  > mostra
  > o seguinte erro:
  >
  > WebService Consulta Status serviço:
  > - Inativo ou Inoperante tente novamente.
  > - A autoridade de certificação não é válida ou está incorreta - URL:
  >
  > https://homologacao.nfe.sefaz.rs.gov.br/ws/nfestatusservico/NfeStatusServico
  > .asmx-
  > SOAPAction:
  > http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico/nfeStatusServicoNF
  >
  > Verifiquei em diversos sites e me falaram sobre a cadeia de certificados
  > etc, já fiz tudo isso e ainda persiste o erro. Se alguem poder me ajudar
  > agradeço.
  >
  > --
  > Atenciosamente,
  >
  > Samuel M. Basso
  > Tel: (54) 3463-9114
  > Cel: (54) 8135-3723
  > E-mail/MSN: samuelba...@gmail.com   samuelbasso%40gmail.com >
  > Web site: www.samuelbasso.com
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > Verificado por AVG - www.avgbrasil.com.br
  > Versão: 8.5.375 / Banco de dados de vírus: 270.13.42/2279 - Data de
  > Lançamento: 08/05/09 05:57:00
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  >

  -- 
  Atenciosamente,

  Samuel M. Basso
  Tel: (54) 3463-9114
  Cel: (54) 8135-3723
  E-mail/MSN: samuelba...@gmail.com
  Web site: www.samuelbasso.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] [MAF] Leitura arquivo texto

2009-08-06 Por tôpico Marcos Abreu Ferreira 

descobri o erro depois que tinha mandado o email. Tinha criado um TMenuItem com 
o nome 'Reset' e ai o Delphi não entendia direito. Isso é o que dá criar 
variaveis com nomes reservados, no fim do dia, onde você já está cansado, a 
cabeça já não raciocina direito.
 
 
Att,

Marcos A. Ferreira
São Paulo - BrasilMSN: maferre...@hotmail.itgoogle Talk: maf.decisiva
Skype: m_abreuferreira

Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você 
não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode 
usar, copiar, ou divulgar as informações nela contidas ou tomar qualquer ação 
baseada nestas informações. Se você recebeu esta mensagem por engano, por 
favor, avise imediatamente o remetente, respondendo o email e em seguida, 
apague-o.
Agradecemos sua cooperação.

This message may contain confidential and/or privileged information. If you are 
not the addressee or authorized to receive this for the addressee, you must not 
use, copy, disclose or take any action based on this message or any information 
herein. If you have received this message in error, please, advise the sender 
immediately by reply e-mail and delete this message.
Thank you for your cooperation.
 
Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO 
AMBIENTE.
ENVIRONMENT commitment and responsibility, think about Before Printing. 



To: delphi-br@yahoogrupos.com.br
From: embarcadel...@yahoo.com.br
Date: Thu, 6 Aug 2009 11:00:11 -0300
Subject: Re: [delphi-br] [MAF] Leitura arquivo texto

  



Não vi nenhum erro no código, a linha 471 diz o que? o que tem nessa linha?

Marcos Abreu Ferreira escreveu:
> 
>
> Pessoal,
>
> fiz uma função básica para leitura de arquivo texto e de repente não 
> consigo mais compilar o programa. Alguem ja passou por isso? Segue o 
> código fonte
>
> if FileExists(fileName) then
> begin
> AssignFile(F, fileName);
> Reset(F);
> while not eof(F) do
> begin
> ReadLn(F, fileLine);
> ...
> end;
> CloseFile(F);
> end;
>
> recebo a seguinte mensagem
>
> Build
> [Error] F2Server.pas(471): Missing operator or semicolon
> [Fatal Error] F2ServerApp.dpr(9): Could not compile used unit 
> 'F2Server.pas'
>
> []s
>
> Marcos

. 







_
Conheça os novos produtos Windows Live! Clique aqui.
http://www.windowslive.com.br

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Nota fiscal eletronica ??

2009-08-06 Por tôpico Eduardo 
Pesquise sobre NFe.
Mas vou adiantar algo, prepare o coracao rsrsrsrs !!!

Parece que o componente ACBR tem algo para isso, desenvolvi uma solucao 
para uma empresa em C#, so nao mando o codigo por que foi desenvolvido 
apenas para a empresa.


Eduardo

Heraldo Andrade escreveu:
>  
>
> Pessoal, tenho um programa instalado que o clientye agora vai precisar 
> emitir nota fiscal eletronica, alguem tem alguma ajuda para me 
> fornecer de onde consigo material para o desenvolvimento ??
>
> __
> Veja quais são os assuntos do momento no Yahoo! +Buscados
> http://br.maisbuscados.yahoo.com 
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>

Re: [delphi-br] Troca/Devolução de Produtos - Prec iso de Opiniões

2009-08-06 Por tôpico Leandro 
eu trabalho com um modulo de devolução onde gera uma entrada de mercadoria
com nota fiscal (devolucao) da propria empresa (eh necessario para contador
dar baixa no imposto), onde gera um credito para o cliente (somente
cadastrado), ou devolucao do dinheiro (lançando no caixa).. eh melhor fazer
assim doque mexer no contas a receber.. ai se o cliente quer trocar ele faz
outra compra e usa-se o credito dele para abater.. em caso de cartao ai vai
de cada empresa se devolve em dinheiro ou nao, colocando como
parametrizacao, o mesmo com comissao se a empresa deseja abater joga um
lançamento de desconto de devolucao na conta do funcionario..

espero ter ajudado..

2009/8/6 Marcelo - CH Sistemas 

>
>
> Meu amigo tive esse mesmo problema e pesquisei muito sobre isto antes de
> desenvolver e verifiquei que legalmente isso não é possível fazer para que
> a
> troca seja efetivada o cliente tem que emitir uma nota contra a empresa se
> for PJ e se for PF a empresa que está recebendo a mercadoria tem que emitir
> uma nota de devolução com os dados do cliente que efetivou a compra mas com
> o formulário da própria empresa, e as contas a receber e caixa dou uma
> mensagem dizendo que terá que ser ajustada manualmente porque
> sistematicamente fica muito difícil fazer isso e esse caso deve ser uma
> exceção e não a regra.
>
> Att.
>
> Marcelo Mendes de Oliveira
>
> Analista de Sistemas
>
> -Mensagem original-
> De: delphi-br@yahoogrupos.com.br  [mailto:
> delphi-br@yahoogrupos.com.br ] Em
> nome de valdirdill
> Enviada em: quinta-feira, 6 de agosto de 2009 09:28
> Para: delphi-br@yahoogrupos.com.br 
> Assunto: [delphi-br] Troca/Devolução de Produtos - Preciso de Opiniões
>
>
> Olá,
>
> Gostaria da opinião dos colegas que desenvolvam software de gestão e que
> nele tenha opção de alteração e/ou opção de devolução/troca de produtos no
> módulo de vendas (alguns preferem chamar de pedido. Eu acho melhor vendas).
>
>
> Muito bem, a questão é a seguinte: ao se gravar uma venda, no meu entender,
> um sistema deve registrar a saída dos produtos do estoque, gerar contas a
> receber (valor à prazo), gerar entrada no caixa (valor à vista) e,
> dependendo do caso, gerar comissão do vendedor.
> No meu sistema permito apenas que o usuário cancele toda a venda. Aí o
> sistema anula tudo o que gerou, inclusive exclui alguma conta a receber que
> já tenha sido recebida. Ficará no sistema apenas a venda registrada como
> cancelada e somente para consultas.
> O problema nesse caso é óbvio, ou seja, numa venda onde há 10 itens, por
> exemplo, e o cliente desejar devolver apenas um - o que não é raro ocorrer
> -
> geraria um enorme retrabalho de cancelar a venda e refazê-la toda.
> Eu poderia criar um módulo de devolução/troca de produtos, onde ficaria
> registrado que determinado item de determinada venda foi devolvido e gerar
> o
> retorno do produto ao estoque. Até aqui tudo muito fácil. A minha dúvida é
> em relação ao financeiro. Como vocês trabalham essa questão? No caso da
> venda hipotética dos 10 itens, a venda total (soma dos itens) era de
> 150,00,
> mas teve um desconto de 5% e o total final ficou em 142,50. Desse valor,
> 30,00 foi pago à vista (creditado no caixa) e 112,50, dividido em 3
> parcelas
> a receber. Além disso, o sistema gerou uma comissão a pagar para o vendedor
> de R$ 2,00. No dia (40 dias após) em que o cliente veio fazer a
> devolução/troca, ele já tinha pago uma das parcelas e o vendedor já tinha
> recebido sua comissão.
> Aí pergunto de novo: como vocês acertam esse financeiro? Alteram os valores
> das contas pendentes? Calculam proporcionalmente o valor daquele produto
> para gerar outro financeiro?
>
> Obs.: Não precisa detalhar todo o módulo de devolução/troca. Qualquer dica
> que puder me repassar, ajuda.
>
> Obrigado.
>
> Valir Dill
>
> __ Informação do ESET Smart Security, versão da vacina 4311
> (20090806) __
>
> A mensagem foi verificada pelo ESET Smart Security.
>
> http://www.eset.com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
Leandro, MuTukA


[As partes desta mensagem que não continham texto foram removidas]

RES: [delphi-br] Troca/Devolução de Produtos - Pre ciso de Opiniões

2009-08-06 Por tôpico Marcelo - CH Sistemas 
Meu amigo tive esse mesmo problema e pesquisei muito sobre isto antes de
desenvolver e verifiquei que legalmente isso não é possível fazer para que a
troca seja efetivada o cliente tem que emitir uma nota contra a empresa se
for PJ e se for PF a empresa que está recebendo a mercadoria tem que emitir
uma nota de devolução com os dados do cliente que efetivou a compra mas com
o formulário da própria empresa, e as contas a receber e caixa dou uma
mensagem dizendo que terá que ser ajustada manualmente porque
sistematicamente fica muito difícil fazer isso e esse caso deve ser uma
exceção e não a regra.

 

Att.

Marcelo Mendes de Oliveira

Analista de Sistemas

 

-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de valdirdill
Enviada em: quinta-feira, 6 de agosto de 2009 09:28
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Troca/Devolução de Produtos - Preciso de Opiniões

 

  

Olá,

Gostaria da opinião dos colegas que desenvolvam software de gestão e que
nele tenha opção de alteração e/ou opção de devolução/troca de produtos no
módulo de vendas (alguns preferem chamar de pedido. Eu acho melhor vendas). 

Muito bem, a questão é a seguinte: ao se gravar uma venda, no meu entender,
um sistema deve registrar a saída dos produtos do estoque, gerar contas a
receber (valor à prazo), gerar entrada no caixa (valor à vista) e,
dependendo do caso, gerar comissão do vendedor.
No meu sistema permito apenas que o usuário cancele toda a venda. Aí o
sistema anula tudo o que gerou, inclusive exclui alguma conta a receber que
já tenha sido recebida. Ficará no sistema apenas a venda registrada como
cancelada e somente para consultas.
O problema nesse caso é óbvio, ou seja, numa venda onde há 10 itens, por
exemplo, e o cliente desejar devolver apenas um - o que não é raro ocorrer -
geraria um enorme retrabalho de cancelar a venda e refazê-la toda.
Eu poderia criar um módulo de devolução/troca de produtos, onde ficaria
registrado que determinado item de determinada venda foi devolvido e gerar o
retorno do produto ao estoque. Até aqui tudo muito fácil. A minha dúvida é
em relação ao financeiro. Como vocês trabalham essa questão? No caso da
venda hipotética dos 10 itens, a venda total (soma dos itens) era de 150,00,
mas teve um desconto de 5% e o total final ficou em 142,50. Desse valor,
30,00 foi pago à vista (creditado no caixa) e 112,50, dividido em 3 parcelas
a receber. Além disso, o sistema gerou uma comissão a pagar para o vendedor
de R$ 2,00. No dia (40 dias após) em que o cliente veio fazer a
devolução/troca, ele já tinha pago uma das parcelas e o vendedor já tinha
recebido sua comissão.
Aí pergunto de novo: como vocês acertam esse financeiro? Alteram os valores
das contas pendentes? Calculam proporcionalmente o valor daquele produto
para gerar outro financeiro? 

Obs.: Não precisa detalhar todo o módulo de devolução/troca. Qualquer dica
que puder me repassar, ajuda.

Obrigado.

Valir Dill





__ Informação do ESET Smart Security, versão da vacina 4311
(20090806) __

A mensagem foi verificada pelo ESET Smart Security.

http://www.eset.com



[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] [MAF] Leitura arquivo texto

2009-08-06 Por tôpico EmbarcaDelphi 
Não vi nenhum erro no código, a linha 471 diz o que? o que tem nessa linha?

Marcos Abreu Ferreira escreveu:
>  
>
> Pessoal,
>
> fiz uma função básica para leitura de arquivo texto e de repente não 
> consigo mais compilar o programa. Alguem ja passou por isso? Segue o 
> código fonte
>
> if FileExists(fileName) then
> begin
> AssignFile(F, fileName);
> Reset(F);
> while not eof(F) do
> begin
> ReadLn(F, fileLine);
> ...
> end;
> CloseFile(F);
> end;
>
> recebo a seguinte mensagem
>
> Build
> [Error] F2Server.pas(471): Missing operator or semicolon
> [Fatal Error] F2ServerApp.dpr(9): Could not compile used unit 
> 'F2Server.pas'
>
> []s
>
> Marcos
>
> .
>
>

RES: [delphi-br] NF-e / ACBrNFe

2009-08-06 Por tôpico Rubem Rocha 
Sem chance!

Sds.

 

De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de leoj...@yahoo.com.br
Enviada em: quinta-feira, 6 de agosto de 2009 04:37
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] NF-e / ACBrNFe

Bom dia pessoal.

Na empresa onde trabalho, já temos um certificado A3
que fica conectado com a máquina que faz o envio
da NFe através do programa disponibilizado pela receita.

Como estou tentando implementar o envio via ACBrNFe
e não tenho outro certificado A3, gostaria de saber se
existe alguma forma de " simular " o certificado em outra
máquina apenas para testar o envio?

Fico grato a quem puder me esclarecer.

Abraço a todos.

Leonardo.




 



[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Troca/Devolução de Produtos - Preciso de Opiniões

2009-08-06 Por tôpico valdirdill 
Olá,

Gostaria da opinião dos colegas que desenvolvam software de gestão e que nele 
tenha opção de alteração e/ou opção de devolução/troca de produtos no módulo de 
vendas (alguns preferem chamar de pedido. Eu acho melhor vendas). 

Muito bem, a questão é a seguinte: ao se gravar uma venda, no meu entender, um 
sistema deve registrar a saída dos produtos do estoque, gerar contas a receber 
(valor à prazo), gerar entrada no caixa (valor à vista) e, dependendo do caso, 
gerar comissão do vendedor.
No meu sistema permito apenas que o usuário cancele toda a venda. Aí o sistema 
anula tudo o que gerou, inclusive exclui alguma conta a receber que já tenha 
sido recebida. Ficará no sistema apenas a venda registrada como cancelada e 
somente para consultas.
O problema nesse caso é óbvio, ou seja, numa venda onde há 10 itens, por 
exemplo, e o cliente desejar devolver apenas um - o que não é raro ocorrer - 
geraria um enorme retrabalho de cancelar a venda e refazê-la toda.
Eu poderia criar um módulo de devolução/troca de produtos, onde ficaria 
registrado que determinado item de determinada venda foi devolvido e gerar o 
retorno do produto ao estoque. Até aqui tudo muito fácil. A minha dúvida é em 
relação ao financeiro. Como vocês trabalham essa questão? No caso da venda 
hipotética dos 10 itens, a venda total (soma dos itens) era de 150,00, mas teve 
um desconto de 5% e o total final ficou em 142,50. Desse valor, 30,00 foi pago 
à vista (creditado no caixa) e 112,50, dividido em 3 parcelas a receber. Além 
disso, o sistema gerou uma comissão a pagar para o vendedor de R$ 2,00. No dia 
(40 dias após) em que o cliente veio fazer a devolução/troca, ele já tinha pago 
uma das parcelas e o vendedor já tinha recebido sua comissão.
Aí pergunto de novo: como vocês acertam esse financeiro? Alteram os valores das 
contas pendentes? Calculam proporcionalmente o valor daquele produto para gerar 
outro financeiro? 

Obs.: Não precisa detalhar todo o módulo de devolução/troca. Qualquer dica que 
puder me repassar, ajuda.

Obrigado.

Valir Dill

[delphi-br] NF-e / ACBrNFe

2009-08-06 Por tôpico leojahu 
Bom dia pessoal.

Na empresa onde trabalho, já temos um certificado A3
que fica conectado com a máquina que faz o envio
da NFe através do programa disponibilizado pela receita.

Como estou tentando implementar o envio via ACBrNFe
e não tenho outro certificado A3, gostaria de saber se
existe alguma forma de " simular " o certificado em outra
máquina apenas para testar o envio?

Fico grato a quem puder me esclarecer.

Abraço a todos.

Leonardo.

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast

2009-08-06 Por tôpico valdirdill 
Obrigado.

 
Valdir



  - Original Message - 
  From: Moacir - GMail 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, August 06, 2009 8:09 AM
  Subject: Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast


valdirdill,

  Acrescente uma coluna com o tipo:

  SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL, 
Cast('EM ABERTO' as Varchar(10)) as TIPO FROM CONTASRECEBER WHERE VENCIMENTO 
BETWEEN :VInicio AND :VFim
  UNION ALL
  SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL, 
Cast('QUITADO' as Varchar(10)) as TIPO FROM CONTASRECEBIDAS WHERE VENCIMENTO 
BETWEEN :VInicio AND :VFim

  Sucesso !!

  Moacir

  valdirdill escreveu:
  > Olá,
  >
  > Estou fazendo um select com duas tabelas utilizando a opção UNION. Em 
alguns campos faço um cast pois cada tabela tem um nome diferente no campo. 
Veja o script:
  >
  > SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL 
FROM CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim
  > UNION ALL
  > SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL 
FROM CONTASRECEBIDAS WHERE VENCIMENTO BETWEEN :VInicio AND :VFim
  >
  > Funciona direitinho. Minha dúvida é: no relatório eu gostaria de 
identificar cada linha para saber se o registro impresso é de CONTASRECEBER ou 
de CONTASRECEBIDAS
  >
  > Alguém pode me ajudar?
  >
  > Uso D7 e FB 2.0
  >
  > Obrigado
  >
  >
  >
  > 
  >
  > 


  

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast

2009-08-06 Por tôpico valdirdill 
Obrigado.

 
Valdir



  - Original Message - 
  From: Rodinei 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, August 06, 2009 8:08 AM
  Subject: Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast


Simples, logo após o SELECT de cada parte da instrução, insira CAST('CR' AS 
VARCHAR(02)) para CR e CAST('CP' AS VARCHAR(02)) para CP.

  Abs e boa sorte...
  Rodinei Amorim 
  Programador Delphi
  (11) 8208-9503
  rodinei_amo...@hotmail.com rodinei.amo...@terra.com.br

  From: valdirdill 
  Sent: Thursday, August 06, 2009 7:58 AM
  To: delphi-br@yahoogrupos.com.br 
  Subject: [delphi-br] Ajuda com Select Utilizando Union All e Cast

  Olá,

  Estou fazendo um select com duas tabelas utilizando a opção UNION. Em alguns 
campos faço um cast pois cada tabela tem um nome diferente no campo. Veja o 
script:

  SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL FROM 
CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim
  UNION ALL
  SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL FROM 
CONTASRECEBIDAS WHERE VENCIMENTO BETWEEN :VInicio AND :VFim

  Funciona direitinho. Minha dúvida é: no relatório eu gostaria de identificar 
cada linha para saber se o registro impresso é de CONTASRECEBER ou de 
CONTASRECEBIDAS

  Alguém pode me ajudar?

  Uso D7 e FB 2.0

  Obrigado

  [As partes desta mensagem que não continham texto foram removidas]



  

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Hibernar Windows 2000

2009-08-06 Por tôpico tetraetila® 
Olá Pessoal
 
 
Alguém sabe como hibernar o windows 2000 via programação Delphi?
 
Obrigado!
 
 
 

ìAdilson Nunes Fernandes

(MG  55+37 9958-5087

*   adil...@qiinformatica.com

8   www.qiinformatica.com  

 



[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Re: Ajuda com Select Utilizando Union All e Cast

2009-08-06 Por tôpico Luciano Calenzani Simões 
Para começar você não precisa fazer cast para renomear colunas, basta usar AS, 
CAST é para converter o tipo do campo.
Para identificar de qual tabela é o registro, basta colocar mais um campo 
identificando, assim:

SELECT '1' AS TIPO, CLIENTE, VENCIMENTO, SALDO_RECEBER AS VALOR_FINAL FROM
CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim
UNION ALL
SELECT '2' AS TIPO, CLIENTE, VENCIMENTO, VALOR_RECEBIDO AS VALOR_FINAL FROM
CONTASRECEBIDAS WHERE VENCIMENTO BETWEEN :VInicio AND :VFim

Desta forma os registro que tiverem a coluna TIPO = 1 são do contas a receber e 
TIPO = 2 são do conta recebidas.

Luciano C. Simões

--- Em delphi-br@yahoogrupos.com.br, "valdirdill"  escreveu
>
> Olá,
> 
> Estou fazendo um select com duas tabelas utilizando a opção UNION. Em alguns 
> campos faço um cast pois cada tabela tem um nome diferente no campo. Veja o 
> script:
> 
> SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL FROM 
> CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim
> UNION ALL
> SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL FROM 
> CONTASRECEBIDAS WHERE VENCIMENTO BETWEEN :VInicio AND :VFim
> 
> Funciona direitinho. Minha dúvida é: no relatório eu gostaria de identificar 
> cada linha para saber se o registro impresso é de CONTASRECEBER ou de 
> CONTASRECEBIDAS
> 
> Alguém pode me ajudar?
>

Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast

2009-08-06 Por tôpico Moacir - GMail 
valdirdill,

Acrescente uma coluna com o tipo:

SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL, 
Cast('EM ABERTO' as Varchar(10)) as TIPO FROM CONTASRECEBER WHERE VENCIMENTO 
BETWEEN :VInicio AND :VFim
UNION ALL
SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL, 
Cast('QUITADO' as Varchar(10)) as TIPO FROM CONTASRECEBIDAS WHERE VENCIMENTO 
BETWEEN :VInicio AND :VFim

Sucesso !!

Moacir


valdirdill escreveu:
> Olá,
>
> Estou fazendo um select com duas tabelas utilizando a opção UNION. Em alguns 
> campos faço um cast pois cada tabela tem um nome diferente no campo. Veja o 
> script:
>
> SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL FROM 
> CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim
> UNION ALL
> SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL FROM 
> CONTASRECEBIDAS WHERE VENCIMENTO BETWEEN :VInicio AND :VFim
>
> Funciona direitinho. Minha dúvida é: no relatório eu gostaria de identificar 
> cada linha para saber se o registro impresso é de CONTASRECEBER ou de 
> CONTASRECEBIDAS
>
> Alguém pode me ajudar?
>
> Uso D7 e FB 2.0
>
> Obrigado
>
>
>
> 
>
>

Re: [delphi-br] Ajuda com Select Utilizando Union All e Cast

2009-08-06 Por tôpico Rodinei 
Simples, logo após o SELECT de cada parte da instrução, insira CAST('CR' AS 
VARCHAR(02)) para CR e CAST('CP' AS VARCHAR(02)) para CP.

Abs e boa sorte...
Rodinei Amorim 
Programador Delphi
(11) 8208-9503
rodinei_amo...@hotmail.com rodinei.amo...@terra.com.br



From: valdirdill 
Sent: Thursday, August 06, 2009 7:58 AM
To: delphi-br@yahoogrupos.com.br 
Subject: [delphi-br] Ajuda com Select Utilizando Union All e Cast


  Olá,

Estou fazendo um select com duas tabelas utilizando a opção UNION. Em alguns 
campos faço um cast pois cada tabela tem um nome diferente no campo. Veja o 
script:

SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL FROM 
CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim
UNION ALL
SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL FROM 
CONTASRECEBIDAS WHERE VENCIMENTO BETWEEN :VInicio AND :VFim

Funciona direitinho. Minha dúvida é: no relatório eu gostaria de identificar 
cada linha para saber se o registro impresso é de CONTASRECEBER ou de 
CONTASRECEBIDAS

Alguém pode me ajudar?

Uso D7 e FB 2.0

Obrigado





[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Ajuda com Select Utilizando Union All e Cast

2009-08-06 Por tôpico valdirdill 
Olá,

Estou fazendo um select com duas tabelas utilizando a opção UNION. Em alguns 
campos faço um cast pois cada tabela tem um nome diferente no campo. Veja o 
script:

SELECT CLIENTE, VENCIMENTO, CAST(SALDO_RECEBER AS FLOAT) AS VALOR_FINAL FROM 
CONTASRECEBER WHERE VENCIMENTO BETWEEN :VInicio AND :VFim
UNION ALL
SELECT CLIENTE, VENCIMENTO, CAST(VALOR_RECEBIDO AS FLOAT) AS VALOR_FINAL FROM 
CONTASRECEBIDAS WHERE VENCIMENTO BETWEEN :VInicio AND :VFim

Funciona direitinho. Minha dúvida é: no relatório eu gostaria de identificar 
cada linha para saber se o registro impresso é de CONTASRECEBER ou de 
CONTASRECEBIDAS

Alguém pode me ajudar?

Uso D7 e FB 2.0

Obrigado

Re: [delphi-br] Localizar TXT

2009-08-06 Por tôpico Moacir - GMail 
Filippe,

Tente algo assim:

Function  Checa_IP(IP : String = '') : Boolean;
var
iPos : Integer;
aTexto : tStringList ;
begin
aTexto := tStringList.Create;
aTexto.LoadFromFile('MeuArquivodelog.txt');
iPos := aTexto.Indexof(IP);
FreeAndNil(aTexto);
Result iPos <>-1;
end;

Não testei mas ja deve te dar uma boa pista de como fazer.


Sucesso!!

Moacir


Filippe Info escreveu:
> Olá Galera,
>
> Preciso criar uma função que faça o seguinte.
> Abra um arquivo TXT;
> E dentro desse TXT localizar um texto, se encontrar resultar True,
>
> Eu tenho um sistema que vai criando um log dos ip´s que estou utilizando, 
> esse log é criado em um TXT, porem da forma que eu fiz ele gera o log mesmo 
> que o IP continue o mesmo.
> Preciso dessa função para antes de gravar o novo log veficar se o IP ja 
> não esta na lista. Caso retorne true eu não gravo novamente.
>
>
> Obrigado, 
>
>
> Filippe Maymone
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> 
>
>

Re: [delphi-br] Descobrir a versão do MS Office qu e está instalada na máquina

2009-08-06 Por tôpico Walter Chagas (Bol) 
Ele quer saber qual a versão do Excel está instalado no computador e não como 
instanciá-lo, via código, não??

[]s
 
 
Walter Alves Chagas Junior
Belo Horizonte - MG - Brazil
wchag...@bol.com.br
http://www.geocities.com/SiliconValley/Bay/1058
http://delphitocorporerm.blogspot.com/
MSN: whitesock...@hotmail.com
SKYPE: WalterChagasJr


  - Original Message - 
  From: Rodinei 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, August 05, 2009 8:31 AM
  Subject: Re: [delphi-br] Descobrir a versão do MS Office que está instalada 
na máquina


var
  Excel : Variant;
  Begin
  Excel:=CreateOleObject('Excel.Application');
  Excel.Workbooks.Add(1);
  Excel.Visible := True;
  End;

  Não esqueça de colocar na "uses" a unit COMBOJ. Espero ter ajuda, abraços. 
Detalhe, há muito material na internet a respeito disto.

  Rodinei Amorim 
  Programador Delphi
  (11) 8208-9503
  rodinei_amo...@hotmail.com rodinei.amo...@terra.com.br

  From: Carlos 
  Sent: Wednesday, August 05, 2009 8:16 AM
  To: delphi-br@yahoogrupos.com.br 
  Subject: [delphi-br] Descobrir a versão do MS Office que está instalada na 
máquina

  Senhores, bom dia!

  Solicito a quem possa me auxiliar, como que faço para saber qual a versão do 
Office da MS que está instalada. Para descobrir a versão do Windows jé 
consegui, mas o Office está mais complicado.
  Pra que que eu quero esta informação?(É bom explicar né, quem sabe alguém tem 
uma solução mais prática...)
  Estou desenvolvendo uma aplicação, e coloquei uns atalhos para chamar 
aplicativos do office(Excel, Word, Access e etc..)e dependendo da versão o nome 
da pasta onde está o executável muda, então preciso saber qual versão, mas se 
alguém souber uma outra forma, não fique acanhado de me informar e me mostrar 
minha ingenuidade no assunto...ficarei imensamente grato.

  Agradeço antecipadamente.

  Fraterno abraço a todos,

  Carlos

  [As partes desta mensagem que não continham texto foram removidas]



  

[As partes desta mensagem que não continham texto foram removidas]

Re: [Bulk] Re: [delphi-br] Descobrir a versão do MS Office que está instalada na máqu ina

2009-08-06 Por tôpico EmbarcaDelphi 
WinExec não se usa mais, até a Microsoft relatou que nas futuras versões 
não vai dar suporte para o WinExec, o negócio é usar o ShellExecute como 
você mostrou...

Silvio Clecio escreveu:
>  
>
> Em 5/8/2009 08:16, Carlos escreveu:
> > Estou desenvolvendo uma aplicação, e coloquei uns atalhos para chamar
> > aplicativos do office(Excel, Word, Access e etc..)e dependendo da versão
> > o nome da pasta onde está o executável muda, então preciso saber qual
> > versão, mas se alguém souber uma outra forma, não fique acanhado de me
> > informar e me mostrar minha ingenuidade no assunto...ficarei imensamente
> > grato.
>
> ---
> implementation
>
> {$R *.dfm}
>
> uses
> ShellAPI;
> .
> .
> .
> begin
> ShellExecute(Application.Handle, 'open', PChar('excel'), nil, nil,
> SW_NORMAL);
> ---
>
> Troque o "excel" por "winword" (sem aspas) para abrir o Word, e
> "msaccess" pro Access; note que eu poderia usar WinExec, o problema é
> que esse segundo não encontra o registro dos .exe's do Office (por
> favor, me corrijam se eu estiver errado, chutei).
>
> ps. Não testei, estou sem o Office em minha VM.
> -- 
> []'s, Silvio Clécio
> ---
> Linux User: #481900
> Gmail, GTalk: silviop...@gmail.com 
> E-mail, Y! Messenger: silviop...@yahoo.com.br 
> 
> BlogSite: http://silvioprog.blogspot.com/ 
> 
> BlogSpot: http://silvioclecio.blogspot.com/ 
> 
> VirtualDriver: http://silvioprog.4shared.com/ 
> 
> °oO| Seja livre, use Linux! |Oo°
>
> .
>
>

[delphi-br] Re: Nota fiscal eletronica ??

2009-08-06 Por tôpico Djean Rodrigo Miranda Figueira 
De uma lida na Edição 108 da clube delphi deste mês, salvou o meu pescoço, fala 
sobre o componente open source ACBrNFe – Componente para Nota Fiscal Eletrônica 
e como ele funciona, vale a pena, alem da legislação sobre o assunto.

Rodrigo Figueira

--- Em delphi-br@yahoogrupos.com.br, Heraldo Andrade  
escreveu
>
> Pessoal, tenho um programa instalado que o clientye agora vai precisar emitir 
> nota fiscal eletronica, alguem tem alguma ajuda para me fornecer de onde 
> consigo material para o desenvolvimento ??
> 
> 
>   
> 
> Veja quais são os assuntos do momento no Yahoo! +Buscados
> http://br.maisbuscados.yahoo.com
> 
> [As partes desta mensagem que não continham texto foram removidas]
>

Re: [delphi-br] Nota fiscal eletronica ??

2009-08-06 Por tôpico Samuel M. Basso 
Cara tem um componente opensource muito bom, ACBr, tem desde componentes
para Cupom fiscal, TEF, até NFe.


http://acbr.sourceforge.net/drupal/


Vlw



2009/8/5 Heraldo Andrade 

>
>
> Pessoal, tenho um programa instalado que o clientye agora vai precisar
> emitir nota fiscal eletronica, alguem tem alguma ajuda para me fornecer de
> onde consigo material para o desenvolvimento ??
>
> __
> Veja quais são os assuntos do momento no Yahoo! +Buscados
> http://br.maisbuscados.yahoo.com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>  
>



-- 
Atenciosamente,

Samuel M. Basso
Tel: (54) 3463-9114
Cel: (54) 8135-3723
E-mail/MSN: samuelba...@gmail.com
Web site: www.samuelbasso.com


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] NF-e Status com ACBrNFe

2009-08-06 Por tôpico Nicolas 
Comigo aconteceu isso também após instalar a última versão, 
e nunca mais conectou, ainda não sei o que é.

[]s

alexandre



  - Original Message - 
  From: Samuel M. Basso 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Wednesday, August 05, 2009 8:09 AM
  Subject: Re: [delphi-br] NF-e Status com ACBrNFe


Ok obrigado, é que estou tentando faz uns dois dias, e ja começo a
  desconfiar que existe um outro problema , mas vou aguardar entao mais um
  pouco.

  2009/8/5 Dimas Bolognani 

  >
  >
  > Bom dia,
  >
  > Isto apenas quer dizer que o serviço do estado que vc verificou não esta
  > funcionado no momento. Vai tentando que já vc recebe um OK.
  >
  > Atte.
  >
  > Dimas
  >
  > De: delphi-br@yahoogrupos.com.br  [mailto:
  > delphi-br@yahoogrupos.com.br ] Em
  > nome de Samuel M. Basso
  > Enviada em: terça-feira, 4 de agosto de 2009 13:36
  > Para: delphi-br@yahoogrupos.com.br 
  > Assunto: [delphi-br] NF-e Status com ACBrNFe
  >
  >
  > Olá pessoal!
  >
  > Estou testando o envio de nota fiscal eletronica com o componente
  > ACBrMonitorNFe e estou tendo um problema ao verificar o status ele me
  > mostra
  > o seguinte erro:
  >
  > WebService Consulta Status serviço:
  > - Inativo ou Inoperante tente novamente.
  > - A autoridade de certificação não é válida ou está incorreta - URL:
  >
  > https://homologacao.nfe.sefaz.rs.gov.br/ws/nfestatusservico/NfeStatusServico
  > .asmx-
  > SOAPAction:
  > http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico/nfeStatusServicoNF
  >
  > Verifiquei em diversos sites e me falaram sobre a cadeia de certificados
  > etc, já fiz tudo isso e ainda persiste o erro. Se alguem poder me ajudar
  > agradeço.
  >
  > --
  > Atenciosamente,
  >
  > Samuel M. Basso
  > Tel: (54) 3463-9114
  > Cel: (54) 8135-3723
  > E-mail/MSN: samuelba...@gmail.com   samuelbasso%40gmail.com >
  > Web site: www.samuelbasso.com
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > Verificado por AVG - www.avgbrasil.com.br
  > Versão: 8.5.375 / Banco de dados de vírus: 270.13.42/2279 - Data de
  > Lançamento: 08/05/09 05:57:00
  >
  > [As partes desta mensagem que não continham texto foram removidas]
  >
  > 
  >

  -- 
  Atenciosamente,

  Samuel M. Basso
  Tel: (54) 3463-9114
  Cel: (54) 8135-3723
  E-mail/MSN: samuelba...@gmail.com
  Web site: www.samuelbasso.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] NF-e Status com ACBrNFe

2009-08-06 Por tôpico Samuel M. Basso 
Sim já tenho certificado do tipo A1 comprado no Serasa, ja esta obrigada a
emitir NF-e apartir de setembro e pesquisei no site do sefaz do estado e
consta o cnpj empresa já credenciada no ambiente de testes.

2009/8/5 Djean Rodrigo Miranda Figueira 

>
>
> Vc já tem o certificado digital A3 ou A1 conectado em sua maquina, sua
> empresa está na lista das empresas obrigadas a utilizar a NFe, se sim vc
> entrou em contato com a Secretaria do Estado da Fazenda do seu Estado
> solicitando autorização para utilizar o modulo de teste ou de produção,
> existem alguns estados que é necessário fazer solicitação de uso, mesmo vc
> sendo obrigado ou não .
>
> --- Em delphi-br@yahoogrupos.com.br ,
> "Dimas Bolognani"  escreveu
>
> >
> > Bom dia,
> >
> >
> >
> > Isto apenas quer dizer que o serviço do estado que vc verificou não esta
> > funcionado no momento. Vai tentando que já vc recebe um OK.
> >
> >
> >
> > Atte.
> >
> > Dimas
> >
> >
> >
> >
> >
> > De: delphi-br@yahoogrupos.com.br [mailto:
> delphi-br@yahoogrupos.com.br ] Em
> > nome de Samuel M. Basso
> > Enviada em: terça-feira, 4 de agosto de 2009 13:36
> > Para: delphi-br@yahoogrupos.com.br 
> > Assunto: [delphi-br] NF-e Status com ACBrNFe
> >
> >
> >
> >
> >
> > Olá pessoal!
> >
> > Estou testando o envio de nota fiscal eletronica com o componente
> > ACBrMonitorNFe e estou tendo um problema ao verificar o status ele me
> mostra
> > o seguinte erro:
> >
> > WebService Consulta Status serviço:
> > - Inativo ou Inoperante tente novamente.
> > - A autoridade de certificação não é válida ou está incorreta - URL:
> >
> https://homologacao.nfe.sefaz.rs.gov.br/ws/nfestatusservico/NfeStatusServico
> > .asmx-
> > SOAPAction:
> >
> http://www.portalfiscal.inf.br/nfe/wsdl/NfeStatusServico/nfeStatusServicoNF
> >
> > Verifiquei em diversos sites e me falaram sobre a cadeia de certificados
> > etc, já fiz tudo isso e ainda persiste o erro. Se alguem poder me ajudar
> > agradeço.
> >
> > --
> > Atenciosamente,
> >
> > Samuel M. Basso
> > Tel: (54) 3463-9114
> > Cel: (54) 8135-3723
> > E-mail/MSN: samuelba...@... 
> > 
>
> > Web site: www.samuelbasso.com
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
> > Verificado por AVG - www.avgbrasil.com.br
> > Versão: 8.5.375 / Banco de dados de vírus: 270.13.42/2279 - Data de
> > Lançamento: 08/05/09 05:57:00
> >
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
>
>  
>



-- 
Atenciosamente,

Samuel M. Basso
Tel: (54) 3463-9114
Cel: (54) 8135-3723
E-mail/MSN: samuelba...@gmail.com
Web site: www.samuelbasso.com


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Localizar TXT

2009-08-06 Por tôpico Rodinei 
Uma maneira básica, existe maneiras mais rápidas e/ou mais inteligentes.. 
rsrs segue:

function TemIP(par_IP:String):Boolean;
var
var_Texto:TStringList;
Begin
  var_Texto := TStringList.Create;
  var_Texto.LoadFromFile('C:\MEULOG.TXT');
  Result := (Pos(par_IP,var_Texto.Text)>0);
  var_Texto.Free;
End;

Espero que te ajude

Abs e boa sorte...
Rodinei Amorim 
Programador Delphi
(11) 8208-9503
rodinei_amo...@hotmail.com rodinei.amo...@terra.com.br



From: Filippe Info 
Sent: Thursday, August 06, 2009 7:01 AM
To: delphi-br@yahoogrupos.com.br 
Cc: lista-del...@yahoogrupos.com.br 
Subject: [delphi-br] Localizar TXT


  Olá Galera,

Preciso criar uma função que faça o seguinte.
Abra um arquivo TXT;
E dentro desse TXT localizar um texto, se encontrar resultar True,

Eu tenho um sistema que vai criando um log dos ip´s que estou utilizando, esse 
log é criado em um TXT, porem da forma que eu fiz ele gera o log mesmo que o IP 
continue o mesmo.
Preciso dessa função para antes de gravar o novo log veficar se o IP ja não 
esta na lista. Caso retorne true eu não gravo novamente.

Obrigado, 

Filippe Maymone

[As partes desta mensagem que não continham texto foram removidas]





[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Localizar TXT

2009-08-06 Por tôpico Filippe Info 
Olá Galera,

Preciso criar uma função que faça o seguinte.
Abra um arquivo TXT;
E dentro desse TXT localizar um texto, se encontrar resultar True,

Eu tenho um sistema que vai criando um log dos ip´s que estou utilizando, 
esse log é criado em um TXT, porem da forma que eu fiz ele gera o log mesmo que 
o IP continue o mesmo.
Preciso dessa função para antes de gravar o novo log veficar se o IP ja não 
esta na lista. Caso retorne true eu não gravo novamente.


Obrigado, 


Filippe Maymone

[As partes desta mensagem que não continham texto foram removidas]