GSN

Thiago ou William matos boa tarde amigos como faço pra consulta o status da nota através do XML pra trazer o status de cancela, pois com essas informações posso gravar no meu banco de dados , seria isso né? Pelo exemplo não consegui, poderia me dar uma luz Obrigado

Agradeço muito vocês pela resposta ,,, vou verificar essas informações. Obrigado

Amigo Ítalo, bom dia ! Obrigado pela sugestão. Talvez não tenho explicado melhor. Foi gerado uma nota fiscal eletrônica , onde foi gerado um XML de autorização de uso, quando tento fazer o cancelamento dessa mesma nota, carregando o XML da nota fiscal autorizada, ocorre erro: 573: Retorno := 'Motivo: 573 -> Rejeição: Duplicidade de Evento'; Pensei que havia algo errado no meu código fonte, tentei fazer o teste pélo "Demo" do ACBR e ocorreu o mesmo erro. Será que estou fazendo algo de errado no meu código, não consegui achar o erro. Será que alguem poderia me dar uma luz, vou enviar o meu código fonte em anexo txt anexo e arquivo XML da nota autorizada.; Obrigado GSN - SP cancela_nfe_codigo_fonte.txt NFe35150311199459000182550010000004451000004455.XML

Bom dia ! Estou tentando cancelar uma NFe e não consigo, testei ta,bém pelo "DEMO" e ocorre o mesmo erro. Por favor me ajude ! pois preciso colocar em produção Segue XML para análise e rotina do cancelamento procedure TF_nota.cancelar_nfe; var numerolote : integer; NumeroProtocolo , sjustificativa , XMLCancelamento , MotivoStatus : string; CodigoStatus : integer; DataHoraEvento : Tdate; xxx_chave , xxx_cnpj , xxx_protocolo : string; begin NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW)); // carregar o xml da nota fiscal eletronica, pode ser omitido dm_acbr.AcbrNFe1.NotasFiscais.Clear; dm_acbr.AcbrNFe1.NotasFiscais.LoadFromFile(snome_arq_xml); // Criar o cancelamento dm_acbr.AcbrNFe1.EventoNFe.Evento.Clear; dm_acbr.AcbrNFe1.EventoNFe.idLote := NumeroLote; // with dm_acbr.AcbrNFe1.EventoNFe.Evento.Add do begin xxx_chave := dm_acbr.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe; xxx_cnpj := dm_acbr.ACBrNFe1.NotasFiscais.Items[0].NFe.Emit.CNPJCPF; xxx_protocolo := dm_acbr.ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.nProt; // showmessage('Chave: ' + xxx_chave + #13 + 'CNPJ Emitente: ' + xxx_cnpj + #13 + 'Protocolo: ' + xxx_protocolo ); // infEvento.chNFe := xxx_chave; infEvento.CNPJ := xxx_cnpj; infEvento.detEvento.nProt := xxx_protocolo ; // infEvento.dhEvento := NOW; infEvento.tpEvento := teCancelamento; infEvento.nSeqEvento := strtoint(ed_sequencia.text); // infEvento.detEvento.xJust := ed_jus1.text; end; // Enviar o evento de cancelamento if dm_acbr.AcbrNFe1.EnviarEventoNFe(NumeroLote) then // solicita senha do certificado digital begin with dm_acbr.AcbrNFe1.WebServices.EnvEvento do begin if EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 135 then begin raise Exception.CreateFmt( 'Ocorreu o seguinte erro ao cancelar a nota fiscal eletrônica:' + sLineBreak + 'Código:%d' + sLineBreak + 'Motivo: %s', [ EventoRetorno.retEvento.Items[0].RetInfEvento.cStat, EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo ]); MemoResp.Lines.Text := UTF8Encode(dm_acbr.ACBrNFe1.WebServices.EnvEvento.RetWS); memoRespWS.Lines.Text := UTF8Encode(dm_acbr.ACBrNFe1.WebServices.EnvEvento.RetornoWS); LoadXML(MemoResp, WBResposta); ShowMessage(IntToStr(dm_acbr.ACBrNFe1.WebServices.EnvEvento.cStat)); ShowMessage(dm_acbr.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt); end; // retornos DataHoraEvento := EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento; NumeroProtocolo := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; XMLCancelamento := EventoRetorno.retEvento.Items[0].RetInfEvento.XML; CodigoStatus := EventoRetorno.retEvento.Items[0].RetInfEvento.cStat; MotivoStatus := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo; end; end else begin with dm_acbr.AcbrNFe1.WebServices.EnvEvento do begin raise Exception.Create( 'Ocorreram erros ao tentar efetuar o cancelamento:' + sLineBreak + 'Lote: ' + IntToStr(EventoRetorno.idLote) + sLineBreak + 'Ambiente: ' + TpAmbToStr(EventoRetorno.tpAmb) + sLineBreak + 'Orgao: ' + IntToStr(EventoRetorno.cOrgao) + sLineBreak + sLineBreak + 'Status: ' + IntToStr(EventoRetorno.cStat) + sLineBreak + 'Motivo: ' + EventoRetorno.xMotivo ); end; end; end; Obrigado GSN - São Paulo / SP NFe35150311199459000182550010000004451000004455.XML

