Histórico da Página

Descrição:

Chamado a partir da validação do campo VS3_CODITE, Ponto de Entrada que permite ao usuário realizar validação a fim de verificar se deve realizar a consulta de códigos alternativos ou não. Deve retornar Verdadeiro (.T.) para seguir com o processamento ou Falso (.F.) para ignorar o item.

Eventos:

Function OFIOA520C()

Local cAreaAnt := GetArea()

Local cQuery1 := ""

Local cQuery2 := ""

Local cQuery3 := ""

Local cQuery4 := ""

Local cQVB11 := "SQLVB11"

Local cQVB12 := "SQLVB12"

Local cQVB1SB11 := "SQLVB1SB11"

Local cQVB1SB12 := "SQLVB1SB12"

Local aConVB11 := {}

Local aConVB12 := {}

Local aConVB1SB11 := {}

Local aConVB1SB12 := {}

Local nPos := 0

Local nOpcao := 1

Local lVB1MARPEC := VB1->(FieldPos("VB1_MARPEC")) > 0

Local lPEOF520C := .T.

If ExistBlock("PEOF520C")

lPEOF520C := ExecBlock("PEOF520C",.f.,.f.)

EndIf

If FunName() == "OFIOM110" .or. FunName() == "OFIXA011" .or. FunName() == "OFIXA018"

Função:

OFIOA520C()