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

Na função EAIAdapterCustomerShippingAddress1_Install() deverá ser realizado o registro do InternalId referente ao local de entrega, utilizando como base a tabela cli_end_det_cobranca_entrega:

IF NOT EAI_depara_existe("CustomerShippingAddress", "cli_end_det_cobranca_entrega") THEN
   CALL EAI_depara_register("CustomerShippingAddress", "cli_end_det_cobranca_entrega", "cliente|sequencia")
END IF

Para desenvolver o fonte VDPR248 considerar as regras abaixo:

• Criar a função vdpr248

########################### VER ###############################

Segue abaixo o detalhamento de cada tag existente na mensagem CustomerShippingAddress e como o sistema deverá tratar.

ENVIO:

Deverá ser o número do CNPJ/CPF ou Inscrição Estadual (somente números).

Utilizar como base as lógicas existentes na função vdpr239_atualiza_business_content_Customer().

Para CNPJ/CPF considerar o texto "Federal".

Para Inscrição Estadual considerar o texto "State".

Para CNPJ considerar o texto "CNPJ".

Para CPF considerar o texto "CPF".

Para Inscrição Estadual considerar o texto "Inscricao Estadual".

Concatenar o código do cliente e a sequência do local de entrega recebidos por parâmetro, separados por "|".

Exemplo: Cliente 1234, sequência local de entrega 3 => "1234|3"

cli_end_det_cobranca_entrega.endereco_completo / cli_end_ent.end_entrega

cli_end_det_cobranca_entrega.num_iden_lograd / NULO

cli_end_det_cobranca_entrega.complemento_endereco / NULO

clientes.cod_cidade / cli_ent_ent.cod_cidade

clientes.cod_cidade / cli_ent_ent.cod_cidade

cli_end_det_cobranca_entrega.bairro_cobr_entga / cli_end_ent.den_bairro

cidades.cod_uni_feder

cidades.cod_uni_feder

uni_feder.cod_pais

uni_feder.cod_pais

(¹)Deverá gerar dois registros no record GovernmentalInformation: O primeiro para o CNPJ/CPF e o segundo para a Inscrição Estadual.

(²)Deverá ser analisado o parâmetro "vdp_utiliza_tela_endereco" (LOG00087):

• Se estiver "S" deverá ser lida a tabela cli_end_det_cobranca_entrega. Filtrar onde o tip_endereco seja igual a "E". Ordenar os registros pelo campo sequencia.
• Se estiver "N" deverá ser lida a tabela cli_end_ent. Ordenar os registros pelo campo num_sequencia.

(³)Para estas tags não há correspondência na tabela cli_end_det_cobranca_entrega. Neste caso deverá ser utilizada a informação padrão da tabela clientes.

RECEBIMENTO - Upsert:

LET l_internalValue = EAI_depara_get_value("CustomerShippingAddress",
                                           _advpl_eai_get_message_info(g_eai_msg_negocio, 'MessageInformation.SourceApplication'),
                                           EAIHelperCustomerShippingAddress1_get_BusinessContent_InternalId())

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 

LET l_cidade_logix = NULL
IF EAIHelperCustomerShippingAddress1_get_BusinessContent_ShippingAddress_City_CityInternalId() IS NOT NULL AND
   EAIHelperCustomerShippingAddress1_get_BusinessContent_ShippingAddress_City_CityInternalId() <> ' ' THEN
   LET l_InternalId = EAI_depara_get_value('City',
                                           _advpl_eai_get_message_info(g_eai_msg_negocio, 'MessageInformation.SourceApplication'),
                                           EAIHelperCustomerShippingAddress1_get_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

RECEBIMENTO - Delete:

LET l_internalValue = EAI_depara_get_value("CustomerShippingAddress",
                                           _advpl_eai_get_message_info(g_eai_msg_negocio, 'MessageInformation.SourceApplication'),
                                           EAIHelperCustomerShippingAddress1_get_BusinessContent_InternalId())

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 

VDPR248 - Preparação de informações para integração de Locais de Entrega

VDP0815 - Manutenção do cadastro de cliente/fornecedor

VDP0834 - Manutenção dos endereços de entrega do cliente

VDP10000 - Manutenção do cadastro de cliente/fornecedor

VDP90079 - Manutenção dos endereços de entrega do cliente

VDP0831 - Manutenção da distribuição geográfica do cliente

VDP0833 - Manutenção dos endereços de cobrança do cliente

VDP90065 - Carga inicial de clientes

VDP90078 - Manutenção dos endereços de cobrança do cliente

WMSR62 - Cadastra automático de cliente

• Criar a função vdpr239_prepara_envio_mensagem_eai().
  • Parâmetros:

Fluxo do Processo

Cenários de Teste