| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Serviços |
| Módulo: | Gestão de Serviços |
| Função: | TECA190F.prw |
| Ticket: | 8743085 |
| Requisito/Story/Issue (informe o requisito relacionado) : | DSERSGS-8367 |
Abertura do ponto de entrada AT190FCP.
Ponto de entrada para alterar a estrutura da tabela. Passado por referencia: Modelo (PARAMIXB[1]) e array com as tabelas(PARAMIXB[2]).
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
User Function AT190FCP()
Local oModel := PARAMIXB[1]
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] == "TGY"
aSubMdls[nX,1]:AddField("Descr. Produto",;
"Descr. Produto",;
"TGY_DESCPR",;
"C",;
Tamsx3("B1_DESC")[1],;
0,;
NIl,;
{|| .F. },;
NIL,;
.F.,;
Nil,;
NIL,;
Nil,;
.T.,;
NIL)
xAux := FwStruTrigger( 'TGY_TFFCOD', 'TGY_DESCPR',;
'Posicione( "SB1", 1, xFilial("SB1") + Posicione("TFF",1, FwFldGet("TGY_FILIAL") + FwFldGet("TGY_TFFCOD"),"TFF_PRODUT"), "B1_DESC")', .F. )
aSubMdls[nX,1]:AddTrigger( xAux[1], xAux[2], xAux[3], xAux[4])
Endif
Next nX
Return .T. |
A ordem do array é:
| Estrutura | Exemplo |
|---|---|
| Titulo | Descr. Produto |
| Sub. Titulo | Descr. Produto |
| Identificador | TGY_DESCPR |
| Tipo do campo | "C" |
| Tamanho do campo | Tamsx3("B1_DESC")[1] |
| Decimal do campo | 0 |
| Valid do campo | { | | ... } |
| When do Campo | { | | ... } |
| Lista de Valores | { ... } |
| Obrigatoriedade | .F. |
| Inicializador | { | | ... } |
| Campo chave | Nil |
| Recebe Valor | .T. |
| Virtual | .T. |
| Valid Usuário | { | | ... } |
Tabelas para manipulação:
| Estrutura | Tabela |
|---|---|
oStrAA1 | AA1 |
| oStrTGY | TGY |
| oStrALC | ALC |
| oStrDTA | DTA |
Não há.
| HTML |
|---|
<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>
|
