Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este ponto de entrada tem como objetivo permitir acrescentar verificações a mais na query de levantamento de estoque encomendado de transfer.

Localização:

Atualizações/DPM John Deere/Parts Data John Deere (OFINJD06)

Eventos:

    If ( ExistBlock("OJD06ETRF") )  // Insere condição customizada no levantamento de transfers
      cQryTRF := ExecBlock("OJD06ETRF",.f.,.f.,{cQuery})
      oLogger:Log({'TIMESTAMP', "|> OJD06ETRF: " + cQryTRF})
      If !Empty(cQryTRF)
        cQuery += " AND " + cQryTRF
      EndIf
    EndIf

Programa Fonte:

OFINJD06.PRW

Função:

EXPORTARQ()

Parâmetros:
NomeTipoDescrição

cQuery

Caractere

Select inicial que faz o levantamento das informações de estoque encomendado de transfer.

Retorno:
NomeTipoDescrição

cQuery

Caractere

Condições a mais que será adicionada a query de levantamento de estoque encomendado de transfer.

Exemplo:

Include totvs.ch

User Function OJD06ETRF()



    Local cQryBase := ParamIXB[1]

    Local cQuery := ''

    cQuery := " F1_STATUS = ' ' "

Return (cQuery)