WebIss Vs 2.02

[diego2607]

WebISSv2.ini

 

Seque o arquivo WebISSv2.ini , por favor se alguém puder testar e me dar o retorno fico grato.

[Mauricio Andrade]

vou testar e te falo

[Mauricio Andrade]

esse INI consegue enviar mais processa com erro, estou tentando

 

 

WebISSv2.ini

[diego2607]

Qual o Erro?

[Mauricio Andrade]

Pessoal , consegui enviar o lote para webiss v2 niteroi

tem que ser sincrono

Abs

 

WebISSv2.ini

[Italo Giurizzato Junior]

Boa noite a todos,

Favor utilizar o INI do provedor que encontra-se no repositório.

[DelfinoManfredini]

Italo, Boa Noite

Hoje fizemos a atualização dos componentes usando o ACBrInstall_Trunk2, usamos a opção para remover  os arquivos antigos do disco para ter certeza do teste.

Na transmissão usando  ACBrNFSe1.Enviar(StrToInt(vNumLote),true);  recebermos a mensagem "A funcionalidade [Consultar Situação do Lote] não foi disponibilizada pelo provedor: WebISSv2".

[Juliomar Marchetti]

10 horas atrás, DelfinoManfredini disse:

Italo, Boa Noite

Hoje fizemos a atualização dos componentes usando o ACBrInstall_Trunk2, usamos a opção para remover  os arquivos antigos do disco para ter certeza do teste.

Na transmissão usando  ACBrNFSe1.Enviar(StrToInt(vNumLote),true);  recebermos a mensagem "A funcionalidade [Consultar Situação do Lote] não foi disponibilizada pelo provedor: WebISSv2".

Bom dia exatamente!

esse provedor pode não ter a funcionalidade disponível

[Mauricio Andrade]

Bom juliomar,

Estou usando enviarsincrono e coloco para não consultar lote ao apos o envio, após consulto por NFSe por RPS. (Somente o protocolo que não tem)

PS: No modo Enviar, o lote fica esperando processamento.

Espero ter ajudado

Abs

[DelfinoManfredini]

Bom Dia Juliomar/Maurício,

Acessando  o endereço de produção  https://niteroirj.webiss.com.br/ws/nfse.asmx  não tem realmente a funcionalidade consultar situação do lote, tem:

• CancelarNfse

• ConsultarLoteRps

• ConsultarNfsePorFaixa

• ConsultarNfsePorRps

• ConsultarNfseServicoPrestado

• ConsultarNfseServicoTomado

• GerarNfse

• RecepcionarLoteRps

• RecepcionarLoteRpsSincrono

Juliomar, somente para confirmar e colaborar com o pessoal do forum que atualiza o componente (vou fazer os testes mais tarde), usando enviarsincrono para não consultar e em seguida consultar NFSe por RPS, a nota ficou registrada na prefeitura e conseguiu emitir a NFSe atraves do componente?

Grato

Delfino

[DelfinoManfredini]

Desculpe, a pergunta sobre o resultado do uso de enviarsincrono é para o Maurício Andrade.

[Rafael Araujo]

Senhores, boa tarde.

Com os fontes novos eu consegui fazer o envio do RPS pelo método EnviarSincrono, porém o método não está conseguindo ler o XML de retorno da prefeitura e popular as properties dentro do componente.

Debugando, acredito que o problema esteja na unit pnfsEnvLoteRpsResposta.pas, mais especificamente na função TretEnvLote.LerXml que para o provedor WebISSv2 chama a função LerXml_ABRASF e ela faz referencias a tags que não estão presentes no XML de retorno.

Segue em anexo ao XML de retorno da prefeitura.

30739-recS-soap.xml

30739-recS.xml

[Mauricio Andrade]

Delfino,

Consegui enviar pelo modo enviarsincro e logo depois faço a consulta consultar NFSe por RPS, funciona perfeitamente, trazendo tudo (-) o protocolo, 

OBS: A NFSe está certinha no WebService....

Se eu mando somente como enviar, fica o lote para processamento e não traz retorno algum

Exemplo abaixo:

              try
                  if sProvedor = 'webissv2' then
                     begin
                          ACBrNFSe1.Configuracoes.Geral.ConsultaLoteAposEnvio := False;
                          bOK := ACBrNFSe1.EnviarSincrono(StrToInt(edtProx_Lote.Text),False);
                     end
                  else bOK := ACBrNFSe1.Enviar(StrToInt(edtProx_Lote.Text),False);
              except
                  sArq_XML := sDirNFSe+'\'+
                              FormatDateTime('yyyymm',qryPedido.FieldByName('dt_nf').AsDateTime)+
                              '\Recibos\'+qryPedido.FieldByName('num_nf').AsString+qryPedido.FieldByName('serie_nf').AsString+'-Rps.xml';
                             

                   ACBrNFSe1.NotasFiscais.LoadFromFile(sArq_XML);

                  bOK := ACBrNFSe1.ConsultarNFSeporRps(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero,
                                                                    ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie,
                                                                    TipoRPSToStr(ACBrNFSe1.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo));
              end;

              if bOK = False then
                   ShowMessage('Verifique a situação da RPS > '+qryPedido.FieldByName('num_nf').AsString)
              else
                  begin
                      sDANFE_Protocolo    := ACBrNFSe1.WebServices.ConsSitLoteRPS.Protocolo;

                      if sProvedor = 'webissv2' then
                         iSit_RPS := 4
                      else iSit_RPS := StrToIntDef(ACBrNFSe1.WebServices.ConsSitLoteRPS.Situacao,0);

                      sDANFE_CodVerif     := ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao;
                      iTam_NFSe           := length(ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero);
                      sDANFE_NFSe         := ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero;
                      sLinkNFSe           := ACBrNFSe1.NotasFiscais.Items[0].NFSe.OutrasInformacoes;

