Histórico da Página

Informações Gerais

   Legenda: 1 – Inovação 2 – Manutenção (Os demais campos devem ser preenchidos para ambos os processos). 

Objetivo

Realizar a integração dos endereços de entrega dos clientes. Será previsto o envio e o recebimento destas informações.

Definição da Regra de Negócio

 VDPR248 - Preparação de informações para integração de locais de entrega

• Criar a função vdpr248_EAI_CustomerShippingAddress_envia().
  • Parâmetros:
    • Operação: "IN" para inclusão; "MO" para modificação; "EX" para exclusão.
    • Cliente: Código do cliente.
    • Sequência: Sequência do endereço de entrega.
    • Modo de exibição: "0" (zero) para ONLINE ou "1" (um) para BATCH.
  • Retorno:
    • Status do processamento: TRUE caso tenha ocorrido com sucesso ou FALSE em caso de erro.
  • Regras:
    • Validar se o tipo de operação enviado por parâmetro é válido. Caso negativo gerar a mensagem "Tipo de operação inválida" e retornar FALSE.
    • Validar se foram enviados os parâmetros de cliente e sequência. Se um destes parâmetros estiver nulo gerar a mensagem "Informe o cliente e a sequência do endereço de entrega." e retornar FALSE.
    • Verificar se existe a função EAIHelperCustomerShippingAddress1_esta_configurado_para_envio() no repositório. Se não existir deverá retornar TRUE neste ponto, não efetuando os procedimentos seguintes.
    • Se existir esta função a mesma deverá ser invocada, caso retorne FALSE significa que a integração da mensagem CustomerShippingAddress não está habilitada e neste caso deverá retornar TRUE neste ponto, não efetuando os procedimentos seguintes.
    • A partir deste ponto serão executadas as lógicas para acionar a função de integração da mensagem.
    • Se o parâmetro "vdp_utiliza_tela_endereco" for igual a "S"deverá ser lida a tabela cli_end_det_cobranca_entregautilizando o código do cliente e sequência recebidos por parâmetro e onde o campo tip_endereco seja igual a "E".
    • Ler também a tabela cli_end_entutilizando o código do cliente e sequência recebidos por parâmetro.
    • Chamar a função EAIMapper_clear().
    • Chamar a função EAIHelperCustomerVendor2_set_MessageType()passando como parâmetro "upsert" caso o parâmetro de tipo de operação seja igual a "IN" ou "MO", ou passando "delete" caso o tipo de operação seja "EX".

    • Chamar a função EAIMapper_set() para cada uma das informações abaixo:

• • • Chamar a função EAIAdapterCustomerVendor2_SendBusinessMessage() enviando como parâmetro "upsert" ou "delete", conforme o tipo de operação recebido por parâmetro.
    • O status de retorno da função vdpr248_EAI_CustomerShippingAddress_envia() deverá ser conforme o processamento da integração, retornado a partir da chamada da função EAIAdapterCustomerVendor2_SendBusinessMessage().

• Criar a função vdpr248_alimenta_business_content().
  • Parâmetros:
    • Não há.
  • Retorno:
    • Não há.
  • Regras:

    • Deverá existir no fonte a definição da variável modular _BusinessContent de forma idêntica à existente no fonte EAIHelperCustomerShippingAddress1.

    • Alimentar os campos desta variável conforme o retorno das funções EAIHelperCustomerShippingAddress1_get_BusinessContent_<campo>().

• Criar a função vdpr248_EAI_CustomerShippingAddress_recebe().
  
  • Parâmetros:
    • Não há.
  • Retorno:
    • Status do processamento: TRUE caso tenha ocorrido com sucesso ou FALSE em caso de erro.
  • Regras:
    • Inicialmente deverá ser identificado o tipo de mensagem, que será obtido através da função EAIHelperCustomerShippingAddress1_get_MessageType(). Esta função retornará os valores upsert ou delete, indicando que trata-se de uma atualização (inclusão/alteração) ou exclusão.

    • Em seguida deverá ser utilizada a função EAI_depara_get_value() para verificar se existe o local de entrega já cadastrado no Logix para a chave interna enviada na mensagem (OBS: no fonte VDPR248 deverá estar definida a variável global g_eai_msg_negocio, VARCHAR(10). Esta variável é alimentada pelo fonte EAIHelperCustomerShippingAddress1).

      Bloco de código
      title Buscando o InternalId collapse true
      LET l_internalValue = EAI_depara_get_value("CustomerShippingAddress", _advpl_eai_get_message_info(g_eai_msg_negocio, 'MessageInformation.SourceApplication'), _BusinessContent._InternalId)

• Inicialmente deverá ser utilizada a função EAI_depara_get_value() para verificar se existe o local de entrega cadastrado no Logix para a chave interna enviada na mensagem.

  Bloco de código
  title Buscando o InternalId collapse true
  LET l_internalValue = EAI_depara_get_value("CustomerShippingAddress", _advpl_eai_get_message_info(g_eai_msg_negocio, 'MessageInformation.SourceApplication'), EAIHelperCustomerShippingAddress1_get_BusinessContent_InternalId())

