MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    webservice VBA Access

    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 13/10/2011

    webservice VBA Access Empty webservice VBA Access

    Mensagem  ifahidalgo em 29/1/2020, 15:31

    senhores

    Boa Tarde

    preciso de alguma luz em relação a consumo de webservice no access, na internet não tem muito conteudo. tenho o link e faço o teste em software apropriado o SUAPUI e fiz o teste de consumo, tudo ok.

    No access 365 tentei na parte de importação, serviços de dados, tento criar o vinculo conexão, por esse assistente e sempre me apresenta o mesmo erro. sendo que o link não está errado.

    segue em anexo a tela do error.

    se alguem tiver algum conteudo de consumo de webservice(wsdl) via vba

    Obrigado a todos
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2136
    Registrado : 22/11/2016

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  DamascenoJr. em 29/1/2020, 23:14

    Assunto já batido neste fórum.

    Veja uma luz neste tópico
    https://www.maximoaccess.com/t34574-resolvidoimportar-xml-erro-de-timeout


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 13/10/2011

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  ifahidalgo em 30/1/2020, 11:35

    Caro Damasceno

    Bom Dia

    Verifiquei o codigo, mas a xml que tenho parece ser diferente. estou enviando o xml em anexo.


    Obrigado
    Anexos
    webservice VBA Access Attachmentwebservice.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (2 Kb) Baixado 19 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2136
    Registrado : 22/11/2016

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  DamascenoJr. em 30/1/2020, 20:08

    É esse o XML devolvido pelo SOAPUI após um envio?

    Seu XML tá com cara de XSD. Veja sobre os dois no link abaixo
    pt.stackoverflow.com/questions/71992/qual-%C3%A9-a-diferen%C3%A7a-entre-um-arquivo-xml-e-um-arquivo-xsd


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 13/10/2011

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  ifahidalgo em 30/1/2020, 20:18

    desculpe mas enviei o arquivo errado. esse é o correto
    Anexos
    webservice VBA Access Attachmentwebservice.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (2 Kb) Baixado 10 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2136
    Registrado : 22/11/2016

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  DamascenoJr. em 30/1/2020, 20:23

    Continuo com o mesmo pensamento. É uma estrutura de XSD.

    Onde você está encontrando este arquivo?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 13/10/2011

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  ifahidalgo em 30/1/2020, 20:32

    esse webservice, foi disponibilizado pelo sistema de vendas não sei a linguagem da empresa para se comunicar com o sistema de almoxarifado feito em access
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2136
    Registrado : 22/11/2016

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  DamascenoJr. em 30/1/2020, 21:12

    Em uma integração com WebService, um XML é enviado para um endereço e então é retornado um outro XML como resposta.

    Veja na imagem como funciona isso no SOAPUI.

    Na seta 1 é o XML a ser enviado. Na seta 2 o envio será feito. E na seta 3 surgirá um XML como resposta.
    webservice VBA Access Exempl10

    Se na estrutura que você tem montada isso estiver funcionando então no Access também funcionará. É assim que você tá fazendo?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 13/10/2011

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  ifahidalgo em 31/1/2020, 13:25

    webservice VBA Access Sem_tz10
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2136
    Registrado : 22/11/2016

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  DamascenoJr. em 31/1/2020, 23:55

    Viu aí como o texto que é enviado e o texto recebido são diferentes do que está no arquivo que você mandou?

    Basta agora desenvolver adequadamente um código que monta um XML, que envie o XML, e que leia o XML recebido.

    Exemplos para estudo e adaptação

    de montagem de um XML para ser enviado
    Código:
    strEnv = ""
        strEnv = strEnv & "<soap:Envelope xmlns:soap=""http://www.w3.org/2003/05/soap-envelope"" xmlns:urn=""urn:ihe:iti:xds-b:2007"" xmlns:urn1=""urn:oasis:names:tc:ebxml-regrep:xsd:lcm:3.0"" xmlns:urn2=""urn:oasis:names:tc:ebxml-regrep:xsd:rim:3.0"" xmlns:urn3=""urn:ihe:iti:xds-b:2007"">" & vbNewLine
        strEnv = strEnv & "  <soap:Header>" & vbNewLine
        strEnv = strEnv & "      <wsse:Security xmlns:wsse=""http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd"">" & vbNewLine
        strEnv = strEnv & "        <wsse:UsernameToken wsu:Id=""Id-0001334008436683-000000002c4a1908-1"" xmlns:wsu=""http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd"">" & vbNewLine
        strEnv = strEnv & "            <wsse:Username>CADSUS.SMS.MINHACIDADE.UF</wsse:Username>" & vbNewLine
        strEnv = strEnv & "            <wsse:Password Type=""http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText"">UMA.SENHA.SUPER.DIFICIL</wsse:Password>" & vbNewLine
        strEnv = strEnv & "        </wsse:UsernameToken>" & vbNewLine
        strEnv = strEnv & "      </wsse:Security>" & vbNewLine
        strEnv = strEnv & "  </soap:Header>" & vbNewLine
        strEnv = strEnv & "  <soap:Body>" & vbNewLine
        strEnv = strEnv & "      <PRPA_IN201305UV02 xsi:schemaLocation=""urn:hl7-org:v3 ./schema/HL7V3/NE2008/multicacheschemas/PRPA_IN201305UV02.xsd"" ITSVersion=""XML_1.0"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns=""urn:hl7-org:v3"">" & vbNewLine
        strEnv = strEnv & "        <id root=""2.16.840.1.113883.4.714"" extension=""123456""/>" & vbNewLine
        strEnv = strEnv & "        <creationTime value=""20070428150301""/>" & vbNewLine
        strEnv = strEnv & "        <interactionId root=""2.16.840.1.113883.1.6"" extension=""PRPA_IN201305UV02""/>" & vbNewLine
        strEnv = strEnv & "        <processingCode code=""T""/>" & vbNewLine
        strEnv = strEnv & "        <processingModeCode code=""T""/>" & vbNewLine
        strEnv = strEnv & "        <acceptAckCode code=""AL""/>" & vbNewLine
        strEnv = strEnv & "        <receiver typeCode=""RCV"">" & vbNewLine
        strEnv = strEnv & "            <device classCode=""DEV"" determinerCode=""INSTANCE"">" & vbNewLine
        strEnv = strEnv & "              <id root=""2.16.840.1.113883.3.72.6.5.100.85""/>" & vbNewLine
        strEnv = strEnv & "            </device>" & vbNewLine
        strEnv = strEnv & "        </receiver>" & vbNewLine
        strEnv = strEnv & "        <sender typeCode=""SND"">" & vbNewLine
        strEnv = strEnv & "            <device classCode=""DEV"" determinerCode=""INSTANCE"">" & vbNewLine
        strEnv = strEnv & "              <id root=""2.16.840.1.113883.3.72.6.2""/>" & vbNewLine
        strEnv = strEnv & "            </device>" & vbNewLine
        strEnv = strEnv & "        </sender>" & vbNewLine
        strEnv = strEnv & "        <controlActProcess classCode=""CACT"" moodCode=""EVN"">" & vbNewLine
        strEnv = strEnv & "            <code code=""PRPA_TE201305UV02"" codeSystem=""2.16.840.1.113883.1.6""/>" & vbNewLine
        strEnv = strEnv & "            <queryByParameter>" & vbNewLine
        strEnv = strEnv & "              <queryId root=""1.2.840.114350.1.13.28.1.18.5.999"" extension=""1840997084""/>" & vbNewLine
        strEnv = strEnv & "              <statusCode code=""new""/>" & vbNewLine
        strEnv = strEnv & "              <responseModalityCode code=""R""/>" & vbNewLine
        strEnv = strEnv & "              <responsePriorityCode code=""I""/>" & vbNewLine
        strEnv = strEnv & "              <parameterList>" & vbNewLine
        strEnv = strEnv & "                  <livingSubjectId>" & vbNewLine
        strEnv = strEnv & "                    <value root=" & Parametro1 & " extension=""" & Me!OuMeMeuCampo & """/>" & vbNewLine
        strEnv = strEnv & "                    <semanticsText>LivingSubject.id</semanticsText>" & vbNewLine
        strEnv = strEnv & "                  </livingSubjectId>" & vbNewLine
        strEnv = strEnv & "              </parameterList>" & vbNewLine
        strEnv = strEnv & "            </queryByParameter>" & vbNewLine
        strEnv = strEnv & "        </controlActProcess>" & vbNewLine
        strEnv = strEnv & "      </PRPA_IN201305UV02>" & vbNewLine
        strEnv = strEnv & "  </soap:Body>" & vbNewLine
        strEnv = strEnv & "</soap:Envelope>"

    do envio do XML montado
    Código:
    Set xmlHttp = New MSXML2.XMLHTTP60

        With xmlHttp
            .Open "POST", strURL, False
            .setRequestHeader "Content-Type", "text/xml; charset=utf-8"
            .setRequestHeader "Content-Length", "Length"
            .send strEnv
        End With

    do recebimento do XML respondido
    Código:
    If CLng(xmlHttp.Status) < 300 Then
           
            strTemp = xmlHttp.responseText
            'XML respondido na string strTemp
            'trabalhe a strTemp para interpretar a resposta

    else
            'aqui se houve erro ao enviar o XML
    end if

    set xmlHttp = nothing


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2136
    Registrado : 22/11/2016

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  DamascenoJr. em 8/2/2020, 22:44

    Algum avanço, ifahidalgo?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 13/10/2011

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  ifahidalgo em 10/2/2020, 17:13

    Estou buscando outros conteúdos para ver como é antes da codificação que passou.
    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 13/10/2011

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  ifahidalgo em 11/2/2020, 16:48

    me dá uma luz, quando coloco o segundo link no suapui tenho o print que passei do suapui

    esse é o arquivo que recebo do ws, e abro no google chrome;
    https://i.servimg.com/u/f19/20/11/26/74/ws110.jpg

    escolhendo a primeira linha
    http://192.168.2.6:81/ServiceIntegration.svc?wsdl

    tenho no browse
    https://i.servimg.com/u/f19/20/11/26/74/ws210.jpg

    e a segunda linha
    http://192.168.2.6:81/ServiceIntegration.svc?singleWsdl

    xml abaixo
    Código:
    This XML file does not appear to have any style information associated with it. The document tree is shown below.
    <wsdl:definitions xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" xmlns:wsam="http://www.w3.org/2007/05/addressing/metadata" xmlns:wsx="http://schemas.xmlsoap.org/ws/2004/09/mex" xmlns:wsap="http://schemas.xmlsoap.org/ws/2004/08/addressing/policy" xmlns:msc="http://schemas.microsoft.com/ws/2005/12/wsdl/contract" xmlns:wsp="http://schemas.xmlsoap.org/ws/2004/09/policy" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:tns="http://tempuri.org/" xmlns:wsa10="http://www.w3.org/2005/08/addressing" xmlns:wsaw="http://www.w3.org/2006/05/addressing/wsdl" xmlns:wsa="http://schemas.xmlsoap.org/ws/2004/08/addressing" name="Service1" targetNamespace="http://tempuri.org/">
    <wsdl:types>
    <xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" elementFormDefault="qualified" targetNamespace="http://tempuri.org/">
    <xs:import namespace="http://schemas.datacontract.org/2004/07/NAV_MIO_Integration_WS.Entities"/>
    <xs:element name="CreatePurchaseOrder">
    <xs:complexType>
    <xs:sequence>
    <xs:element xmlns:q1="http://schemas.datacontract.org/2004/07/NAV_MIO_Integration_WS.Entities" minOccurs="0" name="PurchaseOrderList" nillable="true" type="q1:ArrayOfCreatePurchaseOrders"/>
    </xs:sequence>
    </xs:complexType>
    </xs:element>
    <xs:element name="CreatePurchaseOrderResponse">
    <xs:complexType>
    <xs:sequence>
    <xs:element xmlns:q2="http://schemas.datacontract.org/2004/07/NAV_MIO_Integration_WS.Entities" minOccurs="0" name="CreatePurchaseOrderResult" nillable="true" type="q2:ReturnWS"/>
    </xs:sequence>
    </xs:complexType>
    </xs:element>
    </xs:schema>
    <xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:tns="http://schemas.microsoft.com/2003/10/Serialization/" attributeFormDefault="qualified" elementFormDefault="qualified" targetNamespace="http://schemas.microsoft.com/2003/10/Serialization/">
    <xs:element name="anyType" nillable="true" type="xs:anyType"/>
    <xs:element name="anyURI" nillable="true" type="xs:anyURI"/>
    <xs:element name="base64Binary" nillable="true" type="xs:base64Binary"/>
    <xs:element name="boolean" nillable="true" type="xs:boolean"/>
    <xs:element name="byte" nillable="true" type="xs:byte"/>
    <xs:element name="dateTime" nillable="true" type="xs:dateTime"/>
    <xs:element name="decimal" nillable="true" type="xs:decimal"/>
    <xs:element name="double" nillable="true" type="xs:double"/>
    <xs:element name="float" nillable="true" type="xs:float"/>
    <xs:element name="int" nillable="true" type="xs:int"/>
    <xs:element name="long" nillable="true" type="xs:long"/>
    <xs:element name="QName" nillable="true" type="xs:QName"/>
    <xs:element name="short" nillable="true" type="xs:short"/>
    <xs:element name="string" nillable="true" type="xs:string"/>
    <xs:element name="unsignedByte" nillable="true" type="xs:unsignedByte"/>
    <xs:element name="unsignedInt" nillable="true" type="xs:unsignedInt"/>
    <xs:element name="unsignedLong" nillable="true" type="xs:unsignedLong"/>
    <xs:element name="unsignedShort" nillable="true" type="xs:unsignedShort"/>
    <xs:element name="char" nillable="true" type="tns:char"/>
    <xs:simpleType name="char">
    <xs:restriction base="xs:int"/>
    </xs:simpleType>
    <xs:element name="duration" nillable="true" type="tns:duration"/>
    <xs:simpleType name="duration">
    <xs:restriction base="xs:duration">
    <xs:pattern value="\-?P(\d*D)?(T(\d*H)?(\d*M)?(\d*(\.\d*)?S)?)?"/>
    <xs:minInclusive value="-P10675199DT2H48M5.4775808S"/>
    <xs:maxInclusive value="P10675199DT2H48M5.4775807S"/>
    </xs:restriction>
    </xs:simpleType>
    <xs:element name="guid" nillable="true" type="tns:guid"/>
    <xs:simpleType name="guid">
    <xs:restriction base="xs:string">
    <xs:pattern value="[\da-fA-F]{8}-[\da-fA-F]{4}-[\da-fA-F]{4}-[\da-fA-F]{4}-[\da-fA-F]{12}"/>
    </xs:restriction>
    </xs:simpleType>
    <xs:attribute name="FactoryType" type="xs:QName"/>
    <xs:attribute name="Id" type="xs:ID"/>
    <xs:attribute name="Ref" type="xs:IDREF"/>
    </xs:schema>
    <xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:tns="http://schemas.datacontract.org/2004/07/NAV_MIO_Integration_WS.Entities" elementFormDefault="qualified" targetNamespace="http://schemas.datacontract.org/2004/07/NAV_MIO_Integration_WS.Entities">
    <xs:complexType name="ArrayOfCreatePurchaseOrders">
    <xs:sequence>
    <xs:element minOccurs="0" maxOccurs="unbounded" name="CreatePurchaseOrders" nillable="true" type="tns:CreatePurchaseOrders"/>
    </xs:sequence>
    </xs:complexType>
    <xs:element name="ArrayOfCreatePurchaseOrders" nillable="true" type="tns:ArrayOfCreatePurchaseOrders"/>
    <xs:complexType name="CreatePurchaseOrders">
    <xs:sequence>
    <xs:element name="VendorNo" nillable="true" type="xs:string"/>
    <xs:element name="OrderIntegrationNumber" nillable="true" type="xs:string"/>
    <xs:element name="PurchaseLineList" nillable="true" type="tns:ArrayOfPurchaseOrderLine"/>
    </xs:sequence>
    </xs:complexType>
    <xs:element name="CreatePurchaseOrders" nillable="true" type="tns:CreatePurchaseOrders"/>
    <xs:complexType name="ArrayOfPurchaseOrderLine">
    <xs:sequence>
    <xs:element minOccurs="0" maxOccurs="unbounded" name="PurchaseOrderLine" nillable="true" type="tns:PurchaseOrderLine"/>
    </xs:sequence>
    </xs:complexType>
    <xs:element name="ArrayOfPurchaseOrderLine" nillable="true" type="tns:ArrayOfPurchaseOrderLine"/>
    <xs:complexType name="PurchaseOrderLine">
    <xs:sequence>
    <xs:element minOccurs="0" name="Description" nillable="true" type="xs:string"/>
    <xs:element minOccurs="0" name="No" nillable="true" type="xs:string"/>
    <xs:element minOccurs="0" name="Quantity" type="xs:decimal"/>
    <xs:element minOccurs="0" name="ServiceCode" nillable="true" type="xs:string"/>
    <xs:element minOccurs="0" name="Type" nillable="true" type="xs:string"/>
    <xs:element minOccurs="0" name="UnitCost" type="xs:decimal"/>
    </xs:sequence>
    </xs:complexType>
    <xs:element name="PurchaseOrderLine" nillable="true" type="tns:PurchaseOrderLine"/>
    <xs:complexType name="ReturnWS">
    <xs:sequence>
    <xs:element minOccurs="0" name="Code" nillable="true" type="xs:string"/>
    <xs:element minOccurs="0" name="Description" nillable="true" type="xs:string"/>
    </xs:sequence>
    </xs:complexType>
    <xs:element name="ReturnWS" nillable="true" type="tns:ReturnWS"/>
    </xs:schema>
    </wsdl:types>
    <wsdl:message name="IServiceIntegration_CreatePurchaseOrder_InputMessage">
    <wsdl:part name="parameters" element="tns:CreatePurchaseOrder"/>
    </wsdl:message>
    <wsdl:message name="IServiceIntegration_CreatePurchaseOrder_OutputMessage">
    <wsdl:part name="parameters" element="tns:CreatePurchaseOrderResponse"/>
    </wsdl:message>
    <wsdl:portType name="IServiceIntegration">
    <wsdl:operation name="CreatePurchaseOrder">
    <wsdl:input wsaw:Action="http://tempuri.org/IServiceIntegration/CreatePurchaseOrder" message="tns:IServiceIntegration_CreatePurchaseOrder_InputMessage"/>
    <wsdl:output wsaw:Action="http://tempuri.org/IServiceIntegration/CreatePurchaseOrderResponse" message="tns:IServiceIntegration_CreatePurchaseOrder_OutputMessage"/>
    </wsdl:operation>
    </wsdl:portType>
    <wsdl:binding name="BasicHttpBinding_IServiceIntegration" type="tns:IServiceIntegration">
    <soap:binding transport="http://schemas.xmlsoap.org/soap/http"/>
    <wsdl:operation name="CreatePurchaseOrder">
    <soap:operation soapAction="http://tempuri.org/IServiceIntegration/CreatePurchaseOrder" style="document"/>
    <wsdl:input>
    <soap:body use="literal"/>
    </wsdl:input>
    <wsdl:output>
    <soap:body use="literal"/>
    </wsdl:output>
    </wsdl:operation>
    </wsdl:binding>
    <wsdl:service name="Service1">
    <wsdl:port name="BasicHttpBinding_IServiceIntegration" binding="tns:BasicHttpBinding_IServiceIntegration">
    <soap:address location="http://192.168.2.6:81/ServiceIntegration.svc"/>
    </wsdl:port>
    </wsdl:service>
    </wsdl:definitions>
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2136
    Registrado : 22/11/2016

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  DamascenoJr. em 12/2/2020, 00:33

    o xml baixado não é xml, é xsd.

    Não há segredos: o mesmo comando enviado no SOAPUI deve ser feito no access. Um xml é enviado e um xml é recebido. Conforme a tela que você me mandou do SOAPUI. Não há nada a ser feito no navegador. Apenas testado no SOAPUI e seguir o modelo que mostrei de como montar um xml para enviar e como ler o xml recebido. Simples. Sem usar o navegador.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 13/10/2011

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  ifahidalgo em 17/2/2020, 17:05

    Damasceno

    Boa Tarde

    Por acaso teria algum exemplo de como colocaria a codificação para envio dos campos nos arquivos que passei?
    e a tratativa da resposta?

    procuro na internet mas o conteudo para WS é muito pequeno.

    Desde Ja obrigado
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2136
    Registrado : 22/11/2016

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  DamascenoJr. em 17/2/2020, 21:25

    Na verdade o conteúdo de webservice é bem vasto na internet. Isso e a minha mensagem nº 2 e mensagem nº 10 são tudo que você precisa. Basta adaptar ao seu cenário.

    Infelizmente você não encontrará um exemplo pronto. Não cometa esse erro que eu cometi durante muito tempo esperando quando precisei integrar meus aplicativos ao webservice do sistema de cartão sus e também de boletos da caixa. Minha sugestão para sua evolução é que explore e estude a interação e seja você o criador do conteúdo para que os demais possam estudar.

    Pelo SOAPUI já vejo que o serviço está funcionando (que é o que seria mais difícil). Basta agora enviar o xml e recebê-lo de volta.

    Nota: não pude ver todos os seus arquivos pois o serviço do seu webservice está rodando na sua rede local, e não na internet.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 13/10/2011

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  ifahidalgo em 20/2/2020, 15:35

    Caro Damasceno

    peguei suas dicas fiz mais umas buscas e consegui fazer o consumo da WS, mas estou com duvida agora no seguinte, quando eu precisar autenticar onde entra o codigo. a senha será fixa.


    desde já Obrigado
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2136
    Registrado : 22/11/2016

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  DamascenoJr. em 20/2/2020, 21:28

    Você pode colocar a senha em uma tabela, também pode cripta-la. Pode recuperá-la com
    Código:
    DLookup("CampoSenha", "TabelaSenha")

    pode alterá-la com
    Código:
    Currentdb.execute ("update TabelaSenha set CampoSenha = '" & ValorSenha & "';"

    e por aí vai...

    as possibilidades são muitas.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2136
    Registrado : 22/11/2016

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  DamascenoJr. em 28/2/2020, 00:38

    Algum avanço? Creio que a solicitação inicial foi resolvida. Se sim, feche o tópico com o resolvido.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 13/10/2011

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  ifahidalgo em 5/3/2020, 11:38

    Caro Damasceno

    A xml e o consumo consegui fazer, me passaram o layout dos campos, tudo direitinho, sendo que tambem me passaram uma senha para imputar no cabeçalho da requisição, onde é esse cabeçalho?

    segue o xml;

    Código:
    <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tem="http://tempuri.org/" xmlns:nav="http://schemas.datacontract.org/2004/07/NAV_MIO_Integration_WS.Entities">
      <soapenv:Header/>
      <soapenv:Body>
          <tem:CreatePurchaseOrder>
            <!--Optional:-->
            <tem:PurchaseOrderList>
                <!--Zero or more repetitions:-->
                <nav:CreatePurchaseOrders>
                  <nav:DocumentType>?</nav:DocumentType>
                  <nav:DocumentDate>?</nav:DocumentDate>
                  <nav:OrderIntegrationNumber>?</nav:OrderIntegrationNumber>
                  <nav:VendorNo>?</nav:VendorNo>
                  <nav:DelegationCode>?</nav:DelegationCode>
                  <nav:BranchCode>?</nav:BranchCode>
                  <nav:TaxMatrix>?</nav:TaxMatrix>
                  <nav:PurchaseLineList>
                      <!--Zero or more repetitions:-->
                      <nav:PurchaseOrderLine>
                        <!--Optional:-->
                        <nav:CostCenter>?</nav:CostCenter>
                        <!--Optional:-->
                        <nav:Description>?</nav:Description>
                        <!--Optional:-->
                        <nav:Description2>?</nav:Description2>
                        <!--Optional:-->
                        <nav:LineNumber>?</nav:LineNumber>
                        <!--Optional:-->
                        <nav:LocationCode>?</nav:LocationCode>
                        <!--Optional:-->
                        <nav:NCMCode>?</nav:NCMCode>
                        <!--Optional:-->
                        <nav:No>?</nav:No>
                        <!--Optional:-->
                        <nav:Quantity>?</nav:Quantity>
                        <!--Optional:-->
                        <nav:ServiceCode>?</nav:ServiceCode>
                        <!--Optional:-->
                        <nav:Type>?</nav:Type>
                        <!--Optional:-->
                        <nav:UnitCost>?</nav:UnitCost>
                      </nav:PurchaseOrderLine>
                  </nav:PurchaseLineList>
                </nav:CreatePurchaseOrders>
            </tem:PurchaseOrderList>
          </tem:CreatePurchaseOrder>
      </soapenv:Body>
    </soapenv:Envelope>
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2136
    Registrado : 22/11/2016

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  DamascenoJr. em 5/3/2020, 20:47

    Cabeçalho diz respeito a tag Header

    Código:
    <soapenv:Header/>

    Código:
    <soapenv:Header>AREA_DO_CABEÇALHO</soapenv:Header>


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    ifahidalgo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 363
    Registrado : 13/10/2011

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  ifahidalgo em 9/3/2020, 16:07

    sim. no app soapui eu coloco o token clicando em headers adicionando o value. mas  como ficaria em vba

    Código:
    "<soapenv:Header>Token=PASSWORD</soapenv:Header>"

    ou

    <soapenv:Header>PASSWORD</soapenv:Header>
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2136
    Registrado : 22/11/2016

    webservice VBA Access Empty Re: webservice VBA Access

    Mensagem  DamascenoJr. em 10/3/2020, 00:41

    Assim

    Código:
    <soapenv:Header>
          <wsse:Security xmlns:wsse="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd">
            <wsse:UsernameToken wsu:Id="Id-0001334008436683-000000002c4a1908-1" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd">
                <wsse:Username>USUARIO</wsse:Username>
                <wsse:Password Type="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-username-token-profile-1.0#PasswordText">SENHA</wsse:Password>
            </wsse:UsernameToken>
          </wsse:Security>
      </soapenv:Header>


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 5/8/2020, 20:44