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.
EAIAdapter<Transação><versão>_ExtractReturnMessage()
| Tipo | Valor | Descrição |
|---|---|---|
| Bool | TRUE | Indica que a mensagem de retorno foi criada com sucesso e deverá retornar para o aplicativo de origem 'OK'. |
| FALSE | Indica que a ocorreram erros durante a criação da ReturnMessage. A mensagem de retorno não será criada e enviada. |
Caso não possua conteúdo negócio de retorno (BusinessContent), essa função deverá apenas possuir o RETURN TRUE.
#----------------------------------------------------#
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