Italo Giurizzato Junior

Bom dia Rodrigo, Se o problema ocorre de vez em quando, conclui-se que o problema esta no provedor e não no componente. Entre em contato com o provedor e expõe o problema.

Bom dia Juliomar, O fonte em questão é o DoACBrNFeUnit ele foi alterado pela última vez pelo André e disponibilizado no dia 23/11/2012, e hoje é 14/12/2012. A alteração feita pelo André foi exatamente para resolver o problema em questão. É aquela velha história, se eu utilizo somente a NFe vou atualizar somente a pasta do componente ACBrNFe, em vez de atualizar tudo, ou seja os fontes dos exemplos, dos componentes, dos pacotes, dos projetos. Ai começa dar esses erros e o pessoal ficam desesperados.

Você não me respondeu em qual unit estava o fragmento de código para que possamos corrigila e identificar outros problemas e disponibilizar para os demais usuários.

Qual é o nome da Unit?

Esse fragmento de código é da sua aplicação ou no programa exemplo? if NotaUtil.NaoEstaVazio(Cmd.Params(1)) then ACBrNFe1.DANFE.Impressora := Cmd.Params(1) else ACBrNFe1.DANFE.Impressora := cbxImpressora.Text; Na verdade tanto faz, para corrigir o problema, faça o seguinte: 1. em Uses adicione a unit ACBrDFeUtil; 2. altere o fragmento acima: if DFeUtil.NaoEstaVazio(Cmd.Params(1)) then ACBrNFe1.DANFE.Impressora := Cmd.Params(1) else ACBrNFe1.DANFE.Impressora := cbxImpressora.Text; Isso vai resolver o problema.

Bom dia dcpleal, O que você fez esta errado, as funções que estão comentadas no ACBrNFeUtil agora estão definidas no ACBrDFeUtil. Foi criado a unit ACBrDFeUtil dentro da pasta ACBrComum, pois tinhamos dezenas de funções repetidas nas units ACBrNFeUtil, ACBrCTeUtil, ACBrNFSeUtil e ACBrMDFeUtil. Futuramente as funções que estão comentadas na unit ACBrNFeUtil vão ser excluidas, e ao atualizar os fontes a sua aplicação vai começar a dar erro novamente. A minha sugestão é deixar a unit ACBrNFeUtil como ela se encontra disponivel no SVN e corrigir a sua aplicação para não ter problemas futuros.

