Histórico da Página
...
Função responsável pela instalação do Adapter. O método será executado toda vez que a mensagem for ativada pelo console, desde que esta esteja anteriormente desativada.
Outra maneira de ser executado é quando houver uma modificação no version info, ou seja, for alterado no TFS, e chamar a função de envio ou recebimento. Antes de executar o conteúdo de envio ou recebimento, chamará o método “Install”, que no final atualizará um registro do EAI que armazena a informação final do version info, para não executar novamente.
O conteúdo da função pode conter os cadastros das InternalIds, utilizando as funções EAI_depara_existe e EAI_depara_register.
Sintaxe
...
Bloco de código | ||
---|---|---|
| ||
EAIAdapter<Transação><versão>_Install() |
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
Bloco de código | ||||
---|---|---|---|---|
| ||||
#-------------------------------------#
FUNCTION EAIAdapterRequest1_Install()
#-------------------------------------#
# Realize as chamadas as funcoes EAI_depara_existe e EAI_depara_register
# para registrar os de-para que serão utilizados
IF NOT EAI_depara_existe("RequestInternalId", "ordem_sup") THEN
CALL EAI_depara_register("RequestInternalId", "ordem_sup", "cod_empresa|num_oc")
END IF
IF NOT EAI_depara_existe("PaymentConditionInternalId", "cond_pgto") THEN #
CALL EAI_depara_register("PaymentConditionInternalId", "cond_pgto", "cod_cnd_pgto")
END IF
IF NOT EAI_depara_existe("CompanyInternalId", "empresa") THEN #
CALL EAI_depara_register("CompanyInternalId", "empresa", "cod_empresa")
END IF
IF NOT EAI_depara_existe("ItemInternalId", "item") THEN #
CALL EAI_depara_register("ItemInternalId", "item", "cod_empresa|cod_item")
END IF
IF NOT EAI_depara_existe("UnitofMeasureInternalId", "unid_med") THEN #
CALL EAI_depara_register("UnitofMeasureInternalId", "unid_med", "cod_unid_med")
END IF
IF NOT EAI_depara_existe("CostCenterInternalId", "cad_cc") THEN
CALL EAI_depara_register("CostCenterInternalId", "cad_cc", "cod_empresa|cod_cent_cust")
END IF
END FUNCTION |