| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | ATFA012 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46829 |
O ponto de entrada A012ALTG permite a atualização e salvamento dos arrays aHeader e aCols sempre que ocorre uma alteração no grupo selecionado. Ele é utilizado para customizar a estrutura de exibição dos dados, ajustando colunas e cabeçalhos conforme as mudanças no grupo, garantindo que a visualização reflita as especificidades de cada grupo configurado.
If l012AltGr
//PONTO DE ENTRADA PARA GUARDAR AHEADER / ACOLS ATUAL
ExecBlock("A012ALTG",.F.,.F.,{oAux:aHeader, oAux:aCols})
EndIf |
#include "Protheus.ch"
Static aHeadx
Static aColx
Static lSalvei := .F.
User Function A012ALTG()
Local nx
aHeadx := ParamIxb[1]
aColx := ParamIxb[2]
lSalvei := .T.
MsgAlert("Entrei no Ponto de Entrada A012ALTG")
//exibe 3 primeiros campos do aHeadx
For nX := 1 TO 3
MsgAlert( "Campo " +Alltrim(Str(nX))+": "+aHeadx[nX,2])
Next
Return
//acols pode ser manipulado pelo ponto de entrada baixo
User Function A012RCOL()
Local nx
MsgAlert("Entrei no Ponto de Entrada A012RCOL")
If lSalvei
//exibe 3 primeiros campos do aHeadx
For nX := 1 TO 3
MsgAlert("Campo "+Alltrim(Str(nX))+": "+aHeadx[nX,2])
Next
EndIf
Return |
|