Ponto de Entrada
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. |
Localização: | Atualizações \ Mov Oficina \ Orçamento por Fases (função interna) |
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 ... |
Programa Fonte: | VEIFUNC.PRW |
Função: | FG_ITESUB() |
Parâmetros: | N/A |
Retorno: | logico .t. = continua na função que mostra os itens. |
Exemplo:
////////////////////////////////////////////////////////////////////
// Ponto de Entrada na função de Substituição de Itens. Utilizado //
// para continuar ou não na função que mostra os itens. //
////////////////////////////////////////////////////////////////////
User Function VLDITSUB()
Local lRet := .t.
MsgAlert("Ponto de Entrada VLDITSUB executado com sucesso!","Atenção")
Return lRet