Lucio Bittes

Obrigado pela atenção.

Italo, boa tarde. No fonte original esta sem o "?wsdl" e sem ele o cancelamento não e feito, no site de homologação a url completa está com "?wsdl" e depois que eu adicionei e tentei cancelar novamente foi tranquilo. Sempre que eu acho essas coisas posto aqui para que não precise ficar alterando a cada vez que atualizo o repositório. Também não entendi porque até na semana retrasada estava funcionando normal. Deste já agradeço. Em anexo segue o print que tirei do erro falando que não conseguiu localizar o url.

Bom dia pessoal. Estava testando umas coisas da NFe e me deparei com um problema que imaginei que era da própria sefaz de Goiânia/GO, mas hoje quando cheguei ao escritório e fui tentar efetuar o cancelamento da nota ela persistiu no erro e não estava conseguindo. Não estava conseguindo achar o URL da webservice de homologação. Segue em anexo o erro. Entrei no site para ver a URL da webservice de homologação e vi que não estava completo, fiz a alteração e a nota foi cancelada com sucesso. Segue o código antes e depois. Pode me informar se e possível alterar no código para que eu possa atualizar meu repositório. obrigado! Antes. class function NotaUtil.GetURLGO(AAmbiente: Integer; ALayOut: TLayOut; AModeloDF: TpcnModeloDF = moNFe; AVersaoDF: TpcnVersaoDF = ve200): WideString; begin if AModeloDF = moNFe then begin case ALayOut of LayNfeRecepcao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeRecepcao2', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeRecepcao2'); LayNfeRetRecepcao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeRetRecepcao2', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeRetRecepcao2'); LayNfeCancelamento : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeCancelamento2', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeCancelamento2'); LayNfeInutilizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeInutilizacao2', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeInutilizacao2'); LayNfeConsulta : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeConsulta2', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeConsulta2'); LayNfeStatusServico : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeStatusServico2', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeStatusServico2'); LayNfeCadastro : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/CadConsultaCadastro2', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/CadConsultaCadastro2'); LayNFeCCe, LayNFeEvento : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeRecepcaoEvento', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeRecepcaoEvento'); LayNfeAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeAutorizacao', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeAutorizacao'); LayNfeRetAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeRetAutorizacao', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeRetAutorizacao'); end; end else begin case ALayOut of LayNfeRecepcao, LayNfeAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, '', ''); LayNfeRetRecepcao, LayNfeRetAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, '', ''); LayNfeInutilizacao : Result := DFeUtil.SeSenao(AAmbiente=1, '', ''); LayNfeConsulta : Result := DFeUtil.SeSenao(AAmbiente=1, '', ''); LayNfeStatusServico : Result := DFeUtil.SeSenao(AAmbiente=1, '', ''); LayNFeCCe, LayNFeEvento : Result := DFeUtil.SeSenao(AAmbiente=1, '', ''); end; end; end; Depois da alteração. class function NotaUtil.GetURLGO(AAmbiente: Integer; ALayOut: TLayOut; AModeloDF: TpcnModeloDF = moNFe; AVersaoDF: TpcnVersaoDF = ve200): WideString; begin if AModeloDF = moNFe then begin case ALayOut of LayNfeRecepcao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeRecepcao2', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeRecepcao2?wsdl'); LayNfeRetRecepcao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeRetRecepcao2', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeRetRecepcao2?wsdl'); LayNfeCancelamento : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeCancelamento2', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeCancelamento2'); LayNfeInutilizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeInutilizacao2', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeInutilizacao2?wsdl'); LayNfeConsulta : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeConsulta2', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeConsulta2?wsdl'); LayNfeStatusServico : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeStatusServico2', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeStatusServico2?wsdl'); LayNfeCadastro : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/CadConsultaCadastro2', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/CadConsultaCadastro2?wsdl'); LayNFeCCe, LayNFeEvento : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeRecepcaoEvento', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/RecepcaoEvento?wsdl'); LayNfeAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeAutorizacao', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeAutorizacao?wsdl'); LayNfeRetAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, 'https://nfe.sefaz.go.gov.br/nfe/services/v2/NfeRetAutorizacao', 'https://homolog.sefaz.go.gov.br/nfe/services/v2/NfeRetAutorizacao?wsdl'); end; end else begin case ALayOut of LayNfeRecepcao, LayNfeAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, '', ''); LayNfeRetRecepcao, LayNfeRetAutorizacao : Result := DFeUtil.SeSenao(AAmbiente=1, '', ''); LayNfeInutilizacao : Result := DFeUtil.SeSenao(AAmbiente=1, '', ''); LayNfeConsulta : Result := DFeUtil.SeSenao(AAmbiente=1, '', ''); LayNfeStatusServico : Result := DFeUtil.SeSenao(AAmbiente=1, '', ''); LayNFeCCe, LayNFeEvento : Result := DFeUtil.SeSenao(AAmbiente=1, '', ''); end; end; end;

