ornei

Boa tarde, apaguei a pasta e baixei tudo de novo e agora esta acusando este erro: Compiling package C:\TEAMSOURCE\ACBr2\Pacotes\Delphi\ACBrDFe\ACBr_DFeComum.dpk "C:\Program Files\Borland\Delphi7\bin\dcc32.exe" "C:\TEAMSOURCE\ACBr2\Pacotes\Delphi\ACBrDFe\ACBr_DFeComum.dpk" Borland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation C:\TEAMSOURCE\ACBr2\Fontes\ACBrDFe\ACBrDFeCapicom.pas(45) Fatal: File not found: 'ACBrCAPICOM_TLB.dcu' Compilation failure Erro ao compilar o pacote "ACBr_DFeComum.dpk". Abortando... Ocorreram erros na compilação dos pacotes.

sempre faço o update da pasta raiz, vou fazer o update do zero e posto se deu certo, obrigado

Bom dia atualizei o acbr e na hora de instalar usando o acbrinstall esta ocorrendo o seguinte erro: Pacote "ACBrDFeReportRL.dpk" compilado com sucesso. Compiling package C:\TEAMSOURCE\ACBr2\Pacotes\Delphi\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes\ACBr_NFeDanfeRL.dpk "C:\Program Files\Borland\Delphi7\bin\dcc32.exe" "C:\TEAMSOURCE\ACBr2\Pacotes\Delphi\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes\ACBr_NFeDanfeRL.dpk" Borland Delphi Version 15.0 Copyright (c) 1983,2002 Borland Software Corporation C:\TEAMSOURCE\ACBr2\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes\ACBrNFeDANFeRLRetrato.pas(2026) Error: Undeclared identifier: 'infSeparadamente' C:\TEAMSOURCE\ACBr2\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes\ACBrNFeDANFeRLRetrato.pas(2026) Error: Incompatible types C:\TEAMSOURCE\ACBr2\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes\ACBrNFeDANFeRLClass.pas(141) Fatal: Could not compile used unit '..\..\..\..\..\..\..\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fortes\ACBrNFeDANFeRLRetrato.pas' Compilation failure Erro ao compilar o pacote "ACBr_NFeDanfeRL.dpk". att Ornei

Bom dia, obrigado pela atenção e desculpa pela demora em responder e que digitei a resposta mas não enviei kkk, o cliente conversou com o contador ele pediu pra fazer uma entrada devolução para retornar o estoque e fazer a NF correta.

Boa noite, 1.tenho um cliente que emitiu a Nfe em seguida o MDFe e logo em seguida fez o encerramento do MDFe, e precisa cancelar a NFe, e quando tenta cancelar retorna Rejeição 690: Pedido de cancelamento para NF-e com CT-e ou MDF-e.tem alguma maneira de cancelar a NFe 2. o mesmo cliente fez outra NFe depois o MDFe e o destinatário fez a ciência da operação que tambem precisa cancelar a NFe, foi feito o cancelamento do MDFe e o destinatário fez a recusa da operação e mesmo assim ocorre a mesma rejeição, o interessante e que no portal nacional aparece a autorização, o MDFe, a Ciência do destinatario, cancelamento do MDFe e o evento de operação não realizada pelo destinatario, e no portal de MG so aparece as três primeiras situações. Neste caso ha possibilidade tambem de cancelar a NFe.

Certo, muito obrigado.

Boa tarde Dener obrigado pela atenção, só mai uma pergunta, tem alguma forma de informar o percentual em cima do valor do boleto e cobrado por dia. Att

Boa noite quando informa o PercentualMulta e impresso a mensagem "Cobrar Multa de R$ 1,00 apos vencimento", gostaria de saber se e por dia, se sim ha possibilidade de sair impresso "Cobrar Multa de R$ 1,00 ao dia apos vencimento.", pois tenho um cliente querendo que sai este "ao dia", a principio alterei o fonte, mas quando for atualizar vou ter que refazer.

