Ir para conteúdo
  • Cadastre-se

Datalogical Informática

Membros
  • Total de ítens

    28
  • Registro em

  • Última visita

Posts postados por 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,

    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

  3. 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
     

     

     

  4. 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.

  5. 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.

  6. 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?

  7. 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);
     

×
×
  • 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.