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

25

26

Situação 2: Gerar base instalada com os dados dos Itens do Contrato incluindo o numero do Contrato (AA3_CONTRT) e o Site da base instalada (AA3_SITE).

#INCLUDE "PROTHEUS.CH"

/*/{Protheus.doc} C100GRBI
    Gera Base Instalada e Ordem de Serviço para ítens da Planilha na aprovacao do Contrato
    OBS: Alterar parametro MV_CNINTFS para .T.
    Esse ponto de entrada e acionado no momento de confirmar a aprovacao da Revisao do contrato.
@type function
@version 
@since 04/03/2024
@return Array contendo o Cabecalho da Base Instalada e os Itens da Base Instalada
/*/
User Function C100GRBI()

    Local aArea     := GetArea()
    Local aRetorno
    Local aCabecBI  := ParamIxb[1] //Array com os dados do Contrato (CNA, CNB e AGW) para gerar a base instalada
    Local aItensBI  := ParamIxb[2] //Itens da base instalada. Array zerado
    
    //Incluir o numero do Contrato e site na base instalada
    aAdd(aCabecBI,{"AA3_CONTRT",CN9->CN9_NUMERO,NIL})
    aAdd(aCabecBI,{"AA3_SITE","www.google.com.br",NIL})
    
    aRetorno := {aCabecBI,aItensBI}

    RestArea(aArea)

Return(aRetorno)