• Se o conteúdo da variável l_internalValue for diferente de nulo deverá ser chamada a função EAI_depara_InternalId_get_value() para obter o código do cliente e a sequência do local de entrega.

  Bloco de código
  title Identificando o cliente e o sequência do local de entrega collapse true
  IF l_internalValue CLIPPED IS NOT NULL THEN LET l_cliente = EAI_depara_internalid_get_value('CustomerShippingAddress' , #depara_id l_internalValue , #valor interno 'cli_end_det_cobranca_entrega', #tabela interna 'cliente' ) #Campo interno LET l_sequencia = EAI_depara_internalid_get_value('CustomerShippingAddress' , #depara_id l_internalValue , #valor interno 'cli_end_det_cobranca_entrega', #tabela interna 'sequencia') #Campo interno END IF

   

Se o conteúdo da variável l_internalValue for igual a nulo deverá considerar o conteúdo da tag Code para a variável l_sequencia.
Se o conteúdo da variável l_internalValue for igual a nulo deverá tentar localizar o cliente pela conteúdo da tag GovernmentalInformation, buscando pelo CNPJ e Inscrição Estadual (campos num_cgc_cpf e ins_estadual, respectivamente). Caso encontre deverá armazenar o código do cliente na variável l_cliente.

• Se depois da lógica acima o cliente ainda não puder ser identificado, considerar o conteúdo da tag CustomerCode para a variável l_cliente.
   
Se

• • • Se o conteúdo da variável l_internalValue for diferente de nulo deverá ser chamada a função EAI_depara_InternalId_get_value() para obter o código do cliente e a sequência do local de entrega.

      Bloco de código
      title Identificando o cliente e o sequência do local de entrega collapse true
      IF l_internalValue CLIPPED IS NOT NULL THEN LET l_cliente = EAI_depara_internalid_get_value('CustomerShippingAddress' , #depara_id l_internalValue , #valor interno 'cli_end_det_cobranca_entrega', #tabela interna 'cliente' ) #Campo interno LET l_sequencia = EAI_depara_internalid_get_value('CustomerShippingAddress' , #depara_id l_internalValue , #valor interno 'cli_end_det_cobranca_entrega', #tabela interna 'sequencia') #Campo interno END IF

       

    • Se o conteúdo da variável l_internalValue for igual a nulo deverá considerar o conteúdo da variável _BusinessContent._Code para a variável l_sequencia.
      
      
    • Se o conteúdo da variável l_internalValue for igual a nulo deverá tentar localizar o cliente pelo conteúdo da variável _Business._GovernmentalInformation, buscando pelo CNPJ e Inscrição Estadual (campos num_cgc_cpf e ins_estadual, respectivamente). Caso encontre deverá armazenar o código do cliente na variável l_cliente.
      
      
    • Se depois da lógica acima o cliente ainda não puder ser identificado, considerar o conteúdo da tag _Business._CustomerCode para a variável l_cliente.
       
    • Se as variáveis referentes ao cliente (l_cliente) e sequência do local entrega (l_sequencia) não estiverem nulos, verificar se existe o registro correspondente na tabela de locais de entrega (considerar o parâmetro "vdp_utiliza_tela_endereco" para pesquisar na tabela cli_end_det_cobranca_entrega caso seja "S" ou na cli_end_ent caso seja "N").
      
      
    • Se o tipo da mensagem for upsert e encontrar o registro correspondente deverá ser considerado como alteração deste local de entrega, caso contrário deverá ser considerada inclusão de um novo local de entrega.
      
      

    • Para incluir/alterar o local de entrega deverá ser analisado o parâmetro "vdp_utiliza_tela_endereco" (LOG00087). Se estiver "S" deverá ser gravada a tabela cli_end_det_cobranca_entrega:

      Campo	Conteúdo a ser gravado
      cliente	Variável l_cliente
      tip_endereco	'E'
      sequencia	Variável l_sequencia
      tip_logradouro	Verificar se no início da variável _BusinessContent._ShippingAddress._Address existe a palavra "RUA ", "R " ou "R: ". Se existir, pesquisar na tabela vdp_tip_logradouro por esta descrição de logradouro (campo des_logradouro). Se encontrar o registro, considerar o conteúdo do campo tip_logradouro. Se o início da tag não estiver conforme indicado inicialmente ou não encontrar o registro na vdp_tip_logradouro este campo deverá ficar nulo.
      logradouro	Variável _BusinessContent._ShippingAddress._Address. Se foi possível identificar o tipo do logradouro (campo anterior), desconsiderar esta informação da variável _BusinessContent._ShippingAddress._Address. Exemplo: Se o conteúdo de _BusinessContent._ShippingAddress._Address for "RUA ANTONIO CARLOS", gravar apenas "ANTONIO CARLOS"
      num_iden_lograd	Variável _BusinessContent._ShippingAddress._Number
      complemento_endereco	Variável _BusinessContent._ShippingAddress._Complement
      endereco_completo	Concatenar os conteúdos abaixo, separando cada um com um espaço em branco: * Variável _BusinessContent._ShippingAddress._Address * Variável _BusinessContent._ShippingAddress._Number * Variável _BusinessContent._ShippingAddress._Complement * Variável _BusinessContent._ShippingAddress._District
      bairro_cobr_entga	Variável _BusinessContent._ShippingAddress._District

    • Independente do valor do parâmetro "vdp_utiliza_tela_endereco", sempre deverá ser gravada a tabela cli_end_ent:

      Campo	Conteúdo a ser gravado
      cod_cliente	Variável l_cliente
      end_entrega	Se a variável _BusinessContent._ShippingAddress._Number não estiver nula considerar _BusinessContent._ShippingAddress._Address + _BusinessContent._ShippingAddress._Number (separando as duas variáveis com um espaço em branco), caso contrário considerar somente _BusinessContent._ShippingAddress._Address
      den_bairro	Variável _BusinessContent._ShippingAddress._District
      cod_cidade	Primeiramente deverá ser verificado se existe relacionamento de/para para o código interno da cidade, caso a variável _BusinessContent._ShippingAddress._City._CityInternalId esteja preenchida. Se existir deverá utilizar a função para EAI_depara_InternalId_get_value() para identificar o código da cidade do Logix. Se não encontrar a cidade seguindo as regras acima deverá tentar localizar a cidade utilizando a variável _BusinessContent._ShippingAddress._City._CityCode, buscando pelo código IBGE. Se não existir deverá gerar mensagem de erro de que não foi possível identificar a cidade. Bloco de código title Buscar o código da cidade Logix collapse true LET l_cidade_logix = NULL IF _BusinessContent._ShippingAddress._City._CityInternalId IS NOT NULL AND _BusinessContent._ShippingAddress._City._CityInternalId <> ' ' THEN LET l_InternalId = EAI_depara_get_value('City', _advpl_eai_get_message_info(g_eai_msg_negocio, 'MessageInformation.SourceApplication'), _BusinessContent._ShippingAddress._City._CityInternalId) IF l_InternalId IS NOT NULL AND l_InternalId <> ' ' THEN LET l_cidade_logix = EAI_depara_InternalId_get_value('City', l_InternalId, NULL, 'cod_cidade') END IF END IF IF l_cidade_logix IS NULL OR l_cidade_logix = ' ' THEN WHENEVER ERROR CONTINUE SELECT cidade_logix INTO l_cidade_logix FROM cidades, obf_cidade_ibge WHERE cidade_ibge = _BusinessContent._ShippingAddress._City._CityCode AND cod_cidade = cidade_logix WHENEVER ERROR STOP IF sqlca.sqlcode <> 0 THEN CALL log0030_processa_mensagem('Código da cidade informado na integração inexistente.','excl',1) RETURN FALSE END IF END IF IF l_cidade_logix IS NULL OR l_cidade_logix = ' ' THEN CALL log0030_processa_mensagem('Não foi possível identificar a cidade na integração.','excl',1) RETURN FALSE ELSE WHENEVER ERROR CONTINUE SELECT cod_cidade FROM cidades WHERE cod_cidade = l_cidade_logix WHENEVER ERROR STOP IF sqlca.sqlcode <> 0 THEN CALL log0030_processa_mensagem('Código da cidade informado na integração inexistente.','excl',1) RETURN FALSE END IF END IF
      cod_cep	Variável _BusinessContent._ShippingAddress._ZIPCode
      num_cgc	Campo num_cgc_cpf da tabela clientes
      ins_estadual	Campo ins_estadual da tabela clientes
      num_sequencia	Variável l_sequencia
      cod_rota	Campo cod_rota da tabela clientes
      cod_local	Campo cod_local da tabela clientes
      cod_praca	Campo cod_praca da tabela clientes

RECEBIMENTO - Delete:

• • • Em caso de exclusão (tipo de mensagem delete), se as variáveis referentes ao cliente (l_cliente) e sequência do local entrega (l_sequencia) não estiverem nulos, verificar se existe o registro correspondente na tabela de locais de entrega (considerar o parâmetro "vdp_utiliza_tela_endereco" para pesquisar na tabela cli_end_det_cobranca_entrega caso seja "S" ou na cli_end_ent caso seja "N").
      
      
    • Se não encontrar o registro correspondente deverá apenas retornar TRUE como se a exclusão tivesse ocorrido normalmente, apenas para evitar erro no aplicativo de origem.
      
      
    • Se encontrar o registro deverá realizar a exclusão dos registros nas tabelas cli_end_det_cobranca_entrega e cli_end_ent, pesquisando pelo código do cliente e sequência do local de entrega.

Fluxo do Processo

Cenários de Teste