Boa noite quando informa o PercentualMulta e impresso a mensagem "Cobrar Multa de R$ 1,00 apos vencimento", gostaria de saber se e por dia, se sim ha possibilidade de sair impresso "Cobrar Multa de R$ 1,00 ao dia apos vencimento.", pois tenho um cliente querendo que sai este "ao dia", a principio alterei o fonte, mas quando for atualizar vou ter que refazer.

Ok Fernando, muito obrigado pela atenção.

Bom dia, então se o item que estou devolvendo tiver quantidade 2 na nf de entrada e tiver devolvendo 1 pDevol=50% e se devolver os 2 pDevol=100%,

Boa noite, depois do comentário do programadorfernado, resolvi informar o pDevol e vIPIDevol com os dois preenchidos gera a tag impostoDevol, só estava informando o valor, porque o cliente me passou só o valor e não mencionou nada sobre a alíquota, então não tem como informar só o valor, para gerar o xml correto e necessário informar os dois.

Andre, removi a pasta do acbr e baixei novamente e no gerou a Tag impostoDevol segue código onde eu informei, este código e do acbrdemo, também segue o XML Produto := NotaF.NFe.Det.Add; Produto.Prod.nItem := 1; // Número sequencial, para cada item deve ser incrementado Produto.Prod.cProd := '123456'; Produto.Prod.cEAN := '7896523206646'; Produto.Prod.xProd := 'TESTE DE PRODUTO'; Produto.Prod.NCM := '94051010'; // Tabela NCM disponível em http://www.receita.fazenda.gov.br/Aliquotas/DownloadArqTIPI.htm Produto.Prod.EXTIPI := ''; Produto.Prod.CFOP := '5101'; Produto.Prod.uCom := 'UN'; Produto.Prod.qCom := 1; Produto.Prod.vUnCom := 100; Produto.Prod.vProd := 100; Produto.Prod.cEANTrib := '7896523206646'; Produto.Prod.uTrib := 'UN'; Produto.Prod.qTrib := 1; Produto.Prod.vUnTrib := 100; Produto.Prod.vOutro := 0; Produto.Prod.vFrete := 0; Produto.Prod.vSeg := 0; Produto.Prod.vDesc := 0; Produto.Prod.CEST := '1111111'; Produto.infAdProd := 'Informacao Adicional do Produto'; Produto.vIPIDevol := 5.00; 1180838709408000100550010000004531000045373-nfe.xml

Ok vou atualizar o acbr , obrigado

bom tarde, estou com uma NF de devolução para enviar só que não gera a Tag impostoDevol, só gera no grupo de totais da nf, alterei o acbrdemo adicionando os valores no item e no total também não gera, ate já atualizei o acbr

bom dia, o vIpiDevol nos totais esta gerando mas no item não gera, estou fazendo assim Nfe.Itens[0].vIpiDevol:=5,00

Bom dia, no campo fatura na versão 4.00 não esta sendo impresso Pagamento a Vista ou A prazo, antes na versão 3.10 estava saindo, e como sempre tenho alguns clientes que esta questionado, no caso de a vista teria como sair no campo fatura Pagamento a Vista.

Boa tarde, após atualizar o sistema alguns clientes esta com este erro abaixo, depois de tentar várias vezes da certo dependendo tem que sai do sistema e entrar novamente, isto usando A1 ou A3. Só uma dúvida usando wincrypt não precisa fazer nenhuma configuração no IE, - Inativo ou Inoperante tente novamente. Erro Interno: 12002 Erro HTTP: 0 URL: https://nfe.fazenda.mg.gov.br/nfe2/services/NFeStatusServico4 Falha Recebendo Dados. Erro:Erro: 12002 - TimeOut de Requisição

