OC001FOR Ponto de Entrada para permitir ao usuário criar validações, a fim de filtrar as fórmulas que serão exibidas na tela de consulta da peça.

Ponto de Entrada

Descrição:

Ponto de entrada OC001FOR permite ao usuário criar validações, a fim de filtrar as fórmulas que serão exibidas na tela de consulta da peça.

Localização:

Atualizações / Mov Oficina / Orc Por Fases

Eventos:

nRecNoVEG := VEG->(recno())

//PE para validar se adiciona a formula na listagem

If ExistBlock("OC001FOR")

lRet := ExecBlock("OC001FOR",.f.,.f.,{VEG->VEG_CODIGO, VEG->VEG_GRUFOR, VEG->VEG_GRUPOS, VEG->VEG_FORMUL})

EndIf

if lRet

wVar := VEG->VEG_FORMUL

aadd(xItem,{VEG->VEG_DESCRI,FG_AlinVlrs(Transform(FG_FORMULA(VEG->VEG_CODIGO),"@E 999,999,999.99"))})

Endif

Programa Fonte:

OFIXC001.PRW

Função:

FS_FILPREC()

Parâmetros:

Retorno:

Nome	Tipo	Descrição
lRet	Lógico	.T. para adicionar a formula na listagem, .F. para não adicionar

Exemplo:

Include totvs.ch

User Function OC001FOR()

Local cCodigo := PARAMIXB[1] // VEG->VEG_CODIGO

Local cGrpFor := PARAMIXB[2] // VEG->VEG_GRUFOR

Local cGrupos := PARAMIXB[3] // VEG->VEG_GRUPOS

Local cFormula := PARAMIXB[4] // VEG->VEG_FORMUL

Local lRet := .T.

MsgInfo("Ponto de Entrada OC001FOR executado com sucesso!")

Return lRet