Perguntas PESQUISA DE PRODUTO

Marcião eu tenho uma parada dessas, só que não estou na minha maquina, hj ou amanhã te passo ok.

Abraços.

/*/
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±
±±³Programa ³ FiltroMG Autor ³ Luiz Alberto ³ Data ³ 10/12/09 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±
±±³Objetivo ³ Responsavel pelo Filtro da Pesquisa B1F Tabela SXB ±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±± ³±±
±± ³±±
±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
/*/
User Function ProdMG()
Local aGetArea := GetArea()
Local cDepto := ''
Local oBrowCons
Local aMat:={}
Local lOpc:=.F.
Local aInd:={}


cFiltro := ""

Aadd(aMat,{"B1_COD" , "Cod. Produto" , "@!" , "C", 15, 0})
Aadd(aMat,{"B1_DESC" , "Desc Produto" , "@!" , "C", 40, 0})
Aadd(aMat,{"(U_SaldoMG(SB1->B1_COD,SB1->B1_LOCPAD))" , "Saldo" , "@!" , "N", 6, 0})

cCondicao:= "Left(SB1->B1_COD,1) $ '" + cFiltro + "' "
bFiltraBrw := {|| FilBrowse("SB1",@aInd,@cCondicao) }
Eval(bFiltraBrw)

@ 050, 004 TO 500, 750 DIALOG oDlgPrd TITLE "Consulta Produtos"
@ 006, 005 TO 190, 370 BROWSE "SB1" FIELDS aMat OBJECT oBrowCons

// @ 200, 120 BUTTON "Selecionar e _Fechar" SIZE 60, 13 ACTION Eval(_bSelFec)
// @ 200, 190 BUTTON "Se_leciona Produto" SIZE 50, 13 ACTION SeleProd((_cAlias)->B1_COD, (_cAlias)->B1_GRUPO, ;
// (_cAlias)->B1_DESC, _cAlias)

// @ 200, 250 BUTTON "_Consulta Produto" SIZE 50, 13 ACTION U_AnaProd((_cAlias)->B1_COD)

@ 200, 120 BUTTON "_Pesq Codigo" SIZE 60, 13 ACTION PesqCodPRo(cFiltro)
@ 200, 190 BUTTON "_Pesq Descr" SIZE 60, 13 ACTION PesqProduto(cFiltro)
@ 200, 260 BUTTON "_Ok" SIZE 40, 13 ACTION (Close(oDlgPrd), lOpc:=.T.)
@ 200, 310 BUTTON "_Sair" SIZE 40, 13 ACTION Close(oDlgPrd)

oDlgPrd:lCentered := .t.
oDlgPrd:Activate()

//alert('Produto escolhido: '+SB1->B1_DESC)

SB1->(DbClearFilter())

Return lOpc

Static Function PesqProduto(cFil)

Local cCondicao:=''
Local cGet:=Space(40)
Local aInd:={}

SB1->(DbClearFilter())

DEFINE MSDIALOG oDlgPesq FROM 96,42 TO 250,305 TITLE "Pesquisa por Descrição:" PIXEL OF oMainWnd
@ 8,11 TO 71,122
@ 13,15 SAY "Expressão: "
@ 13,50 GET cGet picture "@!" SIZE 60,30
@ 40,55 BMPBUTTON TYPE 01 ACTION oDlgPesq:End()

Activate MsDialog oDlgPesq Centered

If !Empty(cGet)
SB1->(dbSetOrder(2))

cCondicao:= "upper(alltrim('"+cGet+"')) $ upper(SB1->B1_DESC) .And. Left(SB1->B1_COD,1) $ '" + cFil + "' "
bFiltraBrw := {|| FilBrowse("SB1",@aInd,@cCondicao) }
Eval(bFiltraBrw)
Endif
return


Static Function PesqCodPRo(cFil)
Local cGet:=Space(15)

DEFINE MSDIALOG oDlgPesq FROM 96,42 TO 250,305 TITLE "Pesquisa por Codigo:" PIXEL OF oMainWnd
@ 8,11 TO 71,122
@ 13,15 SAY "Expressão: "
@ 13,50 GET cGet picture "@!" SIZE 60,30
@ 40,55 BMPBUTTON TYPE 01 ACTION oDlgPesq:End()

Activate MsDialog oDlgPesq Centered

SB1->(DBSetOrder(1))
SB1->(DBseek(xFilial("SB1")+cGet))

If !Left(SB1->B1_COD,1)$cFil
Alert("Atencao Produto Pesquisado não confere com o Filtro especifico para o Usuário Atual!")
SB1->(DbClearFilter())
Return .f.
Endif

return