Bom dia Michel, Estude esse fragmento de código da minha aplicação, que realiza a consulta de NFe destinadas. procedure TfrmMovManifestacao.btnLocalizarClick(Sender: TObject); var CNPJ, Impresso, sChave, sEmissao, sCNPJ, sNome, sNumero, sSerie, sIEst, sNSU, sTipoNFe: String; Valor: Double; i, j: integer; begin // ======== Dados da Empresa (Destinatario) ============================================= DM_CTA.Empresa.Close; DM_CTA.Empresa.SQL.Clear; DM_CTA.Empresa.SQL.Add('Select * From Sis_Empresa'); DM_CTA.Empresa.SQL.Add('Where Codigo = :xCodigo'); DM_CTA.Empresa.Params[0].AsString:=DM_VEN.ParametrosEmitente.AsString; DM_CTA.Empresa.Active:=True; DM_CTA.Empresa.Open; if copy(DM_CTA.EmpresaCNPJ.AsString,10,4) <> '0000' then CNPJ := Copy(DM_CTA.EmpresaCNPJ.AsString, 2, 14) else CNPJ := Copy(DM_CTA.EmpresaCNPJ.AsString, 1, 9) + Copy(DM_CTA.EmpresaCNPJ.AsString, 14, 2); MemoStatus.Lines.Add('------------------------------------------------------'); MemoStatus.Lines.Add(' => Consultando NFe Destinadas'); MemoStatus.Lines.Add('------------------------------------------------------'); // TpcnIndicadorNFe = (inTodas, inSemManifestacaoComCiencia, inSemManifestacaoSemCiencia); // TpcnIndicadorEmissor = (ieTodos, ieRaizCNPJDiferente); DMNFe.NFe.ConsultaNFeDest( CNPJ, inSemManifestacaoSemCiencia, ieTodos, edtUltNSU.Text ); sStat := IntToStr(DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.cStat); sMotivo := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.xMotivo; case DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.indCont of icNaoPossuiMaisDocumentos: sTemMais := 'N'; icPossuiMaisDocumentos: sTemMais := 'S'; end; sUltimoNSU := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ultNSU; GravaUltimaConsulta; // TpcnIndicadorContinuacao = (icNaoPossuiMaisDocumentos, icPossuiMaisDocumentos); // TpcnSituacaoNFe = (snAutorizado, snDenegado, snCancelada); // TpcnSituacaoManifDest = (smdSemManifestacao, smdConfirmada, smdDesconhecida, smdOperacaoNaoRealizada, smdCiencia); // TpcnTipoNFe = (tnEntrada, tnSaida); if DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.cStat = 138 then begin // Documentos Localizados para o Destinatário if DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.indCont = icPossuiMaisDocumentos then begin edtUltNSU.Text := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ultNSU; MemoStatus.Lines.Add(' Documento Localizado para o Destinatário'); MemoStatus.Lines.Add(' Utilizar o número que esta no campo: Último NSU'); MemoStatus.Lines.Add(' Para uma nova pesquisa.'); MemoStatus.Lines.Add(' '); end else begin edtUltNSU.Text := '0'; MemoStatus.Lines.Add(' Documento Localizado para o Destinatário'); MemoStatus.Lines.Add(' '); end; j := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Count -1; lstChave1.Clear; chkListaNotas.Clear; for i := 0 to j do begin sSerie := ''; sNumero := ''; sCNPJ := ''; sNome := ''; sIEst := ''; sNSU := ''; sEmissao := ''; sTipoNFe := ''; Valor := 0.0; Impresso := ' '; if DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.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. sChave := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe; sSerie := Copy(sChave, 23, 3); sNumero := Copy(sChave, 26, 9); sCNPJ := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.CNPJCPF; sNome := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.xNome; sIEst := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.IE; case DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.tpNF of tnEntrada: sTipoNFe := 'E'; tnSaida: sTipoNFe := 'S'; end; sNSU := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.NSU; sEmissao := DateToStr(DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.dEmi); Valor := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.vNF; case DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.cSitNFe of snAutorizado: Impresso := 'A'; snDenegado: Impresso := 'D'; snCancelada: Impresso := 'C'; end; end; if DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.chNFe <> '' then begin // Conjunto de informações resumo da NF-e localizadas. // Este conjunto de informação será gerado quando o Cancelamento da NF-e for homologado. sChave := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.chNFe; sSerie := Copy(sChave, 23, 3); sNumero := Copy(sChave, 26, 9); sCNPJ := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.CNPJCPF; sNome := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.xNome; sIEst := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.IE; case DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.tpNF of tnEntrada: sTipoNFe := 'E'; tnSaida: sTipoNFe := 'S'; end; sNSU := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.NSU; sEmissao := DateToStr(DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.dEmi); Valor := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.vNF; case DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resCanc.cSitNFe of snAutorizado: Impresso := 'A'; snDenegado: Impresso := 'D'; snCancelada: Impresso := 'C'; end; end; // Registra no Banco de Dados as Notas Retornadas pela Consulta DM_VEN.Manifestacao.Close; DM_VEN.Manifestacao.SQL.Clear; DM_VEN.Manifestacao.SQL.Add('Select * From Eve_Manifestacao'); DM_VEN.Manifestacao.SQL.Add('Where Empresa = :xEmpresa'); DM_VEN.Manifestacao.SQL.Add('and Chave = :xChave'); DM_VEN.Manifestacao.Params[0].AsString:=DM_CTA.xCodEmpresa; DM_VEN.Manifestacao.Params[1].AsString:=sChave; DM_VEN.Manifestacao.Active:=True; DM_VEN.Manifestacao.Open; if not ((DM_VEN.ManifestacaoEmpresa.AsString = DM_CTA.xCodEmpresa) and (DM_VEN.ManifestacaoChave.AsString = sChave)) then begin DM_VEN.IncAltDel.SQL.Clear; DM_VEN.IncAltDel.SQL.Add('Insert into Eve_Manifestacao'); DM_VEN.IncAltDel.SQL.Add('(Empresa, Chave, CNPJ, Nome, IE, Emissao, Tipo, Valor,'); DM_VEN.IncAltDel.SQL.Add('Situacao, Confirmacao, NSU, DataEvento, Protocolo)'); DM_VEN.IncAltDel.SQL.Add('Values (:xEmpresa, :xChave, :xCNPJ, :xNome, :xIE, :xEmissao, :xTipo,'); DM_VEN.IncAltDel.SQL.Add(':xValor, :xSituacao, :xConfirmacao, :xNSU, :xDataEve, :xProtocolo)'); DM_VEN.IncAltDel.Params[0].AsString:=DM_CTA.xCodEmpresa; DM_VEN.IncAltDel.Params[1].AsString:=sChave; DM_VEN.IncAltDel.Params[2].AsString:=sCNPJ; DM_VEN.IncAltDel.Params[3].AsString:=sNome; DM_VEN.IncAltDel.Params[4].AsString:=sIEst; DM_VEN.IncAltDel.Params[5].AsDateTime:=StrToDate(sEmissao); DM_VEN.IncAltDel.Params[6].AsString:=sTipoNFe; DM_VEN.IncAltDel.Params[7].AsFloat:=Valor; DM_VEN.IncAltDel.Params[8].AsString:=Impresso; DM_VEN.IncAltDel.Params[9].AsInteger:=-1; DM_VEN.IncAltDel.Params[10].AsString:=sNSU; DM_VEN.IncAltDel.Params[11].AsDateTime:=0; DM_VEN.IncAltDel.Params[12].AsString:=''; DM_VEN.IncAltDel.ExecSQL; end; end; // Fim do For end else begin // Nenhum Documento Localizado para o Destinatário if DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.cStat = 137 then begin if DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.indCont = icPossuiMaisDocumentos then begin edtUltNSU.Text := DMNFe.NFe.WebServices.ConsNFeDest.retConsNFeDest.ultNSU; MemoStatus.Lines.Add(' Nenhum Documento Localizado para o Destinatário'); MemoStatus.Lines.Add(' Utilizar o número que esta no campo: Último NSU'); MemoStatus.Lines.Add(' Para uma nova pesquisa.'); MemoStatus.Lines.Add(' '); end else begin edtUltNSU.Text := '0'; MemoStatus.Lines.Add(' Nenhum Documento Localizado para o Destinatário'); MemoStatus.Lines.Add(' '); end; end else begin MemoStatus.Lines.Add(' Falha ao realizar a consulta.'); MemoStatus.Lines.Add(' ' + sStat + ' - ' + sMotivo); MemoStatus.Lines.Add(' '); end; end; MontaChkLista; AtivaBotao; end;

