André Gustavo

Bom dia! Estou sim! veja como estou enviando: Já enviei dessa forma para que fique de acordo com o solicitado pela empresa: wtexto := cdsConsultaNUMEROBOLETO.Text; => 33 while Length(wtexto) < 7 do wtexto := '0' + wtexto; wtexto := '262' + wtexto; NossoNumero := wtexto; E também ja enviei dessa forma: NossoNumero := cdsConsultaNUMEROBOLETO.Text; => 33 Grato André BRADESCO DANIEL_remessa_51.txt

Olá pessoal, Estou com um problema ao gerar arquivo remessa do banco bradesco, o campo nosso número está indo em branco. Existe alguma configuração necessária para que este campo saia? no exemplo do cliente teria que ser assim: Nosso Número - 26200000001-D onde: 262 é o prefixo fornecido pelo FIDC NEGOCIAL NP para CASA DO PEIXE LTDA. Sequencial - 00000001 até 99999999 é um sequencial da numeração do Nosso número. Digito – D - Calculado conforme Instruções do manual Cobrança Bradesco levando em consideração o número da carteira para o cálculo do digito André

Para pegar essas novas funçoes tem que atualizar o ACBr todo? Para pegar essa ValidarPrefixoGTIN('6845623830306'))" tem que atualizar o ABCr todo? André

Tem vários que estão certos. exemplo: 7812081180006 André

Estou com o mesmo problema do pessoal acima. No teste com o ValidarGTIN() e EAN13Valido() o código está OK, mas na SEFAZ não passa, o que poderá ser? André 26180710869068000165650010000062681000062687-nfe.xml

O que eu tenho que alterar no xml? André

Entrei em contato com o pessoal da Sefaz PE e eles falaram que pode ser a webService que estou enviando. Vou te passar a lista abaixo, neste caso como passo o meu xml na tag <cUF> já que ele usa a SVRS? André

ok, pode ser isso entao, certo? vou dá uma olhadinha pq está indo três vezes no arquivo xml. Vlw!

