Histórico da Página

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

#INCLUDE 'protheus.ch'
#INCLUDE 'parmtype.ch'
#INCLUDE "FWMVCDEF.CH"
 

User Function AT351AltUser Function AT351Alt()

Local aCabec      Local aCabec      := PARAMIXB PARAMIXB[1]// array do cabeçalho
Local aItensFinal Local aItensFinal := PARAMIXB PARAMIXB[2]// array com os itens
Local nOpc        Local nOpc        := PARAMIXB PARAMIXB[3]// operação que está sendo realizada 3 - Inclusão - 4 - Alteração 5 - Exclusão
If nOpc 
If nOpc == 3  3 .OR. nopc  nopc == 4
    aItensFinal  4

    aItensFinal [1][5][2] := 890  890 //alterando o valor do benefício
ElseIf  nOpc 
ElseIf  nOpc ==  55
    
    aItensFinal     aItensFinal [1][9][2] := 890  890 //deletando o valor do /benefício

EndIf
Return 
Return {aCabec, aItensFinal aItensFinal}