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 AT351Alt()

Local aCabec      := PARAMIXB[1]// array do cabeçalho
Local aItensFinal := PARAMIXB[2]// array com os itens
Local nOpc        := PARAMIXB[3]// operação que está sendo realizada 3- Inclusão;

  4- Alteração;

 5- Exclusão

Local nI             := 0 

For nI := 1 to Len(aItensFinal)
    If nOpc == 3 .OR. nopc == 4

        aItensFinal [

nI][5][2] := 890 //alterando o valor do benefício

    ElseIf  nOpc == 5

        aItensFinal [

nI][9][2] := 890 //deletando o valor do /benefício

    EndIf
Next nI

Return {aCabec, aItensFinal}