Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagetext
firstline1
titleExemplo
linenumberstrue
#INCLUDE "PROTHEUS.CH"

/*/{Protheus.doc} C100GROS
     
	Gera Ordem de Serviço para ítensitens da Planilha na aprovacaoaprovação do Contrato
       
	OBS: Alterar parametroparâmetro MV_CNINTFS para .T.
       
	Esse ponto de entrada eé acionado no momento de confirmar a aprovacaoaprovação da RevisaoRevisão do contrato.
 @type function
@version 
@since 05/03/2024
@return Array contendo o CabecalhoCabeçalho e os Itens da Ordem de ServicoServiço
/*/
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 Cabeçalho da Ordem de Serviço
    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)

...