SistemaB

Consegui Com isso vi que era algo nos Schemas. Solução: Peguei os arquivos da pasta schemas do demo acbr NFe e copiei pro meu sistema. Passou normal agora. Grato ACBR Pode fechar topic.

Agora mostrou o erro: (Kg Is Not A Valid Value Of The Local Atomic Type) mas não sei o que fazer lembro de tá com os schemas atualizados.

Show. Vou testar.

Após atualizar nosso sistema com update atual da ACBR quando vendemos sem identificar o cliente caso nosso cliente ID = 1 venda balcão passou dar erro de validação da nf mas não diz o erro exato. Só vem: Project Administrativo.exe raised exception class EACBrNFeException with message 'Falha na validação dos dados da nota: 20005 '. Ai pegamos o XML e pomos no analisar SEFAZ sefaz diz td ok não dá erro. e Tecnospeed diz que precisa de campos do cliente mas não queremos identificar o cliente não é mesmo pra informamos esses campos então vejo que é falha do validador deles pra esse caso. procedure TFrmNFCe.GerarNFC(NumNFe: String); var icont: Integer; dDesconto, dDescProd: double; bRegra934, bCombustivel : Boolean; dIcmsDeson, dTotIcmsDeson,dTotIcmsMonoRet, dTotqBCMonoRet : double; begin bRegra934 := False; bCombustivel := False; dIcmsDeson := 0; dTotIcmsDeson := 0; dTotIcmsMonoRet := 0; dTotqBCMonoRet := 0; With ACBrNFe1.NotasFiscais.Add.NFe do begin Ide.natOp := Copy(dm5.QrNotaFiscalCF_NOME.Value, 1, 60); Ide.indPag := ipVista; Ide.modelo := 65; //ide.modelo := Entrega; Ide.serie := dm.TbParamNFcSERIE_NFC.AsInteger; Ide.nNF := StrToInt(NumNFe); Ide.dEmi := now; Ide.dSaiEnt := now; Ide.hSaiEnt := now; Ide.tpNF := tnSaida; if dm.TbParamNFcFORM_EMI_NFC.Value = 0 then Ide.tpEmis := teNormal; if dm.TbParamNFcFORM_EMI_NFC.Value = 1 then Ide.tpEmis := teDPEC; if dm.TbParamNFcFORM_EMI_NFC.Value = 2 then begin Ide.tpEmis := teOffLine; Ide.dhCont := now; Ide.xJust := dm5.QrNotaFiscalJUST_CONTINGENCIA.Value; end; if dm.TbParamNFcAMB_DEST_NFC.Value = 2 then Ide.tpAmb := taHomologacao else Ide.tpAmb := taProducao; Ide.cUF := UFtoCUF(dm.tbparamUF_EMP.Value); Ide.cMunFG := StrToInt(dm.tbparamCODIGO_MUN.Value); Ide.finNFe := fnNormal; Ide.tpImp := tiNFCe; Ide.indFinal := cfConsumidorFinal; Ide.indPres := pcPresencial; Ide.indIntermed := iiSemOperacao; { if True then begin Ide.cMunFGIBS :=dm.tbparamCODIGO_MUN.AsInteger; Ide.tpNFDebito := tdNenhum; Ide.tpNFCredito := tcNenhum; Ide.gCompraGov.tpEnteGov := tcgEstados; Ide.gCompraGov.pRedutor := 5; Ide.gCompraGov.tpOperGov := togFornecimento; end; } Emit.CNPJCPF := dm.TbParamCNPJ.Value; Emit.IE := dm.tbparamINSCEST.Value; Emit.xNome := dm.tbparamRAZAO_EMP.Value; Emit.xFant := dm.tbparamNOMEF_EMP.Value; Emit.EnderEmit.fone := dm.tbparamFONE1_EMP.Value; Emit.EnderEmit.CEP := StrToInt(dm.tbparamCEP_EMP.Value); Emit.EnderEmit.xLgr := dm.tbparamENDERECO_EMP.Value; Emit.EnderEmit.nro := dm.tbparamNUMERO_EMP.Value; Emit.EnderEmit.xCpl := dm.tbparamCOMPLEMENTO_EMP.Value; Emit.EnderEmit.xBairro := dm.tbparamBAIRRO_EMP.Value; Emit.EnderEmit.cMun := dm.tbparamCODIGO_MUN.AsInteger; // UPDATE 4.0 Emit.EnderEmit.xMun := dm.tbparamMUN_NFE.Value; Emit.EnderEmit.UF := dm.tbparamUF_EMP.Value; Emit.EnderEmit.cPais := 1058; Emit.EnderEmit.xPais := 'BRASIL'; Emit.IEST := ''; if (dm.TbParamNFcTIPO_REGIME_NFC.Value = 1) then Emit.CRT := crtRegimeNormal; // (1-crtSimplesNacional, 2-crtSimplesExcessoReceita, 3-crtRegimeNormal) if (dm.TbParamNFcTIPO_REGIME_NFC.Value = 2) then Emit.CRT := crtSimplesNacional; // (1-crtSimplesNacional, 2-crtSimplesExcessoReceita, 3-crtRegimeNormal) if (dm.TbParamNFcTIPO_REGIME_NFC.Value = 3) then Emit.CRT := crtSimplesExcessoReceita; // (1-crtSimplesNacional, 2-crtSimplesExcessoReceita, 3-crtRegimeNormal) if dm5.QrNotaFiscalINDIEDEST.Value = 1 then Dest.indIEDest := inContribuinte; if dm5.QrNotaFiscalINDIEDEST.Value = 2 then Dest.indIEDest := inIsento; if dm5.QrNotaFiscalINDIEDEST.Value = 9 then begin Dest.indIEDest := inNaoContribuinte; Dest.xNome := 'CONSUMIDOR'; end; if dm5.QrNotaFiscalCODIGO_CLIENTE.Value <> 1 then begin if (Trim(dm5.QrNotaFiscalCPFCNPJ.Value) <> '') and (not dm5.QrNotaFiscalCPFCNPJ.IsNull) and (Trim(dm5.QrNotaFiscalCPFCNPJ.Value) <> '00000000000') and (Trim(dm5.QrNotaFiscalCPFCNPJ.Value) <> '00000000000000') then Dest.CNPJCPF := dm5.QrNotaFiscalCPFCNPJ.Value; Dest.ISUF := ''; Dest.xNome := dm5.QrNotaFiscalNOMECLIENTE.Value; Dest.EnderDest.fone := Copy(dm5.QrNotaFiscalTELEFONE.Value, 1, 11); if not dm5.QrNotaFiscalCEP_CLIENTE.IsNull then Dest.EnderDest.CEP := StrToInt(StringReplace(Trim(dm5.QrNotaFiscalCEP_CLIENTE.Value), '-', '', [rfReplaceAll])); Dest.EnderDest.xLgr := dm5.QrNotaFiscalEND_CLIENTE.Value; Dest.EnderDest.nro := dm5.QrNotaFiscalNUMERO_CLIENTE.Value; Dest.EnderDest.xCpl := dm5.QrNotaFiscalCOMP_CLIENTE.Value; Dest.EnderDest.xBairro := dm5.QrNotaFiscalBAI_CLIENTE.Value; Dest.EnderDest.cMun := StrToInt(dm5.QrNotaFiscalCODIGO_IBGE.Value); Dest.EnderDest.xMun := dm5.QrNotaFiscalCIDADE.Value; Dest.EnderDest.UF := dm5.QrNotaFiscalUF_CLIENTE.Value; Dest.EnderDest.cPais := 1058; Dest.EnderDest.xPais := 'BRASIL' end else Begin if not dm5.QrNotaFiscalCPF_CNPJ_IDESTRANGEIRO.IsNull then begin Dest.xNome := dm5.QrNotaFiscalNOME_CONSUMIDOR.Value; Dest.EnderDest.xLgr := dm5.QrNotaFiscalENDERECO_CONSUMIDOR.Value; Dest.CNPJCPF := dm5.QrNotaFiscalCPF_CNPJ_IDESTRANGEIRO.Value; end End; dTotalAproxImpostosNACIONAL := 0; dTotalAproxImpostosMUNICIPAL := 0; dTotalAproxImpostosESTADUAL := 0; dDesconto := 0; if dm5.QrPedidoNFDESCONTO.Value > 0 then dDesconto := dm5.QrPedidoNFDESCONTO.Value; // Adicionando Produtos icont := 1; dm5.QrItemNF.First; While not dm5.QrItemNF.Eof do Anexei o XML aqui. Baixei os schemas mais atuais no site NFE nacional tb. Grato meus amigos. 13250801549034000100650010000200051370394351-nfe.xml

