Histórico da Página

EAIMapper_getString("cli_end_det_cobranca_entrega.num_cgc_cpf")

Deverá ser aplicado um tratamento para extrair apenas os números do CNPJ/CPF ou Inscrição Estadual retornados pela função acima.

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".

• • • 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_EAI_CustomerShippingAddress_processa_cliente().
  • Parâmetros:
    • Operação: "IN" para inclusão; "MO" para modificação; "EX" para exclusão.
    • Cliente: Código do cliente.
    • 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:

  • • Se o parâmetro "vdp_utiliza_tela_endereco" for igual a "S" efetuar a leitura da tabela cli_end_det_cobranca_entrega filtrando pelo código do cliente e onde o campo tip_endereco seja igual a "E". Ordenar os registros pelo campo sequencia.

    • Se o parâmetro "vdp_utiliza_tela_endereco" for igual a "N" efetuar a leitura da tabela cli_end_ent filtrando pelo código do cliente. Ordenar os registros pelo campo num_sequencia.

    • Para cada registro encontrado em cada uma destas tabelas deverá ser chamada a função vdpr248_EAI_CustomerShippingAddress_envia(), passando como parâmetros:
      • Operação: Tipo de operação recebido por parâmetro
      • Cliente: Código do cliente recebido por parâmetro
      • Sequência:

• • • • cli_end_det_cobranca_entrega.

• • • • sequencia ou cli_end_

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

• • • • ent.num_sequencia
      • Modo de exibição: Modo de exibição recebido por parâmetro
    • O retorno desta função vdpr248_EAI_CustomerShippingAddress_envia() será o status a ser retornado para a rotina que acionou a função vdpr248_EAI_CustomerShippingAddress_processa_cliente().

• 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)

• • • 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

Se o retorno de EAIMapper_getString("cli_end_det_cobranca_entrega.tip_logradouro") for diferente de nulo e diferente de branco considerar:

EAIMapper_getString("cli_end_det_cobranca_entrega.tip_logradouro") + " " + EAIMapper_getString("cli_end_det_cobranca_entrega.logradouro")

caso contrário, apenas:

EAIMapper_getString("cli_end_det_cobranca_entrega.logradouro")

EAIMapper_getString("cli_end_det_cobranca_entrega.num_iden_lograd")

EAIMapper_getString("cli_end_det_cobranca_entrega.complemento_endereco")

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:

Inicialmente 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.

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'),

• • • 'sequencia') #Campo interno END

EAIHelperCustomerShippingAddress1_get_BusinessContent_InternalId())

• • • 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
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.

• • • 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.
       
    • Verificar se o cliente existe na tabela clientes. Se não existir deverá gerar mensagem de erro.
       
    • 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

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 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 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á

• • • , sempre deverá ser gravada a tabela cli_end_

det_cobranca_entrega

• • • ent:

      Campo	Conteúdo a ser gravado
      cod_cliente	Variável l_cliente

tip

• • • end_

endereco'E'sequenciaVariável l_sequenciatip_logradouroVerificar se no início da tag 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.logradouroTag ShippingAddress.Addressnum_iden_logradTag ShippingAddress.Numbercomplemento_enderecoTag ShippingAddress.Complementendereco_completoConcatenar os conteúdos abaixo, separando cada um com um espaço em branco:
* Tag ShippingAddress.Address
* Tag ShippingAddress.Number
* Tag ShippingAddress.Complement
* Tag ShippingAddress.Districtbairro_cobr_entgaTag ShippingAddress.District

• • • 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',

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

CampoConteúdo a ser gravadocod_clienteVariável l_clienteend_entregaSe a tag ShippingAddress.Number não estiver nula considerar ShippingAddress.Address + ShippingAddress.Number (separando as duas tags com um espaço em branco), caso contrário considerar somente ShippingAddress.Address
den_bairroTag ShippingAddress.Districtcod_cidade

Primeiramente deverá ser verificado se existe relacionamento de/para para o código interno da cidade, caso a tag 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 tag 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 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

      cod_cep

Tag

• • • 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

• 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 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.
  

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