NFS-e Servidor Tecnos

[SidneideSouza]

Boa Noite, refiz os testes e o que esta dando erro é o componente "FReqResp: TACBrHTTPReqResp;", pois no teste coloque o mesmo que tem no trunk1 como abaixo:

var
  Resp: TMemoryStream;
  ReqResp: THTTPReqResp;
begin
  Result := '';
  if MimeType = '' then
    FMimeType := 'application/soap+xml'
  else
    FMimeType := MimeType;

   ReqResp := THTTPReqResp.Create(nil);
//   ConfiguraReqResp( ReqResp );
   ReqResp.URL := URL;
   ReqResp.UseUTF8InHeader := True;
   ReqResp.SoapAction := SoapAction;

  ConfiguraReqResp(URL, SoapAction);

  Resp := TMemoryStream.Create;
  try
    try
//      Executar(ConteudoXML, Resp);
      ReqResp.Execute(ConteudoXML, Resp);
      Resp.Position := 0;
      Result := ReadStrFromStream(Resp, Resp.Size);
      if DebugHook > 0 then
      begin
        ForceDirectories(ApplicationPath+'temp\');
        Resp.SaveToFile(ApplicationPath+'temp\ReqResp.xml');
      end;
       except
      On E: Exception do
      begin
        raise EACBrDFeException.CreateDef( Format( cACBrDFeSSLEnviarException,
                                           [InternalErrorCode, HTTPResultCode] ) + sLineBreak +
                                           E.Message ) ;
      end;
    end;
  finally
    Resp.Free;
  end;
end;

 

e funcionou. Detalhe a URL certa da Tecnos é:"RecepcaoSincrono=http://homologa%NomeURL_H%.nfse-tecnos.com.br:9091", sem "/EnvioLoteRPSSincrono.asmx".

Quando puderem retornar, Agradeço.

[Italo Giurizzato Junior]

Bom dia a todos,

Araujo, mas essa formatação consta na mesma unit do Trunk.

Então quer dizer que esse provedor já não funcionava no Trunk com essa formatação para o numero do lote?

[Rafael Araujo]

Senhores, depois de muito penar enfim consegui enviar a NFSe para a prefeitura de Portão-RS.

Mesmo após a dica do amigo Sidnei, permanecia com muitos erros na hora da validação pelo schema.

Comparando o arquivo EnvioLoteRpsSincronoEnvio.xsd que está disponível na pasta "ACBr\Exemplos\ACBrDFe\ACBrNFSe\Schemas\Tecnos" com o mesmo arquivo baixado do site do provedor Tecnos, verifiquei que os arquivos são bem diferentes entre si, acredito que os schemas disponíveis no ACBr estão desatualizados.

Tentei enviar então com os schemas baixados do site da Tecnos e também não passava pela validação.

Comecei a me questionar o como que com os fontes do TRUNK o envio era feito normalmente e ainda fiquei mais intrigado quando vi que não continham schemas na pasta do provedor Tecnos, até que cheguei a conclusão que a validação não era feita no TRUNK e por isso que funcionava.

Com esta premissa, desabilitei a validação de schemas através da flag "VALIDAR" na área [Schemas] do arquivo ini do provedor Tecnos e após isso a NFSe fora enviada.

Uma pergunta: alguém estava conseguindo enviar NFSes para o provedor Tecnos mesmo com a flag "VALIDAR" ativa?

[Italo Giurizzato Junior]

Boa tarde Araujo,

Mas existe os Schemas (arquivos XSD) na pasta Tecnos.

Note que no caso desse provedor o envio é Síncrono.

[Rafael Araujo]

Italo, o único arquivo xsd que tem na pasta do TRUNK é o xmldsig-core-schema20020212.xsd e a função GetValidarLote da antiga unit ACBrProvedorTecnos retorna sempre FALSE.

Quanto aos schemas disponíveis no TRUNK2 do ACBr e os que baixei do site do provedor Tecnos que eu havia dito estarem bem diferentes, eles vão em anexo a esta mensagem para que possa visualizar.

EnvioLoteRpsSincronoEnvio - TECNOS.xsd

EnvioLoteRpsSincronoEnvio - ACBr.xsd

[Italo Giurizzato Junior]

Boa noite Araujo,

Tente conseguir todos os Schemas.

[Rafael Araujo]

Bom dia Italo.

Claro... Segue em anexo os schemas baixados do site http://help.nfse-tecnos.com.br/downloads.aspx

Schemas_data_center.zip

[Italo Giurizzato Junior]

Bom dia Araujo,

Muito obrigado pela colaboração, já esta disponível.

[Rafael Araujo]

Italo, boa tarde.

Notei que atualizou os schemas do provedor Tecnos, porém a alteração de código fonte quanto ao número de lote proposta pelo amigo Sidnei não foi disponibilizada.

Pelos testes que efetuei, ela realmente se faz necessária... Verifique a diferença da TAG NumeroLote dos arquivos XML anexados com e sem a alteração proposta. Se não for alterado o número do lote, o WebService da Tecnos retorna um erro dizendo que o valor não é suportado para um campo Int64.

Anexarei também o fonte alterado... Linha 427.

Obrigado.

32-env-lotS --- COM ALTERAÇÃO.xml

44-env-lotS --- SEM ALTERAÇÃO.xml

pnfsNFSeG.pas

[Italo Giurizzato Junior]

Boa tarde Araujo,

Desculpe pela falha. Fiz a correção mas ainda não enviei para o repositório. Tenho algumas pendencias para resolver, espero até o final da tarde de hoje enviar.

[Giuu]

Bom dia pessoal, estou com um problema ao enviar NFS-e com o provedor Tecnos, estarei enviando em anexo imagem do erro e imagem do xml que está aparecendo os valores zerados, desde já agradeço a ajuda de todos.

 

 

Editado 4 Fevereiro, 2016 por Kakashi

[Italo Giurizzato Junior]

Bom dia,

Esse problema esta ocorrendo somente com essa nota ou com todas?

Se no XML os valores estão aparecendo zerados é porque eles não foram informados, ou seja, o componente não esta sendo alimentado de forma correta.

[Giuu]

Bom dia Italo, na verdade começou acontecer esse problema no dia de ontem, pois até um dia antes as NFS-e emitiam normalmente, sem problema algum, por isso está muito estranho, ele está alimentando corretamente a princípio.

[Italo Giurizzato Junior]

Boa tarde,

O problema ocorreu depois de uma nova compilação devido a uma atualização dos componentes?

Ou nada foi alterado?

[Giuu]

Boa tarde Italo,

Sim foi após uma atualização dos componentes.

[Italo Giurizzato Junior]

Tente "debugar" para descobrir onde ocorre o problema de não pegar as informações para serem incluidas nas TAGs do XML.

No caso da TAG ValorServicos ele se utiliza da informação alimentada na propriedade:  NFSe.Servico.Valores.ValorServicos

[Giuu]

Certo, estou alimentando corretamente acredito eu, como pode ver na imagem que estou enviando, desde já agradeço a ajuda.

 

[Italo Giurizzato Junior]

Boa noite,

Favor "debugar" essa linha para ver se realmente o valor esta sendo atribuído a propriedade ValorServicos.

[Giuu]

Boa tarde Italo,

Estou "debugando" a linha e está recebendo a informação correta, está complicado pois o cliente está aguardando para o envio da NFS-e, desde já agradeço a ajuda.

 

[Italo Giurizzato Junior]

Boa tarde,

Esse form com o valor foi lido de de onde?

[Giuu]

Boa tarde, 

O valor que está aparecendo ai é um "ponteiro" que eu coloquei no sistema com o resultado do valor que está alimentando o total dos serviços.

[Italo Giurizzato Junior]

Boa noite,

Seria interessante após executar toda a rotina que alimenta o componente ler a propriedade do componente que contem o valor do serviço.

[Giuu]

Bom dia Italo,

Fiz exatamente isso e continua retornando o problema, antes da atualização do componente estava emitindo normal e agora não emite mais, desde já agradeço a ajuda.

[Italo Giurizzato Junior]

Bom dia,

Tem algo errado na sua aplicação, pois ontem a noite realizei testes e esse tipo de problema não ocorreu.

Favor realizar testes com o programa exemplo.

[Giuu]

Boa tarde, 

Até agora só no provedor Tecnos está dando problema, nos demais está enviando normalmente, o provedor Betha está enviando normal.

Editado 11 Fevereiro, 2016 por Kakashi