envio de arquivos bloco X

[microbit]

Boa tarde, eu estou tentando enviar os arquivos XML do bloco X e esta dando erro.

Estou usando os comandos:

ACBrBlocoX1.WebServices.EnviarBlocoX.XML := xmlstring;
ACBrBlocoX1.WebServices.EnviarBlocoX.executar;

Dai da o seguinte erro, segue a imagem.

[Juliomar Marchetti]

Boa tarde

como está configurado o certificado para esse envio?

[microbit]

Eu estou usando um certificado A1, do AM, que uso para fazer cupom eletronico.

Eu pego a serie e a data do certificado e coloco nas configurações do acbrblocox.

EdtSerie.Text := ACBrBlocoX1.SSL.SelecionarCertificado;

ACBrBlocoX1.Configuracoes.Certificados.NumeroSerie :=  EdtSerie.Text;  ACBrBlocoX1.Configuracoes.Certificados.Senha := EdtSenha.Text;

 

Eu tbm mudo o estado pra AM.

[microbit]

Bom dia, tem um outro post sobre isso que me mandaram que foi "fechado por duplicação", mas o que eu faço? tenho que fazer algo no arquivo ou no código fonte?

[Juliomar Marchetti]

Bom dia!

você desenvolve em delphi?

se sim por que não preenche a classe do componente e manda gerar e enviar pelo próprio componente?

[microbit]

No caso meu sistema é feito em outra linguagem, dai de la eu gero o xml e pelo delphi eu só assino e envio, pois a minha outra linguagem não faz essa parte.

Mas  o que há de errado, pra dar esse problema?

[EMBarbosa]

Esse erro parece ser gerado quando o certificado não está bem configurado no componente. Tivemos um tópico citando esse erro anteriormente, talvez lê-lo ajude a ter uma ideia do que pode ter acontecido.

http://www.projetoacbr.com.br/forum/topic/25466-erro-ao-ajustar-internet_option_client_cert_context-12046/?page=1

http://www.projetoacbr.com.br/forum/topic/27000-erro-ao-ajustar-internet_option_client_cert_context-12046/

Alguns links que podem ajudar:

https://www.experts-exchange.com/questions/12011039/InternetSetOption-gives-12046-Error.html

https://msdn.microsoft.com/en-us/library/windows/desktop/aa385328(v=vs.85).aspx

[microbit]

Obrigado pela resposta, fazendo a seguinte configuração, deu certo.

configuracoes.geral.SSLLib        := libCapicom

Agora, como eu pego o retorno? se o arquivo foi mesmo e sem erros ou esta com erros.

Pois no Ato Cotepe diz ter um xml de retorno com algumas informações do envio.

[Juliomar Marchetti]

ACBrBlocoX1.WebServices.EnviarBlocoX.XML := 'stringxml';
ACBrBlocoX1.WebServices.EnviarBlocoX.Executar;
ACBrBlocoX1.WebServices.EnviarBlocoX.RetWS; 

 

[microbit]

Bom dia, só agora consegui testar esse comando, deu certo, obrigado.

Mas só uma duvida, esse comando RetWs em retorna um xml de retorno, dai para ver se foi validado ou não eu tenho que ver o campo de validação desse retorno, tem algum comando para isso? Ou tenho que pegar o conteudo do RetWs e tratar como um xml normal mesmo?

Grato

[Juliomar Marchetti]

53 minutos atrás, microbit disse:

Bom dia, só agora consegui testar esse comando, deu certo, obrigado.

Mas só uma duvida, esse comando RetWs em retorna um xml de retorno, dai para ver se foi validado ou não eu tenho que ver o campo de validação desse retorno, tem algum comando para isso? Ou tenho que pegar o conteudo do RetWs e tratar como um xml normal mesmo?

Grato

Deve pegar e tratar!

com o tempo iremos ver de criar uma propriedade e trazer separado em uma classe os dados!

[microbit]

Eu usei os seguintes comandos para pegar o retorno.

XMLDocument1.Active := True;
XMLDocument1.LoadFromXML(ACBrBlocoX1.WebServices.EnviarBlocoX.RetWS);

Mas da erro pois o conteúdo do RetWs não começa com a tag xml, começa com a tag EnviarResult e da erro no comando.

O que eu posso fazer nesse caso?

Segue a tela do erro.

[Juliomar Marchetti]

Bom dia!

o arquivo que retorna não vai conseguir ler ele no XMLDocument!

será necessário conferir para efetuar a leitura e repassar em uma classe essas informações