Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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.

...