Jump to content

Datalogical Informática

Membros
  • Posts

    28
  • Joined

  • Last visited

Everything posted by Datalogical Informática

  1. Prezados, Bom dia. Eu já trabalho com NFe para serviços / ISS, e estou agora configurando a emissão de NFe para venda de produtos com cálculo de ICMS. No entanto, ao gerar o xml da nota, não está aparecendo a tag com valor do ICMS mesmo informando no código abaixo: ...... Produto.Imposto.ICMS.CST := cst00; // pegar do cadastro da empresa Produto.Imposto.ICMS.orig := oeNacional; Produto.Imposto.ICMS.modBC := dbiValorOperacao; Produto.Imposto.ICMS.vBC := aqyTitBusca.FieldByName('VL_BASECALC').AsCurrency; Produto.Imposto.ICMS.pICMS := aqyTitBusca.FieldByName('VL_ALIQ_ICMS').AsFloat; Produto.Imposto.ICMS.vICMS := aqyTitBusca.FieldByName('VL_ICMS').AsCurrency; Produto.Imposto.ICMS.modBCST := dbisMargemValorAgregado; Produto.Imposto.ICMS.pMVAST := 0; Produto.Imposto.ICMS.pRedBCST:= 0; Produto.Imposto.ICMS.vBCST := 0; Produto.Imposto.ICMS.pICMSST := 0; Produto.Imposto.ICMS.vICMSST := 0; Produto.Imposto.ICMS.pRedBC := 0; Produto.Imposto.ICMS.CSOSN := csosn101; ...... E, ao enviar a Nota Fiscal, recebo a seguinte mensagem: "531-Rejeicao: Total da BC ICMS difere do somatorio dos itens" Poderiam verificar se falta preencher alguma propriedade do componente? Obrigado. Marcelo Antunes NFe ERRO ICMS.xml
  2. Prezados, Como posso obter o número da chave de uma nota fiscal de serviço (NFSe)? No componente NFe, consigo através da propriedade ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID. No componente NFSe, a propriedade ACBrNFSe1.NotasFiscais.Items[0].NFSe.InfId.Id traz apenas o número da Nota Fiscal. Obrigado, Marcelo Antunes
  3. Prezados, Ao gerar Nota Fiscal de Serviço (NFSe), em especial, utilizando o provedor ISSNET, não estou sabendo recuperar o xml de resposta que gerou o erro. Por exemplo, ao enviar um número de nota (RPS) que já existia, através do método Enviar(), o componente me gerou o seguinte erro: RPS ja informado. Numero do RPS em que ocorreu o erro: 1 etc etc. E gerou o evento abaixo na pasta de log: ================================================= inicio =========================================================== <?xml version="1.0" encoding="UTF-8"?> -<ConsultarSituacaoLoteRpsResposta xmlns="http://www.issnetonline.com.br/webserviceabrasf/vsd/servico_consultar_situacao_lote_rps_resposta.xsd"> -<ListaMensagemRetorno> -<MensagemRetorno> <Codigo xmlns="http://www.issnetonline.com.br/webserviceabrasf/vsd/tipos_complexos.xsd">E010</Codigo> <Mensagem xmlns="http://www.issnetonline.com.br/webserviceabrasf/vsd/tipos_complexos.xsd"> RPS ja informado. Numero do RPS em que ocorreu o erro: 1</Mensagem> <Correcao xmlns="http://www.issnetonline.com.br/webserviceabrasf/vsd/tipos_complexos.xsd">Para essa Inscricao Municipal/CNPJ ja existe um RPS informado com o mesmo numero, serie e tipo.</Correcao> </MensagemRetorno> </ListaMensagemRetorno> </ConsultarSituacaoLoteRpsResposta> ================================================= fim =========================================================== No entanto, não consigo recuperar este xml de erro para gravar em meu bd. Tentei as propriedades abaixo, mas não deu certo. Alguém consegue dar uma dica? Marcelo Antunes
  4. Só para exemplificar: ... if aqyNF.FieldByName('CO_MODELODF').AsInteger = 55 then begin // NF-e ACBrNFe1.DANFE:=ACBrNFeDANFeRL1; end else begin ACBrNFe1.DANFE:=ACBrNFeDANFCeRL1; end; ACBrNFe1.NotasFiscais.Imprimir; ... Tudo certo.
  5. Desculpe. Descobri que preciso mudar a propriedade DANFE da Nota Fiscal para o template "ACBrNFeDANFCeFortes1". Obrigado.
  6. Prezados, Gostaria de imprimir a NFC-e em papel A4 (laser). Estou gerando NFC-e (65) e, ao imprimir, está saindo no modelo NF-e (55). As configurações que utilizei foram: 1 - Gerar a NFC-e: ... NotaF := ACBrNFe1.NotasFiscais.Add; ... if Assigned( ACBrNFe1.DANFE ) then begin if iModelo=55 then begin // NFe NotaF.NFe.Ide.tpImp := ACBrNFe1.DANFE.TipoDANFE; // tipo de impressao: tiSemGeracao, tiRetrato, tiPaisagem, tiSimplificado, tiNFCe, tiMsgEletronica end else begin // NFC-e NotaF.NFe.Ide.tpImp := tiNFCe; // ACBrNFe1.DANFE.TipoDANFE; // tipo de impressao: tiSemGeracao, tiRetrato, tiPaisagem, tiSimplificado, tiNFCe, tiMsgEletronica end; end; ... ////////////////////////////////////////////////////// // QR-CODE ///////////////////////////////////////////////////// if iModelo = 55 then begin // 55 = NFC-e ACBrNFe1.Configuracoes.Geral.VersaoQRCode:=TpcnVersaoQrCode.veqr000; // (veqr000, veqr100, veqr200); end else begin // 65 = NFC-e ACBrNFe1.Configuracoes.Geral.VersaoQRCode:=TpcnVersaoQrCode.veqr200; // (veqr000, veqr100, veqr200); if UpperCase(aqyNFBusca.FieldByName('co_ambiente').AsString)='P' then begin // P=Producao ACBrNFe1.Configuracoes.Geral.IdCSC:=aqyEmp.FieldByName('ID_NF_CSC1').AsString; ACBrNFe1.Configuracoes.Geral.CSC:=aqyEmp.FieldByName('CO_NF_CSC1').AsString; end else begin // H=Homologacao //showmessage('homologacao!! id:' + aqyEmp.FieldByName('ID_NF_CSC1H').AsString + ' CSC:' + aqyEmp.FieldByName('CO_NF_CSC1H').AsString); ACBrNFe1.Configuracoes.Geral.IdCSC:=aqyEmp.FieldByName('ID_NF_CSC1H').AsString; ACBrNFe1.Configuracoes.Geral.CSC:=aqyEmp.FieldByName('CO_NF_CSC1H').AsString; end; end; // gera a nota fiscal ACBrNFe1.NotasFiscais.GerarNFe; 2 - Para imprimir: ACBrNFe1.NotasFiscais.Clear; // recupera xml de nota fiscal assinada e/ou autorizada (5=transmitida) ACBrNFe1.NotasFiscais.LoadFromString(sXml, False); ACBrNFe1.NotasFiscais.Imprimir; // ver opcao de imprimir direto sem visualizar
  7. Prezado Ítalo, Os demais campos estão sendo preenchidos corretamente. No caso da "NotaF.NFe.infNFeSupl.urlChave", você consegue identificá-la pelo provedor do certificado? Obrigado pronto atendimento.
  8. Quais propriedades devo definir para gerar o QRCode para NFC-e? Eu informei as seguintes: ACBrNFe1.Configuracoes.Geral.VersaoQRCode:=TpcnVersaoQrCode.veqr200; // (veqr000, veqr100, veqr200); ACBrNFe1.Configuracoes.Geral.IdCSC:='1'; ACBrNFe1.Configuracoes.Geral.CSC:='A89D7B99-F2ED-4DAE-F083-E71486FTESTE'; Tem alguma outra que preciso setar para que o componente ACBR gere o QRCode? Sou obrigado a informar NotaF.NFe.infNFeSupl.urlChave? Obrigado.
  9. Você possui alguma função, em Delphi, que gere o Hash do QR Code, conforme descrito no manual?
  10. Prezados, Estou configurando nosso sistema para emissão de NFC-e, aproveitando a estrutura da NF-e, que já está em funcionamento. Após várias correções de rejeições, não estou sabendo como corrigir e/ou gerar o QR-Code usando os componentes do Acbr. Está me gerando o seguinte erro: Rejeição 903 - Versao informada no QR-Code (100) nao e mais valida para a data de emissao. Neste caso, sei que devo utilizar a versão 2.00, pois utilizamos a versão de NFe 4.0. Conseguem me orientar para gerar o QR-Code e corrigir a rejeição? Tem alguma função que gera o QR-Code automático? Obrigado.
  11. Prezado Ítalo, A prefeitura de Campina Grande - PB está utilizando o provedor WebISS versão 2, com a ABRASFv2, a partir de março/2019. Encontrei aqui no fórum muitas dicas sobre como mudar o provedor e como configurar o arquivo cidades.ini, e está de acordo com o que vc falou aqui. Obrigado pelas informações. Abraço.
  12. Prezado Ítalo, Nas configurações de webservice da NFS-e, existem os campos de usuário, senha e frase secreta. Essas informações são enviadas pela prefeitura? O que é a frase secreta e qual a finalidade? Posso inserir qualquer palavra? Obrigado.
  13. Prezado Ítalo, Acertou. Procurei os exemplos e já estamos providenciando as adaptações. Obrigado pelo retorno.
  14. Prezado Ítalo, É isso mesmo. Então, irei utilizar este componente ACBrNFSe para gerar as notas fiscais. E, neste caso, existe alguma configuração relevante que preciso fazer? Utilizar algum schema espcífico? Obrigado.
  15. Em anexo, o xml de assinatura e xml de erro ao enviar. Erro-rejeiao.xml NFe25190413445508000145550010000000011000000014.xml
  16. Prezados, Estamos configurando nosso emissor de nota fiscal para um cliente de Campina Grande - PB, mas, não estou conseguindo. Ainda, em processo de homologação, versão 4.0, configuramos o webservice de PB/SP/RS, e nos apresenta o seguinte erro: "1 -> Rejeição: A NF deve ter pelo menos um item de produto sujeito ao ICMS". Na documentação encontrada no site https://campinagrande.pb.gov.br/nota-fiscal-eletronica/, menciona as urls de homologação e produção. Poderiam me orientar sobre como configurar para emitir a nota fiscal de serviço para prefeitura de Campina Grande - PB? Tem que trocar algum schema?
  17. Nãp consigo cancelar nota fiscal. Estou usando a versão 4.0 e atualizei todos os schemas. Sempre me apresenta o erro abaixo em ambiente de produção e homologação: Rejeicao: Evento nao atende o Schema XML especifico (Elemento: envEvento/evento[1]/infEvento/detEvento/xJust). Basicamente, utilizo o seguinte código: ACBrNFe1.EventoNFe.Evento.Clear; with ACBrNFe1.EventoNFe.Evento.Add do begin infEvento.chNFe := Chave; infEvento.CNPJ := CNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := Justificativa; infEvento.detEvento.nProt := Protocolo; end; ACBrNFe1.EnviarEvento(StrToInt(idLote)); MemoResp.Lines.Text := ACBrNFe1.WebServices.EnvEvento.RetWS; memoRespWS.Lines.Text := ACBrNFe1.WebServices.EnvEvento.RetornoWS; LoadXML(ACBrNFe1.WebServices.EnvEvento.RetornoWS, WBResposta);
  18. Prezado Ítalo, Não imaginava que o método ACBrNFe1.NotasFiscais.LoadFromString(sXml, False) gerava um ADD. Funcionou perfeitamente. Obrigado pelo retorno.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.