At800Cpo - Adicionar campos customizados na Ordem de Serviço

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Criar um ponto de entrada na rotina TECA800 que possibilite incluir campos de usuario na ordem de serviço

03. SOLUÇÃO

A função abaixo deve ser copiada e colada em um arquivo ".PRW" com nome "At800Cpo" e compilada no ambiente.

O Ponto de entrada recebe os arrays de Cabeçalho(aCabec), itens(aItens) e o terceiro parâmetro é o numero da operação(nOpc), possibilitando manipular e incluir dados da forma que desejar.

A estrutura para adicionar campos na AB6 é genérica, para cabeçalho: Aadd(aCabec, {"AB6_CONDPG", cCondPG, Nil} ) onde o primeiro item do array é o campo da AB6 "AB6_CONDPG", depois temos a variável com o conteúdo do caMpo desejado cCondPG e o ultimo item deve ser sempre Nil, já para Itens, devemos somente alterar o array que iremos adicionar, onde seria aCabec agora passa a ser aItens[1]. Ex: Aadd(aItens[1], {"AB7_CODPRO", cProd , Nil} ) e alterar os outros campos consecutivamente. 

#INCLUDE 'protheus.ch'
#INCLUDE 'parmtype.ch'
#INCLUDE "FWMVCDEF.CH"

User Function At800Cpo()
Local aCabec := PARAMIXB[1] //Recebe o primeiro parâmetro "Cabeçalho" ou Nil
Local aItens := PARAMIXB[2] //Recebe o segundo parâmetro "Itens" ou Nil
Local nOpc   := PARAMIXB[3] //Recebe o terceiro parâmetro Nopc - iNCLUSÃO, ALTERAÇÃO, VISUALIZAÇÃO, EXCLUSÃO

If nOpc <> 4
	// Adicionando campos no array aCabec
	Aadd(aCabec, {"AB6_ZZUSR", "Valor do campo de Usuario" , Nil} ) // Inclusão no Array de um campo de usuario com o seu conteúdo

	// Adicionando campos no array aItens
	Aadd(aItens[1], {"AB7_ZZUSRIT", "Valor do campo de usuario", Nil} ) // Inclusão no array de um campo de usuario no item da ordem de serviço
EndIF

Return {aCabec, aItens}

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

• Não há.