Boa tarde Juliana, Atualize os fontes e teste, fazendo o favor.

Boa tarde Astrogildo, Já mandei para o SVN a sua alteração. Muito obrigado pela colaboração.

Boa tarde, Não é por nada não, mas escrever tudo em letra maiuscula soa como grito, por favor quando postar em qualquer fórum, utilize letras em minusculo.

Boa tarde Gustavo, Altere a sua aplicação de tal forma que após o XML ter sido gerado e enviado, impressa que seja gerado novamente o XML para o mesmo conhecimento. Caso ocorra o problema de enviar e não obter o retorno com o protocolo de autorização, crie um botão que permita selecionar o Conhecimento enviado mas não protocolado, feita a escolha carrega-se o XML do mesmo para o componente e realiza-se uma consulta, isso faz com que se o mesmo realmente foi enviado e já foi processando o XML vai receber as tags do protocolo de autorização. A titulo de exemplo, estude os fragmentos de código ( em formato TXT) que estão dentro da pasta ...\Exemplos\ACBrCTe.

Diogo, No caso do XP foi instalado o SP3? Quanto ao Server 2003, pesquise no fórum, me lembro de ter visto alguma coisa sobre o Server, HotFix se não me falha a memória.

Boa tarde brsamn, O que vai acontecer quando você for enviar o lote de NFe de numero 2471? Uma vez que o numero do lote é sequencial.