Boa noite, para remover o capicom completamente marquei a opção "Não utilizar capicom" no ACBrInstall sem alterar nada no ACBR.inc, e instalei normalmente, recompilei os pacote da NFe e o do MDFe, só que a aplicação não carrega, ocorre um erro, debuguei o projeto principal (exe) e o erro cai neste código abaixo no primeiro raise: xsMsXmlCapicom: begin {$IfNDef DFE_SEM_MSXML} {$IfNDef DFE_SEM_CAPICOM} FSSLXmlSignClass := TDFeSSLXmlSignMsXmlCapicom.Create(Self); {$Else} raise EACBrDFeException.Create('Suporte a "xsMsXmlCapicom" disponível apenas em MSWINDOWS, e sem a diretiva de compilação {$DEFINE DFE_SEM_CAPICOM}'); {$EndIf} {$Else} raise EACBrDFeException.Create('Suporte a "xsMsXmlCapicom" disponível apenas em MSWINDOWS, e sem a diretiva de compilação {$DEFINE DFE_SEM_MSXML}'); {$EndIf} end; então resolvi cria a diretiva {$DEFINE DFE_SEM_CAPICOM} no projeto principal e gerar o executável, deste modo o aplicativo carregou normalmente seria isto mesmo a fazer. Lembrando que o sistema tem vários pacotes (bpl). att. Ornei

Bom dia, Realmente não estou conseguindo fazer a consulta da distribuição das NFs, fiz também pelo ACBrNFe_Demo, acontece a mesma coisa, também fiz algumas nota para o próprio cnpj e nada, alguma dica do que pode ser. Obrigado

