Ir para conteúdo
  • Cadastre-se

Lucio Bittes

Membros
  • Total de ítens

    246
  • Registro em

  • Última visita

  • Days Won

    1

Posts postados por Lucio Bittes

  1. 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. 

  2. 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;
    

    post-2921-0-06245500-1401882630_thumb.pn

  3. Veja se no library path que aponta o caminho do Rave está usando as variáveis de ambiente $(BDS) 

    coloque o caminho completo , feche o delphi e tente reinstalar!

     

    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

  4. 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!

    post-2921-0-08642100-1399550870_thumb.pn

  5. Bom dia.

    No caso da Carta de Correção que pode enviar até 20 eventos. Os outros eventos serão únicos (sequencia 1).

    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?

  6. 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

  7. 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.
  8. 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

  9. obrigado

     

     

     

    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!
     
  10. Bom, meus clientes de GO tambem nao estao conseguindo emitir, agora como saber se o problema e no nosso sistema ou no servidor do Sefaz. Pois consultando no Portal NFE esta tudo vermelho e pelo Robô Nfe está tudo OK... Qual seria mais confiavel, pois falei com meu cliente que o problema e no Sefaz e mandei ele ligar la, agora se o erro for meu vou ficar com carão com o cliente.

    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.

  11. 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!

  12. 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!

  13. 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

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.