[PROTHEUS] - FwMarkBrowser

É para funcionar semelhante ao markbrowse montar o fwmarkbrowse precisa definir o campo da tabela que vai receber as 'marcas':

//campo que recebera a marca oMark:SetFieldMark( "C1_OK" )

Aí quando marcar a linhas a rotina grava no banco um string nesses registros e dá para saber quem está marcado na tela.

Referência rápida: https://rafaelvieceli.wordpress.com/2011/06/13/fwmarkbrowse/

Boa noite, Luciano!

Já utilizei para uma tabela temporária, mas acredito que você possa fazer da mesma maneira apenas trocando o Alias da tabela, segue exemplo:

TRB->(DbGoTop())

While(!TRB->(EOF()))

    If(TRB->TMP_OK = oMarkBrow:Mark())

        oExcel:AddCell(_nLin, 2,TRB->TMP_CLIENT                , Iif(_nLin%2 == 0,oCellTex2,oCellTex1))
        oExcel:AddCell(_nLin, 3,TRB->TMP_LOJA                , Iif(_nLin%2 == 0,oCellTex2,oCellTex1))     

    EndIf

    TRB->(DbSkip())

EndDo

Percorra a tabela desejada e verifique se o campo de marca é igual o usado pelo MarkBrowse. No caso, oMarkBrow:Mark().

Se sim, basta realizar o processo desejado. No meu caso, foi montar uma planilha em Excel.

Boa tarde Luciano,

Segue em anexo um fonte utilitário que tenho, onde cria um FwMarkBrowse para escolha de empresas/filiais e retorna um array com o que foi selecionado.

Pode haver uma ou outra gambiarra nele (sorry!), porém acredito que possa lhe auxiliar.

Segue anexo.

Obs: Utilizei este artigo como base para desenvolver.

Abraço!

Eu faço isso utilizando uma FwTemporaryTable e no momento do processamento, obtenho todas as linhas selecionadas com uma select na base. Para isso, use o método GetRealName para obter o nome da tabela temporária no banco de dados. Depois é só percorrer os registros selecionados.

Local cTableTMP := oTMP1:GetRealName()
Local cMarca    := oBrowse:Mark()
Local cQuery    := ''

cQuery := "SELECT * FROM " + cTableTMP 
cQuery += " WHERE D_E_L_E_T_ = '' "
cQuery += "   AND MK = '" + cMarca + "' "