MC050FSC - Consulta Genérica de Produtos

Este ponto de entrada tem como objetivo permitir ao usuário filtrar as solicitações de compra que serão exibidas na consulta.LOCALIZAÇÃO: Está localizado na função "MTC050Tree" da rotina de consulta genérica de produtos. Esta função é  responsável por montar as informações que serão exibidas na consulta.

EM QUE PONTO:
Será executado dentro do laço efetuado na tabela "SC1" antes que as solicitações de compra sejam inseridas na árvore de consulta. 

UTILIZAÇÃO:
As solicitações de compra serão inicialmente selecionadas pelo sistema com base nas configurações da rotina (tecla F12). Porém, com este ponto de entrada o usuário poderá especificar se a SC será exibida ou não, retornando um valor lógico pelo ponto de entrada.

Se o retorno for verdadeiro (.T.) a SC será relacionada normalmente, se o retorno for falso (.F.) ela não será relacionada na tela de consulta.

PARÂMETROS DE ENVIO:
Será enviado apenas um parâmetro ao ponto de entrada, que estará no vetor PARAMIXB, sendo ele:

{ PARAMIXB[1] }

PARAMIXB[1]: RECNO do registro atualmente posicionado da tabela SC1.

Para se obter o vetor enviado como parâmetro é possível utilizar a sintaxe:

Local nRecno := PARAMIXB[1]

Importante: Em ambiente TOPCONNECT a tabela SC1 não é posicionada durante a leitura das solicitações de compra. Neste ambiente é criada uma tabela temporária pelo sistema. A partir dela as SC são inseridas na árvore de consulta. Por esse motivo é fundamental posicionar a tabela SC1 com o RECNOpassado como parâmetro antes que os campos desta tabela possam ser consultados.

PARÂMETROS DE RETORNO:
O retorno deste ponto de entrada deverá ser do tipo lógico, indicando se a SC atualmente posicionada, será exibida (retorno verdadeiro), ou não (retorno falso).

MATC050.PRX

MC050FSC - Consulta Genérica de Produtos ( [ ParamIXB[1] ] ) --> lRet

lRet()
• Retorno do tipo lógico indicando se a solicitação de compra será relacionada ou não na consulta.

#include "rwmake.ch"#include "protheus.ch"User Function MC050FSC()Local lRet   := .T. 		// retorno padrão VERDADEIRO, a SC será relacionada normalmenteLocal nRecno := ParamIXB[1] // recno da tabela SC1              SC1->(dbGoTo(nRecno)) // posiciona a tabela SC1 na solicitação atual// Relaciona apenas SC's criadas pelo ADMINISTRADORIf Upper(AllTrim(SC1->C1_SOLICIT)) # 'ADMINISTRADOR'    lRet := .F. // retorno FALSO, a SC não será relacionadaEndIfReturn lRet