Glauco, obrigado pelo retorno.
Desculpe mas esqueci de colocar o resto da informação.
Eu já abri o processo, já recebi a senha de teste e mesmo com ela e utilizando o webservice de teste a mensagem é a mesma.
Tentei utilizar também a senha de teste no webservice de produção e não é aceito, da mesma forma tentei utilizar a senha de produção no webservice de teste que também não aceita, então acredito que esteja utilizando a senha no webservice correto, mas ainda recebo este mesmo erro.
O mais estranho agora é que passei essa minha senha para um parceiro de nossa empresa (que já havia conseguido fazer o envio) , ele testou e funcionou, conseguiu gerar, então acredito que o erro esteja aqui, estou tentando colocar os dados diretamente mas não sei se existe alguma tag para identificar o teste:
procedure TfrmNFSeSigISS.sbNFEClick(Sender: TObject);
var
RPS:tcDescricaoRps;
Ret:tcRetornoNota;
Err:tcEstruturaDescricaoErros;
Errs:tcDescricaoErros;
i:Integer;
WS:WebService_SigISSPortType;
DadosPrestador:tcDadosPrestador;
FHTTPRIO:THTTPRIO;
begin
RPS := tcDescricaoRps.Create;
Ret := tcRetornoNota.Create;
with RPS do
begin
ccm := FrmMenu.DAC_INSCRICAOMUNICIPAL;
cnpj := LimpaCarEsp(Frmmenu.CGC);
senha := FrmMenu.NFE_SENHAWEB;
aliquota_simples := FloatToStr(FrmMenu.DAC_ALQDAS);
id_sis_legado := EditNFSe.Text;
...
end;
try
//ShowMessage((HTTPRIO1 as WebService_SigISSPortType).gerateste(1));
try
WS := (HTTPRIO1) as WebService_SigISSPortType;
WS.GerarNota(RPS,Ret,Errs);
MemoErros.Lines.Add('Processo: ' + Errs[0].DescricaoProcesso +
' - Erro: ' + Errs[0].DescricaoErro);
EditAuth.Text := Ret.autenticidade;
EditLink.Text := Ret.LinkImpressao;
Update;
ShowMessage('Link: ' + Ret.LinkImpressao + #13 +
'Auth: ' + Ret.autenticidade);
except
end;
Alguém sabe se existe algo que diferencie os testes?
Obrigado mais uma vez