infomatte

Bom dia Michael... Pela analise do XML, parece não haver nada de errado... Acessei sei site e me cadastrei para receber uma copia do seu sistema para testar esse envio... Mas até agora não recebi o email... Se quiser mandar no um demo funcional para meu email... faço os testes aqui para vc.... [email protected] Ou, mande seu telefone no email que ligo para você agora entre as 12:00 e 13:00.... Abraço...

Boa Noite. Deixa a FormaEmissão como teNormal, setado tudo para o Pará, funciona inclusive para o modo de Homologação... Caso a transmissão falhe por lentidão ou falta de internet, utilize FormaEmissao teOffLine... Fiz assim: **************************************** Virtual_Principal.ACBrNFe1.NotasFiscais.Clear; Virtual_Principal.ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; Virtual_Principal.ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; Virtual_Principal.ACBrNFe1.Configuracoes.Geral.IncluirQRCodeXMLNFCe := True; Virtual_Principal.ACBrNFe1.Configuracoes.Geral.FormaEmissao := teNormal; { Rotina de Geração do XML } Em caso de falha na transmissão, so mudo os parametros para offLine conforme segue: Virtual_Principal.ACBrNFe1.Configuracoes.Geral.FormaEmissao := teOffLine; Virtual_Principal.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis := teoffline; Virtual_Principal.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.xJust := 'EMITIDA EM CONTINGENCIA EM DECORRENCIA DE PROBLEMAS TECNICOS'; Virtual_Principal.ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.dhCont := now; Virtual_Principal.ACBrNFe1.NotasFiscais.GerarNFe; Virtual_Principal.ACBrNFe1.NotasFiscais.Assinar; Virtual_Principal.ACBrNFe1.NotasFiscais.Validar; E transmito posteriormente.... **************************************** Como Alertou o Bruno Meireles, o cliente deve ter feito a adesão voluntária... caso contrario não funciona....

Boa Noite,,, Sou de Castelo de Sonhos - Altamira / PA... Tenho em torno de 60 clientes emitido NFC-e normalmente.... E todos os testes realizei utilizando o Ambiente de Homologação também setado para o Estado do Pará... tudo rodando 100%... Na FormaEmissao utilizo teNormal... Nunca utilizei outra forma.... Poste o XML.

Boa Noite... O erro acontece também no emissor Gratuito, então presumo não ser problema com o Componente ACBr... Realizei o teste com o emissor gratuito, em modo de homologação dia 25/06/2016....

Boa Noite... Opa Fernando, o CSTAT 150 já é tratado, só esqueci de citá-lo, mesmo assim, obrigado....

