Ir para conteúdo
  • Cadastre-se

Rodrigo Galvan

Membros
  • Total de ítens

    15
  • Registro em

  • Última visita

Posts postados por Rodrigo Galvan

  1. 25 minutos atrás, Juliomar Marchetti disse:

    tu tem os acessos? pois ele está ali a pedir isso e por isso não consegui importar

    não entendi qual seriam esses acessos. 

    Fiz o teste com o SOAP Ui e lá ele lê este endereço e carrega as funções. 

    to começando agora com webservice e todo os exemplos que acho falam em usar o WSDL Importer, se tiver algum outro meio de fazer manual.

    Screenshot_1.png

  2. Boa tarde, estou tentando de vários modos importar o WSDL via Importer WSDL e não está dando certo, o link é o https://wstt.omnilink.com.br/iasws/iasws.asmx?wsdl ele importa mas não carrega os parâmetros corretamente, da o erro 

    // ************************************************************************ //
      // The following types, referred to in the WSDL document are not being represented
      // in this file. They are either aliases[@] of other types represented or were referred
      // to but never[!] declared in the document. The types from the latter category
      // typically map to predefined/known XML or Embarcadero types; however, they could also
      // indicate incorrect WSDL documents that failed to declare or import a schema type.

     

    Não sei mais o que fazer não estou conseguindo consumir este webservice, se alguém souber o que posso fazer de diferente, já tentei via linha de comando mas também não cria o arquivo correto, anexo o arquivo .pas gerado pelo importador.

    se alguém puder me dar uma ajuda agradeço.

    iasws.pas

  3. Resolvi usando uma função para remover os acentos:

    Function RemoveAcentos(Str: String): String;
    { Remove caracteres acentuados de uma string }
    Const
      ComAcento = 'àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ';
      SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU';
    Var
      x: integer;
    Begin
      For x := 1 to Length(Str) do
      Begin
        if pos(Str[x], ComAcento) <> 0 Then
        begin
          Str[x] := SemAcento[pos(Str[x], ComAcento)];
        end;
      end;
      Result := Str;
    end;

    ai no código fiz assim

    Xml := docZip.Items[i].Xml;
    ACBrNFe.NotasFiscais.Add.Xml := Xml;
    Xml := RemoveAcentos(Xml);
    ArqXML := TStringStream.Create(Xml);

    Parou de dar problemas. Obrigado pela ajuda indicando onde estava o problema.

     

    Podem marcar como Resolvido.

    • Curtir 1
    • Haha 1
  4. Agora a tarde começou a gerar este erro ao baixar as notas fiscais.

    First chance exception at $00007FFF9B4C5299. Exception class EDOMParseError with message
    'Caractere inválido encontrado no texto.

    Line: 1
    <?xml version="1.0" encoding="UTF-8"?><n'.
     

     

    para baixar uso  ACBrNFe.DistribuicaoDFePorChaveNFe(41, fdqEmpresacnpj.AsString,fdqNotasFiscaischaveacesso.AsString);

    anexo xml baixado

    42181282951310000156558900020935621084109070-nfe.xml

×
×
  • 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.

The popup will be closed in 10 segundos...
The popup will be closed in 10 segundos...