marcio.teixeira

Eu desenvolvi um sistema próprio de envio, nele usava o método Limitado, ali o processamento ocorre junto com o envio. Mas por causa das outras cidade resolvido usar o ACBr, para deixar mais centralizadas as coisas. Pra você costuma ocorrer erro no retorno do webservice, algo do tipo JavaSqlException?

Bom dia. É possível usar o método recepcionarLoteRpsLimitado na NFS-e de São Leopoldo, provedor Thema? Tentei alterar isso no método GeraEnvelopeRecepcionarLoteRPS da unit ACBrProvedorThema, mas ficou na mesma, troquei recepcionarLoteRps por recepcionarLoteRpsLimitado e não processou na hora. No cliente o envio será nota por nota, ficaria melhor se fosse processado na hora.

Alguém já teve problema no retorno do webservice do provedor Thema, cidade São Leopoldo/RS? Algumas vezes me retorna essa mensagem: --- The error occurred while executing update procedure. --- Check the call GRP_TRI_nfse_pack.gravaLote(?, ?, ?, ?, ?, ?, ?). --- Check the SQL Statement (preparation failed). --- Cause: java.sql.SQLException: An SQLException was provoked by the following failure: java.lang.InterruptedException Ou então essa: SqlMapClient operation; uncategorized SQLException for SQL []; SQL state [null]; error code [0]; --- The error occurred while executing query. --- Check the SELECT GRP_TRI_nfseMensagem.codigo as codigo, GRP_TRI_nfseMensagem.codigo || chr(45) || (case when nvl(GRP_TRI_nfseConsistencia.numeroRps,1) NOT IN(1) then 'Rps ' || trim(to_char(GRP_TRI_nfseConsistencia.numeroRps)) || ' ' || SUBSTR(TRIM(GRP_TRI_nfseMensagem.MENSAGEM),1,180) else SUBSTR(TRIM(GRP_TRI_nfseMensagem.MENSAGEM),1,200) end) as MENSAGEM, GRP_TRI_nfseMensagem.SOLUCAO FROM GRP_TRI_nfseConsistencia, GRP_TRI_nfseMensagem WHERE GRP_TRI_nfseConsistencia.numeroProtocolo = ? AND GRP_TRI_nfseConsistencia.codigoMensagem = GRP_TRI_nfseMensagem.codigo . --- Check the SQL Statement (preparation failed). --- Cause: java.sql.SQLException: An SQLException was provoked by the following failure: java.lang.InterruptedException; nested exception is com.ibatis.common.jdbc.exception.NestedSQLException: --- The error occurred while executing query. --- Check the SELECT GRP_TRI_nfseMensagem.codigo as codigo, GRP_TRI_nfseMensagem.codigo || chr(45) || (case when nvl(GRP_TRI_nfseConsistencia.numeroRps,1) NOT IN(1) then 'Rps ' || trim(to_char(GRP_TRI_nfseConsistencia.numeroRps)) || ' ' || SUBSTR(TRIM(GRP_TRI_nfseMensagem.MENSAGEM),1,180) else SUBSTR(TRIM(GRP_TRI_nfseMensagem.MENSAGEM),1,200) end) as MENSAGEM, GRP_TRI_nfseMensagem.SOLUCAO FROM GRP_TRI_nfseConsistencia, GRP_TRI_nfseMensagem WHERE GRP_TRI_nfseConsistencia.numeroProtocolo = ? AND GRP_TRI_nfseConsistencia.codigoMensagem = GRP_TRI_nfseMensagem.codigo . --- Check the SQL Statement (preparation failed). --- Cause: java.sql.SQLException: An SQLException was provoked by the following failure: java.lang.InterruptedException O pior é que a nota é recebida pelo site, mas como ocorre o erro não tenho o Xml de retorno para atualizar os dados de envio no sistema do cliente.

Bom dia. Outra informação que pode ser útil a quem quiser ajudar. O Xml de retorno do webservice está ok, vem com todas as informações de confirmação de cancelamento.