Eu posso na emissão de nfc-e usar 2 faixas de numeração diferentes pra emissão por exemplo. Emitir pelo PC da 1 em diante e ao mesmo tempo emitir pelo app do celular da 100 000 em diante é permitido isso pela Sefaz? Grato desde já. Ivanilson

Perfeito meu caro. Obrigadão. Resolveu aqui. Podem fechar tópico!

Estavamos enviando normal em homologação NFC-e AM. Mas agora diz isso: ERRO: Conjunto de NFC-e transmitidas (máximo de 1 NFC-e) excedido. Quantidade atual: 7 MEsmo sem termos enviado nenhum no dia, cada tentativa ele incrementa. SEFAZ disse que não é com eles que seria algo do sistema, mas não temos essa mensagem apenas mostro o retorno da sefaz e mostra isso. Alguma dica? Grato desde já meus amigos.

Qual a sefaz que vc tá falando?

Achei resolvi ativanndo a propriedade: ACBrNFeDANFeESCPOS1.Imprimeqrcodelateral := true

Estou usandoo acbr nfc e acbrdanfeescpos e acbrposprinter mas não sai qrcode no danfe resto tá perfeito. tentei alguns modelos na propriedade modelo acbrposprinter minha impressora é bluetooth pequena lintian modelo LT8359, testei usando bematech e epson mas ambas não sai o qrcode . Teriam uma dica? Segue código: cbxImpressorasBth.ItemIndex := 0; // impressão da NFC-e ConfigurarACBrPosPrinter; ACBrPosPrinter1.Modelo := ppEscPosEpson; ACBrNFe1.DANFE := ACBrNFeDANFeESCPOS1; if (ACBrNFe1.NotasFiscais.Count < 1) then Exit; // ConfigurarComponente; ACBrNFeDANFeESCPOS1.PosPrinter := ACBrPosPrinter1; ACBrNFeDANFeESCPOS1.ViaConsumidor := false; // chkViaConsumidor.Checked; ACBrNFeDANFeESCPOS1.ImprimeItens := true; // not chkDanfeResumido.Checked; ACBrNFe1.NotasFiscais[0].Imprimir; Grato desde já. Abcs Ivanilson