Boa tarde Rafael, Todos os seus clientes estão enfrentando esse problema? Todos são da UF: ES? Nas configurações avançadas do Internet Explorer esta habilitado as opções de: Verificar revogação de certificados ? Caso afirmativo, desabilita.

Boa tarde a todos, O numero do lote ao meu ver tem que ser sequencial, no meu caso tenho uma tabela onde tenho: o numero do lote, a data de evio, o numero inicial e final das NFe contidas no lote, exemplo: Lote = 1500 Data = 13/12/2012 NumInicial = 2560 NumFinal = 2568 Isso significa que no dia 13/12/2012 foi enviado o lote de numero 1500 contendo as NFe de numero 2560 até 2568.

Erick, Ao gerar o XML ele é submetido a uma validação, utilizando para isso o schema disponibilizado pelo provedor. Logo não podemos mudar a ordem ou até mesmo adicionar algo a mais, pois vai ocorrer rejeição.

Bom dia Herik, Eu utilizo 2 numeros de lote, um para o envio da NFe e outro para Eventos: CCe, Cancelamento, etc.

Bom dia Erik, Não todos os provedores de NFSe que aceitam incluir no RPS 2 mais serviçoes a maioria é apenas 1 serviço por RPS.

Bom dia Markapollo, Você tem toda razão, eu procuro diariamente visitar os Portais Nacionais da NFe e CTe, em busca de alguma NT nova, Schemas novos e noticias sobre as SEFAZ. Alem é claro de checar se tem alguma atualização de algum fonte dos componentes. Uma coisa é certa, entrar no Facebook de manhã, tarde e noite ninguem esquece, estar em frete ao estadio de futebol 2 horas antes de abrir o portão para pegar o melhor lugar é importantíssimo, agora levar o filho para tomar a vacina, chega na hora que o portão esta fechando, e reclama que não teve tempo.

Bom dia Juliomar, Algumas pessoas ficam dias e as vezes meses sem realizar atualização, e quando o faz é só da pasta que tem o componente que utiliza. E quando vai compilar ocorrem erros. Se todos procurassem atualizar diariamente de forma geral ou seja, todos os fontes de todos os componentes, exemplos, pacotes de instalação, etc não teriamos esses tipos de postagem.

Bom dia Leão, Por favor informe a mensagem de erro, sem ela não temos como lhe ajudar. E aproveitando, você esta com todos os fontes de todos os componentes atualizados? Os arquivos referentes aos fontes estão com icone com a "bolinha" verde?

Thiago, Os arquivos que ficam dentro da pasta RPS são os XML dos Recibos Provisórios de Serviços e eles são colocados dentro do envelope para envio, ao montar o envelope o encoding é acrescentado.

Thiago, Abra o arquivo 12-env-lot-c.xml (último teste realizado) que você vai ver que todos os: <?xml .... possuiem o encoding="UTF-8". E é esse XML que é enviado para o webservice.

Eis a diferença, pelo site você não utiliza o certificado digital, apenas usuário e senha e obtem o XML da NFSe assinado pelo SMF, agora pelo webservices, há necessidade de você utilizar o certificado digital e ao obter o retorno, o XML da NFSe não vem assinado pelo SMF. Isso é uma coisa para questionar o provedor da cidade em questão.

Thiago, Fiz algumas alterações principalmente no que diz respeito as UTF-8, por favor atualize os fontes e tenta novamente.