continua ...

OBs: Só não traz o protocolo

[Rafael Araujo]

Estranho... No meu caso, o método EnviarSincrono retorna False.

Debugando notei que acontece na função TWebServices.EnviaSincrono da unit ACBrNFSeWebServices. Devido ao problema por mim mencionado no post anterior, ou seja, não conseguir ler o XML de Retorno, a linha "Result := FEnviarSincrono.Executar" tem resultado negativo e com isso, logo abaixo é gerado um exception, porém sem mensagem alguma.

Segue o fragmento de código da unit ACBrNFSeWebServices:

 

function TWebServices.EnviaSincrono(ALote: String): Boolean;
begin
  FEnviarSincrono.FNumeroLote := ALote;

  Result := FEnviarSincrono.Executar;

  if not (Result) then
    FEnviarSincrono.GerarException( FEnviarSincrono.Msg );

. 

.

.

.

.

end;

 

[Mauricio Andrade]

volta false mesmo, mais aí eu faço a consulta NFSe por RPS , e lá está a NFSe ....

Só consegui desta forma...

foi por esta causa que coloquei o enviarsincrono dentro de um try

[Italo Giurizzato Junior]

Boa noite a todos,

Favor atualizar os fontes e refaçam os testes.

[João Bueno]

também estou com problema neste webservice para Niteroi...

 

como diz o italo, esse pessoal bebe gasolina mesmo... é triste.

[João Bueno]

pessoal, a princípio eu consegui aqui, está me retornando erros de validação de dados do cliente...

mas o que fiz foi, alterar para:

<cabecalho xmlns="http://www.abrasf.org.br/nfse.xsd" versao="2.02"><versaoDados>2.02</versaoDados></cabecalho>

<EnviarLoteRpsEnvio xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://www.abrasf.org.br/nfse.xsd">

os atributos precisam estar conforme acima.

utilizei o método RecepcionarLoteRps.

espero ajudar o pessoal ! abs!

 

Editado 30 Maio, 2017 por joaobuenosi

[Italo Giurizzato Junior]

Boa noite João,

Favor anexar os fontes que você alterou, para que possamos avaliar.

[João Bueno]

Em 2017-5-30 at 21:14, Italo Jurisato Junior disse:

Boa noite João,

Favor anexar os fontes que você alterou, para que possamos avaliar.

Olá Italo bom dia, 

na verdade eu não alterei fonte nenhum aqui e por muitas vezes já obtive ajuda aqui, então quando posso eu ajudo por aqui também, eu desenvolvi essa NFs-e para niteroi e essa alteração básica que postei fez o webservice deles responder corretamente.

Alguém precisa testar no ACBR.

Att,

[Italo Giurizzato Junior]

Boa noite João,

Na sua postagem você que os atributos "precisam estar conforme acima".

Como eles estavam aparecendo no XML?

[João Bueno]

OI Italo,

Então, conforme eu disse, os atributos do xml para a tag de "cabecalho" e "EnviarLoteRpsEnvio" precisam estar iguais ao trecho de código abaixo:

<cabecalho xmlns="http://www.abrasf.org.br/nfse.xsd" versao="2.02"><versaoDados>2.02</versaoDados></cabecalho>

<EnviarLoteRpsEnvio xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://www.abrasf.org.br/nfse.xsd">

eu estava recebendo erros diversos e malucos, até adequar os atributos conforme acima, e aí o webservice deles respondeu corretamente.

Outro detalhe é que o webservice deles está demorando bastante para processar os lotes. 

eu mando em um dia, e só processam no outro... triste..

OBS: eu não alterei nada nos fontes do ACBR, se alguém puder testar e confirmar seria bom.

Att,

 

 

 

[Mauricio Andrade]

João,

Use enviar.sincrono

o arquivo webissv2.ini que estou lhe enviando está funcionando perfeitamente comigo.

Espero ter ajudado...

Abs

 

 

WebISSv2.ini

[diego2607]

Boa tarde!

 

Estou conseguindo mandar ate 7 notas, se mandar 8 notas juntas da o erro:

 

Erro Interno: 0
Erro HTTP: 413

 

Alguém sabe oque pode ser?

[diego2607]

Tanto o envio Síncrono como o Assíncrono acontece esse erro.