Grato meus queridos. Estou preenchendo o form. Podem fechar topic. Abcs Vcs são 10.

Preciso implementar TEF em eu sistema Delphi pois alguns estados pedem obrigatoriedade da emissão NFC integrada ao TEF. Queria um roadmap. Tenho dúvidas por exemplo: 1 - Preciso do PIN PAD claro vi que Gertec tem um pra desenvolvimento 2 - Preciso contratar algum tipo de serviço imagino uma empresa que vai validar os cartões etc.? Qual seria uma q podem me indicar e qual seria o custo mensal? Desde já agradeço. Abcs

Resolvido. Usei o Postman conforme vc recomendou pra testar tava OK. Assim era problema no cliente mesmo. Era o valor d timeout mesmo no Request4Delphi. Eu medi o tempo de envio vi que durava 60 segundos pro envio, ai aumentei o timeout pra 70 assim parou a mensagem de erro. lResp := TRequest.New.BaseURL(URL_BASE + EP_ENVIARNFC) .Timeout(70000) Agradeço.. Pode fechar topic meu amigo.

Vou rodar no postman pra ver amigo. Grato.

Olá. Amigos. Em meu App Delphi Firemonkey que tem uma tela q envia uma NFC pra sefaz , consumindo um EndPoint de uma API em Horse Delphi Windows. q gera envio da nfc-e ele gera envia mas parece quedemora um pouco ai mas chega a enviar . Uso O Request4delphi pro consumo do EP mas dá erro de timeout e não consigo receber meu json de retorno que seria uma string "NFC enviada com sucesso" ou erro com mensagem erro da ACBR NFC. Mas estranho é que envia a NFC mesmo assim. Parece algo no cliente Request4Delphi até aumentei o timeout pra 15 seg mas erro persiste. Tentei também via TRestClient e deu mesmo erro. A API tem esse EP envianfc (uso ACBR pro envio) q até envia mas esse erro de timeout estoura no app sempre. ver como resolver. Uso Delphi 12 e banco Firebird e ACBR. Agradeço qq ajuda. Abcs !!

Grato Daniel. Pelo que li o serviços estão sim operantes no momento. Vou verificar com nossos clientes. Podem fechar tópico. Abcs

Olá pessoal. Estou tentando usar contingencia SVC para envio de NFe UF PA. Como RS ficou fora do ar desligaram o Datacenter não tem como enviarmos NF-e normal pois serviço usado pelo PA é do RS. Ai altero pra SVC mas mesmo assim não envia pois a contingência NFe para UF PA é SVCRS. Como resolver isso agora? Ou estou fazendo algo incorreto.. Segue código que estou usando. Erro que veio foi TimeOut e 12007. Configuração do Componente ACBrNFe: // (AC,AL,AP,AM,BA,CE,DF,ES,GO,MA,MT,MS,MG,PA,PB,PR,PE,PI,RJ,RN,RS,RO,RR,SC,SP,SE,TO); // (12,27,16,13,29,23,53,32,52,21,51,50,31,15,25,41,26,22,33,24,43,11,14,42,35,28,17); case rgTipoEmissao.ItemIndex of 0: ACBrNFe1.Configuracoes.Geral.FormaEmissao := teNormal; 1: if ACBrNFe1.Configuracoes.WebServices.UFCodigo in [13, 26, 21, 29, 41, 50, 51, 52] then ACBrNFe1.Configuracoes.Geral.FormaEmissao := teSVCRS else ACBrNFe1.Configuracoes.Geral.FormaEmissao := teSVCAN; end; Na rotina que alimenta o componente com os dados da venda devemos incluir as seguintes linhas: case rgTipoEmissao.ItemIndex of 0: Ide.tpEmis := teNormal; 1: if ACBrNFe1.Configuracoes.WebServices.UFCodigo in [13, 26, 21, 29, 41, 50, 51, 52] then Ide.tpEmis := teSVCRS else Ide.tpEmis := teSVCAN; end;

