Jump to content

amauridebarros

Membros
  • Content Count

    15
  • Joined

  • Last visited

Community Reputation

1 Neutral

About amauridebarros

  • Rank
    Novato
  1. Bom dia pessoal, pelo jeito o problema é mais complexo do que eu imaginava... Meus sinceros agradecimentos ao pessoal que tentou me ajudar, vou pesquisar a documentação e assim que conseguir algo eu posto a solução aqui. Mais uma vez muito obrigado e bom trabalho ou estudos a todos.
  2. "Tente analisar o valor de ACBrNFe.EventoNFe.Evento.Count antes da chamada ao método ACBrNFe.EnviarEvento" ele retorna 1, então o eventoo está sendo enviado certo?
  3. Bom dia pessoal, Eu sei que não deveria estar pedindo este tipo de ajuda e sim lendo a documentação, e eu estou fazendo isto aos poucos mas no momento a situação é emergencial, alguem poderia me passar algum exemplo de cancelamento de nfe que esteja funcionando. Muito obrigado...
  4. ***************************************************************************************************************************************************************************** Esta é a minha rotina não consigo achar onde enviei duas vezes o mesmo evento debugando a aplicação o erro ocorre logo apos a linha: ****************************************************** if ACBrNFe.EnviarEvento(NumeroLote) then ***************************************************** ******************************************************************************************************************************************* procedure TFrmM005HK.SB_CanNfeClick(Sender: TObject); Var DataHoraEvento:TDateTime; NumeroLote :Integer; AnoDoc, MesDoc: string; VdAuxili :TDateTime; VtAuxili :TTime; VsAuxili :String; VsCnpCpf :String; VsNomArq :String; vfcnpcpf :Real; Vidatemi :Integer; Vidatsai :Integer; Vihorsai :Integer; VlrVal:String; vinped:Integer; teste:String; begin ViNroNfe:=StrToInt(EdtNumNfe.Text); VdAtbNfe:=DmAtbCadNfe.RetCadNfe(ViNroNfe ,'1' ,VdTabPed.fVinumped ,VlrNfe ,StrToDate(EdtPriPar.Text) ,1 ,StrToDate(EdtDatSai.Text) ,0 ,1 ,VdTabPed.fVsprzfat ,VdTabPed.fVsnroped ); DmAtbCadPed.Qry_LocNfePed.Close; DmAtbCadPed.Qry_LocNfePed.Parameters.ParamByName('PrNfe').Value:=VdAtbNfe.fVinumnfe; DmAtbCadPed.Qry_LocNfePed.Open; VsNomArq:=DmAtbCadPed.Qry_LocNfePed.FieldByName('nomarq').AsString; Vs_RetChvNfe:=DmAtbCadPed.Qry_LocNfePed.FieldByName('chanfe').AsString; Vs_Retnropro:=DmAtbCadPed.Qry_LocNfePed.FieldByName('codpro').AsString; If DmAtbCadPed.Qry_LocNfePed.FieldByName('codpro').AsString='' then Begin Showmessage('Nota sem protocolo de transmissão...'); abort; End Else begin Application.CreateForm(TFrmA003Hk, FrmA003Hk); FrmA003Hk.Lbl_definicao.Caption:='Justificativa com no minimo 15 caracteres'; FrmA003Hk.Mm_descricao.Lines.Clear; FrmA003Hk.ShowModal; end; if FrmA003Hk.Vb_cancelarNFE then Begin DmAtbCadPed.Qry_LocNfePed.Close; DmAtbCadPed.Qry_LocNfePed.Parameters.ParamByName('PrNfe').Value:=DmAtbCadPed.Tbl_BasePed.FieldByName('numnfe').AsInteger; DmAtbCadPed.Qry_LocNfePed.Open; ACBrNFe.Configuracoes.Arquivos.PathSchemas:='C:\Dsystem\NFE\Schemas\'; ACBrNFe.Configuracoes.Geral.CamposFatObrigatorios:=False; ACBrNFe.Configuracoes.Geral.IdCSC := VdAtbNfe.fVsidtcer; ACBrNFe.Configuracoes.Geral.CSC := VdAtbNfe.fVsidttok; ACBrNFe.Configuracoes.Certificados.NumeroSerie := VdAtbNfe.fVsidtcer; ACBrNFe.SSL.NumeroSerie := VdAtbNfe.fVsidtcer; ACBrNFe.SSL.CarregarCertificado ; // numero do lote de envio **** DataHoraEvento := NOW; NumeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW)); AnoDoc := Copy(DateToStr(Vd_Retdatemi),7,4); MesDoc := Copy(DateToStr(Vd_Retdatemi),4,2); if not FrmM005hk.ACBrNFe.NotasFiscais.LoadFromFile( FrmM004HK.Vs_arqxmlnfe + '\' + VsNomArq) then raise Exception.Create('Nao foi possivel carregar o xml da nota'); End; ACBrNFe.EventoNFe.idLote := NumeroLote; ACBrNFe.EventoNFe.Evento.Clear; with ACBrNFe.EventoNFe.Evento.Add do begin infEvento.CNPJ := FloatToStr(VdAtbNfe.fVicnpemi); infEvento.dhEvento := DataHoraEvento; infEvento.tpEvento := tecancelamento; infEvento.chNFe := Vs_RetChvNfe; infEvento.detEvento.nProt := Vs_Retnropro; infEvento.detEvento.xJust := FrmA003Hk.Mm_descricao.Text; end; ****************************************************** if ACBrNFe.EnviarEvento(NumeroLote) then ***************************************************** begin with ACBrNFe.WebServices do begin if EnvEvento.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', [ EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat, EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo ]); end; end; end else begin with ACBrNFe.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; if (ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 135) or (ACBrNFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat = 155) then begin Showmessage('NFe cancelada com sucesso.'); //Altera o Status da NFE no banco para 3 - NFE Cancelada///////////////////////// // Inserido por amauri para pegar o valor do cnpj e numero VsCnpCpf := Floattostr(VdTabPed.fVfinscli); Dm_AtlBas.Atlcabnfe( DmAtbCadPed.Qry_LocNfePed.FieldByName('numnfe').AsInteger ,'1' ,DmAtbCadPed.Qry_LocNfePed.FieldByName('numnfe').AsInteger ,'1' ,DmAtbCadPed.Qry_LocNfePed.FieldByName('datemi').AsInteger ,DmAtbCadPed.Qry_LocNfePed.FieldByName('datsai').AsInteger ,DmAtbCadPed.Qry_LocNfePed.FieldByName('horsai').AsInteger ,0 ,1 ,VdTabPed.fVfinscli ,0 ,'NFE' ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,DmAtbCadPed.Qry_LocNfePed.FieldByName('nomarq').AsString ,DmAtbCadPed.Qry_LocNfePed.FieldByName('chanfe').AsString ,DmAtbCadPed.Qry_LocNfePed.FieldByName('codpro').AsString ,3 //Status 03 - NFE Cancelada ,'0' //Numero da Inscrição estadual da Transportadora ,0 //Codigo da Transportadora ,'A'); ///////////////////////////////////////////////////////////////////////////////// end; *******************************************************************
  5. Ele gerou estes XML 0-eve.xml 0-ped-eve.xml 1905111145-eve.xml 1905111145-ped-eve.xml
  6. Conferido e está atualizado, tinhamos feito isto ontem, mas fizemos novamente...
  7. Ok mas conforme eu disse acho que estou enviando alguma informação errada só não consigo saber o que conferir pois em um outro software que utiliza exatamente a mesma pasta de eschema ele funciona, mas eu não consegui descobrir o que ele está fazendo diferente do meu. Eu estou utilizando exatamente a mesma rotina de cancelamento.
  8. Bom dia: Estou utilizando o ACBR para emitir minhas Notas fiscais. A emissão da NFE está funcionando sem problemas porem quando eu tento cancelar a NFE ele me da o seguinte erro: "Rejeição: Falha no Schema XML", como ele da est mensagem e não da mais nenhuma referência eu não sei onde procurar o que pode estar errado, seguindo outros tópicos eu verifiquei que poderia ser algum erro no arquivo XML mas ele está integro e sem erros, verifiquei um post que dizia que o problema poderia ser em "ACBrNFe.Configuracoes.Geral.CamposFatObrigatorios:=False" eu colouei false com o post dizia a pasta schemas está atualizada e o cancelamento funciona em um outro software que também utiliza ACBR e eu confiro os atributos do componente que esta la e está igual ao meu e também conferindo as informações que o outro software envia não consegui encontrar nada diferente do meu. Alguém pode me dar alguma luz de o que mais eu devo conferir?
  9. Boa tade, Tenho um cliente que perdeu os xmls das notas emitidas, pior que isto tenho que inutilizar algumas notas no intervalo e não sei como fazer isto sem saber exatamente quais notas não foram emitidas. Exemplo: tem um intervalo entre Nota numer 1 e a nota 263, porem existem notas emitidas neste intervalo. Alguem sabe se tem algum recurso para localizar as notas deste intervalo, lembrando que não tenho a chave da nota, não tenho danfe, não tenho xml resumindo não tenho nada....
  10. Eu preciso que saia a cst 060 60 ICMS cobrado anteriormente por substituição tributária
  11. Boa tarde, estou gerando a danfe de uma nota emitida mas o meu problema é que ele não gera de jeito nenhum o cst na danfe, o valor vem 0 na danfe e no xml, alguém sabe me dizer de qual atributo o acbr traz esta informação, Segue anexo um print da danfe e do xml.
  12. Boa noite, Eu estou iniciando em acbr nunca fiz nada, estou tentando iniciar um projeto. No momento estou tentando ver o status do serviço, tenho um sistema para emissão das Nfs da empresa que está funcionando normalmente que utiliza a mesma verão do acbr, eu tenho os fontes dele mas não consigo compilar para debugar porque ele utiliza um milhão de componentes externos e eu não estou interessado em instalar todos eles que estou utilizando, mas eu tenho o executável e ele funciona certinho. eu peguei os fontes e pelo que fi ele configura estes parâmetros no acbrnfe. ACBrNFe1.Configuracoes.Geral.IdCSC := '000001' ; //'000001' <-Usado em homologação ACBrNFe1.Configuracoes.Geral.CSC := ''; ACBrNFe1.Configuracoes.Certificados.NumeroSerie := '' ; //Numero de série do Certificado Digital ACBrNFe1.SSL.NumeroSerie := '' ; //Numero de série do Certificado Digital ACBrNFe1.SSL.CarregarCertificado; //Cria a Estrutura para Salvar os XMLS em Pastas separadas ACBrNFe1.Configuracoes.Arquivos.Salvar := True; ACBrNFe1.Configuracoes.Arquivos.EmissaoPathNFe := True; ACBrNFe1.Configuracoes.Arquivos.SepararPorMes := True; ACBrNFe1.Configuracoes.Arquivos.AdicionarLiteral:= False; ACBrNFe1.Configuracoes.Arquivos.PathNFe := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName) +'\Transmitidas' ); ACBrNFe1.Configuracoes.Arquivos.PathEvento := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)+'\Canceladas' ); ACBrNFe1.Configuracoes.Arquivos.PathInu := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)+'\Inutilizados' ); eu coloquei exatamente as mesmas informações que estão no sistema que está funcionando, e não consigo ver mais nada que esteja diferente das minha configurações porem nela quando eu executo o comando CodigoStatus := ACBrNFe1.WebServices.StatusServico.cStat; ele me retorna a mensagem - Erro Interno: 0 Erro HTTP: 404. Eu li outros tópicos mas eles dizem que o problema é com a url, ou com o servidor, isto não pode ser porque o outro acbr sistema está funcionando, embora eu não achei onde se configura a url do servidor. Obs, até a solicitação da senha do tokem ele vai. Alguém consegue me dar uma luz do que pode estar acontecendo? Meu ambiente é o seguinte: Windows 10 Delphi xe 8 Acbr - ACBrNFe Ver: 2.0.0a Antecipadamente agradeço a todos.
  13. Bom dia; Muito obrigado pelo seu retorno. Tem alguma forma especifica de debugar o AcbrNfe? pois utilizando o debug do delphi não da nenhum erro esta mensagem é um erro tratado internamente no componente.
  14. Boa tarde, Sou novo aqui e estou usando o componente ACBrNFe, meu objetivo é conseguir emitir uma NF. Consegui chegar até a geração do xml porém quando tento executar o evento enviar do componente ele está me apresentando um erro na tela: ========================================================== Emissor de Nfe falha na validação dos dados da nota Campo:CNPJ - Conteúdo invalido ========================================================== No banco de onde ele está buscando os dados o CNPJ está correto, alguém sabe se eu tenho como criar uma rotina pra ver quais os dados que ele levando em cada campo? pois eu queria conferir se tem alguma informação errada. Antecipadamente Muito obrigado
  15. Instalei Projeto ACBR a instalação foi até o ultimo estagio me dando a mensagem "Instalado com êxito" porem porém quando eu abro o delphi (Xe 7) ele me da a mensagem "Can't load package C:\Program Files (x86)\Embarcadero\Acbr\Lib\Delphi\LibD21\ACBr_NFe.bpl. Não foi possivel encontrar o modulo especificado" Ele da esta mensagem para todos os arquivos BLP desta pasta, apesar de eles estarem todos na pasta. Segue anexo um print da tela com o erro. Alguem tem ideia de como resolver isto? Ambiente: Windows 10, Delphi xe 7 Obrigado.
×
×
  • Create New...