Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

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