× Linguagem de Programação ADVPL

Perguntas Construcao do FWMarkBrowse

Mais
11 anos 1 mês atrás #17326 por Sombra
Boa tarde Srs.

.Tenho uma Tabela denominada SZT, ao qual estou montando um FWMarkBrowse para selecao de alguns campos dessa tabela.

O que ocorre e que eu estou Selecionando 9 REGISTRO dessa Tabela, para serem Visualizados no FWMarkBrowse, embora a Tabela SZT, possua mais campos, mas nao significativos para essa Rotina.

O que estar acontecendo e mesmo eu Especificando no ARRAY aCpos os campos que quero que aperecam, o sistema estar me Trazendo TODOS OS CAMPOS DA TABELA SZT, so que eu so quero na realidade os 9 Campos no vetor aCpos.

Alguma ai ja passou por essa situacao


dbSelectArea("SZT")
dbSetOrder(1)
aCpos := {}
aAdd(aCpos,{"ZT_XITEM" ,,"Nº ITEMNr" ,PesqPict("SZT","ZT_XITEM")})
aAdd(aCpos,{"ZT_XCODAM" ,,"Cod.Prod. AM" ,PesqPict("SZT","ZT_XCODAM")})
aAdd(aCpos,{"ZT_XCODFS" ,,"Cod.Prod FS" ,PesqPict("SZT","ZT_XCODFS")})
aAdd(aCpos,{"ZT_XOSVAM" ,,"Nº O.S" ,PesqPict("SZT","ZT_XOSVAM")})
aAdd(aCpos,{"ZT_XDTEMI" ,,"Data Emissao" ,PesqPict("SZT","ZT_XDTEMI")})
aAdd(aCpos,{"ZT_XCODCLI" ,,"Cod.Cliente" ,PesqPict("SZT","ZT_XCODCLI")})
aAdd(aCpos,{"ZT_XLOJA" ,,"Loja" ,PesqPict("SZT","ZT_XLOJA")})
aAdd(aCpos,{"ZT_XCODRG" ,,"Status" ,PesqPict("SZT","ZT_XCODRG")})
aAdd(aCpos,{"ZT_XQTDVD" ,,"Qtdade Pedido" ,PesqPict("SZT","ZT_XQTDVD")})


//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Construcao do MarkBrowse ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
oMark:= FWMarkBrowse():NEW() // Cria o objeto oMark - MarkBrowse
oMark:SetAlias("SZT") // Define a tabela do MarkBrowse
oMark:SetDescription(cTitBrow) // Define o titulo do MarkBrowse
oMark:SetFieldMark("ZT_OK") // Define o campo utilizado para a marcacao
oMark:SetFilterDefault(cFilSZT)// Define o filtro a ser aplicado no MarkBrowse
oMark:SetFields(aCpos) // Define os campos a serem mostrados no MarkBrowse
oMark:SetSemaphore(.F.) // Define se utiliza marcacao exclusiva
oMark:DisableDetails() // Desabilita a exibicao dos detalhes do Browse

oMark:Activate() // Ativa o MarkBrowse

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³Restaura condicao original ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
dbSelectArea("SZT")
RetIndex("SZT")
dbClearFilter()

aRotina := ACLONE(aBkRotina)

Return

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 1 mês atrás #17381 por Sombra
Respondido por Sombra no tópico Construcao do FWMarkBrowse
Pessoal a solução e a seguinte:


oMark:SetOnlyFields( { 'ZT_XITEM', 'ZT_XCODAM', 'ZT_XCODFS','ZT_XOSVAM','ZT_XDTEM','ZT_XCODCL','"ZT_XLOJA' } )


Obs.: No dicionatio de Dados e Necessario que os campos estejam marcados como que fazem parte do BROWSER

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.097 segundos
Joomla templates by a4joomla