Pessoal, estou testando o cancelamento de notas, ele ocorre, a nota é realmente cancelada, só que as informações não são carregadas para o retorno, a data de cancelamento está zerada. Meu código de solicitação: var Stream: TStringStream; begin Result := nil; if aEnvio = nil then Exit; FNFSe.NotasFiscais.Clear; CarregaConfiguracao(FCodUnidade); try try MostraTelaConexao(); if FNFSe.ConsutaNFSeporRps(IntToStr(aEnvio.NumeroRps), aEnvio.Serie, IntToStr(aEnvio.Tipo), aEnvio.Cnpj, aEnvio.InscricaoMunicipal) then begin Stream := TStringStream.Create(FNFSe.WebServices.ConsNfseRps.RetWS); FNFSe.NotasFiscais.LoadFromStream(Stream); Application.MessageBox(PChar(FNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero), 'Erro', MB_ICONERROR + MB_OK + MB_DEFBUTTON1); if FNFSe.CancelarNFSe('2') then Result := TRespostaCancelamentoNfse.Create(FNFSe); end; finally FechaTelaConexao(); end; except on E: Exception do TrataErro(E); end; Meu código de tratamento do retorno: constructor TRespostaCancelamentoNfse.Create(aNFSe: TACBrNFSe); begin inherited Create(); FSucesso := False; if aNFSe.WebServices.CancNfse.NFSeRetorno.InfCanc <> nil then FSucesso := aNFSe.WebServices.CancNfse.NFSeRetorno.InfCanc.DataHora <> 0; end; Estou usando algo de forma errada? Obs.: estou usando os novos fontes.

Pois é, o que eu fiz foi passar a salvar o xml e carregar na hora da consulta. Mas com certeza seria melhor só passar os parâmetros e consultar. Até é possível pelo que ví, usando a consulta a partir de NFSe.WebServices.ConsultaLoteRps(Protocolo, Cnpj, InscricaoMunicipal) ao invés de NFSe.ConsutarLoteRps(NumeroLote, Protocolo), mas ai dá erro ao passar as informações para a NotasFiscais.Items[ii] dentro do método Executar de TNFSeConsultarLoteRPS. Está assim: FRetListaNfse := SeparaDados(FRetWS, Prefixo3 + 'ListaNfse'); i := 0; while FRetListaNfse <> '' do begin // Alterado por Rodrigo Cantelli j := Pos('' + Prefixo3 + NotaUtil.seSenao(FProvedor = proBetha, 'ComplNfse', 'CompNfse') + '>', FRetListaNfse); p := Length(trim(Prefixo3)); if j > 0 then begin // Alterado por Italo em 19/07/2012 for ii := 0 to NFSeRetorno.ListaNfse.CompNfse.Count -1 do begin if FNotasFiscais.Items[ii].NFSe.IdentificacaoRps.Numero = NFSeRetorno.ListaNfse.CompNfse.Items[i].Nfse.IdentificacaoRps.Numero then begin FNotasFiscais.Items[ii].NFSe.CodigoVerificacao := NFSeRetorno.ListaNfse.CompNfse.Items[i].Nfse.CodigoVerificacao; FNotasFiscais.Items[ii].NFSe.Numero := NFSeRetorno.ListaNfse.CompNfse.Items[i].Nfse.Numero; FNotasFiscais.Items[ii].NFSe.Competencia := NFSeRetorno.ListaNfse.CompNfse.Items[i].Nfse.Competencia; FNotasFiscais.Items[ii].NFSe.NfseSubstituida := NFSeRetorno.ListaNfse.CompNfse.Items[i].Nfse.NfseSubstituida; Será que não poderia haver um opção para pegar o Xml da consulta da situação e carregar as notas no campo FNotasFiscais via StringStream? Assim: FNotasFiscais.LoadFromStream(TStringStream.Create(FRetListaNfse)); Dessa forma não precisamos carregar o Rps.

Alguém ja teve esse erro e ou sabe como resolver?

Italo, ok agora vi que dá para passar vazio. Desculpe, é que estou usando os componentes a pouco dias. Value.

Ok, entendi, vou passar para o componente os dados e dai consultar. Outra dúvida que surgiu agora: No método TWebServicesBase.LoadMsgEntrada, o sistema carrega o Websrvice conforme FConfiguracoes.WebServices.Provedor informado. Porém esse campo é read only, não consigo setar o provedor, ainda dependendo do médoto Configuracoes.WebServices.SetConfigMunicipio() para isso. A ideia não era eliminar o uso desse arquivo? Como posso fazer isso?

Nos novos fontes da NFSe na ConsutarNFSeporRps() há uma validação que exige que tenham registros na NotaFiscal: if NotasFiscais.Count <= 0 then begin if Assigned(Self.OnGerarLog) then Self.OnGerarLog('ERRO: Nenhum RPS adicionado'); raise Exception.Create('ERRO: Nenhum RPS adicionado'); exit; end; Não entendi o porque dessa validação, não digo que está errada, talvés eu não esteje usando corratamente, mas e se eu não tiver o arquivo Xml em mãos, como vou fazer para carregar a nota? Vi que no exemplo é feito um load, a nota é carregada e a consulta é feita buscando os parâmetros da propria nota carregada: OpenDialog1.Title := 'Selecione o Rps'; OpenDialog1.DefaultExt := '*-Rps.xml'; OpenDialog1.Filter := 'Arquivos Rps (*-Rps.xml)|*-Rps.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFSe1.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin ACBrNFSe1.NotasFiscais.Clear; ACBrNFSe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); ACBrNFSe1.ConsutarNFSeporRps(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo), ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.Cnpj, ACBrNFSe1.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal); MemoResp.Lines.Text := UTF8Encode(ACBrNFSe1.WebServices.ConsNfseRps.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrNFSe1.WebServices.ConsNfseRps.RetWS); LoadXML(MemoResp, WBResposta); end; Nesse caso, porque eu consultaria via webservice se tenho o Xml? E no caso de não ter o Xml salvo na máquina, como consultar?