Vou te enviar o q eu estou fazendo para chegar nesse erro: procedure TFConfirma2.GerarNFCe(NumNFe: Integer; Loja: Integer; Serie: String); var Qry : Tquery; aNumIten : Integer; wtotalProduto, wTotalNota : Double; wtotPis, wTotCofins,wV_II : Double; wvlrFrete, wTotalFrete : Double; wvlrOutrasDesp, wTotalOutrasDesp : Double; wvalorParcela : Double; wnumeroFat : String; wDesconto_item : double; wtotalGeralProduto : double; wtotalGeralDesconto : double; wbaseIcmsProduto : double; wvalorTotalIcms : double; w_totIpi : double; wProduto : string; wtexto : String; iNum : Integer; wDescProduto : String; wlotesProduto : String; wNomeXml:String; wTotalICMSUFDest, wTotalICMSUFRemet: double; wMva_ajustada : double; wMva_original : double; wvalorBaseICMS, wTotalBaseICMS, wValorICMS, wTotalICMS, wValorBCST, wTotalBCST, wValorICMSST, wtotalICMSST : double; worcaVenda : String; wPercDescontoItem : double; begin DM.ConsultaLoja(ploja); Query4.Close; Query4.Sql.Clear; Query4.Sql.Add('Update Venda Set TIPo = :xTIPO'); Query4.Sql.Add('WHERE (NUMERO = :xNumero)'); Query4.Sql.Add('AND (LOJA = :xloja)'); Query4.ParamByName('xnumero').AsInteger := StrToInt(Edit4.Text); Query4.ParamByName('xloja').AsInteger := Ploja; Query4.ParamByName('xTIPO').AsString := 'X'; Query4.ExecSQL; AtualizaConfigAcBr; //DM.ACBrNFe1.NotasFiscais.Clear; DM.ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; DM.ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; DM.ACBrNFe1.Configuracoes.Geral.IncluirQRCodeXMLNFCe := True; with DM.ACBrNFe1.NotasFiscais.Add.NFe do begin Ide.cNF := NumNFe; //Caso não seja preenchido será gerado um número aleatório pelo componente Ide.natOp := 'VENDA'; Ide.indPag := ipVista; Ide.modelo := 65; Ide.serie := 1; Ide.nNF := NumNFe; Ide.dEmi := now; Ide.dSaiEnt := now; Ide.hSaiEnt := now; Ide.tpNF := tnSaida; Ide.tpEmis := teNormal; // TpcnTipoEmissao(1); Ide.tpAmb := taHomologacao; //Lembre-se de trocar esta variável quando for para ambiente de produção Ide.cUF := UFtoCUF('RS'); Ide.cMunFG := StrToInt('26' + DM.TlojaCODCIDADE.Text); Ide.finNFe := fnNormal; Ide.tpImp := tiNFCe; Ide.indFinal := cfConsumidorFinal; Ide.indPres := pcPresencial; // Ide.dhCont := date; // Ide.xJust := 'Justificativa Contingencia'; Emit.CNPJCPF := DM.TiraPontoCPF(DM.TlojaCGC.Text); Emit.IE := DM.TiraPontoCPF(DM.TlojaINSCRICAOESTADUAL.Text); Emit.xNome := DM.TlojaNOME.Text; Emit.xFant := DM.TlojaNOMEFANTASIA.Text; Emit.EnderEmit.fone := DM.TiraPontoCPF(DM.TlojaTELEFONE.Text); Emit.EnderEmit.CEP := StrToInt(DM.TiraPontoCPF( DM.TlojaCEP.Text )); Emit.EnderEmit.xLgr := DM.TlojaENDERECO.Text; Emit.EnderEmit.nro := DM.TlojaNUMLOGRADOURO.Text; Emit.EnderEmit.xCpl := ''; Emit.EnderEmit.xBairro := DM.TlojaBAIRRO.Text; Emit.EnderEmit.cMun := StrToInt('26' + DM.TlojaCODCIDADE.Text); Emit.EnderEmit.xMun := DM.TlojaCIDADE.Text; Emit.EnderEmit.UF := DM.TlojaUF.Text; Emit.enderEmit.cPais := 1058; Emit.enderEmit.xPais := 'BRASIL'; Emit.IEST := ''; // Emit.IM := '2648800'; // Preencher no caso de existir serviços na nota // Emit.CNAE := '6201500'; // Verifique na cidade do emissor da NFe se é permitido // a inclusão de serviços na NFe Emit.CRT := crtRegimeNormal;// (1-crtSimplesNacional, 2-crtSimplesExcessoReceita, 3-crtRegimeNormal) If pCpfCnpjContribuinte <> '' then Dest.CNPJCPF := '05481336000137' else Dest.CNPJCPF := ''; // Dest.IE := '687138770110'; //NFC-e não aceita IE Dest.ISUF := ''; If Pcliente > 0 then begin DM.Tcliente.Close; DM.Tcliente.SQL.Clear; DM.Tcliente.SQL.Add('Select * from Cliente'); DM.Tcliente.SQL.Add('Where (Codigo = :xcodigo)'); DM.Tcliente.ParamByName('xCodigo').AsInteger := pCliente; DM.Tcliente.Open; Dest.xNome := TiraCaracterEspecial(DM.TclienteNOME.Text); Dest.EnderDest.Fone := DM.TiraPontoCPF(DM.TclienteFONE.Text); Dest.EnderDest.CEP := StrToInt(DM.TiraPontoCPF(DM.TclienteCEP.Text)); Dest.EnderDest.xLgr := TiraCaracterEspecial(DM.TclienteENDERECO.Text); Dest.EnderDest.nro := DM.TclienteNUMLOGRADOURO.Text; Dest.EnderDest.xCpl := ''; Dest.EnderDest.xBairro := TiraCaracterEspecial(DM.TclienteBAIRRO.Text); Dest.EnderDest.cMun := StrToInt('26' + DM.TclienteCODCIDADE.Text); Dest.EnderDest.xMun := TiraCaracterEspecial(DM.TclienteCIDADE.Text); Dest.EnderDest.UF := DM.TclienteESTADO.Text; Dest.EnderDest.cPais := 1058; Dest.EnderDest.xPais := 'BRASIL'; end else begin Dest.xNome := ''; Dest.EnderDest.Fone := ''; Dest.EnderDest.CEP := 0; Dest.EnderDest.xLgr := ''; Dest.EnderDest.nro := ''; Dest.EnderDest.xCpl := ''; Dest.EnderDest.xBairro := ''; Dest.EnderDest.cMun := 0; Dest.EnderDest.xMun := ''; Dest.EnderDest.UF := ''; Dest.EnderDest.cPais := 0; Dest.EnderDest.xPais := ''; end; //Adicionando Produtos aNumIten := 0; wtotalProduto :=0; wTotalNota := 0; wtotPis := 0; wTotCofins := 0; wV_II := 0; wtotalGeralProduto := 0; wtotalGeralDesconto := 0; wbaseIcmsProduto := 0; wvalorTotalIcms := 0; w_totIpi := 0; wTotalICMSUFDest := 0; wTotalICMSUFRemet := 0; wTotalFrete := 0; wTotalOutrasDesp := 0; wValorBCST := 0; wTotalBCST := 0; wValorICMSST := 0; wtotalICMSST := 0; wvalorBaseICMS := 0; wTotalBaseICMS := 0; wValorICMS := 0; wTotalICMS := 0; pTotImposto := 0; DM.Tauxvenda.First; While not DM.Tauxvenda.EOF do Begin If DM.TauxvendaCancelado.Text = 'S' then begin DM.Tauxvenda.Next; Continue; end; Query6.Close; Query6.ParamByName('xcodigo').AsString := DM.TauxvendaCodigo.Text; Query6.Open; inc(aNumIten); with Det.Add do begin Prod.nItem := aNumIten; ; // Número sequencial, para cada item deve ser incrementado Prod.cProd := Query6CODIGO.Text; If Query6CODBARRA.text <> '' then Prod.cEAN := TiraCaracterEspecial (Trim(Query6CODBARRA.Text)) else Prod.cEAN := NullAsStringValue; Prod.xProd := Query6DESCRICAO.Text; Prod.NCM := Query6NCM.Text; // Tabela NCM disponível em http://www.receita.fazenda.gov.br/Aliquotas/DownloadArqTIPI.htm Prod.EXTIPI := ''; Prod.CFOP := '5101'; Prod.uCom := TiraCaracterEspecial(Trim(copy(Query6DESCUNIDADE.Text,1,3))); Prod.qCom := DM.TauxVendaQuantidade.Value; Prod.vUnCom := DM.TauxVendaPreco.Value; If not Query6CODBARRA.IsNull then Prod.cEANTrib := TiraCaracterEspecial(Trim(Query6CODBARRA.Text)) else Prod.cEANTrib := NullAsStringValue; Prod.uTrib := TiraCaracterEspecial(Trim(copy(Query6DESCUNIDADE.Text,1,3))); Prod.qTrib := DM.TauxVendaQuantidade.Value; Prod.vUnTrib := DM.TauxVendaPreco.Value; Prod.vOutro := 0; Prod.vFrete := 0; Prod.vSeg := 0; //--Obtendo Percentual de Desconto wPercDescontoItem := RetornaPercDesconto(pDesconto, pTotal + pDesconto); wDesconto_item := (DM.TauxVendaQuantidade.Value * DM.TauxVendaPreco.Value) * wPercDescontoItem / 100; Prod.vDesc := wDesconto_item; Prod.vProd := (DM.TauxVendaQuantidade.Value * DM.TauxVendaPreco.Value); If Query6ICMSVENDA.Value > 0 then begin wbaseIcmsProduto := DM.TauxVendaQuantidade.Value * DM.TauxVendaPreco.Value; wvalorTotalIcms := wvalorTotalIcms + (wbaseIcmsProduto * Query6ICMSVENDA.Value / 100 ); end; Prod.CEST := Query6CODCEST.Text; // infAdProd := 'Informação Adicional do Produto'; If DM.TlojaTIPOEMPRESA.Text = 'Normal' then begin with Imposto do begin vTotTrib := DM.RetornaValorImposto(Query6NCM.Text, 'N', DM.TauxvendaTotal.Value); with ICMS do begin If Query6TRIBUTADO.Text = 'T' then // Tributado begin If copy(Query6CST.Text,2,2) = '00' then begin CST := cst00; CSOSN := csosn101; If Copy(Query6CST.Text,1,1) = '0' then ICMS.orig := oeNacional else if Copy(Query6CST.Text,1,1) = '1' then ICMS.orig := oeEstrangeiraImportacaoDireta else if Copy(Query6CST.Text,1,1) = '2' then ICMS.orig := oeEstrangeiraAdquiridaBrasil; ICMS.modBC := dbiValorOperacao; wvalorBaseICMS := wbaseIcmsProduto; If Query6ICMSVENDA.Value > 0 then ICMS.vBC := wvalorBaseICMS else ICMS.vBC := 0; wValorICMS := ( wbaseIcmsProduto * Query6ICMSVENDA.Value) / 100; ICMS.pICMS := Query6ICMSVENDA.Value; If Query6ICMSVENDA.Value > 0 then ICMS.vICMS := wValorICMS else ICMS.vICMS := 0; ICMS.modBCST := dbisPrecoTabelado; ICMS.pMVAST := 0; ICMS.pRedBCST := 0; ICMS.vBCST := 0; ICMS.pICMSST := 0; ICMS.vICMSST := 0; ICMS.pRedBC := 0; wTotalBaseICMS := wTotalBaseICMS + wvalorBaseICMS; wTotalICMS := wTotalICMS + wValorICMS; end; end; if Query6TRIBUTADO.Text = 'F' then // Sub. Tributaria begin //--Origem If Copy(Query6CST.Text,1,1) = '0' then ICMS.orig := oeNacional else if Copy(Query6CST.Text,1,1) = '1' then ICMS.orig := oeEstrangeiraImportacaoDireta else if Copy(Query6CST.Text,1,1) = '2' then ICMS.orig := oeEstrangeiraAdquiridaBrasil; //--CST If Copy(Query6CST.Text,2,3) = '10' then CST := cst10 else CST := cst60; //--MODBC ICMS.modBC := dbiValorOperacao; ICMS.pRedBC := 0; //---ICMS do Produto If Copy(Query6CST.Text,2,3) = '10' then begin wvalorBaseICMS := wbaseIcmsProduto; ICMS.vBC := wvalorBaseICMS; end else begin wvalorBaseICMS := 0; ICMS.vBC := 0; end; wValorICMS := Query6ICMSVENDA.Value * wbaseIcmsProduto / 100; ICMS.pICMS := Query6ICMSVENDA.Value; ICMS.vICMS := wValorICMS; //--MVA ICMS.pMVAST := 0.0000; ICMS.pRedBCST := 100; ICMS.modBCST := dbisMargemValorAgregado; //--Calculando o valor da base da Subst Tributaria wMva_original := 80; If Copy(Query6CST.Text,2,3) = '10' then begin ICMS.vBCST := wbaseIcmsProduto; ICMS.pICMSST := 18; wValorICMSST := ((wbaseIcmsProduto * 18) / 100) - ( (wbaseIcmsProduto * Query6ICMSVENDA.Value) / 100); ICMS.vICMSST := wValorICMSST; end else begin ICMS.vBCST := 0; wValorICMSST := 0; ICMS.vICMSST := 0; end; If Copy(Query6CST.Text,2,3) = '10' then wTotalBCST := wTotalBCST + wbaseIcmsProduto; wtotalICMSST := wtotalICMSST + wValorICMSST; wTotalBaseICMS := wTotalBaseICMS + wvalorBaseICMS; wTotalICMS := wTotalICMS + wValorICMS; end; if Query6TRIBUTADO.Text = 'I' then // Isento begin CST := cst40; ICMS.orig := oeNacional; ICMS.modBC := dbiValorOperacao; ICMS.vBCST := 0; ICMS.modBCST := dbisMargemValorAgregado; ICMS.pMVAST := 0; ICMS.pRedBCST := 0; ICMS.pICMSST := 0; ICMS.vICMSST := 0; ICMS.pRedBC := 0; end; if Query6TRIBUTADO.Text = 'N' then // Não Tributado begin CST := cst41; ICMS.orig := oeNacional; ICMS.modBC := dbiValorOperacao; ICMS.vBCST := 0; ICMS.modBCST := dbisMargemValorAgregado; ICMS.pMVAST := 0; ICMS.pRedBCST := 0; ICMS.pICMSST := 0; ICMS.vICMSST := 0; ICMS.pRedBC := 0; end; //--- fim icms end; // partilha do ICMS e fundo de probreza with ICMSUFDest do begin vBCUFDest := 0.00; pFCPUFDest := 0.00; pICMSUFDest := 0.00; pICMSInter := 0.00; pICMSInterPart := 0.00; vFCPUFDest := 0.00; vICMSUFDest := 0.00; vICMSUFRemet := 0.00; end; {with PIS do begin CST := pis99; PIS.vBC := 0; PIS.pPIS := 0; PIS.vPIS := 0; PIS.qBCProd := 0; PIS.vAliqProd := 0; PIS.vPIS := 0; end; with PISST do begin vBc := 0; pPis := 0; qBCProd := 0; vAliqProd := 0; vPIS := 0; end; with COFINS do begin CST := cof99; COFINS.vBC := 0; COFINS.pCOFINS := 0; COFINS.vCOFINS := 0; COFINS.qBCProd := 0; COFINS.vAliqProd := 0; end; with COFINSST do begin vBC := 0; pCOFINS := 0; qBCProd := 0; vAliqProd := 0; vCOFINS := 0; end;} //Grupo para serviços {with ISSQN do begin vBC := 0; vAliq := 0; vISSQN := 0; cMunFG := 0; cListServ := 1402; // Preencha este campo usando a tabela disponível // em http://www.planalto.gov.br/Ccivil_03/LEIS/LCP/Lcp116.htm end;} end; end; end; pTotImposto := pTotImposto + DM.RetornaValorImposto(Query6NCM.Text, 'N', DM.TauxvendaTotal.Value); wtotalGeralProduto := wtotalGeralProduto + DM.TauxVendaTotal.Value; wtotalGeralDesconto := wtotalGeralDesconto + wDesconto_item; DM.TauxVenda.Next; end; wTotalNota := wtotalGeralProduto - wtotalGeralDesconto; //Adicionando Serviços { with Det.Add do begin Prod.nItem := 1; // Número sequencial, para cada item deve ser incrementado Prod.cProd := '123457'; Prod.cEAN := ''; Prod.xProd := 'Descrição do Serviço'; Prod.NCM := '99'; Prod.EXTIPI := ''; Prod.CFOP := '5933'; Prod.uCom := 'UN'; Prod.qCom := 1 ; Prod.vUnCom := 100; Prod.vProd := 100 ; Prod.cEANTrib := ''; Prod.uTrib := 'UN'; Prod.qTrib := 1; Prod.vUnTrib := 100; Prod.vFrete := 0; Prod.vSeg := 0; Prod.vDesc := 0; infAdProd := 'Informação Adicional do Serviço'; //Grupo para serviços with Imposto.ISSQN do begin cSitTrib := ISSQNcSitTribNORMAL; vBC := 100; vAliq := 2; vISSQN := 2; cMunFG := 3554003; cListServ := 1402; // Preencha este campo usando a tabela disponível // em http://www.planalto.gov.br/Ccivil_03/LEIS/LCP/Lcp116.htm end; end ; } Total.ICMSTot.vBC := wTotalBaseICMS; Total.ICMSTot.vICMS := wTotalICMS; Total.ICMSTot.vBCST := wTotalBCST; Total.ICMSTot.vST := wtotalICMSST; Total.ICMSTot.vProd := wtotalGeralProduto; Total.ICMSTot.vFrete := 0; Total.ICMSTot.vSeg := 0; Total.ICMSTot.vDesc := wtotalGeralDesconto; Total.ICMSTot.vII := 0; Total.ICMSTot.vIPI := 0; Total.ICMSTot.vPIS := 0; Total.ICMSTot.vCOFINS := 0; Total.ICMSTot.vOutro := 0; Total.ICMSTot.vNF := wTotalNota; Total.ICMSTot.vTotTrib := pTotImposto; // partilha do icms e fundo de probreza Total.ICMSTot.vFCPUFDest := 0.00; Total.ICMSTot.vICMSUFDest := 0.00; Total.ICMSTot.vICMSUFRemet := 0.00; 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.vBCRetPrev := 0; Total.retTrib.vRetPrev := 0;} Transp.modFrete := mfSemFrete; // NFC-e não pode ter FRETE { Cobr.Fat.nFat := 'Numero da Fatura'; Cobr.Fat.vOrig := 100 ; Cobr.Fat.vDesc := 0 ; Cobr.Fat.vLiq := 100 ; with Cobr.Dup.Add do begin nDup := '1234'; dVenc := now+10; vDup := 50; end; with Cobr.Dup.Add do begin nDup := '1235'; dVenc := now+10; vDup := 50; end; } //---- passando forma de pagamento DM.Ttipopaga.Close; DM.Ttipopaga.Open; DM.Tauxpaga.First; While not DM.Tauxpaga.Eof do Begin DM.Ttipopaga.Locate('codigo', DM.TauxPagaTipo.Value, []); with pag.Add do //PAGAMENTOS apenas para NFC-e begin If copy(DM.TtipopagaTPNFCE.Text,1,2) = '01' then tPag := fpDinheiro else If copy(DM.TtipopagaTPNFCE.Text,1,2) = '02' then tPag := fpCheque else If copy(DM.TtipopagaTPNFCE.Text,1,2) = '03' then tPag := fpCheque else If copy(DM.TtipopagaTPNFCE.Text,1,2) = '04' then tPag := fpCheque else If copy(DM.TtipopagaTPNFCE.Text,1,2) = '05' then tPag := fpCheque else If copy(DM.TtipopagaTPNFCE.Text,1,2) = '06' then tPag := fpCheque else If copy(DM.TtipopagaTPNFCE.Text,1,2) = '07' then tPag := fpCheque else If copy(DM.TtipopagaTPNFCE.Text,1,2) = '08' then tPag := fpCheque else If copy(DM.TtipopagaTPNFCE.Text,1,2) = '09' then tPag := fpCheque else tPag := fpDinheiro; If copy(DM.TtipopagaTPNFCE.Text,1,2) = '01' then vPag := DM.TauxpagaValor.Value - pTroco else vPag := DM.TauxpagaValor.Value; end; // valorpago := Trim(DM.TauxpagaValor.text); //IRetorno := aCFEfetuarPagamento_NFCe_Daruma(copy(DM.TauxpagaDescricao.Text,1,20), FormatFloat('###0.00',DM.TauxpagaValor.Value)); //FmensagemNFCe.Repaint; DM.Tauxpaga.Next; end; InfAdic.infAdFisco := ''; DM.ACBrNFe1.DANFE.vTroco := ptroco; //---- termina cupom mensagem := ''; If pOrcamento > 0 then begin worcavenda := inttostr(pOrcamento); While Length(worcavenda) < 10 do worcavenda := '0' + worcavenda; worcavenda := 'PV' + worcavenda; mensagem := mensagem + worcavenda + chr(13) + chr(10); end; If pNumero > 0 then begin worcavenda := inttostr(pNumero); While Length(worcavenda) < 10 do worcavenda := '0' + worcavenda; worcavenda := 'No.Venda: ' + worcavenda; mensagem := mensagem + worcavenda + chr(13) + chr(10); end; mensagem := mensagem + 'MD5:'+MD5Print(MD5file('c:\mercado\identificacao.txt')) + chr(13) + chr(10); If Pcliente > 0 then begin DM.Tcliente.Close; DM.Tcliente.ParamByName('xCodigo').AsInteger := Pcliente; DM.Tcliente.Open; If not DM.Tcliente.Eof then begin mensagem := mensagem + DM.TclienteNOME.Text + chr(13) + chr(10); If DM.TclienteENDERECO.Text <> '' then mensagem := mensagem + DM.TclienteENDERECO.Text + chr(13) + chr(10); If DM.TclienteBAIRRO.Text <> '' then mensagem := mensagem + DM.TclienteBAIRRO.Text + chr(13) + chr(10); If DM.TclienteCIDADE.Text <> '' then mensagem := mensagem + DM.TclienteCIDADE.Text + '-' + DM.TclienteESTADO.Text + chr(13) + chr(10); If Length(DM.TclienteCPF.Text) = 14 then mensagem := mensagem + 'CPF: ' + DM.TclienteCPF.Text + chr(13) + chr(10); If Length(DM.TclienteCGC.Text) = 18 then mensagem := mensagem + 'CNPJ: ' + DM.TclienteCGC.Text + chr(13) + chr(10); end; end; mensagem := mensagem + 'Obrigado e volte sempre!!' + chr(13) + chr(10); InfAdic.infCpl := mensagem; { with InfAdic.obsCont.Add do begin xCampo := 'ObsCont'; xTexto := 'Texto'; end; with InfAdic.obsFisco.Add do begin xCampo := 'ObsFisco'; xTexto := 'Texto'; end; } end; DM.ACBrNFe1.NotasFiscais.GerarNFe; DM.ACBrNFe1.NotasFiscais.Assinar; DM.ACBrNFe1.NotasFiscais.Items[0].GravarXML(); Qry := TQuery.Create(nil); Qry.DatabaseName := 'Mercado'; Qry.Close; Qry.SQL.Clear; Qry.SQL.Add('Update Venda set xmlnfe = :wxmlnfe'); Qry.SQL.Add('Where (Numero = :wNumero)'); Qry.SQL.Add('And (Loja = :wLoja)'); Qry.ParamByName('wNumero').AsInteger := pNumero; Qry.ParamByName('wLoja').AsInteger := ploja; Qry.ParamByName('wxmlnfe').AsString := DM.ACBrNFe1.NotasFiscais.Items[0].NomeArq; Qry.ExecSQL; // ValidarXML_NFCe(DM.ACBrNFe1.NotasFiscais.Items[0].NomeArq); //EnviarNFCe(DM.ACBrNFe1.NotasFiscais.Items[0].NomeArq); Qry.free; Qry := Nil; end; procedure TFconfirma2.EnviarNFCe(); var aChaveNfe, aRecibo, aProcolo : String; Qry : TQuery; werror : Boolean; warquivo : String; wNumLote : String; Sincrono : boolean; vSincrono : String; begin werror := false; wnumLote := IntToStr(DM.TparaNUMLOTE_NFCE.Value + 1); wnumLote := DM.FiltraNumeroLoteNfce(wnumLote); if Trim(wnumLote) = '' then begin ShowMessage('É necessário informar o numero do lote!'); exit; end; try If DM.TlojaAmbienteEmissao_nfce.Text = '0' then DM.ACBrNFe1.Configuracoes.WebServices.Ambiente := taProducao else DM.ACBrNFe1.Configuracoes.WebServices.Ambiente := taHomologacao; vSincrono := '1'; if (Trim(vSincrono) = '1') then Sincrono := True else Sincrono := False; //DM.ACBrNFe1.NotasFiscais.Clear; DM.ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; DM.ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; GerarNFCe(DM.PegaSequenciaNFCe(ploja),ploja,'001'); DM.ACBrNFe1.Enviar(wNumLote,True,Sincrono); aChaveNfe := DM.ACBrNFe1.WebServices.Retorno.ChaveNFe; aProcolo := DM.ACBrNFe1.WebServices.Retorno.Protocolo; aRecibo := DM.ACBrNFe1.WebServices.Retorno.Recibo; DM.ACBrNFe1.NotasFiscais.Clear; // ShowMessage(aProcolo); If aChaveNfe <> '' then begin Qry := TQuery.Create(nil); Qry.DatabaseName := 'Mercado'; Qry.Close; Qry.SQL.Clear; Qry.SQL.Add('Update venda set chaveNfe = :wChaveNfe, lotenfe = :wlotenfe, protocolonfe = :wprotocolonfe, recibonfe = :wrecibonfe'); Qry.SQL.Add('Where (Numero = :wNumero)'); Qry.SQL.Add('And (Loja = :wLoja)'); Qry.ParamByName('wNumero').AsInteger := pNumero; Qry.ParamByName('wLoja').AsInteger := pLoja; Qry.ParamByName('wChaveNfe').AsString := aChaveNfe; Qry.ParamByName('wloteNfe').AsString := wnumLote; Qry.ParamByName('wprotocoloNfe').AsString := aProcolo; Qry.ParamByName('wrecibonfe').AsString := aRecibo; Qry.ExecSQL; Qry.Free; Qry := Nil; DM.AtualizaLoteNfce(); //FnotaFiscalEletronca.GravaArqXML(arqXml); ShowMessage('Enviado com Sucesso, imprima seu documento fiscal (DANFE).'); end; Except on E : Exception do begin werror := true; ShowMessage(E.ClassName+' Erro ao enviar a NFe.Verifique!!! '+E.Message); end; end; end; procedure TFConfirma2.AtualizaConfigAcBr; var OK : Boolean; begin DM.ConsultaLoja(ploja); // realiza a leidura dos dados do arquivo de configuração //DM.LeArqIni; // Repassa Dados para componente AcBrNFe {$IFDEF ACBrNFeOpenSSL} DM.ACBrNFe1.configuracoes.Certificados.Certificado := DM.TlojaPATHCERTIFICADO_NFCE.Text; DM.AcBrNFe1.Configuracoes.Certificados.Senha := DM.TlojaSENHACERTIFICADO_NFCE.Text; {$ELSE} DM.ACBrNFe1.Configuracoes.Certificados.NumeroSerie := DM.TlojaNUMSERIECERTIFICADO_NFCE.Text; {$ENDIF} //Geral DM.ACBrNFe1.Configuracoes.Geral.FormaEmissao := StrToTpEmis(OK,IntToStr(0)); DM.ACBrNFe1.Configuracoes.Geral.Salvar := True; DM.ACBrNFe1.Configuracoes.Arquivos.PathSalvar := 'c:\mercado\nfce\'; //WebServices DM.ACBrNFe1.Configuracoes.WebServices.UF := DM.TlojaUF_NFCE.Text; DM.ACBrNFe1.Configuracoes.WebServices.Ambiente := StrToTpAmb(OK,DM.TlojaAMBIENTEEMISSAO_NFCE.Text); DM.ACBrNFe1.Configuracoes.WebServices.Visualizar := True; DM.ACBrNFe1.Configuracoes.WebServices.ProxyHost := DM.TlojaEMAIL_NFCE_HOST.Text; DM.ACBrNFe1.Configuracoes.WebServices.ProxyPort := DM.TlojaEMAIL_NFCE_PORTA.Text; DM.ACBrNFe1.Configuracoes.WebServices.ProxyUser := DM.TlojaEMAIL_NFCE_USUARIO.Text; DM.ACBrNFe1.Configuracoes.WebServices.ProxyPass := DM.TlojaEMAIL_NFCE_SENHA.Text; // if DM.ACBrNFe1.DANFE <> nil then begin DM.ACBrNFe1.DANFE.TipoDANFE := StrToTpImp(OK,'1'); DM.ACBrNFe1.DANFE.Logo := 'c:\mercado\logotipo.jpg'; end; end; 43170727614808000115650010000000011000000012-nfe.xml 1-env-lot.xml

