| Produto: | TOTVS Prestadores de Serviços Terceirização
|
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | Serviços |
| Módulo: | Prestadores de Serviços |
| Função: | TECA894 - Gestão de Uniformes |
| País: | Brasil |
| Ticket: | |
| Requisito/Story/Issue (informe o requisito relacionado) : | DSERSGS-11224 |
Criar um ponto de entrada na rotina TECA894 que possibilite incluir campos customizados nas tabelas SD3, TXC e TXD.
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), itens(aItens) e o terceiro parâmetro é o numero da operação(nOpc), possibilitando manipular e incluir dados da forma que desejar.
| nOpc | Movimentação |
|---|---|
| 1 | Entrega |
| 2 | Troca/Substituição |
| 3 | Devolução |
| 4 | Trocas Pendentes |
A estrutura para adicionar campos 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_EMAIL", cEmail , Nil} ) e alterar os outros campos consecutivamente.
Importante
Recomendamos que um desenvolvedor ADVPL manipule e compile a função abaixo para garantir o funcionamento do requisito.
#INCLUDE 'protheus.ch' #INCLUDE 'parmtype.ch' #INCLUDE "FWMVCDEF.CH" User Function At894Cpo() 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 "Ação" (1)Entrega - (2)Troca/Substituição - (3)Devolução - (4)Trocas Pendentes /*/ ↓↓ Variaveis a serem utilizadas ↓↓ /*/ Local cGerenc := Alltrim(TXC->TXC_GERENC) Local cTipomov := "Uniforme" Local cEmail := "[email protected]" If nOpc <> 4 // Adicionando campos no array aCabec Aadd(aCabec, {"D3_GERENC", cGerenc , Nil} ) // Adicionando campos no array aItens Aadd(aItens[1], {"D3_TIPOMOV", cTipomov , Nil} ) Aadd(aItens[1], {"D3_EMAIL", cEmail , Nil} ) EndIF Return {aCabec, aItens}
Não há.
