Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Todos os parâmetros são recebidos na User Function via PARAMIXB, conforme consta no documento: Execblock / Customização.

08. EXEMPLO

...

#INCLUDE"PROTHEUS.CH"



UserFunctionOM200QRY()
    LocalcQuery     := PARAMIXB[1] //Query para a manutenção
    Local nPosInicio aArrayTipo := 0
Local cWhere := ""

//Definir posição inicial do WHERE
nPosInicio := At("AND SC9.C9_BLEST", cQuery)

//Extrair o WHERE da query
cWhere := "AND SC9.C9_BLEST = '"+Space(Len(SC9->C9_BLEST)) +"'"

//Remover o WHERE C9_BLEST da query
cQuery := StrTran(cQuery,cWhere," ")

Return cQuery

PARAMIXB[2] //Tipos de carga selecionados
    LocalaArrayMod  := PARAMIXB[3] //Modelos de carga
    LocalnQuery     := PARAMIXB[4] //Número da query no UNION (1,2)

ReturncQuery------



09. ASSUNTOS RELACIONADOS

...