Perguntas Ponto de Entrada M410FSQL

prezado Luiz alberto,

vc poderia me informar como conseguiu filtrar os usuários nos pedidos de vendas

Luiz... tarde.

Tentei usar o PE mas não está retornando nada, vc saberia me dizer o possível problema (segue fonte)


//
User function M410FSQL()

Local cFilSQL := ""
Public cCombo := " "
Private oDlg

OpcA:= {"A Faturar","Faturados","Todos"}

DEFINE MSDIALOG oDlg TITLE "Visualizar Pedidos" FROM 379,492 TO 468,795 PIXEL

@ 011,059 ComboBox cCombo Items OpcA COLOR CLR_BLUE Size 089,010 PIXEL OF oDlg
@ 011,009 Say "Status da Solicitação" Size 047,008 COLOR CLR_BLUE PIXEL OF oDlg

DEFINE SBUTTON FROM 028,120 TYPE 1 ENABLE OF oDlg ACTION (cFilSQL:=grvOk(),oDlg:End())
ACTIVATE MSDIALOG oDlg CENTERED
Return cFilSQL

Static Function grvOk
Local cFilSQL := ""
cFilSQL := "SELECT * FROM SC5010"

dbSelectArea("SC5")
dbGoTop()

if cCombo = "A Faturar"
cFilSQL += " WHERE C5_LIBEROK = ' '"

elseif cCombo = "Faturados"
cFilSQL += " WHERE C5_LIBEROK = 'S'"

elseif cCombo = "Todos"
cFilSQL += " "
endif

dbSelectArea("SC5")
Return cFilSQL
//

Gde abraço

SE ainda estiver precisando,
#INCLUDE 'RWMAKE.CH'
/*
FILTRA OS PEDIDO DE VENDA.


*/
USER FUNCTION M410FSQL()
Local cUserId := RetCodUsr() // codigo do usuario logado
Local cVend := posicione("SA3",7,xFilial("SA3")+ cUserId, "A3_COD") // posiciona e devolve o código do vendedor
RETURN iif(empty(cVend),Nil, " C5_VEND1 = '" + cVend + "'")