Linha de Produto: | Microsiga Protheus® |
---|---|
Segmento: | Serviços |
Módulo: | Gestão de Serviços |
Função: | TECA190D.PRW - Mesa Operacional |
Ticket: | Não há. |
Requisito/Story/Issue (informe o requisito relacionado) : | DSERSGS-7793 |
Ponto de Entrada para alteração da estrutura das tabelas do ModelDef no TECA190D.
Ponto de entrada na função ModelDef para alteração da mesma. Passado como parâmetro por referência a estrutura das tabelas do Modelo
Exemplo de Utilização.
#INCLUDE "protheus.ch"
#INCLUDE "parmtyper.ch"
#INCLUDE "FWMVCDEF.CH"
User Function AT19DCPO()
Local aSubMdls := PARAMIXB[2] // Estrutura das tabelas, passado por referência
Local nX := 0
Local xAux := NIL
For nX := 1 To Len(aSubMdls)
If aSubMdls[nX,2] == "AA1"
aSubMdls[nX,1]:AddField("e-mail",;
"e-mail",;
"AA1_EMAIL",;
"C",;
Tamsx3("AA1_EMAIL")[1],;
0,;
NIL,;
NIL,;
NIL,;
.F.,;
NIL,;
NIL,;
.F.,;
.T.,;
NIL)
xAux := FwStruTrigger( 'AA1_CODTEC', 'AA1_EMAIL',;
'Posicione("AA1",1,xFilial("AA1") + FwFldGet("AA1_CODTEC"),"AA1_EMAIL")', .F. )
aSubMdls[nX,1]:AddTrigger( xAux[1], xAux[2], xAux[3], xAux[4])
Endif
Next nX
Return .T.
A estrutura das tabelas é composta por um array de 12 posições onde cada uma delas contem outro array de 2 posições:
A primeira posição carrega a estrutura da tabela e a segunda posição carrega o nome.
Nome da Estrutura | Nome da Tabela |
---|---|
oStrAA1 | AA1 |
oStrDTS | DTS |
oStrABB | ABB |
oStrMAN | MAN |
oStrTGY | TGY |
oStrALC | ALC |
oStrTFL | TFL |
oStrLOC | LOC |
oStrHOJ | HOJ |
oStrDTR | DTR |
oStrDTA | DTA |
oStrPRJ | PRJ |
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; } </style> |