SistemaB

Estava rodando normal meu sistema mas agora começou a dar erro no envio da NFC-e Fiz update da ACBR e mudou erro. Estou rodando em homologacao AM Meu código é super simples // Reforma Tributária if ( 0 = 0 ) and (dm.TbParamNFcTIPO_REGIME_NFC.Value = 1) then With Imposto do begin // Informações do tributo: IBS / CBS // Converte o valor do campo para CST da IBS/CBS if dm5.QrItemNFCODIGO_IBSCBS_CST.value = '000' then IBSCBS.CST := cst000 // Tributação integral else if dm5.QrItemNFCODIGO_IBSCBS_CST.value = '010' then IBSCBS.CST := cst010 // Tributação com alíquotas uniformes else if dm5.QrItemNFCODIGO_IBSCBS_CST.value = '011' then IBSCBS.CST := cst011 // Tributação com alíquotas uniformes reduzidas else if dm5.QrItemNFCODIGO_IBSCBS_CST.value = '200' then IBSCBS.CST := cst200 // Alíquota reduzida else if dm5.QrItemNFCODIGO_IBSCBS_CST.value = '220' then IBSCBS.CST := cst220 // Alíquota fixa else if dm5.QrItemNFCODIGO_IBSCBS_CST.value = '221' then IBSCBS.CST := cst221 // Alíquota fixa proporcional else if dm5.QrItemNFCODIGO_IBSCBS_CST.value = '222' then IBSCBS.CST := cst222 // Redução de base de cálculo else if dm5.QrItemNFCODIGO_IBSCBS_CST.value = '400' then IBSCBS.CST := cst400 // Isenção else if dm5.QrItemNFCODIGO_IBSCBS_CST.value = '410' then IBSCBS.CST := cst410 // Imunidade e não incidência else if dm5.QrItemNFCODIGO_IBSCBS_CST.value = '510' then IBSCBS.CST := cst510 // Diferimento else if dm5.QrItemNFCODIGO_IBSCBS_CST.value = '515' then IBSCBS.CST := cst515 // Diferimento com redução de alíquota else if dm5.QrItemNFCODIGO_IBSCBS_CST.value = '550' then begin // CORREÇÃO PARA CST 550 (SUSPENSÃO) - Versão compatível IBSCBS.CST := cst550; // Suspensão // IMPORTANTE: Mesmo para CST 550, preencha o grupo gIBSCBS // A SEFAZ exige que o grupo seja preenchido, mesmo com valores zero // IBSCBS.gIBSCBS.gIBSUF.pIBSUF := 0; // Para suspensão, pode ser 0 //IBSCBS.gIBSCBS.gIBSUF.V := 0; // IBSCBS.gIBSCBS.gIBSUF.vIBSUF := 0; // IBSCBS.gIBSCBS.gCBS.pCBS := 0; // Para suspensão, pode ser 0 //IBSCBS.gIBSCBS.gCBS.vBCCBS := 0; // IBSCBS.gIBSCBS.gCBS.vCBS := 0; end else if dm5.QrItemNFCODIGO_IBSCBS_CST.value = '620' then IBSCBS.CST := cst620 // Tributação monofásica else if dm5.QrItemNFCODIGO_IBSCBS_CST.value = '800' then IBSCBS.CST := cst800 // Transferência de crédito else if dm5.QrItemNFCODIGO_IBSCBS_CST.value = '810' then IBSCBS.CST := cst810 // Ajuste de IBS na ZFM else if dm5.QrItemNFCODIGO_IBSCBS_CST.value = '811' then IBSCBS.CST := cst811 // Ajustes else if dm5.QrItemNFCODIGO_IBSCBS_CST.value = '820' then IBSCBS.CST := cst820 // Tributação em declaração de regime específico else if dm5.QrItemNFCODIGO_IBSCBS_CST.value = '830' then IBSCBS.CST := cst830 // Exclusão de base de cálculo else begin IBSCBS.CST := cst000; // Valor padrão caso não encontre correspondência end; IBSCBS.cClassTrib := dm5.QrItemNFCODIGO_CCLASSTRIB.Value; IBSCBS.indDoacao := tieNao; // // Para CSTs que não são 550, use os valores normais // if IBSCBS.CST <> cst550 then // begin // REGIME REGULAR – ALÍQUOTAS SIMBÓLICAS OFICIAIS IBSCBS.gIBSCBS.gIBSUF.pIBSUF := 0.1; // IBSCBS.gIBSCBS.gIBSUF.vBCIBSUF := 0; // IBSCBS.gIBSCBS.gIBSUF.vIBSUF := 0; IBSCBS.gIBSCBS.gCBS.pCBS := 0.9; // IBSCBS.gIBSCBS.gCBS.vBCCBS := 0; // IBSCBS.gIBSCBS.gCBS.vCBS := 0; // end; end; Mas agora tá dando o seguinte erro: Falha na validação dos dados da nota: 25200 --> 1871 - Element '{http://www.portalfiscal.inf.br/nfe}IBSCBSTot': This element is not expected. Expected is one of ( {http://www.portalfiscal.inf.br/nfe}ISSQNtot, {http://www.portalfiscal.inf.br/nfe}retTrib ). Vou anexar XML e podem ver que Acbr gerou a TAG total e antes não gerava. <IBSCBSTot> <vBCIBSCBS>0.00</vBCIBSCBS> </IBSCBSTot> </total> Grato desde já. Abcs 13260101549034000100650010000252001730494640-nfe.xml

Opa Juliomar... Vou fazer novos testes mas com certeza é isso ai.. Grato pela ajuda meu amigo. Pode fechar tópico.. Abcs

Tentei FrmPrincipal.ACBrNFeDANFeFR1.AlterarEscalaPadrao := True; FrmPrincipal.ACBrNFeDANFeFR1.NovaEscala := GetWindowsDPI; Mas não resolveu ainda veio cortando e ficou pior. A solução por enq foi por video do cliente em 100% na escala, mas nao seria solucao ideal pois alguns podem não gostar. Grato

seria aqui?

Emitimos nfe no Delphi 12 e DANFE com Fortes Reports. Mas em um cliente espefico está cortando a margem direita já mexi nas margens no driver da impressora mas não altera. O que poderia ser? Mandei o print. Grato desde já.

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!!