Boa tarde. Fiz a instalação dos novos fontes. Porém está dando erro 'Property TransparentBand does not exist', na instalação deu erro de compilação, ai alterei a unit do quickretpor para qrtp70, que é a versão que usamos aqui. Deve ser esse o problema. Tem como resolver isso?

Boa tarde. Essa impressão feita com o componente TACBrNFSeDANFSeQR serve apenas como comprovante ou é a NFS-e? Pergunto porque preciso imprimir um comprovante para entrega ao cliente, trabalho atualmente com duas cidades, o comprovante será o mesmo?

Pessoal, encontrei o problema: o correto é deixar {$DEFINE ACBrNFSeOpenSSL} descomentada, porém tem que incluir o caminho ACBr\Fontes\synalist no Library. Está resolvido. Obrigado. Sim, baixei do trunk também.

Bom dia. Uso Delphi 7. Baixei os fontes do ACBr e segui o manual Instalar_ACBrNFSe.txt da pasta https://acbr.svn.sourceforge.net/svnroot/acbr/branches. Foi criada a aba ACBr com os componentes, tudo ok. Porém, quando vou compilar dá erro de [Error] ACBrNFSeUtil.pas(114): Undeclared identifier: 'ICertificate2' e [Fatal Error] ACBrNFSeUtil.pas(126): File not found: 'libxml2.dcu' na ACBrNFSeUtil, e com {$DEFINE ACBrNFSeOpenSSL} descomentada, se comentar da erro [Fatal Error] ACBrNFSeNotasFiscais.pas(15): File not found: 'smtpsend.dcu' na ACBrNFSeNotasFiscais. Será que fiz algo de errado na instalação?

Boa tarde. Estou desenvolvendo rotina de geração de Xml de NFS-e. Já fiz para a prefeitura de São Leopoldo/RS e agora estou tentando fazer para Pelotas/RS. As classes de modelagem do Xml eu importei atravez da ferramente XM Data Binding do Delphi (7). Como a estrutura é a mesma nas duas cidades, gostaria de aproveitar essas classes que uso em São Leopoldo em Pelotas. A diferença está nos namespaces, em São Leopolso há apenas um Xsd com todas as definições, ai fica fácil, coloco um namespace geral, sem prefixo e nada e funciona legal. Só que em Pelotas para cada serviço irá o Xsd expecífico, além do Xsd dos tipos que pelo que vi irão em todos os arquivos. Não sei como em tempo de execução incluir esses namespaces, alguém tem alguma sugestão?

Boa tarde. Hoje começou a ocorrer erro no envio de NFS-e. O sistema de envio é em Delphi e usa o componente HTTPRIO. Ao enviar, através do método EnviarLoteRpsEnvioLimitado, ocorre um erro. Coloquei um try..except para pegar a descrição e o conteúdo é apenas '1'. Alguém já passou por isso e sabe como resolver? Estranho é que isso começou hoje. NFS-e de São Leopoldo / RS.

Sim, desabilitamos o UCA. O próprio usuário de instalação é um administrador. O mais estranho é que após instalar funcionava, somente dava problema depois de reiniciar.

Boa tarde. A quem estiver passando pelo mesmo problema: no Windows XP o problema não ocorreu em máquina alguma, somente no Windows 7. Consegui resolver configurando o aplicativo de gerenciamento do token para executar em modo de compatibilidade com Windows XP SP 3. Não encontrei outra forma, pesquisei e entrei em contato com o forncedor do produto... foi isso que resolveu.

Se não é desligado a noite funciona normal. Senão, só consigo removendo o driver e instalando novamente. Vou tentar instalar executando como administrador, conforme sugerido. Não sei se inicia junto com o Windows, até acho que o problema é esse. Não achei a configuração referente a isso.

Boa tarde. Tenho uma máquina com Windows 7 32 bits onde instalo um token (SafeWeb, o azul). Após a instalação, consigo assinar os xml's normalmente. Porém, a noite o micro é desligado e ao ligar no outro dia e tentar assinar um xml ocorre o erro 'Tipo de provedor inválido especificado' e fecha o aplicativo. Alguém já tem ideia de como resolver?

Bom dia. Gostaria de saber se existe componente para NFS-e, padrão Abrasf. Preciso desenvolver para a Prefeitura Municipal de São Leopoldo / RS.