Histórico da Página

Descrição:

Este ponto de entrada tem por finalidade permitir que o usuário realize validações ao confirmar a tela de gravação da Equipe Técnica (OFIOA180).

Eventos:

Function FS_VALTEC(cTipo)

Local lRet := .t.

Local aSlv := GetArea()

Local nRecVAI := VAI->(RecNo())

Local nQtdVAI := 0

If !Empty(M->VAI_CC)

DbSelectArea("CTT")

DbSetOrder(1)

if DbSeek( xFilial("CTT") + M->VAI_CC )

If CTT->CTT_BLOQ == "1"

Help(' ',1,"CTA_BLOQ")

Return(.f.)

Endif

Else

Return(.f.)

Endif

Endif

if ExistBlock("OA180VLD") // Ponto de Entrada retorna TRUE ou FALSE ao clicar em Confirmar.

if !ExecBlock("OA180VLD",.f.,.f.)

Return(.f.)

Endif

Endif

Função:

FS_VALTEC