Juliomar, isso mesmo garoto. Obrigado! A quem estiver passando pelo mesmo problema, aqui vai a solução.. Ache a linha $(BDS)\RaveReports\Lib Troque por C:\Program Files\CodeGear\RAD Studio\5.0\RaveReports\Lib

Pessoal, bom dia! Sempre atualizo o repositorio do ACBr e sempre utilizei o instalador para fazer isso. Mas hoje quando fui atualizar me deparei com um erro que não estou conseguindo resolver. 1-) Com a versão antiga do ACBrInstalador instala sem problema. 2-) Está dando erro nesses dois pacotes, mas quando abro o dpk e instalo manual, ele instala sem problema. Verifiquei o log de instalação e os dois está dando o mesmo erro. ACBrNFeDanfeRV.dpk(80) Fatal: E2202 Required package 'Rave75VCL' not found Mas o engraçado e que quando eu mando instalar manual ele compila sem erro. Obrigado pela atenção. Bom dia!

Certo. Obrigado pela explicação, irei fazer as alterações que me indicou. Obrigado!

Bom dia. Tinha lido não lembro onde que os eventos de confirmação pode ter mais do que 1 para a mesma confirmação. Então a confirmação pode ser feita somente uma única vez? No caso da confirmação errada?

Bom dia. Estou implementando a opção de confirmações de destinatário da MDF-e e estou com o seguinte erro, na primeira sequencia eu conseguir enviar e quando coloco a sequencia 2 me da o seguinte erro. <cStat>594</cStat> <xMotivo>Rejeicao: O numero de sequencia do evento informado e maior que o permitido</xMotivo> Os eventos de confirmação não são sequenciais? O último substitui a anterior? Obrigado! 521401025956260001135500100043190610043190602102001-procEventoNFe.xml 521401025956260001135500100043190610043190602102002-procEventoNFe.xml

Certo, achei que tinha algum patch referente a isso, mas mesmo assim, muito obrigado! Irei utilizar esse método.

Sim, tinha visto esse topico, mas queria saber como salvar o xml gerado também.

Bom dia! Estou com uma dúvida em relação ao componente da NFe que não conseguir encontrar no forum. Pois bem. Gostaria de saber como configurar o componente para salvar 2 tipos de XML, a autorizada e a gerada. Por exemplo: Quando clicar em criar e enviar ele salva o arquivo gerado da NFe em uma pasta especifica separado por ano e mês e apos a autorização ele faz a mesma coisa. Pasta Autorizada com separação de ano e mês. Pasta Enviada com separação de ano e mês. Sobre a autorizada eu sei que tem como, mas fiquei em dúvida de como configurar certo. Deste já agradeço.

Italo, bom dia! Irei testar. Obrigado!

Como a classe era virtual e os provedores override, tive que alterar em todos os provedores. Fico a disposição para quaisquer dúvidas. Mais uma vez, obrigado!

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