Histórico da Página

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Criar um ponto de entrada na rotina TECA894 para possibilitar a inclusão de informações de que possibilite incluir campos customizados nas tabelas SD3, TXC e TXD.

03. SOLUÇÃO

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

O Ponto de entrada recebe os arrays de Cabeçalho(aCabec) e , 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 da na SD3 é genérica, para cabeçalho: Aadd(aCabec, {"D3_GERENC", cGerenc , Nil} ) onde o primeiro item do array é o campo da SD3 "D3_GERENC", depois temos a variável com o conteúdo do capo desejado cGerenc 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], {"D3_OBSERVAEMAIL", cEmail , Nil} ) e alterar os outros campos consecutivamente. 

#INCLUDE 'protheus.ch'
#INCLUDE 'parmtype.ch'
#INCLUDE "FWMVCDEF.CH"
 
User Function At894Cpo()
Local aRet := {}
Local aCabec := PARAMIXB[1] //Recebe o primieroprimeiro parâmetro "Cabeçalho" ou Nil
Local aItens := PARAMIXB[2] //Recebe o primierosegundo parâmetro "Itens" ou Nil
Local nOpc   := PARAMIXB[3] //Recebe o terceiro parâmetro "Ação" (1)Entrega - (2)Troca/Substituição - (3)Devolução - (4)Trocas Pendentes 

/*/ ↓↓ Variaveis a Adicionarserem Camposutilizadas ↓↓ /*/
Local cGerenc := Alltrim(TXC->TXC_GERENC)
Local cTipounicTipomov := "Uniforme"
Local cEmail  := "gestaogerencia.uniforme@gmailempresa@gmail.com"

If !EMPTY(aCabec)
     nOpc <> 4
	// Adicionando campos no array aCabec
	Aadd(aCabec, {"D3_GERENC", cGerenc , Nil} )

	// Adicionando campos no aRet := aCabec
Else
    array aItens
	Aadd(aItens[1], {"D3_TIPOMOV", cTipomov cTipouni, Nil} )
    	Aadd(aItens[1], {"D3_OBSERVAEMAIL", cEmail , Nil} )
EndIF

     aRet := aItens
EndIf

Return aRetReturn {aCabec, aItens}

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

...

• Não há.

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>