Ir para conteúdo
  • Cadastre-se

gerasoft

Membros
  • Total de ítens

    62
  • Registro em

  • Última visita

Tudo que gerasoft postou

  1. Não estamos gerando o XML, o mesmo foi gerado por outro sistema. O que quero fazer é importar esse xml para o meu sistema de Escrita Fiscal.
  2. Observe o campo <codigo_item_lista_servico>21009</codigo_item_lista_servico> no xml anexo. Este é o xml que o contador me passou, retornado do provedor ipm. NFSe Guarapuava.xml
  3. O código de serviço correto é 1009 (Segundo o contador que consultei), porém no sistema da IPM é permitido digitar 5 digitos, devendo ser ignorado o primeiro. Porém o IPM.LerXml está ignorando o último. Código no XML <21009> Está Retornando <2100> Deveria Retornar <1009>
  4. Temos um XML de Guarapuava, que está em anexo, com um código de serviço de 5 digitos <21009>, porém o IPM retorna apenas 4 digitos <2100> conforme o código abaixo retirado do IPM.LerXml: aValor := ObterConteudo(ANodes[i].Childrens.FindAnyNs('codigo_item_lista_servico'), tcStr); ItemListaServico := PadLeft(aValor, 4, '0'); NFSe Guarapuava.xml
  5. Estou importando o NFSe do anexo utilizando NFSeX com o código abaixo e não estou conseguindo capturar o código do serviço. var ACBrNFSeX: TACBrNFSeX; begin ACBrNFSeX := TACBrNFSeX.Create(nil); try ACBrNFSeX.SetProvedor(proIPM, ve100); ACBrNFSeX.NotasFiscais.LoadFromFile(Edit1.Text, False); ACBrNFSeX.NotasFiscais.Items[0].NFSe.Servico.ItemListaServico; //Retorna em branco. ACBrNFSeX.NotasFiscais.Items[0].NFSe.Servico.ItemServico[0].CodServ; //Retorna em branco. ACBrNFSeX.NotasFiscais.Items[0].NFSe.Servico.ItemServico[0].ItemListaServico; //Retorna 0702. --> O que mais se aproxima é esse aqui, porém retorna um 0 a mais. ACBrNFSeX.NotasFiscais.Items[0].NFSe.Servico.ItemServico[0].CodLCServ; //Retorna em branco. finally ACBrNFSeX.Free; end; end; Arapongas.xml
  6. ACBrNFSeX.NotasFiscais.LoadFromFile(Edit1.Text, False); -> importou o arquivo ACBrNFSeX.NotasFiscais.GravarXML('c:\temp\' + ExtractFileName(Edit1.Text) + 'gerado') -> gravei o arquivo para confirmar se importou corretamente (anexo) ACBrNFSeX.NotasFiscais.Items[0].NFSe.DataEmissao -> Retorna 30/12/1899 abrasf.xmlgerado
  7. Achei que fosse possível fazer LoadFromFile do XML para eu importar os dados para meu sistema de escrita fiscal. Só salvei o arquivo para testar se estava carregando corretamente. Tentei de duas maneiras, 'ACBrNFSeX.NotasFiscais.LoadFromFile(Edit1.Text);' e 'ACBrNFSeX.NotasFiscais.LoadFromFile(Edit1.Text, False);'
  8. Tenho o XML, anexo, do GovDigital. Importei na ve200 e ve201 e o resultado foi o mesmo. Executei ACBrNFSeX.NotasFiscais.LoadFromFile(Edit1.Text) Depois ACBrNFSeX.NotasFiscais.GravarXML, o resultado foi o GovDigitalgerado.xml (anexo) Anexo o código delphi. Onde estou errando ? Obrigado. GovDigital.xml govdigitalgerado.xml uNFSeX.pas
  9. gerasoft

    Boleto Híbrido Sicredi

    Precisamos gerar remessa para o Sicredi de boleto com pix, utilizando o CNAB240. Segundo o manual no Registro Detalhe Segmento Y4 (Opcional – Remessa – Boleto Híbrido) no campo 12.4Y devo informar a chave pix, só que eu não sei como fazer isso pelo ACBrBoleto.
  10. É só para fazermos um teste, não foi perdido os xml. Muito obrigado.
  11. Olá, existe a possibilidade de realizar download de notas emitidas para pessoa física através do e-cpf?
  12. Olá, Estou com um problema no momento de consultar/baixar os XMLs das notas no Sefaz, logo na primeira consulta do dia traz a mensagem de Rejeição: Consumo Indevido. Apenas um cliente alega o problema. Os fontes foram atualizados no final de 2020. Como posso resolver? Segue anexo da configuração do componente acbr. Obs. UF do Paraná(41).
  13. Bom dia. Obrigado Juliomar pelas dicas, mas consegui resolver com o que o BigWings disse, vinculando o ACBrNfe a DANFe. Obrigados a todos.
  14. Sim, fiz o teste com o que eu tinha, testei também com o que esta na pasta \Acbr\Exemplos\ACBrDFe\ACBrNFe\Delphi\Report e na pasta \Acbr\Exemplos\ACBrDFe\ACBrNFe\Delphi\Report\Obsoletos. Infelizmente nenhum fucionou. Dei uma olhada também verificando o arquivo DANFeNFCe.fr3 pelo fastReport para ver se não tinha nenhuma opção Visible como False, aparentemente esta tudo certo, esta checado com True.
  15. Sim, foi marcado o que achamos necessário. Acredito que sejam essas opções que esteja falando.
  16. Boa tarde. Ao imprimir DANFeNFCe.fr3 não esta trazendo informações de QTD TOTAL DE ITENS como valor dos produtos, forma de pagamento. Já foi feita a atualização dos Fontes e a troca para o componente TACBrNFeDANFCeFR, tendo como sugestão em outros tópicos. Segue anexo abaixo de como teria que sair a impressão e de como esta saindo.
  17. Deu certo agora, faltava declarar no Uses o ACBrBoletoConversao. Muito obrigado!
  18. Bom dia, após a atualização dos fontes do acbr, ao compilar o sistema esta me trazendo na procedure o seguinte erro, TACBrTipoCarteira e tctRegistrada estão como Undeclared Identifier. Alguém pode me ajudar, por favor?
  19. Funcionou, verifiquei na parte de eventos do CTe na consulta completa e estava mostrando o evento em Prestação de Serviço em Desacordo. Muito obrigado.
  20. Fiz a configuração passada a cima, mas quando consulto a nota no site da Receita, e nota continua como autorizada. Será que devo fazer mais alguma configuração?
  21. Configurei o ACBrCTe.Configuracoes.WebServices.UF. para a UF do emitente e me trouxe outra mensagem: 'Rejeição: Duplicidade de Evento'.
  22. Bom dia pessoal! Estou implementado o manifesto de desacordo do CTe da seguinte forma: with ACBrCTe.EventoCTe.Evento.Add do begin infEvento.nSeqEvento := 1; // Para o Evento de Prestação do Serviço em Desacordo nSeqEvento sempre = 1 InfEvento.chCTe := Qy_CTE.FieldByName('Chave_Acesso').AsString; InfEvento.CNPJ := SoNumeros(QyGe_Emp.FieldByName('Cpf_Cnpj').AsString); infEvento.dhEvento := now; infEvento.tpEvento := tePrestDesacordo; infEvento.cOrgao := StrtoInt(copy((Qy_CTE.FieldByName('Chave_Acesso').AsString),1,2));//Pega os dois primeiros dígitos da chave de acesso do emitente. infEvento.detEvento.xOBS := ('CT-e emitido com dados incorretos'); infEvento.detEvento.xJust := Qy_CTE.FieldByName('Justificativa').AsString; end; PnMsg.Caption := 'Manifestando a chave de acesso : '+Qy_CTE.FieldByName('Chave_Acesso').AsString; ACBrCTe.EnviarEvento(1); O problema é que esta me trazendo o seguinte retorno: 'Rejeição: Orgão de recepção do evento invalido.' Gostaria de saber o que está faltando para que eu tenha sucesso nessa operação. Alguém poderia me ajudar?
  23. Deu certo com certificado A3 ?
  24. Acho que isso pode te ajudar Eduardo https://www.projetoacbr.com.br/acbr-mapas-fiscais/#acbrmapa_responsavel_tecnico
  25. gerasoft

    Lote não Localizado

    Ao tentar enviar uma nota na versão 4 modelo 55, na chamada do método (ACBrNFe.Enviar(NfeNumLote, False)) recebo o erro "Lote não Localizado" alguém passando por isso?
×
×
  • 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.

The popup will be closed in 10 segundos...