Boa Tarde! Estou precisando acessar um Webservice onde o mesmo solicita usuário e senha para poder enviar dados. O Fornecedor da ferramente me disse que tenho que enviar, via HTTP Basic Auth o usuário e senha ele me passou, mas não sei como colocar isso no meu programa . O programa está feito da seguinte maneira: DEFINE VARIABLE hWebService AS HANDLE NO-UNDO. DEFINE VARIABLE hEndpointPortType AS HANDLE NO-UNDO. CREATE SERVER hWebService. hWebService:CONNECT("-WSDL 'http:/XXXXX/XXXXXXXXXX/?wsdl'"). RUN EndpointPortType SET hEndpointPortType ON hWebService. DEFINE VARIABLE manterEmpresaReturn AS LONGCHAR NO-UNDO. RUN ManterEmpresa IN hEndpointPortType(INPUT c-msg-xml, OUTPUT manterEmpresaReturn). Obrigada!
Bom dia! Tenho uma integração aqui que utiliza usuário e senha ... talvez o exemplo abaixo te ajude. DEFINE VARIABLE hWebService AS HANDLE NO-UNDO. DEFINE VARIABLE hsm_Synccom_senior_g5_rh_sm_distribuicaoEPI AS HANDLE NO-UNDO. CREATE SERVER hWebService. hWebService:CONNECT("-WSDL 'https://blablabla.blablabla.com.br:..._Synccom_senior_g5_rh_sm_distribuicaoEPI?wsdl'"). RUN sm_Synccom_senior_g5_rh_sm_distribuicaoEPI SET hsm_Synccom_senior_g5_rh_sm_distribuicaoEPI ON hWebService. DEFINE VARIABLE user1 AS CHARACTER NO-UNDO. DEFINE VARIABLE password AS CHARACTER NO-UNDO. DEFINE VARIABLE encryption AS INTEGER NO-UNDO. ASSIGN user1 = "usuario" password = "senha" encryption = 0. /* código que vai gerar os dados a enviar para o webservice (c-envio) */ RUN Distribuir_2 IN hsm_Synccom_senior_g5_rh_sm_distribuicaoEPI(INPUT user1, INPUT password, INPUT encryption, INPUT c-envio , OUTPUT c-retorno ). PROCEDURE Distribuir_2: DEFINE INPUT PARAMETER user1 AS CHARACTER NO-UNDO. DEFINE INPUT PARAMETER password AS CHARACTER NO-UNDO. DEFINE INPUT PARAMETER encryption AS INTEGER NO-UNDO. DEFINE INPUT PARAMETER parameters AS CHAR NO-UNDO. DEFINE OUTPUT PARAMETER retorno AS CHAR NO-UNDO. END PROCEDURE.
