📌 Documentação do Ponto de Entrada MP_CLIARRAY
🧩 Identificação
- Nome do Ponto de Entrada:
MP_CLIARRAY - Objetivo: Ponto de entrada para manipulação de cliente, retornando um array de informações do cliente.
- Programa: U_JobMped1 ( sincronização de Entidades de Saida )
- Localização: Antes da montagem do Json para envio mercos.
📥 Parâmetros Recebidos (PARAMIXB)
PARAMIXB[1]: Filial da conta "MERCOS".PARAMIXB[2]: Código da conta "MERCOS".PARAMIXB[3]: Posição do Array aContasPARAMIXB[4]: Array do cliente com a estrurua abaixo
Estrutura do Array de Cliente (aArrayCli)
Conforme o comentário do próprio fonte, o array é composto pelos seguintes campos, por índice:
A1_NOME(Cliente - Nome)A1_NREDUZ(Nome reduzido)A1_PESSOA(F/J)A1_CGC(CNPJ/CPF)A1_INSCR(IE/RG)A1_SUFRAMAA1_END(Endereço)A1_COMPLEM(Complemento)A1_BAIRROA1_CEPA1_MUN(Município)A1_EST(UF; com regra: seEX, retorna vazio)cObersv(Observação)A1_EMAIL(sanitizado removendo TAB e espaços)A1_DDD + " " + A1_TELA1_DDD + " " + A1_TELEX- Flag de bloqueio/Exclusão:
"true"seTMP->delnão vazio ouA1_MSBLQL == '1', senão"false" A1_COD(Código do cliente) → usado como cCliLoja no fonteA1_VEND(Vendedor)REC(Regra/recebimento – campo do ambiente)A1_GRPTRIB(Grupo Tributário)A1_MSBLQL(Marcador de Bloqueio)A1_TABELA(Tabela de Preço) → limpa para""nesta rotinaA1_COND(Condição de Pagamento) → limpa para""nesta rotinaA1_CODSEG(Código Segmento)A1_GRPVEN(Grupo de Vendas)A1_FAX- Bloqueio
"true"/"false"baseado emA1_MSBLQL(regra redundante à posição 17) A1_LC(Limite de Crédito)A1_SALDUP(Saldo em Duplicatas)A1_SALPEDL(Saldo Pedido Liberado)
🔁 Retorno
- A função retorna o array
aArrayClicom a mesma estrutura recebida para montagem do json para envio do cliente para mercos.
Exemplo:
|
User Function MP_CLIARRAY
local cFilMp := PARAMIXB[1] // FILIAL DA CONTA MEUS PEDIDOS
local cCtaMp := PARAMIXB[2] // CODIGO DA CONTA MEUS PEDIDOS
local nz := PARAMIXB[3] // POSICAO DO ARRAY ACONTAS
local aArrayCli := PARAMIXB[4] // ARRAY INFOR DO CLIENTE
local rAreaSA1 := GetArea("SA1")
local cCliLoja := aArrayCli[18]
aArrayCli[23] := "" //LIMPA TAB
aArrayCli[24] := "" //LIMPA COND
restarea(rAreaSA1)
Return(aArrayCli)
|