1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Situação 1: Gerar Ordem de Servico com os dados dos Itens do Contrato informando o nome do atendente.
#INCLUDE "PROTHEUS.CH"
/*/{Protheus.doc} C100GROS
Gera 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 05/03/2024
@return Array contendo o Cabecalho e os Itens da Ordem de Servico
/*/
User Function C100GROS()
Local aArea := GetArea()
Local aRetorno := {}
Local aCabecOS := ParamIxb[1] //Array com os dados do Contrato (CNA, CNB e AGW) para gerar o Cabecalho da Ordem de Servico
Local aItensOS := ParamIxb[2] //Itens da base instalada. Array zerado
//Incluir o nome do atendente na Ordem de Servico
aAdd(aCabecOS,{"AB6_ATEND","Joao Abreu",NIL})
aRetorno := {aCabecOS,aItensOS}
RestArea(aArea)
Return(aRetorno)
