Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada na rotina de Conferência de Saída (Orçamentos) via Coletor, executado no momento da seleção do Orçamento, pode ser utilizado para possibilitar ou não a seleção do mesmo.

Localização:

Conferencia de Saida (Orçamentos) via Coletor (SIGAACD)

Eventos:

...

DbSelectArea("VS1")

DbSetOrder(1)

If DbSeek(xFilial("VS1")+substr(aLinhas[nPos,1],5,nTamOrc))

//

If ExistBlock("OA070SEL")

If !ExecBlock("OA070SEL",.f.,.f.,{ VS1->VS1_NUMORC }) // Pode selecionar o Orçamento ?

lPergOrc := !Empty(cNroOrc)

Loop

EndIf

EndIf

//

...

Programa Fonte:

OFIA070.PRW

Função:

OA0700011_TELAORCAMENTOS()

Parâmetros:
NomeTipoDescrição

cOrc

Caracter

VS1->VS1_NUMORC ( Nro. do Orçamento )

Retorno:
NomeTipoDescrição

lPodeSel

Lógico

.t. = pode selecionar / .f. = não pode selecionar

Exemplo:

Include totvs.ch

// Ponto de Entrada na rotina de Conferência de Saida (Orçamentos) via Coletor,

// executado no momento da seleção do Orçamento, pode ser utilizado para

// possibilitar ou não a seleção do mesmo.

User Function OA070SEL()


Local lRet := .t.

Local cOrc := ParamIXB[1] // VS1->VS1_NUMORC ( Nro. do Orçamento )


VtAlert("Ponto de entrada OA070SEL executado com sucesso!")


Return lRet