📌 Documentação do Ponto de Entrada MP_CATPGRV
🧩 Identificação
- Nome do Ponto de Entrada:
MP_CATPGRV - Objetivo: Registrar a marcação de integração para um pedido, definindo o campo
ZCU_XMPTRAcomo 'X' e desbloqueando o registro. - Programa: NOVO4 (sincronização de Entidades de Entrada)
- Localização: Manipulação de registros na tabela
ZCUapós a confirmação de integração
📥 Parâmetros Recebidos (PARAMIXB)
PARAMIXB[1]: Array de contas de "Meus Pedidos" (aCtaMps).PARAMIXB[2]: Filial da conta de "Meus Pedidos" (cFilMp).PARAMIXB[3]: Código da conta de "Meus Pedidos" (cCtaMp).PARAMIXB[4]: Posição do array de contas (nz).PARAMIXB[5]: Recno da confirmação de integração (nRecno).
🏗️ Estrutura Interna
O ponto de entrada executa as seguintes operações:
| Campo | Valor Atribuído | Nil |
| aCtaMps | PARAMIXB[1] | Nil |
| cFilMp | PARAMIXB[2] | Nil |
| cCtaMp | PARAMIXB[3] | Nil |
| nz | PARAMIXB[4] | Nil |
| nRecno | PARAMIXB[5] | Nil |
🔁 Retorno
- A função retorna vazio (
Return()), após marcar o registro na tabelaZCUcomZCU_XMPTRA := 'X'e liberar o bloqueio.
Exemplo de execução:
|
User Function MP_CATPGRV
local aCtaMps := PARAMIXB[1]
local cFilMp := PARAMIXB[2]
local cCtaMp := PARAMIXB[3]
local nz := PARAMIXB[4]
local nRecno := PARAMIXB[5]
local aSegs := {}
DBSELECTAREA("ZCU") SET DELETED OFF
DBGOTO(nRecno)
reclock("ZCU", .F.)
ZCU->ZCU_XMPTRA := 'X'
msunlock()
Return()
|