Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: MT120C1D - Acrescenta elementos no array dos dados
Versões: Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
LOCALIZAÇÃO : Function A120F4() responsável pela carga das solicitações de compras / Contratos de Parceria (por item) tecla F5 para o Pedido de Compras / Autorização de Entrega.

EM QUE PONTO : O ponto se encontra no momento em que as tabelas SC1 - Solicitações de Compras ou  SC3 - Contratos de parceria estão sendo carregadas para o Array que é utilizado na apresentação da dialog das SCs via tecla F5. Os PEs MT120C1D e MT120C1C sao usados em conjunto para manipulaçao da consulta F5 (Carga das SCs ou Contratos) para o Pedidos de Compras.
O MT120C1D acrescenta elementos no array dos dados, e o MT120C1C acrescenta os títulos das colunas acrescidas. Para saber se a consulta se refere ao alias SC1 ou SC3 use a funçao Alias().
VEJA TAMBÉM O PONTO DE ENTRADA MT120C1D
Eventos


 

Programa Fonte 
MATA120.PRX
Sintaxe

MT120C1D - Acrescenta elementos no array dos dados ( < PARAMIXB> ) --> aRetArray

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
PARAMIXB Vetor Em MT120C1C - Array com o cabecalho (titulos) das colunas; Em MT120C1D - Array com os dados da consulta que sera exibida. Sera chamada uma vez para cada linha da consulta. X
Retorno
    aRetArray(vetor)
  • Em MT120C1C - Devera ser retornado o Array do cabecalho (titulos) da consulta F5

    Em MT120C1D - Devera ser retornado o Array com os dados que serao exibidos na consulta F5
Observações


 

Exemplos 
----------------EXEMPLO MT120C1D----------------User Function MT120C1DLocal aRetDados := PARAMIXBIf Alias() == 'SC1'    Aadd(aRetDados, SC1->C1_OBS)     Aadd(aRetDados, SC1->C1_TPOP)Else     Aadd(aRetDados, SC3->C3_OBS)EndifReturn(aRetDados)--------------------------------------------------------------------------------------------------------------EXEMPLO MT120C1C----------------User Function MT120C1CLocal aRetTitle := PARAMIXBIf Alias() == 'SC1'    Aadd(aRetTitle, RetTitle('C1_OBS'))    Aadd(aRetTitle, RetTitle('C1_TPOP'))Else    Aadd(aRetTitle, RetTitle('C3_OBS'))EndifReturn(aRetTitle)