F087AFCL - Manipulação da Query na rotina de Recebimentos Diversos. -- 113195

O ponto de entrada F087AFCL possibilita a manipulação a Query que filtra os clientes na rotina de Recebimentos Diversos. Este ponto de entrada só está disponível para uso quando o parâmetro Filtrar Cliente estiver como Não Filtrar.

FINA087A.PRW

F087AFCL - Manipulação da Query na rotina de Recebimentos Diversos. ( [ Paramixb ] ) --> cRet

cRet(caracter)
• Query gerada no ponto de entrada. Se retornar vazio, o sistema procede normalmente ignorando o ponto de entrada.

User Function F087aFcl    Local peQuery  := Paramixb[1]Local peCampos := Paramixb[2]Local aFilCli  := {}Local cCodini  := Space( 06 )Local cCodfim  := Space( 06 ) Local aRet     := {}Local lRetAadd( aFilcli, { 1, " Cliente Inicial: ", cCodini,"@!",'.t.',,'.t.',40,.t.})Aadd( aFilcli, { 1, " Cliente Final..: ", cCodfim,"@!",'.t.',,'.t.',40,.t.})If ParamBox( aFilcli, "Intervalo de Clientes", aRet )	lRet := .t.Else 	lRet:=.f.EndIf	If lRet	PEQuery := "SELECT DISTINCT A1_FILIAL,"+peCampos			peQuery += "  FROM " + RetSQLName("SA1")+" SA1,"+RetSQLName("SE1")+" SE1"			peQuery += " WHERE A1_FILIAL = '" + xFilial("SA1") + "' AND "	      peQuery += "A1_COD >= '" + aRet[1] + "' AND "	      peQuery += "A1_COD <= '" + aRet[2] + "' AND "			peQuery += "SA1.D_E_L_E_T_ <> '*' " 			peQuery += " ORDER BY A1_COD, A1_LOJA "EndIfReturn peQuery