Ponto de Entrada – MT120QRY

Exemplo do Ponto de Entrada MT120QRY.

Exemplo do Ponto de Entrada:

#Include "Protheus.ch"

/*--------------------------------------------------------------------------------------------------------------*
 | P.E.:  MT120QRY                                                                                              |
 | Desc:  Filtro na tela do pedido de compra (mostrar apenas um item do pedido no mbrowse)                      |
 | Link:  http://tdn.totvs.com/pages/releaseview.actionçpageId=6787737                                          |
 *--------------------------------------------------------------------------------------------------------------*/

User Function MT120QRY()
	Local cRet := ""
	Local cQry := ""

	//Selecionando os dados
	cQry := " SELECT "
	cQry += " 	SC7.R_E_C_N_O_ "
	cQry += " FROM "
	cQry += " 	"+RetSQLName('SC7')+" SC7 "
	cQry += " 	INNER JOIN ( "
	cQry += " 		SELECT DISTINCT "
	cQry += " 			SC7_PRIN.C7_NUM AS PEDIDO, "
	cQry += " 			( "
	cQry += " 				SELECT TOP 1 "
	cQry += " 					SC7_ITE.C7_ITEM "
	cQry += " 				FROM "
	cQry += " 					"+RetSQLName('SC7')+" SC7_ITE "
	cQry += " 				WHERE "
	cQry += " 					SC7_ITE.C7_FILIAL = SC7_PRIN.C7_FILIAL "
	cQry += " 					AND SC7_ITE.C7_NUM = SC7_PRIN.C7_NUM "
	cQry += " 					AND SC7_ITE.D_E_L_E_T_ = ' ' "
	cQry += " 				ORDER BY "
	cQry += " 					SC7_ITE.C7_ITEM DESC "
	cQry += " 			) AS ULT_ITEM "
	cQry += " 		FROM "
	cQry += " 			"+RetSQLName('SC7')+" SC7_PRIN "
	cQry += " 		WHERE "
	cQry += " 			SC7_PRIN.C7_FILIAL = '"+FWxFilial('SC7')+"' "
	cQry += " 			AND SC7_PRIN.D_E_L_E_T_ = ' ' "
	cQry += " 	) TAB_AUX ON ( "
	cQry += " 		SC7.C7_NUM  = TAB_AUX.PEDIDO "
	cQry += " 		AND SC7.C7_ITEM = TAB_AUX.ULT_ITEM "
	cQry += " 	) "
	cQry += " WHERE "
	cQry += " 	SC7.C7_FILIAL = '"+FWxFilial('SC7')+"' "
	cQry += " 	AND SC7.D_E_L_E_T_ = ' ' "
	
	//Montando retorno do ponto de entrada
	cRet := " R_E_C_N_O_ IN ("+cQry+") "
Return cRet 

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;

Links:

Pesquisa no TDN

Etiquetas

Receba novidades

Seja VIP e receba novidades exclusivas por e-Mail gratuitamente.