Mas, o problema vai aparecer do mesmo jeito, não tem como me enviar o demo, pois já está pronto! O problema é que o cliente está esperando para colocar no Ar. André

Tem como vc me enviar o executável do demo? eu não estou conseguindo compilar ele. [email protected] Grato, André

Olá, bom dia! Estou com o mesmo problema ao tentar enviar para homologacao da sefaz de PE, a webservice aponta para RS. Vou anexar a mensagem do erro abaixo e a lista de webservices de PE. André

Olá, bom dia! Gostaria de saber se existe ainda alguma atualização para o trunk1 e se essa dá suporte as novas alterações da SEFAZ, se sim, como atualizar? André

Valeu Camilo, Funcionou! Abraços! André

Oi Camilo, Td bem? eu acho q algum erro no componente. Tb acho que logo logo alguem irá nos ajudar a resolver esse problema, conto com a ajuda de todos. André

Olá, Boa tarde, tive que reinstalar o acbr para corrigir alguns problemas no meu sistema, porém nao estou conseguindo instalar o componente acbr_boleto, se vc souberem o que está acontecendo fico muito grato. Segue abaixo o log do erro: Compiling package C:\ACBr\\Pacotes\Delphi\ACBrBoleto\ACBr_Boleto.dpk "C:\Arquivos de programas\Borland\Delphi7\bin\dcc32.exe" "C:\ACBr\\Pacotes\Delphi\ACBrBoleto\ACBr_Boleto.dpk" -B -$O- -$W+ -$Y- -M -Q -H- -W- -DRELEASE -U"..\..\..\..\ARQUIV~1\Borland\Delphi7\lib" -U"$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib;$(DELPHI)\rx\Units;..\..\..\..\ARQUIV~1\Borland\Delphi7\WEBCAM~1\TCamera;..\..\..\..\ARQUIV~1\Borland\Delphi7\Boleto\source\Pascal;..\..\..\..\ARQUIV~1\Borland\Delphi7\Boleto\dcu;..\..\..\..\ARQUIV~1\Borland\Delphi7\Boleto\layouts;..\..\..\Fontes\ACBRCO~1;..\..\..\Fontes\ACBRDI~1;..\..\..\Fontes\ACBRSE~1;..\..\..\Fontes\ACBrNFe2;..\..\..\Fontes\PCN2;..\..\..\Fontes\synalist;..\..\..\Fontes\ACBRCA~1;..\..\..\Fontes\ACBRBO~1;..\..\..\Fontes\ACBrCTe;..\..\..\Fontes\ACBrPAF;..\..\..\Fontes\ACBRSI~1;..\..\..\Fontes\ACBrSPED;..\..\..\Fontes\ACBrTCP;..\..\..\..\ARQUIV~1\Borland\Delphi7\tiss\COMPON~1;..\..\..\..\ARQUIV~1\Borland\Delphi7\FORTES~1;..\..\..\..\Arquivos de programas\TecnoSpeed\NFe\fontes;..\..\..\..\Arquivos de programas\TecnoSpeed\NFe\demo;..\..\..\..\ARQUIV~1\Borland\Delphi7\Projects\Bpl;..\..\..\Fontes\ACBRBO~1\Logos;..\..\..\Fontes\ACBRBO~1\Logos\Colorido;..\..\..\Fontes\ACBRBO~1\Logos\PRETOB~1;..\..\..\Fontes\ACBRCO~2;..\..\..\Fontes\ACBRDI~1\ACBRFA~1;..\..\..\Fontes\ACBrLFD;..\..\..\Fontes\ACBrMDFe;..\..\..\Fontes\ACBrNFSe;..\..\..\Fontes\ACBrSAT;..\..\..\Fontes\ACBrSPED\ACBRSP~1;..\..\..\Fontes\ACBrSPED\ACBRSP~4;..\..\..\Fontes\ACBrSPED\ACBRSP~3;..\..\..\Fontes\ACBrSPED\ACBRSP~2;..\..\..\Fontes\ACBrTEFD;..\..\..\Fontes\Imagens;..\..\..\Fontes\SINTEG~1;..\..\..\Fontes\ACBrGNRE;..\..\..\Fontes\ACBrSEF2;..\..\..\Lib\Delphi\LibD7;..\..\..\Fontes\ACBrSPED\ACD822~1;..\..\..\Fontes\ZLibExGZ;..\..\..\Fontes\ZLibExGZ\win32;..\..\..\Fontes\ZLibExGZ\win64;..\..\..\Fontes\ZLibExGZ\zlib" -U"..\..\..\Lib\Delphi\LibD7" -I"$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib;$(DELPHI)\rx\Units;..\..\..\..\ARQUIV~1\Borland\Delphi7\WEBCAM~1\TCamera;..\..\..\..\ARQUIV~1\Borland\Delphi7\Boleto\source\Pascal;..\..\..\..\ARQUIV~1\Borland\Delphi7\Boleto\dcu;..\..\..\..\ARQUIV~1\Borland\Delphi7\Boleto\layouts;..\..\..\Fontes\ACBRCO~1;..\..\..\Fontes\ACBRDI~1;..\..\..\Fontes\ACBRSE~1;..\..\..\Fontes\ACBrNFe2;..\..\..\Fontes\PCN2;..\..\..\Fontes\synalist;..\..\..\Fontes\ACBRCA~1;..\..\..\Fontes\ACBRBO~1;..\..\..\Fontes\ACBrCTe;..\..\..\Fontes\ACBrPAF;..\..\..\Fontes\ACBRSI~1;..\..\..\Fontes\ACBrSPED;..\..\..\Fontes\ACBrTCP;..\..\..\..\ARQUIV~1\Borland\Delphi7\tiss\COMPON~1;..\..\..\..\ARQUIV~1\Borland\Delphi7\FORTES~1;..\..\..\..\Arquivos de programas\TecnoSpeed\NFe\fontes;..\..\..\..\Arquivos de programas\TecnoSpeed\NFe\demo;..\..\..\..\ARQUIV~1\Borland\Delphi7\Projects\Bpl;..\..\..\Fontes\ACBRBO~1\Logos;..\..\..\Fontes\ACBRBO~1\Logos\Colorido;..\..\..\Fontes\ACBRBO~1\Logos\PRETOB~1;..\..\..\Fontes\ACBRCO~2;..\..\..\Fontes\ACBRDI~1\ACBRFA~1;..\..\..\Fontes\ACBrLFD;..\..\..\Fontes\ACBrMDFe;..\..\..\Fontes\ACBrNFSe;..\..\..\Fontes\ACBrSAT;..\..\..\Fontes\ACBrSPED\ACBRSP~1;..\..\..\Fontes\ACBrSPED\ACBRSP~4;..\..\..\Fontes\ACBrSPED\ACBRSP~3;..\..\..\Fontes\ACBrSPED\ACBRSP~2;..\..\..\Fontes\ACBrTEFD;..\..\..\Fontes\Imagens;..\..\..\Fontes\SINTEG~1;..\..\..\Fontes\ACBrGNRE;..\..\..\Fontes\ACBrSEF2;..\..\..\Lib\Delphi\LibD7;..\..\..\Fontes\ACBrSPED\ACD822~1;..\..\..\Fontes\ZLibExGZ;..\..\..\Fontes\ZLibExGZ\win32;..\..\..\Fontes\ZLibExGZ\win64;..\..\..\Fontes\ZLibExGZ\zlib" -R"$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib;$(DELPHI)\rx\Units;..\..\..\..\ARQUIV~1\Borland\Delphi7\WEBCAM~1\TCamera;..\..\..\..\ARQUIV~1\Borland\Delphi7\Boleto\source\Pascal;..\..\..\..\ARQUIV~1\Borland\Delphi7\Boleto\dcu;..\..\..\..\ARQUIV~1\Borland\Delphi7\Boleto\layouts;..\..\..\Fontes\ACBRCO~1;..\..\..\Fontes\ACBRDI~1;..\..\..\Fontes\ACBRSE~1;..\..\..\Fontes\ACBrNFe2;..\..\..\Fontes\PCN2;..\..\..\Fontes\synalist;..\..\..\Fontes\ACBRCA~1;..\..\..\Fontes\ACBRBO~1;..\..\..\Fontes\ACBrCTe;..\..\..\Fontes\ACBrPAF;..\..\..\Fontes\ACBRSI~1;..\..\..\Fontes\ACBrSPED;..\..\..\Fontes\ACBrTCP;..\..\..\..\ARQUIV~1\Borland\Delphi7\tiss\COMPON~1;..\..\..\..\ARQUIV~1\Borland\Delphi7\FORTES~1;..\..\..\..\Arquivos de programas\TecnoSpeed\NFe\fontes;..\..\..\..\Arquivos de programas\TecnoSpeed\NFe\demo;..\..\..\..\ARQUIV~1\Borland\Delphi7\Projects\Bpl;..\..\..\Fontes\ACBRBO~1\Logos;..\..\..\Fontes\ACBRBO~1\Logos\Colorido;..\..\..\Fontes\ACBRBO~1\Logos\PRETOB~1;..\..\..\Fontes\ACBRCO~2;..\..\..\Fontes\ACBRDI~1\ACBRFA~1;..\..\..\Fontes\ACBrLFD;..\..\..\Fontes\ACBrMDFe;..\..\..\Fontes\ACBrNFSe;..\..\..\Fontes\ACBrSAT;..\..\..\Fontes\ACBrSPED\ACBRSP~1;..\..\..\Fontes\ACBrSPED\ACBRSP~4;..\..\..\Fontes\ACBrSPED\ACBRSP~3;..\..\..\Fontes\ACBrSPED\ACBRSP~2;..\..\..\Fontes\ACBrTEFD;..\..\..\Fontes\Imagens;..\..\..\Fontes\SINTEG~1;..\..\..\Fontes\ACBrGNRE;..\..\..\Fontes\ACBrSEF2;..\..\..\Lib\Delphi\LibD7;..\..\..\Fontes\ACBrSPED\ACD822~1;..\..\..\Fontes\ZLibExGZ;..\..\..\Fontes\ZLibExGZ\win32;..\..\..\Fontes\ZLibExGZ\win64;..\..\..\Fontes\ZLibExGZ\zlib" -N0"..\..\..\Lib\Delphi\LibD7" -LE"..\..\..\Lib\Delphi\LibD7" -LN"..\..\..\Lib\Delphi\LibD7" -U"..\..\..\..\ARQUIV~1\Borland\Delphi7\Rave5\Lib" Borland Delphi Version 15.0 Copyright © 1983,2002 Borland Software Corporation C:\ACBr\Fontes\ACBrBoleto\ACBrBoleto.pas(510) Error: Identifier redeclared: 'CaracTitulo' C:\ACBr\Fontes\ACBrBoleto\ACBrBoleto.pas(926) Fatal: Could not compile used unit 'ACBrBancoBradesco' Compilation failure Compiling package C:\ACBr\\Pacotes\Delphi\ACBrBoleto\ACBr_BoletoFC_Fortes.dpk "C:\Arquivos de programas\Borland\Delphi7\bin\dcc32.exe" "C:\ACBr\\Pacotes\Delphi\ACBrBoleto\ACBr_BoletoFC_Fortes.dpk" -B -$O- -$W+ -$Y- -M -Q -H- -W- -DRELEASE -U"..\..\..\..\ARQUIV~1\Borland\Delphi7\lib" -U"$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib;$(DELPHI)\rx\Units;..\..\..\..\ARQUIV~1\Borland\Delphi7\WEBCAM~1\TCamera;..\..\..\..\ARQUIV~1\Borland\Delphi7\Boleto\source\Pascal;..\..\..\..\ARQUIV~1\Borland\Delphi7\Boleto\dcu;..\..\..\..\ARQUIV~1\Borland\Delphi7\Boleto\layouts;..\..\..\Fontes\ACBRCO~1;..\..\..\Fontes\ACBRDI~1;..\..\..\Fontes\ACBRSE~1;..\..\..\Fontes\ACBrNFe2;..\..\..\Fontes\PCN2;..\..\..\Fontes\synalist;..\..\..\Fontes\ACBRCA~1;..\..\..\Fontes\ACBRBO~1;..\..\..\Fontes\ACBrCTe;..\..\..\Fontes\ACBrPAF;..\..\..\Fontes\ACBRSI~1;..\..\..\Fontes\ACBrSPED;..\..\..\Fontes\ACBrTCP;..\..\..\..\ARQUIV~1\Borland\Delphi7\tiss\COMPON~1;..\..\..\..\ARQUIV~1\Borland\Delphi7\FORTES~1;..\..\..\..\Arquivos de programas\TecnoSpeed\NFe\fontes;..\..\..\..\Arquivos de programas\TecnoSpeed\NFe\demo;..\..\..\..\ARQUIV~1\Borland\Delphi7\Projects\Bpl;..\..\..\Fontes\ACBRBO~1\Logos;..\..\..\Fontes\ACBRBO~1\Logos\Colorido;..\..\..\Fontes\ACBRBO~1\Logos\PRETOB~1;..\..\..\Fontes\ACBRCO~2;..\..\..\Fontes\ACBRDI~1\ACBRFA~1;..\..\..\Fontes\ACBrLFD;..\..\..\Fontes\ACBrMDFe;..\..\..\Fontes\ACBrNFSe;..\..\..\Fontes\ACBrSAT;..\..\..\Fontes\ACBrSPED\ACBRSP~1;..\..\..\Fontes\ACBrSPED\ACBRSP~4;..\..\..\Fontes\ACBrSPED\ACBRSP~3;..\..\..\Fontes\ACBrSPED\ACBRSP~2;..\..\..\Fontes\ACBrTEFD;..\..\..\Fontes\Imagens;..\..\..\Fontes\SINTEG~1;..\..\..\Fontes\ACBrGNRE;..\..\..\Fontes\ACBrSEF2;..\..\..\Lib\Delphi\LibD7;..\..\..\Fontes\ACBrSPED\ACD822~1;..\..\..\Fontes\ZLibExGZ;..\..\..\Fontes\ZLibExGZ\win32;..\..\..\Fontes\ZLibExGZ\win64;..\..\..\Fontes\ZLibExGZ\zlib" -U"..\..\..\Lib\Delphi\LibD7" -I"$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib;$(DELPHI)\rx\Units;..\..\..\..\ARQUIV~1\Borland\Delphi7\WEBCAM~1\TCamera;..\..\..\..\ARQUIV~1\Borland\Delphi7\Boleto\source\Pascal;..\..\..\..\ARQUIV~1\Borland\Delphi7\Boleto\dcu;..\..\..\..\ARQUIV~1\Borland\Delphi7\Boleto\layouts;..\..\..\Fontes\ACBRCO~1;..\..\..\Fontes\ACBRDI~1;..\..\..\Fontes\ACBRSE~1;..\..\..\Fontes\ACBrNFe2;..\..\..\Fontes\PCN2;..\..\..\Fontes\synalist;..\..\..\Fontes\ACBRCA~1;..\..\..\Fontes\ACBRBO~1;..\..\..\Fontes\ACBrCTe;..\..\..\Fontes\ACBrPAF;..\..\..\Fontes\ACBRSI~1;..\..\..\Fontes\ACBrSPED;..\..\..\Fontes\ACBrTCP;..\..\..\..\ARQUIV~1\Borland\Delphi7\tiss\COMPON~1;..\..\..\..\ARQUIV~1\Borland\Delphi7\FORTES~1;..\..\..\..\Arquivos de programas\TecnoSpeed\NFe\fontes;..\..\..\..\Arquivos de programas\TecnoSpeed\NFe\demo;..\..\..\..\ARQUIV~1\Borland\Delphi7\Projects\Bpl;..\..\..\Fontes\ACBRBO~1\Logos;..\..\..\Fontes\ACBRBO~1\Logos\Colorido;..\..\..\Fontes\ACBRBO~1\Logos\PRETOB~1;..\..\..\Fontes\ACBRCO~2;..\..\..\Fontes\ACBRDI~1\ACBRFA~1;..\..\..\Fontes\ACBrLFD;..\..\..\Fontes\ACBrMDFe;..\..\..\Fontes\ACBrNFSe;..\..\..\Fontes\ACBrSAT;..\..\..\Fontes\ACBrSPED\ACBRSP~1;..\..\..\Fontes\ACBrSPED\ACBRSP~4;..\..\..\Fontes\ACBrSPED\ACBRSP~3;..\..\..\Fontes\ACBrSPED\ACBRSP~2;..\..\..\Fontes\ACBrTEFD;..\..\..\Fontes\Imagens;..\..\..\Fontes\SINTEG~1;..\..\..\Fontes\ACBrGNRE;..\..\..\Fontes\ACBrSEF2;..\..\..\Lib\Delphi\LibD7;..\..\..\Fontes\ACBrSPED\ACD822~1;..\..\..\Fontes\ZLibExGZ;..\..\..\Fontes\ZLibExGZ\win32;..\..\..\Fontes\ZLibExGZ\win64;..\..\..\Fontes\ZLibExGZ\zlib" -R"$(DELPHI)\Lib;$(DELPHI)\Bin;$(DELPHI)\Imports;$(DELPHI)\Projects\Bpl;$(DELPHI)\Rave5\Lib;$(DELPHI)\rx\Units;..\..\..\..\ARQUIV~1\Borland\Delphi7\WEBCAM~1\TCamera;..\..\..\..\ARQUIV~1\Borland\Delphi7\Boleto\source\Pascal;..\..\..\..\ARQUIV~1\Borland\Delphi7\Boleto\dcu;..\..\..\..\ARQUIV~1\Borland\Delphi7\Boleto\layouts;..\..\..\Fontes\ACBRCO~1;..\..\..\Fontes\ACBRDI~1;..\..\..\Fontes\ACBRSE~1;..\..\..\Fontes\ACBrNFe2;..\..\..\Fontes\PCN2;..\..\..\Fontes\synalist;..\..\..\Fontes\ACBRCA~1;..\..\..\Fontes\ACBRBO~1;..\..\..\Fontes\ACBrCTe;..\..\..\Fontes\ACBrPAF;..\..\..\Fontes\ACBRSI~1;..\..\..\Fontes\ACBrSPED;..\..\..\Fontes\ACBrTCP;..\..\..\..\ARQUIV~1\Borland\Delphi7\tiss\COMPON~1;..\..\..\..\ARQUIV~1\Borland\Delphi7\FORTES~1;..\..\..\..\Arquivos de programas\TecnoSpeed\NFe\fontes;..\..\..\..\Arquivos de programas\TecnoSpeed\NFe\demo;..\..\..\..\ARQUIV~1\Borland\Delphi7\Projects\Bpl;..\..\..\Fontes\ACBRBO~1\Logos;..\..\..\Fontes\ACBRBO~1\Logos\Colorido;..\..\..\Fontes\ACBRBO~1\Logos\PRETOB~1;..\..\..\Fontes\ACBRCO~2;..\..\..\Fontes\ACBRDI~1\ACBRFA~1;..\..\..\Fontes\ACBrLFD;..\..\..\Fontes\ACBrMDFe;..\..\..\Fontes\ACBrNFSe;..\..\..\Fontes\ACBrSAT;..\..\..\Fontes\ACBrSPED\ACBRSP~1;..\..\..\Fontes\ACBrSPED\ACBRSP~4;..\..\..\Fontes\ACBrSPED\ACBRSP~3;..\..\..\Fontes\ACBrSPED\ACBRSP~2;..\..\..\Fontes\ACBrTEFD;..\..\..\Fontes\Imagens;..\..\..\Fontes\SINTEG~1;..\..\..\Fontes\ACBrGNRE;..\..\..\Fontes\ACBrSEF2;..\..\..\Lib\Delphi\LibD7;..\..\..\Fontes\ACBrSPED\ACD822~1;..\..\..\Fontes\ZLibExGZ;..\..\..\Fontes\ZLibExGZ\win32;..\..\..\Fontes\ZLibExGZ\win64;..\..\..\Fontes\ZLibExGZ\zlib" -N0"..\..\..\Lib\Delphi\LibD7" -LE"..\..\..\Lib\Delphi\LibD7" -LN"..\..\..\Lib\Delphi\LibD7" -U"..\..\..\..\ARQUIV~1\Borland\Delphi7\Rave5\Lib" Borland Delphi Version 15.0 Copyright © 1983,2002 Borland Software Corporation C:\ACBr\Fontes\ACBrBoleto\ACBrBoleto.pas(510) Error: Identifier redeclared: 'CaracTitulo' C:\ACBr\Fontes\ACBrBoleto\ACBrBoleto.pas(926) Fatal: Could not compile used unit 'ACBrBancoBradesco' Compilation failure

