Situação 2: Gerar base de atendimento 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 dos í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)
