Ir para conteúdo
  • Cadastre-se

dev botao

Erro Provedor Betha


Ver Solução Respondido por Oneide Luiz Schneider,
  • Este tópico foi criado há 3289 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado (editado)

Boa tarde..

 

alguem ja passou esse erro, imagem em anexo..

 

a NFSe chega la no servidor deles e processa normal, mas apos da esse erro..

 

é nessa parte na segunda consulta, parece algo de schemas

ReqResp.Execute(Acao.Text, Stream); linha 3436 unit acbrnfsewebservices

post-25214-0-06304800-1407431380.png

post-25214-0-83381200-1407437441_thumb.p

Editado por Oneide Luiz
 
 
 
Att. 
Oneide Luiz Schneider
Software Developer
Location: Chapecó / SC - Brazil
  • Consultores
Postado

Boa tarde Oneide,

 

Tente realizar esses 2 testes:

 

Como você emitindo em ambiente de testes, altere as URLs da function GetSoapAction que esta na unit ACBrProvedorBetha.pas

 

Inclua nas URLs a palavra test:

 

..../e-nota-contribuinte-test-ws/....

 

Se não funcionar deixe as URLs em branco:

 

Result := '';

 

Fazer essas alterações para todas as ações.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Postado (editado)

boa tarde

 

esta como Administrador/  e é a versao Home Premium imagem em anexo (é uma VM)..

 

mas tambem da o erro no windows 8 pro

post-25214-0-14155900-1407780580_thumb.p

Editado por Oneide Luiz
 
 
 
Att. 
Oneide Luiz Schneider
Software Developer
Location: Chapecó / SC - Brazil
  • Consultores
Postado

Oneide,

 

Não me recordo agora, mas por favor pesquise no fórum sobre permissão de usuário, existem algumas dicas de como alterar.

 

Apesar de estar como administrador, mesmo assim ainda esta em um nível mais baixo que deveria.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Postado

certo pode ate ser, vou ver algo..

mas so par constar.. peguei a versão de antes de 1 de julho dese ano que a que esta no cliente, e ela esta OK.. transmite certinho..

por isso vim aqui pedir isso..

 

mas vou verificar..

 
 
 
Att. 
Oneide Luiz Schneider
Software Developer
Location: Chapecó / SC - Brazil
Postado (editado)

Boa tarde Oneide, depois que migrei para o Delphi xe6 estou com o mesmo problema..

 

buffer do usuário não é válido para a operação solicitada. - URL:https://e-gov.betha.com.br/e-nota-contribuinte-test-ws/consultarLoteRps?wsdl - SOAPAction:http://www.betha.com.br/e-nota-contribuinte-ws/consultarLoteRps'

 

Oneide vc conseguiu resolver?

 

Estou usando o windows 8. Antes usava o Delphi 2006 e nunca tive este tipo de problema..

Editado por quelps
Postado

bom dia

 

->ainda não.. ainda não atualizei o sistema no cliente, ele esta na versão do XE4 ainda hehe...

mas é bem no método de envio que é do delphi e não do acbr.. e o mais estranho é que a nota chega la no provedor só na hora da consulta para pegar a NFSe..

ainda estou tentando ver uma solução.. e no provedor Gov-BR/Pronim vai certinho...

 

->Estou vendo em um projeto especifico que temos no Delphi 2007, e la também funciona..

 

mas se concluir algo aviso aqui.. e vc tb se tiver uma ideia..

 

Obrigado.

 
 
 
Att. 
Oneide Luiz Schneider
Software Developer
Location: Chapecó / SC - Brazil
  • 3 semanas depois ...
Postado

nao é no provedor, é no XE6.

Hoje gerei um versao no XE4 e foi normal, testei novamente no XE6 e deu ''pau''.

 

é alguma incompatibilidade com o XE6. E o estranho que a nota chega no servidor da betha, processa ela certinho, mas o retorno que é o problema, como postei nas imagens acima.

 
 
 
Att. 
Oneide Luiz Schneider
Software Developer
Location: Chapecó / SC - Brazil
  • Solution
Postado (editado)

Excelente pessoal, deu certo.

 

->So adicinar o path o caminho : C:\Program Files (x86)\Embarcadero\Studio\14.0\source\soap\

 

->Alterar a UNIT Soap.SOAPHTTPTrans.pas

DE :

{$IFDEF UNICODE}
HttpSendRequest(Request, nil, 0,
DatStr.Bytes, DatStr.Size);
{$ELSE}
HttpSendRequest(Request, nil, 0,
@DatStr.DataString[1],
Length(DatStr.DataString));
{$ENDIF}
RetVal := HandleWinInetError(GetLastError, Request, True);

 

PARA:

{$IFDEF UNICODE}
WinInetResult := HttpSendRequest(Request, nil, 0,
DatStr.Bytes, DatStr.Size);
{$ELSE}
WinInetResult := HttpSendRequest(Request, nil, 0,
@DatStr.DataString[1],
Length(DatStr.DataString));
{$ENDIF}

if not WinInetResult then
RetVal := HandleWinInetError(GetLastError, Request, True);

 

e criar a variavel WinInetResult : Boolean;

Que var dar certo.

 

Obrigado a todos pela ajuda.

Editado por Oneide Luiz
  • Curtir 3
 
 
 
Att. 
Oneide Luiz Schneider
Software Developer
Location: Chapecó / SC - Brazil
  • 4 meses depois ...
  • 2 meses depois ...
Postado

Bom dia pessoal.

Fiz estas alterações na unit, porém não funcionou no delphi XE7. Será que estou esquecendo algo?

Agradeço

Atenciosamente

Caetano

'Juntos podemos mais'

  • Este tópico foi criado há 3289 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.