Boa Noite... Deduzo que se retorna duplicidade, estão tentando retransmitir uma NFC-e em contingência... No meu sistema, estou no estado do Pará, para contingência, fiz desta forma: Na tabela da NFC-e, coloquei dois campos: NFCe_ChaveAcesso e NFCe_ChaveAcessoOriginal. Quando gero o XML na hora da venda, gravo a chave de acesso nos dois campos, sendo que esta chave é a para transmissão normal... Em caso de falha, mudo o componente para contingência, e gravo a nova chave somente no campo NFCe_ChaveAcesso, faço a impressão do NFCe normalmente e o cliete leva a nota em contingência. O campo NFCe_ChaveAcessoOriginal fica sempre com a chave original. Quando vou transmitir as NFCes em contingência, faço os seguintes testes para evitar problemas: Consulto a NFCe emitida em contingência, que está com a chave no Campo NFCe_ChaveAcesso. Em todos os testes que realizei, sempre obtive um destes 03 retornos: CSTAT 217 ( Rejeição: NF-e não consta na base de dados da SEFAZ ) - Neste caso, a NFCe em contingência não foi transmitida. Antes de tentar a transmissão da NFC em contingência, consulto a chave NFCe_ChaveAcessoOriginal, se esta consulta retornar CSTAT 100, a NFCe foi aprovada na tentativa de transmissão original, gravo então as informações no banco de dados e finalizo o processo, caso retorne CSTAT 217, faço a transmissão da NFCe em contingência. CSTAT 216 ( Rejeição: Chave de Acesso difere da cadastrada ) - Neste caso, a NFCe foi transmitida com a chave original porém, não obtive o retorno adequado do WebService, sendo assim, faço a consulta da NFCe pela chave original gravada no campo NFCe_ChaveAcessoOriginal. Esta consulta sempre retorna CSTAT = 100, gravo as informações necessárias no banco e, faço a impressão normalmente caso necessário. CSTAT 613 ( Rejeição: Chave de Acesso difere da existente em BD ) - Mesma situação do item 4. Sempre utilizo ACBrNFe1.Consultar, ele retorna o CSTAT correto da NFCe, faço assim: (fiz essa rotina especificamente para este post. Utilize como achar melhor.) ****************************************************************************************************************************************************** Virtual_Principal.ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; Virtual_Principal.ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; Virtual_Principal.ACBrNFe1.NotasFiscais.Clear; Virtual_Principal.ACBrNFe1.NotasFiscais.LoadFromFile(Virtual_Principal.ACBrNFe1.Configuracoes.Arquivos.PathSalvar+'\NFe\'+NFCe.FieldByName('NFCe_ChaveAcesso').AsString+'-NFe.xml',False); If Virtual_Principal.ACBrNFe1.Consultar Then Begin if Virtual_Principal.ACBrNFe1.WebServices.Consulta.cStat = 100 then Begin MessageDlgDef('CStat: ' + IntToStr(Virtual_Principal.ACBrNFe1.WebServices.Consulta.cStat) + ' - ' +Virtual_Principal.ACBrNFe1.WebServices.Consulta.xMotivo,mtinformation,[mbok], mrOk,0); Virtual_Principal.ACBrNFe1.NotasFiscais.Clear; Exit; End; End; ****************************************************************************************************************************************************** Espero que tenha contribuído...

Boa Noite Anexe copia de XMLs dos dois casos para analise...

Bom Dia... Eu faço assim: *********************************************************************************************** OBS: Virtual_Principal é o nome do meu formulario principal... MessageDlgDef é uma função minha derivada do MessageDLG.... *********************************************************************************************** Virtual_Principal.ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; Virtual_Principal.ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; Virtual_Principal.ACBrNFe1.NotasFiscais.Clear; Virtual_Principal.ACBrNFe1.NotasFiscais.LoadFromFile(Virtual_Principal.ACBrNFe1.Configuracoes.Arquivos.PathSalvar+'\NFe\'+NFCe.FieldByName('NFCe_ChaveAcesso').AsString+'-NFe.xml',False); Try If Virtual_Principal.ACBrNFe1.Consultar Then Begin if Virtual_Principal.ACBrNFe1.WebServices.Consulta.cStat = 100 then Begin NFCe.Edit; NFCe.FieldByName('Sefaz_Protocolo').AsString := Virtual_Principal.ACBrNFe1.WebServices.Consulta.Protocolo; NFCe.FieldByName('Sefaz_cStat').AsString := IntToStr(Virtual_Principal.ACBrNFe1.WebServices.Consulta.cStat); NFCe.FieldByName('Sefaz_Data_Protocolo').AsString := DateToStr(Virtual_Principal.ACBrNFe1.WebServices.Consulta.DhRecbto); NFCe.FieldByName('NFCe_Status').AsString := 'Autorizada'; NFCe.FieldByName('NFCe_ChaveAcesso').AsString := Virtual_Principal.ACBrNFe1.WebServices.Consulta.NFeChave; NFCe.Post; NFCe.ApplyUpdates; dmVMVirtualShop.Transacao.CommitRetaining; End; if Virtual_Principal.ACBrNFe1.WebServices.Consulta.cStat = 150 then Begin NFCe.Edit; NFCe.FieldByName('Sefaz_Protocolo').AsString := Virtual_Principal.ACBrNFe1.WebServices.Consulta.Protocolo; NFCe.FieldByName('Sefaz_cStat').AsString := IntToStr(Virtual_Principal.ACBrNFe1.WebServices.Consulta.cStat); NFCe.FieldByName('Sefaz_Data_Protocolo').AsString := DateToStr(Virtual_Principal.ACBrNFe1.WebServices.Consulta.DhRecbto); NFCe.FieldByName('NFCe_Status').AsString := 'Autorizada'; NFCe.FieldByName('NFCe_ChaveAcesso').AsString := Virtual_Principal.ACBrNFe1.WebServices.Consulta.NFeChave; NFCe.Post; NFCe.ApplyUpdates; dmVMVirtualShop.Transacao.CommitRetaining; End; if Virtual_Principal.ACBrNFe1.WebServices.Consulta.cStat = 101 then Begin NFCe.Edit; NFCe.FieldByName('NFCe_Cancelamento_Protocolo').AsString := Virtual_Principal.ACBrNFe1.WebServices.Consulta.Protocolo; NFCe.FieldByName('NFCe_Cancelamento_cStat').AsString := IntToStr(Virtual_Principal.ACBrNFe1.WebServices.Consulta.cStat); NFCe.FieldByName('Sefaz_Data_Protocolo').AsString := DateToStr(Virtual_Principal.ACBrNFe1.WebServices.Consulta.DhRecbto); NFCe.FieldByName('NFCe_Status').AsString := 'Cancelada'; //NFCe.FieldByName('NFCe_ChaveAcesso').AsString := Virtual_Principal.ACBrNFe1.WebServices.Consulta.NFeChave; NFCe.Post; NFCe.ApplyUpdates; dmVMVirtualShop.Transacao.CommitRetaining; End; End; Except on E: Exception do begin if (pos('12007 - ', E.Message.ToUpper) > 0) or // erro de conexão (pos('12002 - ', E.Message.ToUpper) > 0) or // timeout (pos('12029 - ', E.Message.ToUpper) > 0) or // limite de tempo de conexão (pos('ERRO NAO CATALOGADO', E.Message.ToUpper) > 0) then begin NFCe.Edit; NFCe.FieldByName('NFCe_Status').AsString := 'Contingencia'; NFCe.Post; NFCe.ApplyUpdates; dmVMVirtualShop.Transacao.CommitRetaining; MessageDlgDef('C O N S U L T A N Ã O R E A L I Z A D A ' + #13 + 'Retorno de Erro da SEFAZ: ' + E.Message,mtInformation,[mbok], mrOk,0); NFCe.Close; NFCe.ParamByName('NFCe_Status').AsString := 'Contingencia'; NFCe.Open; end Else Begin NFCe.Edit; NFCe.FieldByName('Sefaz_cStat').AsString := IntToStr(Virtual_Principal.ACBrNFe1.WebServices.Retorno.cStat); NFCe.FieldByName('NFCe_Status').AsString := 'Contingencia'; NFCe.Post; NFCe.ApplyUpdates; dmVMVirtualShop.Transacao.CommitRetaining; NFCe.Close; NFCe.ParamByName('NFCe_Status').AsString := 'Contingencia'; NFCe.Open; MessageDlgDef('C O N S U L T A N Ã O R E A L I Z A D A ' + #13+#13 + 'ERRO NAO CATALOGADO ' + #13 + 'Retorno de Erro da SEFAZ: ' + Message,mtInformation,[mbok], mrOk,0); End; End; End; PS: O CStat 150 é para autorização fora do prazo, fiz um relatório no sistema que demonstra todas as notas aprovadas fora do prazo legal... aqui a internet chega a ficar sem por mais de 02 dias...

Boa Noite... Terminei a implementação da DistribuiçãoDFe em meu sistema de gestão comercial, e hoje, me deparei com o mesmo erro... Sessão "NFCe_AN_P", não encontrada no arquivo "ACBrNFeServicos"... Notei que o erro se origina sempre depois de realizar qualquer procedimento referente a NFC-e, Envio, consulta de NFC-e ou até mesmo consulta do status de serviço... A correção é simples e, apenas erro de programação nosso... Como é um procedimento relativo a NF-e, precisamos indicar ao componente com que modelo de documento desejamos trabalhar, sempre usando: Para NF-e: ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFe; ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; [Versão dos Schemas] Para NFC-e: ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe; ACBrNFe1.Configuracoes.Geral.VersaoDF := ve310; [Versão dos Schemas]

Valeu Juliomar....

Bom Dia... As alterações da linha 590 - Impressão Texto EMITIDA EM CONTINGÊNCIA, somente afetam a impressão quando no Ambiente de Homologação. As Alterações das Linhas 418 e 697 - Quebra de linha com ; (ponto e vírgula), pensei em colocar na Unit ACBrDANFCeFortesFrA4.pas, pelo fato dela existir e funcionar já na Unit ACBrDANFCeFortesFr.pas... Enquanto não padronizar, seguirei alterando a Unit ACBrDANFCeFortesFrA4.pas manualmente então, apos cada atualização do meu repositório.... Obrigado....

Boa Noite... Primeiramente gostaria de parabenizar a todos os desenvolvedores do ACBR pela excelência e qualidade do componente... Estou nos testes finais do desenvolvimento da NFC-e para meu Software de gestão comercial aqui no estado do Pará e, nos testes para transmissão Offline - Contingência, verifiquei que quando em Contingência, no modo de homologação, não é impresso o texto "EMITIDA EM CONTINGÊNCIA"... no Fortes em A4... Verifiquei também que, no Fortes A4, não está considerando o parâmetro do ; (ponto e virgula) para a quebra de linha nas informações complementares... No intuito de contribuir com o projeto, alterei a unit ACBrDANFCeFortesFrA4.pas, nas seguintes linhas, para adequação ao exposto: *************************************************************************************************************************************** linha 590 - Impressão Texto EMITIDA EM CONTINGÊNCIA. De: Text := ACBrStr('EMITIDA EM AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL') Para: Begin if self.FACBrNFeDANFCeFortesA4.FpNFe.Ide.tpEmis <> teNormal then Text := ACBrStr('EMITIDA EM CONTINGÊNCIA - AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL') else Text := ACBrStr('EMITIDA EM AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL') End; Linha 418 - Quebra de linha com ; (ponto e vírgula) De: PrintIt := Trim(self.FACBrNFeDANFCeFortesA4.FpNFe.InfAdic.infCpl) <> ''; Para: PrintIt := StringReplace(Trim(self.FACBrNFeDANFCeFortesA4.FpNFe.InfAdic.infCpl), ';', #13, [rfReplaceAll] ) <> ''; Linha 697 - Quebra de linha com ; (ponto e vírgula) De: Text := self.FACBrNFeDANFCeFortesA4.FpNFe.InfAdic.infCpl; Para: Text := StringReplace(self.FACBrNFeDANFCeFortesA4.FpNFe.InfAdic.infCpl, ';', #13, [rfReplaceAll] ) ; *************************************************************************************************************************************** Seguem em anexo a unit modificada e imagem de exemplo dela em funcionamento... Em caso de relevância para o projeto, gostaria que a Unit fosse colocada no repositório.... PS: Revision da Unit modificada: 11593. ACBrDANFCeFortesFrA4.pas

Ja resolveu esta rejeição??? havia atualizado, mas tive que voltar para versao anterior dos XMLs...., ai passou.... Cliente no SImples Nacional e NF-e para RS...

Boa Noite... Tentando a homologação Sicredi - CNAB240, deparei-me com erro na geração do nosso numero... Na linha 1567 do ACBrBancoSicredi.pas: PadRight(NossoNumero + DigitoNossoNumero, 17, '0') + // 038 a 057 - Identificação do título no banco Desta forma ele não gera o ANO e nem o Byte nesse campo... Alterei para: PadRight(OnlyNumber(MontarCampoNossoNumero(ACBrTitulo)), 20, '0') + // 038 a 057 - Identificação do título no banco Desta forma consegui passar pelo validador de arquivos do Sicredi... Se algum commiter puder atualizar o repositório...Agradeço... Segue em anexo o arquivo ACBrBancoSicredi.pas corrigido... ACBrBancoSicredi.pas

Bom Dia... Buscando contribuir também com o projeto, e a pedido de clientes e do próprio Sicredi, aprimorei um pouco o layout do BoletoFR.fr3... Inclui também no código do arquivo: ************************************************************************* if <Banco."Numero"> = '748' then begin CedenteAgencia.Text := <Titulo."CodCedente">; CedenteAgencia2.Text := <Titulo."CodCedente">; CedenteAgencia3.Text := <Titulo."CodCedente">; end else ************************************************************************* Para imprimir "Agência / Código do Beneficiario" conforme o banco solicitou... Seguem arquivos PDF e FR3 caso algum usuário tenha interesse e, os Administradores acharem válido, incluir o FR3 no repositório... BoletoFRSicredi.pdf BoletoFRSicredi.fr3

Opa Também utilizava o Fast 4, tive que instalar o Fast 5... ai passou a funcionar normalmente...

Eu utilizava o Fast Report 4.12... tive que desinstalar e instalar o 5.1.9, e voltou a funcionar normalmente....

Estava com o mesmo problema, desistalei o Fast 4.12 e instalei o 5.1.9, passou a funcionar 100%...

Olá pessoal. Notei que a unit citada neste tópico (ACBrNFeDANFEFRDM.pas) ainda não foi atualizada no trunk2. Alguém poderia verificar por favor? Obrigado. Acabei de atualizar (revision 9889).... Notei que a unit citada neste tópico (ACBrNFeDANFEFRDM.pas) ainda não foi atualizada no trunk2. Atualizei conforme citado pelo Paulo Aguiar, testei e funcionou corretamente... segue a unit atualizada... Algum commiter poderia atualizar ??? Obrigado... ACBrNFeDANFEFRDM.pas

Boa Tarde... Também fiz a alteração sugerida por windsoft o problema foi resolvido. Obrigado ao WINDSOFT e ao JRCCONT pela colaboração. Segue o arquivo atualizado na pasta "ACBr\Fontes\ACBrDFe\ACBrNFe\DANFE\NFe\Fast" Se algum commiter puder atualizar o repositório, agradecemos.... ACBrNFeDANFEFR.pas

Boa Tarde Juliana... Desculpe o incômodo... Estou fazendo os testes para implementação do ACBRBoleto em em sistema de Gestão Comercial... Usando o ACBRBoletoDemo, verifiquei o seguinte: Inclui um ou mais boletos, e gero a remessa. O Validador do Banco Sicredi retorna erro... Motifiquei o arquivo fonte ACBRBancoSicredi.pas, Linha 1409 padL(ContaDigito, 1, '0') + // 071 a 071 - DV Conta 1410 //padL(AgenciaDigito, 1) + // 072 a 072 - Dígito verificador da ag 1411 Space(1) + // 072 a 072 - Dígito verificador da ag 1441 padL(ContaDigito,1) + // 072 a 072 - Zeros 1442 //AgenciaDigito + // 073 a 073 - Dígito verificador da coop/ag/conta 1443 Space(1) + // 073 a 073 - Dígito verificador da coop/ag/conta Desbilitei as linhas 1410 e 1442, e troquei pelas 1411 e 1443. Estas linhas são integrantes da function TACBrBancoSicredi.GerarRegistroHeader240( NumeroRemessa: Integer): String; Realizei as modificacoes analisando o manual CNAB240 do Sicredi: http://www.sicredi.com.br/websitesicredi/upload/files/28459_Manual_Beneficiario_Cobranca_CNAB_240___18062014.pdf Ver Página 32 e 36 protocol_1500085134 - Com Erro.pdf protocol_1500085135 - Validado.pdf

Boa Noite... Revisando as alterações realizadas na instalação do ACBR, no ACBr.Inc sempre descomento a linha para utilizar o "Botão Salvar do Preview do componente Danfe com Rave Reports... descobri que o erro somente ocorre quando descomento também a linha DEFINE Ravecollate, então... o problema já está solucionado... Utilizado Delphi XE3.... segue abaixo o trecho do ACBr.inc corrigido... // Descomente as linhas abaixo para usar os recursos de Collate e/ou Botão Salvar do Preview do componente Danfe com Rave Reports // Essas opções funcionam dependendo da sua versão do Rave Reports. Verifique se sua versão suporta o recurso para não causar erro de compilação //-------------------------------------------------------------------------------- //{$DEFINE RaveCollate} {$DEFINE RaveSaveFromPreview} Vanderlei

Boa Noite... Atualizo o ACBR através do ACBR Install, frequentemente... Voltou a acontecer um Erro de Access Violation na impressão de eventos.... Não sei dizer se se refere a Revisão 8219 - "Correção na impressão de eventos RAVE CB com mais de 10 linhas, não imprimia se a correção possuisse mais de 10 linhas." cujo autor é Régys Silveira... No final de janeiro, um cliente me retornou que não conseguia imprimir o Cancelamento ou a CCe, atualizei o ACBR e o erro foi corrigido... Deduzi que a correção tenha sido a revisão 8219... Hoje, testando atualizações no meu sistema para passar a utilizar a Versão DF 3.10, deparei-me novamente com o erro da impressão de eventos, que ocorre inclusive com o verão Demo do ACBrNF-e Alguém teria uma solução para o caso??? Vanderlei

Boa Tarde... Segundo o manual de cobrança ( http://www.sicredi.com.br/websitesicredi/upload/files/28460_Manual_Beneficiario_Cobranca_CNAB_400___18062014.pdf ), o boleto Sicredi para homologar ( página 48 do manual ) deve ser da seguinte maneira... para o campo "agência/código beneficiário" - AAAA.PP.CCCCC, para o PP, colocaria o o numero do Posto no Digito da Agência, exemplo daqui: 0818.18.50725