Oi Régys, Eu tenho q instalar alguma coisa, colocar alguma dll no windows/sytem32? ou fazer alguma configuração para o acbr qdo eu peço para ver o STATUS não der inoperante? André

Está tudo certinho, até pq o cliente está utilizando o sistema da fazenda. Eu tenho q colocar alguma dll do acbr no windows\system32 ou instalar alguma coisa? André

Está sim! mesmo com o exemplo do acbr não consigo enxergar o certificado. Eu tenho q configurar alguma coisa no Windows? André

Olá Amigo(a), Td bem amigo(a), qdo vou configurar um certificado no meu programa que não seja por arquivo e sim por token ou cartão o Componente ACBR não consegue visualizar o certificado somente pelo número de Série. Vcs tem alguma solução para esse problema? Grato, André Gustavo

OK Ítalo, Vou verificar com meu cliente se ele possui este certificado, caso não, ele terá que solicitar para que eu possa iniciar os testes. André

Olá Italo, Vc sabe me informar se o provedor de Recife é necessário Certificado, login e senha? Grato, André

Olá amigo(a), Estou necessitando iniciar o desenvolvimento da Nfse. Gostaria de saber o que eu preciso para iniciar o desenvolvimento, tipo: Certificado digital? Login e senha web? Dei uma olhadinha no DEMO, porém não conseguir gerar a nota, no teste q fiz está pedido o certificado. Estou na cidade de Recife e vi que o padrão é o ABRASF. André Gustavo

Eu tive este problema mesmo problema. A minha solucão foi atualizar as dlls do acbr.