OI acho q mande o erro mas a solução consegui com essa combinação. if bCombustivel then begin Transp.modFrete := mfSemFrete; // Transp.Transporta.CNPJCPF := dm.tbparamCNPJ.Value; // Transp.Transporta.xNome := dm.tbparamBAIRRO_EMP.Value; // Transp.Transporta.xEnder := dm.tbparamENDERECO_EMP.Value; // Transp.Transporta.xMun := dm.tbparamMUN_NFE.Value; // Transp.Transporta.UF := dm.tbparamUF_EMP.Value; Ide.indPres := pcPresencial; //pcPresencialForaEstabelecimento; //pcTeleatendimento; // pcEntregaDomicilio; Ide.indIntermed := iiOperacaoSemIntermediador; end; Grato pela rapida resposta. abcs podem fechar post.

Olá amigos, Estou ajustando minha emissão de NFC-e. Pois estou emitindo agora para combustivel. Mas gera essa rejeição sem sentido pois não to emitindo NF-e e sim NFC-e então não sei pq vem esse erro. Vou anexar XML aqui. E parte do código. if bCombustivel then begin Transp.modFrete := mfProprioRemetente; Transp.Transporta.CNPJCPF := dm.tbparamCNPJ.Value; Transp.Transporta.xNome := dm.tbparamBAIRRO_EMP.Value; Transp.Transporta.xEnder := dm.tbparamENDERECO_EMP.Value; Transp.Transporta.xMun := dm.tbparamMUN_NFE.Value; Transp.Transporta.UF := dm.tbparamUF_EMP.Value; Ide.indPres := pcEntregaDomicilio; //pcTeleatendimento; // pcEntregaDomicilio; Ide.indIntermed := 13240305501939000153650010000030021203314512-nfe.xmliiOperacaoSemIntermediador; end; Grato pela ajuda. Abcs a todos. Win 7,. D 12, Acbr atualizada. Ivanilson Dev Delphi

Gratos pela resposta. You can close the topic!! Abcs!!

Olá pessoal. Estamos no AM nossa empresa é de software enão temos Insc estadual. Acontece que pra emissão de teste homologação pra NF-e usamos Isento, pra NFC-e usamos 99999990 e ambas passam. Pra MDFe fui testar e nenhuma funciona pois sefaz retorna que precisamos IE quando ponho isento, ou que ie de teste (99999990 ) ai não casa com CNPJ da empresa. Ligue pra lá mas eles nem entendem pelo jeito e disseram pra usar usar Certificado do cliente, absurdo isso pra mim. Como é no estado de vocês tem algum tipo de saída? Grato desde já friends. Ivanilson Ribeiro Delphi Developer

Caros amigos, Preciso fazer implementação TEF em nossa aplicação. Conheço a ACBR usando, NFe, MDF , NFCe agora indo pro TEF. Vi os exemplos na pasta, mas tô meio confuso pois tem varios projetos de exemplo. Pergunta, eu preciso comprar pin pad? Preciso selecionar algum fornecedor especifico de serviço e do leitor ? Queria tipo uma direção básica somente. Desde já agradeço!! Abraços! Ivanilson Ribeiro Delphi Developer

Perfect Solution. Muito obrigado!! Podem fechar tópico.

Olá pessoal. Estou implementando MDFe para nossa empresa de sistemas para revendas de gás e água. Inicialmente vamos vincular somente as nf-e de venda e não CTe. Mas pelo que vejo o demo vem com exemplo de CTe que seria para transportadoras e em nosso caso os clientes tem caminhão próprio. No caso esse trecho do código: with infCTe.New do begin chCTe := '35110803911545000148570010000001011000001018'; Como eu faria para trabalhar com a chave da NF-e de venda em vez de CTe procurei o método mas não achei. Agradeço que possa ajudar. Abraços e Feliz 2024 a todos. Ivanilson Ribeiro Consultor Delphi

Grato meu amigo. Abcs!! VOu verificar.