Histórico da Página

Descrição:

Este Ponto de Entrada será executado na rotina Entrada por Compra (VEIXA001) ao ser executada a funcionalidade Incluir/Alterar/Visualizar. A mesma permite a inclusão e gravação de campos reais (customizáveis) da tabela VVF.

Eventos:

if M->VVF_FORPRO == "1" .or. INCLUI

nLinha := 13

if VVF->(FieldPos("VVF_MENPAD")) > 0

FSX_POSCPO("VVF_MENPAD", "oSayE121", aPosAbaCab[12,1], aPosAbaCab[12,2], ;

spc,,,,, "oTScroll", "oGetE121")

Endif

if VVF->(FieldPos("VVF_MENNOT")) > 0

FSX_POSCPO("VVF_MENNOT", "oSayE122", aPosAbaCab[12,1], aPosAbaCab[12,2] + 2.4 * dyc7,;

spc,,,,, "oTScroll", "oGetE122")

Endif

Endif

// Ponto de Entrada para adicionar campos customizáveis da VVF

If ExistBlock("VX000CPO")

aCposUser := ExecBlock("VX000CPO", .f., .f.)

EndIf

If Len(aCposUser) > 0

nColuna := 1

nLinCpo := aPosAbaCab[nLinha,1]

nColCpo := aPosAbaCab[1,2]

For ni := 1 to Len(aCposUser)

SX3->(DbSetOrder(2))

If !Empty(aCposUser[ni]) .And. SX3->(DbSeek(aCposUser[ni]))

If SX3->X3_CONTEXT <> "V" .And. SX3->X3_TIPO <> "M" // Somente campos Reais (não Memos)

cCombo := {}

If SX3->X3_TIPO == "C" .And. !Empty(SX3->X3_CBOX)

cCombo := X3CBOXAVET(SX3->X3_CAMPO, "0")

EndIf

FSX_POSCPO(aCposUser[ni], "oSayE" + Alltrim(Str(nLinha)) + Alltrim(Str(nColuna)), ;

nLinCpo, nColCpo, spc, Iif(Len(cCombo) > 0 .And. !Empty(cCombo[1]), "cCombo", ""),;

,,, "oTScroll", "oGetE" + Alltrim(Str(nLinha)) + Alltrim(Str(nColuna)))

nColuna++

If nColuna == 2

nColCpo := aPosAbaCab[1,2] + 2.4 * dyc7

ElseIf nColuna == 3

nColCpo := aPosAbaCab[1,2] + 4.8 * dyc7

Else

nLinha++

nColuna := 1

nLinCpo := aPosAbaCab[2,1] - aPosAbaCab[1,1] + nLinCpo

nColCpo := aPosAbaCab[1,2]

EndIf

Else

aCposUser[ni] := "" // CAMPO NAO EXISTE NA BASE - NAO GRAVAR

EndIf

Else

aCposUser[ni] := "" // CAMPO NAO EXISTE NA BASE - NAO GRAVAR

EndIf

Next

SX3->(DbSetOrder(1))

EndIf

Função:

VX000EXEC()