Frameworkjoi

Home

Frameworkjoi

Child pages
  • 1. EAIAdapter_ReceiveBusinessMessage
  • Created by Unknown User (fabiano.lopes), last modified on 05 Jan, 2016

Função responsável por extrair as informações de uma mensagem de negócio (BusinessMessage) vindas de um aplicativo externo.

Essa função será chamada automaticamente com todo o conteúdo da mensagem de negócio guardada na Record do Helper. Não é necessário saber se a mensagem é síncrono ou assíncrono.

Sintaxe

EAIAdapter<Transação><versão>_ReceiveBusinessMessage()

Retorno

TipoValorDescrição
BoolTRUEIndica que a extração do conteúdo do BusinessContent foi executado com sucesso.
FALSEIndica que a ocorreram erros durante a extração do conteúdo, interromperá a seção, indicando para a Engine do EAI2 que deverá retornar com erro a resposta.

Observação

Os valores obtidos da mensagem, através do Helper da mensagem, podem ser enviados para o programa através do uso do Mapper.

Exemplo

#----------------------------------------------------------#
 FUNCTION EAIAdapterUnitOfMeasure1_ReceiveBusinessMessage()
#----------------------------------------------------------#
  #Função responsável por extrair o conteudo da BusinessMessage recebida e executar a regra de negócio.
  DEFINE lr_unid_med RECORD
            cod_unid_med    LIKE unid_med.cod_unid_med,
            den_unid_med_30 LIKE unid_med.den_unid_med_30
         END RECORD,
         
         l_status           SMALLINT
         l_msg_erro         CHAR(30)
  
  LET lr_unid_med.cod_unid_med    = EAIHelperUnitOfMeasure1_get_BusinessContent_Code()
  LET lr_unid_med.den_unid_med_30 = EAIHelperUnitOfMeasure1_get BusinessContent_Description()
  
  IF lr_unid_med.cod_unid_med IS NULL THEN
     CALL EAIHelperSalesOrder1_add_error_message("Código da unidade de medida não informado na integração.",'0')
     RETURN FALSE
  END IF
  
  #Testando o tipo de mensagem.     
  CASE EAIHelperUnitOfMeasure1_get_MessageType()
     WHEN 'upsert' #Event - upsert
        IF lr_unid_med.den_unid_med_30 IS NULL THEN
           CALL EAIHelperSalesOrder1_add_error_message("Descrição da unidade de medida não informado na integração.",'0')
           RETURN FALSE
        END IF
        
        CALL manm217_unid_med_leitura(_BusinessContent._Code,TRUE,1)
           RETURNING l_status,
                     l_msg_erro
        
        CALL manm217_unid_med_set_null()
        CALL manm217_unid_med_set_cod_unid_med(_BusinessContent._Code)
        CALL manm217_unid_med_set_den_unid_med_30(_BusinessContent._Description)
  
        IF l_status THEN
           CALL manm217_unid_med_inclui(FALSE,TRUE)
              RETURNING l_status, l_msg_erro
              
           IF NOT l_status THEN
              CALL EAIHelperSalesOrder1_add_error_message(l_msg_erro,'0')
              RETURN FALSE
           END IF
        ELSE
           CALL manm217_unid_med_modifica(FALSE,TRUE)
              RETURNING l_status,
                        l_msg_erro
           
           IF NOT l_status THEN
              CALL EAIHelperSalesOrder1_add_error_message(l_msg_erro,'0')
              RETURN FALSE
           END IF
        END IF
  
     WHEN 'delete' #Event - delete
        WHENEVER ERROR CONTINUE
          DELETE FROM unid_med
           WHERE cod_unid_med = lr_unid_med.cod_unid_med
        WHENEVER ERROR STOP
        IF sqlca.sqlcode <> 0 THEN
           CALL log0030_processar_err_sql("DELETE","unid_med",1)
           CALL EAIHelperSalesOrder1_add_error_message(l_msg_erro,'0')
           RETURN FALSE
        END IF
     OTHERWISE     #Request
  END CASE
  
  RETURN TRUE
END FUNCTION