Bom dia, Estou fazendo a opção para fazer a consulta das NFs destinadas, sempre retorna status 137-Nenhum documento localizado, e ja fiz nfe para o proprio cnpj da empresa mas não retorna. Se fizer a consulta passando zero para o NSU retorna um xml com status 138 não tem as chaves das NFe, segue em anexo este arquivo retornado e a rotina que estou utilizando. procedure TfrmManifestacao.btnConsultarClick(Sender: TObject); var J, I: Integer; sMotivo, sTemMais, UltNSU, sUltimoNSU, sChave, sSerie, sNumero, sCNPJ, sNome, sIEst, sNSU, sEmissao, sTipoNFe, sUF, Impresso: string; Valor: Double; dhAuto: TDateTime; begin ValidarSQL('SELECT E.CGC, E.UF FROM VI_EMPRESA E',['E.COD='+CODEMP_COR],[@sCNPJ,@sUF]); with dmNFE_TR do repeat try {$IFDEF SIMULARETORNO} SimulaRetorno; {$ELSE} UltNSU := ParametroTxt('NSU','4',CODEMP_COR); NFEletronica.DistribuicaoDFePorUltNSU(UFtoCUF(sUF),sCNPJ,UltNSu); {$ENDIF} // Pega os dados retornados sMotivo := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo; sUltimoNSU := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU; // Verifica a tag se possui mas documentos if NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137 then sTemMais := 'N' else sTemMais := 'S'; // Grava o ultiomo NSU na tabela de parametros GravaUltimaConsulta(sUltimoNSU); except on e: exception do raise Exception.Create('Falha ao Consultar NFe Destinadas.' + #13 + 'Erro Capturado: ' + e.Message); end; try if NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138 then begin J := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count -1; for I := 0 to J do begin sSerie := ''; sNumero := ''; sCNPJ := ''; sNome := ''; sIEst := ''; sNSU := ''; sEmissao := ''; sTipoNFe := ''; Valor := 0.0; Impresso := ' '; dhAuto := 0; if NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.chNFe <> '' then begin // Conjunto de informações resumo da NF-e localizadas. // Este conjunto de informação será gerado quando a NF-e for autorizada ou denegada. sEmissao := DateToStr(NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.dhEmi); sChave := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.chNFe; sCNPJ := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.CNPJCPF; Valor := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.vNF; sNome := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.xNome; sIEst := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.IE; sNSU := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].NSU; sSerie := Copy(sChave, 23, 3); sNumero := Copy(sChave, 26, 9); case NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.tpNF of tnEntrada: sTipoNFe := 'E'; tnSaida: sTipoNFe := 'S'; end; case dmNFE_TR.NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.cSitNFe of snAutorizado: Impresso := 'A'; snDenegado : Impresso := 'D'; snCancelado : Impresso := 'C'; end; dhAuto := NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[i].resNFe.dhRecbto; end; // Registra no Banco de Dados as Notas Retornadas pela Consulta if not ExisteChaveNFE(StrToInt(CODEMP_COR),sChave) then begin with sqlManifestacao, sqlManifestacao.Sql do begin Clear; Add('INSERT INTO TB_MANIFESTACAO'); Add(' (CODEMP, CNPJ, NOME, IE, EMISSAO, TIPO, VALOR,SITUACAO, CONFIRMACAO, NSU, CHAVE, DTAUTORIZACAO, NUMNF)'); Add('VALUES '); Add(' (:CODEMP, :CNPJ, :NOME, :IE, :EMISSAO, :TIPO, :VALOR, :SITUACAO, :CONFIRMACAO, :NSU, :CHAVE, :DTAUTORIZACAO, :NUMNF)'); Params[0].AsString :=CODEMP_COR; Params[1].AsString :=sCNPJ; Params[2].AsString :=sNome; Params[3].AsString :=sIEst; Params[4].AsDate :=StrToDate(sEmissao); Params[5].AsString :=sTipoNFe; Params[6].AsFloat :=Valor; Params[7].AsString :=Impresso; Params[8].AsString :=''; Params[9].AsString :=sNSU; Params[10].AsString :=sChave; Params[11].AsDateTime:=dhAuto; Params[12].AsString :=sNumero; //*** try if Transaction.InTransaction then Transaction.Rollback else Transaction.StartTransaction; ExecSQL; Transaction.Commit; except Transaction.Rollback; end end; end; end; // Fim do For end else begin if NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137 then begin ExibirMsg('Ultimo NSU: '+NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU+#13#10+ 'Status : '+IntToStr(NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.cStat)+#13#10+ 'Motivo : '+NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo+#13#10+ 'Data/Hota : '+DateTimeToStr(NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.dhResp), 'Manifestação das Nota Fiscal Eletrônica'); end else begin ExibirMsg('Falha ao realizar a consulta.'+#13#10+ 'Status : '+IntToStr(NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.cStat)+#13#10+ 'Motivo : '+NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo+#13#10+ 'Manifestação das Nota Fiscal Eletrônica'); end; end; except on e: exception do raise Exception.Create('Falha ao gravar as NFe Destinadas.' + #13 + 'Erro Capturado: ' + e.Message); end; until (NFEletronica.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137) or (sTemMais = 'S'); // end; Obrigado. 20180612090345-dist-dfe.xml

Bom dia BigWings não tinha entendido o que você quis dizer com o gerenciador, testei em vários servidor de e-mail com Gmail, Yahoo, Hotmail e o servidor da empresas deu certo, o Yahoo tem que visualizar para depois salvar, não salva direto, incredimail deu errado com a imagem acima, mas ante dava tudo certo em todos. Valeu pela atenção. Obrigado

BigWings pela imagem você pode ver que o email recebido foi do projeto ACBrNFe, na direita só tem o PDF como anexo. não fiz nenhuma alteração no fonte só compilei e configurei os caminhos, email e certificado e enviei o email por ele.

BigWings a questão não e o gerenciador, que é o IncrediMail, esta imagem e de como estou recebendo o email pelo acbrnfe demo, no caso a danfe em pdf fica como anexo e o xml no corpo do e-mail.

Boa tarde, realmente quando envia um XML como anexo ele e adicionado como stream e vai no corpo do e-mail como a imagem acima, isto e para qualquer arquivo com a extensão XML, no ACBrNFe-Demo e também no ACBrMail-Demo, criei um arquivo texto com um texto qualquer só que coloquei a extensão XML o texto ficou no corpo do email também e se colocar outra extensão o arquivo vai como anexo, estou com a ultima revisão 14570. Alguém já percebeu esta alteração no envio.