Ponto de Entrada – M460QRY

Exemplo do Ponto de Entrada M460QRY.

Exemplo do Ponto de Entrada:

//Bibliotecas
#Include 'Protheus.ch'
#Include 'RwMake.ch'
#Include 'TopConn.ch'

//Constantes
#Define STR_PULA		Chr(13)+Chr(10)

/*------------------------------------------------------------------------------------------------------*
 | P.E.:  M460QRY                                                                                       |
 | Desc:  Filtra a tela de markbrowse para não mostrar pedidos em situação X                            |
 | Links: http://tdn.totvs.com/pages/releaseview.actionçpageId=6784189                                  |
 *------------------------------------------------------------------------------------------------------*/

User Function M460QRY()
	Local aArea  := GetArea()
	Local cQuery := ParamIXB[1]

	cQuery += " AND (SELECT "
	cQuery += "          COUNT(C5_NUM) AS C5_COUNT "
	cQuery += "      FROM "
	cQuery += "          "+RetSqlName("SC5")+" SC5 "
	cQuery += "      WHERE "
	cQuery += "          SC5.C5_FILIAL = SC9.C9_FILIAL "
	cQuery += "          AND SC5.C5_NUM = SC9.C9_PEDIDO "
	cQuery += "          AND SC5.C5_X_CAMPX != '' "
	cQuery += "          AND SC5.D_E_L_E_T_ = ' ') <= 0 "
Return(cQuery)

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.