Lucio Bittes

Bom dia! Pesquisei aqui no fórum sobre algum tópico de alterações mas não achei. Então... Estou implementado o NFS-e para Goiânia e achei um pequeno problema que tive que fazer adaptação do componente, para não efetuar toda vez que eu atualizar o mesmo gostaria que fosse avaliado para implantação definitiva. Segue alterações. Para pegar o GetLinkNFSe era passado os parâmetros. (ACodMunicipio, ANumeroNFSe: Integer; ACodVerificacao: String; AAmbiente: Integer) Para Goiânia temos que passar a IM para a consulta, mas para essa alteração tive que alterar essa procedure em todos os provedores. Com a alteração a nova procedure ficou assim. (ACodMunicipio, ANumeroNFSe: Integer; ACodVerificacao, AInscricaoM: String; AAmbiente: Integer) A classe TNFSeLinkNFSe Ficou Assim. TNFSeLinkNFSe = Class(TWebServicesBase) private FNotasFiscais : TNotasFiscais; FNumeroNFSe: integer; FCodVerif: String; FLink: String; FIM: string; public function Executar: Boolean; override; constructor Create(AOwner : TComponent; ANotasFiscais : TNotasFiscais); reintroduce; property NumeroNFSe: integer read FNumeroNFSe; property CodVerif: String read FCodVerif; property Link: String read FLink; property IM: string read FIM; end; Classe TACBrNFSe foi alterado a função. function LinkNFSe(ANumeroNFSe: Integer; ACodVerificacao, AInscricaoM: String): String; Classe TNFSeGerarLoteRps foi alterado a função. function LinkNFSeGerada(ANumeroNFSe: Integer; ACodVerificacao, AInscricaoM: String): String; Provedor de Goiãnia foi alterado. function TProvedorGoiania.GetLinkNFSe(ACodMunicipio, ANumeroNFSe: Integer; ACodVerificacao, AInscricaoM: String; AAmbiente: Integer): String; Var vUrlNota : string; begin vUrlNota := 'http://www2.goiania.go.gov.br/sistemas/snfse/asp/snfse00200w0.asp?inscricao=' + AInscricaoM; vUrlNota := vUrlNota + '&nota=' + IntToStr(ANumeroNFSe) + '&verificador=' + ACodVerificacao; Result := vUrlNota; end; Segue em anexo as alterações. Obs: Meu repositorio estava atualizado. Fico aguardando retorno para alteração para atualizar novamente. Obrigado! ACBrNFSe.rar ACBrNFSe.rar

Já fiz essas alterações. Copilei o projeto da NF-e com a funão GetUTG e pega o horário de verão coloca -2:00 e temos clientes de cidades que não estão e pega o -03:00, mas mesmo assim consultando o serviço de status com o retorno data e hora as vezes da a data do processo não pode ser maior a que do evento. O que eu faço, já não sei mais o que fazer...

If (NFE.WebServices.StatusServico.Executar) Then //Faz a consulta do webservice. Begin with NFE.EventoNFe.Evento.Add do begin infEvento.chNFe := //Chave; infEvento.CNPJ := //CNPJ //infEvento.dhEvento := now; //Quando tava mandando assim dava erro toda hora. InfEvento.dhEvento := NotaFiscalEletronica1.WebServices.StatusServico.dhRecbto; infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := //Justificativa do cancelamento, no minimo 15 caracteres.; infEvento.detEvento.nProt := //Protocolor; End; End; Ele Faz a consulta do webservice e coloca os atributos no componente ACBr. Evitando qualquer erro de horario de verão e data hora. Com esse trecho pode otimizar e fazer melhorias. Mas resumindo e isso! Valeu!

Caro amigo, mesmo estando em vermelho estamos conseguindo emitir as notas ficais normais. Está enviando, consultando e cancelando normal. A unica coisa diferente são a atualização que a sefaz publicou em relação a nova cadeia de certificado. Pegue um cliente e tenta fazer a atualização que vai funcionar normal.

Todos do windows xp eu atualizei o SP3 e instalei o nova cadeia do certificado e funcionou corretamente. Mas com o Windows 2003 server eu não dei conta de jeito nenhum, instalei o sp2 e atualizei também o hotfix e mesmo assim não funcionou, alguém deu conta de colocar para funcionar no windows 2003? Obrigado!

Pois e meu amigo. Pelo que sei você tem que somar mais um no sequencial, ele substitui a anterior, so vale a ultima ok? vlw! Ah! Se você tentar mandar com o mesmo numero de sequencia ele vai apresentar erro de duplicidade. vlw!

Alguém tá sabendo de alguma coisa? Obrigado!

Estava olhando a nota técnica 2011/006 - Cancelamento da NF-e como evento da nota fiscal eletrônica. Como anda o processo desse cancelamento? O componente já está fazendo da forma prevista nesta nota técnica. Obrigado a todos, o componente e maravilhoso, sempre ajudo quando e possível. Abraços