Histórico da Página
...
User Function AT19DCPO()
Local aSubMdls := PARAMIXB[12] // 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.
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas