Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

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.

Localização:

Atualizações \ Mov Entrada \ Entrada por Compra (VEIXA001)

Eventos:

nLinha := 12 // Sequência

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

Programa Fonte:

VEIXX000.PRW

Função:

VX000EXEC()

Retorno:
NomeTipoDescrição
aCposUserVetorVetor que compõe os campos customizáveis do cliente na tabela (VVF).

Exemplo:

Include totvs.ch

/*

===============================================================================

###############################################################################

##+----------+------------+-------+-----------------------+------+----------+##

##|Função | VX000CPO | Autor | MIL | Data | 13/02/19 |##

##+----------+------------+-------+-----------------------+------+----------+##

##|Descrição | Visualização dos campos customizados na rotina de |##

##+----------| Entrada de Veículos por Compra (VEIXX000) |##

##+----------+--------------------------------------------------------------+##

###############################################################################

===============================================================================

*/

User Function VX000CPO()

Local aCposUser := {}

aAdd(aCposUser, "VVF_DATFAB") // data

//aAdd(aCposUser, "VVF_NUMNFI") // caracter

//aAdd(aCposUser, "VVF_MENNOT") // caracter

//aAdd(aCposUser, "VVF_VBAIPI") // numérico

//aAdd(aCposUser, "VVF_FORPRO") // caracter (combobox)

//aAdd(aCposUser, "VVF_CODBCO") // caracter (F3)

MsgAlert("Ponto de Entrada VX000CPO executado com sucesso!", "Atenção")

//

Return aCposUser