Kássius Ribas

Olá, pessoal, desculpa sei que esse topico ja foi abordado em outras oportunidades, li todos, mas infelizmente, nao consegui resolver meu problema, de rejeição : codigo identificador do csc no qr-code nao cadastrado na sefaz, ja fiz o cadastro na sefaz de GO, tanto como produção quanto homologação, mas o erro persiste, preciso muito ja de ajuda, agradeço a todos, que puderem me ajudar. segue anexo o XML gerado pelo meu sistema. 41-env-lot.xml

boa noite Daniel e Juliomar, des culpa a insistência, mas estou rodando o demo aqui na minha maquina e esta dando o seguinte erro conforme a imagem anexa.

Bom dia pessoal, estou tendo problemas também na pesquisa do município com o componente ACBRIBGE, esta me retornando o código do Estado errado e da Município também, tipo o Município e Panamá esta Goias, e retornada com o código de Panorama estado Sao Paulo, precisava de uma auxilio se alguém consegui resolver isso esse tipo de problema

Bom dia pessoal, estou tendo problemas também na pesquisa do município com o componente ACBRIBGE, esta me retornando o código do Estado errado e da Município também, tipo o Município e Panamá esta Goias, e retornada com o código de Panorama estado Sao Paulo, precisava de uma auxilio se alguém consegui resolver isso esse tipo de problema

Olá a todos, eu tambem estou com um erro de compilação semelhante no Delphi 2010, depois que formatei minha maquina nao consigo mais compilar meu sistema, preciso de ajuda por favor, o erro segue anexo na imagem

No meu sistema acontece quando o SEFAZ esta fora do ar.

boa noite ifaster, eu passei por este problema e consegui resolver substituindo o arquivo ACBrNFeWebServices.pas, e consegui emitir a NFe normalmente o link do arquivo ja editado é o abaixo, espero ter ajudado. http://www.projetoacbr.com.br/forum/applications/core/interface/file/attachment.php?id=24388

Olá, tudo bem Juliomar, obrigado pela atenção, tem como vc so nos dar uma exemplo de como realizar, ou configurar a parte mencionada de síncrono e assíncrono, fazendo o favor.

Olá a todos também estou com o mesmo problema, e quando mudo as configurações do IE da uma mensagem de erro vazia com um X vermelho, isso passou a acorrer em todos os meus clientes também. os meus clientes usam Win 7 64 bits eu Uso Delphi 2010, Trunk2, win 10 64 bts,

Olá a todos estou com o mesmo problema, desde quinta feira, e meus clientes tambem todos ficaram com o mesmo erro, sem ter modificado nado no sistema, ja procurei soluções no forum, e as dicas foram alterar as configurações no IE mas mesmo assim persiste o erro, o que devo fazer? Uso certificado A3, Capicom, Trunk2, Delphi 2010 e Windows 10 64 Bits

Olá a todos, alguém tem algum site de aulas paf ecf com os componentes ACBR, para estar estudando porque os componentes ACBR são os melhores que já vi e encontrei, eu já tenho um sistema que já emite NFe com os componentes, o qual fiz o curso com o Luiz Godinho, no site DevMedia, obrigado a todos pela a atenção.

Olá a todos, gostaria de uma grande informação tenho sistema em uma cooperativa de leite, eles emitiam notas no programa NFe, o q eu fiz peguei o ultimo numero da Nfe do sistema da NFe deles e pus no meu tipo era 3001, no meu ja teria quer ser 3002, mas quando fui adicionar no meu errei no comando coloquei 30002, e ja emitimos mais de 200 nfe com esta sequencia de numeração maior do que teria q ser, o que fazer agora para corrigir isso?,

blz pessoal obrigado pelas as ajudas resolvi aqui, obrigado mesmo vlw

Fazendo um favor, como faço para iniciar o meu codigo, para gerar varias nfes Juliomar

