Páginas filhas
  • 2. EAIAdapter_CreateReturnMessage

Função responsável por carregar informações no Helper da mensagem de retorno após o aplicativo interno receber uma mensagem de negócio (BusinessMessage) do aplicativo externo.

Será possível utilizar as informações da mensagem de negócio (BusinessMessage) enviada anteriormente, com seu conteúdo carregado no Helper.

Sintaxe


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

Retorno


TipoValorDescrição
BoolTRUEIndica que a mensagem de retorno foi criada com sucesso e deverá retornar para o aplicativo de origem 'OK'.
FALSEIndica que a ocorreram erros durante a criação da ReturnMessage. A mensagem de retorno não será criada e enviada.

Observação


Caso não possua conteúdo negócio de retorno (BusinessContent), essa função deverá apenas possuir o RETURN TRUE.

Exemplo


#----------------------------------------------------#
 FUNCTION EAIAdapterSalesOrder1_CreateReturnMessage()
#----------------------------------------------------#
  ### Nesse ponto serão adicionados os dados para criação da mensagem de retorno.
  
  DEFINE l_status SMALLINT,
         l_msg    CHAR(50),
         l_num_ad LIKE ad_aen_conta_4.num_ad,
         
         l_ind    SMALLINT
      
  #Informações da record 'mr_ad_mestre' carregadas na função ''.
  
  # Envia as informações para a RNL
  CALL fin80142_set_cod_empresa(mr_ad_mestre.cod_empresa)
  CALL fin80142_set_cod_tip_despesa(mr_ad_mestre.cod_tip_despesa)
  CALL fin80142_set_ser_nf(mr_ad_mestre.ser_nf)
  CALL fin80142_set_ssr_nf(mr_ad_mestre.ssr_nf)
  CALL fin80142_set_dat_venc(mr_ad_mestre.dat_venc)
  CALL fin80142_set_cod_fornecedor(mr_ad_mestre.cod_fornecedor)
  CALL fin80142_set_val_tot_nf(mr_ad_mestre.vaad_mestre.tot_nf)
  CALL fin80142_set_dat_rec_nf(mr_ad_mestre.dat_rec_nf)
  CALL fin80142_set_num_proc_export(mr_ad_mestre.num_proc_export)
  CALL fin80142_set_ind_manutencao(mr_ad_mestre.ind_manutencao)
  CALL fin80142_set_num_ad(mr_ad_mestre.num_ad)
  CALL fin80142_set_cod_moeda(mr_ad_mestre.cod_moeda)
  CALL fin80142_set_taxa_moeda(mr_ad_mestre.taxa_moeda)
  
  FOR l_ind = 1 TO 1000
     IF lr_aen.la_aen[l_ind].cod_lin_prod IS NULL THEN
        EXIT FOR
     END IF
  
     CALL fin80142_set_cod_lin_prod(mr_aen.la_aen[l_ind].cod_lin_prod)
     CALL fin80142_set_cod_lin_recei(mr_aen.la_aen[l_ind].cod_lin_recei)
     CALL fin80142_set_cod_seg_merc(mr_aen.la_aen[l_ind].cod_seg_merc)
     CALL fin80142_set_cod_cla_uso(mr_aen.la_aen[l_ind].cod_cla_uso)
     CALL fin80142_set_val_aen(mr_aen.la_aen[l_ind].val_aen)
  END FOR
  
  CALL fin80142_integra_titulo_exportacao()
     RETURNING
        l_status,
        l_msg,
        l_num_ad
   
  # Se a operação foi bem sucedida retornar número do título, o status OK
  IF l_status THEN
     CALL EAIHelperAccountPayableDocument1_set_ReturnContent_CompanyId(l_cod_empresa)
     CALL EAIHelperAccountPayableDocument1_set_ReturnContent_BranchId(NULL)
     CALL EAIHelperAccountPayableDocument1_set_ReturnContent_DocumentPrefix(NULL)
     CALL EAIHelperAccountPayableDocument1_set_ReturnContent_DocumentNumber(l_num_ad)
     CALL EAIHelperAccountPayableDocument1_set_ReturnContent_DocumentParcel(NULL)
     CALL EAIHelperAccountPayableDocument1_set_ReturnContent_DocumentTypeCode(NULL)
  ELSE
     CALL EAIHelperAccountPayableDocument1_add_error_message(l_msg,'1')
     RETURN FALSE
  END IF
      
  RETURN TRUE
END FUNCTION