Histórico da Página
...
| 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 |
04. DEMAIS INFORMAÇÕES
Não há.
...
Import HTML Content
Visão Geral
Conteúdo das Ferramentas