vou postar meu codigo: Gauge3.Progress := 0; DataModule1.ACBrNFe1.NotasFiscais.Clear; with RelacaoNFe do begin First; while not Eof do begin Gauge3.MaxValue := TempProdutor.RecordCount; NFe.Locate('NunNfe', IntToStr(RelacaoNFeNunNfe.AsInteger), []); ItensNFEFiscal.Locate('CodigoNfe', IntToStr(RelacaoNFeNunNfe.AsInteger), []); ////////// gravar dados no componente acbr para gerar NFE ////////////////////// with DataModule1.ACBrNFe1.NotasFiscais.Add.NFe do begin // Dados Principais Ide.cNF := NFeCodigoNumerico.AsInteger; Ide.natOp := NFeNaturezaOperação.AsString; if (copy(NFeFormapagamento.AsString, 1, 2)) = '0' then Ide.indPag := ipVista; if (copy(NFeFormapagamento.AsString, 1, 2)) = '1' then Ide.indPag := ipPrazo; if (copy(NFeFormapagamento.AsString, 1, 2)) = '3' then Ide.indPag := ipOutras; Ide.modelo := StrToInt(NFeModelo.AsString); Ide.serie := NFeSerie.AsInteger; Ide.nNF := NFeNunNFe.AsInteger; if (copy(NFeTipoDocumento.AsString, 1, 1)) = '0' then Ide.tpNF := tnEntrada; if (copy(NFeTipoDocumento.AsString, 1, 1)) = '1' then Ide.tpNF := tnSaida; Ide.cMunFG := NFeCodigoMunicipio.AsInteger; ide.dEmi := NFeDataEmissao.AsDateTime; Ide.dSaiEnt := NFeDataSaida.AsDateTime; if (DataModule1.sTipoImpressao = 1) then Ide.tpImp := tiRetrato; if (DataModule1.sTipoImpressao = 2) then Ide.tpImp := tiPaisagem; if DataModule1.SAmbiente = 1 then ide.tpAmb := taProducao; if DataModule1.SAmbiente = 2 then Ide.tpAmb := taHomologacao; if NFeFormaEmissao.AsString = 'Normal' then Ide.tpEmis := teNormal; // 0 if NFeFormaEmissao.AsString = 'Contigência FS' then Ide.tpEmis := teContingencia; //1 if NFeFormaEmissao.AsString = 'Contigência com SCAN' then Ide.tpEmis := teSCAN; //2 if NFeFormaEmissao.AsString = 'Contigência Via DPEC' then Ide.tpEmis := teDPEC; //3 if NFeFormaEmissao.AsString = 'Contigência FS - Da' then Ide.tpEmis := teFSDA; //4 if NFeFinalidadeEmissao.AsString = '1 - NF-e normal' then Ide.finNFe := fnNormal; if NFeFinalidadeEmissao.AsString = '2 - NF - e complementar' then Ide.finNFe := fnComplementar; if NFeFinalidadeEmissao.AsString = '3 - NF - e de ajuste' then Ide.finNFe := fnAjuste; Ide.cDV := NFeDV.AsInteger; Ide.verProc := '1.0.0'; Ide.cUF := 52; // Emitente Emit.CNPJCPF := DataModule1.EmpresaCnpj.AsString; Emit.xNome := DataModule1.EmpresaRazaoSocial.AsString; Emit.xFant := DataModule1.EmpresaNomeFantazia.AsString; Emit.EnderEmit.xLgr := DataModule1.EmpresaEndereco.AsString; Emit.EnderEmit.nro := DataModule1.EmpresaNumero.AsString; Emit.EnderEmit.xCpl := DataModule1.EmpresaComplemento.AsString; Emit.EnderEmit.xBairro := DataModule1.EmpresaBairro.AsString; Emit.EnderEmit.cMun := DataModule1.EmpresaCodigoCidade.AsInteger; Emit.EnderEmit.xMun := DataModule1.EmpresaCidade.AsString; Emit.EnderEmit.UF := DataModule1.EmpresaEstado.AsString; Emit.EnderEmit.CEP := DataModule1.EmpresaCep.AsInteger; Emit.EnderEmit.cPais := 1058; Emit.EnderEmit.xPais := 'BRASIL'; Emit.EnderEmit.Fone := DataModule1.EmpresaFone.AsString; Emit.IE := Trim(DataModule1.EmpresaInscricaoEstadual.AsString); Emit.IM := DataModule1.EmpresaInscricaoMunicipal.AsString; Emit.CNAE := DataModule1.EmpresaCNAEFiscal.AsString; if (Copy(DataModule1.EmpresaRegimeTributario.AsString, 1, 1)) = '1' then begin Emit.CRT := crtSimplesNacional; end; if (Copy(DataModule1.EmpresaRegimeTributario.AsString, 1, 1)) = '2' then begin Emit.CRT := crtSimplesExcessoReceita; end; if (Copy(DataModule1.EmpresaRegimeTributario.AsString, 1, 1)) = '3' then begin Emit.CRT := crtRegimeNormal; end; // Destinatario DataModule1.Produtor.Locate('NunNfe', IntToStr(NFeCodigoProdutor.AsInteger), []); Dest.CNPJCPF := DataModule1.ProdutorCpf.AsString; Dest.xNome := DataModule1.ProdutorNomeCoperado.AsString; Dest.IE := DataModule1.ProdutorInscricaoEstadual.AsString; // Dest.ISUF := DataModule1.ProdutorUf.AsString; Dest.EnderDest.xLgr := DataModule1.ProdutorEnderecoResidencial.AsString; Dest.EnderDest.nro := IntToStr(DataModule1.ProdutorNunResidencia.AsInteger); Dest.EnderDest.xBairro := DataModule1.ProdutorBairro.AsString; Dest.EnderDest.cMun := DataModule1.ProdutorCodigoMunicipio.AsInteger; Dest.EnderDest.xMun := DataModule1.ProdutorCidade.AsString; Dest.EnderDest.UF := DataModule1.ProdutorUf.AsString; Dest.EnderDest.CEP := DataModule1.ProdutorCep.AsInteger; Dest.EnderDest.cPais := 1058; Dest.EnderDest.xPais := 'BRASIL'; Dest.EnderDest.fone := DataModule1.ProdutorFone.AsString; // Itens NFe NunID := 0; while not ItensNFEFiscal.Eof do begin Inc(NunID); with Det.Add do begin Prod.nItem := NunID; Prod.cProd := IntToStr(ItensNFEFiscalcodigoProduto.AsInteger); Prod.cEAN := ItensNFEFiscalCodigoEAN13.AsString; Prod.xProd := ItensNFEFiscalProduto.AsString; Prod.NCM := ItensNFEFiscalCodigoNCM.AsString; Prod.CFOP := IntToStr(ItensNFEFiscalCFOP.AsInteger); Prod.uCom := ItensNFEFiscalUnidadeTributo.AsString; Prod.vUnCom := ItensNFEFiscalValorUnitarioTributo.AsFloat; Prod.vProd := ItensNFEFiscalValorTotalBruto.AsFloat; // ItensNFEFiscalValorTotalBruto.AsFloat; Prod.cEANTrib := ''; Prod.uTrib := ItensNFEFiscalUnidadeTributo.AsString; Prod.vUnTrib := ItensNFEFiscalValorUnitarioTributo.AsFloat; if ItensNFEFiscalTipoTributo.AsInteger <> 0 then begin Prod.qTrib := ItensNFEFiscalQtdTributo.AsFloat; end else Prod.qTrib := 0; Prod.IndTot := itSomaTotalNFe; Prod.EXTIPI := ''; Prod.qCom := ItensNFEFiscalQtdComercial.AsFloat; Prod.vFrete := 0; Prod.vSeg := 0; Prod.vDesc := ItensNFEFiscalDesconto.AsFloat; with Imposto do begin with ICMS do begin if ItensNFEFiscalTipoTributo.AsInteger = 0 then // 0 - Tributado begin CST := cst00; CSOSN := csosn101; ICMS.orig := oeNacional; ICMS.modBC := dbiValorOperacao; ICMS.vBC := ItensNFEFiscalValorUnitarioTributo.AsFloat; ICMS.pICMS := ItensNFEFiscalAliqICMS.AsFloat; ICMS.vICMS := (ItensNFEFiscalValorUnitarioTributo.AsFloat * ItensNFEFiscalAliqICMS.AsFloat) / 100; ICMS.modBCST := dbisMargemValorAgregado; ICMS.pMVAST := 0; ICMS.pRedBCST := 0; ICMS.vBCST := 0; ICMS.pICMSST := 0; ICMS.vICMSST := 0; ICMS.pRedBC := 0; end; if ItensNFEFiscalSituacaotributariaICMS.AsInteger = 60 then // 60 - Cobrado anteriormente por ST begin // ICMS.CSOSN := csosn101; // DEIXEI FIXO POIS SO TEM UMA EMPRESA Q USA ISSO ICMS.CST := cst60; ICMS.vBCSTRet := 0; ICMS.vICMSSTRet := 0; end; if ItensNFEFiscalSituacaotributariaICMS.AsInteger = 40 then //40 - Isenta begin // ICMS.CSOSN := csosn101; // DEIXEI FIXO POIS SO TEM UMA EMPRESA Q USA ISSO ICMS.CST := cst40; ICMS.vBCSTRet := 0; ICMS.vICMSSTRet := 0; end; end; // fechado icms with IPI do begin cEnq := IntToStr(ItensNFEFiscalCodigoEnquadramentoIPI.AsInteger); case ItensNFEFiscalSituacaotributariaIPI.AsInteger of 00: CST := ipi00; 01: CST := ipi01; 02: CST := ipi02; 03: CST := ipi03; 04: CST := ipi04; 05: CST := ipi05; 49: CST := ipi49; 50: CST := ipi50; 51: CST := ipi51; 52: CST := ipi52; 53: CST := ipi53; 54: CST := ipi54; 55: CST := ipi55; 99: CST := ipi99; end; end; with PIS do begin CST := pis07; with COFINS do begin CST := cof07; end; end; end; ItensNFEFiscal.Next; end; // informações finais da NFe // DmNFe.Dados_Tributos(CdsNFeID.AsInteger); Total.ICMSTot.vBC := 0; //Total.ICMSTot.vICMS := DmNFe.CdsTributoVAL_ICMS.AsFloat; //Total.ICMSTot.vBCST := DmNFe.CdsTributoBASE_ST.AsFloat; Total.ICMSTot.vST := (ItensNFEFiscalValorUnitarioTributo.AsFloat * ItensNFEFiscalAliqICMS.AsFloat) / 100; Total.ICMSTot.vProd := NFeValorNFe.AsFloat; Total.ICMSTot.vFrete := 0; Total.ICMSTot.vSeg := 0; Total.ICMSTot.vDesc := 0; Total.ICMSTot.vII := 0; Total.ICMSTot.vIPI := 0; Total.ICMSTot.vPIS := 0; Total.ICMSTot.vCOFINS := 0; Total.ICMSTot.vOutro := 0; Total.ICMSTot.vNF := NFeValorNFe.AsFloat; // Total.ISSQNtot.vServ := 0; Total.ISSQNtot.vBC := 0; Total.ISSQNtot.vISS := 0; Total.ISSQNtot.vPIS := 0; Total.ISSQNtot.vCOFINS := 0; // Total.retTrib.vRetPIS := 0; Total.retTrib.vRetCOFINS := 0; Total.retTrib.vRetCSLL := 0; Total.retTrib.vBCIRRF := 0; Total.retTrib.vIRRF := 0; Total.retTrib.vRetPrev := 0; // transportara { Transp.Transporta.CNPJCPF := ''; Transp.Transporta.xNome := ''; Transp.Transporta.IE := ''; Transp.Transporta.xEnder := ''; Transp.Transporta.xMun := ''; Transp.Transporta.UF := ''; with Transp.Reboque.Add do begin placa := ''; UF := ''; RNTC := ''; end; } { 0 - Por conta do emitente 1 - Por conta do destinatário / emitente 2 - Por conta de terceiros 9 - Sem frete } Transp.modFrete := mfSemFrete; with Transp.Vol.Add do begin qVol := NFeQuantidadeFrete.AsInteger; esp := (Trim(NFeEspecieFrete.AsString)); marca := ''; nVol := ''; pesoL := NFePesoLiquidoFrete.AsFloat; pesoB := NFePesoBrutoFrete.AsFloat; end; InfAdic.infCpl := (Trim(NFeInfComplementar.AsString)); { with InfAdic.obsCont.Add do begin xCampo := (Trim(NFeInfAdicional.AsString)); xTexto := (Trim(NFeInfComplementar.AsString)); end; with InfAdic.obsFisco.Add do begin xCampo := ''; xTexto := ''; end; } end; end; DataModule1.ACBrNFe1.NotasFiscais.Valida; DataModule1.ACBRNFe1.Configuracoes.Geral.PathSalvar := IncludeTrailingPathDelimiter('D:\Sistemas Infornet®\Coperpan\NFe\'); DataModule1.ACBrNFe1.NotasFiscais.Items[0].SaveToFile; Gauge3.Progress := Gauge3.Progress + 1; Next; end; end;

