Histórico da Página
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: |
|
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