Histórico da Página
Ponto de Entrada
Descrição: | Ponto de entrada na rotina Orçamento de Serviços (OFIXX001), para exclusão de campos na aHeader de Serviços. |
Parâmetros: | cVS4nMostra = variável com os campos que não apareceram na aHeader de Serviços. |
Eventos: | cVS4nEdit := "VS4_CODINC,VS4_GRUINC,VS4_DESINC,VS4_SEQINC,VS4_SEQUEN," // lista de campos que não serão mostrados cVS4nMostra := "VS4_FILIAL,VS4_NUMORC," // nUsadoS:=0 // -------------------------------------------------------------------- // O trecho abaixo controla a aparição de campos dependentes de fatores // -------------------------------------------------------------------- // Fator 1: A existência de inconveniente deve mostrar os campos necessários if !lInconveniente cVS4nMostra += "VS4_CODINC,VS4_GRUINC,VS4_DESINC,VS4_SEQINC," endif If ExistBlock("OX001AHS") cVS4nMostra := ExecBlock("OX001AHS",.f.,.f.,{ cVS4nMostra }) EndIf // // Cria Variaveis de Memoria e aHeader aHeaderS:={} aAlterS :={}
|
Programa Fonte: | OFIXX001.PRW |
Retorno: | cVS4nMostra = variável com os campos que não apareceram na aHeader de Serviços. |
Exemplo:
#INCLUDE "PROTHEUS.CH"
User Function OX001AHS()
Local cVS4nMostra := ParamIxb[01]
If FM_PILHA("OFIOA330")
cVS4nMostra += "VS4_CODINC,VS4_GRUINC,VS4_DESINC,VS4_SEQINC,"
Endif
Return cVS4nMostra