Jump to content

amauridebarros

Membros
  • Content Count

    17
  • Joined

  • Last visited

Community Reputation

3 Neutral

About amauridebarros

  • Rank
    Novato
  1. Boa tarde Pessoal me ajudem a esclarecer uma dúvida. Preciso fazer testes de emissão de NFE e de impressora de cupon fiscal porem o certificado digital que eu utilizava (Que é de uma empresa) venceu. Eu gostaria de saber se eu posso ter um certificado digital pessoal (Meu) para utilizar a base de homologação da receita e emitir NFE e Cupom fiscal para testar minhas aplicações. Isto da certo? Obrigado.....
  2. 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.
  3. "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?
  4. 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...
  5. ***************************************************************************************************************************************************************************** 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; *******************************************************************
  6. Ele gerou estes XML 0-eve.xml 0-ped-eve.xml 1905111145-eve.xml 1905111145-ped-eve.xml
  7. Conferido e está atualizado, tinhamos feito isto ontem, mas fizemos novamente...
  8. 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.
  9. 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?
  10. 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....
  11. Eu preciso que saia a cst 060 60 ICMS cobrado anteriormente por substituição tributária
  12. 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.
  13. 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.
  14. 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.
×
×
  • Create New...