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

Situação 1: Gerar base instalada com os dados dos Itens do Contrato sem nenhuma alteração.

#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.
@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]
    Local aItensBI  := ParamIxb[2]

    aRetorno := {aCabecBI,aItensBI}

    RestArea(aArea)

Return(aRetorno)