Histórico da Página

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)

Image Added