Datalogical Informática

Prezado, Informei o CSOSN com 900 para CRT = 1 e funcionou. Obrigado.

Obrigado BigWings, Irei verificar e retorno aqui.

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

Obrigado.

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

Obrigado!

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

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.

Desculpe. Descobri que preciso mudar a propriedade DANFE da Nota Fiscal para o template "ACBrNFeDANFCeFortes1". Obrigado.

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

Obrigado, Ítalo. Resolvido!

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.

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.

Obrigado pela informação!

Você possui alguma função, em Delphi, que gere o Hash do QR Code, conforme descrito no manual?