juaumkiko bom dia ! Você estava na Vila Cisper ontem?

ola bom dia Estou tentando enviar um XML gerado e retorna com código 252 no XML esta como produção : <tpAmb>1</tpAmb> o CNPJ está cadastrado como usuário do Emissor Gratuito, será que precisa alterar? Alguem poderia me ajudar., Carreguei o XML no emissor gratuito e a nota foi autorizada Obrigado Segeu XML anexo 35150311199459000182550010000004371000004372-nfe.xml

Olá, bom dia ! Implementei a rotina do ECF em nossa aplicação, mas está ocorrendo algo estranho, quando clico no botão "Ativar", o Form fecha automaticamente. Fiz exetamente como no exemplo. O exemplo funciona. Será que algume poderia me dá uma luz. Obrigado GSN - / SP

edudsg muito boa a ideia, Você usa algum componente de terceiro, pois não consegui abri o projeto. Você poderia enviar por email para testar e implemenat. Obrigado SINVAL / SP [email protected]

bom dia ! Seria possível obter dados cadastrais, como Nome, endereço, bairro, cidade, cep , código do municipio e UF do site da Receita ou Sintegra? Pelo Acbr tem como ou algum outro componente? Obrigado Sinval / SP

Caro Parceiro Solivan, bom dia ! Você tem razão, fiz da forma que você orientou e deu certo. Muito obrigado pela sua atenção e estou à disposição no que for necessário. Sinval / SP www.gsninformatica.com.br

Olá Bom dia ! Seria possível a geração do arquivo Sintegra através dos lançamentos das notas fiscais de entrada e saida? Poderia passar algum exemplo por favor. Obrigado Sinval / SP www.gsninformatica.com.br [email protected]

olá ! Bom dia ! Como faço para obter o nome do arquiivo PDF da nfe para gravar no meu banco de dados? Obrigado SINVAL / SP

ok. sr. Daniel Simões, bom dia , Irei fazer esses procedimentos. Obrigado

Regys, boa tarde ! Poderia nos enviar algum código fontes delphi de exemplo pra implementação em nossa aplicação em delphi 7 nfe + sped Obrigado

Olá pessoal, Bom dia ! Obrigado pelas dicas, a instalação deu certo.

Olá pessoal, bom dia ! Agradeço pelas dicas, fiz tudo novamente e está funcionando. Obrigado

pcpenatti, boa tarde , Muito obrigado pela sua atenção.... pelo aplicativo não executa de maneira alguma , mas pelo delphi 7 executa após qualquer alteração no Forma, porém mostra o Form do aplicativo somente alguns segundos, depois fecha, estranho.... será algo na instalação do Acbr. Já o Sped Fiscal alterei e abriru normalmente pelo delphi e fora do delphi(direto pelo aplicativo )

Fiz as alterações em um form, compilei e executou normalmente pelo delphi mas não executa pelo aplicativo. O que devo fazer?

Regys, bom dia ! Segue arquivo de log para análise, não consigo abrir nenhum demo . Obrigado log_Delphi_7_a_28_07_2012.txt log_Delphi_7.txt

Olá pessoal , bom dia Estamos iniciando no Projeto Acbr, e preciso da ajuda de vocês. - Instalei o ACbr, tentei abrir algum exemplo, e mostra mensagem que está faltando algo para instalar, segue abaixo imagem anexo. Obrigado erro_abrir_demo_nfe_28_07_2012.rar erro_abrir_demo_sped_28_07_2012.rar

Olá pessoal, bom dia ! Já resolví, copiei a dll para a pasta do delphi e não ocorreu a mensagem. Obrigado à todos.

Bom dia ! Estou instalando o ACbr no Dlephi 7 com o Assistente de Instalção e no meio da instalação ocorreo a seguinte mensagem: Ocorreram erros na compilação dos pacotes , e gerou um arquivo de LOG, no arquivo de LOG não consegui identificar o erro. Alguém poderia me ajudar., Obrigado SINVAL

Olá ! Bom dia, Sou iniciante no projeto acbr, desenvolvo aplicação dem delphi e utilizo o Emissor de Nota Fiscal Elçetronica para importar o arquivo TXT gerado pelo nosso aplicativo. Queria saber se posso utilizar o Componente Acbr Nfe e incorporar na minha aplicação. Tentei instalar mas ocorre erros do tipo: "Não foi possível localizar o ponto de entrada do procedimento EVP_md2 na biblioteca de vinculo dinâmico LIBEAY32.dll" O que devo fazer, teria um passo a passo de como fazer a instalação do componente para delphi 6.0? Obrigado Sinval