Olá a todos, estou com um problema na hr de gerar meu xml, e o seguinte, tenho que gerar varias nfe de uma vez, mas o primeiro xml gera os itens normal mas já o segundo pega os itens do primeiro e fica junto com o do segundo, e assim por diante, tipo a nota 3 ja pega os itens da 1 da 2 e o da 3, ficaria grato se puderem me ajudar estou parado neste problema e o cliente esta me cobrando, abraços a tosos

Olá Regys, me desculpa c estou fugindo um pouco do assunto mas estou com problemas no cancelamento eu não entendi a parte de seu codigo de cancelamento desta parte // retornos DataHoraEvento := EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento; NumeroProtocolo := EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; XMLCancelamento := EventoRetorno.retEvento.Items[0].RetInfEvento.XML; CodigoStatus := EventoRetorno.retEvento.Items[0].RetInfEvento.cStat; MotivoStatus := EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo; o que é DataHoraEvento, NumeroProtocolo, XMLCancelamento, CodigoStatus, MotivoStatus, e como faço para alimenta-los, obrigado c puder me ajudar, um abraço

Olá a todos, no meu caso não funcionou setando a propriedade para false, ceto ela para false e mesmo assim ta la os "OK" para clicar, eu uso um so componente em um datamodulo, e ja exclui o componente e pus um novo configurei novamente e nada de sair as mensagens c alguem puder me ajudar fico grato.

Olá a todos, estou com um problema na hr em q vou cancela a nfe, esta dando a mensagem no final "rejeição: desativado de acordo com o ajuste sinief 16/2012. usar o evento de cancelamento nt 2011/006", grato pela atenção

Olá amigos, estou com um problemão, estava usando o meu sistema no Win7 34 bits e formatei meu pc o qual desenvolvo meus sistemas para o Win8 pro 64 bits, agora nun consigo validar minha NFe da o seguinte erro " rotina de inicialização da biblioteca de vínculo dinâmico (DLL) falhou", algum poderia esta me ajudando como resolver, desde ja agradeço a todos.

Olá a todos, como faço para pegar o Código do município selecionado, para estar alimentando o componente acbrnfe para gerar o DANFE, agradeço a todos pela atenção.

Amigos sera q nun da para vcs detalhar as instalação do do acbDANFE para quickreport para delphi 2010 e se tiver algum arquivo para baixa q deixem tambem o link, desde ja agradeço a todos

to precisando para o delphi 2010