VLDITSUB Ponto de Entrada para ser executado na Substituição de Itens para continuar ou não na função

Descrição:

Ponto de Entrada na função de Substituição de Itens. Utilizado para continuar ou não na função que mostra os itens.

Eventos:

Function FG_ITESUB(cItem,cTipRet)

Local nCntFor

Local nPos := 0

Private cRet := Substr(cItem,TamSX3("B1_GRUPO")[1]+1) , nOpcao := 0

Private aItem := {} , oOk , aArea := {}

Private cSQLSUB := "TSQLSUB", cQuery

Private cGrupoOrig := Left(cItem,TamSX3("B1_GRUPO")[1])

Private cItemOrig := cRet

Private nRecno := 0 // Variavel para nao deixar entrar em LOOP Infinito

Private bOk := LoadBitmap( GetResources(), "LBOK" )

Private bNo := LoadBitmap( GetResources(), "LBNO" )

Private oLbxSub

Private lGruNov := (VE9->(FieldPos("VE9_GRUNOV"))>0)

Default cTipRet := "C"

aArea := sGetArea(aArea , "VE9")

aArea := sGetArea(aArea , "SB1")

aArea := sGetArea(aArea , "SB2")

If !Empty(Alias())

aArea := sGetArea(aArea,Alias())

EndIf

If FM_PILHA("OFINJD35") .OR. FM_PILHA("VEICLSAD") .OR. FM_PILHA("VEICLSAP")

return cRet

EndIf

// Verifica se foi chamado pelo MATA297M

If FM_PILHA("MATA297M")

Return(cRet)

Endif

//Ponto de Entrada para validar se continua na função de Substituição de Itens

If ExistBlock("VLDITSUB")

If !ExecBlock("VLDITSUB",.f.,.f.)

Return cRet

Endif

EndIf

...

Função:

FG_ITESUB()